static int create_subarray(int ndims, int* array_of_sizes,
int* array_of_subsizes, int* array_of_starts,
int order, MPI_Datatype oldtype, MPI_Datatype *newtype);
static int create_subarray(int ndims, int* array_of_sizes,
int* array_of_subsizes, int* array_of_starts,
int order, MPI_Datatype oldtype, MPI_Datatype *newtype);