/**
 * Measurement wrapper for MPI_Error_class
 * @note Auto-generated by wrapgen from template: std.w
 * @note C interface
 * @note Introduced with MPI 1.0
 * @ingroup err
 */
int MPI_Error_class(int  errorcode,
                    int* errorclass)
{
    int return_val;

    if (IS_EVENT_GEN_ON_FOR(ERR))
    {
        EVENT_GEN_OFF();
        esd_enter(epk_mpi_regid[EPK__MPI_ERROR_CLASS]);

        return_val = PMPI_Error_class(errorcode, errorclass);

        esd_exit(epk_mpi_regid[EPK__MPI_ERROR_CLASS]);
        EVENT_GEN_ON();
    }
    else
    {
        return_val = PMPI_Error_class(errorcode, errorclass);
    }

    return return_val;
}
Esempio n. 2
0
void ompi_error_class_f(MPI_Fint *errorcode, MPI_Fint *errorclass,
		       MPI_Fint *ierr)
{
    int c_ierr;
    OMPI_SINGLE_NAME_DECL(errorclass);

    c_ierr = PMPI_Error_class(OMPI_FINT_2_INT(*errorcode),
                             OMPI_SINGLE_NAME_CONVERT(errorclass));
    if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);

    if (MPI_SUCCESS == c_ierr) {
        OMPI_SINGLE_INT_2_FINT(errorclass);
    }
}
Esempio n. 3
0
int MPI_Error_class(int errorcode, int* errorclass) {
  return PMPI_Error_class(errorcode, errorclass);
}