C ---------------------------------------------------------------------- C Subroutine GL8.FOR by www.numerical-methods.com | C ---------------------------------------------------------------------- C C Subroutine GL8 assigns the weights and points of a 8 point Gaussian C (Gauss-Legendre) quadrature rule defined on the interval [0,1]. C C SUBROUTINE GL8(MAXN, N, WTS, PTS) C integer maxn: the maximimum number of weights/points C integer n: the number of weights/points C real wts: the weights C real pts: the points C C Source of the code: http://www.numerical-methods.com/fortran/GL8.FOR C Source of the user-guide: http://www.numerical-methods.com/fortran/ C gl8.htm C C Licence: This is 'open source'; the software may be used and applied C within other systems as long as its provenance is appropriately C acknowledged. See the GNU Licence http://www.gnu.org/licenses/lgpl.txt C for more information or contact webmaster@numerical-methods.com C Original code 1998. Documentation enhanced 2014 SUBROUTINE GL8(MAXN,N,WTS,PTS) INTEGER MAXN INTEGER N REAL*8 WTS(MAXN) REAL*8 PTS(MAXN) N=8 WTS(1)= 5.061426814519E-02 PTS(1)= 0.980144928249 WTS(2)= 0.111190517227 PTS(2)= 0.898333238707 WTS(3)= 0.156853322939 PTS(3)= 0.762766204958 WTS(4)= 0.181341891689 PTS(4)= 0.591717321248 WTS(5)= 0.181341891689 PTS(5)= 0.408282678752 WTS(6)= 0.156853322939 PTS(6)= 0.237233795042 WTS(7)= 0.111190517227 PTS(7)= 0.101666761293 WTS(8)= 5.061426814519E-02 PTS(8)= 1.985507175123E-02 END