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% |
次の点に注意してください。