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