fortran - 在 do 循环 (fortran) 中跳过迭代

Question

我想循环 N 次迭代，但在特定条件下应该“跳过”某些迭代。
我知道我可以使用 goto 语句来做到这一点，例如:

       do i = 1, N
          if condition(i) goto 14
          ! Execute my iteration if condition(i) is false
    14    continue
       end do

但是我有点害怕这些 goto 语句，我想知道是否有其他解决方案(我使用的是 fortran 90，但对任何解决方案都感兴趣，即使它需要更新版本)。

Answer 1

试试这个

do i = 1, N
          if (condition(i)) cycle
          ! Execute my iteration if condition(i) is false
end do

如果您需要解释，请评论您需要澄清的内容。注意我已经删除了古老的 continue 和标记语句。