Home
last modified time | relevance | path

Searched refs:PetscAbsReal (Results 1 – 25 of 133) sorted by relevance

123456

/petsc/src/sys/utils/
H A Dmathclose.c27 rtol = PetscAbsReal(rtol); in PetscIsCloseAtTol()
28 atol = PetscAbsReal(atol); in PetscIsCloseAtTol()
30 diff = PetscAbsReal(b - a); in PetscIsCloseAtTol()
31 …return ((diff <= PetscAbsReal(rtol * b)) || (diff <= PetscAbsReal(rtol * a)) || (diff <= atol)) ? … in PetscIsCloseAtTol()
H A Dsortd.c224 *loc = (PetscAbsReal(key - t[lo]) < eps) ? lo : -(lo + (key > t[lo]) + 1); in PetscFindReal()
358 abskey = PetscAbsReal(d); in PetscSortSplitReal()
362 if (PetscAbsReal(d) >= abskey) { in PetscSortSplitReal()
/petsc/src/tao/linesearch/impls/morethuente/
H A Dmorethuente.c182 …if ((*f - ftest1 <= PETSC_SMALL * PetscAbsReal(finit)) && (PetscAbsReal(dg) + ls->gtol * dginit <=… in TaoLineSearchApply_MT()
250 if (PetscAbsReal(sty - stx) >= 0.66 * width1) ls->step = stx + 0.5 * (sty - stx); in TaoLineSearchApply_MT()
252 width = PetscAbsReal(sty - stx); in TaoLineSearchApply_MT()
377 sgnd = *dp * (*dx / PetscAbsReal(*dx)); in Tao_mcstep()
388 s = PetscMax(PetscAbsReal(theta), PetscAbsReal(*dx)); in Tao_mcstep()
389 s = PetscMax(s, PetscAbsReal(*dp)); in Tao_mcstep()
399 if (PetscAbsReal(stpc - *stx) < PetscAbsReal(stpq - *stx)) stpf = stpc; in Tao_mcstep()
411 s = PetscMax(PetscAbsReal(theta), PetscAbsReal(*dx)); in Tao_mcstep()
412 s = PetscMax(s, PetscAbsReal(*dp)); in Tao_mcstep()
421 if (PetscAbsReal(stpc - *stp) > PetscAbsReal(stpq - *stp)) stpf = stpc; in Tao_mcstep()
[all …]
/petsc/src/dm/dt/tests/
H A Dex7.c54 diffMat += PetscSqr(PetscAbsReal(Lstarwcheck[i] - Lstarw[i])); in CheckPullback()
76 diff = PetscAbsReal(wLx - Lstarwx); in CheckPullback()
77 …PetscCheck(diff <= 10. * PETSC_SMALL * (PetscAbsReal(wLx) + PetscAbsReal(Lstarwx)), PETSC_COMM_WOR… in CheckPullback()
196 …PetscCheck(diff < PETSC_SMALL * (PetscAbsReal(wv) + PetscAbsReal(wvcheck)), PETSC_COMM_WORLD, PETS… in main()
222 …PetscCheck(diff < PETSC_SMALL * (PetscAbsReal(wv) + PetscAbsReal(wvcheck)), PETSC_COMM_WORLD, PETS… in main()
250 …PetscCheck(PetscAbsReal(diff) <= 10. * PETSC_SMALL * (PetscAbsReal(waxv) + PetscAbsReal(waxvcheck)… in main()
273 diff = PetscAbsReal(wswapv + wv); in main()
274 …PetscCheck(diff <= PETSC_SMALL * (PetscAbsReal(wswapv) + PetscAbsReal(wv)), PETSC_COMM_WORLD, PETS… in main()
323 diff = PetscAbsReal(uWwx - uWwxcheck); in main()
324 …PetscCheck(diff <= 10. * PETSC_SMALL * (PetscAbsReal(uWwx) + PetscAbsReal(uWwxcheck)), PETSC_COMM_… in main()
[all …]
H A Dex1.c23 if (PetscAbsReal(b) < PETSC_SMALL) b = 0; in CheckPoints()
24 if (PetscAbsReal(d) < PETSC_SMALL) d = 0; in CheckPoints()
25 if (PetscAbsReal(d2) < PETSC_SMALL) d2 = 0; in CheckPoints()
83 norm2diff = PetscAbsReal(norm * norm - I_exact); in CheckQuadrature()
89 err = PetscAbsReal(I_exact - I_quad); in CheckQuadrature()
123 xdiff = PetscAbsReal(x[i] - x2[i]); in CheckJacobiQuadrature()
124 wdiff = PetscAbsReal(w[i] - w2[i]); in CheckJacobiQuadrature()
125 xtol = eps * (1. + PetscMin(PetscAbsReal(x[i]), 1. - PetscAbsReal(x[i]))); in CheckJacobiQuadrature()
H A Dex3.c134 …if (PetscAbsReal(integral - analytic[f]) > PetscMax(epsilon, PetscPowRealInt(10.0, -digits)) || Pe… in main()
135 …PetscInt_FMT " is wrong: %g (%g)\n", f + 1, (double)integral, (double)PetscAbsReal(integral - anal… in main()
143 …PetscAbsReal(integral - analytic[f]) > PetscPowRealInt(10.0, -digits)) PetscCall(PetscPrintf(PETSC… in main()
H A Dex9.c25 …PetscCheck(PetscAbsReal(integral - exact) <= PETSC_SMALL, PETSC_COMM_SELF, PETSC_ERR_PLIB, "<P[%" … in testOrthogonality()
146 PetscReal scale = 1. + PetscAbsReal(lgndre_jet[i]) + PetscAbsReal(pkd_jet[i]); in testDerivativesLegendre()
149 …PetscCheck(PetscAbsReal(diff) <= tol, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Jet mismatch between PKD a… in testDerivativesLegendre()
H A Dex14.c18 …PetscCheck(PetscAbsReal(integral - 1) < 100 * PETSC_MACHINE_EPSILON, PETSC_COMM_SELF, PETSC_ERR_AR… in VerifyDistribution()
24 …PetscCheck(PetscAbsReal(integral - integral2) < PETSC_SQRT_MACHINE_EPSILON, PETSC_COMM_SELF, PETSC… in VerifyDistribution()
/petsc/src/mat/tests/
H A Dex185.c24 …PetscCheck(PetscAbsReal(ynorm - 3 * xnorm) <= PETSC_SMALL, PETSC_COMM_WORLD, PETSC_ERR_PLIB, "Expe… in main()
29 …PetscCheck(PetscAbsReal(anorm - 4) <= PETSC_SMALL, PETSC_COMM_WORLD, PETSC_ERR_PLIB, "Expected nor… in main()
52 …PetscCheck(PetscAbsReal(ynorm - xnorm / 4) <= PETSC_SMALL, PETSC_COMM_WORLD, PETSC_ERR_PLIB, "Expe… in main()
57 …PetscCheck(PetscAbsReal(ynorm - xnorm / 4) <= PETSC_SMALL, PETSC_COMM_WORLD, PETSC_ERR_PLIB, "Expe… in main()
62 …PetscCheck(PetscAbsReal(ynorm - xnorm / 4) <= PETSC_SMALL, PETSC_COMM_WORLD, PETSC_ERR_PLIB, "Expe… in main()
H A Dex241.c103 …(PetscAbsReal(norm) <= PETSC_SMALL, PETSC_COMM_WORLD, PETSC_ERR_PLIB, "||y(with permutation)-y(wit… in main()
110 …if (PetscAbsReal(epsilon) >= PETSC_SMALL) { /* when there is compression, it is more difficult to … in main()
125 …heck(PetscAbsReal(norm / relative) <= epsilon, PETSC_COMM_WORLD, PETSC_ERR_PLIB, "||A(!symmetric)-… in main()
154 …PetscCheck(PetscAbsReal(norm) <= PETSC_SMALL, PETSC_COMM_WORLD, PETSC_ERR_PLIB, "||A-D|| = %g (> %… in main()
221 …(PetscAbsReal(norm) <= PETSC_SMALL, PETSC_COMM_WORLD, PETSC_ERR_PLIB, "||y(with permutation)-y(wit… in main()
H A Dex44.c27 …PetscCheck(PetscAbsReal(v - w) <= 0, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Matrix entry (%" PetscInt_F… in CheckValuesAIJ()
54 if (PetscAbsReal(v) > 0) PetscCall(MatSetValue(A, i, j, v, INSERT_VALUES)); in main()
H A Dex45.c27 …PetscCheck(PetscAbsReal(v - w) <= 0, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Matrix entry (%" PetscInt_F… in CheckValuesAIJ()
55 if (PetscAbsReal(v) > 0) PetscCall(MatSetValue(A, i, j, v, INSERT_VALUES)); in main()
H A Dex50.c31 …PetscCheck(PetscAbsReal(v - w) <= 0, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Matrix entry (%" PetscInt_F… in CheckValuesAIJ()
59 if (PetscAbsReal(v) > 0) PetscCall(MatSetValue(A, i, j, v, INSERT_VALUES)); in main()
H A Dex246.cxx91 …heck(PetscAbsReal(norm / relative) <= epsilon, PETSC_COMM_WORLD, PETSC_ERR_PLIB, "||A(!symmetric)-… in main()
/petsc/src/snes/linesearch/impls/secant/
H A Dlinesearchsecant.c124 if (PetscAbsReal(delLambda) < ltol) { in SNESLineSearchApply_Secant()
127 …onitor, " Line search: abs(delLambda) = %g < ltol = %g\n", (double)PetscAbsReal(delLambda), (do… in SNESLineSearchApply_Secant()
141 if (PetscAbsReal(delFnrm) <= atol) { in SNESLineSearchApply_Secant()
144 …monitor, " Line search: abs(delFnrm) = %g <= atol = %g\n", (double)PetscAbsReal(delFnrm), (doub… in SNESLineSearchApply_Secant()
/petsc/src/ksp/ksp/impls/gmres/agmres/
H A Dagmresorthog.c65 if (PetscAbsReal(b) > PetscAbsReal(a)) { in KSPAGMRESRoddecGivens()
78 if (PetscAbsReal(*s) < PetscAbsReal(*c)) { in KSPAGMRESRoddecGivens()
90 if (PetscAbsReal(*r) < 1.e0) { in KSPAGMRESRoddecGivens()
/petsc/src/dm/impls/plex/tests/
H A Dex33.c72 …PetscAbsReal(ctx->volume - vol) <= tol, PetscObjectComm((PetscObject)dm), PETSC_ERR_PLIB, "Calcula… in CheckVolume()
/petsc/src/tao/unconstrained/impls/bmrm/
H A Dbmrm.c44 if (PetscAbsReal(x[i]) > ProdDELTAsv) ipt[it++] = i; in solve()
64 if (PetscAbsReal(y[i]) > max) max = PetscAbsReal(y[i]); in solve()
106 if (PetscAbsReal(d[i]) > (ProdDELTAsv * 1.0e-2)) ipt[it++] = i; in solve()
109 if (PetscAbsReal(y[i]) > ProdDELTAsv) ipt2[it2++] = i; in solve()
222 if (PetscAbsReal(a[ipt[i]] * g[ipt[i]] + kktlam) > tol) { in solve()
722 if (PetscAbsReal(r) < TOL_R) return PETSC_SUCCESS; in project()
759 …PetscCheckAbort(PetscAbsReal(dlambda) <= BMRM_INFTY, PETSC_COMM_SELF, PETSC_ERR_PLIB, "L2N2_DaiFle… in project()
769 …while (PetscAbsReal(r) > TOL_R && dlambda > TOL_LAM * (1.0 + PetscAbsReal(lambda)) && innerIter < … in project()
/petsc/src/ts/event/tests/
H A Dex5.c162 if (j < ctx.cntref) err = PetscAbsReal(ctx.evres[j] - ctx.ref[j]); in main()
232 …if ((Ctx->dir0 == 0 && PetscAbsReal(t - (PetscReal)4.0) < 0.01) || (Ctx->dir0 == -1 && PetscAbsRea… in Postevent()
236 if (PetscAbsReal(t - (PetscReal)5.0) < 0.01) { in Postevent()
H A Dex3span.c173 if (j < ctx.cntref) err = PetscAbsReal(ctx.evres[j] - ctx.ref[j]); in main()
196 …inal time = %g, max time = %g, %s\n", (double)tlast, (double)maxtime, PetscAbsReal(tlast - tlast_e… in main()
267 …if (PetscAbsReal(t - (PetscReal)6.0) < 0.01 && Ctx->dt2_at6 != -2) PetscCall(TSSetPostEventSecondS… in Postevent()
270 if (PetscAbsReal(t - 7) < 0.01 && Ctx->mult7 != 1) { in Postevent()
H A Dex3.c160 if (j < ctx.cntref) err = PetscAbsReal(ctx.evres[j] - ctx.ref[j]); in main()
219 if (PetscAbsReal(t - (PetscReal)5.0) < 0.01 && Ctx->change5) { in Postevent()
231 if (PetscAbsReal(t - (PetscReal)5.0) < 0.01) Ctx->vtol[n] /= 100; // one-off decrease in Postevent()
/petsc/src/sys/classes/draw/utils/
H A Daxis.c14 if (PetscAbsReal(val) / sep < 1.e-4) { in PetscADefLabel()
122 base = PetscAbsReal(vmin); in PetscAGetBase()
/petsc/src/ksp/ksp/impls/cg/gltr/
H A Dgltr.c289 if (PetscAbsReal(kappa) <= 0.0) { in KSPCGSolve_GLTR()
455 if (PetscAbsReal(beta) <= 0.0) { in KSPCGSolve_GLTR()
492 cg->offd[t_size] = PetscSqrtReal(beta) / PetscAbsReal(alpha); in KSPCGSolve_GLTR()
498 if (PetscAbsReal(kappa) <= 0.0) { in KSPCGSolve_GLTR()
538 if (PetscAbsReal(kappa) <= 0.0) { in KSPCGSolve_GLTR()
589 if (PetscAbsReal(beta) <= 0.0) { in KSPCGSolve_GLTR()
607 cg->offd[t_size] = PetscSqrtReal(beta) / PetscAbsReal(alpha); in KSPCGSolve_GLTR()
769 if (PetscAbsReal(norm_t - cg->radius) <= cg->newton_tol * cg->radius) break; in KSPCGSolve_GLTR()
826 if (PetscAbsReal(norm_t - cg->radius) > cg->newton_tol * cg->radius) { in KSPCGSolve_GLTR()
/petsc/src/sys/tests/
H A Dex14.c30 …SC_COMM_SELF, " %g - %gi\n", (double)PetscRealPart(array[i]), (double)PetscAbsReal(PetscImaginaryP… in main()
/petsc/src/dm/impls/swarm/tests/
H A Dex11.c322 …if (PetscAbsReal((fmoments[m] - pmoments[m]) / fmoments[m]) > user->mtol) PetscCall(PetscPrintf(Pe… in TestParticlesToField()
324 …PetscAbsReal((fmoments[m] - pmoments[m]) / fmoments[m]) <= user->mtol, PetscObjectComm((PetscObjec… in TestParticlesToField()
348 …if (PetscAbsReal((fmoments[m] - pmoments[m]) / fmoments[m]) > user->mtol) PetscCall(PetscPrintf(Pe… in TestFieldToParticles()
350 …PetscAbsReal((fmoments[m] - pmoments[m]) / fmoments[m]) <= user->mtol, PetscObjectComm((PetscObjec… in TestFieldToParticles()

123456