Searched refs:fnrm (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
66 fnrm = gnorm; in SNESLineSearchApply_Secant()
67 PetscCall((*linesearch->ops->vinorm)(snes, F, W, &fnrm)); in SNESLineSearchApply_Secant()
69 PetscCall(VecNorm(F, NORM_2, &fnrm)); in SNESLineSearchApply_Secant()
72 fnrm = fnrm * fnrm; in SNESLineSearchApply_Secant()
79 PetscCall(SNESComputeObjective(snes, W, &fnrm)); in SNESLineSearchApply_Secant()
83 if (!PetscIsInfOrNanReal(fnrm)) break; in SNESLineSearchApply_Secant()
113 …ble)lambda, (double)lambda_mid, (double)lambda_old, (double)PetscSqrtReal(fnrm), (double)PetscSqrt… in SNESLineSearchApply_Secant()
115 …, %g]\n", (double)lambda, (double)lambda_mid, (double)lambda_old, (double)fnrm, (double)fnrm_mid, … in SNESLineSearchApply_Secant()
134 delFnrm = (3. * fnrm - 4. * fnrm_mid + 1. * fnrm_old) / delLambda; in SNESLineSearchApply_Secant()
[all …]
|