43   PetscInt mx
111   PetscCallA(VecGetSize(X, mx, ierr))
113   dt = pone*max(ctx%a(1), ctx%a(2))/mx
137   subroutine GetLayout(da, mx, xs, xe, gxs, gxe, ierr)  argument
142     PetscInt mx, xs, xe, gxs, gxe
145 …PetscCall(DMDAGetInfo(da, PETSC_NULL_INTEGER, mx, PETSC_NULL_INTEGER, PETSC_NULL_INTEGER, PETSC_NU…
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
217     hx = one/mx
234         else if (i == mx - 1) then
237         else if (i == mx) then
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))
328   subroutine FormInitialSolutionLocal(mx, xs, xe, gxs, gxe, x, a, k, s, ierr)  argument
330     PetscInt mx, xs, xe, gxs, gxe
338     hx = one/mx
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))