Home
last modified time | relevance | path

Searched refs:emin (Results 1 – 17 of 17) sorted by relevance

/petsc/src/ksp/ksp/impls/cheby/
H A Dcheby.c18 static PetscErrorCode KSPChebyshevComputeExtremeEigenvalues_Private(KSP kspest, PetscReal *emin, Pe… in KSPChebyshevComputeExtremeEigenvalues_Private() argument
35 *emin = min; in KSPChebyshevComputeExtremeEigenvalues_Private()
40 …atic PetscErrorCode KSPChebyshevGetEigenvalues_Chebyshev(KSP ksp, PetscReal *emax, PetscReal *emin) in KSPChebyshevGetEigenvalues_Chebyshev() argument
46 *emin = 0; in KSPChebyshevGetEigenvalues_Chebyshev()
54 if (cheb->emin != 0.) { in KSPChebyshevGetEigenvalues_Chebyshev()
55 *emin = cheb->emin; in KSPChebyshevGetEigenvalues_Chebyshev()
57 *emin = cheb->tform[0] * cheb->emin_computed + cheb->tform[1] * cheb->emax_computed; in KSPChebyshevGetEigenvalues_Chebyshev()
59 *emin = cheb->tform[0] * cheb->emin_provided + cheb->tform[1] * cheb->emax_provided; in KSPChebyshevGetEigenvalues_Chebyshev()
64 static PetscErrorCode KSPChebyshevSetEigenvalues_Chebyshev(KSP ksp, PetscReal emax, PetscReal emin) in KSPChebyshevSetEigenvalues_Chebyshev() argument
69 …emin || (emax == 0 && emin == 0) || (emax == -1 && emin == -1), PetscObjectComm((PetscObject)ksp),… in KSPChebyshevSetEigenvalues_Chebyshev()
[all …]
H A Dchebyshevimpl.h10 …PetscReal emin, emax; /* store user provided estimates of extreme eigenvalues o… member
/petsc/src/snes/interface/noise/
H A Dsnesdnest.c22 static double emin, emax; in SNESNoise_dnest_() local
212 emin = PetscMin(d__1, eps[6]); in SNESNoise_dnest_()
218 if (emax <= emin * 4 && dnoise) { in SNESNoise_dnest_()
232 emin = PetscMin(d__1, eps[5]); in SNESNoise_dnest_()
238 if (emax <= emin * 4 && dnoise) { in SNESNoise_dnest_()
/petsc/src/ksp/ksp/interface/saws/
H A Dkspsaws.c81 PetscReal emax, emin; in KSPMonitorSAWs() local
86 PetscCall(KSPComputeExtremeSingularValues(ksp, &emax, &emin)); in KSPMonitorSAWs()
104 …PetscCall(PetscInfo(ksp, "KSP extreme singular values min=%g max=%g\n", (double)emin, (double)emax… in KSPMonitorSAWs()
/petsc/src/ksp/ksp/impls/cg/
H A Dcgeig.c42 PetscErrorCode KSPComputeExtremeSingularValues_CG(KSP ksp, PetscReal *emax, PetscReal *emin) in KSPComputeExtremeSingularValues_CG() argument
52 *emax = *emin = 1.0; in KSPComputeExtremeSingularValues_CG()
71 *emin = dd[0]; in KSPComputeExtremeSingularValues_CG()
/petsc/lib/petsc/bin/maint/
H A Dtoclapack.sh623 static real emin, prec, emax;
1650 /* = 'M' or 'm', DLAMCH := emin */
1663 /* emin = minimum exponent before (gradual) underflow */
1664 /* rmin = underflow threshold - base**(emin-1) */
1698 emin = (doublereal) imin;
1724 rmach = emin;
1952 doublereal *eps, integer *emin, doublereal *rmin, integer *emax,
2250 *emin = lemin;
2307 /* Subroutine */ int dlamc4_(integer *emin, doublereal *start, integer *base)
2358 *emin = 1;
[all …]
/petsc/src/ksp/pc/impls/gamg/
H A Dgamg.c39 pc_gamg->emin = 0; in PCReset_GAMG()
931 PetscReal emax, emin; in PCSetUp_GAMG() local
933 emin = mg->min_eigen_DinvA[level]; in PCSetUp_GAMG()
935 …emin = %g\n", ((PetscObject)pc)->prefix, level, Aarr[level]->rmap->N, (double)emax, (double)emin)); in PCSetUp_GAMG()
936 cheb->emin_provided = emin; in PCSetUp_GAMG()
1222 PetscErrorCode PCGAMGSetEigenvalues(PC pc, PetscReal emax, PetscReal emin) in PCGAMGSetEigenvalues() argument
1226 PetscTryMethod(pc, "PCGAMGSetEigenvalues_C", (PC, PetscReal, PetscReal), (pc, emax, emin)); in PCGAMGSetEigenvalues()
1230 static PetscErrorCode PCGAMGSetEigenvalues_GAMG(PC pc, PetscReal emax, PetscReal emin) in PCGAMGSetEigenvalues_GAMG() argument
1236 …emin, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_INCOMP, "Maximum eigenvalue must be larger t… in PCGAMGSetEigenvalues_GAMG()
1237 …emin > 0.0, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_INCOMP, "Both eigenvalues must be of t… in PCGAMGSetEigenvalues_GAMG()
[all …]
H A Dagg.c1434 PetscReal alpha, emax, emin; in PCGAMGOptimizeProlongator_AGG() local
1444 emin = pc_gamg->emin; in PCGAMGOptimizeProlongator_AGG()
1480 PetscCall(KSPComputeExtremeSingularValues(eksp, &emax, &emin)); in PCGAMGOptimizeProlongator_AGG()
1481 …0: max eigen=%e min=%e PC=%s\n", ((PetscObject)pc)->prefix, (double)emax, (double)emin, PCJACOBI)); in PCGAMGOptimizeProlongator_AGG()
1487 mg->min_eigen_DinvA[pc_gamg->current_level] = emin; in PCGAMGOptimizeProlongator_AGG()
1489 … spectra %g %g\n", ((PetscObject)pc)->prefix, pc_gamg->current_level, (double)emin, (double)emax)); in PCGAMGOptimizeProlongator_AGG()
/petsc/include/petsc/private/
H A Dpcgamgimpl.h52 PetscReal emin, emax; member
/petsc/src/ksp/ksp/impls/gmres/
H A Dgmreig.c4 PetscErrorCode KSPComputeExtremeSingularValues_GMRES(KSP ksp, PetscReal *emax, PetscReal *emin) in KSPComputeExtremeSingularValues_GMRES() argument
18 *emax = *emin = 1.0; in KSPComputeExtremeSingularValues_GMRES()
37 *emin = realpart[n - 1]; in KSPComputeExtremeSingularValues_GMRES()
/petsc/src/ksp/ksp/tutorials/
H A Dex56.c374 PetscReal emax, emin; in main() local
388 PetscCall(KSPComputeExtremeSingularValues(ksp, &emax, &emin)); in main()
/petsc/src/ksp/ksp/interface/
H A Diterativ.c1026 PetscReal emin, emax; in KSPMonitorSingularValue() local
1041 PetscCall(KSPComputeExtremeSingularValues(ksp, &emax, &emin)); in KSPMonitorSingularValue()
1042 … %14.12e max/min %14.12e\n", n, (double)rnorm, (double)emax, (double)emin, (double)(emax / emin))); in KSPMonitorSingularValue()
H A Ditfunc.c55 PetscErrorCode KSPComputeExtremeSingularValues(KSP ksp, PetscReal *emax, PetscReal *emin) in KSPComputeExtremeSingularValues() argument
60 PetscAssertPointer(emin, 3); in KSPComputeExtremeSingularValues()
63 …s->computeextremesingularvalues) PetscUseTypeMethod(ksp, computeextremesingularvalues, emax, emin); in KSPComputeExtremeSingularValues()
65 *emin = -1.0; in KSPComputeExtremeSingularValues()
/petsc/src/ksp/ksp/impls/minres/
H A Dminres.c905 PetscErrorCode KSPComputeExtremeSingularValues_MINRES(KSP ksp, PetscReal *emax, PetscReal *emin) in KSPComputeExtremeSingularValues_MINRES() argument
915 *emax = *emin = 1.0; in KSPComputeExtremeSingularValues_MINRES()
936 *emin = dd[0]; in KSPComputeExtremeSingularValues_MINRES()
/petsc/src/snes/impls/tr/
H A Dtr.c661 PetscReal emax, emin; in SNESSolve_NEWTONTR() local
662 PetscCall(KSPComputeExtremeSingularValues(snes->ksp, &emax, &emin)); in SNESSolve_NEWTONTR()
/petsc/src/ksp/ksp/impls/fetidp/
H A Dfetidp.c248 …ic PetscErrorCode KSPComputeExtremeSingularValues_FETIDP(KSP ksp, PetscReal *emax, PetscReal *emin) in KSPComputeExtremeSingularValues_FETIDP() argument
253 PetscCall(KSPComputeExtremeSingularValues(fetidp->innerksp, emax, emin)); in KSPComputeExtremeSingularValues_FETIDP()
/petsc/doc/manual/
H A Dksp.md190 KSPChebyshevSetEigenvalues(KSP ksp,PetscReal emax,PetscReal emin);
195 `scale=1.0, emax=0.01, emin=100.0`, and `max_steps=30`. The
1185 (smoothers), with `-pc_gamg_eigenvalues <emin,emax>`. GAMG sets the MG