35 static PetscErrorCode DMDATSGetContext(DM dm, DMTS sdm, DMTS_DA **dmdats)  in DMDATSGetContext()  argument
38   *dmdats = NULL;  in DMDATSGetContext()
44   *dmdats = (DMTS_DA *)sdm->data;  in DMDATSGetContext()
51   DMTS_DA      *dmdats = (DMTS_DA *)ctx;  in TSComputeIFunction_DMDA()  local
60 …PetscCheck(dmdats->ifunctionlocal, PetscObjectComm((PetscObject)ts), PETSC_ERR_PLIB, "Corrupt cont…  in TSComputeIFunction_DMDA()
71   switch (dmdats->ifunctionlocalimode) {  in TSComputeIFunction_DMDA()
75     PetscCall((*dmdats->ifunctionlocal)(&info, ptime, x, xdot, f, dmdats->ifunctionlocalctx));  in TSComputeIFunction_DMDA()
85     PetscCall((*dmdats->ifunctionlocal)(&info, ptime, x, xdot, f, dmdats->ifunctionlocalctx));  in TSComputeIFunction_DMDA()
94 …Comm((PetscObject)ts), PETSC_ERR_ARG_INCOMP, "Cannot use imode=%d", (int)dmdats->ifunctionlocalimo…  in TSComputeIFunction_DMDA()
106   DMTS_DA      *dmdats = (DMTS_DA *)ctx;  in TSComputeIJacobian_DMDA()  local
112 …PetscCheck(dmdats->ifunctionlocal, PetscObjectComm((PetscObject)ts), PETSC_ERR_PLIB, "Corrupt cont…  in TSComputeIJacobian_DMDA()
115 …PetscCheck(dmdats->ijacobianlocal, PetscObjectComm((PetscObject)ts), PETSC_ERR_PLIB, "TSComputeIJa…  in TSComputeIJacobian_DMDA()
126 …PetscCall((*dmdats->ijacobianlocal)(&info, ptime, x, xdot, shift, A, B, dmdats->ijacobianlocalctx)…  in TSComputeIJacobian_DMDA()
143   DMTS_DA      *dmdats = (DMTS_DA *)ctx;  in TSComputeRHSFunction_DMDA()  local
152 …PetscCheck(dmdats->rhsfunctionlocal, PetscObjectComm((PetscObject)ts), PETSC_ERR_PLIB, "Corrupt co…  in TSComputeRHSFunction_DMDA()
159   switch (dmdats->rhsfunctionlocalimode) {  in TSComputeRHSFunction_DMDA()
163     PetscCall((*dmdats->rhsfunctionlocal)(&info, ptime, x, f, dmdats->rhsfunctionlocalctx));  in TSComputeRHSFunction_DMDA()
173     PetscCall((*dmdats->rhsfunctionlocal)(&info, ptime, x, f, dmdats->rhsfunctionlocalctx));  in TSComputeRHSFunction_DMDA()
182 …Comm((PetscObject)ts), PETSC_ERR_ARG_INCOMP, "Cannot use imode=%d", (int)dmdats->rhsfunctionlocali…  in TSComputeRHSFunction_DMDA()
192   DMTS_DA      *dmdats = (DMTS_DA *)ctx;  in TSComputeRHSJacobian_DMDA()  local
198 …PetscCheck(dmdats->rhsfunctionlocal, PetscObjectComm((PetscObject)ts), PETSC_ERR_PLIB, "Corrupt co…  in TSComputeRHSJacobian_DMDA()
201 …PetscCheck(dmdats->rhsjacobianlocal, PetscObjectComm((PetscObject)ts), PETSC_ERR_PLIB, "TSComputeR…  in TSComputeRHSJacobian_DMDA()
208   PetscCall((*dmdats->rhsjacobianlocal)(&info, ptime, x, A, B, dmdats->rhsjacobianlocalctx));  in TSComputeRHSJacobian_DMDA()
238   DMTS_DA *dmdats;  in DMDATSSetRHSFunctionLocal()  local
243   PetscCall(DMDATSGetContext(dm, sdm, &dmdats));  in DMDATSSetRHSFunctionLocal()
244   dmdats->rhsfunctionlocalimode = imode;  in DMDATSSetRHSFunctionLocal()
245   dmdats->rhsfunctionlocal      = func;  in DMDATSSetRHSFunctionLocal()
246   dmdats->rhsfunctionlocalctx   = ctx;  in DMDATSSetRHSFunctionLocal()
247   PetscCall(DMTSSetRHSFunction(dm, TSComputeRHSFunction_DMDA, dmdats));  in DMDATSSetRHSFunctionLocal()
269   DMTS_DA *dmdats;  in DMDATSSetRHSJacobianLocal()  local
274   PetscCall(DMDATSGetContext(dm, sdm, &dmdats));  in DMDATSSetRHSJacobianLocal()
275   dmdats->rhsjacobianlocal    = func;  in DMDATSSetRHSJacobianLocal()
276   dmdats->rhsjacobianlocalctx = ctx;  in DMDATSSetRHSJacobianLocal()
277   PetscCall(DMTSSetRHSJacobian(dm, TSComputeRHSJacobian_DMDA, dmdats));  in DMDATSSetRHSJacobianLocal()
300   DMTS_DA *dmdats;  in DMDATSSetIFunctionLocal()  local
305   PetscCall(DMDATSGetContext(dm, sdm, &dmdats));  in DMDATSSetIFunctionLocal()
306   dmdats->ifunctionlocalimode = imode;  in DMDATSSetIFunctionLocal()
307   dmdats->ifunctionlocal      = func;  in DMDATSSetIFunctionLocal()
308   dmdats->ifunctionlocalctx   = ctx;  in DMDATSSetIFunctionLocal()
309   PetscCall(DMTSSetIFunction(dm, TSComputeIFunction_DMDA, dmdats));  in DMDATSSetIFunctionLocal()
331   DMTS_DA *dmdats;  in DMDATSSetIJacobianLocal()  local
336   PetscCall(DMDATSGetContext(dm, sdm, &dmdats));  in DMDATSSetIJacobianLocal()
337   dmdats->ijacobianlocal    = func;  in DMDATSSetIJacobianLocal()
338   dmdats->ijacobianlocalctx = ctx;  in DMDATSSetIJacobianLocal()
339   PetscCall(DMTSSetIJacobian(dm, TSComputeIJacobian_DMDA, dmdats));  in DMDATSSetIJacobianLocal()