Loading...
Searching...
No Matches
Go to the documentation of this file.
14#define OMPI_SKIP_MPICXX
17#define MPI_CHECK(stmt) \
19 int mpi_errno = (stmt); \
20 if (MPI_SUCCESS != mpi_errno) { \
21 char mesg[MPI_MAX_ERROR_STRING]; \
23 MPI_Error_string(mpi_eerno, mesg, &mesglen); \
24 lprintf("MPI", 0, "[%s] ERROR: %s\n", __func__, mesg); \
25 error(1, 1, "File: " __FILE__, " Line: " __LINE__); \