作者stanlin1118 (小铁)
看板Fortran
标题[问题]指数的EXP函数问题，请大大帮忙一下!
时间Mon Mar 16 00:01:20 2009
我跑程式不知道啥会有底下的问题
Warning: Variable EXP is used before its value has been defined
x(i)=log(exp(1)-1)+log(r(i))
我的程式如下，请大大帮我看看是哪里出错了，感谢!
program work3
implicit none
integer i
real r(100),x(100),exp(1)
CALL init_random_seed()
CALL RANDOM_NUMBER(r)
write(*,*)r
do i=1,100
x(i)=log(exp(1)-1)+log(r(i))
end do
write(*,*)x
end program work3
SUBROUTINE init_random_seed()
INTEGER :: i, n, clock
INTEGER, DIMENSION(:), ALLOCATABLE :: seed
CALL RANDOM_SEED(size = n)
ALLOCATE(seed(n))
CALL SYSTEM_CLOCK(COUNT=clock)
seed = clock + 37 * (/ (i - 1, i = 1, n) /)
CALL RANDOM_SEED(PUT = seed)
DEALLOCATE(seed)
END SUBROUTINE
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.131.96.30
1F：→ latinboy: exp不用宣告；exp里面放1.0形态才对 03/16 00:36
2F：→ stanlin1118:嗯嗯，真的太感谢大大了，问题已解决。 03/16 14:10