Searched refs:compI (Results 1 – 4 of 4) sorted by relevance
| /petsc/src/snes/tutorials/ |
| H A D | ex77.c | 150 PetscInt compI, compJ, d1, d2; in g3_uu_3d() local
159 for (compI = 0; compI < Ncomp; ++compI) { in g3_uu_3d()
161 const PetscReal G = (compI == compJ) ? 1.0 : 0.0; in g3_uu_3d()
167 …g3[((compI * Ncomp + compJ) * dim + d1) * dim + d2] = g * G * mu + pp * cofu_x[compI * dim + d1] *… in g3_uu_3d()
193 PetscInt comp, compI, compJ, d; in g1_bd_uu_3d() local
201 for (compI = 0; compI < Ncomp; ++compI) { in g1_bd_uu_3d()
203 …for (d = 0; d < dim; ++d) g1[(compI * Ncomp + compJ) * dim + d] = p * (m[compI] * cofu_x[compJ * d… in g1_bd_uu_3d()
218 PetscInt compI, d; in g1_pu_3d() local
221 for (compI = 0; compI < dim; ++compI) in g1_pu_3d()
222 for (d = 0; d < dim; ++d) g1[compI * dim + d] = cofu_x[compI * dim + d]; in g1_pu_3d()
[all …]
|
| /petsc/src/ts/tutorials/ |
| H A D | ex46.c | 185 PetscInt compI, d; in g3_uu() local
187 for (compI = 0; compI < Ncomp; ++compI) { in g3_uu()
188 for (d = 0; d < dim; ++d) g3[((compI * Ncomp + compI) * dim + d) * dim + d] = 1.0 / Re; in g3_uu()
|
| H A D | ex18.c | 240 PetscInt compI, d; in g3_uu() local
242 for (compI = 0; compI < Ncomp; ++compI) { in g3_uu()
243 for (d = 0; d < dim; ++d) g3[((compI * Ncomp + compI) * dim + d) * dim + d] = 1.0; in g3_uu()
|
| /petsc/src/dm/impls/plex/tests/ |
| H A D | ex3.c | 369 PetscInt compI, compJ, d, e; in symmetric_gradient_inner_product() local
371 for (compI = 0; compI < dim; ++compI) { in symmetric_gradient_inner_product()
375 if (d == e && d == compI && d == compJ) { in symmetric_gradient_inner_product()
376 C[((compI * dim + compJ) * dim + d) * dim + e] = 1.0; in symmetric_gradient_inner_product()
377 } else if ((d == compJ && e == compI) || (d == e && compI == compJ)) { in symmetric_gradient_inner_product()
378 C[((compI * dim + compJ) * dim + d) * dim + e] = 0.5; in symmetric_gradient_inner_product()
380 C[((compI * dim + compJ) * dim + d) * dim + e] = 0.0; in symmetric_gradient_inner_product()
|