RANDOM
!program name: RANDOM
integer :: dzt(8)
integer, dimension(:), allocatable :: array
real :: r
allocate(array(15))
call date_and_time(values=dzt)
!print *, dzt !OPTIONAL
array(8) = dzt(1) !It picks the first value
(year) of CALL DATE_AND_TIME
!print *, array !OPTIONAL
call random_seed(put=array)
call random_number(r)
print *,r
array(8) = dzt(8) !It picks the eighth value
(miliseconds) of CALL DATE_AND_TIME
!print *, array !OPTIONAL
call random_seed(put=array)
call random_number(r)
print *,r
stop
Comentários
Postar um comentário