193 static void HexGrad(const PetscReal dphi[][3], const PetscReal zn[], PetscReal dz[])  in HexGrad()  argument
196   dz[0] = dz[1] = dz[2] = 0;  in HexGrad()
198     dz[0] += dphi[i][0] * zn[i];  in HexGrad()
199     dz[1] += dphi[i][1] * zn[i];  in HexGrad()
200     dz[2] += dphi[i][2] * zn[i];  in HexGrad()
204 static void HexComputeGeometry(PetscInt q, PetscReal hx, PetscReal hy, const PetscReal dz[PETSC_RES…  in HexComputeGeometry()
209     {dz[0],  dz[1],  dz[2]}  in HexComputeGeometry()
791           PetscReal   dz[3], phi[8], dphi[8][3], jw, eta, deta;  in THIFunctionLocal()  local
793           HexGrad(HexQDeriv[q], zn, dz);  in THIFunctionLocal()
794           HexComputeGeometry(q, hx, hy, dz, phi, dphi, &jw);  in THIFunctionLocal()
1080           PetscReal   dz[3], phi[8], dphi[8][3], jw, eta, deta;  local
1082           HexGrad(HexQDeriv[q], zn, dz);
1083           HexComputeGeometry(q, hx, hy, dz, phi, dphi, &jw);