%{------------------------------------------------------------------}
%{- These numbers are the zeros and weight factors of the          -}
%{- NumLegendreTermsth order Legendre Polynomial.  The numbers are -}
%{- taken from Abramowitz, Milton and Stegum, Irene. "Handbook of  -}
%{- Mathematical Functions with Formulas, Graphs and Mathematical  -}
%{- Tables." Washington DC: National Bureau of Standards, Applied  -}
%{- Mathematics Series, 55. 1972.                                  -}
%{-                                                                -}
%{- These numbers satisfy the following:                           -}
%{-                                                                -}
%{-     Integral from -1 to 1 of f(X) dx                           -}
%{-                  equals                                        -}
%{-     Sum from I=1 to NumLegendreTerms of                        -}
%{-                Legendre[I].Weight * f(Legendre[I].Root)        -}
%{------------------------------------------------------------------}
Root=[-0.989400934991649932596 ...,
 -0.944575023073232576078 ...,
 -0.865631202387831743880 ...,
 -0.755404408355003033895 ...,
 -0.617876244402643748447 ...,
 -0.458016777657227386342 ...,
 -0.281603550779258913230 ...,
 -0.095012509837637440185 ...,
 0.095012509837637440185 ...,
 0.281603550779258913230 ...,
 0.458016777657227386342 ...,
 0.617876244402643748447 ...,
 0.755404408355003033895 ...,
 0.865631202387831743880 ...,
 0.944575023073232576078 ...,
 0.989400934991649932596];

Weight=[0.027152459411754094852 ...,
 0.062253523938647892863 ...,
 0.095158511682492784810 ...,
 0.124628971255533872052 ...,
 0.149595988816576732081 ...,
 0.169156519395002538189 ...,
 0.182603415044923588867 ...,
 0.189450610455068496285 ...,
 0.189450610455068496285 ...,
 0.182603415044923588867 ...,
 0.169156519395002538189 ...,
 0.149595988816576732081 ...,
 0.124628971255533872052 ...,
 0.095158511682492784810 ...,
 0.062253523938647892863 ...,
 0.027152459411754094852];

