我不确定这段代码是哪个版本的 Fortran，而且我也不太擅长，但这是我试图理解的一段代码......
DO 55 J=1,N
IF(KODE(J)) 55,55,40 ! Can not figure out what this line does
40 DO 50 I=1,N
CH=G(I,J)
G(I,J)=-H(I,J)
H(I,J)=-CH
50 CONTINUE
55 CONTINUE
在上面给出的循环中，你能帮我理解第二行的作用吗，特别是标签 55,55,40
这是我试图理解的边界元素书中的代码......
哇...我有一段时间没见过这种语法了。那是一个 Fortran算术 IF 语句。的结果KODE(J)是一个数字。如果小于零，则使用第一次跳转，如果等于零，则使用第二次跳转，否则使用第三次跳转。这大致相当于：
X=KODE(J)
IF (X.LT.0) GO TO 55
IF (X.EQ.0) GO TO 55
GO TO 40
我的 Fortran 技能已经明显衰退，但这就是我所记得的。
在这种特殊情况下，程序员编写起来更简单
X=KODE(J)
IF (X.LE.0) GO TO 55
GO TO 40
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
