36   PetscReal trace, mu = s_mu, lambda = s_lambda, rad;  in f1_u_3d_alpha()  local
44     mu *= s_soft_alpha;  in f1_u_3d_alpha()
49     for (j = 0; j < dim; ++j) f1[i * dim + j] = mu * (u_x[i * dim + j] + u_x[j * dim + i]);  in f1_u_3d_alpha()
57   PetscReal trace, mu = s_mu, lambda = s_lambda;  in f1_u_3d()  local
61     for (j = 0; j < dim; ++j) f1[i * dim + j] = mu * (u_x[i * dim + j] + u_x[j * dim + i]);  in f1_u_3d()
75 void g3_uu_3d_private(PetscScalar g3[], const PetscReal mu, const PetscReal lambda)  in g3_uu_3d_private()  argument
79     g3[0] += mu;  in g3_uu_3d_private()
80     g3[0] += mu;  in g3_uu_3d_private()
83     g3[10] += mu;  in g3_uu_3d_private()
84     g3[12] += mu;  in g3_uu_3d_private()
85     g3[20] += mu;  in g3_uu_3d_private()
86     g3[24] += mu;  in g3_uu_3d_private()
87     g3[28] += mu;  in g3_uu_3d_private()
88     g3[30] += mu;  in g3_uu_3d_private()
91     g3[40] += mu;  in g3_uu_3d_private()
92     g3[40] += mu;  in g3_uu_3d_private()
94     g3[50] += mu;  in g3_uu_3d_private()
95     g3[52] += mu;  in g3_uu_3d_private()
96     g3[56] += mu;  in g3_uu_3d_private()
97     g3[60] += mu;  in g3_uu_3d_private()
98     g3[68] += mu;  in g3_uu_3d_private()
99     g3[70] += mu;  in g3_uu_3d_private()
103     g3[80] += mu;  in g3_uu_3d_private()
104     g3[80] += mu;  in g3_uu_3d_private()
114             if (i == k && j == l) g3[IDX(i, j, k, l)] += mu;  in g3_uu_3d_private()
115             if (i == l && j == k) g3[IDX(i, j, k, l)] += mu;  in g3_uu_3d_private()
128   PetscReal mu = s_mu, lambda = s_lambda, rad;  in g3_uu_3d_alpha()  local
136     mu *= s_soft_alpha;  in g3_uu_3d_alpha()
139   g3_uu_3d_private(g3, mu, lambda);  in g3_uu_3d_alpha()