src/missing/mpi.c
int MPI_Initialized(int * flag) {

  int rc;
  int comm = MPI_COMM_WORLD;

  err_err_rcif(flag == NULL, MPI_ERR_BUFFER);

  *flag = mpi_initialised_flag_;

  return MPI_SUCCESS;

 err:
  if (mpi_errhandler_) mpi_errhandler_(&comm, &rc);

  return rc;
}
/*****************************************************************************
 *
 *  MPI_Initialized
 *
 *  \param flag    returned value is true if MPI_Init() has been called
 *
 *  \retval MPI_SUCCESS     a success
 *  \retval MPI_ERR_BUFFER  a NULL pointer flag was supplied
 *
 *****************************************************************************/
MPI_Initialized
\param flag    returned value is true if MPI_Init() has been called

\retval MPI_SUCCESS     a success
\retval MPI_ERR_BUFFER  a NULL pointer flag was supplied
MPI_Initialized \ param flag returned value is true if MPI_Init () has been called \ retval MPI_SUCCESS a success \ retval MPI_ERR_BUFFER a NULL pointer flag was supplied
int MPI_Initialized(int * flag) {
  int rc;
  int comm = MPI_COMM_WORLD;
  err_err_rcif(flag == NULL, MPI_ERR_BUFFER);
  *flag = mpi_initialised_flag_;
  return MPI_SUCCESS;
 err:
  if (mpi_errhandler_) mpi_errhandler_(&comm, &rc);
  return rc;
}
int MPI_Initialized ( int * flag ) { int rc ; int comm = MPI_COMM_WORLD ; err_err_rcif ( flag == NULL , MPI_ERR_BUFFER ) ; * flag = mpi_initialised_flag_ ; return MPI_SUCCESS ; err : if ( mpi_errhandler_ ) mpi_errhandler_ ( & comm , & rc ) ; return rc ; }
MPI_Initialized
  \param flag    returned value is true if MPI_Init() has been called
MPI_Initialized \ param flag returned value is true if MPI_Init () has been called