マニュアルページ secnds.3f




名前

     secnds - 午前 0 時以降のシステム時間の経過秒数を戻す


形式

     real function secnds (t0)
     real t0


機能説明

     関数 secnds( t0 ) は、午前 0 時からのシステム時間の経過秒 数
     から t0 を引いた秒数を戻します (VMS での場合と同様)。


注意

     使用法:

       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 ライブラリ・リファレンス』