src/missing/mpi.c
int MPI_Errhandler_set(MPI_Comm comm, MPI_Errhandler errhandler) {

  int rc;

  err_err_rcif(comm < 0, MPI_ERR_COMM);

  switch (errhandler) {
  case (MPI_ERRORS_ARE_FATAL):
    mpi_errhandler_ = mpi_errhandler_errors_are_fatal;
    break;
  case (MPI_ERRORS_RETURN):
    mpi_errhandler_ = mpi_errhandler_errors_return;
    break;
  case (MPI_INTERNAL_USER_ERRHANDLE):
    /* Use whatever has been previously set by MPI_Errhandler_create */
    break;
  default:
    err_err_rcif(1, MPI_ERR_OTHER);
  }

  return MPI_SUCCESS;

 err:
  err_ifm(1, "Unrecognised error handler %d", errhandler);
  mpi_errhandler_errors_are_fatal(&comm, &rc);

  return rc;
}
/*****************************************************************************
 *
 *  MPI_Errhandler_set
 *
 *  \param  comm        expected to be MPI_COMM_WORLD
 *  \param  errhandler  the handle of the error handler to be set
 *
 *  \retval MPI_SUCCESS a success
 *  \retval MPI_ERR_... a failure
 *
 *****************************************************************************/
MPI_Errhandler_set
\param  comm        expected to be MPI_COMM_WORLD
\param  errhandler  the handle of the error handler to be set


MPI_Errhandler_set \ param comm expected to be MPI_COMM_WORLD \ param errhandler the handle of the error handler to be set
int MPI_Errhandler_set(MPI_Comm comm, MPI_Errhandler errhandler) {
  int rc;
  err_err_rcif(comm < 0, MPI_ERR_COMM);
  switch (errhandler) {
  case (MPI_ERRORS_ARE_FATAL):
    mpi_errhandler_ = mpi_errhandler_errors_are_fatal;
    break;
  case (MPI_ERRORS_RETURN):
    mpi_errhandler_ = mpi_errhandler_errors_return;
    break;
  case (MPI_INTERNAL_USER_ERRHANDLE):
    break;
  default:
    err_err_rcif(1, MPI_ERR_OTHER);
  }
  return MPI_SUCCESS;
 err:
  err_ifm(1, "Unrecognised error handler %d", errhandler);
  mpi_errhandler_errors_are_fatal(&comm, &rc);
  return rc;
}
int MPI_Errhandler_set ( MPI_Comm comm , MPI_Errhandler errhandler ) { int rc ; err_err_rcif ( comm < 0 , MPI_ERR_COMM ) ; switch ( errhandler ) { case ( MPI_ERRORS_ARE_FATAL ) : mpi_errhandler_ = mpi_errhandler_errors_are_fatal ; break ; case ( MPI_ERRORS_RETURN ) : mpi_errhandler_ = mpi_errhandler_errors_return ; break ; case ( MPI_INTERNAL_USER_ERRHANDLE ) : break ; default : err_err_rcif ( 1 , MPI_ERR_OTHER ) ; } return MPI_SUCCESS ; err : err_ifm ( 1 , " " , errhandler ) ; mpi_errhandler_errors_are_fatal ( & comm , & rc ) ; return rc ; }
MPI_Errhandler_set
  \param  comm        expected to be MPI_COMM_WORLD
  \param  errhandler  the handle of the error handler to be set
MPI_Errhandler_set \ param comm expected to be MPI_COMM_WORLD \ param errhandler the handle of the error handler to be set
/* Use whatever has been previously set by MPI_Errhandler_create */