Lines Matching refs:full
200 TSDAESimple_Full *full = (TSDAESimple_Full *)tsdae->data; in TSDAESimple_Full_TSRHSFunction() local
204 PetscCall(VecScatterBegin(full->scatterU, UV, tsdae->U, INSERT_VALUES, SCATTER_REVERSE)); in TSDAESimple_Full_TSRHSFunction()
205 PetscCall(VecScatterEnd(full->scatterU, UV, tsdae->U, INSERT_VALUES, SCATTER_REVERSE)); in TSDAESimple_Full_TSRHSFunction()
206 PetscCall(VecScatterBegin(full->scatterV, UV, tsdae->V, INSERT_VALUES, SCATTER_REVERSE)); in TSDAESimple_Full_TSRHSFunction()
207 PetscCall(VecScatterEnd(full->scatterV, UV, tsdae->V, INSERT_VALUES, SCATTER_REVERSE)); in TSDAESimple_Full_TSRHSFunction()
208 PetscCall((*tsdae->f)(t, tsdae->U, tsdae->V, full->UF, tsdae->fctx)); in TSDAESimple_Full_TSRHSFunction()
209 PetscCall(VecScatterBegin(full->scatterU, full->UF, F, INSERT_VALUES, SCATTER_FORWARD)); in TSDAESimple_Full_TSRHSFunction()
210 PetscCall(VecScatterEnd(full->scatterU, full->UF, F, INSERT_VALUES, SCATTER_FORWARD)); in TSDAESimple_Full_TSRHSFunction()
224 TSDAESimple_Full *full = (TSDAESimple_Full *)tsdae->data; in TSDAESimple_Full_TSIFunction() local
228 PetscCall(VecScatterBegin(full->scatterU, UV, tsdae->U, INSERT_VALUES, SCATTER_REVERSE)); in TSDAESimple_Full_TSIFunction()
229 PetscCall(VecScatterEnd(full->scatterU, UV, tsdae->U, INSERT_VALUES, SCATTER_REVERSE)); in TSDAESimple_Full_TSIFunction()
230 PetscCall(VecScatterBegin(full->scatterV, UV, tsdae->V, INSERT_VALUES, SCATTER_REVERSE)); in TSDAESimple_Full_TSIFunction()
231 PetscCall(VecScatterEnd(full->scatterV, UV, tsdae->V, INSERT_VALUES, SCATTER_REVERSE)); in TSDAESimple_Full_TSIFunction()
232 PetscCall((*tsdae->F)(t, tsdae->U, tsdae->V, full->VF, tsdae->Fctx)); in TSDAESimple_Full_TSIFunction()
233 PetscCall(VecScatterBegin(full->scatterV, full->VF, F, INSERT_VALUES, SCATTER_FORWARD)); in TSDAESimple_Full_TSIFunction()
234 PetscCall(VecScatterEnd(full->scatterV, full->VF, F, INSERT_VALUES, SCATTER_FORWARD)); in TSDAESimple_Full_TSIFunction()
240 TSDAESimple_Full *full = (TSDAESimple_Full *)tsdae->data; in TSDAESimpleSolve_Full() local
243 PetscCall(VecSet(full->UV, 1.0)); in TSDAESimpleSolve_Full()
244 PetscCall(VecScatterBegin(full->scatterU, U, full->UV, INSERT_VALUES, SCATTER_FORWARD)); in TSDAESimpleSolve_Full()
245 PetscCall(VecScatterEnd(full->scatterU, U, full->UV, INSERT_VALUES, SCATTER_FORWARD)); in TSDAESimpleSolve_Full()
246 PetscCall(TSSolve(full->ts, full->UV)); in TSDAESimpleSolve_Full()
247 PetscCall(VecScatterBegin(full->scatterU, full->UV, U, INSERT_VALUES, SCATTER_REVERSE)); in TSDAESimpleSolve_Full()
248 PetscCall(VecScatterEnd(full->scatterU, full->UV, U, INSERT_VALUES, SCATTER_REVERSE)); in TSDAESimpleSolve_Full()
254 TSDAESimple_Full *full = (TSDAESimple_Full *)tsdae->data; in TSDAESimpleSetFromOptions_Full() local
257 PetscCall(TSSetFromOptions(full->ts)); in TSDAESimpleSetFromOptions_Full()
263 TSDAESimple_Full *full = (TSDAESimple_Full *)tsdae->data; in TSDAESimpleDestroy_Full() local
266 PetscCall(TSDestroy(&full->ts)); in TSDAESimpleDestroy_Full()
267 PetscCall(VecDestroy(&full->UV)); in TSDAESimpleDestroy_Full()
268 PetscCall(VecDestroy(&full->UF)); in TSDAESimpleDestroy_Full()
269 PetscCall(VecDestroy(&full->VF)); in TSDAESimpleDestroy_Full()
270 PetscCall(VecScatterDestroy(&full->scatterU)); in TSDAESimpleDestroy_Full()
271 PetscCall(VecScatterDestroy(&full->scatterV)); in TSDAESimpleDestroy_Full()
272 PetscCall(PetscFree(full)); in TSDAESimpleDestroy_Full()
278 TSDAESimple_Full *full; in TSDAESimpleSetUp_Full() local
284 PetscCall(PetscNew(&full)); in TSDAESimpleSetUp_Full()
285 tsdae->data = full; in TSDAESimpleSetUp_Full()
291 PetscCall(TSCreate(tsdae->comm, &full->ts)); in TSDAESimpleSetUp_Full()
292 PetscCall(TSSetProblemType(full->ts, TS_NONLINEAR)); in TSDAESimpleSetUp_Full()
293 PetscCall(TSSetType(full->ts, TSROSW)); in TSDAESimpleSetUp_Full()
294 PetscCall(TSSetExactFinalTime(full->ts, TS_EXACTFINALTIME_STEPOVER)); in TSDAESimpleSetUp_Full()
295 PetscCall(VecDuplicate(tsdae->U, &full->UF)); in TSDAESimpleSetUp_Full()
296 PetscCall(VecDuplicate(tsdae->V, &full->VF)); in TSDAESimpleSetUp_Full()
301 PetscCall(VecDuplicate(tsrhs, &full->UV)); in TSDAESimpleSetUp_Full()
305 PetscCall(VecScatterCreate(tsdae->U, NULL, tsrhs, is, &full->scatterU)); in TSDAESimpleSetUp_Full()
308 PetscCall(VecScatterCreate(tsdae->V, NULL, tsrhs, is, &full->scatterV)); in TSDAESimpleSetUp_Full()
311 PetscCall(TSSetRHSFunction(full->ts, tsrhs, TSDAESimple_Full_TSRHSFunction, tsdae)); in TSDAESimpleSetUp_Full()
312 PetscCall(TSSetIFunction(full->ts, NULL, TSDAESimple_Full_TSIFunction, tsdae)); in TSDAESimpleSetUp_Full()