Searched refs:fnrm_mid (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/snes/linesearch/impls/secant/ |
| H A D | linesearchsecant.c | 19 PetscReal fnrm, fnrm_old, fnrm_mid; in SNESLineSearchApply_Secant() local
55 fnrm_mid = gnorm; in SNESLineSearchApply_Secant()
56 PetscCall((*linesearch->ops->vinorm)(snes, F, W, &fnrm_mid)); in SNESLineSearchApply_Secant()
58 PetscCall(VecNorm(F, NORM_2, &fnrm_mid)); in SNESLineSearchApply_Secant()
71 fnrm_mid = fnrm_mid * fnrm_mid; in SNESLineSearchApply_Secant()
75 PetscCall(SNESComputeObjective(snes, W, &fnrm_mid)); in SNESLineSearchApply_Secant()
113 … (double)lambda_old, (double)PetscSqrtReal(fnrm), (double)PetscSqrtReal(fnrm_mid), (double)PetscSq… in SNESLineSearchApply_Secant()
115 …e)lambda, (double)lambda_mid, (double)lambda_old, (double)fnrm, (double)fnrm_mid, (double)fnrm_old… in SNESLineSearchApply_Secant()
134 delFnrm = (3. * fnrm - 4. * fnrm_mid + 1. * fnrm_old) / delLambda; in SNESLineSearchApply_Secant()
135 delFnrm_old = (-3. * fnrm_old + 4. * fnrm_mid - 1. * fnrm) / delLambda; in SNESLineSearchApply_Secant()
|