Lines Matching refs:d2
614 PetscInt fieldB, d2, d3, f_off_r, grid_r, ipidx_g, nip_loc_r, loc_Nf_r;
645 for (d2 = 0; d2 < 2; d2++) {
648 ggg.gg2[d2] += Uk[d2][d3] * temp1[d3];
650 ggg.gg3[d2][d3] += Ud[d2][d3] * temp2;
654 for (d2 = 0; d2 < 3; ++d2) {
657 ggg.gg2[d2] += U[d2][d3]*temp1[d3];
659 ggg.gg3[d2][d3] += U[d2][d3]*temp2;
667 PetscInt d2, d3;
668 for (d2 = 0; d2 < dim; d2++) {
669 gg2(d2, fieldA, myQi) = gg_temp.gg2[d2] * d_alpha[fieldA + f_off];
670 for (d3 = 0; d3 < dim; d3++) gg3(d2, d3, fieldA, myQi) = -gg_temp.gg3[d2][d3] * d_alpha[fieldA + f_off] * d_invMass[fieldA + f_off];
676 int d, d2, d3, dp;
680 for (d2 = 0; d2 < dim; ++d2) {
681 g2(d, fieldA, myQi) += invJ[d * dim + d2] * gg2(d2, fieldA, myQi);
682 g3(d, d2, fieldA, myQi) = 0;
684 for (dp = 0; dp < dim; ++dp) g3(d, d2, fieldA, myQi) += invJ[d * dim + d3] * gg3(d3, dp, fieldA, myQi) * invJ[d2 * dim + dp];
686 g3(d, d2, fieldA, myQi) *= wj;
703 for (int d2 = 0; d2 < dim; ++d2) t += DIq[f * dim + d] * g3(d, d2, fieldA, qj) * DIq[g * dim + d2];