【Fortran】readでエラーEnd of Fileが出てしまう原因が分からない

Question

FORTRAN90を使って、複数行あるテキストファイルを50行ずつ分割して別々のテキストに保存する、ということをしたいのですが、うまくいきません。

以下のようにmodで出力ファイルを0001-0050.txtのように生成して、そこにmasterのテキストを一行ずつ入力するという方法を取っているのですが、modの余り値を0にする(出力ファイル名が0001-0050.txt,0051-0100.txtのようになる)と意図通りに動作してくれて、余り値を25に設定する(出力ファイルが0026-0075.txt,0076-0125.txt)とエラーになってしまいます。

この原因が分からないので教えていただきたいです。
変数fnameはうまく生成されていることは確認済みです。
環境はMacでターミナルはbashを用いています。
よろしくお願いいたします。

       character*80 line
       character*24 fname
       
       open(11,file = 'test_master.txt')!入力ファイル名を設定
       do i = 1, 123 !入力ファイルのデータ数を設定
            if(mod(i-1,50) == 25) then !ここを25にするとうまく動かない
                write(fname,'(a11,i4.4,a1,i4.4,a4)') "test", i, "-", i+49, ".txt"!出力ファイル名を設定
                open(12,file = fname)
            end if
            read(11,'(a80)') 
            write(12,*) line
            if(mod(i,50) == 25) then 
                  close(12)
            end if

       end do

       close(11)

       end

ターミナル実行結果
At line 10 of file cutter50.f90 (unit = 11, file = 'test_master.txt')
Fortran runtime error: End of file

Error termination. Backtrace:

Could not print backtrace: libbacktrace could not find executable to open
#0  0xffffffff
#1  0xffffffff
#2  0xffffffff
#3  0xffffffff
#4  0xffffffff
#5  0xffffffff
#6  0xffffffff
#7  0xffffffff
#8  0xffffffff
#9  0xffffffff
#10  0xffffffff
#11  0xffffffff
#12  0xffffffff
#13  0xffffffff
#14  0xffffffff

test_master.txtの中身
37.751667 138.458000 19.990000 1.500000 2011 3 1 20 51 36.580000
36.939167 138.714333 7.750000 0.400000 2011 3 2 6 39 10.170000
37.122167 138.800833 7.860000 1.900000 2011 3 2 7 16 25.700000
36.998167 138.876500 7.710000 1.300000 2011 3 2 14 40 18.940000
36.958833 138.157667 19.470000 1.100000 2011 3 3 4 35 42.970000
以下、計123行分同じ形式のデータ

teratailでの質問の経験が浅いため、質問方法が粗末で申し訳ありません。

Answer 1

doループの回数を入力ファイルのデータ数よりも一つ小さくしたら解決した。

Answer 2

readの回数はDOループで123回に固定されているので、EOFエラーになったと言うことは、ファイルが123行無かったと言うことです。

ただし、エラーメッセージのファイル名と記載されたコードのファイル名が違うので、別のプログラムを実行したのでしょう。

それより記載のコードだと、先頭から25行分のデータがオープンされていない12番ファイルに書こうとしてしまいます。

Comments

[beachone1155]

回答ありがとうございます。
入力ファイルtest_masterの行数を確認したところ、123行ありました。ですが、doの回数を122に(一個少なく)したところなぜがうまく動きました。笑
ありがとうございます！

エラーメッセージのファイル名を間違えて転載してしまいました。実際の拡張子名は同一のものを使用しています。

[otn]

ファイルの末尾に改行がないとかですかね。
cat ファイル名; echo OK
で、OKは行頭から表示されていますか？

[beachone1155]

37.751667 138.458000 19.990000 1.500000 2011 3 1 20 51 36.580000
36.939167 138.714333 7.750000 0.400000 2011 3 2 6 39 10.170000
37.122167 138.800833 7.860000 1.900000 2011 3 2 7 16 25.700000
36.998167 138.876500 7.710000 1.300000 2011 3 2 14 40 18.940000
36.958833 138.157667 19.470000 1.100000 2011 3 3 4 35 42.970000
（以下データ数の分）
OK
と出力されたので、改行は入っているみたいです。

[otn]

そうですか。wc -l ファイル名 で、123ということですか？