Barrier_MPI Subroutine

public subroutine Barrier_MPI(comm)

Arguments

Type IntentOptional Attributes Name
integer, optional :: comm

Calls

proc~~barrier_mpi~~CallsGraph proc~barrier_mpi Barrier_MPI mpi_barrier mpi_barrier proc~barrier_mpi->mpi_barrier proc~error_mpi Error_MPI proc~barrier_mpi->proc~error_mpi

Source Code

  subroutine Barrier_MPI(comm)
    integer,optional :: comm
    integer          :: comm_
    comm_=MPI_COMM_WORLD;if(present(comm))comm_=comm
    if(comm_/=Mpi_Comm_Null)then
       call MPI_Barrier(comm_,ierr)
       call Error_MPI(ierr,"Barrier_MPI")
    endif
  end subroutine Barrier_MPI