c_mpl_barr.F90

Go to the documentation of this file.

SUBROUTINE c_mpl_barr
IMPLICIT NONE
#ifdef SFX_MPI
include "mpif.h"
#endif
INTEGER :: IERR

CALL mpi_barrier (mpi_comm_world, ierr)

END SUBROUTINE c_mpl_barr