46 static PetscErrorCode SNESNEWTONLSCheckLocalMin_Private(SNES snes, Mat A, Vec F, PetscReal fnorm, P…  in SNESNEWTONLSCheckLocalMin_Private()  argument
58     PetscCall(VecDuplicate(F, &W));  in SNESNEWTONLSCheckLocalMin_Private()
61       PetscCall(MatMultTranspose(A, F, W));  in SNESNEWTONLSCheckLocalMin_Private()
74       PetscCall(VecDot(F, work, &result));  in SNESNEWTONLSCheckLocalMin_Private()
88 static PetscErrorCode SNESNEWTONLSCheckResidual_Private(SNES snes, Mat A, Vec F, Vec X)  in SNESNEWTONLSCheckResidual_Private()  argument
100     PetscCall(VecDuplicate(F, &W1));  in SNESNEWTONLSCheckResidual_Private()
101     PetscCall(VecDuplicate(F, &W2));  in SNESNEWTONLSCheckResidual_Private()
103     PetscCall(VecAXPY(W1, -1.0, F));  in SNESNEWTONLSCheckResidual_Private()
130   Vec                  Y, X, F;  in SNESSolve_NEWTONLS()  local
147   F      = snes->vec_func;       /* residual vector */  in SNESSolve_NEWTONLS()
158     PetscCall(SNESApplyNPC(snes, X, NULL, F));  in SNESSolve_NEWTONLS()
165     PetscCall(VecNormBegin(F, NORM_2, &fnorm));  in SNESSolve_NEWTONLS()
166     PetscCall(VecNormEnd(F, NORM_2, &fnorm));  in SNESSolve_NEWTONLS()
168     if (!snes->vec_func_init_set) PetscCall(SNESComputeFunction(snes, X, F));  in SNESSolve_NEWTONLS()
172   PetscCall(VecNorm(F, NORM_2, &fnorm)); /* fnorm <- ||F||  */  in SNESSolve_NEWTONLS()
196         PetscCall(SNESSetInitialFunction(snes->npc, F));  in SNESSolve_NEWTONLS()
205         PetscCall(SNESGetNPCFunction(snes, F, &fnorm));  in SNESSolve_NEWTONLS()
207         PetscCall(SNESApplyNPC(snes, X, F, F));  in SNESSolve_NEWTONLS()
220     PetscCall(KSPSolve(snes->ksp, F, Y));  in SNESSolve_NEWTONLS()
225     if (PetscLogPrintInfo) PetscCall(SNESNEWTONLSCheckResidual_Private(snes, snes->jacobian, F, Y));  in SNESSolve_NEWTONLS()
234     PetscCall(SNESLineSearchApply(linesearch, X, F, &fnorm, Y));  in SNESSolve_NEWTONLS()
260         PetscCall(SNESNEWTONLSCheckLocalMin_Private(snes, snes->jacobian, F, fnorm, &ismin));  in SNESSolve_NEWTONLS()