358 static void THIFriction(THI thi, PetscReal rbeta2, PetscReal gam, PetscReal *beta2, PetscReal *dbet…  in THIFriction()  argument
366     *beta2  = rbeta2;  in THIFriction()
369 …*beta2  = rbeta2 * PetscPowReal(thi->friction.eps2 + gam * thi->friction.irefgam, thi->friction.ex…  in THIFriction()
828               PetscScalar     u = 0, v = 0, rbeta2 = 0;  in THIFunctionLocal()  local
833                 rbeta2 += phi[l] * pn[l].beta2;  in THIFunctionLocal()
835 …        THIFriction(thi, PetscRealPart(rbeta2), PetscRealPart(u * u + v * v) / 2, &beta2, &dbeta2);  in THIFunctionLocal()
992         PetscScalar u, v, du[2], dv[2], h = 0, rbeta2 = 0;  in THIJacobianLocal_2D()  local
998           rbeta2 += phi[l] * pn[l].beta2;  in THIJacobianLocal_2D()
1002         THIFriction(thi, PetscRealPart(rbeta2), PetscRealPart(u * u + v * v) / 2, &beta2, &dbeta2);  in THIJacobianLocal_2D()
1150               PetscScalar     u = 0, v = 0, rbeta2 = 0;  local
1155                 rbeta2 += phi[l] * pn[l].beta2;
1157 …        THIFriction(thi, PetscRealPart(rbeta2), PetscRealPart(u * u + v * v) / 2, &beta2, &dbeta2);