Lines Matching refs:ll
731 PetscInt l, ll; in PointwiseNonlinearity() local
741 for (ll = 0; ll < 3; ll++) { in PointwiseNonlinearity()
742 du[ll] += dphi[l][ll] * n[l].u; in PointwiseNonlinearity()
743 dv[ll] += dphi[l][ll] * n[l].v; in PointwiseNonlinearity()
1096 PetscInt xs, ys, xm, ym, zm, i, j, k, q, l, ll; in THIJacobianLocal_Momentum() local
1137 for (ll = ls; ll < 8; ll++) { /* trial functions */ in THIJacobianLocal_Momentum()
1138 const PetscReal *restrict dpl = dphi[ll]; in THIJacobianLocal_Momentum()
1143 …Ke[l * 2 + 0][ll * 2 + 0] += dp[0] * jw * eta * 4. * dpl[0] + dp[1] * jw * eta * dpl[1] + dp[2] * … in THIJacobianLocal_Momentum()
1144 … Ke[l * 2 + 0][ll * 2 + 1] += dp[0] * jw * eta * 2. * dpl[1] + dp[1] * jw * eta * dpl[0]; in THIJacobianLocal_Momentum()
1145 … Ke[l * 2 + 1][ll * 2 + 0] += dp[1] * jw * eta * 2. * dpl[0] + dp[0] * jw * eta * dpl[1]; in THIJacobianLocal_Momentum()
1146 …Ke[l * 2 + 1][ll * 2 + 1] += dp[1] * jw * eta * 4. * dpl[1] + dp[0] * jw * eta * dpl[0] + dp[2] * … in THIJacobianLocal_Momentum()
1148 …Ke[l * 2 + 0][ll * 2 + 0] += dp[0] * jw * deta * dgdu * (4. * du[0] + 2. * dv[1]) + dp[1] * jw * d… in THIJacobianLocal_Momentum()
1149 …Ke[l * 2 + 0][ll * 2 + 1] += dp[0] * jw * deta * dgdv * (4. * du[0] + 2. * dv[1]) + dp[1] * jw * d… in THIJacobianLocal_Momentum()
1150 …Ke[l * 2 + 1][ll * 2 + 0] += dp[1] * jw * deta * dgdu * (4. * dv[1] + 2. * du[0]) + dp[0] * jw * d… in THIJacobianLocal_Momentum()
1151 …Ke[l * 2 + 1][ll * 2 + 1] += dp[1] * jw * deta * dgdv * (4. * dv[1] + 2. * du[0]) + dp[0] * jw * d… in THIJacobianLocal_Momentum()
1153 Ke[l * 2 + 0][ll * 2 + 0] += pp * jw * thi->inertia * pp; in THIJacobianLocal_Momentum()
1154 Ke[l * 2 + 1][ll * 2 + 1] += pp * jw * thi->inertia * pp; in THIJacobianLocal_Momentum()
1156 …for (ll = 0; ll < 4; ll++) { /* Trial… in THIJacobianLocal_Momentum()
1157 …const PetscReal dpl[] = {QuadQDeriv[q % 4][ll][0] / hx, QuadQDeriv[q % 4][ll][1] / hy}; /* surface… in THIJacobianLocal_Momentum()
1158 … Kcpl[FieldIndex(Node, l, u)][FieldIndex(PrmNode, ll, h)] += pp * jw * thi->rhog * dpl[0]; in THIJacobianLocal_Momentum()
1159 … Kcpl[FieldIndex(Node, l, u)][FieldIndex(PrmNode, ll, b)] += pp * jw * thi->rhog * dpl[0]; in THIJacobianLocal_Momentum()
1160 … Kcpl[FieldIndex(Node, l, v)][FieldIndex(PrmNode, ll, h)] += pp * jw * thi->rhog * dpl[1]; in THIJacobianLocal_Momentum()
1161 … Kcpl[FieldIndex(Node, l, v)][FieldIndex(PrmNode, ll, b)] += pp * jw * thi->rhog * dpl[1]; in THIJacobianLocal_Momentum()
1186 for (ll = 0; ll < 4; ll++) { in THIJacobianLocal_Momentum()
1187 const PetscReal ppl = phi[ll]; in THIJacobianLocal_Momentum()
1188 … Ke[l * 2 + 0][ll * 2 + 0] += pp * jw * beta2 * ppl + pp * jw * dbeta2 * u * u * ppl; in THIJacobianLocal_Momentum()
1189 Ke[l * 2 + 0][ll * 2 + 1] += pp * jw * dbeta2 * u * v * ppl; in THIJacobianLocal_Momentum()
1190 Ke[l * 2 + 1][ll * 2 + 0] += pp * jw * dbeta2 * v * u * ppl; in THIJacobianLocal_Momentum()
1191 … Ke[l * 2 + 1][ll * 2 + 1] += pp * jw * beta2 * ppl + pp * jw * dbeta2 * v * v * ppl; in THIJacobianLocal_Momentum()
1203 for (ll = l + 1; ll < 8; ll++) { in THIJacobianLocal_Momentum()
1204 Ke[ll * 2 + 0][l * 2 + 0] = Ke[l * 2 + 0][ll * 2 + 0]; in THIJacobianLocal_Momentum()
1205 Ke[ll * 2 + 1][l * 2 + 0] = Ke[l * 2 + 0][ll * 2 + 1]; in THIJacobianLocal_Momentum()
1206 Ke[ll * 2 + 0][l * 2 + 1] = Ke[l * 2 + 1][ll * 2 + 0]; in THIJacobianLocal_Momentum()
1207 Ke[ll * 2 + 1][l * 2 + 1] = Ke[l * 2 + 1][ll * 2 + 1]; in THIJacobianLocal_Momentum()
1215 …for (ll = 0; ll < NODE_SIZE; ll++) row3scalar[l * NODE_SIZE + ll] = rc3blocked[l] * NODE_SIZE + ll; in THIJacobianLocal_Momentum()
1217 …for (ll = 0; ll < PRMNODE_SIZE; ll++) col2scalar[l * PRMNODE_SIZE + ll] = col2blocked[l] * PRMNODE… in THIJacobianLocal_Momentum()