| /petsc/src/tao/bound/impls/bncg/ |
| H A D | bncg.c | 440 PetscReal tmp = 1.0, ynorm, ynorm2 = 1.0, snorm = 1.0, dk_yk = 1.0, gd; in TaoBNCGStepDirectionUpdate() local
551 snorm = step * dnorm; in TaoBNCGStepDirectionUpdate()
555 … PetscCall(TaoBNCGComputeScalarScaling(ynorm2, step * dk_yk, snorm * snorm, &tau_k, cg->alpha)); in TaoBNCGStepDirectionUpdate()
574 … PetscCall(TaoBNCGComputeScalarScaling(ynorm2, step * dk_yk, snorm * snorm, &tau_k, cg->alpha)); in TaoBNCGStepDirectionUpdate()
616 snorm = dnorm * step; in TaoBNCGStepDirectionUpdate()
624 PetscCall(TaoBNCGComputeScalarScaling(ynorm2, cg->yts, snorm * snorm, &tau_k, cg->alpha)); in TaoBNCGStepDirectionUpdate()
635 cg->sts = snorm * snorm; in TaoBNCGStepDirectionUpdate()
664 snorm = step * dnorm; in TaoBNCGStepDirectionUpdate()
668 PetscCall(TaoBNCGComputeScalarScaling(ynorm2, cg->yts, snorm * snorm, &tau_k, cg->alpha)); in TaoBNCGStepDirectionUpdate()
678 cg->sts = snorm * snorm; in TaoBNCGStepDirectionUpdate()
[all …]
|
| /petsc/src/snes/interface/ |
| H A D | snesut.c | 146 PetscReal snorm; in KSPMonitorSNESResidual() local
158 PetscCall(VecNorm(work2, NORM_2, &snorm)); in KSPMonitorSNESResidual()
167 …scInt_FMT " SNES Residual norm %5.3e KSP Residual norm %5.3e\n", n, (double)snorm, (double)rnorm)); in KSPMonitorSNESResidual()
202 PetscReal snorm; in KSPMonitorSNESResidualDrawLG() local
215 PetscCall(VecNorm(work2, NORM_2, &snorm)); in KSPMonitorSNESResidualDrawLG()
225 if (snorm > 0.0) y[1] = PetscLog10Real(snorm); in KSPMonitorSNESResidualDrawLG()
737 PetscErrorCode SNESConvergedDefault(SNES snes, PetscInt it, PetscReal xnorm, PetscReal snorm, Petsc… in SNESConvergedDefault() argument
764 } else if (snorm < snes->stol * xnorm) { in SNESConvergedDefault()
765 …erged due to small update length: %14.12e < %14.12e * %14.12e\n", (double)snorm, (double)snes->sto… in SNESConvergedDefault()
802 PetscErrorCode SNESConvergedSkip(SNES snes, PetscInt it, PetscReal xnorm, PetscReal snorm, PetscRea… in SNESConvergedSkip() argument
|
| H A D | snes.c | 4165 PetscErrorCode SNESConverged(SNES snes, PetscInt it, PetscReal xnorm, PetscReal snorm, PetscReal fn… in SNESConverged() argument
4169 …edule == SNES_NORM_ALWAYS) PetscUseTypeMethod(snes, converged, it, xnorm, snorm, fnorm, &snes->rea… in SNESConverged()
|
| /petsc/src/ksp/ksp/interface/ |
| H A D | iterativ.c | 852 PetscReal snorm; in KSPMonitorSolution() local
859 PetscCall(VecNorm(x, NORM_2, &snorm)); in KSPMonitorSolution()
865 …etscViewerASCIIPrintf(viewer, "%3" PetscInt_FMT " KSP Solution norm %14.12e\n", n, (double)snorm)); in KSPMonitorSolution()
942 PetscReal snorm, x, y; in KSPMonitorSolutionDrawLG() local
948 PetscCall(VecNorm(u, NORM_2, &snorm)); in KSPMonitorSolutionDrawLG()
952 if (snorm > 0.0) y = PetscLog10Real(snorm); in KSPMonitorSolutionDrawLG()
1542 PetscReal snorm = 0.0; in KSPConvergedDefault() local
1545 PetscCall(VecNorm(ksp->vec_rhs, NORM_2, &snorm)); /* <- b'*b */ in KSPConvergedDefault()
1553 PetscCall(VecNorm(z, NORM_2, &snorm)); /* dp <- b'*B'*B*b */ in KSPConvergedDefault()
1558 snorm = PetscSqrtReal(PetscAbsScalar(norm)); /* dp <- b'*B*b */ in KSPConvergedDefault()
[all …]
|
| /petsc/src/snes/impls/composite/ |
| H A D | snescomposite.c | 692 PetscReal fnorm = 0.0, xnorm = 0.0, snorm = 0.0; in SNESSolve_Composite() local
760 PetscCall(VecNormBegin(Y, NORM_2, &snorm)); in SNESSolve_Composite()
763 PetscCall(VecNormEnd(Y, NORM_2, &snorm)); in SNESSolve_Composite()
767 PetscCall(VecNormBegin(Y, NORM_2, &snorm)); in SNESSolve_Composite()
771 PetscCall(VecNormEnd(Y, NORM_2, &snorm)); in SNESSolve_Composite()
776 PetscCall(VecNormBegin(Y, NORM_2, &snorm)); in SNESSolve_Composite()
778 PetscCall(VecNormEnd(Y, NORM_2, &snorm)); in SNESSolve_Composite()
785 snes->ynorm = snorm; in SNESSolve_Composite()
789 PetscCall(SNESConverged(snes, snes->iter, xnorm, snorm, fnorm)); in SNESSolve_Composite()
|
| /petsc/src/snes/tutorials/ |
| H A D | ex5f.F90 | 330 subroutine MySNESConverged(snes, it, xnorm, snorm, fnorm, reason, dummy, ierr) argument
334 PetscReal xnorm, snorm, fnorm, nrm
|
| H A D | ex30.c | 1229 PetscErrorCode SNESConverged_Interactive(SNES snes, PetscInt it, PetscReal xnorm, PetscReal snorm, … in SNESConverged_Interactive() argument
1261 PetscCall(SNESConvergedDefault(snes, it, xnorm, snorm, fnorm, reason, ctx)); in SNESConverged_Interactive()
|
| /petsc/src/ksp/ksp/utils/lmvm/sr1/ |
| H A D | sr1.c | 279 PetscReal snorm, pnorm; in MatUpdate_LMVMSR1() local
333 PetscCall(VecNorm(lmvm->Xprev, NORM_2, &snorm)); in MatUpdate_LMVMSR1()
336 if (PetscAbsReal(PetscRealPart(sktw)) >= lmvm->eps * snorm * pnorm) { in MatUpdate_LMVMSR1()
|
| /petsc/src/snes/tests/ |
| H A D | ex20.c | 1641 …_UNUSED PetscInt it, PETSC_UNUSED PetscReal xnorm, PETSC_UNUSED PetscReal snorm, PETSC_UNUSED Pets… in TestConvergence() argument
|