shm_node_barrier Subroutine

public subroutine shm_node_barrier()

FIXME : Add documentation
ifdef 1 endif

Arguments

None

Contents

Source Code

shm_node_barrier

Source Code

  subroutine shm_node_barrier
!# ifdef MPI
    implicit none
    integer ierr
    call mpi_barrier(shm_info%comm, ierr)
!#endif
  end subroutine shm_node_barrier