src/missing/mpi.c
int MPI_Comm_dup(MPI_Comm oldcomm, MPI_Comm * newcomm) {

  int rc;

  err_err_rcif(newcomm == NULL, MPI_ERR_ARG);
  *newcomm = ++ncomm_;

  return MPI_SUCCESS;

 err:
  mpi_errhandler_(&oldcomm, &rc);

  return rc;
}
/*****************************************************************************
 *
 *  MPI_Comm_dup
 *
 *  Create a new handle (and increment the global count).
 *  This is to indentify distinct communicators.
 *
 *****************************************************************************/
MPI_Comm_dup
Create a new handle (and increment the global count).
This is to indentify distinct communicators.
MPI_Comm_dup Create a new handle ( and increment the global count ) . This is to indentify distinct communicators .
int MPI_Comm_dup(MPI_Comm oldcomm, MPI_Comm * newcomm) {
  int rc;
  err_err_rcif(newcomm == NULL, MPI_ERR_ARG);
  *newcomm = ++ncomm_;
  return MPI_SUCCESS;
 err:
  mpi_errhandler_(&oldcomm, &rc);
  return rc;
}
int MPI_Comm_dup ( MPI_Comm oldcomm , MPI_Comm * newcomm ) { int rc ; err_err_rcif ( newcomm == NULL , MPI_ERR_ARG ) ; * newcomm = ++ ncomm_ ; return MPI_SUCCESS ; err : mpi_errhandler_ ( & oldcomm , & rc ) ; return rc ; }
MPI_Comm_dup
  Create a new handle (and increment the global count).
MPI_Comm_dup Create a new handle ( and increment the global count ) .