[問題]指數的EXP函數問題，請大大幫忙一下!

[stanlin1118 (小鐵)]

我跑程式不知道啥會有底下的問題
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
→ latinboy: exp不用宣告；exp裡面放1.0形態才對
→ stanlin1118:嗯嗯，真的太感謝大大了，問題已解決。