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

end

Comentários

Postagens mais visitadas deste blog

RECURSIVE

HYDROGEN-RADIAL

RUNGE-KUTTA