Searched refs:compJ (Results 1 – 2 of 2) sorted by relevance
150 PetscInt compI, compJ, d1, d2; in g3_uu_3d() local160 for (compJ = 0; compJ < Ncomp; ++compJ) { in g3_uu_3d()161 const PetscReal G = (compI == compJ) ? 1.0 : 0.0; in g3_uu_3d()167 …+ compJ) * dim + d1) * dim + d2] = g * G * mu + pp * cofu_x[compI * dim + d1] * cofu_x[compJ * dim… in g3_uu_3d()193 PetscInt comp, compI, compJ, d; in g1_bd_uu_3d() local202 for (compJ = 0; compJ < Ncomp; ++compJ) { in g1_bd_uu_3d()203 …im; ++d) g1[(compI * Ncomp + compJ) * dim + d] = p * (m[compI] * cofu_x[compJ * dim + d] - cofu_x[… in g1_bd_uu_3d()
369 PetscInt compI, compJ, d, e; in symmetric_gradient_inner_product() local372 for (compJ = 0; compJ < dim; ++compJ) { 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()