Fortran 66 if() 转到

Question

我试图理解我必须为我正在工作的项目阅读的一篇文章中的代码，它是用 Fortran 66 编写的。
我不明白它的工作方式。我试图用相同的结构编写类似的代码，但它不起作用。这是类似的东西

   if(conditional.1)go to 20
       *some code*
       go to 30
20 if (conditional.2)
       *some code*
       go to 30

30 continue

如果 conditional.1是 True 它将转到 20否则它会转到 30如果它是假的，它将转到 20 ?
它会与此类似吗？:

if(conditional.1)then
    *some code*
end if

if(conditional.2)then
    *some code*
end if

Answer 1

这是一个意大利面条式代码的例子，你从过度使用 GOTO 和缺少 FORTRAN 66 中的更好的结构中得到。你可以使用流程图来可视化演变。
如果条件 1 是 .true.然后你跳过第一个 *some code* .所以我相信它会是

   if (.not. conditional.1) then
       *some code 1*
   else if (conditional.2) then
       *some code 2*
   end if

在 Fortran 77 及更高版本中。