Man Page secnds.3f

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
     1    format ( ' 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(3c), itime(3F), idate(3F), fdate(3F)
     FORTRAN 77 Reference Manual