fortranで

FORTRANを使っているのですが、よくわからないので質問です。
以下のようなデータがあります。


F000
1.001 1.002 1.003 …

F001
1.002 1.003 1.004 …

F002
1.001 1.002 1.003 …



F00xというタイトルが書いていて、その下に数字がいくつも書かれたものです。これが連続して何個も表示されています。

このときに、F00xとその下に書いてある文字郡を一つずつのファイルに書き直したい(例えばF000、F001というように分ける)のですが、どのようにしたら良いかわかるでしょうか？

No.1 回答者： nag0720 回答日時： 2009/06/16 20:18

どの部分が分からないのですか？

テキストファイルの入力や出力の仕方が分からないのか、それとも、分割のアルゴリズムが分からないのか。

アルゴリズムが分からないのでしたら、FORTRANではないですが、同じような質問がありましたので参考にしてください。

http://oshiete1.goo.ne.jp/qa5044985.html

No.2 回答者： nineexit 回答日時： 2009/06/24 08:50

読み込みファイルの最終行に空行があるとしてこんな感じでしょうか？

元ファイルはリダイレクトで食わせます．

program division
implicit none
integer i,j
real(8) a(3)
character(len=100) filename
do i=1,3
read(*,*) filename
filename=trim(filename)//'.dat'
write(*,*) filename
open(10,file=filename)
read(*,*) (a(i),j=1,3)
write(10,*) (a(i),j=1,3)
close(10)
read(*,*)
end do
end program division