mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-10-31 15:47:10 -04:00
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
|