求一个Fortran程序算法为：r是一个均匀分布于区间(-1,1)的一个随机数.这样,J可以写成J=J0(1+pr),求

现在计算机产生的随机数都是伪随机数.
random_number(x) 产生一个0到1之间的随机数（x可以是向量）,但是每次总是那几个数.
用了random_seed ()后,系统根据日期和时间随机地提供种子,使得随机数更随机了.
program random
implicit none
real :: x
call random_seed () ! 系统根据日期和时间随机地提供种子
call random_number (x) ! 每次的随机数就都不一样了
write(*,*) x
stop
end program random
有了随机数,上面的问题就解决了