Lines Matching refs:compI
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()
228 PetscInt compI, d; in g2_up_3d() local
231 for (compI = 0; compI < dim; ++compI) in g2_up_3d()
232 for (d = 0; d < dim; ++d) g2[compI * dim + d] = cofu_x[compI * dim + d]; in g2_up_3d()