Searched refs:enormV (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
347 PetscCall(TSErrorWeightedNorm(ts, V, Z, wnormtype, &enormV, &enormVa, &enormVr)); 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()
|