| /petsc/src/ts/tutorials/network/ |
| H A D | pipeImpls.c | 65 PetscScalar qavg, xold_i, ha, hb, qa, qb; in PipeIFunctionLocal_Lax() local
78 hb = xold[i + 1].h; in PipeIFunctionLocal_Lax()
85 xold_i = 0.5 * (ha + hb); in PipeIFunctionLocal_Lax()
|
| /petsc/src/dm/impls/da/hypre/ |
| H A D | mhyp.h | 17 HYPRE_StructVector hb, hx; member
|
| H A D | mhyp.c | 186 PetscCallHYPRE(HYPRE_StructVectorCreate(ex->hcomm, ex->hgrid, &ex->hb)); in MatSetUp_HYPREStruct()
188 PetscCallHYPRE(HYPRE_StructVectorInitialize(ex->hb)); in MatSetUp_HYPREStruct()
190 PetscCallHYPRE(HYPRE_StructVectorAssemble(ex->hb)); in MatSetUp_HYPREStruct()
251 PetscCallHYPRE(HYPRE_StructVectorSetConstantValues(mx->hb, 0.0)); in MatMult_HYPREStruct()
253 PetscCallHYPRE(HYPRE_StructVectorSetBoxValues(mx->hb, hlower, hupper, (HYPRE_Complex *)xx)); in MatMult_HYPREStruct()
255 PetscCallHYPRE(HYPRE_StructVectorAssemble(mx->hb)); in MatMult_HYPREStruct()
256 PetscCallHYPRE(HYPRE_StructMatrixMatvec(1.0, mx->hmat, mx->hb, 0.0, mx->hx)); in MatMult_HYPREStruct()
288 PetscCallHYPRE(HYPRE_StructVectorDestroy(ex->hb)); in MatDestroy_HYPREStruct()
|
| /petsc/src/tao/complementarity/tutorials/ |
| H A D | minsurf1.c | 265 PetscReal hl, hr, ht, hb, hc, htl, hbr; in FormJacobian() local
338 …hb = (-hxdhy * (1.0 + d6 * d6) + d4 * d6) / (f6 * f6 * f6) + (-hxdhy * (1.0 + d1 * d1) + d1 * d4) … in FormJacobian()
348 hb /= 2.0; in FormJacobian()
355 v[k] = hb; in FormJacobian()
|
| /petsc/src/snes/tutorials/ |
| H A D | ex58.c | 278 PetscScalar hl, hr, ht, hb, hc, htl, hbr; in FormJacobian() local
363 …hb = (-hxdhy * (1.0 + d6 * d6) + d4 * d6) / (f6 * f6 * f6) + (-hxdhy * (1.0 + d1 * d1) + d1 * d4) … in FormJacobian()
373 hb /= 2.0; in FormJacobian()
383 v[k] = hb; in FormJacobian()
|
| H A D | ex4.c | 310 PetscScalar hl, hr, ht, hb, hc, htl, hbr; in FormJacobianLocal() local
374 …hb = (-hxdhy * (1.0 + d6 * d6) + d4 * d6) / (f6 * f6 * f6) + (-hxdhy * (1.0 + d1 * d1) + d1 * d4) … in FormJacobianLocal()
384 hb /= 2.0; in FormJacobianLocal()
394 v[k] = hb; in FormJacobianLocal()
|
| /petsc/src/tao/unconstrained/tutorials/ |
| H A D | minsurf1.c | 311 PetscReal hl, hr, ht, hb, hc, htl, hbr; in QuadraticH() local
384 …hb = (-hxdhy * (1.0 + d6 * d6) + d4 * d6) / (f6 * f6 * f6) + (-hxdhy * (1.0 + d1 * d1) + d1 * d4) … in QuadraticH()
394 hb *= 0.5; in QuadraticH()
401 v[k] = hb; in QuadraticH()
|
| H A D | minsurf2.c | 509 PetscReal hl, hr, ht, hb, hc, htl, hbr; in QuadraticH() local
593 …hb = (-hxdhy * (1.0 + d6 * d6) + d4 * d6) / (f6 * f6 * f6) + (-hxdhy * (1.0 + d1 * d1) + d1 * d4) … in QuadraticH()
603 hb /= 2.0; in QuadraticH()
612 v[k] = hb; in QuadraticH()
|
| /petsc/src/tao/bound/tutorials/ |
| H A D | plate2f.F90 | 309 PetscReal hl, hr, ht, hb, hc, htl, hbr
420 hb = (-hxdhy*(1.0 + d6*d6) + d4*d6)/(f6*f6*f6) + (-hxdhy*(1.0 + d1*d1) + d1*d4)/(f2*f2*f2)
432 hb = hb*0.5
440 v(k) = hb
|
| H A D | plate2.c | 424 PetscReal hl, hr, ht, hb, hc, htl, hbr; in FormHessian() local
513 …hb = (-hxdhy * (1.0 + d6 * d6) + d4 * d6) / (f6 * f6 * f6) + (-hxdhy * (1.0 + d1 * d1) + d1 * d4) … in FormHessian()
523 hb *= 0.5; in FormHessian()
530 v[k] = hb; in FormHessian()
|
| /petsc/src/ksp/pc/impls/hypre/ |
| H A D | hypre.c | 598 HYPRE_ParVector hb, hx; in PCMatApply_HYPRE_BoomerAMG() local
610 …arCSRMatrixGlobalNumRows(par_matrix), hypre_ParCSRMatrixRowStarts(par_matrix), (HYPRE_Int)N, &hb)); in PCMatApply_HYPRE_BoomerAMG()
618 x_local = hypre_ParVectorLocalVector(hb); in PCMatApply_HYPRE_BoomerAMG()
625 …PetscCallHYPRE(hypre_ParVectorInitialize_v2(hb, type == PETSC_MEMTYPE_HOST ? HYPRE_MEMORY_HOST : H… in PCMatApply_HYPRE_BoomerAMG()
629 HYPRE_Int hierr = (*jac->solve)(jac->hsolver, par_matrix, hb, hx); in PCMatApply_HYPRE_BoomerAMG()
635 PetscCallHYPRE(HYPRE_ParVectorDestroy(hb)); in PCMatApply_HYPRE_BoomerAMG()
2822 PetscCallHYPRE(HYPRE_StructVectorSetConstantValues(mx->hb, 0.0)); in PCApply_PFMG()
2824 PetscCallHYPRE(HYPRE_StructVectorSetBoxValues(mx->hb, hlower, hupper, (HYPRE_Complex *)xx)); in PCApply_PFMG()
2826 PetscCallHYPRE(HYPRE_StructVectorAssemble(mx->hb)); in PCApply_PFMG()
2827 PetscCallHYPRE(HYPRE_StructPFMGSolve(ex->hsolver, mx->hmat, mx->hb, mx->hx)); in PCApply_PFMG()
[all …]
|