|
@@ -196,39 +196,36 @@ void _starpu_mpi_handle_free_datatype(starpu_data_handle_t data_handle, MPI_Data
|
|
|
|
|
|
char *_starpu_mpi_datatype(MPI_Datatype datatype)
|
|
|
{
|
|
|
- switch (datatype)
|
|
|
- {
|
|
|
- case MPI_DATATYPE_NULL : return "MPI_DATATYPE_NULL";
|
|
|
- case MPI_CHAR : return "MPI_CHAR";
|
|
|
- case MPI_UNSIGNED_CHAR : return "MPI_UNSIGNED_CHAR";
|
|
|
- case MPI_BYTE : return "MPI_BYTE";
|
|
|
- case MPI_SHORT : return "MPI_SHORT";
|
|
|
- case MPI_UNSIGNED_SHORT : return "MPI_UNSIGNED_SHORT";
|
|
|
- case MPI_INT : return "MPI_INT";
|
|
|
- case MPI_UNSIGNED : return "MPI_UNSIGNED";
|
|
|
- case MPI_LONG : return "MPI_LONG";
|
|
|
- case MPI_UNSIGNED_LONG : return "MPI_UNSIGNED_LONG";
|
|
|
- case MPI_FLOAT : return "MPI_FLOAT";
|
|
|
- case MPI_DOUBLE : return "MPI_DOUBLE";
|
|
|
- case MPI_LONG_DOUBLE : return "MPI_LONG_DOUBLE";
|
|
|
- case MPI_LONG_LONG : return "MPI_LONG_LONG";
|
|
|
- case MPI_LONG_INT : return "MPI_LONG_INT";
|
|
|
- case MPI_SHORT_INT : return "MPI_SHORT_INT";
|
|
|
- case MPI_FLOAT_INT : return "MPI_FLOAT_INT";
|
|
|
- case MPI_DOUBLE_INT : return "MPI_DOUBLE_INT";
|
|
|
- case MPI_2INT : return "MPI_2INT";
|
|
|
- case MPI_2DOUBLE_PRECISION : return "MPI_2DOUBLE_PRECISION";
|
|
|
- case MPI_COMPLEX : return "MPI_COMPLEX";
|
|
|
- case MPI_DOUBLE_COMPLEX : return "MPI_DOUBLE_COMPLEX";
|
|
|
- case MPI_LOGICAL : return "MPI_LOGICAL";
|
|
|
- case MPI_REAL : return "MPI_REAL";
|
|
|
- case MPI_REAL4 : return "MPI_REAL4";
|
|
|
- case MPI_REAL8 : return "MPI_REAL8";
|
|
|
- case MPI_DOUBLE_PRECISION : return "MPI_DOUBLE_PRECISION";
|
|
|
- case MPI_INTEGER : return "MPI_INTEGER";
|
|
|
- case MPI_INTEGER4 : return "MPI_INTEGER4";
|
|
|
- case MPI_INTEGER8 : return "MPI_INTEGER8";
|
|
|
- case MPI_PACKED : return "MPI_PACKED";
|
|
|
- default : return "User defined MPI Datatype";
|
|
|
- }
|
|
|
+ if (datatype == MPI_DATATYPE_NULL) return "MPI_DATATYPE_NULL";
|
|
|
+ if (datatype == MPI_CHAR) return "MPI_CHAR";
|
|
|
+ if (datatype == MPI_UNSIGNED_CHAR) return "MPI_UNSIGNED_CHAR";
|
|
|
+ if (datatype == MPI_BYTE) return "MPI_BYTE";
|
|
|
+ if (datatype == MPI_SHORT) return "MPI_SHORT";
|
|
|
+ if (datatype == MPI_UNSIGNED_SHORT) return "MPI_UNSIGNED_SHORT";
|
|
|
+ if (datatype == MPI_INT) return "MPI_INT";
|
|
|
+ if (datatype == MPI_UNSIGNED) return "MPI_UNSIGNED";
|
|
|
+ if (datatype == MPI_LONG) return "MPI_LONG";
|
|
|
+ if (datatype == MPI_UNSIGNED_LONG) return "MPI_UNSIGNED_LONG";
|
|
|
+ if (datatype == MPI_FLOAT) return "MPI_FLOAT";
|
|
|
+ if (datatype == MPI_DOUBLE) return "MPI_DOUBLE";
|
|
|
+ if (datatype == MPI_LONG_DOUBLE) return "MPI_LONG_DOUBLE";
|
|
|
+ if (datatype == MPI_LONG_LONG) return "MPI_LONG_LONG";
|
|
|
+ if (datatype == MPI_LONG_INT) return "MPI_LONG_INT";
|
|
|
+ if (datatype == MPI_SHORT_INT) return "MPI_SHORT_INT";
|
|
|
+ if (datatype == MPI_FLOAT_INT) return "MPI_FLOAT_INT";
|
|
|
+ if (datatype == MPI_DOUBLE_INT) return "MPI_DOUBLE_INT";
|
|
|
+ if (datatype == MPI_2INT) return "MPI_2INT";
|
|
|
+ if (datatype == MPI_2DOUBLE_PRECISION) return "MPI_2DOUBLE_PRECISION";
|
|
|
+ if (datatype == MPI_COMPLEX) return "MPI_COMPLEX";
|
|
|
+ if (datatype == MPI_DOUBLE_COMPLEX) return "MPI_DOUBLE_COMPLEX";
|
|
|
+ if (datatype == MPI_LOGICAL) return "MPI_LOGICAL";
|
|
|
+ if (datatype == MPI_REAL) return "MPI_REAL";
|
|
|
+ if (datatype == MPI_REAL4) return "MPI_REAL4";
|
|
|
+ if (datatype == MPI_REAL8) return "MPI_REAL8";
|
|
|
+ if (datatype == MPI_DOUBLE_PRECISION) return "MPI_DOUBLE_PRECISION";
|
|
|
+ if (datatype == MPI_INTEGER) return "MPI_INTEGER";
|
|
|
+ if (datatype == MPI_INTEGER4) return "MPI_INTEGER4";
|
|
|
+ if (datatype == MPI_INTEGER8) return "MPI_INTEGER8";
|
|
|
+ if (datatype == MPI_PACKED) return "MPI_PACKED";
|
|
|
+ return "User defined MPI Datatype";
|
|
|
}
|