193 static void HexGrad(const PetscReal dphi[][3], const PetscReal zn[], PetscReal dz[])  in HexGrad()  argument
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()
290 static void PrmHexGetZ(const PrmNode pn[], PetscInt k, PetscInt zm, PetscReal zn[])  in PrmHexGetZ()  argument
295   for (i = 0; i < 8; i++) zn[i] = PetscRealPart(znl[i]);  in PrmHexGetZ()
781         PetscReal zn[8], etabase = 0;  in THIFunctionLocal()  local
782         PrmHexGetZ(pn, k, zm, zn);  in THIFunctionLocal()
793           HexGrad(HexQDeriv[q], zn, dz);  in THIFunctionLocal()
1068         PetscReal   zn[8], etabase = 0;  local
1072         PrmHexGetZ(pn, k, zm, zn);
1082           HexGrad(HexQDeriv[q], zn, dz);