| /petsc/src/tao/unconstrained/impls/bmrm/ |
| H A D | bmrm.c | 696 PetscReal r, rl, ru, s; in project() local
740 ru = r; in project()
743 ru = r; in project()
748 s = ru / r - 1.0; in project()
752 ru = r; in project()
761 if (ru == 0) return innerIter; in project()
764 s = 1.0 - rl / ru; in project()
774 ru = r; in project()
775 s = 1.0 - rl / ru; in project()
779 s = ru / r - 1.0; in project()
[all …]
|
| /petsc/src/ts/tutorials/power_grid/ |
| H A D | ex3.h | 188 PetscScalar ru[2]; in DRDUJacobianTranspose() local
194 ru[0] = ctx->c * ctx->beta * PetscPowScalarInt(PetscMax(0., u[0] - ctx->u_s), ctx->beta - 1); in DRDUJacobianTranspose()
195 ru[1] = 0; in DRDUJacobianTranspose()
196 PetscCall(MatSetValues(DRDU, 2, row, 1, col, ru, INSERT_VALUES)); in DRDUJacobianTranspose()
|
| H A D | ex9adj.c | 139 PetscScalar ru[1]; in DRDUJacobianTranspose() local
145 ru[0] = ctx->c * ctx->beta * PetscPowScalarInt(PetscMax(0., u[0] - ctx->u_s), ctx->beta - 1); in DRDUJacobianTranspose()
147 PetscCall(MatSetValues(DRDU, 1, row, 1, col, ru, INSERT_VALUES)); in DRDUJacobianTranspose()
|
| H A D | ex9opt.c | 129 PetscScalar ru[1]; in DRDUJacobianTranspose() local
135 ru[0] = ctx->c * ctx->beta * PetscPowScalarInt(PetscMax(0., u[0] - ctx->u_s), ctx->beta - 1); in DRDUJacobianTranspose()
137 PetscCall(MatSetValues(DRDU, 1, row, 1, col, ru, INSERT_VALUES)); in DRDUJacobianTranspose()
|
| /petsc/lib/petsc/bin/maint/ |
| H A D | check-fortran-coverage.sh | 29 diff -ru "$TMPDIR/$before" "$TMPDIR/$after" > "$DIFF_FILE" || true
|
| /petsc/src/ts/tutorials/ |
| H A D | ex11.c | 484 for (i = 0; i < DIM; i++) uu->ru[i] = 0.0; /* zero out initial velocity */ in PhysicsSolution_Euler()
504 uu->ru[0] = ((uu->r - rho) * PetscSqrtReal(gamma * press / rho) * amach); in PhysicsSolution_Euler()
505 uu->E = p1 / (gamma - 1.0) + .5 / uu->r * uu->ru[0] * uu->ru[0]; in PhysicsSolution_Euler()
529 c = (uu->ru[0] / uu->r) + c; in PhysicsSolution_Euler()
547 xG->ru[0] = xI->ru[0]; /* copy tang to wall */ in PhysicsBoundary_Euler_Wall()
548 xG->ru[1] = -xI->ru[1]; /* reflect perp to t/b wall */ in PhysicsBoundary_Euler_Wall()
550 for (i = 0; i < DIM; i++) xG->ru[i] = xI->ru[i]; /* copy */ in PhysicsBoundary_Euler_Wall()
569 f[eu->monitor.Momentum] = NormDIM(x->ru); in PhysicsFunctional_Euler()
571 f[eu->monitor.Speed] = NormDIM(x->ru) / x->r; in PhysicsFunctional_Euler()
1648 ux->ru[0] = vp[0] * vp[1]; /* x momentum */ in initLinearWave()
[all …]
|
| H A D | ex11.h | 104 PetscReal ru[DIM]; member
338 ru2 = DotDIMReal(x->ru, x->ru); in Pressure_PG()
369 nu = DotDIMReal(x->ru, n); in EulerFlux()
372 for (i = 0; i < DIM; i++) f->ru[i] = nu * x->ru[i] + n[i] * p; /* r u^2 + p */ in EulerFlux()
827 velL = DotDIMReal(uL->ru, nn) / uL->r; in PhysicsRiemann_Euler_Godunov()
828 velR = DotDIMReal(uR->ru, nn) / uR->r; in PhysicsRiemann_Euler_Godunov()
|
| H A D | ex30.c | 2333 Vec ru; in Run() local
2335 PetscCall(DMGetNamedGlobalVector(dm, "solution_", &ru)); in Run()
2336 PetscCall(VecCopy(ru, u)); in Run()
2337 PetscCall(DMRestoreNamedGlobalVector(dm, "solution_", &ru)); in Run()
|
| /petsc/src/ksp/ksp/impls/cg/pipecg2/ |
| H A D | pipecg2.c | 8 static PetscErrorCode VecMergedDot_Private(Vec U, Vec W, Vec R, PetscInt normtype, PetscScalar *ru,… in VecMergedDot_Private() argument
43 *ru = sumru; in VecMergedDot_Private()
|