44   PetscInt mx
105   PetscCallA(GetLayout(da, mx, xs, xe, gxs, gxe, ierr))
131   PetscCallA(VecGetSize(X, mx, ierr))
133   dt = pone*max(ctx%a(1), ctx%a(2))/mx
147     PetscCallA(GetLayout(da, mx, xs, xe, gxs, gxe, ierr))
165   subroutine GetLayout(da, mx, xs, xe, gxs, gxe, ierr)  argument
170     PetscInt mx, xs, xe, gxs, gxe
173 …PetscCall(DMDAGetInfo(da, PETSC_NULL_INTEGER, mx, PETSC_NULL_INTEGER, PETSC_NULL_INTEGER, PETSC_NU…
182   subroutine FormIFunctionLocal(mx, xs, xe, gxs, gxe, x, xdot, f, a, k, s, ierr)  argument
184     PetscInt mx, xs, xe, gxs, gxe
209     PetscInt mx, xs, xe, gxs, gxe
213     PetscCall(GetLayout(da, mx, xs, xe, gxs, gxe, ierr))
220     PetscCall(FormIFunctionLocal(mx, xs, xe, gxs, gxe, xx, xxdot, ff, ctx%a, ctx%k, ctx%s, ierr))
227   subroutine FormRHSFunctionLocal(mx, xs, xe, gxs, gxe, t, x, f, a, k, s, ierr)  argument
229     PetscInt mx, xs, xe, gxs, gxe
246     hx = one/mx
260         else if (i == mx - 1) then
262         else if (i == mx) then
290     PetscInt mx, xs, xe, gxs, gxe
294     PetscCall(GetLayout(da, mx, xs, xe, gxs, gxe, ierr))
308     PetscCall(FormRHSFunctionLocal(mx, xs, xe, gxs, gxe, t, xx, ff, ctx%a, ctx%k, ctx%s, ierr))
332     PetscInt mx, xs, xe, gxs, gxe
338     PetscCall(GetLayout(da, mx, xs, xe, gxs, gxe, ierr))
360   subroutine FormInitialSolutionLocal(mx, xs, xe, gxs, gxe, x, a, k, s, ierr)  argument
362     PetscInt mx, xs, xe, gxs, gxe
370     hx = one/mx
394     PetscInt mx, xs, xe, gxs, gxe
398     PetscCall(GetLayout(da, mx, xs, xe, gxs, gxe, ierr))
403     PetscCall(FormInitialSolutionLocal(mx, xs, xe, gxs, gxe, xx, ctx%a, ctx%k, ctx%s, ierr))
449     PetscInt mx, xs, xe, gxs, gxe
458     PetscCall(GetLayout(da, mx, xs, xe, gxs, gxe, ierr))