| H A D | ex22f.F90 | 137 subroutine GetLayout(da, mx, xs, xe, gxs, gxe, ierr) argument
142 PetscInt mx, xs, xe, gxs, gxe
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
[all …]
|