Home
last modified time | relevance | path

Searched refs:wm (Results 1 – 4 of 4) sorted by relevance

/petsc/src/ts/tutorials/power_grid/
H A Dex5.c165 PetscErrorCode GetWindPower(PetscScalar wm, PetscScalar vw, PetscScalar *Pw, AppCtx *user) in GetWindPower() argument
171 lambda = temp * wm / vw; in GetWindPower()
183 PetscScalar *f, wm, Pw, *wd; in IFunction() local
196 wm = 1 - u[1]; in IFunction()
197 PetscCall(GetWindPower(wm, u[0], &Pw, user)); in IFunction()
198 f[1] = 2.0 * (user->Ht + user->Hm) * udot[1] - Pw / wm + user->Te; in IFunction()
/petsc/src/tao/leastsquares/impls/pounders/
H A Dgqt.c8 PetscReal e, temp, w, wm, ynorm, znorm, s, sm; in estsv() local
33 w = wm = 1.0; in estsv()
36 wm = -(e + z[i]) / r[i + ldr * i]; in estsv()
42 for (j = i + 1; j < n; j++) sm += PetscAbs(z[j] + wm * r[i + ldr * j]); in estsv()
49 temp = wm - w; in estsv()
50 w = wm; in estsv()
/petsc/src/ts/impls/multirate/
H A Dmprk.c760 PetscScalar *wm = mprk->work_medium, *wmb = mprk->work_mediumbuffer; in TSEvaluateStep_MPRKSPLIT() local
765 …if (tab->rmb[j]) wm[computedstages - tab->sbase + (tab->rmb[j] - 1) % tab->sbase] += h * tab->bmb[… in TSEvaluateStep_MPRKSPLIT()
766 else wm[computedstages++] = h * tab->bmb[j]; in TSEvaluateStep_MPRKSPLIT()
769 PetscCall(VecMAXPY(Xmedium, computedstages, wm, mprk->YdotRHS_medium)); in TSEvaluateStep_MPRKSPLIT()
813 PetscScalar *wm = mprk->work_medium; in TSStep_MPRKSPLIT() local
816 … if (tab->rmb[j]) wm[computedstages - tab->sbase + (tab->rmb[j] - 1) % tab->sbase] += wsb[j]; in TSStep_MPRKSPLIT()
817 else wm[computedstages++] = wsb[j]; in TSStep_MPRKSPLIT()
820 PetscCall(VecMAXPY(Yslowbuffer, computedstages, wm, YdotRHS_slowbuffer)); in TSStep_MPRKSPLIT()
859 PetscScalar *wm = mprk->work_medium, *wmb = mprk->work_mediumbuffer; in TSStep_MPRKSPLIT() local
875 … if (tab->rmb[j]) wm[computedstages - tab->sbase + (tab->rmb[j] - 1) % tab->sbase] += wmb[j]; in TSStep_MPRKSPLIT()
[all …]
/petsc/src/ksp/ksp/impls/cg/pipecg2/
H A Dpipecg2.c54 static PetscErrorCode VecMergedDot2_Private(Vec N, Vec M, Vec W, PetscScalar *wm, PetscScalar *nm) in VecMergedDot2_Private() argument
72 *wm = sumwm; in VecMergedDot2_Private()