CREATE_MPI_DATATYPE(MPI_2INT, int_int);
CREATE_MPI_DATATYPE(MPI_LONG_DOUBLE_INT, long_double_int);
+// Internal use only
+CREATE_MPI_DATATYPE(MPI_PTR, void*);
+
size_t smpi_datatype_size(MPI_Datatype datatype)
{
*extent = datatype->ub - datatype->lb;
retval = MPI_SUCCESS;
}
- return MPI_SUCCESS;
+ return retval;
}
int smpi_datatype_copy(void *sendbuf, int sendcount, MPI_Datatype sendtype,