Fortran のエラー
9002700385647,2,0,1,0,915110373,20050524,0,2,4911
9004300501590,1,0,1,0,910410489,20050630,-1,1,4527
このようなデータ1万人分必要なところだけ読み取って
書き出そうとするのですがうまくいきません。
This application has requested the Runtime to terminate it
in an unusual way. とエラーメッセージが出ます。なぜでしょうか。
―――――――――――――――――――――――――――――――
OPEN (1,FILE='OKAMOTODA.TXT',STATUS='OLD')
OPEN (2,FILE='NEWNEW.TXT',STATUS='NEW',
1 FORM='FORMATTED')
II=0
31 READ(1,*,END=900)K1,K2,K3,K4,K5,K6,K7,K8,K9,K10
II=II+1
WRITE(2,991) II,K1,K2,K3,K4,K5
991 FORMAT(2X,I3,5I20)
IF(II .LT. 10000) THEN
GOTO 31
ELSE
GOTO 900
ENDIF
900 CLOSE(1)
CLOSE(2)
END
―――――――――――――――――――――――――――――――