68   PetscInt     xs, ys, zs, xm, ym, zm, gxs, gys, gzs, gxm, gym, gzm, N, dim, dof;  in dmdavecgetarray1_()  local
73   *ierr = DMDAGetGhostCorners(*da, &gxs, &gys, &gzs, &gxm, &gym, &gzm);  in dmdavecgetarray1_()
83     gym = ym;  in dmdavecgetarray1_()
88   } else if (N != gxm * gym * gzm * dof) {  in dmdavecgetarray1_()
109   PetscInt     xs, ys, zs, xm, ym, zm, gxs, gys, gzs, gxm, gym, gzm, N, dim, dof;  in dmdavecgetarray2_()  local
114   *ierr = DMDAGetGhostCorners(*da, &gxs, &gys, &gzs, &gxm, &gym, &gzm);  in dmdavecgetarray2_()
124     gym = ym;  in dmdavecgetarray2_()
129   } else if (N != gxm * gym * gzm * dof) {  in dmdavecgetarray2_()
135     gym = gxm;  in dmdavecgetarray2_()
141   *ierr = F90Array2dCreate(aa, MPIU_SCALAR, gxs, gxm, gys, gym, a PETSC_F90_2PTR_PARAM(ptrd));  in dmdavecgetarray2_()
156   PetscInt     xs, ys, zs, xm, ym, zm, gxs, gys, gzs, gxm, gym, gzm, N, dim, dof;  in dmdavecgetarray3_()  local
161   *ierr = DMDAGetGhostCorners(*da, &gxs, &gys, &gzs, &gxm, &gym, &gzm);  in dmdavecgetarray3_()
171     gym = ym;  in dmdavecgetarray3_()
176   } else if (N != gxm * gym * gzm * dof) {  in dmdavecgetarray3_()
182     gzm = gym;  in dmdavecgetarray3_()
184     gym = gxm;  in dmdavecgetarray3_()
190 …*ierr = F90Array3dCreate(aa, MPIU_SCALAR, gxs, gxm, gys, gym, gzs, gzm, a PETSC_F90_2PTR_PARAM(ptr…  in dmdavecgetarray3_()
205   PetscInt     xs, ys, zs, xm, ym, zm, gxs, gys, gzs, gxm, gym, gzm, N, dim, dof, zero = 0;  in dmdavecgetarray4_()  local
210   *ierr = DMDAGetGhostCorners(*da, &gxs, &gys, &gzs, &gxm, &gym, &gzm);  in dmdavecgetarray4_()
220     gym = ym;  in dmdavecgetarray4_()
225   } else if (N != gxm * gym * gzm * dof) {  in dmdavecgetarray4_()
231 …*ierr = F90Array4dCreate(aa, MPIU_SCALAR, zero, dof, gxs, gxm, gys, gym, gzs, gzm, a PETSC_F90_2PT…  in dmdavecgetarray4_()
249   PetscInt           xs, ys, zs, xm, ym, zm, gxs, gys, gzs, gxm, gym, gzm, N, dim, dof;  in dmdavecgetarrayread1_()  local
254   *ierr = DMDAGetGhostCorners(*da, &gxs, &gys, &gzs, &gxm, &gym, &gzm);  in dmdavecgetarrayread1_()
264     gym = ym;  in dmdavecgetarrayread1_()
269   } else if (N != gxm * gym * gzm * dof) {  in dmdavecgetarrayread1_()
290   PetscInt           xs, ys, zs, xm, ym, zm, gxs, gys, gzs, gxm, gym, gzm, N, dim, dof;  in dmdavecgetarrayread2_()  local
295   *ierr = DMDAGetGhostCorners(*da, &gxs, &gys, &gzs, &gxm, &gym, &gzm);  in dmdavecgetarrayread2_()
305     gym = ym;  in dmdavecgetarrayread2_()
310   } else if (N != gxm * gym * gzm * dof) {  in dmdavecgetarrayread2_()
316     gym = gxm;  in dmdavecgetarrayread2_()
322 …*ierr = F90Array2dCreate((void *)aa, MPIU_SCALAR, gxs, gxm, gys, gym, a PETSC_F90_2PTR_PARAM(ptrd)…  in dmdavecgetarrayread2_()
337   PetscInt           xs, ys, zs, xm, ym, zm, gxs, gys, gzs, gxm, gym, gzm, N, dim, dof;  in dmdavecgetarrayread3_()  local
342   *ierr = DMDAGetGhostCorners(*da, &gxs, &gys, &gzs, &gxm, &gym, &gzm);  in dmdavecgetarrayread3_()
352     gym = ym;  in dmdavecgetarrayread3_()
357   } else if (N != gxm * gym * gzm * dof) {  in dmdavecgetarrayread3_()
363     gzm = gym;  in dmdavecgetarrayread3_()
365     gym = gxm;  in dmdavecgetarrayread3_()
371 …*ierr = F90Array3dCreate((void *)aa, MPIU_SCALAR, gxs, gxm, gys, gym, gzs, gzm, a PETSC_F90_2PTR_P…  in dmdavecgetarrayread3_()
386   PetscInt           xs, ys, zs, xm, ym, zm, gxs, gys, gzs, gxm, gym, gzm, N, dim, dof, zero = 0;  in dmdavecgetarrayread4_()  local
391   *ierr = DMDAGetGhostCorners(*da, &gxs, &gys, &gzs, &gxm, &gym, &gzm);  in dmdavecgetarrayread4_()
401     gym = ym;  in dmdavecgetarrayread4_()
406   } else if (N != gxm * gym * gzm * dof) {  in dmdavecgetarrayread4_()
412 …*ierr = F90Array4dCreate((void *)aa, MPIU_SCALAR, zero, dof, gxs, gxm, gys, gym, gzs, gzm, a PETSC…  in dmdavecgetarrayread4_()