Lines Matching refs:tsdm
4 static PetscErrorCode DMTSUnsetRHSFunctionContext_DMTS(DMTS tsdm) in DMTSUnsetRHSFunctionContext_DMTS() argument
7 PetscCall(PetscObjectCompose((PetscObject)tsdm, "rhs function ctx", NULL)); in DMTSUnsetRHSFunctionContext_DMTS()
8 tsdm->rhsfunctionctxcontainer = NULL; in DMTSUnsetRHSFunctionContext_DMTS()
12 static PetscErrorCode DMTSUnsetRHSJacobianContext_DMTS(DMTS tsdm) in DMTSUnsetRHSJacobianContext_DMTS() argument
15 PetscCall(PetscObjectCompose((PetscObject)tsdm, "rhs jacobian ctx", NULL)); in DMTSUnsetRHSJacobianContext_DMTS()
16 tsdm->rhsjacobianctxcontainer = NULL; in DMTSUnsetRHSJacobianContext_DMTS()
20 static PetscErrorCode DMTSUnsetIFunctionContext_DMTS(DMTS tsdm) in DMTSUnsetIFunctionContext_DMTS() argument
23 PetscCall(PetscObjectCompose((PetscObject)tsdm, "ifunction ctx", NULL)); in DMTSUnsetIFunctionContext_DMTS()
24 tsdm->ifunctionctxcontainer = NULL; in DMTSUnsetIFunctionContext_DMTS()
28 static PetscErrorCode DMTSUnsetIJacobianContext_DMTS(DMTS tsdm) in DMTSUnsetIJacobianContext_DMTS() argument
31 PetscCall(PetscObjectCompose((PetscObject)tsdm, "ijacobian ctx", NULL)); in DMTSUnsetIJacobianContext_DMTS()
32 tsdm->ijacobianctxcontainer = NULL; in DMTSUnsetIJacobianContext_DMTS()
36 static PetscErrorCode DMTSUnsetI2FunctionContext_DMTS(DMTS tsdm) in DMTSUnsetI2FunctionContext_DMTS() argument
39 PetscCall(PetscObjectCompose((PetscObject)tsdm, "i2function ctx", NULL)); in DMTSUnsetI2FunctionContext_DMTS()
40 tsdm->i2functionctxcontainer = NULL; in DMTSUnsetI2FunctionContext_DMTS()
44 static PetscErrorCode DMTSUnsetI2JacobianContext_DMTS(DMTS tsdm) in DMTSUnsetI2JacobianContext_DMTS() argument
47 PetscCall(PetscObjectCompose((PetscObject)tsdm, "i2jacobian ctx", NULL)); in DMTSUnsetI2JacobianContext_DMTS()
48 tsdm->i2jacobianctxcontainer = NULL; in DMTSUnsetI2JacobianContext_DMTS()
274 PetscErrorCode DMGetDMTS(DM dm, DMTS *tsdm) in DMGetDMTS() argument
278 *tsdm = (DMTS)dm->dmts; in DMGetDMTS()
279 if (!*tsdm) { in DMGetDMTS()
281 PetscCall(DMTSCreate(PetscObjectComm((PetscObject)dm), tsdm)); in DMGetDMTS()
282 dm->dmts = (PetscObject)*tsdm; in DMGetDMTS()
283 (*tsdm)->originaldm = dm; in DMGetDMTS()
305 PetscErrorCode DMGetDMTSWrite(DM dm, DMTS *tsdm) in DMGetDMTSWrite() argument
322 *tsdm = sdm; in DMGetDMTSWrite()
376 DMTS tsdm; in DMTSSetIFunction() local
380 PetscCall(DMGetDMTSWrite(dm, &tsdm)); in DMTSSetIFunction()
381 if (func) tsdm->ops->ifunction = func; in DMTSSetIFunction()
384 PetscCall(PetscContainerCreate(PetscObjectComm((PetscObject)tsdm), &ctxcontainer)); in DMTSSetIFunction()
386 PetscCall(PetscObjectCompose((PetscObject)tsdm, "ifunction ctx", (PetscObject)ctxcontainer)); in DMTSSetIFunction()
387 tsdm->ifunctionctxcontainer = ctxcontainer; in DMTSSetIFunction()
408 DMTS tsdm; in DMTSSetIFunctionContextDestroy() local
412 PetscCall(DMGetDMTSWrite(dm, &tsdm)); in DMTSSetIFunctionContextDestroy()
413 …if (tsdm->ifunctionctxcontainer) PetscCall(PetscContainerSetCtxDestroy(tsdm->ifunctionctxcontainer… in DMTSSetIFunctionContextDestroy()
419 DMTS tsdm; in DMTSUnsetIFunctionContext_Internal() local
423 PetscCall(DMGetDMTSWrite(dm, &tsdm)); in DMTSUnsetIFunctionContext_Internal()
424 PetscCall(DMTSUnsetIFunctionContext_DMTS(tsdm)); in DMTSUnsetIFunctionContext_Internal()
450 DMTS tsdm; in DMTSGetIFunction() local
454 PetscCall(DMGetDMTS(dm, &tsdm)); in DMTSGetIFunction()
455 if (func) *func = tsdm->ops->ifunction; in DMTSGetIFunction()
457 …if (tsdm->ifunctionctxcontainer) PetscCall(PetscContainerGetPointer(tsdm->ifunctionctxcontainer, c… in DMTSGetIFunction()
483 DMTS tsdm; in DMTSSetI2Function() local
487 PetscCall(DMGetDMTSWrite(dm, &tsdm)); in DMTSSetI2Function()
488 if (fun) tsdm->ops->i2function = fun; in DMTSSetI2Function()
491 PetscCall(PetscContainerCreate(PetscObjectComm((PetscObject)tsdm), &ctxcontainer)); in DMTSSetI2Function()
493 PetscCall(PetscObjectCompose((PetscObject)tsdm, "i2function ctx", (PetscObject)ctxcontainer)); in DMTSSetI2Function()
494 tsdm->i2functionctxcontainer = ctxcontainer; in DMTSSetI2Function()
519 DMTS tsdm; in DMTSSetI2FunctionContextDestroy() local
523 PetscCall(DMGetDMTSWrite(dm, &tsdm)); in DMTSSetI2FunctionContextDestroy()
524 …if (tsdm->i2functionctxcontainer) PetscCall(PetscContainerSetCtxDestroy(tsdm->i2functionctxcontain… in DMTSSetI2FunctionContextDestroy()
530 DMTS tsdm; in DMTSUnsetI2FunctionContext_Internal() local
534 PetscCall(DMGetDMTSWrite(dm, &tsdm)); in DMTSUnsetI2FunctionContext_Internal()
535 PetscCall(DMTSUnsetI2FunctionContext_DMTS(tsdm)); in DMTSUnsetI2FunctionContext_Internal()
561 DMTS tsdm; in DMTSGetI2Function() local
565 PetscCall(DMGetDMTS(dm, &tsdm)); in DMTSGetI2Function()
566 if (fun) *fun = tsdm->ops->i2function; in DMTSGetI2Function()
568 …if (tsdm->i2functionctxcontainer) PetscCall(PetscContainerGetPointer(tsdm->i2functionctxcontainer,… in DMTSGetI2Function()
594 DMTS tsdm; in DMTSSetI2Jacobian() local
598 PetscCall(DMGetDMTSWrite(dm, &tsdm)); in DMTSSetI2Jacobian()
599 if (jac) tsdm->ops->i2jacobian = jac; in DMTSSetI2Jacobian()
602 PetscCall(PetscContainerCreate(PetscObjectComm((PetscObject)tsdm), &ctxcontainer)); in DMTSSetI2Jacobian()
604 PetscCall(PetscObjectCompose((PetscObject)tsdm, "i2jacobian ctx", (PetscObject)ctxcontainer)); in DMTSSetI2Jacobian()
605 tsdm->i2jacobianctxcontainer = ctxcontainer; in DMTSSetI2Jacobian()
629 DMTS tsdm; in DMTSSetI2JacobianContextDestroy() local
633 PetscCall(DMGetDMTSWrite(dm, &tsdm)); in DMTSSetI2JacobianContextDestroy()
634 …if (tsdm->i2jacobianctxcontainer) PetscCall(PetscContainerSetCtxDestroy(tsdm->i2jacobianctxcontain… in DMTSSetI2JacobianContextDestroy()
640 DMTS tsdm; in DMTSUnsetI2JacobianContext_Internal() local
644 PetscCall(DMGetDMTSWrite(dm, &tsdm)); in DMTSUnsetI2JacobianContext_Internal()
645 PetscCall(DMTSUnsetI2JacobianContext_DMTS(tsdm)); in DMTSUnsetI2JacobianContext_Internal()
671 DMTS tsdm; in DMTSGetI2Jacobian() local
675 PetscCall(DMGetDMTS(dm, &tsdm)); in DMTSGetI2Jacobian()
676 if (jac) *jac = tsdm->ops->i2jacobian; in DMTSGetI2Jacobian()
678 …if (tsdm->i2jacobianctxcontainer) PetscCall(PetscContainerGetPointer(tsdm->i2jacobianctxcontainer,… in DMTSGetI2Jacobian()
705 DMTS tsdm; in DMTSSetRHSFunction() local
709 PetscCall(DMGetDMTSWrite(dm, &tsdm)); in DMTSSetRHSFunction()
710 if (func) tsdm->ops->rhsfunction = func; in DMTSSetRHSFunction()
713 PetscCall(PetscContainerCreate(PetscObjectComm((PetscObject)tsdm), &ctxcontainer)); in DMTSSetRHSFunction()
715 PetscCall(PetscObjectCompose((PetscObject)tsdm, "rhs function ctx", (PetscObject)ctxcontainer)); in DMTSSetRHSFunction()
716 tsdm->rhsfunctionctxcontainer = ctxcontainer; in DMTSSetRHSFunction()
745 DMTS tsdm; in DMTSSetRHSFunctionContextDestroy() local
749 PetscCall(DMGetDMTSWrite(dm, &tsdm)); in DMTSSetRHSFunctionContextDestroy()
750 …if (tsdm->rhsfunctionctxcontainer) PetscCall(PetscContainerSetCtxDestroy(tsdm->rhsfunctionctxconta… in DMTSSetRHSFunctionContextDestroy()
756 DMTS tsdm; in DMTSUnsetRHSFunctionContext_Internal() local
760 PetscCall(DMGetDMTSWrite(dm, &tsdm)); in DMTSUnsetRHSFunctionContext_Internal()
761 PetscCall(DMTSUnsetRHSFunctionContext_DMTS(tsdm)); in DMTSUnsetRHSFunctionContext_Internal()
762 tsdm->rhsfunctionctxcontainer = NULL; in DMTSUnsetRHSFunctionContext_Internal()
854 DMTS tsdm; in DMTSGetSolutionFunction() local
858 PetscCall(DMGetDMTS(dm, &tsdm)); in DMTSGetSolutionFunction()
859 if (func) *func = tsdm->ops->solution; in DMTSGetSolutionFunction()
860 if (ctx) *(void **)ctx = tsdm->solutionctx; in DMTSGetSolutionFunction()
885 DMTS tsdm; in DMTSSetSolutionFunction() local
889 PetscCall(DMGetDMTSWrite(dm, &tsdm)); in DMTSSetSolutionFunction()
890 if (func) tsdm->ops->solution = func; in DMTSSetSolutionFunction()
891 if (ctx) tsdm->solutionctx = ctx; in DMTSSetSolutionFunction()
916 DMTS tsdm; in DMTSSetForcingFunction() local
920 PetscCall(DMGetDMTSWrite(dm, &tsdm)); in DMTSSetForcingFunction()
921 if (func) tsdm->ops->forcing = func; in DMTSSetForcingFunction()
922 if (ctx) tsdm->forcingctx = ctx; in DMTSSetForcingFunction()
949 DMTS tsdm; in DMTSGetForcingFunction() local
953 PetscCall(DMGetDMTSWrite(dm, &tsdm)); in DMTSGetForcingFunction()
954 if (f) *f = tsdm->ops->forcing; in DMTSGetForcingFunction()
955 if (ctx) *(void **)ctx = tsdm->forcingctx; in DMTSGetForcingFunction()
981 DMTS tsdm; in DMTSGetRHSFunction() local
985 PetscCall(DMGetDMTS(dm, &tsdm)); in DMTSGetRHSFunction()
986 if (func) *func = tsdm->ops->rhsfunction; in DMTSGetRHSFunction()
988 …if (tsdm->rhsfunctionctxcontainer) PetscCall(PetscContainerGetPointer(tsdm->rhsfunctionctxcontaine… in DMTSGetRHSFunction()
1015 DMTS tsdm; in DMTSSetIJacobian() local
1019 PetscCall(DMGetDMTSWrite(dm, &tsdm)); in DMTSSetIJacobian()
1020 if (func) tsdm->ops->ijacobian = func; in DMTSSetIJacobian()
1023 PetscCall(PetscContainerCreate(PetscObjectComm((PetscObject)tsdm), &ctxcontainer)); in DMTSSetIJacobian()
1025 PetscCall(PetscObjectCompose((PetscObject)tsdm, "ijacobian ctx", (PetscObject)ctxcontainer)); in DMTSSetIJacobian()
1026 tsdm->ijacobianctxcontainer = ctxcontainer; in DMTSSetIJacobian()
1055 DMTS tsdm; in DMTSSetIJacobianContextDestroy() local
1059 PetscCall(DMGetDMTSWrite(dm, &tsdm)); in DMTSSetIJacobianContextDestroy()
1060 …if (tsdm->ijacobianctxcontainer) PetscCall(PetscContainerSetCtxDestroy(tsdm->ijacobianctxcontainer… in DMTSSetIJacobianContextDestroy()
1066 DMTS tsdm; in DMTSUnsetIJacobianContext_Internal() local
1070 PetscCall(DMGetDMTSWrite(dm, &tsdm)); in DMTSUnsetIJacobianContext_Internal()
1071 PetscCall(DMTSUnsetIJacobianContext_DMTS(tsdm)); in DMTSUnsetIJacobianContext_Internal()
1098 DMTS tsdm; in DMTSGetIJacobian() local
1102 PetscCall(DMGetDMTS(dm, &tsdm)); in DMTSGetIJacobian()
1103 if (func) *func = tsdm->ops->ijacobian; in DMTSGetIJacobian()
1105 …if (tsdm->ijacobianctxcontainer) PetscCall(PetscContainerGetPointer(tsdm->ijacobianctxcontainer, c… in DMTSGetIJacobian()
1135 DMTS tsdm; in DMTSSetRHSJacobian() local
1139 PetscCall(DMGetDMTSWrite(dm, &tsdm)); in DMTSSetRHSJacobian()
1140 if (func) tsdm->ops->rhsjacobian = func; in DMTSSetRHSJacobian()
1143 PetscCall(PetscContainerCreate(PetscObjectComm((PetscObject)tsdm), &ctxcontainer)); in DMTSSetRHSJacobian()
1145 PetscCall(PetscObjectCompose((PetscObject)tsdm, "rhs jacobian ctx", (PetscObject)ctxcontainer)); in DMTSSetRHSJacobian()
1146 tsdm->rhsjacobianctxcontainer = ctxcontainer; in DMTSSetRHSJacobian()
1170 DMTS tsdm; in DMTSSetRHSJacobianContextDestroy() local
1174 PetscCall(DMGetDMTSWrite(dm, &tsdm)); in DMTSSetRHSJacobianContextDestroy()
1175 …if (tsdm->rhsjacobianctxcontainer) PetscCall(PetscContainerSetCtxDestroy(tsdm->rhsjacobianctxconta… in DMTSSetRHSJacobianContextDestroy()
1181 DMTS tsdm; in DMTSUnsetRHSJacobianContext_Internal() local
1185 PetscCall(DMGetDMTSWrite(dm, &tsdm)); in DMTSUnsetRHSJacobianContext_Internal()
1186 PetscCall(DMTSUnsetRHSJacobianContext_DMTS(tsdm)); in DMTSUnsetRHSJacobianContext_Internal()
1213 DMTS tsdm; in DMTSGetRHSJacobian() local
1217 PetscCall(DMGetDMTS(dm, &tsdm)); in DMTSGetRHSJacobian()
1218 if (func) *func = tsdm->ops->rhsjacobian; in DMTSGetRHSJacobian()
1220 …if (tsdm->rhsjacobianctxcontainer) PetscCall(PetscContainerGetPointer(tsdm->rhsjacobianctxcontaine… in DMTSGetRHSJacobian()
1242 DMTS tsdm; in DMTSSetIFunctionSerialize() local
1246 PetscCall(DMGetDMTSWrite(dm, &tsdm)); in DMTSSetIFunctionSerialize()
1247 tsdm->ops->ifunctionview = view; in DMTSSetIFunctionSerialize()
1248 tsdm->ops->ifunctionload = load; in DMTSSetIFunctionSerialize()
1268 DMTS tsdm; in DMTSSetIJacobianSerialize() local
1272 PetscCall(DMGetDMTSWrite(dm, &tsdm)); in DMTSSetIJacobianSerialize()
1273 tsdm->ops->ijacobianview = view; in DMTSSetIJacobianSerialize()
1274 tsdm->ops->ijacobianload = load; in DMTSSetIJacobianSerialize()