WSJT-X/lib/test_init_random_seed.f90

9 lines
187 B
Fortran
Raw Normal View History

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