EXPORT_MPI_API void FORTRAN_API mpi_errhandler_get_( MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *__ierr ) { MPI_Errhandler l_errhandler; *__ierr = MPI_Errhandler_get( MPI_Comm_f2c(*comm), &l_errhandler ); *errhandler = MPI_Errhandler_c2f(l_errhandler); }
void f2cerrhandler_( MPI_Fint *errh ) { *errh = MPI_Errhandler_c2f( MPI_ERRORS_RETURN ); }