int Datatype::create_subarray(int ndims, int* array_of_sizes,
int* array_of_subsizes, int* array_of_starts,
int order, MPI_Datatype oldtype, MPI_Datatype *newtype){
int Datatype::create_subarray(int ndims, int* array_of_sizes,
int* array_of_subsizes, int* array_of_starts,
int order, MPI_Datatype oldtype, MPI_Datatype *newtype){
if (array_of_subsizes[i] > array_of_sizes[i]){
XBT_WARN("subarray : array_of_subsizes > array_of_sizes for dim %d",i);
return MPI_ERR_ARG;
if (array_of_subsizes[i] > array_of_sizes[i]){
XBT_WARN("subarray : array_of_subsizes > array_of_sizes for dim %d",i);
return MPI_ERR_ARG;