impls/owlqn/owlqn.c

55   PetscReal                    f, fold, gdx, gnorm;
68   PetscCall(VecNorm(lmP->GV, NORM_2, &gnorm));
69   PetscCheck(!PetscIsInfOrNanReal(f) && !PetscIsInfOrNanReal(gnorm), PetscObjectComm((PetscObject)tao), PETSC_ERR_USER, "User provided compute function generated infinity or NaN");
72   PetscCall(TaoLogConvergenceHistory(tao, f, gnorm, 0.0, tao->ksp_its));
73   PetscCall(TaoMonitor(tao, tao->niter, f, gnorm, 0.0, step));
78   delta = 2.0 * PetscMax(1.0, PetscAbsScalar(f)) / (gnorm * gnorm);
110       delta = 2.0 * PetscMax(1.0, PetscAbsScalar(f)) / (gnorm * gnorm);
156         delta = 2.0 * PetscMax(1.0, PetscAbsScalar(f)) / (gnorm * gnorm);
208     PetscCall(VecNorm(lmP->GV, NORM_2, &gnorm));
211     PetscCall(TaoLogConvergenceHistory(tao, f, gnorm, 0.0, tao->ksp_its));
212     PetscCall(TaoMonitor(tao, tao->niter, f, gnorm, 0.0, step));