src/missing/mpi.c
int MPI_Comm_split(MPI_Comm comm, int colour, int key, MPI_Comm * newcomm) {

  int rc;

  err_err_rcif(newcomm == NULL, MPI_ERR_ARG);

  *newcomm = ++ncomm_;

  return MPI_SUCCESS;

 err:
  mpi_errhandler_(&comm, &rc);

  return rc;
}
/*****************************************************************************
 *
 *  MPI_Comm_split
 *
 *  Return the original communicator as the new communicator.
 *
 *  \param  comm     existing communicator, expected to be MPI_COMM_WORLD
 *  \param  colour   colour parameter
 *  \param  key      key parameter
 *  \param  newcomm  the new communicator, also MPI_COMM_WORLD
 *
 *  \retval MPI_SUCCESS  a success
 *  \retval MPI_ERR_...  a failure
 *
 *****************************************************************************/
MPI_Comm_split
Return the original communicator as the new communicator.

\param  comm     existing communicator, expected to be MPI_COMM_WORLD
\param  colour   colour parameter
\param  key      key parameter
\param  newcomm  the new communicator, also MPI_COMM_WORLD


MPI_Comm_split Return the original communicator as the new communicator . \ param comm existing communicator expected to be MPI_COMM_WORLD \ param colour colour parameter \ param key key parameter \ param newcomm the new communicator also MPI_COMM_WORLD
int MPI_Comm_split(MPI_Comm comm, int colour, int key, MPI_Comm * newcomm) {
  int rc;
  err_err_rcif(newcomm == NULL, MPI_ERR_ARG);
  *newcomm = ++ncomm_;
  return MPI_SUCCESS;
 err:
  mpi_errhandler_(&comm, &rc);
  return rc;
}
int MPI_Comm_split ( MPI_Comm comm , int colour , int key , MPI_Comm * newcomm ) { int rc ; err_err_rcif ( newcomm == NULL , MPI_ERR_ARG ) ; * newcomm = ++ ncomm_ ; return MPI_SUCCESS ; err : mpi_errhandler_ ( & comm , & rc ) ; return rc ; }
MPI_Comm_split
  Return the original communicator as the new communicator.
MPI_Comm_split Return the original communicator as the new communicator .