void ompi_win_get_errhandler_f(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr) { int c_ierr; MPI_Errhandler c_err; MPI_Win c_win = PMPI_Win_f2c(*win); c_ierr = PMPI_Win_get_errhandler(c_win, &c_err); if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); if (MPI_SUCCESS == c_ierr) { *errhandler = PMPI_Errhandler_c2f(c_err); } }
int MPI_Win_get_errhandler(MPI_Win win, MPI_Errhandler *eh) { int rc = PMPI_Win_get_errhandler(win, eh); Errhandler2Callpath.allocate(*eh, chop); return rc; }