We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent e0add1a commit 29ebe9cCopy full SHA for 29ebe9c
src/stdlib_quadrature_gauss.f90
@@ -28,6 +28,7 @@ pure module subroutine gauss_legendre_fp64 (x, w, interval)
28
real(dp) :: leg, dleg, delta
29
30
do i = 0, (n+1)/2 - 1
31
+ ! use Gauss-Chebyshev points as an initial guess
32
x(i+1) = -cos((2*i+1)/(2._dp*n+2._dp) * pi)
33
do j = 0, newton_iters-1
34
leg = legendre(n+1,x(i+1))
0 commit comments