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