fortranでファイルから数値を読み取ることについての質問です。

fortranでファイルから数値を読み取ることについての質問です。
次のような内容のファイルから数値を読み取る場合：

1 2 3
4 5 6
7 8 9

これはdoループを使って
do i=1,n
read(1,*)a[3*(i-1)+1],a[3*(i-1)+2],a[3*(i-1)+3]
end do
として、行数をn=3と指定すれば読み取れますが、
行数を指定しなくてはabortします。
行数を指定せずに、最後のデータまで自動的に読むようにするには
どうすれば良いでしょうか？

No.1 ベストアンサー 回答者： notnot 回答日時： 2010/10/31 20:01

do i=1,99999 のようにして、

read(1,*,end=100) .......
とすれば、最後の行まで読んだときに文番号100に飛びます。これを使えば行数を知らなくても最後まで読むことが出来ます。

この回答へのお礼

助かりました。ありがとうございます。

お礼日時：2010/10/31 20:40