WSJT-X/lib/test_init_random_seed.f90
Bill Somerville 6be4f3d376 Rationalize random number seeding in C and Fortran
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6272 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-14 19:40:44 +00:00

9 lines
187 B
Fortran

program test_init_random_seed
real :: r(10,4)
call init_random_seed()
call random_number(r)
do i =1,10
write (*, *) (r(i,j),j=1,4)
end do
end program test_init_random_seed