请指教（fortran）

fortran 语言代码：
subroutine sub5
implicit none
real::dms,ghs,vvv
integer::i,n,t1,t2,t,j
real,dimension(1:999)::A,B,C,e,f,g
integer::k,s,d2
Open(1,file=’JSCG’,status=’old’)
Open(2,file=’JSCGB5’,status=’old’)
read(1,*)N, DMS, GHS, VVV
I=1; K=0
do
read(1,*)T;T1 =Int(T/3600); T2 =(T-T1 * 3600) / 60
do J=1,2 * DMS; read(1,*)A(j); enddo
do J=1,GHS; read(1,*)A(j),B(j); enddo
do J=1,VVV; read(1,*)A(j)
If (A(j)==0) cycle
read(1,*)B(j),C(j)
S=1
do
If (A(S)==A(j).And.B(S)==B(j).And.C(S)==C(j))Then
D2=1 ;exit ;endif
d2=2
If (A(S)==0)Then
write(2,’(" 倒 堤 时 刻：　",i4," 时 ",i2, " 分 ")’)T1,T2
write(2,’(" 倒 堤 湖 泊 序 号： ",f4.0," 倒 堤 上 断 面 序 号：　",f4.0," 倒 堤 宽 度：　",f6.2," 米")’)A(j),B(j),C(j)
K=K+1; e(K)=A(j); f(K)=B(j);g(K)=C(j)
exit
endif
s=s+1
enddo
enddo
If (I==N ) exit
I=I+1
enddo
Close(1); do I=1,5; write(2,*); enddo
end subroutine sub5

将basic语言翻译成fortran语言
basic语言代码如下：
1720 OPEN "JSCG" FOR INPUT AS #1
1721 OPEN "JSCGB" FOR OUTPUT AS #2
1730 INPUT #1,N,DMS,GHS,VVV
1740 CLS
1750 I=1:K=0
1760 INPUT #1,T:T1=INT(T/3600):T2=(T-T1*3600)/60
1770 FOR J=1 TO 2*DMS:INPUT #1,A:NEXT J
1780 FOR J=1 TO GHS:INPUT #1,A,B:NEXT J
1790 FOR J=1 TO VVV:INPUT #1,A
1800 IF A=0 THEN 1910
1810 INPUT #1,B,C
1820 S=1
1830 IF A(S)=A AND B(S)=B AND C(S)=C THEN D2=1:GOTO 1870
1840 D2=2
1850 IF A(S)=0 THEN 1870
1860 S=S+1:GOTO 1830
1870 IF D2=1 THEN 1910
1880 PRINT #2, " 倒 堤 时 刻：　";T1;" 时 ";T2;" 分 ";
1890 PRINT #2, " 倒 堤 湖 泊 序 号： ";A;" 倒 堤 上 断 面 序 号：　";B;" 倒 堤 宽 度：　";C;" 米"
1900 K=K+1:A(K)=A:B(K)=B:C(K)=C
1910 NEXT J
1920 IF I=N THEN 1930 ELSE I=I+1:GOTO 1760
1930 CLOSE #1:CLEAR:FOR I=1 TO 5:PRINT #2, :NEXT I:GOTO 200