% **************************************************************
% gl : Sets up a Gauss-Legendre Quadrature
% **************************************************************
% BEM-LAP-MAT project
% Matlab/Freemat codes
% Copyright 2008- Stephen Kirkup
% John Tyndall Nuclear Research Institute
% School of Computing Engineering and Physical Sciences
% University of Central Lancashire - www.uclan.ac.uk 
% Westlakes Campus
% Samuel Lindow Building
% West Lakes Science and Technology Park
% Whitehaven
% Cumbria CA24 3JY
% United Kingdom
% smkirkup@uclan.ac.uk
%
% This open source code can be found at
%  www.boundary-element-method.com/freematlab/gl.m
%
%  Issued under the GNU General Public License 2007, see gpl.txt
%
%  Part of the the author's open source BEM packages. 
%  All codes and manuals can be downloaded from 
%  www.boundary-element-method.com
%
% **************************************************************

% function [wts,pts,n]=gl()
% Sets up a Gauss-Legendre Quadrature
%  for integration over [0,1]
%  with n=8 weights (wts) and points (pts)


       function [wts,pts,n]=gl()
       n=8;
       wts= [ 5.061426814519E-02  
              0.111190517227  
              0.156853322939  
              0.181341891689  
              0.181341891689  
              0.156853322939  
              0.111190517227  
              5.061426814519E-02];
       pts= [ 1.985507175123E-02 
              0.101666761293  
              0.237233795042  
              0.408282678752  
              0.591717321248  
              0.762766204958 
              0.898333238707  
              0.980144928249];