106   PetscReal zeta = PetscRealPart(_xi[2]);  in ShapeFunctionQ13D_Evaluate()  local
108   Ni[0] = 0.125 * (1.0 - xi) * (1.0 - eta) * (1.0 - zeta);  in ShapeFunctionQ13D_Evaluate()
109   Ni[1] = 0.125 * (1.0 - xi) * (1.0 + eta) * (1.0 - zeta);  in ShapeFunctionQ13D_Evaluate()
110   Ni[2] = 0.125 * (1.0 + xi) * (1.0 + eta) * (1.0 - zeta);  in ShapeFunctionQ13D_Evaluate()
111   Ni[3] = 0.125 * (1.0 + xi) * (1.0 - eta) * (1.0 - zeta);  in ShapeFunctionQ13D_Evaluate()
113   Ni[4] = 0.125 * (1.0 - xi) * (1.0 - eta) * (1.0 + zeta);  in ShapeFunctionQ13D_Evaluate()
114   Ni[5] = 0.125 * (1.0 - xi) * (1.0 + eta) * (1.0 + zeta);  in ShapeFunctionQ13D_Evaluate()
115   Ni[6] = 0.125 * (1.0 + xi) * (1.0 + eta) * (1.0 + zeta);  in ShapeFunctionQ13D_Evaluate()
116   Ni[7] = 0.125 * (1.0 + xi) * (1.0 - eta) * (1.0 + zeta);  in ShapeFunctionQ13D_Evaluate()
123   PetscReal zeta = PetscRealPart(_xi[2]);  in ShapeFunctionQ13D_Evaluate_dxi()  local
125   GNi[0][0] = -0.125 * (1.0 - eta) * (1.0 - zeta);  in ShapeFunctionQ13D_Evaluate_dxi()
126   GNi[0][1] = -0.125 * (1.0 + eta) * (1.0 - zeta);  in ShapeFunctionQ13D_Evaluate_dxi()
127   GNi[0][2] = 0.125 * (1.0 + eta) * (1.0 - zeta);  in ShapeFunctionQ13D_Evaluate_dxi()
128   GNi[0][3] = 0.125 * (1.0 - eta) * (1.0 - zeta);  in ShapeFunctionQ13D_Evaluate_dxi()
130   GNi[0][4] = -0.125 * (1.0 - eta) * (1.0 + zeta);  in ShapeFunctionQ13D_Evaluate_dxi()
131   GNi[0][5] = -0.125 * (1.0 + eta) * (1.0 + zeta);  in ShapeFunctionQ13D_Evaluate_dxi()
132   GNi[0][6] = 0.125 * (1.0 + eta) * (1.0 + zeta);  in ShapeFunctionQ13D_Evaluate_dxi()
133   GNi[0][7] = 0.125 * (1.0 - eta) * (1.0 + zeta);  in ShapeFunctionQ13D_Evaluate_dxi()
135   GNi[1][0] = -0.125 * (1.0 - xi) * (1.0 - zeta);  in ShapeFunctionQ13D_Evaluate_dxi()
136   GNi[1][1] = 0.125 * (1.0 - xi) * (1.0 - zeta);  in ShapeFunctionQ13D_Evaluate_dxi()
137   GNi[1][2] = 0.125 * (1.0 + xi) * (1.0 - zeta);  in ShapeFunctionQ13D_Evaluate_dxi()
138   GNi[1][3] = -0.125 * (1.0 + xi) * (1.0 - zeta);  in ShapeFunctionQ13D_Evaluate_dxi()
140   GNi[1][4] = -0.125 * (1.0 - xi) * (1.0 + zeta);  in ShapeFunctionQ13D_Evaluate_dxi()
141   GNi[1][5] = 0.125 * (1.0 - xi) * (1.0 + zeta);  in ShapeFunctionQ13D_Evaluate_dxi()
142   GNi[1][6] = 0.125 * (1.0 + xi) * (1.0 + zeta);  in ShapeFunctionQ13D_Evaluate_dxi()
143   GNi[1][7] = -0.125 * (1.0 + xi) * (1.0 + zeta);  in ShapeFunctionQ13D_Evaluate_dxi()