带内部 goto 的 Fortran do 循环

Question

我有一个 Fortran77 代码片段，如下所示：

    DO 1301 N=NMLK-2,2,-1                                                     
       Some code...
       IF(NB1(N).EQ.50) GOTO 1300                                                            
       Some code...
       IF(BS(N).EQ.0.0) GOTO 1301                                                
       some code...                                                               
       GOTO 1301                                                                 
  1300 NW(M)=NB1(N)                                                              
       Some code...                                                               
  1301 CONTINUE

当遇到 GOTO 1301 语句时，它会跳转到循环的下一次迭代还是退出循环？ 据我了解 return 关键字什么都不做，所以我假设这只会退出循环并继续从标签 1301 开始执行代码，这是正确的吗？

我正在将其翻译为 C#，并且想知道这是否等效：

for (N = NMLK; N >= 2; N--)
{
    Some code...
    if (NB1[N] == 50)
        goto l1300;
    Some code...
    if (BS[N] == 0)
        return;
    Some code...
    return;
l1300:
    NW[M] = NB1[N];
    Some code...
}

或者我是否应该使用“继续”而不是“返回”？

Answer 1

是的，GOTO 1301 语句使程序跳转到下一个迭代。

DO label、label CONTINUE 是编写更现代的 DO ENDDO 块的过时方法。在这种情况下，循环将迭代 DO 行上指定的变量，并且 label CONTINUE 行充当“ENDDO”占位符。