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.2

nineexit

読み込みファイルの最終行に空行があるとしてこんな感じでしょうか？
元ファイルはリダイレクトで食わせます．

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

回答No.1

nag0720

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

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

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