Home
last modified time | relevance | path

Searched refs:is_slow (Results 1 – 5 of 5) sorted by relevance

/petsc/src/ts/impls/arkimex/
H A Dfsarkimex.c46 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()
147 if (ark->is_slow) { in TSEvaluateStep_ARKIMEX_FastSlowSplit()
148 PetscCall(VecGetSubVector(X, ark->is_slow, &Xslow)); in TSEvaluateStep_ARKIMEX_FastSlowSplit()
150 PetscCall(VecRestoreSubVector(X, ark->is_slow, &Xslow)); in TSEvaluateStep_ARKIMEX_FastSlowSplit()
167 if (ark->is_slow) { in TSEvaluateStep_ARKIMEX_FastSlowSplit()
168 PetscCall(VecGetSubVector(X, ark->is_slow, &Xslow)); in TSEvaluateStep_ARKIMEX_FastSlowSplit()
170 PetscCall(VecRestoreSubVector(X, ark->is_slow, &Xslow)); in TSEvaluateStep_ARKIMEX_FastSlowSplit()
182 if (ark->is_slow) { in TSEvaluateStep_ARKIMEX_FastSlowSplit()
183 PetscCall(VecGetSubVector(X, ark->is_slow, &Xslow)); in TSEvaluateStep_ARKIMEX_FastSlowSplit()
[all …]
H A Darkimex.h47 IS is_slow, is_fast; member
/petsc/src/ts/impls/explicit/rk/
H A Dmrk.c125 IS is_slow = rk->is_slow; in TSStep_RK_MultirateNonsplit() local
154 PetscCall(VecGetSubVector(sol_slow, is_slow, &subvec_slow)); in TSStep_RK_MultirateNonsplit()
155 PetscCall(VecISCopy(ts->vec_sol, is_slow, SCATTER_FORWARD, subvec_slow)); in TSStep_RK_MultirateNonsplit()
156 PetscCall(VecRestoreSubVector(sol_slow, is_slow, &subvec_slow)); in TSStep_RK_MultirateNonsplit()
179 PetscCall(TSRHSSplitGetIS(ts, "slow", &rk->is_slow)); in TSSetUp_RK_MultirateNonsplit()
181 …PetscCheck(rk->is_slow && rk->is_fast, PetscObjectComm((PetscObject)ts), PETSC_ERR_USER, "Must set… in TSSetUp_RK_MultirateNonsplit()
263 …for (i = 0; i < s; i++) PetscCall(VecGetSubVector(rk->YdotRHS[i], rk->is_slow, &rk->YdotRHS_slow[i… in TSInterpolate_RK_MultirateSplit()
264 PetscCall(VecGetSubVector(X, rk->is_slow, &Xslow)); in TSInterpolate_RK_MultirateSplit()
265 PetscCall(VecISCopy(rk->X0, rk->is_slow, SCATTER_REVERSE, Xslow)); in TSInterpolate_RK_MultirateSplit()
267 PetscCall(VecRestoreSubVector(X, rk->is_slow, &Xslow)); in TSInterpolate_RK_MultirateSplit()
[all …]
H A Drk.h41 IS is_fast, is_slow; member
/petsc/src/ts/impls/multirate/
H A Dmprk.c65 IS is_slow, is_slowbuffer, is_medium, is_mediumbuffer, is_fast; member
667 if (mprk->is_slow) { in TSStep_MPRK()
668 … for (j = 0; j < i; j++) PetscCall(VecGetSubVector(YdotRHS[j], mprk->is_slow, &YdotRHS_slow[j])); in TSStep_MPRK()
669 PetscCall(VecGetSubVector(Y[i], mprk->is_slow, &Yslow)); in TSStep_MPRK()
671 PetscCall(VecRestoreSubVector(Y[i], mprk->is_slow, &Yslow)); in TSStep_MPRK()
672 …for (j = 0; j < i; j++) PetscCall(VecRestoreSubVector(YdotRHS[j], mprk->is_slow, &YdotRHS_slow[j])… in TSStep_MPRK()
731 if (mprk->is_slow) { in TSEvaluateStep_MPRKSPLIT()
737 PetscCall(VecGetSubVector(X, mprk->is_slow, &Xslow)); in TSEvaluateStep_MPRKSPLIT()
739 PetscCall(VecRestoreSubVector(X, mprk->is_slow, &Xslow)); in TSEvaluateStep_MPRKSPLIT()
830 if (mprk->is_slow) { in TSStep_MPRKSPLIT()
[all …]