2361   PetscReal       wk = 0.5 * PETSC_PI;               /* Quadrature weight at x_k */  in PetscDTTanhSinhTensorQuadrature()  local
2385 …for (K = 1; PetscAbsReal(PetscLog10Real(wk)) < 2 * p; ++K) wk = 0.5 * h * PETSC_PI * PetscCoshReal…  in PetscDTTanhSinhTensorQuadrature()
2396 …wk           = 0.5 * alpha * h * PETSC_PI * PetscCoshReal(k * h) / PetscSqr(PetscCoshReal(0.5 * PE…  in PetscDTTanhSinhTensorQuadrature()
2399     w[2 * k - 1] = wk;  in PetscDTTanhSinhTensorQuadrature()
2401     w[2 * k + 0] = wk;  in PetscDTTanhSinhTensorQuadrature()
2419   PetscReal       wk;                   /* Quadrature weight at x_k */  in PetscDTTanhSinhIntegrate()  local
2442 …wk = 0.5 * h * PETSC_PI * PetscCoshReal(k * h) / PetscSqr(PetscCoshReal(0.5 * PETSC_PI * PetscSinh…  in PetscDTTanhSinhIntegrate()
2448       lterm   = alpha * wk * lval;  in PetscDTTanhSinhIntegrate()
2451       rterm   = alpha * wk * rval;  in PetscDTTanhSinhIntegrate()
2457 …} while (PetscAbsReal(PetscLog10Real(wk)) < p); /* Only need to evaluate sum until weights are < 3…  in PetscDTTanhSinhIntegrate()
2484   mpfr_t         wk;               /* Quadrature weight at x_k */  in PetscDTTanhSinhIntegrateMPFR()  local
2492 …etscLogReal(10.) / PetscLogReal(2.)), alpha, beta, h, sum, osum, psum, yk, wk, lx, rx, tmp, maxTer…  in PetscDTTanhSinhIntegrateMPFR()
2524       mpfr_set(wk, h, MPFR_RNDN);  in PetscDTTanhSinhIntegrateMPFR()
2530       mpfr_mul(wk, wk, mcosh, MPFR_RNDN);  in PetscDTTanhSinhIntegrateMPFR()
2531       mpfr_div(wk, wk, tmp, MPFR_RNDN);  in PetscDTTanhSinhIntegrateMPFR()
2551       mpfr_mul(tmp, wk, alpha, MPFR_RNDN);  in PetscDTTanhSinhIntegrateMPFR()
2557       mpfr_mul(tmp, wk, alpha, MPFR_RNDN);  in PetscDTTanhSinhIntegrateMPFR()
2566       mpfr_log10(tmp, wk, MPFR_RNDN);  in PetscDTTanhSinhIntegrateMPFR()
2585 …mpfr_clears(alpha, beta, h, sum, osum, psum, yk, wk, lx, rx, tmp, maxTerm, curTerm, pi2, kh, msinh…  in PetscDTTanhSinhIntegrateMPFR()