Searched refs:wk (Results 1 – 2 of 2) sorted by relevance
2361 PetscReal wk = 0.5 * PETSC_PI; /* Quadrature weight at x_k */ in PetscDTTanhSinhTensorQuadrature() local2385 …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() local2442 …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()[all …]
318 const PetscReal wk = ((ncols == 1) && (k > 0)) ? 0.0 : PetscSqrtReal(w[k]); in DMAdaptInterpolator() local321 b[k] = wk * af[r - rStart + k * ldaf]; in DMAdaptInterpolator()326 A[c * Nc + k] = wk * ac[cols[c] - rStart + k * ldac]; in DMAdaptInterpolator()