CREATE_MPI_DATATYPE(MPI_REAL4, 39, float);
CREATE_MPI_DATATYPE(MPI_REAL8, 40, float);
CREATE_MPI_DATATYPE(MPI_REAL16, 41, double);
CREATE_MPI_DATATYPE(MPI_REAL4, 39, float);
CREATE_MPI_DATATYPE(MPI_REAL8, 40, float);
CREATE_MPI_DATATYPE(MPI_REAL16, 41, double);