【在 x******r 的大作中提到】 : They are pseudorandom numbers. : Not real random numbers : : 现每
g*e
8 楼
try this test code, u will see... program test implicit none real::a integer::i call random_seed() do i=1,10 call random_number(a) print*,a end do end program
Try ran(idum) of numerical recipe(f90). It is good.
【在 g********e 的大作中提到】 : try this test code, u will see... : program test : implicit none : real::a : integer::i : call random_seed() : do i=1,10 : call random_number(a) : print*,a : end do