咨询Fortran 95循环中条件重复时指定代码块仅执行一次的方法

嘿，这个需求其实很好实现，核心思路就是用一个逻辑型标志变量来控制代码块的执行开关，确保它只跑一次，同时不影响循环里其他代码的完整迭代。

具体实现步骤 #

• 定义一个逻辑变量（比如code_block_executed），初始值设为.TRUE.——表示目标代码块还未执行过。
• 在循环内部，把目标代码块放在条件判断里：只有当触发条件满足且标志变量为.TRUE.时，才执行代码块。
• 代码块执行完毕后，立刻把标志变量设为.FALSE.，这样后续即使触发条件再次出现，也不会重复执行。

完整代码示例 #

program single_run_code_block
    implicit none
    integer :: iter, max_iter = 15
    logical :: run_once = .TRUE.  ! 初始状态：代码块未执行

    do iter = 1, max_iter
        ! 这部分是每次循环都要执行的常规代码
        print *, "迭代次数: ", iter, " | 常规代码执行中..."

        ! 模拟"条件会反转"的场景：比如iter为奇数时满足条件
        if (mod(iter, 2) == 1 .and. run_once) then
            ! 这个代码块只会执行一次
            print *, ">>> 仅执行一次的代码块运行中 <<<"
            ! 执行后关闭开关
            run_once = .FALSE.
        end if

        ! 另一部分每次循环都要执行的代码
        print *, "迭代次数: ", iter, " | 后续常规代码执行完毕"
        print *, "-------------------------------"
    end do
end program single_run_code_block

效果说明 #

在这个例子里，触发条件是“迭代次数为奇数”，虽然这个条件会在iter=1、3、5...时重复满足，但因为run_once在第一次执行后就被设为.FALSE.，所以目标代码块只会在第一次满足条件（iter=1）时运行一次，后续所有迭代里，不管条件是否再次成立，都不会再执行它，而循环里的其他代码会完整跑完15次迭代。

这种方法完全兼容Fortran 95，逻辑清晰，也容易维护——如果之后需要调整触发逻辑，只需要修改条件判断部分就行。

内容的提问来源于stack exchange，提问作者Brosbros