| /petsc/src/ts/tutorials/multirate/ |
| H A D | ex7.c | 173 PetscReal hf, hs, cfl_idt = 0; in FVRHSFunction() local
182 hs = (ctx->xmax - ctx->xmin) / 2.0 * (ctx->hratio + 1.0) / Mx; in FVRHSFunction()
214 cfl_idt = PetscMax(cfl_idt, PetscAbsScalar(maxspeed / hs)); in FVRHSFunction()
216 for (j = 0; j < dof; j++) f[(i - 1) * dof + j] -= ctx->flux[j] / hs; in FVRHSFunction()
219 for (j = 0; j < dof; j++) f[i * dof + j] += ctx->flux[j] / hs; in FVRHSFunction()
223 alpha[0] = hs * hf / (hs + hs) / (hs + hs + hf); in FVRHSFunction()
224 gamma[0] = hs * (hs + hs) / (hs + hf) / (hs + hs + hf); in FVRHSFunction()
232 for (j = 0; j < dof; j++) f[(i - 1) * dof + j] -= ctx->flux[j] / hs; in FVRHSFunction()
239 alpha[0] = hf * hf / (hs + hf) / (hs + hf + hf); in FVRHSFunction()
240 gamma[0] = hf * (hs + hf) / (hf + hf) / (hs + hf + hf); in FVRHSFunction()
[all …]
|
| H A D | ex6.c | 135 PetscReal hs, hf; in FVSample_2WaySplit() local
143 hs = (ctx->xmax - ctx->xmin) * 3.0 / 8.0 / ctx->sf; in FVSample_2WaySplit()
147 xi = ctx->xmin + 0.5 * hs + i * hs; in FVSample_2WaySplit()
151 xj = xi + hs * (j - N / 2) / (PetscReal)N; in FVSample_2WaySplit()
156 xi = ctx->xmin + ctx->sf * hs + 0.5 * hf + (i - ctx->sf) * hf; in FVSample_2WaySplit()
165 xi = ctx->xmin + ctx->sf * hs + (ctx->fs - ctx->sf) * hf + 0.5 * hs + (i - ctx->fs) * hs; in FVSample_2WaySplit()
169 xj = xi + hs * (j - N / 2) / (PetscReal)N; in FVSample_2WaySplit()
185 PetscReal hs, hf; in SolutionErrorNorms_2WaySplit() local
191 hs = (ctx->xmax - ctx->xmin) * 3.0 / 8.0 / ctx->sf; in SolutionErrorNorms_2WaySplit()
196 if (i < ctx->sf || i > ctx->fs - 1) *nrm1 += hs * PetscAbs(ptr_X[i] - ptr_Y[i]); in SolutionErrorNorms_2WaySplit()
[all …]
|
| H A D | ex8.c | 128 PetscReal hs, hm, hf; in FVSample_3WaySplit() local
137 hs = (ctx->xmax - ctx->xmin) / 8.0 / ctx->sm; in FVSample_3WaySplit()
142 xi = ctx->xmin + 0.5 * hs + i * hs; in FVSample_3WaySplit()
146 xj = xi + hs * (j - N / 2) / (PetscReal)N; in FVSample_3WaySplit()
151 xi = ctx->xmin + ctx->sm * hs + 0.5 * hm + (i - ctx->sm) * hm; in FVSample_3WaySplit()
160 xi = ctx->xmin + ctx->sm * hs + (ctx->mf - ctx->sm) * hm + 0.5 * hf + (i - ctx->mf) * hf; in FVSample_3WaySplit()
169 …xi = ctx->xmin + ctx->sm * hs + (ctx->mf - ctx->sm) * hm + (ctx->fm - ctx->mf) * hf + 0.5 * hm + (… in FVSample_3WaySplit()
178 …->xmin + ctx->sm * hs + (ctx->mf - ctx->sm) * hm + (ctx->fm - ctx->mf) * hf + (ctx->ms - ctx->fm) … in FVSample_3WaySplit()
182 xj = xi + hs * (j - N / 2) / (PetscReal)N; in FVSample_3WaySplit()
198 PetscReal hs, hm, hf; in SolutionErrorNorms_3WaySplit() local
[all …]
|
| H A D | ex4.c | 479 PetscReal hs, hf; in FVSample_2WaySplit() local
487 hs = (ctx->xmax - ctx->xmin) * 3.0 / 8.0 / ctx->sf; in FVSample_2WaySplit()
491 xi = ctx->xmin + 0.5 * hs + i * hs; in FVSample_2WaySplit()
495 xj = xi + hs * (j - N / 2) / (PetscReal)N; in FVSample_2WaySplit()
500 xi = ctx->xmin + ctx->sf * hs + 0.5 * hf + (i - ctx->sf) * hf; in FVSample_2WaySplit()
509 xi = ctx->xmin + ctx->sf * hs + (ctx->fs - ctx->sf) * hf + 0.5 * hs + (i - ctx->fs) * hs; in FVSample_2WaySplit()
513 xj = xi + hs * (j - N / 2) / (PetscReal)N; in FVSample_2WaySplit()
529 PetscReal hs, hf; in SolutionErrorNorms_2WaySplit() local
535 hs = (ctx->xmax - ctx->xmin) * 3.0 / 8.0 / ctx->sf; in SolutionErrorNorms_2WaySplit()
540 if (i < ctx->sf || i > ctx->fs - 1) *nrm1 += hs * PetscAbs(ptr_X[i] - ptr_Y[i]); in SolutionErrorNorms_2WaySplit()
[all …]
|
| /petsc/src/snes/interface/noise/ |
| H A D | snesmfj2.c | 74 PetscScalar hs, dot; in SNESMatrixFreeMult2_Private() local
139 hs = h; in SNESMatrixFreeMult2_Private()
140 PetscCall(VecWAXPY(w, hs, a, U)); in SNESMatrixFreeMult2_Private()
143 PetscCall(VecScale(y, 1.0 / hs)); in SNESMatrixFreeMult2_Private()
|
| /petsc/src/ts/utils/ |
| H A D | dmplexts.c | 409 PetscReal *es, *hs, *errors; in DMTSCheckJacobian() local
425 PetscCall(PetscCalloc3(Nv, &es, Nv, &hs, Nv, &errors)); in DMTSCheckJacobian()
438 hs[Nv] = PetscLog10Real(h); in DMTSCheckJacobian()
454 PetscCall(PetscLinearRegression(Nv, hs, es, &slope, &intercept)); in DMTSCheckJacobian()
455 PetscCall(PetscFree3(es, hs, errors)); in DMTSCheckJacobian()
|
| /petsc/src/tao/tutorials/ |
| H A D | ex4.c | 551 PetscReal *Js, *hs; in TaylorTest() local
570 PetscCall(PetscCalloc2(numValues, &Js, numValues, &hs)); in TaylorTest()
580 hs[i] = h; in TaylorTest()
583 temp = PetscLogReal(Js[j] / Js[j - 1]) / PetscLogReal(hs[j] / hs[j - 1]); in TaylorTest()
588 PetscCall(PetscFree2(Js, hs)); in TaylorTest()
|
| /petsc/src/snes/utils/ |
| H A D | dmplexsnes.c | 945 PetscReal *es, *hs, *errors; in DMSNESCheckJacobian() local
961 PetscCall(PetscCalloc3(Nv, &es, Nv, &hs, Nv, &errors)); in DMSNESCheckJacobian()
972 hs[Nv] = PetscLog10Real(h); in DMSNESCheckJacobian()
984 PetscCall(PetscLinearRegression(Nv, hs, es, &slope, &intercept)); in DMSNESCheckJacobian()
985 PetscCall(PetscFree3(es, hs, errors)); in DMSNESCheckJacobian()
|
| /petsc/src/mat/impls/hypre/ |
| H A D | mhypre.c | 1898 HYPRE_Complex hs; local
1901 PetscCall(PetscHYPREScalarCast(s, &hs));
1904 PetscCallHYPRE(hypre_ParCSRMatrixScale(parcsr, hs));
1915 for (i = 0; i < ii[size]; i++) a[i] *= hs;
1927 for (i = 0; i < ii[size]; i++) a[i] *= hs;
|
| /petsc/doc/manual/ |
| H A D | tao.md | 1599 using the command line argument `-tao_cg_type <fr,pr,prp,hs,dy>`,
1867 `-tao_bncg_type <gd,fr,pr,prp,hs,dy,hz,dk,kd,ssml_bfgs,ssml_dfp,ssml_brdn>`,
|
| H A D | ksp.md | 318 * - Conjugate Gradient :cite:`hs:52`
|
| /petsc/share/petsc/datafiles/meshes/ |
| H A D | testcase3D.cas | 8745 (cpld/temp-hs-roe-entropyfix-coeff 0.3)
8746 (cpld/temp-hs-roe-entropyfix-local-mach-scale? #f)
8747 (cpld/temp-hs-roe-critical-average? #f)
8748 (cpld/temp-hs-roe-flux-method? #f)
|
| /petsc/doc/ |
| H A D | petsc.bib | 13881 @Article{ hs:52,
|