137   subroutine GetLayout(da, mx, xs, xe, gxs, gxe, ierr)  argument
142     PetscInt mx, xs, xe, gxs, gxe
150     xe = xs + xm - 1
154   subroutine FormIFunctionLocal(mx, xs, xe, gxs, gxe, x, xdot, f, a, k, s, ierr)  argument
156     PetscInt mx, xs, xe, gxs, gxe
157     PetscScalar x(2, xs:xe)
158     PetscScalar xdot(2, xs:xe)
159     PetscScalar f(2, xs:xe)
163     do i = xs, xe
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)
226     do i = 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))
311     do i = xs, xe
328   subroutine FormInitialSolutionLocal(mx, xs, xe, gxs, gxe, x, a, k, s, ierr)  argument
330     PetscInt mx, xs, xe, gxs, gxe
331     PetscScalar x(2, xs:xe)
339     do i = xs, xe
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))