137   subroutine GetLayout(da, mx, xs, xe, gxs, gxe, ierr)  argument
142     PetscInt mx, xs, xe, gxs, gxe
147 …PetscCall(DMDAGetGhostCorners(da, gxs, PETSC_NULL_INTEGER, PETSC_NULL_INTEGER, gxm, PETSC_NULL_INT…
149     gxs = gxs + 1
151     gxe = gxs + gxm - 1
154   subroutine FormIFunctionLocal(mx, xs, xe, gxs, gxe, x, xdot, f, a, k, s, ierr)  argument
156     PetscInt mx, xs, xe, gxs, gxe
180     PetscInt mx, xs, xe, gxs, gxe
184     PetscCall(GetLayout(da, mx, xs, xe, gxs, gxe, ierr))
191     PetscCall(FormIFunctionLocal(mx, xs, xe, gxs, gxe, xx, xxdot, ff, ctx%a, ctx%k, ctx%s, ierr))
198   subroutine FormRHSFunctionLocal(mx, xs, xe, gxs, gxe, t, x, f, a, k, s, ierr)  argument
200     PetscInt mx, xs, xe, gxs, gxe
202     PetscScalar x(2, gxs:gxe), f(2, xs:xe)
259     PetscInt mx, xs, xe, gxs, gxe
263     PetscCall(GetLayout(da, mx, xs, xe, gxs, gxe, ierr))
277     PetscCall(FormRHSFunctionLocal(mx, xs, xe, gxs, gxe, t, xx, ff, ctx%a, ctx%k, ctx%s, ierr))
300     PetscInt mx, xs, xe, gxs, gxe
306     PetscCall(GetLayout(da, mx, xs, xe, gxs, gxe, ierr))
312       row = i - gxs
313       col = i - gxs
328   subroutine FormInitialSolutionLocal(mx, xs, xe, gxs, gxe, x, a, k, s, ierr)  argument
330     PetscInt mx, xs, xe, gxs, gxe
361     PetscInt mx, xs, xe, gxs, gxe
365     PetscCall(GetLayout(da, mx, xs, xe, gxs, gxe, ierr))
370     PetscCall(FormInitialSolutionLocal(mx, xs, xe, gxs, gxe, xx, ctx%a, ctx%k, ctx%s, ierr))