test

Sun Studio 12: Fortran ライブラリ・リファレンス

1.4.8.1 dtime: 前回の dtime 呼び出しからの経過時間

dtime の場合、経過時間は次のとおりです。

関数は、次のように呼び出します。

e = dtime( tarray )

tarray

real(2)

出力 

e= -1.0: エラー: tarray 値は未定義

e≠ -1.0: tarray(1) にユーザー時間 (エラーがない場 合)。tarray(2) にシステム時間 (エラーがない場合)

戻り値 

real

出力 

e= -1.0: エラー

e≠ -1.0: tarray(1) と tarray(2) の合計時間

例: dtime()、シングルプロセッサ


demo% cat tdtime.f
       real e, dtime, t(2)
       print *, 'elapsed:', e, ', user:', t(1), ', sys:', t(2)
       do i = 1, 10000
        k=k+1
       end do
       e = dtime( t )
       print *, 'elapsed:', e, ', user:', t(1), ', sys:', t(2)
       end
demo% f95 tdtime.f
demo% a.out
elapsed: 0.0E+0 , user: 0.0E+0 , sys: 0.0E+0
 elapsed: 0.03 , user: 0.01 , sys: 0.02
demo%