Fortran MPI中的退出循环

如何解决Fortran MPI中的退出循环

我想问一下在使用MPI且秩为0的主处理器发送条件的情况下如何退出Fortran中的循环。

实际上，我正在按照以下步骤进行操作。但是每个进程都陷入了循环，并且计算未按预期结束。你知道我在想什么吗？

loop: do i = 1,N
        if (rank == 0) then
            [master processor works]
        end if
        MPI_BCAST some value "dE" to every other processes
        if (dE < error) then
           exit loop
        end if
      end do loop