- 492 名前：デフォルトの名無しさん mailto:sage [2006/06/16(金) 01:59:52 ]
- >>491
各行に含まれる数値の数が一定なら、以下のように一旦文字列として
読み込んで加工し、内部ファイルを使えば良い。
program hoge
implicit none
integer i, k,l,m,n, ios
character*80 str
open(11,file='data.dat',status='OLD')
100 continue
read(11, fmt='(A)', iostat=ios) str
if (ios .ne. 0) goto 999
do 200 i=1, len(str)
if (str(i:i) .eq. ':') str(i:i) = ','
200 continue
read(str,*) k,l,m,n
write(*,*) k,l,m,n
goto 100
999 continue
close(11)
stop
end
