96   TSDAESimple_Reduced *red   = (TSDAESimple_Reduced *)tsdae->data;  in TSDAESimple_Reduced_TSFunction()  local
99   red->t = t;  in TSDAESimple_Reduced_TSFunction()
100   red->U = U;  in TSDAESimple_Reduced_TSFunction()
101   PetscCall(SNESSolve(red->snes, NULL, tsdae->V));  in TSDAESimple_Reduced_TSFunction()
113   TSDAESimple_Reduced *red   = (TSDAESimple_Reduced *)tsdae->data;  in TSDAESimple_Reduced_SNESFunction()  local
116   PetscCall((*tsdae->F)(red->t, red->U, V, F, tsdae->Fctx));  in TSDAESimple_Reduced_SNESFunction()
122   TSDAESimple_Reduced *red = (TSDAESimple_Reduced *)tsdae->data;  in TSDAESimpleSolve_Reduced()  local
125   PetscCall(TSSolve(red->ts, U));  in TSDAESimpleSolve_Reduced()
131   TSDAESimple_Reduced *red = (TSDAESimple_Reduced *)tsdae->data;  in TSDAESimpleSetFromOptions_Reduced()  local
134   PetscCall(TSSetFromOptions(red->ts));  in TSDAESimpleSetFromOptions_Reduced()
135   PetscCall(SNESSetFromOptions(red->snes));  in TSDAESimpleSetFromOptions_Reduced()
141   TSDAESimple_Reduced *red = (TSDAESimple_Reduced *)tsdae->data;  in TSDAESimpleDestroy_Reduced()  local
144   PetscCall(TSDestroy(&red->ts));  in TSDAESimpleDestroy_Reduced()
145   PetscCall(SNESDestroy(&red->snes));  in TSDAESimpleDestroy_Reduced()
146   PetscCall(PetscFree(red));  in TSDAESimpleDestroy_Reduced()
152   TSDAESimple_Reduced *red;  in TSDAESimpleSetUp_Reduced()  local
156   PetscCall(PetscNew(&red));  in TSDAESimpleSetUp_Reduced()
157   tsdae->data = red;  in TSDAESimpleSetUp_Reduced()
163   PetscCall(TSCreate(tsdae->comm, &red->ts));  in TSDAESimpleSetUp_Reduced()
164   PetscCall(TSSetProblemType(red->ts, TS_NONLINEAR));  in TSDAESimpleSetUp_Reduced()
165   PetscCall(TSSetType(red->ts, TSEULER));  in TSDAESimpleSetUp_Reduced()
166   PetscCall(TSSetExactFinalTime(red->ts, TS_EXACTFINALTIME_STEPOVER));  in TSDAESimpleSetUp_Reduced()
168   PetscCall(TSSetRHSFunction(red->ts, tsrhs, TSDAESimple_Reduced_TSFunction, tsdae));  in TSDAESimpleSetUp_Reduced()
171   PetscCall(SNESCreate(tsdae->comm, &red->snes));  in TSDAESimpleSetUp_Reduced()
172   PetscCall(SNESSetOptionsPrefix(red->snes, "tsdaesimple_"));  in TSDAESimpleSetUp_Reduced()
173   PetscCall(SNESSetFunction(red->snes, NULL, TSDAESimple_Reduced_SNESFunction, tsdae));  in TSDAESimpleSetUp_Reduced()
174   PetscCall(SNESSetJacobian(red->snes, NULL, NULL, SNESComputeJacobianDefault, tsdae));  in TSDAESimpleSetUp_Reduced()