rtc 関数は、マシンのリアルタイム・クロックの初期値以降の秒数の REAL(8) 値を戻します。
結果タイプおよび属性
長さが 8 の実数
結果値
マシンのリアルタイム・クロックの初期値以降の秒数
例
REAL(8) A, B, rtc A = rtc() DO M = 1,20000 N = N + M END DO B = rtc() ! How many seconds elapsed? PRINT *, B - A END