real function secnds (t0) real t0
函数 secnds( t0 ) 返回以自午夜以来的秒数表示的系统时间,在 VMS 中要减去 t0。
用法:
real t, t0, secnds ... t = secnds(t0)
示例:
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%
libfui.a
ctime(3C)、 itime(3F)、idate(3F)、fdate(3F)
《FORTRAN 77 Reference Manual》