Ejemplos de MPI_File_get_errhandler en C++ (Cpp)

Ejemplo n.º 1

Archivo: get_errhf.c Proyecto: ParaStation/psmpi2

FORTRAN_API void FORT_CALL mpi_file_get_errhandler_(MPI_Fint * fh, MPI_Fint * err_handler,
                                                    MPI_Fint * ierr)
{
    MPI_File fh_c;
    MPI_Errhandler err_handler_c;

    fh_c = MPI_File_f2c(*fh);
    *ierr = MPI_File_get_errhandler(fh_c, &err_handler_c);
    *err_handler = MPI_Errhandler_c2f(err_handler_c);
}

Ejemplo n.º 2

Archivo: file_get_errhandler_f.c Proyecto: aosm/openmpi

void mpi_file_get_errhandler_f(MPI_Fint *fh, MPI_Fint *errhandler, MPI_Fint *ierr)
{
    MPI_File c_fh;
    MPI_Errhandler c_errhandler;

    c_fh = MPI_File_f2c(*fh);
    
    *ierr = OMPI_INT_2_FINT(MPI_File_get_errhandler(c_fh, &c_errhandler));
    if (MPI_SUCCESS == OMPI_FINT_2_INT(*ierr)) {
        *errhandler = MPI_Errhandler_c2f(c_errhandler);
    }
}