# マニュアルページ 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 ライブラリ・リファレンス』