本人初用fortran 用的是Visual fortran 6.0 今日写了一段程序，语法没错，但就是生不成exe文件。
望高手赐教。谢谢！
程序代码：
PROGRAM IJM
COMMON /SM/ II(70),JJ(70),KK(70)
NE=64
CALL B1(1,32,1,18)
CALL B1(33,36,18,35)
CALL B1(37,42,22,39)
CALL B1(43,48,27,44)
CALL B1(49,52,32,49)
CALL B2(53,56,20,37)
CALL B2(57,60,25,42)
CALL B2(61,64,30,47)
OPEN (8,FILE='IJM.DAT',FORM='FORMATTED',STATUS='NEW')
WRITE (8,90) NE
WRITE(8,90)(II(I),I=1,NE)
WRITE(8,90)(JJ(I),I=1,NE)
WRITE(8,90)(KK(I),I=1,NE)
90 FORMAT(1X,10I6)
END
SUBROUTINE B1(I1,I2,L1,L2)
COMMON /SM/ II(70),JJ(70),KK(70)
DO 4 I=I1,I2,2
II(I)=L1
JJ(I)=L2
KK(I)=L1+1
II(I+1)=L1+1
JJ(I+1)=L2
KK(I+1)=L2+1
L1=L1+1
4 L2=L2+1
END
SUBROUTINE B2(I1,I2,L1,L2)
COMMON /SM/ II(70),JJ(70),KK(70)
DO 6 I=I1,I2,2
II(I)=L1
JJ(I)=L2
KK(I)=L2+1
II(I+1)=L1
JJ(I+1)=L2+1
KK(I+1)=L1+1
L1=L1+1
6 L2=L2+1
END
错误：如下图

此主题相关图片如下：

4 L2=L2+1 这句是什么意思？

 

复兴汉服，还我中华衣冠，复我中华礼仪
http://www.tianhan.com.cn/bbs/index.asp
<img>http://memory.116.com.cn/uploadfiles/ttmovie/2005222154103.jpg</img>

 

SUBROUTINE B1(I1,I2,L1,L2)
COMMON /SM/ II(70),JJ(70),KK(70)
DO 4 I=I1,I2,2
II(I)=L1
JJ(I)=L2
KK(I)=L1+1
II(I+1)=L1+1
JJ(I+1)=L2
KK(I+1)=L2+1
L1=L1+1
4 L2=L2+1
END

上面这段的图形如下。

此主题相关图片如下：

和L1=L1+1 相似 就是往下循环

 

复兴汉服，还我中华衣冠，复我中华礼仪
http://www.tianhan.com.cn/bbs/index.asp
<img>http://memory.116.com.cn/uploadfiles/ttmovie/2005222154103.jpg</img>

 

问题解决了，把子程序改成下面的就好了。

SUBROUTINE B1(I1,I2,L1,L2)
COMMON /SM/ II(70),JJ(70),KK(70)
L11=L1
L22=L2
DO 4 I=I1,I2,2
II(I)=L11
JJ(I)=L22
KK(I)=L11+1
II(I+1)=L11+1
JJ(I+1)=L22
KK(I+1)=L22+1
L11=L11+1
4 L22=L22+1
END
SUBROUTINE B2(I1,I2,L1,L2)
COMMON /SM/ II(70),JJ(70),KK(70)
L11=L1
L22=L2
DO 6 I=I1,I2,2
II(I)=L11
JJ(I)=L22
KK(I)=L22+1
II(I+1)=L11
JJ(I+1)=L22+1
KK(I+1)=L11+1
L11=L11+1
6 L22=L22+1
END