Home
last modified time | relevance | path

Searched refs:fnorm (Results 1 – 25 of 74) sorted by relevance

123

/petsc/src/ts/tutorials/output/
H A Dex1_1.out1 TS 0 dt 0.125 time 0. fnorm 0.207564
2 TS 1 dt 0.1375 time 0.125 fnorm 0.186573
3 TS 2 dt 0.169703 time 0.2625 fnorm 0.166285
4 TS 3 dt 0.214362 time 0.432203 fnorm 0.144807
5 TS 4 dt 0.279249 time 0.646565 fnorm 0.122275
6 TS 5 dt 0.379586 time 0.925814 fnorm 0.0989488
7 TS 6 dt 0.548751 time 1.3054 fnorm 0.0752903
8 TS 7 dt 0.872245 time 1.85415 fnorm 0.0521036
9 TS 8 dt 1.62426 time 2.7264 fnorm 0.0307782
10 TS 9 dt 4.04892 time 4.35066 fnorm 0.0135817
[all …]
H A Dex1_2.out1 TS 0 dt 0.125 time 0. fnorm 0.207564
2 TS 1 dt 0.1375 time 0.125 fnorm 0.186587
3 TS 2 dt 0.169687 time 0.2625 fnorm 0.166314
4 TS 3 dt 0.214308 time 0.432187 fnorm 0.144855
5 TS 4 dt 0.279101 time 0.646495 fnorm 0.12235
6 TS 5 dt 0.379191 time 0.925595 fnorm 0.0990599
7 TS 6 dt 0.547645 time 1.30479 fnorm 0.0754483
8 TS 7 dt 0.86876 time 1.85243 fnorm 0.0523169
9 TS 8 dt 1.61069 time 2.72119 fnorm 0.03104
10 TS 9 dt 3.97312 time 4.33188 fnorm 0.0138419
[all …]
H A Dex1f_1.out1 TS 0 dt 0.125 time 0. fnorm 0.207564
2 TS 1 dt 0.1375 time 0.1375 fnorm 0.184718
3 TS 2 dt 0.169957 time 0.307457 fnorm 0.160569
4 TS 3 dt 0.215069 time 0.522526 fnorm 0.135283
5 TS 4 dt 0.280795 time 0.803322 fnorm 0.109165
6 TS 5 dt 0.382774 time 1.1861 fnorm 0.0827478
7 TS 6 dt 0.555471 time 1.74157 fnorm 0.0569517
8 TS 7 dt 0.887776 time 2.62934 fnorm 0.0333501
9 TS 8 dt 1.66766 time 4.297 fnorm 0.0144859
10 TS 9 dt 4.22328 time 8.52028 fnorm 0.00341003
[all …]
/petsc/src/snes/tests/output/
H A Dex241_1.out6 Line search: Using full step: fnorm 9.999000000000e-01 gnorm 5.624375006250e-01
10 Line search: Using full step: fnorm 5.624375006250e-01 gnorm 1.405843796004e-01
14 Line search: Using full step: fnorm 1.405843796004e-01 gnorm 3.512111267037e-02
18 Line search: Using full step: fnorm 3.512111267037e-02 gnorm 8.755349147747e-03
22 Line search: Using full step: fnorm 8.755349147747e-03 gnorm 2.164119602175e-03
26 Line search: Using full step: fnorm 2.164119602175e-03 gnorm 5.171340824948e-04
30 Line search: Using full step: fnorm 5.171340824948e-04 gnorm 1.083345041472e-04
34 Line search: Using full step: fnorm 1.083345041472e-04 gnorm 1.408355859831e-05
38 Line search: Using full step: fnorm 1.408355859831e-05 gnorm 4.346520770148e-07
42 Line search: Using full step: fnorm 4.346520770148e-07 gnorm 4.702620662805e-10
/petsc/src/snes/impls/ls/
H A Dls.c46 static PetscErrorCode SNESNEWTONLSCheckLocalMin_Private(SNES snes, Mat A, Vec F, PetscReal fnorm, P… in SNESNEWTONLSCheckLocalMin_Private() argument
63 …cInfo(snes, "|| J^T F|| %14.12e near zero implies found a local minimum\n", (double)(a1 / fnorm))); in SNESNEWTONLSCheckLocalMin_Private()
64 if (a1 / fnorm < 1.e-4) *ismin = PETSC_TRUE; in SNESNEWTONLSCheckLocalMin_Private()
76 a1 = PetscAbsScalar(result) / (fnorm * wnorm); in SNESNEWTONLSCheckLocalMin_Private()
129 PetscReal fnorm, xnorm, ynorm; in SNESSolve_NEWTONLS() local
165 PetscCall(VecNormBegin(F, NORM_2, &fnorm)); in SNESSolve_NEWTONLS()
166 PetscCall(VecNormEnd(F, NORM_2, &fnorm)); in SNESSolve_NEWTONLS()
172 PetscCall(VecNorm(F, NORM_2, &fnorm)); /* fnorm <- ||F|| */ in SNESSolve_NEWTONLS()
173 SNESCheckFunctionDomainError(snes, fnorm); in SNESSolve_NEWTONLS()
175 snes->norm = fnorm; in SNESSolve_NEWTONLS()
[all …]
/petsc/src/snes/impls/ngmres/
H A Danderson.c30 PetscReal fnorm, fMnorm, fAnorm; in SNESSolve_Anderson() local
71 PetscCall(VecNorm(F, NORM_2, &fnorm)); in SNESSolve_Anderson()
76 PetscCall(VecNorm(F, NORM_2, &fnorm)); in SNESSolve_Anderson()
77 SNESCheckFunctionDomainError(snes, fnorm); in SNESSolve_Anderson()
79 fminnorm = fnorm; in SNESSolve_Anderson()
82 snes->norm = fnorm; in SNESSolve_Anderson()
84 PetscCall(SNESLogConvergenceHistory(snes, fnorm, 0)); in SNESSolve_Anderson()
85 PetscCall(SNESConverged(snes, 0, 0.0, 0.0, fnorm)); in SNESSolve_Anderson()
86 PetscCall(SNESMonitor(snes, 0, fnorm)); in SNESSolve_Anderson()
88 PetscCall(SNESNGMRESUpdateSubspace_Private(snes, 0, 0, F, fnorm, X)); in SNESSolve_Anderson()
[all …]
H A Dsnesngmres.c135 PetscReal fnorm, fMnorm, fAnorm; /* coefficients and RHS to the minimization problem */ in SNESSolve_NGMRES() local
186 PetscCall(VecNorm(F, NORM_2, &fnorm)); in SNESSolve_NGMRES()
187 SNESCheckFunctionDomainError(snes, fnorm); in SNESSolve_NGMRES()
189 objmin = fnorm; in SNESSolve_NGMRES()
197 snes->norm = fnorm; in SNESSolve_NGMRES()
199 PetscCall(SNESLogConvergenceHistory(snes, fnorm, 0)); in SNESSolve_NGMRES()
200 PetscCall(SNESConverged(snes, 0, 0.0, 0.0, fnorm)); in SNESSolve_NGMRES()
201 PetscCall(SNESMonitor(snes, 0, fnorm)); in SNESSolve_NGMRES()
203 PetscCall(SNESNGMRESUpdateSubspace_Private(snes, 0, 0, F, fnorm, X)); in SNESSolve_NGMRES()
233 fMnorm = fnorm; in SNESSolve_NGMRES()
[all …]
H A Dngmresfunc.c23 …ESNGMRESUpdateSubspace_Private(SNES snes, PetscInt ivec, PetscInt l, Vec F, PetscReal fnorm, Vec X) in SNESNGMRESUpdateSubspace_Private() argument
34 ngmres->fnorms[ivec] = fnorm; in SNESNGMRESUpdateSubspace_Private()
163 …min, PetscReal dminnorm, Vec X, Vec F, Vec Y, PetscReal *xnorm, PetscReal *fnorm, PetscReal *ynorm) in SNESNGMRESSelect_Private() argument
179 *fnorm = fMnorm; in SNESNGMRESSelect_Private()
182 *fnorm = fMnorm; in SNESNGMRESSelect_Private()
189 PetscCall(SNESLineSearchApply(ngmres->additive_linesearch, X, F, fnorm, Y)); in SNESNGMRESSelect_Private()
206 PetscCall(SNESLineSearchGetNorms(ngmres->additive_linesearch, xnorm, fnorm, ynorm)); in SNESNGMRESSelect_Private()
209 PetscReal objT = *fnorm; in SNESNGMRESSelect_Private()
227 *fnorm = fAnorm; in SNESNGMRESSelect_Private()
234 *fnorm = fMnorm; in SNESNGMRESSelect_Private()
[all …]
/petsc/src/snes/impls/richardson/
H A Dsnesrichardson.c29 PetscReal xnorm, fnorm, ynorm; in SNESSolve_NRichardson() local
55 PetscCall(VecNorm(F, NORM_2, &fnorm)); in SNESSolve_NRichardson()
60 PetscCall(VecNorm(F, NORM_2, &fnorm)); in SNESSolve_NRichardson()
61 SNESCheckFunctionDomainError(snes, fnorm); in SNESSolve_NRichardson()
75 snes->norm = fnorm; in SNESSolve_NRichardson()
77 PetscCall(SNESLogConvergenceHistory(snes, fnorm, 0)); in SNESSolve_NRichardson()
80 PetscCall(SNESConverged(snes, 0, 0.0, 0.0, fnorm)); in SNESSolve_NRichardson()
81 PetscCall(SNESMonitor(snes, 0, fnorm)); in SNESSolve_NRichardson()
88 PetscCall(SNESLineSearchApply(snes->linesearch, X, F, &fnorm, Y)); in SNESSolve_NRichardson()
91 PetscCall(SNESLineSearchGetNorms(snes->linesearch, &xnorm, &fnorm, &ynorm)); in SNESSolve_NRichardson()
[all …]
/petsc/src/snes/linesearch/impls/basic/
H A Dlinesearchbasic.c9 PetscReal gnorm, xnorm, ynorm, lambda, fnorm = 0.0; in SNESLineSearchApply_Basic() local
33 PetscCall(VecNorm(F, NORM_2, &fnorm)); in SNESLineSearchApply_Basic()
34 SNESLineSearchCheckFunctionDomainError(snes, linesearch, fnorm); in SNESLineSearchApply_Basic()
43 linesearch->fnorm = gnorm; in SNESLineSearchApply_Basic()
45 PetscCall((*linesearch->ops->vinorm)(snes, F, W, &linesearch->fnorm)); in SNESLineSearchApply_Basic()
46 } else linesearch->fnorm = fnorm; in SNESLineSearchApply_Basic()
/petsc/src/ts/impls/pseudo/
H A Dposindep.c19 PetscReal fnorm_initial, fnorm; /* original and current norm of F(u) */ member
59 PetscErrorCode TSPseudoComputeFunction(TS ts, Vec solution, Vec *residual, PetscReal *fnorm) in TSPseudoComputeFunction() argument
68 if (fnorm) PetscAssertPointer(fnorm, 4); in TSPseudoComputeFunction()
71 if (Xstate != pseudo->Xstate || pseudo->fnorm < 0) { in TSPseudoComputeFunction()
75 PetscCall(VecNorm(pseudo->func, NORM_2, &pseudo->fnorm)); in TSPseudoComputeFunction()
78 if (fnorm) *fnorm = pseudo->fnorm; in TSPseudoComputeFunction()
87 PetscReal next_time_step = ts->time_step, fnorm; in TSStep_Pseudo() local
101 pseudo->fnorm = -1; /* The current norm is no longer valid */ in TSStep_Pseudo()
130 PetscCall(TSPseudoComputeFunction(ts, ts->vec_sol, NULL, &fnorm)); in TSStep_Pseudo()
132 if (fnorm < pseudo->fatol) { in TSStep_Pseudo()
[all …]
/petsc/src/snes/interface/
H A Dsnespc.c77 PetscErrorCode SNESGetNPCFunction(SNES snes, Vec F, PetscReal *fnorm) in SNESGetNPCFunction() argument
86 if (fnorm) PetscAssertPointer(fnorm, 3); in SNESGetNPCFunction()
96 if (fnorm) PetscCall(VecNorm(FPC, NORM_2, fnorm)); in SNESGetNPCFunction()
102 if (fnorm) PetscCall(VecNorm(F, NORM_2, fnorm)); in SNESGetNPCFunction()
H A Dsnesut.c423 PetscErrorCode SNESMonitorJacUpdateSpectrum(SNES snes, PetscInt it, PetscReal fnorm, PetscViewerAnd… in SNESMonitorJacUpdateSpectrum() argument
737 …fault(SNES snes, PetscInt it, PetscReal xnorm, PetscReal snorm, PetscReal fnorm, SNESConvergedReas… in SNESConvergedDefault() argument
746 snes->ttol = fnorm * snes->rtol; in SNESConvergedDefault()
747 snes->rnorm0 = fnorm; in SNESConvergedDefault()
749 if (PetscIsInfOrNanReal(fnorm)) { in SNESConvergedDefault()
752 } else if (fnorm < snes->abstol && (it || !snes->forceiteration)) { in SNESConvergedDefault()
753 …PetscCall(PetscInfo(snes, "Converged due to function norm %14.12e < %14.12e\n", (double)fnorm, (do… in SNESConvergedDefault()
761 if (fnorm <= snes->ttol) { in SNESConvergedDefault()
762 …d due to function norm %14.12e < %14.12e (relative tolerance)\n", (double)fnorm, (double)snes->tto… in SNESConvergedDefault()
767 } else if (snes->divtol != PETSC_UNLIMITED && (fnorm > snes->divtol * snes->rnorm0)) { in SNESConvergedDefault()
[all …]
/petsc/src/snes/impls/ksponly/
H A Dksponly.c32 PetscReal fnorm; in SNESSolve_KSPONLY() local
33 PetscCall(VecNorm(F, NORM_2, &fnorm)); in SNESSolve_KSPONLY()
34 SNESCheckFunctionDomainError(snes, fnorm); in SNESSolve_KSPONLY()
35 PetscCall(SNESMonitor(snes, 0, fnorm)); in SNESSolve_KSPONLY()
62 PetscReal fnorm; in SNESSolve_KSPONLY() local
64 PetscCall(VecNorm(F, NORM_2, &fnorm)); in SNESSolve_KSPONLY()
65 SNESCheckFunctionDomainError(snes, fnorm); in SNESSolve_KSPONLY()
66 PetscCall(SNESMonitor(snes, 1, fnorm)); in SNESSolve_KSPONLY()
/petsc/src/snes/impls/ncg/
H A Dsnesncg.c26 PetscReal *fnorm, *xnorm, *ynorm; in SNESLineSearchApply_NCGLinear() local
34 fnorm = &linesearch->fnorm; in SNESLineSearchApply_NCGLinear()
54 PetscCall(VecNorm(F, NORM_2, fnorm)); in SNESLineSearchApply_NCGLinear()
55 SNESLineSearchCheckFunctionDomainError(snes, linesearch, *fnorm); in SNESLineSearchApply_NCGLinear()
181 PetscReal fnorm, ynorm, xnorm, beta = 0.0; in SNESSolve_NCG() local
217 PetscCall(VecNorm(F, NORM_2, &fnorm)); in SNESSolve_NCG()
223 PetscCall(VecNorm(F, NORM_2, &fnorm)); in SNESSolve_NCG()
224 SNESCheckFunctionDomainError(snes, fnorm); in SNESSolve_NCG()
241 snes->norm = fnorm; in SNESSolve_NCG()
243 PetscCall(SNESLogConvergenceHistory(snes, fnorm, 0)); in SNESSolve_NCG()
[all …]
/petsc/src/snes/impls/composite/
H A Dsnescomposite.c47 … PetscErrorCode SNESCompositeApply_Multiplicative(SNES snes, Vec X, Vec B, Vec F, PetscReal *fnorm) in SNESCompositeApply_Multiplicative() argument
89 if (fnorm) { in SNESCompositeApply_Multiplicative()
91 PetscCall(SNESVIComputeInactiveSetFnorm(snes, F, X, fnorm)); in SNESCompositeApply_Multiplicative()
93 PetscCall(VecNorm(F, NORM_2, fnorm)); in SNESCompositeApply_Multiplicative()
95 SNESCheckFunctionDomainError(snes, *fnorm); in SNESCompositeApply_Multiplicative()
99 if (fnorm) { in SNESCompositeApply_Multiplicative()
101 PetscCall(SNESVIComputeInactiveSetFnorm(snes, F, X, fnorm)); in SNESCompositeApply_Multiplicative()
103 PetscCall(VecNorm(F, NORM_2, fnorm)); in SNESCompositeApply_Multiplicative()
105 SNESCheckFunctionDomainError(snes, *fnorm); in SNESCompositeApply_Multiplicative()
111 static PetscErrorCode SNESCompositeApply_Additive(SNES snes, Vec X, Vec B, Vec F, PetscReal *fnorm) in SNESCompositeApply_Additive() argument
[all …]
/petsc/src/snes/tutorials/output/
H A Dex58_6.out7 Line search terminated: lambda = 0.915104, fnorm = 0.081438
16 Line search terminated: lambda = 0.475511, fnorm = 0.0577764
29 Line search terminated: lambda = 0.669089, fnorm = 0.0360721
40 Line search terminated: lambda = 0.62328, fnorm = 0.0220052
51 Line search terminated: lambda = 0.633595, fnorm = 0.0158549
63 Line search terminated: lambda = 0.508606, fnorm = 0.0126286
74 Line search terminated: lambda = 0.349585, fnorm = 0.011117
85 Line search terminated: lambda = 0.427734, fnorm = 0.00934175
95 Line search terminated: lambda = 0.885085, fnorm = 0.00519364
102 Line search terminated: lambda = 1., fnorm = 0.000645946
[all …]
/petsc/src/snes/impls/vi/
H A Dvi.c104 PetscReal rnorm, fnorm, zerotolerance = snes->vizerotolerance; in SNESMonitorVI() local
132 …PetscCallMPI(MPIU_Allreduce(&rnorm, &fnorm, 1, MPIU_REAL, MPIU_SUM, PetscObjectComm((PetscObject)s… in SNESMonitorVI()
135 fnorm = PetscSqrtReal(fnorm); in SNESMonitorVI()
140 …PetscInt_FMT " Percent of total %g Percent of bounded %g\n", its, (double)fnorm, fact[0], fact_bou… in SNESMonitorVI()
152 PetscErrorCode SNESVICheckLocalMin_Private(SNES snes, Mat A, Vec F, Vec W, PetscReal fnorm, PetscBo… in SNESVICheckLocalMin_Private() argument
164 …(PetscInfo(snes, "|| J^T F|| %g near zero implies found a local minimum\n", (double)(a1 / fnorm))); in SNESVICheckLocalMin_Private()
165 if (a1 / fnorm < 1.e-4) *ismin = PETSC_TRUE; in SNESVICheckLocalMin_Private()
177 a1 = PetscAbsScalar(result) / (fnorm * wnorm); in SNESVICheckLocalMin_Private()
192 …VI(SNES snes, PetscInt it, PetscReal xnorm, PetscReal gradnorm, PetscReal fnorm, SNESConvergedReas… in SNESConvergedDefault_VI() argument
202 snes->ttol = fnorm * snes->rtol; in SNESConvergedDefault_VI()
[all …]
/petsc/src/snes/impls/gs/
H A Dsnesgs.c219 PetscReal fnorm; in SNESSolve_NGS() local
242 PetscCall(VecNorm(F, NORM_2, &fnorm)); /* fnorm <- ||F|| */ in SNESSolve_NGS()
243 SNESCheckFunctionDomainError(snes, fnorm); in SNESSolve_NGS()
246 snes->norm = fnorm; in SNESSolve_NGS()
251 PetscCall(SNESConverged(snes, 0, 0.0, 0.0, fnorm)); in SNESSolve_NGS()
267 PetscCall(VecNorm(F, NORM_2, &fnorm)); /* fnorm <- ||F|| */ in SNESSolve_NGS()
268 SNESCheckFunctionDomainError(snes, fnorm); in SNESSolve_NGS()
273 snes->norm = fnorm; in SNESSolve_NGS()
277 PetscCall(SNESConverged(snes, snes->iter, 0.0, 0.0, fnorm)); in SNESSolve_NGS()
/petsc/src/snes/linesearch/impls/bt/
H A Dlinesearchbt.c63 PetscReal fnorm, xnorm, ynorm, gnorm; in SNESLineSearchApply_BT() local
76 PetscCall(SNESLineSearchGetNorms(linesearch, NULL, &fnorm, NULL)); in SNESLineSearchApply_BT()
104 PetscCall(SNESLineSearchSetNorms(linesearch, xnorm, fnorm, ynorm)); in SNESLineSearchApply_BT()
114 f = 0.5 * PetscSqr(fnorm); in SNESLineSearchApply_BT()
145 gnorm = fnorm; in SNESLineSearchApply_BT()
164 …if (!objective) PetscCall(PetscInfo(snes, "Initial fnorm %14.12e gnorm %14.12e\n", (double)fnorm, … in SNESLineSearchApply_BT()
169 … " Line search: Using full step: fnorm %14.12e gnorm %14.12e\n", (double)fnorm, (double)gnorm)); in SNESLineSearchApply_BT()
178 PetscCall(SNESLineSearchSetNorms(linesearch, xnorm, fnorm, ynorm)); in SNESLineSearchApply_BT()
209 gnorm = fnorm; in SNESLineSearchApply_BT()
245 …16e, minlambda=%18.16e, lambda=%18.16e, initial slope=%18.16e\n", (double)fnorm, (double)gnorm, (d… in SNESLineSearchApply_BT()
[all …]
/petsc/src/snes/impls/qn/
H A Dqn.c68 PetscReal fnorm, xnorm, ynorm; in SNESSolve_QN() local
110 PetscCall(VecNorm(F, NORM_2, &fnorm)); in SNESSolve_QN()
111 SNESCheckFunctionDomainError(snes, fnorm); in SNESSolve_QN()
114 snes->norm = fnorm; in SNESSolve_QN()
116 PetscCall(SNESLogConvergenceHistory(snes, fnorm, 0)); in SNESSolve_QN()
117 PetscCall(SNESMonitor(snes, 0, fnorm)); in SNESSolve_QN()
120 PetscCall(SNESConverged(snes, 0, 0.0, 0.0, fnorm)); in SNESSolve_QN()
147 PetscCall(SNESGetNPCFunction(snes, F, &fnorm)); in SNESSolve_QN()
178 gnorm = fnorm; in SNESSolve_QN()
181 PetscCall(SNESLineSearchApply(snes->linesearch, X, F, &fnorm, Y)); in SNESSolve_QN()
[all …]
/petsc/src/snes/impls/patch/
H A Dsnespatch.c260 PetscReal xnorm = 0.0, ynorm = 0.0, fnorm = 0.0; in SNESSolve_Patch() local
275 PetscCall(VecNorm(residual, NORM_2, &fnorm)); in SNESSolve_Patch()
276 SNESCheckFunctionDomainError(snes, fnorm); in SNESSolve_Patch()
277 snes->ttol = fnorm * snes->rtol; in SNESSolve_Patch()
280 PetscUseTypeMethod(snes, converged, its, xnorm, ynorm, fnorm, &snes->reason, snes->cnvP); in SNESSolve_Patch()
282 PetscCall(SNESConvergedSkip(snes, its, xnorm, ynorm, fnorm, &snes->reason, NULL)); in SNESSolve_Patch()
284 PetscCall(SNESLogConvergenceHistory(snes, fnorm, 0)); /* should we count lits from the patches? */ in SNESSolve_Patch()
285 PetscCall(SNESMonitor(snes, its, fnorm)); in SNESSolve_Patch()
308 PetscCall(SNESLineSearchApply(ls, state, residual, &fnorm, update)); in SNESSolve_Patch()
314 PetscUseTypeMethod(snes, converged, its, xnorm, ynorm, fnorm, &snes->reason, snes->cnvP); in SNESSolve_Patch()
[all …]
/petsc/src/snes/impls/ntrdc/
H A Dntrdc.c63 …ivate(SNES snes, PetscInt it, PetscReal xnorm, PetscReal pnorm, PetscReal fnorm, SNESConvergedReas… in SNESTRDC_Converged_Private() argument
302 …PetscReal rho, fnorm, gnorm, xnorm = 0, delta, ynorm, temp_xnorm, temp_ynorm; /*… in SNESSolve_NEWTONTRDC() local
348 PetscCall(VecNorm(F, NORM_2, &fnorm)); /* fnorm <- || F || */ in SNESSolve_NEWTONTRDC()
349 SNESCheckFunctionDomainError(snes, fnorm); in SNESSolve_NEWTONTRDC()
353 snes->norm = fnorm; in SNESSolve_NEWTONTRDC()
358 PetscCall(SNESLogConvergenceHistory(snes, fnorm, 0)); in SNESSolve_NEWTONTRDC()
359 PetscCall(SNESMonitor(snes, 0, fnorm)); in SNESSolve_NEWTONTRDC()
364 PetscUseTypeMethod(snes, converged, snes->iter, 0.0, 0.0, fnorm, &snes->reason, snes->cnvP); in SNESSolve_NEWTONTRDC()
452 f0 = 0.5 * PetscSqr(fnorm); /* minimizing function f(X) */ in SNESSolve_NEWTONTRDC()
511 … PetscCall(SNESTRDC_Converged_Private(snes, snes->iter, xnorm, ynorm, fnorm, &reason, snes->cnvP)); in SNESSolve_NEWTONTRDC()
[all …]
/petsc/src/snes/linesearch/interface/
H A Dlinesearch.c187 linesearch->fnorm = 1.0; in SNESLineSearchCreate()
623 PetscErrorCode SNESLineSearchApply(SNESLineSearch linesearch, Vec X, Vec F, PetscReal *fnorm, Vec Y) in SNESLineSearchApply() argument
641 if (fnorm) linesearch->fnorm = *fnorm; in SNESLineSearchApply()
642 else PetscCall(VecNorm(F, NORM_2, &linesearch->fnorm)); in SNESLineSearchApply()
650 if (fnorm) *fnorm = linesearch->fnorm; in SNESLineSearchApply()
1355 PetscErrorCode SNESLineSearchGetNorms(SNESLineSearch linesearch, PetscReal *xnorm, PetscReal *fnorm… in SNESLineSearchGetNorms() argument
1360 if (fnorm) *fnorm = linesearch->fnorm; in SNESLineSearchGetNorms()
1383 PetscErrorCode SNESLineSearchSetNorms(SNESLineSearch linesearch, PetscReal xnorm, PetscReal fnorm, … in SNESLineSearchSetNorms() argument
1388 linesearch->fnorm = fnorm; in SNESLineSearchSetNorms()
1419 …l((*linesearch->ops->vinorm)(snes, linesearch->vec_func, linesearch->vec_sol, &linesearch->fnorm)); in SNESLineSearchComputeNorms()
[all …]
/petsc/src/ksp/ksp/tutorials/
H A Dex14f.F90338 PetscReal fnorm, ynorm, xnorm
446 PetscCallA(VecNorm(F, NORM_2, fnorm, ierr))
447 ttol = fnorm*rtol
449 print *, 'Initial function norm ', fnorm
496 PetscCallA(VecNorm(F, NORM_2, fnorm, ierr))
498 print *, 'Iteration ', i + 1, ' function norm', fnorm
503 if (fnorm <= ttol) then
505 print *, 'Converged: function norm ', fnorm, ' tolerance ', ttol

123