*ierr = MPI_Type_create_subarray(*ndims,array_of_sizes, array_of_subsizes, array_of_starts, *order,
simgrid::smpi::Datatype::f2c(*oldtype), &tmp);
if(*ierr == MPI_SUCCESS) {
*ierr = MPI_Type_create_subarray(*ndims,array_of_sizes, array_of_subsizes, array_of_starts, *order,
simgrid::smpi::Datatype::f2c(*oldtype), &tmp);
if(*ierr == MPI_SUCCESS) {