C++ (Cpp) PMPI_Errhandler_c2f Beispiele

Beispiel #1

Datei: win_get_errhandler_f.c Projekt: 00datman/ompi

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);
    }
}

Beispiel #2

Datei: smpi_mpi.c Projekt: FlorianPO/simgrid

MPI_Fint MPI_Errhandler_c2f(MPI_Errhandler errhandler){
  return PMPI_Errhandler_c2f(errhandler);
}