[ новости /+++ | форум | теги | ]

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

Партнёры:

Хостинг: