DO 348 I=2,NNG+1
I1=Y0(I,3)
DO 358 J=1,NM
IF(NMOUT(J)~=I1) GOTO 358
Y0(I,3)=NMM(J,2);
GOTO 348
358 CONTINUE
STOP
348 CONTINUE
vvt 发表于 2014-7-18 10:14
1.goto 语句是不安全的。建议你在fortran里也不使用。
2.Matlab 没有 goto 语句。
3.两种不同的语言,甚至m ...
for I=2,NNG+1
I1=Y0(I,3)
for J=1,NM
if(NMOUT(J)==I1)
Y0(I,3)=NMM(J,2);
break
end
end
STOP
end
vvt 发表于 2014-7-18 10:14
1.goto 语句是不安全的。建议你在fortran里也不使用。
2.Matlab 没有 goto 语句。
3.两种不同的语言,甚至m ...
IF(KY>KSY) GOTO 20
IF(KXI==KYI.AND.KXJ==KYJ) GOTO 30
IF(KYI<KXI)|(KYI==KXI)&(KYJ<KXJ)) GOTO 40
20 BL3(KSZ,1)=BL7(KX,1);
fcode 发表于 2014-7-18 12:02
goto 只管去,不管回。不会返回。
gfx19891025 发表于 2014-7-18 13:10
这个程序中如果不用GOTO语句该怎么改
DO 348 I=2,NNG+1
I1=Y0(I,3)
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |