fortran77のプログラム時間を計測したい

質問

fortran77のプログラム時間を計測したい

こんばんわ。fortran77で実行結果が出るまでの時間の測定をしたいのですが、どうすればいいのでしょうか？

調べてみるといろいろな方法があるようです。しかし、そのほとんどがlinuxでの環境においての説明です。
私はwindowsの環境でfcpadを使ってコンパイルしています。ですので、「a.out」のコマンドを打ってプログラムを実行したことがありません。windows環境でもfortran77で時間計測というのはできますでしょうか？

また、今回linuxの存在の大きさを感じた次第です。linuxでコンパイルするというのはメリットがあるのでしょうか？

回答No.1

f272 · ベストアンサー

あなたの環境はSalford FTN77ということで良いのかな。そうだとして
http://www.silverfrost.com/manuals/77library.pdf
によると
HIGH_RES_CLOCK@
という関数でCPUタイムが秒で得られるようです。

REAL*8 T1,T2,HIGH_RES_CLOCK@
T1=HIGH_RES_CLOCK@(.TRUE.)
CALL SOME_PROCESS
T2=HIGH_RES_CLOCK@(.FALSE.)
PRINT *,'Time required = ',T2-T1
END

お礼

お返事遅れて申し訳ございませんでした。

＞あなたの環境はSalford FTN77ということで良いのかな
おっしゃる通りです。

HIGH_RES_CLOCK@ってすごいですね。サンプルプログラムを打ち込んだら

現在の時刻: **:**:**.**
新しい時刻を入力してください:

って結果が出てきました。'現在の時刻'とかプログラムに記載していないのに出力されてきたのでびっくりしました。
しかし、私が知りたいのは「現在の時刻」ではなく、「処理をするのにかかった時間」なんです。今もどうやってやるか調べているのですが、分かりません。英語が苦手なので、説明書を見てもよくわかりません。
もし、分かるようでしたら教えていただけませんか？

回答No.2

f272

私は，Salford FTN77なんて持っていませんから，動作確認せずに書いてます。

HIGH_RES_CLOCK@は「処理をするのにかかった時間」を返します。しかしマニュアルによれば
To achieve this precision the system clock is reprogrammed in mode 2.
ということなんで，勝手なことをし始めたのかな。

代わりに，CPU時間ではないけど経過時間を返せば良いのなら，SECONDS_SINCE_1980@も使えます。

REAL*8 START, FINISH, SECONDS_SINCE_1980@
CALL SECONDS_SINCE_1980@(START)
CALL SOME_PROCESS
CALL SECONDS_SINCE_1980@(FINISH)
PRINT*,'Elapse time used =', FINISH-START
END