Searched refs:eqss (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ts/tutorials/ |
| H A D | ex30.c | 162 const PetscScalar eqss[] = {0.5, 1., 0.5}; /* equations rescaling for a symmetric Jacobian */ in C_0() local
164 …for (PetscInt k = 0; k < 3; k++) f0[k] = eqss[k] * (u_t[uOff[C_FIELD_ID] + k] - outerp[k] + alpha … in C_0()
185 const PetscScalar eqss[] = {0.5, 1., 1., 0.5, 1., 0.5}; in C_0_3d() local
187 …for (PetscInt k = 0; k < 6; k++) f0[k] = eqss[k] * (u_t[uOff[C_FIELD_ID] + k] - outerp[k] + alpha … in C_0_3d()
205 const PetscScalar eqss[] = {0.5, 1., 0.5}; in JC_0_c0c0() local
209 …for (PetscInt j = 0; j < 3; j++) J[k * 3 + j] = eqss[k] * (alpha * dfnorm * dC[j] * u[uOff[C_FIELD… in JC_0_c0c0()
211 J[k * 3 + k] += eqss[k] * (alpha * fnorm + u_tShift); in JC_0_c0c0()
232 const PetscScalar eqss[] = {0.5, 1., 1., 0.5, 1., 0.5}; in JC_0_c0c0_3d() local
236 …for (PetscInt j = 0; j < 6; j++) J[k * 6 + j] = eqss[k] * (alpha * dfnorm * dC[j] * u[uOff[C_FIELD… in JC_0_c0c0_3d()
238 J[k * 6 + k] += eqss[k] * (alpha * fnorm + u_tShift); in JC_0_c0c0_3d()
[all …]
|