git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@8126
48e7efb5-ca39-0410-a469-
dd3cf9ba447f
}
static void max_func(void* a, void* b, int* length, MPI_Datatype* datatype) {
}
static void max_func(void* a, void* b, int* length, MPI_Datatype* datatype) {
- if(*datatype == MPI_SHORT) {
+ if(*datatype == MPI_CHAR) {
+ APPLY_FUNC(a, b, length, char, MAX_OP);
+ } else if(*datatype == MPI_SHORT) {
APPLY_FUNC(a, b, length, short, MAX_OP);
} else if(*datatype == MPI_INT) {
APPLY_FUNC(a, b, length, int, MAX_OP);
APPLY_FUNC(a, b, length, short, MAX_OP);
} else if(*datatype == MPI_INT) {
APPLY_FUNC(a, b, length, int, MAX_OP);
}
static void min_func(void* a, void* b, int* length, MPI_Datatype* datatype) {
}
static void min_func(void* a, void* b, int* length, MPI_Datatype* datatype) {
- if(*datatype == MPI_SHORT) {
+ if(*datatype == MPI_CHAR) {
+ APPLY_FUNC(a, b, length, char, MIN_OP);
+ } else if(*datatype == MPI_SHORT) {
APPLY_FUNC(a, b, length, short, MIN_OP);
} else if(*datatype == MPI_INT) {
APPLY_FUNC(a, b, length, int, MIN_OP);
APPLY_FUNC(a, b, length, short, MIN_OP);
} else if(*datatype == MPI_INT) {
APPLY_FUNC(a, b, length, int, MIN_OP);
}
static void sum_func(void* a, void* b, int* length, MPI_Datatype* datatype) {
}
static void sum_func(void* a, void* b, int* length, MPI_Datatype* datatype) {
- if(*datatype == MPI_SHORT) {
+ if(*datatype == MPI_CHAR) {
+ APPLY_FUNC(a, b, length, char, SUM_OP);
+ } else if(*datatype == MPI_SHORT) {
APPLY_FUNC(a, b, length, short, SUM_OP);
} else if(*datatype == MPI_INT) {
APPLY_FUNC(a, b, length, int, SUM_OP);
APPLY_FUNC(a, b, length, short, SUM_OP);
} else if(*datatype == MPI_INT) {
APPLY_FUNC(a, b, length, int, SUM_OP);
}
static void prod_func(void* a, void* b, int* length, MPI_Datatype* datatype) {
}
static void prod_func(void* a, void* b, int* length, MPI_Datatype* datatype) {
- if(*datatype == MPI_SHORT) {
+ if(*datatype == MPI_CHAR) {
+ APPLY_FUNC(a, b, length, char, PROD_OP);
+ } else if(*datatype == MPI_SHORT) {
APPLY_FUNC(a, b, length, short, PROD_OP);
} else if(*datatype == MPI_INT) {
APPLY_FUNC(a, b, length, int, PROD_OP);
APPLY_FUNC(a, b, length, short, PROD_OP);
} else if(*datatype == MPI_INT) {
APPLY_FUNC(a, b, length, int, PROD_OP);
}
static void land_func(void* a, void* b, int* length, MPI_Datatype* datatype) {
}
static void land_func(void* a, void* b, int* length, MPI_Datatype* datatype) {
- if(*datatype == MPI_SHORT) {
+ if(*datatype == MPI_CHAR) {
+ APPLY_FUNC(a, b, length, char, LAND_OP);
+ } else if(*datatype == MPI_SHORT) {
APPLY_FUNC(a, b, length, short, LAND_OP);
} else if(*datatype == MPI_INT) {
APPLY_FUNC(a, b, length, int, LAND_OP);
APPLY_FUNC(a, b, length, short, LAND_OP);
} else if(*datatype == MPI_INT) {
APPLY_FUNC(a, b, length, int, LAND_OP);
}
static void lor_func(void* a, void* b, int* length, MPI_Datatype* datatype) {
}
static void lor_func(void* a, void* b, int* length, MPI_Datatype* datatype) {
- if(*datatype == MPI_SHORT) {
+ if(*datatype == MPI_CHAR) {
+ APPLY_FUNC(a, b, length, char, LOR_OP);
+ } else if(*datatype == MPI_SHORT) {
APPLY_FUNC(a, b, length, short, LOR_OP);
} else if(*datatype == MPI_INT) {
APPLY_FUNC(a, b, length, int, LOR_OP);
APPLY_FUNC(a, b, length, short, LOR_OP);
} else if(*datatype == MPI_INT) {
APPLY_FUNC(a, b, length, int, LOR_OP);
}
static void lxor_func(void* a, void* b, int* length, MPI_Datatype* datatype) {
}
static void lxor_func(void* a, void* b, int* length, MPI_Datatype* datatype) {
- if(*datatype == MPI_SHORT) {
+ if(*datatype == MPI_CHAR) {
+ APPLY_FUNC(a, b, length, char, LXOR_OP);
+ } else if(*datatype == MPI_SHORT) {
APPLY_FUNC(a, b, length, short, LXOR_OP);
} else if(*datatype == MPI_INT) {
APPLY_FUNC(a, b, length, int, LXOR_OP);
APPLY_FUNC(a, b, length, short, LXOR_OP);
} else if(*datatype == MPI_INT) {
APPLY_FUNC(a, b, length, int, LXOR_OP);
}
static void band_func(void* a, void* b, int* length, MPI_Datatype* datatype) {
}
static void band_func(void* a, void* b, int* length, MPI_Datatype* datatype) {
- if(*datatype == MPI_SHORT) {
+ if(*datatype == MPI_CHAR) {
+ APPLY_FUNC(a, b, length, char, BAND_OP);
+ } if(*datatype == MPI_SHORT) {
APPLY_FUNC(a, b, length, short, BAND_OP);
} else if(*datatype == MPI_INT) {
APPLY_FUNC(a, b, length, int, BAND_OP);
APPLY_FUNC(a, b, length, short, BAND_OP);
} else if(*datatype == MPI_INT) {
APPLY_FUNC(a, b, length, int, BAND_OP);
}
static void bor_func(void* a, void* b, int* length, MPI_Datatype* datatype) {
}
static void bor_func(void* a, void* b, int* length, MPI_Datatype* datatype) {
- if(*datatype == MPI_SHORT) {
+ if(*datatype == MPI_CHAR) {
+ APPLY_FUNC(a, b, length, char, BOR_OP);
+ } else if(*datatype == MPI_SHORT) {
APPLY_FUNC(a, b, length, short, BOR_OP);
} else if(*datatype == MPI_INT) {
APPLY_FUNC(a, b, length, int, BOR_OP);
APPLY_FUNC(a, b, length, short, BOR_OP);
} else if(*datatype == MPI_INT) {
APPLY_FUNC(a, b, length, int, BOR_OP);
}
static void bxor_func(void* a, void* b, int* length, MPI_Datatype* datatype) {
}
static void bxor_func(void* a, void* b, int* length, MPI_Datatype* datatype) {
- if(*datatype == MPI_SHORT) {
+ if(*datatype == MPI_CHAR) {
+ APPLY_FUNC(a, b, length, char, BXOR_OP);
+ } else if(*datatype == MPI_SHORT) {
APPLY_FUNC(a, b, length, short, BXOR_OP);
} else if(*datatype == MPI_INT) {
APPLY_FUNC(a, b, length, int, BXOR_OP);
APPLY_FUNC(a, b, length, short, BXOR_OP);
} else if(*datatype == MPI_INT) {
APPLY_FUNC(a, b, length, int, BXOR_OP);