SECNDS(3F) — FORTRAN LIBRARY ROUTINES

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

To use this VMS routine, you need the −lV77 option. If you use −lV77, then invoking idate() or time() gets the VMS version. 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 −lV77
demo$ a.out
1000 arcsines: 6.699141 sec
demo$

FILES

libF77.a, libV77.a

Museum