Lines Matching refs:YdotRHS_slow
26 PetscCall(VecDestroyVecs(tab->s, &rk->YdotRHS_slow)); in TSReset_RK_MultirateNonsplit()
48 PetscCall(VecMAXPY(X, s, b, rk->YdotRHS_slow)); in TSInterpolate_RK_MultirateNonsplit()
100 PetscCall(VecCopy(rk->YdotRHS_slow[i], YdotRHS_copy[i])); in TSStepRefine_RK_MultirateNonsplit()
101 PetscCall(VecCopy(YdotRHS[i], rk->YdotRHS_slow[i])); in TSStepRefine_RK_MultirateNonsplit()
110 for (i = 0; i < s; i++) PetscCall(VecCopy(YdotRHS_copy[i], rk->YdotRHS_slow[i])); in TSStepRefine_RK_MultirateNonsplit()
122 Vec *Y = rk->Y, *YdotRHS = rk->YdotRHS, *YdotRHS_slow = rk->YdotRHS_slow; in TSStep_RK_MultirateNonsplit() local
142 PetscCall(VecMAXPY(Y[i], i, w, YdotRHS_slow)); in TSStep_RK_MultirateNonsplit()
145 PetscCall(TSComputeRHSFunction(ts, t + h * c[i], Y[i], YdotRHS_slow[i])); in TSStep_RK_MultirateNonsplit()
148 rk->YdotRHS = YdotRHS_slow; in TSStep_RK_MultirateNonsplit()
186 PetscCall(VecDuplicateVecs(ts->vec_sol, tab->s, &rk->YdotRHS_slow)); in TSSetUp_RK_MultirateNonsplit()
223 PetscCall(PetscFree(rk->YdotRHS_slow)); in TSReset_RK_MultirateSplit()
263 …for (i = 0; i < s; i++) PetscCall(VecGetSubVector(rk->YdotRHS[i], rk->is_slow, &rk->YdotRHS_slow[i… in TSInterpolate_RK_MultirateSplit()
266 PetscCall(VecMAXPY(Xslow, s, b, rk->YdotRHS_slow)); in TSInterpolate_RK_MultirateSplit()
268 …= 0; i < s; i++) PetscCall(VecRestoreSubVector(rk->YdotRHS[i], rk->is_slow, &rk->YdotRHS_slow[i])); in TSInterpolate_RK_MultirateSplit()
294 PetscCall(VecMAXPY(Xslow, s, w, rk->YdotRHS_slow)); in TSEvaluateStep_RK_MultirateSplit()
369 Vec *YdotRHS_fast = rk->YdotRHS_fast, *YdotRHS_slow = rk->YdotRHS_slow; in TSStep_RK_MultirateSplit() local
380 PetscCall(VecGetSubVector(YdotRHS[i], rk->is_slow, &YdotRHS_slow[i])); in TSStep_RK_MultirateSplit()
393 PetscCall(VecMAXPY(Yslow, i, w, YdotRHS_slow)); in TSStep_RK_MultirateSplit()
397 PetscCall(TSComputeRHSFunction(rk->subts_slow, t + h * c[i], Y[i], YdotRHS_slow[i])); in TSStep_RK_MultirateSplit()
405 PetscCall(VecRestoreSubVector(YdotRHS[i], rk->is_slow, &YdotRHS_slow[i])); in TSStep_RK_MultirateSplit()
436 PetscCall(PetscMalloc1(rk->tableau->s, ¤tlevelrk->YdotRHS_slow)); in TSSetUp_RK_MultirateSplit()