aleatorio.f95

program aleatorio

real    :: t1=0., t2=0.
integer :: zeros = 0, uns = 0
real   :: aleat

 character(8)  :: date
 character(10) :: time
 character(5)  :: zone
 integer,dimension(8) :: values
 ! using keyword arguments
    call date_and_time(date,time,zone,values)
    call date_and_time(DATE=date,ZONE=zone)
    call date_and_time(TIME=time)
    call date_and_time(VALUES=values)
print '(a,2x,a,2x,a)', date, time, zone
!print '(8i5)', values
 print*,'Aleatorio: ',nint(values(8)*.001)

stop
end