OPEN文を使って次のプログラムを実行してみたのですが、うまくいきません。
(「中断しました。」とでます)
どなたかよろしくおねがいします

OPEN(1,FILE='701')
READ(1,*)X,Y
S=0.0
DO 100 I=1,15
READ(1,*)U,V
S=S+(U-X)*(Y+V)/2.0
X=U
Y=V
100 CONTINUE
WRITE(*,*)S
CLOSE(1)
END