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
エラーはこちらになります。
![
初心者なのでエラーがよく理解できず、調べてもよくわかりませんでした。
何がおかしいのかと解決方法を教えてほしいです。
よろしくお願いします。
回答1件
あなたの回答
tips
プレビュー