如何在条件重复的情况下让一块代码在fortran的循环中只运行一次

Question

我在fortran 95中运行一个程序。循环包含一组在设定限制下反转的条件操作。请有人可以告诉我如何让一个代码块在循环中只运行一次，这样它在满足条件时会重复，但运行剩下的代码直到迭代次数完成？

Answer 1

几次看完你的问题之后，我想我知道你想要什么。如果你想要一段代码总是在do循环中至少运行一次但可能重复，你可以尝试这样的东西。从逻辑变量开始以确保一次执行：

once = .true.
do i = 1, whatever
   some code
   if (once .or. (another condition)) then
      once = .false.
      code will always run once but possibly repeat
   end if
   can have more code
enddo