65   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()
832         PetscCall(VecGetSubVector(Y[i], mprk->is_slow, &Yslow));  in TSStep_MPRKSPLIT()
833         PetscCall(VecISCopy(Y[tab->rsb[i] - 1], mprk->is_slow, SCATTER_REVERSE, Yslow));  in TSStep_MPRKSPLIT()
834         PetscCall(VecRestoreSubVector(Y[i], mprk->is_slow, &Yslow));  in TSStep_MPRKSPLIT()
841         PetscCall(VecGetSubVector(Y[i], mprk->is_slow, &Yslow));  in TSStep_MPRKSPLIT()
843         PetscCall(VecRestoreSubVector(Y[i], mprk->is_slow, &Yslow));  in TSStep_MPRKSPLIT()
921     if (mprk->is_slow) PetscCall(PetscFree(mprk->YdotRHS_slow));  in TSMPRKTableauReset()
971   if (mprk->is_slow) PetscCall(PetscMalloc1(tab->s, &mprk->work_slow));  in TSMPRKTableauSetUp()
980     if (mprk->is_slow) {  in TSMPRKTableauSetUp()
981       PetscCall(VecGetSubVector(ts->vec_sol, mprk->is_slow, &YdotRHS_slow));  in TSMPRKTableauSetUp()
983       PetscCall(VecRestoreSubVector(ts->vec_sol, mprk->is_slow, &YdotRHS_slow));  in TSMPRKTableauSetUp()
1003     if (mprk->is_slow) PetscCall(PetscMalloc1(tab->s, &mprk->YdotRHS_slow));  in TSMPRKTableauSetUp()
1021   PetscCall(TSRHSSplitGetIS(ts, "slow", &mprk->is_slow));  in TSSetUp_MPRK()
1023 …PetscCheck(mprk->is_slow && mprk->is_fast, PetscObjectComm((PetscObject)ts), PETSC_ERR_USER, "Must…  in TSSetUp_MPRK()
1038     mprk->is_slowbuffer = mprk->is_slow;  in TSSetUp_MPRK()
1039     mprk->is_slow       = NULL;  in TSSetUp_MPRK()