mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-16 09:01:59 -05:00
6be4f3d376
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6272 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
9 lines
187 B
Fortran
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
|