src/missing/mpi.c
int MPI_Init(int * argc, char *** argv) {

  int rc;
  int comm = MPI_COMM_WORLD;

  mpi_initialised_flag_ = 1;
  mpi_errhandler_ = mpi_errhandler_errors_are_fatal;

  err_err_rcif(argc == NULL, MPI_ERR_ARG);
  err_err_rcif(argv == NULL, MPI_ERR_ARG);

  return MPI_SUCCESS;

 err:
  mpi_errhandler_(&comm, &rc);

  return rc;
}
/*****************************************************************************
 *
 *  \brief The replacement MPI_Init initialises the error handler
 *
 *  \param  argc         pointer to argc
 *  \param  argv         pointer to argv
 *
 *  \retval MPI_SUCCESS  a success
 *
 *****************************************************************************/
\brief The replacement MPI_Init initialises the error handler
\param  argc         pointer to argc
\param  argv         pointer to argv

\retval MPI_SUCCESS  a success
\ brief The replacement MPI_Init initialises the error handler \ param argc pointer to argc \ param argv pointer to argv \ retval MPI_SUCCESS a success
int MPI_Init(int * argc, char *** argv) {
  int rc;
  int comm = MPI_COMM_WORLD;
  mpi_initialised_flag_ = 1;
  mpi_errhandler_ = mpi_errhandler_errors_are_fatal;
  err_err_rcif(argc == NULL, MPI_ERR_ARG);
  err_err_rcif(argv == NULL, MPI_ERR_ARG);
  return MPI_SUCCESS;
 err:
  mpi_errhandler_(&comm, &rc);
  return rc;
}
int MPI_Init ( int * argc , char * * * argv ) { int rc ; int comm = MPI_COMM_WORLD ; mpi_initialised_flag_ = 1 ; mpi_errhandler_ = mpi_errhandler_errors_are_fatal ; err_err_rcif ( argc == NULL , MPI_ERR_ARG ) ; err_err_rcif ( argv == NULL , MPI_ERR_ARG ) ; return MPI_SUCCESS ; err : mpi_errhandler_ ( & comm , & rc ) ; return rc ; }
\brief The replacement MPI_Init initialises the error handler
  \param  argc         pointer to argc
  \param  argv         pointer to argv
\ brief The replacement MPI_Init initialises the error handler \ param argc pointer to argc \ param argv pointer to argv