RANDOM_TEST
!program name: RANDOM_TEST
implicit
none
real
:: r, x
integer
:: i
call
random_seed()
10
call random_number(r)
print
*, r
print
*,
do
i=1,10
call random_number(x)
print *, x
end
do
stop
!program name: RANDOM_TEST
implicit
none
real
:: r, x
integer
:: i
call
random_seed()
10
call random_number(r)
print
*, r
print
*,
do
i=1,10
call random_number(x)
print *, x
end
do
stop
Comentários
Postar um comentário