How to measure elapsed time on g77

[Hiroshi Tanaka]

たなか＠島根大学と申します．

g77で経過時間，もしくは現在時刻を知る組み込み関数は
あるんでしょうか？またあるとしたら，何という関数でどのように使えば
良いのでしょうか？ご存知のかたがいましたら教えてください．

g77の言語リファレンスというのは，あるんでしょうか？

田中 宏志
島根大学・総合理工学部・物質科学科

[Tamio Tsukamoto]

田中さん、こんにちは。

fj.lang.fortranの<34EC199D...@riko.shimane-u.ac.jp>の記事において
JST時間1998年02月19日(木)20時38分05秒頃、tan...@riko.shimane-u.ac.jpさんは書きました。

| g77で経過時間，もしくは現在時刻を知る組み込み関数は
| あるんでしょうか？またあるとしたら，何という関数でどのように使えば
| 良いのでしょうか？ご存知のかたがいましたら教えてください．

g77 のバージョンによりますが、g77-0.5.19.1 までは、unix 互換ライブラリは
g77 のコンパイル時に、g77-0.5.19-libu77-12.tar.gz など、イギリスの
Daresbury Lab.にあるライブラリを組み込むことで実現されています。

g77-0.5.20 からは、上記ライブラリが標準でg77に組み込まれているはずです。
etime というサブルーチンのはずです。

私はそれ以前は以下のような関数をリンクしていました。

#include <time.h>
#include <sys/times.h>
#include <stdlib.h>
#include <f2c.h>
#ifdef CLOCKS_PER_SEC
#undef CLOCKS_PER_SEC
#endif
#define CLOCKS_PER_SEC 100.0 /* system dependent */
double etime_(float *tarray)
{
double elapsed;
struct tms t_buf;
elapsed=times(&t_buf)/CLOCKS_PER_SEC;
tarray[0]=(float)(t_buf.tms_utime + t_buf.tms_cutime)/CLOCKS_PER_SEC;
tarray[1]=(float)(t_buf.tms_stime + t_buf.tms_cstime)/CLOCKS_PER_SEC;
return(elapsed);
}

塚本

----------------------------------------------------
Tamio Tsukamoto
10-31-18-108,Handa-Kita,Sakai,Osaka 599-8262 Japan
E-mail : ta...@mb.infoweb.ne.jp
URL : http://village.infoweb.ne.jp/~tamio

[Hiroshi Tanaka]

塚本さん，返信ありがとうございます．

大変遅くなってしまいましたが，

> g77 のバージョンによりますが、g77-0.5.19.1 までは、unix 互換ライブラリは
> g77 のコンパイル時に、g77-0.5.19-libu77-12.tar.gz など、イギリスの
> Daresbury Lab.にあるライブラリを組み込むことで実現されています。
>
> g77-0.5.20 からは、上記ライブラリが標準でg77に組み込まれているはずです。
> etime というサブルーチンのはずです。

ありがとうございます．さっそくg77-0.5.20をとってきて試してみました．
実は私はWin95+cygnus+egcs1.00という構成でして，
コンパイルは通るんですが，システムがサポートしてないみたいです．
ちゃんとしたPC Unixなら大丈夫らしいですが．

やはり素直にLinuxかFreeBSDにしようと思ってます．

田中 宏志
島根大学総合理工学部・物質科学科