Searched refs:etaB (Results 1 – 2 of 2) sorted by relevance
| /petsc/src/dm/field/impls/da/ |
| H A D | dmfieldda.c | 67 #define MEHess(out, cf, etaB, etaD, dim, nc, cast) \ argument
75 PetscScalar c = (cf)[_m] * (etaB)[_ind] * (etaD)[_ind]; \
94 PetscReal etaB[8] = {1., 1., 1., 1., 1., 1., 1., 1.}; in MultilinearEvaluate() local
103 for (k = 0; k < whol; k++) work[k] = etaB[k]; in MultilinearEvaluate()
105 etaB[k] = work[2 * k] * e; in MultilinearEvaluate()
106 etaB[k + half] = work[2 * k + 1]; in MultilinearEvaluate()
120 MEdot(out, cf, etaB, (1 << dim), nc, (PetscScalar)); in MultilinearEvaluate()
124 MEdot(out, cf, etaB, (1 << dim), nc, PetscRealPart); in MultilinearEvaluate()
141 for (k = 0; k < whol; k++) work[k] = etaB[k]; in MultilinearEvaluate()
145 etaB[k] = work[2 * k]; in MultilinearEvaluate()
[all …]
|
| /petsc/src/snes/tutorials/ |
| H A D | ex69.c | 36 PetscReal etaA, etaB; /* Two viscosities for discontinuous change */ member
722 …l pos[], PetscReal m, PetscInt n, PetscReal xc, PetscReal etaA, PetscReal etaB, PetscScalar vel[],… in SolCxSolution() argument
767 PetscReal ZA = etaA, ZB = etaB; in SolCxSolution()
2979 PetscCall(SolCxSolution(x, s->m, s->n, s->xc, s->etaA, s->etaB, v, NULL, NULL, NULL, NULL)); in SolCxSolutionVelocity()
2988 PetscCall(SolCxSolution(x, s->m, s->n, s->xc, s->etaA, s->etaB, NULL, p, NULL, NULL, NULL)); in SolCxSolutionPressure()
3027 PetscCall(PetscBagRegisterReal(bag, &p->etaB, 1.0, "etaB", "Viscosity for x > xc")); in SetUpParameters()
3164 constants[3] = param->etaB; in SetupProblem()
|