Esempio n. 1
0
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);
}
Esempio n. 2
0
void f2cerrhandler_( MPI_Fint *errh )
{
    *errh = MPI_Errhandler_c2f( MPI_ERRORS_RETURN );
}