if文と繰り返し文を用いてデータの抽出を行いたい

fortran77でif文と繰り返し文を用いてデータの抽出を行いたいです。
元のデータは海洋観測のデータで一行につき16の情報があり(Read文の変数)、そのうちのInumber3=3かつInumber4=2のとき、その行の情報を"160909000000_refL.outX"というファイルへ書き込まれるようにしたいです。
コンパイルはできたのですが、実行するとエラーが出てきました。

fortran77
1c     refL
2      Program refL
3      Open (10,file='160909000000_refL.out',status='old')
4      Open (11,file='160909000000_refL.outX')
5      do 100 i=1,40
6      Read (10,*) Inumb1,Xnuer2,Iyr,Imonth,Iday,Ihour,Imie,second,
7     & Inumber3,Inumber4,Isignal,number5,number6,number7,
8     & Xnumber8,Xnumber9
9      print *,Inumber3,Inumber4
10      if (Inumber3==3 .and. Inumber4==2) Then
11      print *, Inumb1,Xnuer2,Iyr,Imonth,Iday,Ihour,Imie,second,Inumber3,
12     &Inumber4,Isignal,number5,number6,number7,Xnumber8,Xnumber9
13
14      write(11,*) Inumb1,Xnuer2,Iyr,Imonth,Iday,Ihour,Imie,second,
15     &     Inumber3,Inumber4,Isignal,number5,number6,number7,Xnumber8,
16     &     Xnumber9
17      end if
18  100 print Inumber 3
19      Close (10)
20      Close (11)
21      STOP

エラーはこちらになります。
![
初心者なのでエラーがよく理解できず、調べてもよくわかりませんでした。
何がおかしいのかと解決方法を教えてほしいです。
よろしくお願いします。

otn

2018/08/10 11:58

ちゃんとファイルをエディタで開いてみて、想定通りの内容であることを確認していますか？

tatsu31

2018/08/10 13:38

元の観測データの内容を確認しているのかという意味でしょうか。そういう意味なら、確認はしていて、想定通りのデータでした。

行動規範の内容に同意します

回答1件

ベストアンサー

よく見ると、
print Inumber 3
というのがおかしいですね。これが原因です。

投稿2018/08/10 16:32

otn

総合スコア84505

tatsu31

2018/08/11 05:45 編集

装置番号が書かれていないということでしょうか。それともこの場所にprintがあること自体がおかしいですか。

tatsu31

2018/08/11 05:54

解決しました！元データをもう一度確認してみると内容が変わっていました。ありがとうございます。

otn

2018/08/11 09:49

printは装置番号6に出力するので、装置番号は不要です。第一オペランドは書式指定です。 print Inumber 3 だと、変数Inumber3の中身を書式指定として解釈しようとしてエラーになってます。何をしたいかによってどう修正するか決まりますが、おそらく print *,Inumber3 かな？

行動規範の内容に同意します