コード例 #1
0
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);
}
コード例 #2
0
/**
 * 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;
}
コード例 #3
0
ファイル: add_error_code_f.c プロジェクト: 00datman/ompi
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);
    }
}
コード例 #4
0
ファイル: smpi_mpi.c プロジェクト: FlorianPO/simgrid
int MPI_Add_error_code(  int errorclass, int *errorcode){
  return PMPI_Add_error_code(errorclass, errorcode);
}