9 lines
187 B
Plaintext
9 lines
187 B
Plaintext
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
|