test

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

1.4.43 secnds: 秒単位のシステム時間 (マイナス引数) を取得

t = secnds( t0 )

t0

REAL

入力 

定数、変数、あるいは配列要素 

戻り値 

REAL

出力 

午前 0 時からの秒数から t0 を引いた値

例: secnds:


demo% cat sec1.f
       real elapsed, t0, t1, x, y
       t0 = 0.0
       t1 = secnds( t0 )
       y = 0.1
       do i = 1, 10000
        x = asin( y )
       end do
       elapsed = secnds( t1 )
       write ( *, 1 ) elapsed
  1    format ( ' 10000 arcsines: ', f12.6, ' sec' )
       end
demo% f95 sec1.f
demo% a.out
 10000 arcsines:     0.009064 sec
demo%

次の点に注意してください。