Searched refs:wmb (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ts/impls/multirate/ |
| H A D | mprk.c | 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()
[all …]
|