Searched refs:pcgP (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/ksp/impls/qcg/ |
| H A D | qcg.c | 145 KSP_QCG *pcgP = (KSP_QCG *)ksp->data; in KSPSolve_QCG() local
173 …PetscCheck(pcgP->delta > dzero, PetscObjectComm((PetscObject)ksp), PETSC_ERR_ARG_OUTOFRANGE, "Inpu… in KSPSolve_QCG()
222 scal = pcgP->delta / xnorm; in KSPSolve_QCG()
226 PetscCall(KSPQCGQuadraticRoots(W, P, pcgP->delta, &step1, &step2)); in KSPSolve_QCG()
238 pcgP->ltsnrm = pcgP->delta; /* convergence in direction of */ in KSPSolve_QCG()
241 PetscCall(PetscInfo(ksp, "negative curvature: delta=%g\n", (double)pcgP->delta)); in KSPSolve_QCG()
243 …ve curvature: step1=%g, step2=%g, delta=%g\n", (double)step1, (double)step2, (double)pcgP->delta)); in KSPSolve_QCG()
251 PetscCall(VecNorm(X, NORM_2, &pcgP->ltsnrm)); in KSPSolve_QCG()
252 KSPCheckNorm(ksp, pcgP->ltsnrm); in KSPSolve_QCG()
254 if (pcgP->ltsnrm > pcgP->delta) { in KSPSolve_QCG()
[all …]
|