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