Question

请教fortran中IF语句和GOTO语句的特殊用法

请问如下两段语句是什么意思,并请教一下这里IF语句和GOTO语句的用法是什么
IF(ir-5) 1,2,1
1 CONTINUE
a=1
2 CONTINUE
b=1
C======================================
GOTO (5,4,1,2,3,2),ir

5 CONTINUE
a=1
4 CONTINUE
b=1
1 CONTINUE
c=1
2 CONTINUE
d=1
3 CONTINUE
e=1
其中ir为定义的一个变量

Answer 1

goto
goto
在fortran77中就流传下来了，它提供一个任意跳跃到所赋值行代码的位置，如果是在一个do
循环中如
do
30
i=1,n
if(……)
goto
30
30
continue
上语句的意思就是如果符合if里的条件，则会进行下一次循环。

Answer 2

if(ir-5) 1,2,1 应该分别对应于Ir-5小于、等于、大于0要转移到的行的标号。
goto（5，4，1，2，3，2），ir应该是ir分别取值为1、2、3、4、5、6时要转移到5，4，1，2，3，2行上去。