| /petsc/src/sys/tests/output/ |
| H A D | ex39.out | 6 PetscIsCloseAtTol(pos_one+eps,pos_one,0,0) -> False 7 PetscIsCloseAtTol(pos_one-eps,pos_one,0,0) -> False 8 PetscIsCloseAtTol(pos_one+eps,pos_one,0,0) -> False 9 PetscIsCloseAtTol(pos_one-eps,pos_one,0,0) -> False 10 PetscIsCloseAtTol(pos_one+eps,pos_one,0,eps) -> True 11 PetscIsCloseAtTol(pos_one-eps,pos_one,0,eps) -> True 12 PetscIsCloseAtTol(pos_one+eps,pos_one,eps,0) -> True 13 PetscIsCloseAtTol(pos_one-eps,pos_one,eps,0) -> True 14 PetscIsCloseAtTol(pos_one+2*eps,pos_one,eps,0) -> False 15 PetscIsCloseAtTol(pos_one-2*eps,pos_one,eps,0) -> False [all …]
|
| /petsc/src/sys/tests/ |
| H A D | ex39.c | 14 PetscReal eps = PETSC_MACHINE_EPSILON; in main() local 32 CALL(PetscIsCloseAtTol(pos_one + eps, pos_one, 0, 0)); in main() 33 CALL(PetscIsCloseAtTol(pos_one - eps, pos_one, 0, 0)); in main() 34 CALL(PetscIsCloseAtTol(pos_one + eps, pos_one, 0, 0)); in main() 35 CALL(PetscIsCloseAtTol(pos_one - eps, pos_one, 0, 0)); in main() 37 CALL(PetscIsCloseAtTol(pos_one + eps, pos_one, 0, eps)); in main() 38 CALL(PetscIsCloseAtTol(pos_one - eps, pos_one, 0, eps)); in main() 39 CALL(PetscIsCloseAtTol(pos_one + eps, pos_one, eps, 0)); in main() 40 CALL(PetscIsCloseAtTol(pos_one - eps, pos_one, eps, 0)); in main() 42 CALL(PetscIsCloseAtTol(pos_one + 2 * eps, pos_one, eps, 0)); in main() [all …]
|
| /petsc/src/snes/interface/noise/ |
| H A D | snesdnest.c | 11 …ouble *fval, double *h__, double *fnoise, double *fder2, double *hopt, PetscInt *info, double *eps) in SNESNoise_dnest_() argument 110 --eps; in SNESNoise_dnest_() 183 eps[j] = const__[j - 1] * stdv; in SNESNoise_dnest_() 211 d__1 = PetscMin(eps[4], eps[5]); in SNESNoise_dnest_() 212 emin = PetscMin(d__1, eps[6]); in SNESNoise_dnest_() 215 d__1 = PetscMax(eps[4], eps[5]); in SNESNoise_dnest_() 216 emax = PetscMax(d__1, eps[6]); in SNESNoise_dnest_() 219 *fnoise = (eps[4] + eps[5] + eps[6]) / 3; in SNESNoise_dnest_() 231 d__1 = PetscMin(eps[3], eps[4]); in SNESNoise_dnest_() 232 emin = PetscMin(d__1, eps[5]); in SNESNoise_dnest_() [all …]
|
| H A D | snesnoise.c | 83 PetscScalar fval[7], tab[7][7], eps[7], f = -1; in SNESDiffParameterCompute_More() local 142 PetscCall(SNESNoise_dnest_(&nf, fval, &h, fnoise, &fder2, hopt, &info, eps)); in SNESDiffParameterCompute_More() 150 …%g %g %g %g %g %g\n", (double)eps[0], (double)eps[1], (double)eps[2], (double)eps[3], (double… in SNESDiffParameterCompute_More()
|
| /petsc/src/sys/classes/random/tutorials/ |
| H A D | ex2.c | 39 PetscReal *eps; in main() local 73 PetscCall(PetscMalloc1(numdim, &eps)); in main() 79 PetscCall(stdNormalArray(eps, numdim, ran)); in main() 80 x += basketPayoff(vol, St0, n, r, dt, eps); in main() 89 PetscCall(PetscFree(eps)); in main() 95 PetscErrorCode stdNormalArray(PetscReal *eps, PetscInt numdim, PetscRandom ran) in stdNormalArray() argument 107 eps[i] = t * PetscCosReal(2 * PETSC_PI * PetscRealPart(u2)); in stdNormalArray() 108 eps[i + 1] = t * PetscSinReal(2 * PETSC_PI * PetscRealPart(u2)); in stdNormalArray() 113 …ketPayoff(PetscReal vol[], PetscReal St0[], PetscInt n, PetscReal r, PetscReal dt, PetscReal eps[]) in basketPayoff() argument 125 Stk[j] = mcVal(Stk[j], r, vol[j], dt, eps[pointcount++]); in basketPayoff() [all …]
|
| /petsc/src/ksp/ksp/impls/cg/pipecgrr/ |
| H A D | pipecgrr.c | 24 … = 0.0, qnp = 0.0, znp = 0.0, mnz = 5.0, tol = PETSC_SQRT_MACHINE_EPSILON, eps = PETSC_MACHINE_EPS… in KSPSolve_PIPECGRR() local 193 … xnp + 2.0 * Anorm * PetscAbsScalar(alphap) * dpp + rnp + 2.0 * PetscAbsScalar(alphap) * ds) * eps; in KSPSolve_PIPECGRR() 194 …* unp + 2.0 * Anorm * PetscAbsScalar(alphap) * dq + wnp + 2.0 * PetscAbsScalar(alphap) * dz) * eps; in KSPSolve_PIPECGRR() 197 …* unp + 2.0 * Anorm * PetscAbsScalar(betap) * pnp + wnp + 2.0 * PetscAbsScalar(betap) * snp) * eps; in KSPSolve_PIPECGRR() 198 … Anorm * dm + 2.0 * Anorm * PetscAbsScalar(betap) * qnp + 2.0 * PetscAbsScalar(betap) * znp) * eps; in KSPSolve_PIPECGRR() 203 …((mnz * sqn + 1) * Anorm * xnp + db) * eps + PetscSqrtReal(PetscAbsScalar(alphap) * mnz * sqn * An… in KSPSolve_PIPECGRR() 204 errs = PetscSqrtReal(mnz * sqn * Anorm * dpp) * eps; in KSPSolve_PIPECGRR() 205 …tscSqrtReal(mnz * sqn * Anorm * unp) * eps + PetscSqrtReal(PetscAbsScalar(alphap) * mnz * sqn * An… in KSPSolve_PIPECGRR() 206 errz = PetscSqrtReal(mnz * sqn * Anorm * dq) * eps; in KSPSolve_PIPECGRR() 209 errr = PetscSqrtReal((mnz * sqn + 1) * Anorm * dx + db) * eps; in KSPSolve_PIPECGRR() [all …]
|
| /petsc/config/BuildSystem/docs/ |
| H A D | makefile | 2 manual.pdf: manual.xml sharedLibraryCheck.jpg sharedLibraryCheck.eps sharedLibraryCheck.pdf 8 sharedLibraryCheck.eps: sharedLibraryCheck.fig 9 fig2dev -L eps $< $@
|
| /petsc/src/dm/impls/plex/tests/ |
| H A D | dmplexcomputecellgeometryfem.F90 | 13 PetscReal, parameter :: eps = 5.0*epsilon(1.0) 43 …PetscCheckA(all(abs(v - tria_v) < eps), PETSC_COMM_WORLD, PETSC_ERR_PLIB, 'Wrong mapped quadrature… 44 …PetscCheckA(all(abs(J - tria_J) < eps), PETSC_COMM_WORLD, PETSC_ERR_PLIB, 'Wrong jacobian (triangl… 78 …PetscCheckA(all(abs(v((k - 1)*numDim + 1:k*numDim) - quad_v(Gauss_rs(k))) < eps), PETSC_COMM_WORLD… 79 …PetscCheckA(all(abs(J((k - 1)*numDim**2 + 1:k*numDim**2) - quad_J(Gauss_rs(k))) < eps), PETSC_COMM…
|
| /petsc/src/dm/dt/tests/ |
| H A D | ex1.c | 53 PetscReal eps; in CheckQuadrature() local 56 eps = PETSC_SMALL; in CheckQuadrature() 66 tol = eps; in CheckQuadrature() 84 …PetscCheck(norm2diff <= eps * I_exact, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Jacobi norm error %g", (d… in CheckQuadrature() 86 tol = eps * I_exact; in CheckQuadrature() 112 PetscReal eps; in CheckJacobiQuadrature() local 115 eps = PETSC_SMALL; in CheckJacobiQuadrature() 125 xtol = eps * (1. + PetscMin(PetscAbsReal(x[i]), 1. - PetscAbsReal(x[i]))); in CheckJacobiQuadrature() 126 wtol = eps * (1. + w[i]); in CheckJacobiQuadrature()
|
| /petsc/src/tao/constrained/tutorials/ |
| H A D | tomographyADMM.c | 19 PetscReal lambda, eps, mumin; member 96 PetscCall(VecShift(user->workN2, user->eps * user->eps)); in RegularizerObjectiveAndGradient1() 99 PetscCall(VecShift(user->workN2, -user->eps)); in RegularizerObjectiveAndGradient1() 146 PetscCall(VecShift(user->workN2, user->eps * user->eps)); in HessianReg() 148 PetscCall(VecShift(user->workN2, -user->eps)); in HessianReg() 150 PetscCall(VecScale(user->workN2, user->eps * user->eps)); in HessianReg() 278 user->eps = 1.e-3; in InitializeUserData() 285 …scOptionsReal("-eps", "L1 norm epsilon padding", "tomographyADMM.c", user->eps, &user->eps, NULL)); in InitializeUserData()
|
| /petsc/src/binding/petsc4py/demo/legacy/kspsolve/ |
| H A D | petsc-cg.py | 1 def cg(A, b, x, imax=50, eps=1e-6): argument 20 delta > delta_0 * eps**2:
|
| /petsc/src/snes/interface/ |
| H A D | snesob.c | 144 PetscReal ob, ob1, ob2, ob3, fob, dx, eps = 1e-6; in SNESObjectiveComputeFunctionDefaultFD() local 150 …"-snes_fd_function_eps", "Tolerance for nonzero entries in fd function", "None", eps, &eps, NULL)); in SNESObjectiveComputeFunctionDefaultFD() 197 if (PetscAbsScalar(fv) > eps) { in SNESObjectiveComputeFunctionDefaultFD()
|
| /petsc/src/ts/tutorials/eimex/ |
| H A D | allen_cahn.c | 111 PetscReal hx, eps; in RHSFunction() local 115 eps = user->param; in RHSFunction() 119 f[0] = 2. * eps * (x[1] - x[0]) / (hx * hx); /*boundary*/ in RHSFunction() 120 for (i = 1; i < mx - 1; i++) f[i] = eps * (x[i + 1] - 2. * x[i] + x[i - 1]) / (hx * hx); in RHSFunction() 121 f[mx - 1] = 2. * eps * (x[mx - 2] - x[mx - 1]) / (hx * hx); /*boundary*/ in RHSFunction()
|
| /petsc/src/sys/objects/ |
| H A D | finit.c | 69 PetscReal eps = PETSC_MACHINE_EPSILON; in PetscInitializeFortran() local 74 petscsetmoduleblocknumeric_(&pi, &maxreal, &minreal, &eps, &seps, &small, &pinf, &pninf); in PetscInitializeFortran()
|
| /petsc/src/sys/classes/draw/utils/ |
| H A D | axis.c | 33 PetscReal x = 0.0, base = 0.0, eps; in PetscADefTicks() local 44 eps = base / 10; in PetscADefTicks() 45 while (i < maxtick && x <= high + eps) { in PetscADefTicks()
|
| /petsc/src/ts/tutorials/eimex/output/ |
| H A D | allen_cahn.out | 1 eps 0.0009, steps 881, ftime 22.025
|
| /petsc/src/tao/tutorials/ |
| H A D | ex4.c | 20 PetscReal eps; /* small constant for approximating gradient of || x ||_1 */ member 117 ctx->eps = 1.e-3; in ConfigureContext() 137 …| in the denominator to approximate the gradient of ||x||_1", "ex4.c", ctx->eps, &ctx->eps, NULL)); in ConfigureContext() 295 PetscReal eps = ctx->eps; in GradientRegularization() local 303 PetscCall(VecShift(ctx->workRight[1], eps)); in GradientRegularization() 314 PetscReal eps = ctx->eps; in HessianRegularization() local 334 PetscCall(VecShift(copy1, eps)); in HessianRegularization() 343 PetscCall(VecShift(copy3, eps)); in HessianRegularization()
|
| /petsc/src/snes/tutorials/ |
| H A D | ex36.c | 59 const PetscReal eps = param->epsilon; in oscillatory_u() local 61 …eps / (2. * PETSC_PI)) * (0.5 - x[0]) * PetscSinReal(2. * PETSC_PI * x[0] / eps) + PetscSqr(eps / … in oscillatory_u() 100 const PetscReal eps = PetscRealPart(constants[EPSILON]); in f1_oscillatory_u() local 102 f1[0] = u_x[0] / (2. + PetscCosReal(2. * PETSC_PI * x[0] / eps)); in f1_oscillatory_u() 107 const PetscReal eps = PetscRealPart(constants[EPSILON]); in g3_oscillatory_uu() local 109 g3[0] = 1. / (2. + PetscCosReal(2. * PETSC_PI * x[0] / eps)); in g3_oscillatory_uu()
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex54f.F90 | 37 PetscReal::theta, eps, h, x, y, xsj 63 eps = 1.0 64 …PetscCallA(PetscOptionsGetReal(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-epsilon', eps, flg, ier… 77 ev(2) = eps*ev(1) 235 write (1, 2002) eps, theta*57.2957795
|
| /petsc/src/ts/tutorials/output/ |
| H A D | ex30_full_cdisc.out | 5 eps : 0.001
|
| H A D | ex30_full_cdisc_minres.out | 5 eps : 0.001
|
| H A D | ex30_hdf5_diagnostic.out | 5 eps : 0.001
|
| H A D | ex30_annulus.out | 5 eps : 0.001
|
| H A D | ex30_vtk_diagnostic.out | 5 eps : 0.001
|
| H A D | ex30_full_cdisc_split.out | 5 eps : 0.001
|