int MPIO_Err_return_comm(MPI_Comm mpi_comm, int error_code) { /* note: MPI calls inside the MPICH implementation are prefixed * with an "N", indicating a nested call. */ MPI_Comm_call_errhandler(mpi_comm, error_code); return error_code; }
FORT_DLL_SPEC void FORT_CALL mpi_comm_call_errhandler_ ( MPI_Fint *v1, MPI_Fint *v2, MPI_Fint *ierr ){ *ierr = MPI_Comm_call_errhandler( (MPI_Comm)(*v1), (int)*v2 ); }