关于fortran程序问题
关于fortran程序问题
日期：2013-10-18 19:10:29 人气：1
IF(KMET.EQ.1) GO TO 511
这说明 If 的结束在 511
此时，你就不能再把 Do 的结尾也设定在 511 了。
你可以修改为：
NN=2*N
IF(KMET.EQ.1) GO TO 512
DO 511 I=1,NN
DFI(I)=0.0
DO 511 J=1,NN
DFI(I)=DFI(I)+G(I,J)*TP(J)-H(I,J)