Lines Matching refs:wmb
685 PetscScalar *wmb = mprk->work_mediumbuffer; in TSStep_MPRK() local
687 for (j = 0; j < i; j++) wmb[j] = h * tab->Amb[i * s + j]; in TSStep_MPRK()
692 PetscCall(VecMAXPY(Ymedium, i, wmb, mprk->YdotRHS_medium)); in TSStep_MPRK()
699 PetscCall(VecMAXPY(Ymediumbuffer, i, wmb, mprk->YdotRHS_mediumbuffer)); in TSStep_MPRK()
760 PetscScalar *wm = mprk->work_medium, *wmb = mprk->work_mediumbuffer; in TSEvaluateStep_MPRKSPLIT() local
773 for (j = 0; j < s; j++) wmb[j] = h * tab->bmb[j]; in TSEvaluateStep_MPRKSPLIT()
775 PetscCall(VecMAXPY(Xmediumbuffer, s, wmb, mprk->YdotRHS_mediumbuffer)); in TSEvaluateStep_MPRKSPLIT()
859 PetscScalar *wm = mprk->work_medium, *wmb = mprk->work_mediumbuffer; in TSStep_MPRKSPLIT() local
861 for (j = 0; j < i; j++) wmb[j] = h * Amb[i * s + j]; in TSStep_MPRKSPLIT()
864 PetscCall(VecMAXPY(Ymediumbuffer, i, wmb, YdotRHS_mediumbuffer)); in TSStep_MPRKSPLIT()
875 … if (tab->rmb[j]) wm[computedstages - tab->sbase + (tab->rmb[j] - 1) % tab->sbase] += wmb[j]; in TSStep_MPRKSPLIT()
876 else wm[computedstages++] = wmb[j]; in TSStep_MPRKSPLIT()