181 static void HexGrad(const PetscReal dphi[][3], const PetscReal zn[], PetscReal dz[])  in HexGrad()  argument
186     dz[0] += dphi[i][0] * zn[i];  in HexGrad()
187     dz[1] += dphi[i][1] * zn[i];  in HexGrad()
188     dz[2] += dphi[i][2] * zn[i];  in HexGrad()
276 static void PrmHexGetZ(const PrmNode pn[], PetscInt k, PetscInt zm, PetscReal zn[])  in PrmHexGetZ()  argument
281   for (i = 0; i < 8; i++) zn[i] = PetscRealPart(znl[i]);  in PrmHexGetZ()
777         PetscReal zn[8], etabase = 0;  in THIFunctionLocal_3D()  local
779         PrmHexGetZ(pn, k, zm, zn);  in THIFunctionLocal_3D()
795           HexGrad(HexQDeriv[q], zn, dz);  in THIFunctionLocal_3D()
1115         PetscReal   zn[8], etabase = 0;  in THIJacobianLocal_Momentum()  local
1119         PrmHexGetZ(pn, k, zm, zn);  in THIJacobianLocal_Momentum()
1130           HexGrad(HexQDeriv[q], zn, dz);  in THIJacobianLocal_Momentum()