src/missing/mpi.c
int MPI_Comm_free(MPI_Comm * comm) {

  int rc;

  err_err_rcif(comm == NULL, MPI_ERR_COMM);

  return MPI_SUCCESS;

 err:
  mpi_errhandler_(comm, &rc);

  return rc;
}
/*****************************************************************************
 *
 *  MPI_Comm_free
 *
 *  No operation.
 *
 *  \param comm      the communicator to be released
 *
 *  \retval  MPI_SUCCESS   a success
 *  \retval  MPI_ERR_COMM  a NULL communicator argument was found
 *
 *****************************************************************************/


\param comm      the communicator to be released

\retval  MPI_SUCCESS   a success
\retval  MPI_ERR_COMM  a NULL communicator argument was found
\ param comm the communicator to be released \ retval MPI_SUCCESS a success \ retval MPI_ERR_COMM a NULL communicator argument was found
int MPI_Comm_free(MPI_Comm * comm) {
  int rc;
  err_err_rcif(comm == NULL, MPI_ERR_COMM);
  return MPI_SUCCESS;
 err:
  mpi_errhandler_(comm, &rc);
  return rc;
}
int MPI_Comm_free ( MPI_Comm * comm ) { int rc ; err_err_rcif ( comm == NULL , MPI_ERR_COMM ) ; return MPI_SUCCESS ; err : mpi_errhandler_ ( comm , & rc ) ; return rc ; }
MPI_Comm_free
  No operation.
MPI_Comm_free No operation .