mpi_world_barrier Subroutine

public subroutine mpi_world_barrier(ctx)

全rankの同期ポイント。

Arguments

Type	Intent	Optional	Attributes		Name
type(mpi_context),	intent(in)			::	ctx

Source Code

  subroutine mpi_world_barrier(ctx)
    type(mpi_context), intent(in) :: ctx
#ifdef USE_MPI
    include 'mpif.h'
    integer :: ierr

    if (.not. ctx%enabled) return
    call MPI_Barrier(MPI_COMM_WORLD, ierr)
#endif
  end subroutine mpi_world_barrier