Searched refs:enormX (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ts/impls/implicit/alpha/ |
| H A D | alpha2.c | 302 PetscReal enormX, enormV, enormXa, enormVa, enormXr, enormVr; in TSEvaluateWLTE_Alpha() local
346 PetscCall(TSErrorWeightedNorm(ts, X, Y, wnormtype, &enormX, &enormXa, &enormXr)); in TSEvaluateWLTE_Alpha()
348 if (wnormtype == NORM_2) *wlte = PetscSqrtReal(PetscSqr(enormX) / 2 + PetscSqr(enormV) / 2); in TSEvaluateWLTE_Alpha()
349 else *wlte = PetscMax(enormX, enormV); in TSEvaluateWLTE_Alpha()
|