Lines Matching refs:is_fast
46 if (ark->is_slow) PetscCall(VecISCopy(Y, ark->is_fast, SCATTER_FORWARD, X)); in SNESTSFormFunction_ARKIMEX_FastSlowSplit()
67 if (ark->is_slow) PetscCall(VecISCopy(Y, ark->is_fast, SCATTER_FORWARD, X)); in SNESTSFormJacobian_ARKIMEX_FastSlowSplit()
142 if (ark->is_fast) PetscCall(TSHasRHSFunction(ark->subts_fast, &fasthasE)); in TSEvaluateStep_ARKIMEX_FastSlowSplit()
152 if (ark->is_fast) { in TSEvaluateStep_ARKIMEX_FastSlowSplit()
153 PetscCall(VecGetSubVector(X, ark->is_fast, &Xfast)); in TSEvaluateStep_ARKIMEX_FastSlowSplit()
157 PetscCall(VecRestoreSubVector(X, ark->is_fast, &Xfast)); in TSEvaluateStep_ARKIMEX_FastSlowSplit()
172 if (ark->is_fast) { in TSEvaluateStep_ARKIMEX_FastSlowSplit()
173 PetscCall(VecGetSubVector(X, ark->is_fast, &Xfast)); in TSEvaluateStep_ARKIMEX_FastSlowSplit()
177 PetscCall(VecRestoreSubVector(X, ark->is_fast, &Xfast)); in TSEvaluateStep_ARKIMEX_FastSlowSplit()
187 if (ark->is_fast) { in TSEvaluateStep_ARKIMEX_FastSlowSplit()
188 PetscCall(VecGetSubVector(X, ark->is_fast, &Xfast)); in TSEvaluateStep_ARKIMEX_FastSlowSplit()
192 PetscCall(VecRestoreSubVector(X, ark->is_fast, &Xfast)); in TSEvaluateStep_ARKIMEX_FastSlowSplit()
231 if (ark->is_fast) PetscCall(TSHasRHSFunction(ark->subts_fast, &fasthasE)); in TSStep_ARKIMEX_FastSlowSplit()
233 PetscCall(VecGetSubVector(ts->vec_sol, ark->is_fast, &Xfast)); in TSStep_ARKIMEX_FastSlowSplit()
237 PetscCall(VecRestoreSubVector(ts->vec_sol, ark->is_fast, &Xfast)); in TSStep_ARKIMEX_FastSlowSplit()
239 PetscCall(VecRestoreSubVector(ts->vec_sol, ark->is_fast, &Xslow)); in TSStep_ARKIMEX_FastSlowSplit()
248 PetscCall(VecISCopy(Y[i], ark->is_fast, SCATTER_REVERSE, ark->Y_prev[i])); in TSStep_ARKIMEX_FastSlowSplit()
297 if (ark->is_fast) { in TSStep_ARKIMEX_FastSlowSplit()
300 PetscCall(VecGetSubVector(Y[i], ark->is_fast, &Yfast)); in TSStep_ARKIMEX_FastSlowSplit()
307 PetscCall(VecRestoreSubVector(Y[i], ark->is_fast, &Yfast)); in TSStep_ARKIMEX_FastSlowSplit()
311 PetscCall(VecISCopy(ts->vec_sol, ark->is_fast, SCATTER_REVERSE, Z)); in TSStep_ARKIMEX_FastSlowSplit()
321 PetscCall(VecGetSubVector(Y[i], ark->is_fast, &Yfast)); in TSStep_ARKIMEX_FastSlowSplit()
327 … PetscCall(VecISCopy(i > 0 ? Y[i - 1] : ts->vec_sol, ark->is_fast, SCATTER_REVERSE, Yfast)); in TSStep_ARKIMEX_FastSlowSplit()
330 PetscCall(VecRestoreSubVector(Y[i], ark->is_fast, &Yfast)); in TSStep_ARKIMEX_FastSlowSplit()
351 PetscCall(VecGetSubVector(Y[i], ark->is_fast, &Yfast)); in TSStep_ARKIMEX_FastSlowSplit()
353 PetscCall(VecRestoreSubVector(Y[i], ark->is_fast, &Yfast)); in TSStep_ARKIMEX_FastSlowSplit()
361 PetscCall(VecGetSubVector(Y[i], ark->is_fast, &Yfast)); in TSStep_ARKIMEX_FastSlowSplit()
363 PetscCall(VecRestoreSubVector(Y[i], ark->is_fast, &Yfast)); in TSStep_ARKIMEX_FastSlowSplit()
417 PetscCall(TSRHSSplitGetIS(ts, "fast", &ark->is_fast)); in TSSetUp_ARKIMEX_FastSlowSplit()
418 …PetscCheck(ark->is_slow || ark->is_fast, PetscObjectComm((PetscObject)ts), PETSC_ERR_USER, "Must s… in TSSetUp_ARKIMEX_FastSlowSplit()
430 …if (ark->is_fast && ark->is_slow) PetscCall(VecDuplicate(ts->vec_sol, &ark->Y_snes)); // need an a… in TSSetUp_ARKIMEX_FastSlowSplit()
431 if (ark->is_fast) { in TSSetUp_ARKIMEX_FastSlowSplit()
432 PetscCall(VecGetSubVector(ts->vec_sol, ark->is_fast, &Xfast)); in TSSetUp_ARKIMEX_FastSlowSplit()
443 PetscCall(VecRestoreSubVector(ts->vec_sol, ark->is_fast, &Xfast)); in TSSetUp_ARKIMEX_FastSlowSplit()
476 if (ark->is_fast && ark->is_slow) PetscCall(VecDestroy(&ark->Y_snes)); in TSReset_ARKIMEX_FastSlowSplit()