NAME

secnds − return system time in seconds since midnight

SYNOPSIS

real function secnds (t0)
real t0

DESCRIPTION

The function secnds( t0 ) returns the system time as the number of seconds since midnight, minus t0, as in VMS. 

NOTES

Usage:

real  t, t0, secnds
...
t = secnds(t0)

Example: demo% cat sec1.f

real elapsed, t0, t1, x, y
t0 = 0.0
t1 = secnds( t0 )
y = 0.1
do i = 1, 1000
x = asin( y )
end do
elapsed = secnds( t1 )
write ( ∗, 1 ) elapsed
1format ( ’ 1000 arcsines: ’, f12.6, ’ sec’ )
end

demo% f77 −silent sec1.f
demo% a.out
 1000 arcsines: 6.699141 sec
demo%

FILES

libF77.a

SEE ALSO

ctime(3), itime(3F), idate(3F), fdate(3F)
FORTRAN 77 Reference Manual

SunOS 5.0  —  Last change: 07 July 1995