int MPI_Add_error_code(int errorclass, int *errorcode) { int rank; PMPI_Comm_rank(MPI_COMM_WORLD, &rank); fprintf(stderr, "MPI_ADD_ERROR_CODE[%d]: errorclass %d errcode %0" PRIxPTR "\n", rank, errorclass, (uintptr_t)errorcode); fflush(stderr); return PMPI_Add_error_code(errorclass, errorcode); }
/** * Measurement wrapper for MPI_Add_error_code * @note Auto-generated by wrapgen from template: std.w * @note C interface * @note Introduced with MPI 2.0 * @ingroup err */ int MPI_Add_error_code(int errorclass, int* errorcode) { int return_val; if (IS_EVENT_GEN_ON_FOR(ERR)) { EVENT_GEN_OFF(); esd_enter(epk_mpi_regid[EPK__MPI_ADD_ERROR_CODE]); return_val = PMPI_Add_error_code(errorclass, errorcode); esd_exit(epk_mpi_regid[EPK__MPI_ADD_ERROR_CODE]); EVENT_GEN_ON(); } else { return_val = PMPI_Add_error_code(errorclass, errorcode); } return return_val; }
void ompi_add_error_code_f(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr) { int ierr_c; OMPI_SINGLE_NAME_DECL(errorcode); ierr_c = PMPI_Add_error_code(OMPI_FINT_2_INT(*errorclass), OMPI_SINGLE_NAME_CONVERT(errorcode) ); if (NULL != ierr) *ierr = OMPI_INT_2_FINT(ierr_c); if (MPI_SUCCESS == ierr_c) { OMPI_SINGLE_INT_2_FINT(errorcode); } }
int MPI_Add_error_code( int errorclass, int *errorcode){ return PMPI_Add_error_code(errorclass, errorcode); }