function [ x, w ] = laguerre_set ( n )

%*****************************************************************************80
%
%% laguerre_set() sets abscissas and weights for Laguerre quadrature.
%
%  Discussion:
%
%    The abscissas are the zeroes of the Laguerre polynomial L(N)(X).
%
%    The integral:
%
%      Integral ( 0 <= X < +oo ) exp ( -X ) * F(X) dX
%
%    The quadrature rule:
%
%      Sum ( 1 <= I <= N ) W(I) * f ( X(I) )
%
%    The integral:
%
%      Integral ( 0 <= X < +oo ) F(X) dX
%
%    The quadrature rule:
%
%      Sum ( 1 <= I <= N ) W(I) * exp ( X(I) ) * f ( X(I) )
%
%    Mathematica can numerically estimate the abscissas for the
%    n-th order polynomial to p digits of precision by the command:
%
%      NSolve [ LaguerreL[n,x] == 0, x, p ]
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    22 April 2010
%
%  Author:
%
%    John Burkardt
%
%  Reference:
%
%    Milton Abramowitz, Irene Stegun,
%    Handbook of Mathematical Functions,
%    National Bureau of Standards, 1964,
%    ISBN: 0-486-61272-4,
%    LC: QA47.A34.
%
%    Vladimir Krylov,
%    Approximate Calculation of Integrals,
%    Dover, 2006,
%    ISBN: 0486445798,
%    LC: QA311.K713.
%
%    Arthur Stroud, Don Secrest,
%    Gaussian Quadrature Formulas,
%    Prentice Hall, 1966,
%    LC: QA299.4G3S7.
%
%    Stephen Wolfram,
%    The Mathematica Book,
%    Fourth Edition,
%    Cambridge University Press, 1999,
%    ISBN: 0-521-64314-7,
%    LC: QA76.95.W65.
%
%    Daniel Zwillinger, editor,
%    CRC Standard Mathematical Tables and Formulae,
%    30th Edition,
%    CRC Press, 1996,
%    ISBN: 0-8493-2479-3,
%    LC: QA47.M315.
%
%  Input:
%
%    integer N, the order.
%    N must be between 1 and 20, 31/32/33, 63/64/65, 127/128/129.
%
%  Output:
%
%    real X(N), the abscissas.
%
%    real W(N), the weights.
%
  x = zeros ( n, 1 );
  w = zeros ( n, 1 );

  if ( n == 1 )

    x(1) =  1.00000000000000000000000000000E+00;

    w(1) =  1.00000000000000000000000000000E+00;

  elseif ( n == 2 )

    x(1) = 0.585786437626904951198311275790E+00;
    x(2) = 3.41421356237309504880168872421E+00;

    w(1) = 0.85355339059327376220042218105E+00;
    w(2) = 0.146446609406726237799577818948E+00;

  elseif ( n == 3 )

    x(1) = 0.415774556783479083311533873128E+00;
    x(2) = 2.29428036027904171982205036136E+00;
    x(3) = 6.28994508293747919686641576551E+00;

    w(1) = 0.71109300992917301544959019114E+00;
    w(2) = 0.27851773356924084880144488846E+00;
    w(3) = 0.010389256501586135748964920401E+00;

  elseif ( n == 4 )

    x(1) = 0.322547689619392311800361459104E+00;
    x(2) = 1.74576110115834657568681671252E+00;
    x(3) = 4.53662029692112798327928538496E+00;
    x(4) = 9.39507091230113312923353644342E+00;

    w(1) = 0.60315410434163360163596602382E+00;
    w(2) = 0.35741869243779968664149201746E+00;
    w(3) = 0.03888790851500538427243816816E+00;
    w(4) = 0.0005392947055613274501037905676E+00;

  elseif ( n == 5 )

    x(1) = 0.263560319718140910203061943361E+00;
    x(2) = 1.41340305910651679221840798019E+00;
    x(3) = 3.59642577104072208122318658878E+00;
    x(4) = 7.08581000585883755692212418111E+00;
    x(5) = 12.6408008442757826594332193066E+00;

    w(1) = 0.52175561058280865247586092879E+00;
    w(2) = 0.3986668110831759274541333481E+00;
    w(3) = 0.0759424496817075953876533114E+00;
    w(4) = 0.00361175867992204845446126257E+00;
    w(5) = 0.00002336997238577622789114908455E+00;

  elseif ( n == 6 )

    x(1) = 0.222846604179260689464354826787E+00;
    x(2) = 1.18893210167262303074315092194E+00;
    x(3) = 2.99273632605931407769132528451E+00;
    x(4) = 5.77514356910451050183983036943E+00;
    x(5) = 9.83746741838258991771554702994E+00;
    x(6) = 15.9828739806017017825457915674E+00;

    w(1) = 0.45896467394996359356828487771E+00;
    w(2) = 0.4170008307721209941133775662E+00;
    w(3) = 0.1133733820740449757387061851E+00;
    w(4) = 0.01039919745314907489891330285E+00;
    w(5) = 0.000261017202814932059479242860E+00;
    w(6) = 8.98547906429621238825292053E-07;

  elseif ( n == 7 )

    x(1) = 0.193043676560362413838247885004E+00;
    x(2) = 1.02666489533919195034519944317E+00;
    x(3) = 2.56787674495074620690778622666E+00;
    x(4) = 4.90035308452648456810171437810E+00;
    x(5) = 8.18215344456286079108182755123E+00;
    x(6) = 12.7341802917978137580126424582E+00;
    x(7) = 19.3957278622625403117125820576E+00;

    w(1) = 0.40931895170127390213043288002E+00;
    w(2) = 0.4218312778617197799292810054E+00;
    w(3) = 0.1471263486575052783953741846E+00;
    w(4) = 0.0206335144687169398657056150E+00;
    w(5) = 0.00107401014328074552213195963E+00;
    w(6) = 0.0000158654643485642012687326223E+00;
    w(7) = 3.17031547899558056227132215E-08;

  elseif ( n == 8 )

    x(1) = 0.170279632305100999788861856608E+00;
    x(2) = 0.903701776799379912186020223555E+00;
    x(3) = 2.25108662986613068930711836697E+00;
    x(4) = 4.26670017028765879364942182690E+00;
    x(5) = 7.04590540239346569727932548212E+00;
    x(6) = 10.7585160101809952240599567880E+00;
    x(7) = 15.7406786412780045780287611584E+00;
    x(8) = 22.8631317368892641057005342974E+00;

    w(1) = 0.36918858934163752992058283938E+00;
    w(2) = 0.4187867808143429560769785813E+00;
    w(3) = 0.175794986637171805699659867E+00;
    w(4) = 0.033343492261215651522132535E+00;
    w(5) = 0.0027945362352256725249389241E+00;
    w(6) = 0.00009076508773358213104238501E+00;
    w(7) = 8.4857467162725315448680183E-07;
    w(8) = 1.04800117487151038161508854E-09;

  elseif ( n == 9 )

    x(1) = 0.152322227731808247428107073127E+00;
    x(2) = 0.807220022742255847741419210952E+00;
    x(3) = 2.00513515561934712298303324701E+00;
    x(4) = 3.78347397333123299167540609364E+00;
    x(5) = 6.20495677787661260697353521006E+00;
    x(6) = 9.37298525168757620180971073215E+00;
    x(7) = 13.4662369110920935710978818397E+00;
    x(8) = 18.8335977889916966141498992996E+00;
    x(9) = 26.3740718909273767961410072937E+00;

    w(1) = 0.336126421797962519673467717606E+00;
    w(2) = 0.411213980423984387309146942793E+00;
    w(3) = 0.199287525370885580860575607212E+00;
    w(4) = 0.0474605627656515992621163600479E+00;
    w(5) = 0.00559962661079458317700419900556E+00;
    w(6) = 0.000305249767093210566305412824291E+00;
    w(7) = 6.59212302607535239225572284875E-06;
    w(8) = 4.1107693303495484429024104033E-08;
    w(9) = 3.29087403035070757646681380323E-11;

  elseif ( n == 10 )

    x(1) = 0.137793470540492430830772505653E+00;
    x(2) = 0.729454549503170498160373121676E+00;
    x(3) = 1.80834290174031604823292007575E+00;
    x(4) = 3.40143369785489951448253222141E+00;
    x(5) = 5.55249614006380363241755848687E+00;
    x(6) = 8.33015274676449670023876719727E+00;
    x(7) = 11.8437858379000655649185389191E+00;
    x(8) = 16.2792578313781020995326539358E+00;
    x(9) = 21.9965858119807619512770901956E+00;
    x(10) = 29.9206970122738915599087933408E+00;

    w(1) = 0.30844111576502014154747083468E+00;
    w(2) = 0.4011199291552735515157803099E+00;
    w(3) = 0.218068287611809421588648523E+00;
    w(4) = 0.062087456098677747392902129E+00;
    w(5) = 0.009501516975181100553839072E+00;
    w(6) = 0.0007530083885875387754559644E+00;
    w(7) = 0.00002825923349599565567422564E+00;
    w(8) = 4.249313984962686372586577E-07;
    w(9) = 1.839564823979630780921535E-09;
    w(10) = 9.911827219609008558377547E-13;

  elseif ( n == 11 )

    x(1) = 0.125796442187967522675794577516E+00;
    x(2) = 0.665418255839227841678127839420E+00;
    x(3) = 1.64715054587216930958700321365E+00;
    x(4) = 3.09113814303525495330195934259E+00;
    x(5) = 5.02928440157983321236999508366E+00;
    x(6) = 7.50988786380661681941099714450E+00;
    x(7) = 10.6059509995469677805559216457E+00;
    x(8) = 14.4316137580641855353200450349E+00;
    x(9) = 19.1788574032146786478174853989E+00;
    x(10) = 25.2177093396775611040909447797E+00;
    x(11) = 33.4971928471755372731917259395E+00;

    w(1) = 0.28493321289420060505605102472E+00;
    w(2) = 0.3897208895278493779375535080E+00;
    w(3) = 0.232781831848991333940223796E+00;
    w(4) = 0.076564453546196686400854179E+00;
    w(5) = 0.014393282767350695091863919E+00;
    w(6) = 0.001518880846484873069847776E+00;
    w(7) = 0.0000851312243547192259720424E+00;
    w(8) = 2.29240387957450407857683E-06;
    w(9) = 2.48635370276779587373391E-08;
    w(10) = 7.71262693369132047028153E-11;
    w(11) = 2.883775868323623861597778E-14;

  elseif ( n == 12 )

    x(1) = 0.115722117358020675267196428240E+00;
    x(2) = 0.611757484515130665391630053042E+00;
    x(3) = 1.51261026977641878678173792687E+00;
    x(4) = 2.83375133774350722862747177657E+00;
    x(5) = 4.59922763941834848460572922485E+00;
    x(6) = 6.84452545311517734775433041849E+00;
    x(7) = 9.62131684245686704391238234923E+00;
    x(8) = 13.0060549933063477203460524294E+00;
    x(9) = 17.1168551874622557281840528008E+00;
    x(10) = 22.1510903793970056699218950837E+00;
    x(11) = 28.4879672509840003125686072325E+00;
    x(12) = 37.0991210444669203366389142764E+00;

    w(1) = 0.26473137105544319034973889206E+00;
    w(2) = 0.3777592758731379820244905567E+00;
    w(3) = 0.244082011319877564254870818E+00;
    w(4) = 0.09044922221168093072750549E+00;
    w(5) = 0.02010238115463409652266129E+00;
    w(6) = 0.002663973541865315881054158E+00;
    w(7) = 0.000203231592662999392121433E+00;
    w(8) = 8.3650558568197987453363E-06;
    w(9) = 1.66849387654091026116990E-07;
    w(10) = 1.34239103051500414552392E-09;
    w(11) = 3.06160163503502078142408E-12;
    w(12) = 8.148077467426241682473119E-16;

  elseif ( n == 13 )

    x(1) = 0.107142388472252310648493376977E+00;
    x(2) = 0.566131899040401853406036347177E+00;
    x(3) = 1.39856433645101971792750259921E+00;
    x(4) = 2.61659710840641129808364008472E+00;
    x(5) = 4.23884592901703327937303389926E+00;
    x(6) = 6.29225627114007378039376523025E+00;
    x(7) = 8.81500194118697804733348868036E+00;
    x(8) = 11.8614035888112425762212021880E+00;
    x(9) = 15.5107620377037527818478532958E+00;
    x(10) = 19.8846356638802283332036594634E+00;
    x(11) = 25.1852638646777580842970297823E+00;
    x(12) = 31.8003863019472683713663283526E+00;
    x(13) = 40.7230086692655795658979667001E+00;

    w(1) = 0.24718870842996262134624918596E+00;
    w(2) = 0.3656888229005219453067175309E+00;
    w(3) = 0.252562420057658502356824289E+00;
    w(4) = 0.10347075802418370511421863E+00;
    w(5) = 0.02643275441556161577815877E+00;
    w(6) = 0.00422039604025475276555209E+00;
    w(7) = 0.000411881770472734774892473E+00;
    w(8) = 0.0000235154739815532386882897E+00;
    w(9) = 7.3173116202490991040105E-07;
    w(10) = 1.10884162570398067979151E-08;
    w(11) = 6.7708266922058988406462E-11;
    w(12) = 1.15997995990507606094507E-13;
    w(13) = 2.245093203892758415991872E-17;

  elseif ( n == 14 )

    x(1) = 0.0997475070325975745736829452514E+00;
    x(2) = 0.526857648851902896404583451502E+00;
    x(3) = 1.30062912125149648170842022116E+00;
    x(4) = 2.43080107873084463616999751038E+00;
    x(5) = 3.93210282229321888213134366778E+00;
    x(6) = 5.82553621830170841933899983898E+00;
    x(7) = 8.14024014156514503005978046052E+00;
    x(8) = 10.9164995073660188408130510904E+00;
    x(9) = 14.2108050111612886831059780825E+00;
    x(10) = 18.1048922202180984125546272083E+00;
    x(11) = 22.7233816282696248232280886985E+00;
    x(12) = 28.2729817232482056954158923218E+00;
    x(13) = 35.1494436605924265828643121364E+00;
    x(14) = 44.3660817111174230416312423666E+00;

    w(1) = 0.23181557714486497784077486110E+00;
    w(2) = 0.3537846915975431518023313013E+00;
    w(3) = 0.258734610245428085987320561E+00;
    w(4) = 0.11548289355692321008730499E+00;
    w(5) = 0.03319209215933736003874996E+00;
    w(6) = 0.00619286943700661021678786E+00;
    w(7) = 0.00073989037786738594242589E+00;
    w(8) = 0.000054907194668416983785733E+00;
    w(9) = 2.4095857640853774967578E-06;
    w(10) = 5.801543981676495180886E-08;
    w(11) = 6.819314692484974119616E-10;
    w(12) = 3.2212077518948479398089E-12;
    w(13) = 4.2213524405165873515980E-15;
    w(14) = 6.05237502228918880839871E-19;

  elseif ( n == 15 )

    x(1) = 0.0933078120172818047629030383672E+00;
    x(2) = 0.492691740301883908960101791412E+00;
    x(3) = 1.21559541207094946372992716488E+00;
    x(4) = 2.26994952620374320247421741375E+00;
    x(5) = 3.66762272175143727724905959436E+00;
    x(6) = 5.42533662741355316534358132596E+00;
    x(7) = 7.56591622661306786049739555812E+00;
    x(8) = 10.1202285680191127347927394568E+00;
    x(9) = 13.1302824821757235640991204176E+00;
    x(10) = 16.6544077083299578225202408430E+00;
    x(11) = 20.7764788994487667729157175676E+00;
    x(12) = 25.6238942267287801445868285977E+00;
    x(13) = 31.4075191697539385152432196202E+00;
    x(14) = 38.5306833064860094162515167595E+00;
    x(15) = 48.0260855726857943465734308508E+00;

    w(1) = 0.21823488594008688985641323645E+00;
    w(2) = 0.3422101779228833296389489568E+00;
    w(3) = 0.263027577941680097414812275E+00;
    w(4) = 0.12642581810593053584303055E+00;
    w(5) = 0.04020686492100091484158548E+00;
    w(6) = 0.00856387780361183836391576E+00;
    w(7) = 0.00121243614721425207621921E+00;
    w(8) = 0.00011167439234425194199258E+00;
    w(9) = 6.459926762022900924653E-06;
    w(10) = 2.226316907096272630332E-07;
    w(11) = 4.227430384979365007351E-09;
    w(12) = 3.921897267041089290385E-11;
    w(13) = 1.4565152640731264063327E-13;
    w(14) = 1.4830270511133013354616E-16;
    w(15) = 1.60059490621113323104998E-20;

  elseif ( n == 16 )

    x(1) = 0.0876494104789278403601980973401E+00;
    x(2) = 0.462696328915080831880838260664E+00;
    x(3) = 1.14105777483122685687794501811E+00;
    x(4) = 2.12928364509838061632615907066E+00;
    x(5) = 3.43708663389320664523510701675E+00;
    x(6) = 5.07801861454976791292305830814E+00;
    x(7) = 7.07033853504823413039598947080E+00;
    x(8) = 9.43831433639193878394724672911E+00;
    x(9) = 12.2142233688661587369391246088E+00;
    x(10) = 15.4415273687816170767647741622E+00;
    x(11) = 19.1801568567531348546631409497E+00;
    x(12) = 23.5159056939919085318231872752E+00;
    x(13) = 28.5787297428821403675206137099E+00;
    x(14) = 34.5833987022866258145276871778E+00;
    x(15) = 41.9404526476883326354722330252E+00;
    x(16) = 51.7011603395433183643426971197E+00;

    w(1) = 0.20615171495780099433427363674E+00;
    w(2) = 0.3310578549508841659929830987E+00;
    w(3) = 0.265795777644214152599502021E+00;
    w(4) = 0.13629693429637753997554751E+00;
    w(5) = 0.0473289286941252189780623E+00;
    w(6) = 0.0112999000803394532312490E+00;
    w(7) = 0.0018490709435263108642918E+00;
    w(8) = 0.00020427191530827846012602E+00;
    w(9) = 0.00001484458687398129877135E+00;
    w(10) = 6.828319330871199564396E-07;
    w(11) = 1.881024841079673213882E-08;
    w(12) = 2.862350242973881619631E-10;
    w(13) = 2.127079033224102967390E-12;
    w(14) = 6.297967002517867787174E-15;
    w(15) = 5.050473700035512820402E-18;
    w(16) = 4.1614623703728551904265E-22;

  elseif ( n == 17 )

    x(1) = 0.0826382147089476690543986151980E+00;
    x(2) = 0.436150323558710436375959029847E+00;
    x(3) = 1.07517657751142857732980316755E+00;
    x(4) = 2.00519353164923224070293371933E+00;
    x(5) = 3.23425612404744376157380120696E+00;
    x(6) = 4.77351351370019726480932076262E+00;
    x(7) = 6.63782920536495266541643929703E+00;
    x(8) = 8.84668551116980005369470571184E+00;
    x(9) = 11.4255293193733525869726151469E+00;
    x(10) = 14.4078230374813180021982874959E+00;
    x(11) = 17.8382847307011409290658752412E+00;
    x(12) = 21.7782682577222653261749080522E+00;
    x(13) = 26.3153178112487997766149598369E+00;
    x(14) = 31.5817716804567331343908517497E+00;
    x(15) = 37.7960938374771007286092846663E+00;
    x(16) = 45.3757165339889661829258363215E+00;
    x(17) = 55.3897517898396106640900199790E+00;

    w(1) = 0.19533220525177083214592729770E+00;
    w(2) = 0.3203753572745402813366256320E+00;
    w(3) = 0.267329726357171097238809604E+00;
    w(4) = 0.14512985435875862540742645E+00;
    w(5) = 0.0544369432453384577793806E+00;
    w(6) = 0.0143572977660618672917767E+00;
    w(7) = 0.0026628247355727725684324E+00;
    w(8) = 0.0003436797271562999206118E+00;
    w(9) = 0.00003027551783782870109437E+00;
    w(10) = 1.768515053231676895381E-06;
    w(11) = 6.57627288681043332199E-08;
    w(12) = 1.469730932159546790344E-09;
    w(13) = 1.81691036255544979555E-11;
    w(14) = 1.095401388928687402976E-13;
    w(15) = 2.617373882223370421551E-16;
    w(16) = 1.6729356931461546908502E-19;
    w(17) = 1.06562631627404278815253E-23;

  elseif ( n == 18 )

    x(1) = 0.0781691666697054712986747615334E+00;
    x(2) = 0.412490085259129291039101536536E+00;
    x(3) = 1.01652017962353968919093686187E+00;
    x(4) = 1.89488850996976091426727831954E+00;
    x(5) = 3.05435311320265975115241130719E+00;
    x(6) = 4.50420553888989282633795571455E+00;
    x(7) = 6.25672507394911145274209116326E+00;
    x(8) = 8.32782515660563002170470261564E+00;
    x(9) = 10.7379900477576093352179033397E+00;
    x(10) = 13.5136562075550898190863812108E+00;
    x(11) = 16.6893062819301059378183984163E+00;
    x(12) = 20.3107676262677428561313764553E+00;
    x(13) = 24.4406813592837027656442257980E+00;
    x(14) = 29.1682086625796161312980677805E+00;
    x(15) = 34.6279270656601721454012429438E+00;
    x(16) = 41.0418167728087581392948614284E+00;
    x(17) = 48.8339227160865227486586093290E+00;
    x(18) = 59.0905464359012507037157810181E+00;

    w(1) = 0.18558860314691880562333775228E+00;
    w(2) = 0.3101817663702252936495975957E+00;
    w(3) = 0.267866567148536354820854395E+00;
    w(4) = 0.15297974746807490655384308E+00;
    w(5) = 0.0614349178609616527076780E+00;
    w(6) = 0.0176872130807729312772600E+00;
    w(7) = 0.0036601797677599177980266E+00;
    w(8) = 0.0005406227870077353231284E+00;
    w(9) = 0.0000561696505121423113818E+00;
    w(10) = 4.01530788370115755859E-06;
    w(11) = 1.91466985667567497969E-07;
    w(12) = 5.8360952686315941292E-09;
    w(13) = 1.07171126695539012773E-10;
    w(14) = 1.08909871388883385562E-12;
    w(15) = 5.38666474837830887608E-15;
    w(16) = 1.049865978035703408779E-17;
    w(17) = 5.405398451631053643566E-21;
    w(18) = 2.6916532692010286270838E-25;

  elseif ( n == 19 )

    x(1) = 0.0741587837572050877131369916024E+00;
    x(2) = 0.391268613319994607337648350299E+00;
    x(3) = 0.963957343997958058624878377130E+00;
    x(4) = 1.79617558206832812557725825252E+00;
    x(5) = 2.89365138187378399116494713237E+00;
    x(6) = 4.26421553962776647436040018167E+00;
    x(7) = 5.91814156164404855815360191408E+00;
    x(8) = 7.86861891533473373105668358176E+00;
    x(9) = 10.1324237168152659251627415800E+00;
    x(10) = 12.7308814638423980045092979656E+00;
    x(11) = 15.6912783398358885454136069861E+00;
    x(12) = 19.0489932098235501532136429732E+00;
    x(13) = 22.8508497608294829323930586693E+00;
    x(14) = 27.1606693274114488789963947149E+00;
    x(15) = 32.0691222518622423224362865906E+00;
    x(16) = 37.7129058012196494770647508283E+00;
    x(17) = 44.3173627958314961196067736013E+00;
    x(18) = 52.3129024574043831658644222420E+00;
    x(19) = 62.8024231535003758413504690673E+00;

    w(1) = 0.17676847491591250225103547981E+00;
    w(2) = 0.3004781436072543794821568077E+00;
    w(3) = 0.267599547038175030772695441E+00;
    w(4) = 0.15991337213558021678551215E+00;
    w(5) = 0.0682493799761491134552355E+00;
    w(6) = 0.0212393076065443249244062E+00;
    w(7) = 0.0048416273511483959672501E+00;
    w(8) = 0.0008049127473813667665946E+00;
    w(9) = 0.0000965247209315350170843E+00;
    w(10) = 8.20730525805103054409E-06;
    w(11) = 4.8305667247307725394E-07;
    w(12) = 1.90499136112328569994E-08;
    w(13) = 4.8166846309280615577E-10;
    w(14) = 7.3482588395511443768E-12;
    w(15) = 6.2022753875726163989E-14;
    w(16) = 2.54143084301542272372E-16;
    w(17) = 4.07886129682571235007E-19;
    w(18) = 1.707750187593837061004E-22;
    w(19) = 6.715064649908189959990E-27;

  elseif ( n == 20 )

    x(1) = 0.0705398896919887533666890045842E+00;
    x(2) = 0.372126818001611443794241388761E+00;
    x(3) = 0.916582102483273564667716277074E+00;
    x(4) = 1.70730653102834388068768966741E+00;
    x(5) = 2.74919925530943212964503046049E+00;
    x(6) = 4.04892531385088692237495336913E+00;
    x(7) = 5.61517497086161651410453988565E+00;
    x(8) = 7.45901745367106330976886021837E+00;
    x(9) = 9.59439286958109677247367273428E+00;
    x(10) = 12.0388025469643163096234092989E+00;
    x(11) = 14.8142934426307399785126797100E+00;
    x(12) = 17.9488955205193760173657909926E+00;
    x(13) = 21.4787882402850109757351703696E+00;
    x(14) = 25.4517027931869055035186774846E+00;
    x(15) = 29.9325546317006120067136561352E+00;
    x(16) = 35.0134342404790000062849359067E+00;
    x(17) = 40.8330570567285710620295677078E+00;
    x(18) = 47.6199940473465021399416271529E+00;
    x(19) = 55.8107957500638988907507734445E+00;
    x(20) = 66.5244165256157538186403187915E+00;

    w(1) = 0.168746801851113862149223899689E+00;
    w(2) = 0.291254362006068281716795323812E+00;
    w(3) = 0.266686102867001288549520868998E+00;
    w(4) = 0.166002453269506840031469127816E+00;
    w(5) = 0.0748260646687923705400624639615E+00;
    w(6) = 0.0249644173092832210728227383234E+00;
    w(7) = 0.00620255084457223684744754785395E+00;
    w(8) = 0.00114496238647690824203955356969E+00;
    w(9) = 0.000155741773027811974779809513214E+00;
    w(10) = 0.0000154014408652249156893806714048E+00;
    w(11) = 1.08648636651798235147970004439E-06;
    w(12) = 5.33012090955671475092780244305E-08;
    w(13) = 1.7579811790505820035778763784E-09;
    w(14) = 3.72550240251232087262924585338E-11;
    w(15) = 4.76752925157819052449488071613E-13;
    w(16) = 3.37284424336243841236506064991E-15;
    w(17) = 1.15501433950039883096396247181E-17;
    w(18) = 1.53952214058234355346383319667E-20;
    w(19) = 5.28644272556915782880273587683E-24;
    w(20) = 1.65645661249902329590781908529E-28;

  elseif ( n == 31 )

    x(1) = 0.0459019476211082907434960802752E+00;
    x(2) = 0.241980163824772048904089741517E+00;
    x(3) = 0.595253894222350737073301650054E+00;
    x(4) = 1.10668949953299871621113087898E+00;
    x(5) = 1.77759569287477272115937274827E+00;
    x(6) = 2.60970341525668065038933759253E+00;
    x(7) = 3.60519680234004426988058175542E+00;
    x(8) = 4.76674708447176113136291272711E+00;
    x(9) = 6.09755456718174092699254293285E+00;
    x(10) = 7.60140094923313742293601069429E+00;
    x(11) = 9.28271431347088941825366952977E+00;
    x(12) = 11.1466497556192913589938156296E+00;
    x(13) = 13.1991895762449985224649250286E+00;
    x(14) = 15.4472683155493100758093258918E+00;
    x(15) = 17.8989298266447576467257938178E+00;
    x(16) = 20.5635263367158221707430489688E+00;
    x(17) = 23.4519734820118585910502555759E+00;
    x(18) = 26.5770813521182604599758769865E+00;
    x(19) = 29.9539908723464455069519178400E+00;
    x(20) = 33.6007595329022027354103138858E+00;
    x(21) = 37.5391644073304408828879025580E+00;
    x(22) = 41.7958308701822199813479458533E+00;
    x(23) = 46.4038668064111231360292276044E+00;
    x(24) = 51.4053144767977551618614610884E+00;
    x(25) = 56.8549928687158436205119220557E+00;
    x(26) = 62.8268559087863214536775233048E+00;
    x(27) = 69.4252771910803456233222516564E+00;
    x(28) = 76.8070477638627328376099722855E+00;
    x(29) = 85.2303586075456691693870656070E+00;
    x(30) = 95.1889398915256299813086068540E+00;
    x(31) = 107.952243827578714750024401177E+00;

    w(1) = 0.112527895503725838208477280828E+00;
    w(2) = 0.21552760818089123795222505285E+00;
    w(3) = 0.238308251645696547319057880892E+00;
    w(4) = 0.195388309297902292499153033907E+00;
    w(5) = 0.126982832893061901436352729046E+00;
    w(6) = 0.0671861689238993006709294419935E+00;
    w(7) = 0.029303224993879487404888669312E+00;
    w(8) = 0.0105975699152957360895293803144E+00;
    w(9) = 0.0031851272582386980320974842433E+00;
    w(10) = 0.000795495483079403829220921490125E+00;
    w(11) = 0.000164800521266366873178629671164E+00;
    w(12) = 0.000028229237864310816393860971469E+00;
    w(13) = 3.98029025510085803871161749001E-06;
    w(14) = 4.59318398418010616737296945103E-07;
    w(15) = 4.30755451877311009301314574659E-08;
    w(16) = 3.25512499382715708551757492579E-09;
    w(17) = 1.96202466754105949962471515931E-10;
    w(18) = 9.31904990866175871295347164313E-12;
    w(19) = 3.43775418194116205203125978983E-13;
    w(20) = 9.67952471304467169974050357762E-15;
    w(21) = 2.03680661101152473980106242193E-16;
    w(22) = 3.12126872807135268317653586326E-18;
    w(23) = 3.37295817041610524533956783083E-20;
    w(24) = 2.46727963866166960110383632425E-22;
    w(25) = 1.15822019045256436348345645766E-24;
    w(26) = 3.2472922591425422434798022809E-27;
    w(27) = 4.91430173080574327408200762597E-30;
    w(28) = 3.45000711048083941322231359538E-33;
    w(29) = 8.76637101171620414729327607329E-37;
    w(30) = 5.03636439211614904112971723166E-41;
    w(31) = 1.99099845825314564824395490803E-46;
 ;
  elseif ( n == 32 )

    x(1) = 0.0444893658332670184188501945244E+00;
    x(2) = 0.234526109519618537452909561302E+00;
    x(3) = 0.576884629301886426491552569378E+00;
    x(4) = 1.07244875381781763304091397718E+00;
    x(5) = 1.72240877644464544113093292797E+00;
    x(6) = 2.52833670642579488112419990556E+00;
    x(7) = 3.49221327302199448960880339977E+00;
    x(8) = 4.61645676974976738776205229617E+00;
    x(9) = 5.90395850417424394656152149158E+00;
    x(10) = 7.35812673318624111322198973719E+00;
    x(11) = 8.98294092421259610337824752677E+00;
    x(12) = 10.7830186325399720675019491381E+00;
    x(13) = 12.7636979867427251149690330822E+00;
    x(14) = 14.9311397555225573197969646873E+00;
    x(15) = 17.2924543367153147892357183836E+00;
    x(16) = 19.8558609403360547397899445841E+00;
    x(17) = 22.6308890131967744886757793394E+00;
    x(18) = 25.6286360224592477674761768768E+00;
    x(19) = 28.8621018163234747443426407115E+00;
    x(20) = 32.3466291539647370032321654237E+00;
    x(21) = 36.1004948057519738040171189479E+00;
    x(22) = 40.1457197715394415362093439289E+00;
    x(23) = 44.5092079957549379759066043775E+00;
    x(24) = 49.2243949873086391767222218066E+00;
    x(25) = 54.3337213333969073328671815512E+00;
    x(26) = 59.8925091621340181961304753247E+00;
    x(27) = 65.9753772879350527965630761193E+00;
    x(28) = 72.6876280906627086386753490878E+00;
    x(29) = 80.1874469779135230674916385687E+00;
    x(30) = 88.7353404178923986893554495243E+00;
    x(31) = 98.8295428682839725591844784095E+00;
    x(32) = 111.751398097937695213664716539E+00;

    w(1) = 0.109218341952384971136131337943E+00;
    w(2) = 0.210443107938813232936062071392E+00;
    w(3) = 0.235213229669848005394941106676E+00;
    w(4) = 0.195903335972881043413247901182E+00;
    w(5) = 0.129983786286071760607216822326E+00;
    w(6) = 0.0705786238657174415601643320433E+00;
    w(7) = 0.0317609125091750703058255211629E+00;
    w(8) = 0.0119182148348385570565446505756E+00;
    w(9) = 0.00373881629461152478966122847796E+00;
    w(10) = 0.000980803306614955132230630611308E+00;
    w(11) = 0.000214864918801364188023199483686E+00;
    w(12) = 0.0000392034196798794720432695682782E+00;
    w(13) = 5.93454161286863287835582893773E-06;
    w(14) = 7.4164045786675522190708220213E-07;
    w(15) = 7.60456787912078148111926545943E-08;
    w(16) = 6.35060222662580674242777108552E-09;
    w(17) = 4.28138297104092887881360582098E-10;
    w(18) = 2.30589949189133607927336809618E-11;
    w(19) = 9.79937928872709406333455225995E-13;
    w(20) = 3.23780165772926646231042646142E-14;
    w(21) = 8.17182344342071943320186059177E-16;
    w(22) = 1.54213383339382337217855949129E-17;
    w(23) = 2.11979229016361861204093474373E-19;
    w(24) = 2.05442967378804542665570987602E-21;
    w(25) = 1.34698258663739515580519340478E-23;
    w(26) = 5.66129413039735937112634432382E-26;
    w(27) = 1.41856054546303690595142933892E-28;
    w(28) = 1.91337549445422430937127829683E-31;
    w(29) = 1.19224876009822235654164532831E-34;
    w(30) = 2.67151121924013698599867893958E-38;
    w(31) = 1.33861694210625628271905701423E-42;
    w(32) = 4.51053619389897423222342830132E-48;

  elseif ( n == 33 )

    x(1) = 0.0431611356173268921917334738206E+00;
    x(2) = 0.227517802803371123850290226913E+00;
    x(3) = 0.559616655851539887586282303916E+00;
    x(4) = 1.04026850775100205382209621927E+00;
    x(5) = 1.67055919607571519092562973257E+00;
    x(6) = 2.45192079589763054651073898192E+00;
    x(7) = 3.38615533758800483230187851832E+00;
    x(8) = 4.47545949839977145702059137905E+00;
    x(9) = 5.72245472027210352266790817933E+00;
    x(10) = 7.13022434440010801631414039534E+00;
    x(11) = 8.70235923062140624893696399459E+00;
    x(12) = 10.4430136502059824268455293839E+00;
    x(13) = 12.3569737593502859624441255236E+00;
    x(14) = 14.4497416815855402377145121178E+00;
    x(15) = 16.7276392186383223532615229942E+00;
    x(16) = 19.1979365872124466372283088222E+00;
    x(17) = 21.8690135249281898713512287043E+00;
    x(18) = 24.7505629061577956433730931987E+00;
    x(19) = 27.8538511114133567797747375537E+00;
    x(20) = 31.1920555455751298677734295989E+00;
    x(21) = 34.7807091535383377002292521853E+00;
    x(22) = 38.6382967177740302250360622751E+00;
    x(23) = 42.7870720782534794879639219927E+00;
    x(24) = 47.2542066029932658172690829767E+00;
    x(25) = 52.0734519015142202671640200482E+00;
    x(26) = 57.2876345410929400754514841078E+00;
    x(27) = 62.9525659469066302071906336861E+00;
    x(28) = 69.1435133801098924457366348147E+00;
    x(29) = 75.9666870142470623437939790250E+00;
    x(30) = 83.5816372232708807614192336050E+00;
    x(31) = 92.2511394441351012341481184391E+00;
    x(32) = 102.477844336823322575825984750E+00;
    x(33) = 115.554756448995807306876850793E+00;

    w(1) = 0.106097745553686759448980241986E+00;
    w(2) = 0.205582983661932603502389046086E+00;
    w(3) = 0.232126523496060850848680143719E+00;
    w(4) = 0.196207372769141916829837191484E+00;
    w(5) = 0.132744856705171098099698375677E+00;
    w(6) = 0.0738518038877138714048058524075E+00;
    w(7) = 0.0342232334108640270351258175641E+00;
    w(8) = 0.0132939751808086665861981468532E+00;
    w(9) = 0.00434094309504623645941229723703E+00;
    w(10) = 0.0011922509906686840510776728263E+00;
    w(11) = 0.000275158225582396584420253012954E+00;
    w(12) = 0.0000532433409922782412444424323192E+00;
    w(13) = 8.60957132646331618369236329569E-06;
    w(14) = 1.15837796102469195604266695945E-06;
    w(15) = 1.28985114856525884538052927779E-07;
    w(16) = 1.18096786980325241031580363325E-08;
    w(17) = 8.82276640967020246770192412272E-10;
    w(18) = 5.32961213410302701363055555216E-11;
    w(19) = 2.57550403748317439431393144398E-12;
    w(20) = 9.8314133225207825980561863437E-14;
    w(21) = 2.92041495556546845392792035892E-15;
    w(22) = 6.63077156752381637730149511056E-17;
    w(23) = 1.12609863704995018019882580368E-18;
    w(24) = 1.39311657122392009414616980902E-20;
    w(25) = 1.21481009891544297673141523063E-22;
    w(26) = 7.16158181142099840535743381278E-25;
    w(27) = 2.70320712488116872172720734689E-27;
    w(28) = 6.07192361286922243586897316027E-30;
    w(29) = 7.32134211132579407517616095945E-33;
    w(30) = 4.06131706145569795511645700604E-36;
    w(31) = 8.04952284545203726871355981553E-40;
    w(32) = 3.52902990360469937522008596417E-44;
    w(33) = 1.01716656299412569799194166119E-49;

  elseif ( n == 63 )

    x(1) = 0.0227688937325761537859943302486E+00;
    x(2) = 0.119983252427278247157714164264E+00;
    x(3) = 0.294941854447701495774277385174E+00;
    x(4) = 0.547790878962377253638650737759E+00;
    x(5) = 0.878690611799319016738955670523E+00;
    x(6) = 1.28784643359197063023092077886E+00;
    x(7) = 1.77551238153885537639794632687E+00;
    x(8) = 2.34199255670859892560556283377E+00;
    x(9) = 2.98764232232464739399767310536E+00;
    x(10) = 3.71286959920180003462996374134E+00;
    x(11) = 4.51813633495035843911055685616E+00;
    x(12) = 5.40396017818259462869025997827E+00;
    x(13) = 6.37091637878653302203922508918E+00;
    x(14) = 7.41963993393117111548884931990E+00;
    x(15) = 8.55082800084033283125890487222E+00;
    x(16) = 9.76524259992453668070045929780E+00;
    x(17) = 11.0637136351406617362205504106E+00;
    x(18) = 12.4471422623564927497986875693E+00;
    x(19) = 13.9165046410578185629129670082E+00;
    x(20) = 15.4728561100362964247771436078E+00;
    x(21) = 17.1173358338635887531169003039E+00;
    x(22) = 18.8511719741548568508734837875E+00;
    x(23) = 20.6756874480565156603772656674E+00;
    x(24) = 22.5923063463115283812922777600E+00;
    x(25) = 24.6025610949726388837006427600E+00;
    x(26) = 26.7081004587373439697790879988E+00;
    x(27) = 28.9106985004513826401777181032E+00;
    x(28) = 31.2122646311759128854777738208E+00;
    x(29) = 33.6148549091011548365988428883E+00;
    x(30) = 36.1206847744848230563063287408E+00;
    x(31) = 38.7321434429335821456260416077E+00;
    x(32) = 41.4518102223187411911147261814E+00;
    x(33) = 44.2824730714792338393588571346E+00;
    x(34) = 47.2271497842956868989350952315E+00;
    x(35) = 50.2891122642406957617490218394E+00;
    x(36) = 53.4719144567886528083482806195E+00;
    x(37) = 56.7794246363420622130997810571E+00;
    x(38) = 60.2158629090198628864175501144E+00;
    x(39) = 63.7858450042359746317011396018E+00;
    x(40) = 67.4944337022938858303743256950E+00;
    x(41) = 71.3471996042952662866548033761E+00;
    x(42) = 75.3502934256532342542905047443E+00;
    x(43) = 79.5105326299863091495553913548E+00;
    x(44) = 83.8355060808722578433398176585E+00;
    x(45) = 88.3337015703543690861127663265E+00;
    x(46) = 93.0146627285585474053033990371E+00;
    x(47) = 97.8891841475781400433867276771E+00;
    x(48) = 102.969556907413816507839527468E+00;
    x(49) = 108.269881619615953922263509672E+00;
    x(50) = 113.806473502874627389344859559E+00;
    x(51) = 119.598395388304586669624529633E+00;
    x(52) = 125.668172558561194312911963033E+00;
    x(53) = 132.042772720911657465855905830E+00;
    x(54) = 138.754984181037890781675905675E+00;
    x(55) = 145.845413183135403582839942484E+00;
    x(56) = 153.365484594978636237108159627E+00;
    x(57) = 161.382151948137612435621726696E+00;
    x(58) = 169.985706006658394387951753012E+00;
    x(59) = 179.303662474015809102518278585E+00;
    x(60) = 189.527895965324754736687213330E+00;
    x(61) = 200.975211599246567416286718410E+00;
    x(62) = 214.253685366387886426980562964E+00;
    x(63) = 230.934657470897039712465629851E+00;

    w(1) = 0.0571186332138689798115872833905E+00;
    w(2) = 0.120674760906403952833199320363E+00;
    w(3) = 0.159250010965818737238705610965E+00;
    w(4) = 0.168751783275607992345961929636E+00;
    w(5) = 0.153666419776689566961937113101E+00;
    w(6) = 0.123687706147164816410866522619E+00;
    w(7) = 0.0892750988548486715452791500574E+00;
    w(8) = 0.0582584854461059449575718257252E+00;
    w(9) = 0.0345466575459925808747170858125E+00;
    w(10) = 0.0186756859857146567982865525912E+00;
    w(11) = 0.00922334490440935365284900752416E+00;
    w(12) = 0.00416712506848395927625826634702E+00;
    w(13) = 0.0017238120299900582715386728542E+00;
    w(14) = 0.00065320845029716311169340559359E+00;
    w(15) = 0.000226776446709095869524051732075E+00;
    w(16) = 0.0000721276741548106684107502702349E+00;
    w(17) = 0.0000210112611804664845988115368512E+00;
    w(18) = 5.60355008933572127491815360713E-06;
    w(19) = 1.3673642785604888017836641282E-06;
    w(20) = 3.050726393019581724073609719E-07;
    w(21) = 6.21800618393097635599817754E-08;
    w(22) = 1.1566529551931711260022449E-08;
    w(23) = 1.9614588267565478081534782E-09;
    w(24) = 3.028617119570941124433476E-10;
    w(25) = 4.252134453940068676901296E-11;
    w(26) = 5.42022205780738193346988E-12;
    w(27) = 6.2627306838597672554167E-13;
    w(28) = 6.5474443156573322992307E-14;
    w(29) = 6.18155758087291818463E-15;
    w(30) = 5.259272136350738140426E-16;
    w(31) = 4.023092009264648401539E-17;
    w(32) = 2.7600740511819536505E-18;
    w(33) = 1.69369467569682960533E-19;
    w(34) = 9.2689146872177087315E-21;
    w(35) = 4.509373906036563294E-22;
    w(36) = 1.9435162876132376574E-23;
    w(37) = 7.392627089516920704E-25;
    w(38) = 2.471436415443463262E-26;
    w(39) = 7.228864944674159766E-28;
    w(40) = 1.840761729261403936E-29;
    w(41) = 4.058349856684196011E-31;
    w(42) = 7.70004964164383681E-33;
    w(43) = 1.248850576499933433E-34;
    w(44) = 1.71850002267670107E-36;
    w(45) = 1.989637263667239694E-38;
    w(46) = 1.919967137880405827E-40;
    w(47) = 1.527858828552216692E-42;
    w(48) = 9.9054752688842143E-45;
    w(49) = 5.159752367302921188E-47;
    w(50) = 2.124984666408411125E-49;
    w(51) = 6.790385276685291059E-52;
    w(52) = 1.6466654148296177468E-54;
    w(53) = 2.9509065402691055027E-57;
    w(54) = 3.78384206475710519849E-60;
    w(55) = 3.33581300685424318782E-63;
    w(56) = 1.922346102227388098136E-66;
    w(57) = 6.781269696108301687278E-70;
    w(58) = 1.34047528024406046076205E-73;
    w(59) = 1.3109745101805029757648E-77;
    w(60) = 5.262486388140178738869458E-82;
    w(61) = 6.3780013856587414257760666E-87;
    w(62) = 1.299707894237292456634747392E-92;
    w(63) = 1.00085114969687540634437401684E-99;
 ;
  elseif ( n == 64 )

    x(1) = 0.0224158741467052800228118848190E+00;
    x(2) = 0.118122512096770479797466436710E+00;
    x(3) = 0.290365744018036483999130066385E+00;
    x(4) = 0.539286221227979039318144947812E+00;
    x(5) = 0.865037004648113944619955074710E+00;
    x(6) = 1.26781404077524139811570887769E+00;
    x(7) = 1.74785962605943625282996395129E+00;
    x(8) = 2.30546373930750871854807054389E+00;
    x(9) = 2.94096515672525184067946815211E+00;
    x(10) = 3.65475265020729052703539791209E+00;
    x(11) = 4.44726634331309435674255098016E+00;
    x(12) = 5.31899925449639034352210985919E+00;
    x(13) = 6.27049904692365391291106464633E+00;
    x(14) = 7.30237000258739574722349840952E+00;
    x(15) = 8.41527523948302419449521859120E+00;
    x(16) = 9.60993919279610803576288204955E+00;
    x(17) = 10.8871503838863721425945504202E+00;
    x(18) = 12.2477645042443016181623692907E+00;
    x(19) = 13.6927078455475051527299325746E+00;
    x(20) = 15.2229811115247288480082687834E+00;
    x(21) = 16.8396636526487372105288380392E+00;
    x(22) = 18.5439181708591905236196259711E+00;
    x(23) = 20.3369959487302355011498158064E+00;
    x(24) = 22.2202426659508765399221543471E+00;
    x(25) = 24.1951048759332539898864438802E+00;
    x(26) = 26.2631372271184857851260239548E+00;
    x(27) = 28.4260105275010272994997715268E+00;
    x(28) = 30.6855207675259717710485823984E+00;
    x(29) = 33.0435992364378291255202106805E+00;
    x(30) = 35.5023238911412095869787785351E+00;
    x(31) = 38.0639321656464682603573179150E+00;
    x(32) = 40.7308354444586263657318695132E+00;
    x(33) = 43.5056354664215298527031849317E+00;
    x(34) = 46.3911429786161920736053999424E+00;
    x(35) = 49.3903990256246866792358008227E+00;
    x(36) = 52.5066993413463016501792769805E+00;
    x(37) = 55.7436224132783804633357112912E+00;
    x(38) = 59.1050619190171066088487420918E+00;
    x(39) = 62.5952644001513955960550179012E+00;
    x(40) = 66.2188732512475643822137626710E+00;
    x(41) = 69.9809803771468292285346579722E+00;
    x(42) = 73.8871872324829632109574031135E+00;
    x(43) = 77.9436774344631203136879758706E+00;
    x(44) = 82.1573037783193042951958683422E+00;
    x(45) = 86.5356933494565182102162783753E+00;
    x(46) = 91.0873756131330901456367153493E+00;
    x(47) = 95.8219400155207320947672154365E+00;
    x(48) = 100.750231969513979629259261451E+00;
    x(49) = 105.884599468799949356360427851E+00;
    x(50) = 111.239207524439582063484736638E+00;
    x(51) = 116.830445051306498463386669077E+00;
    x(52) = 122.677460268538576577419690565E+00;
    x(53) = 128.802878769237672512753623054E+00;
    x(54) = 135.233787949525827833980498879E+00;
    x(55) = 142.003121489931519025140038291E+00;
    x(56) = 149.151665900049388587293462932E+00;
    x(57) = 156.731075132671161233616960814E+00;
    x(58) = 164.808602655150522993190109025E+00;
    x(59) = 173.474946836424274522152844867E+00;
    x(60) = 182.858204691431463646342794510E+00;
    x(61) = 193.151136037072911479385527417E+00;
    x(62) = 204.672028485059455949064433343E+00;
    x(63) = 218.031851935328516332452384448E+00;
    x(64) = 234.809579171326164713055529725E+00;

    w(1) = 0.0562528423390298457410218545063E+00;
    w(2) = 0.119023987312426027814903505889E+00;
    w(3) = 0.157496403862144523820196434706E+00;
    w(4) = 0.167547050415773947880904411659E+00;
    w(5) = 0.153352855779236618085454792564E+00;
    w(6) = 0.124221053609329744512613782193E+00;
    w(7) = 0.0903423009864850577389741092016E+00;
    w(8) = 0.0594777557683550242122469974397E+00;
    w(9) = 0.0356275189040360718541657353369E+00;
    w(10) = 0.0194804104311664060433373802715E+00;
    w(11) = 0.00974359489938200224010796027138E+00;
    w(12) = 0.00446431036416627529236482419054E+00;
    w(13) = 0.00187535958132311482675012822252E+00;
    w(14) = 0.000722646981575005122719108706619E+00;
    w(15) = 0.00025548753283349670971444840218E+00;
    w(16) = 0.0000828714353439694217906322403988E+00;
    w(17) = 0.0000246568639678855874597337022172E+00;
    w(18) = 6.7267138788296685276125455363E-06;
    w(19) = 1.6817853699640888978212010865E-06;
    w(20) = 3.850812981546684414827886111E-07;
    w(21) = 8.06872804099049979041511092E-08;
    w(22) = 1.54572370675768882800370393E-08;
    w(23) = 2.7044801476174814099886074E-09;
    w(24) = 4.316775475427200912314164E-10;
    w(25) = 6.27775254176145220165296E-11;
    w(26) = 8.30631737628895806387893E-12;
    w(27) = 9.9840317872201640558973E-13;
    w(28) = 1.0883538871166626853261E-13;
    w(29) = 1.0740174034415901864828E-14;
    w(30) = 9.57573723157444210559E-16;
    w(31) = 7.69702802364858609886E-17;
    w(32) = 5.56488113745402536653E-18;
    w(33) = 3.6097564090104464983E-19;
    w(34) = 2.0950953695489462348E-20;
    w(35) = 1.0847933010975493612E-21;
    w(36) = 4.994699486363804116E-23;
    w(37) = 2.037836974598822311E-24;
    w(38) = 7.339537564278837039E-26;
    w(39) = 2.323783082198694261E-27;
    w(40) = 6.43823470690876242E-29;
    w(41) = 1.553121095788275271E-30;
    w(42) = 3.24425009201953731E-32;
    w(43) = 5.8323862678362015E-34;
    w(44) = 8.96325483310285406E-36;
    w(45) = 1.168703989550736241E-37;
    w(46) = 1.282055984359980381E-39;
    w(47) = 1.172094937405002292E-41;
    w(48) = 8.83533967232860498E-44;
    w(49) = 5.42495559030618659E-46;
    w(50) = 2.675542666678893829E-48;
    w(51) = 1.042917031411367078E-50;
    w(52) = 3.152902351957772624E-53;
    w(53) = 7.22954191064752234E-56;
    w(54) = 1.2242353012300822645E-58;
    w(55) = 1.48216850490191041178E-61;
    w(56) = 1.23251934881451880806E-64;
    w(57) = 6.69149900457126952681E-68;
    w(58) = 2.220465941850448995507E-71;
    w(59) = 4.1209460947388762499791E-75;
    w(60) = 3.77439906189648917041762E-79;
    w(61) = 1.414115052917619417463147E-83;
    w(62) = 1.5918330640413679178610318E-88;
    w(63) = 2.98948434886063430774131269E-94;
    w(64) = 2.0890635084369527708281542544E-101;

  elseif ( n == 65 )

    x(1) = 0.0220736343882500875264595737093E+00;
    x(2) = 0.116318612213376151729622328698E+00;
    x(3) = 0.285929513070813951834551909860E+00;
    x(4) = 0.531041775784488438911664842933E+00;
    x(5) = 0.851801670809046586655299989571E+00;
    x(6) = 1.24839628201831707727195703687E+00;
    x(7) = 1.72105687981755734816623923359E+00;
    x(8) = 2.27006018491690256109784837001E+00;
    x(9) = 2.89572940756799471192249006458E+00;
    x(10) = 3.59843535756478540694788870796E+00;
    x(11) = 4.37859769744118464804519621154E+00;
    x(12) = 5.23668636694320050319815958793E+00;
    x(13) = 6.17322319658730631921440545744E+00;
    x(14) = 7.18878372629467202131889616235E+00;
    x(15) = 8.28399924588871831467573911308E+00;
    x(16) = 9.45955907610065448076092041454E+00;
    x(17) = 10.7162131111897048393914349801E+00;
    x(18) = 12.0547746472322707150580323735E+00;
    x(19) = 13.4761235235671154056092903386E+00;
    x(20) = 14.9812096088541520753799758172E+00;
    x(21) = 16.5710566677964491577962746244E+00;
    x(22) = 18.2467666498987672118974219097E+00;
    x(23) = 20.0095244478287060731090711532E+00;
    x(24) = 21.8606031801774165914390699117E+00;
    x(25) = 23.8013700618933285635853631176E+00;
    x(26) = 25.8332929356397220962712840077E+00;
    x(27) = 27.9579475491204073878989540109E+00;
    x(28) = 30.1770256774182582795717815112E+00;
    x(29) = 32.4923442060863420003362903722E+00;
    x(30) = 34.9058553107319841822666865568E+00;
    x(31) = 37.4196578929107315489849223258E+00;
    x(32) = 40.0360104612770088389674875188E+00;
    x(33) = 42.7573456823686148915804841094E+00;
    x(34) = 45.5862868687358177811114530444E+00;
    x(35) = 48.5256667254367437021219033875E+00;
    x(36) = 51.5785487419130140104165726852E+00;
    x(37) = 54.7482516984863756567192528045E+00;
    x(38) = 58.0383778598867354584946224426E+00;
    x(39) = 61.4528455586293273580430507845E+00;
    x(40) = 64.9959270371996369214889214525E+00;
    x(41) = 68.6722926314626183977917033408E+00;
    x(42) = 72.4870626544527259157609330997E+00;
    x(43) = 76.4458687019847672439750100021E+00;
    x(44) = 80.5549265807842719390299008467E+00;
    x(45) = 84.8211237010524840445780520727E+00;
    x(46) = 89.2521246438779093867045988317E+00;
    x(47) = 93.8564998060605244752886814683E+00;
    x(48) = 98.6438836854008198627513004124E+00;
    x(49) = 103.625171719648548339736534290E+00;
    x(50) = 108.812767977808831403825388295E+00;
    x(51) = 114.220900975902615729136419234E+00;
    x(52) = 119.866032356536657109576887729E+00;
    x(53) = 125.767394661236316522917056970E+00;
    x(54) = 131.947712599442095787498603776E+00;
    x(55) = 138.434191890473005752666966171E+00;
    x(56) = 145.259909991527292147157412636E+00;
    x(57) = 152.465831757831086161761248192E+00;
    x(58) = 160.103837850755827943698932303E+00;
    x(59) = 168.241478626055331550636477652E+00;
    x(60) = 176.969855979856624954098184957E+00;
    x(61) = 186.417642483351089954653964415E+00;
    x(62) = 196.778474440876949259615139650E+00;
    x(63) = 208.372107380940491095442543113E+00;
    x(64) = 221.812376576320945562507410640E+00;
    x(65) = 238.685811594674270102373709659E+00;

    w(1) = 0.0554129011565536469555170462551E+00;
    w(2) = 0.117417396564162014386769936525E+00;
    w(3) = 0.15577793159527363526750345236E+00;
    w(4) = 0.166347955884031811873697185854E+00;
    w(5) = 0.153013207065446887512281359026E+00;
    w(6) = 0.12471061536737329712442529837E+00;
    w(7) = 0.0913671486268474804579363734334E+00;
    w(8) = 0.0606693673532322224974724445698E+00;
    w(9) = 0.0366985078337756899608575633553E+00;
    w(10) = 0.0202884358923229233158787730215E+00;
    w(11) = 0.0102732022687699783894639990081E+00;
    w(12) = 0.00477128781081110626106879095602E+00;
    w(13) = 0.00203437021965744474885076853755E+00;
    w(14) = 0.00079674216708789273511811886929E+00;
    w(15) = 0.000286683812097562728436084278246E+00;
    w(16) = 0.0000947743836779584423250711498309E+00;
    w(17) = 0.0000287808776386491122522878225936E+00;
    w(18) = 8.025921887785674361327140519E-6;
    w(19) = 2.0542534210210521080625753887E-6;
    w(20) = 4.822974163227069271800228998E-7;
    w(21) = 1.037906330975825689484858253E-7;
    w(22) = 2.04556458252437904249066042E-8;
    w(23) = 3.6885834829334325209249956E-9;
    w(24) = 6.07893150020096839531226E-10;
    w(25) = 9.14524981574057744811517E-11;
    w(26) = 1.25427414380884616209197E-11;
    w(27) = 1.56600212784699337922365E-12;
    w(28) = 1.7771074191193507379193E-13;
    w(29) = 1.829851898040443279934E-14;
    w(30) = 1.70645929547049792703E-15;
    w(31) = 1.438412537484673440005E-16;
    w(32) = 1.09354404172789017674E-17;
    w(33) = 7.4805627565827998507E-19;
    w(34) = 4.5927490046001844919E-20;
    w(35) = 2.5237976161210732972E-21;
    w(36) = 1.2376030276622370811E-22;
    w(37) = 5.398129612170324038E-24;
    w(38) = 2.086925656272980914E-25;
    w(39) = 7.12363601216912351E-27;
    w(40) = 2.13797949495352507E-28;
    w(41) = 5.61585996656691837E-30;
    w(42) = 1.2845455347843963E-31;
    w(43) = 2.5444410680246895E-33;
    w(44) = 4.33793017530204526E-35;
    w(45) = 6.3222072485073684E-37;
    w(46) = 7.8174607001716233E-39;
    w(47) = 8.1320382378781478E-41;
    w(48) = 7.0491916339430245E-43;
    w(49) = 5.03749289878460876E-45;
    w(50) = 2.93162035252999008E-47;
    w(51) = 1.370002490040754814E-49;
    w(52) = 5.05827802154356236E-52;
    w(53) = 1.447822639997111427E-54;
    w(54) = 3.141466864703300069E-57;
    w(55) = 5.03056294905086669E-60;
    w(56) = 5.7547901892214244076E-63;
    w(57) = 4.5172924325696051375E-66;
    w(58) = 2.31224468889972999556E-69;
    w(59) = 7.22311071834335770012E-73;
    w(60) = 1.2595483022441380495635E-76;
    w(61) = 1.08123622593537779961256E-80;
    w(62) = 3.78397004144107162756714E-85;
    w(63) = 3.9595563374024690284872814E-90;
    w(64) = 6.85929105947869810086088696E-96;
    w(65) = 4.3543678721167358517710196959E-103;

  elseif ( n == 127 )

    x(1) = 0.0113396352985186116918931696313E+00;
    x(2) = 0.0597497534357266202813482370574E+00;
    x(3) = 0.146850986907461676123882236874E+00;
    x(4) = 0.272675907358595531313780082789E+00;
    x(5) = 0.437246006441926655545770358699E+00;
    x(6) = 0.640586882225669295335764164000E+00;
    x(7) = 0.882729686390583644814876536500E+00;
    x(8) = 1.16371141601665376615605847010E+00;
    x(9) = 1.48357501528346138913135848610E+00;
    x(10) = 1.84236943516135653806863208099E+00;
    x(11) = 2.24014968395790242445133156565E+00;
    x(12) = 2.67697687801413036921678699612E+00;
    x(13) = 3.15291829570828255657715083088E+00;
    x(14) = 3.66804743603047525402263399265E+00;
    x(15) = 4.22244408233018884559778766674E+00;
    x(16) = 4.81619437158705024756655350873E+00;
    x(17) = 5.44939086945594167558621789084E+00;
    x(18) = 6.12213265129972541939445847632E+00;
    x(19) = 6.83452538941226681122379949733E+00;
    x(20) = 7.58668144663674721742059868368E+00;
    x(21) = 8.37871997659327252548421206595E+00;
    x(22) = 9.21076703074265587779225061024E+00;
    x(23) = 10.0829556725286438091664393536E+00;
    x(24) = 10.9954260988581254298031473588E+00;
    x(25) = 11.9483257691977259976106051279E+00;
    x(26) = 12.9418095425855310537233810982E+00;
    x(27) = 13.9760398228785065200144056687E+00;
    x(28) = 15.0511867125795236315747963654E+00;
    x(29) = 16.1674281756128529229773950518E+00;
    x(30) = 17.3249502094436734465611637126E+00;
    x(31) = 18.5239470269656885608117113093E+00;
    x(32) = 19.7646212486115041040716693869E+00;
    x(33) = 21.0471841051731836068770440201E+00;
    x(34) = 22.3718556518555428176481239181E+00;
    x(35) = 23.7388649941224971836523137887E+00;
    x(36) = 25.1484505259373682340772783856E+00;
    x(37) = 26.6008601810417496072533842798E+00;
    x(38) = 28.0963516979646192017539612921E+00;
    x(39) = 29.6351928995041789106102271386E+00;
    x(40) = 31.2176619874797591442144671526E+00;
    x(41) = 32.8440478536104304605229513413E+00;
    x(42) = 34.5146504074411491491056359474E+00;
    x(43) = 36.2297809223068040196153885089E+00;
    x(44) = 37.9897624003999564359687801403E+00;
    x(45) = 39.7949299580899617783964371417E+00;
    x(46) = 41.6456312327301807051539908975E+00;
    x(47) = 43.5422268122868595499508929938E+00;
    x(48) = 45.4850906892287911379961513367E+00;
    x(49) = 47.4746107402319647194687665991E+00;
    x(50) = 49.5111892333790877167288845844E+00;
    x(51) = 51.5952433646712444431827712669E+00;
    x(52) = 53.7272058258193167582881400691E+00;
    x(53) = 55.9075254054475533058306059917E+00;
    x(54) = 58.1366676260224391970775260257E+00;
    x(55) = 60.4151154190185902957071920538E+00;
    x(56) = 62.7433698410518097002071267427E+00;
    x(57) = 65.1219508339499963119560254171E+00;
    x(58) = 67.5513980319978863144118724431E+00;
    x(59) = 70.0322716198845845112298711920E+00;
    x(60) = 72.5651532452068490908886694168E+00;
    x(61) = 75.1506469897399352993543623251E+00;
    x(62) = 77.7893804040858160006474054621E+00;
    x(63) = 80.4820056107507292058039629268E+00;
    x(64) = 83.2292004811959148867961200190E+00;
    x(65) = 86.0316698929535829667982387326E+00;
    x(66) = 88.8901470735120510996525185443E+00;
    x(67) = 91.8053950383581779949712501705E+00;
    x(68) = 94.7782081313315832053870310348E+00;
    x(69) = 97.8094136763051164110541101154E+00;
    x(70) = 100.899873750172859403719397622E+00;
    x(71) = 104.050487088215989347040768450E+00;
    x(72) = 107.262191134146004284231164014E+00;
    x(73) = 110.535964248515005306027713513E+00;
    x(74) = 113.872828090758394853483761877E+00;
    x(75) = 117.273850191925177740954778864E+00;
    x(76) = 120.740146737188801061739780027E+00;
    x(77) = 124.272885579556983542595064469E+00;
    x(78) = 127.873289508859426450938417454E+00;
    x(79) = 131.542639803143669218093777421E+00;
    x(80) = 135.282280093118369701327381064E+00;
    x(81) = 139.093620574329700139644220870E+00;
    x(82) = 142.978142606436017768082277536E+00;
    x(83) = 146.937403744373665494410809691E+00;
    x(84) = 150.973043252521871274925114375E+00;
    x(85) = 155.086788160346125722296414206E+00;
    x(86) = 159.280459926632882354019569899E+00;
    x(87) = 163.555981789575711040159671821E+00;
    x(88) = 167.915386891943601342455471847E+00;
    x(89) = 172.360827284738125368381561917E+00;
    x(90) = 176.894583929601921763116749935E+00;
    x(91) = 181.519077840368130692275288340E+00;
    x(92) = 186.236882528281123738612025304E+00;
    x(93) = 191.050737944509291967908366108E+00;
    x(94) = 195.963566148798798378390025430E+00;
    x(95) = 200.978488976000251536964755261E+00;
    x(96) = 206.098848024688711121272830428E+00;
    x(97) = 211.328227356716552605723772570E+00;
    x(98) = 216.670479376582303234770894658E+00;
    x(99) = 222.129754459296872462673049638E+00;
    x(100) = 227.710535020722324190891324313E+00;
    x(101) = 233.417674882826024533677753226E+00;
    x(102) = 239.256444988303086200187496671E+00;
    x(103) = 245.232586778715671725312540190E+00;
    x(104) = 251.352374887181280300055009918E+00;
    x(105) = 257.622691237920614130761918823E+00;
    x(106) = 264.051113229082405517543772418E+00;
    x(107) = 270.646019457227967492991117186E+00;
    x(108) = 277.416717501636510717983882181E+00;
    x(109) = 284.373599742208703266744028731E+00;
    x(110) = 291.528335213464957195812820216E+00;
    x(111) = 298.894108370282486008788956154E+00;
    x(112) = 306.485919782626113204181124239E+00;
    x(113) = 314.320969864711774874000075076E+00;
    x(114) = 322.419155891286796833494403613E+00;
    x(115) = 330.803726638024056519338473349E+00;
    x(116) = 339.502161278324337477353675960E+00;
    x(117) = 348.547375594726973554807617874E+00;
    x(118) = 357.979420280298454540490074431E+00;
    x(119) = 367.847945200760045788583414229E+00;
    x(120) = 378.215906231355328183329791889E+00;
    x(121) = 389.165391412510041015794753252E+00;
    x(122) = 400.807293314517025899963612864E+00;
    x(123) = 413.298536817793844180082600819E+00;
    x(124) = 426.875791536636755382885090171E+00;
    x(125) = 441.930854853108414124603092718E+00;
    x(126) = 459.218046398884299819712673132E+00;
    x(127) = 480.693782633883738597042692293E+00;

    w(1) = 0.0287732466920001243557700103008E+00;
    w(2) = 0.0638174681751346493634809492651E+00;
    w(3) = 0.0919196697215705713898641946531E+00;
    w(4) = 0.11054167914413766381245463003E+00;
    w(5) = 0.118797716333758501883283294227E+00;
    w(6) = 0.117378185300526951488044516301E+00;
    w(7) = 0.108193059841805514883351455812E+00;
    w(8) = 0.0938270752904896280803772614011E+00;
    w(9) = 0.0769664509605888439958224859284E+00;
    w(10) = 0.0599349039129397143325707300635E+00;
    w(11) = 0.0444177420738890013717083162729E+00;
    w(12) = 0.0313850809662523209830093722151E+00;
    w(13) = 0.021172316041924506411370709025E+00;
    w(14) = 0.0136501453642305416521711855646E+00;
    w(15) = 0.00841728527105991722793666573854E+00;
    w(16) = 0.00496749900598827605159128586202E+00;
    w(17) = 0.00280699038950018846319619574464E+00;
    w(18) = 0.00151929510039419524604453410578E+00;
    w(19) = 0.000787890287517960840862172871405E+00;
    w(20) = 0.00039156751064868450584507324649E+00;
    w(21) = 0.000186524342688258605500935662601E+00;
    w(22) = 0.0000851731604155766219088098281602E+00;
    w(23) = 0.0000372856391978530377121453215777E+00;
    w(24) = 0.0000156484167917129939474478052968E+00;
    w(25) = 6.2964340695224829035692735525E-06;
    w(26) = 2.42889297113287245745413799382E-06;
    w(27) = 8.9824607890051007201922871545E-07;
    w(28) = 3.18441747407603537107429663281E-07;
    w(29) = 1.08212729055668392118618075427E-07;
    w(30) = 3.52450767506355360159027790853E-08;
    w(31) = 1.10012243657193474070638397617E-08;
    w(32) = 3.29040796167179321253293430033E-09;
    w(33) = 9.4289145237889976419772700773E-10;
    w(34) = 2.58825789046683181840501953093E-10;
    w(35) = 6.80474371033707626309422590176E-11;
    w(36) = 1.71313988051208378353995644756E-11;
    w(37) = 4.12917445240528654694439223049E-12;
    w(38) = 9.52641897188072732207076648735E-13;
    w(39) = 2.10326044324424259329629420475E-13;
    w(40) = 4.44271519387293528609404342858E-14;
    w(41) = 8.97605003628337033233198464055E-15;
    w(42) = 1.73415114077692870746279483468E-15;
    w(43) = 3.20280995489883566314943798352E-16;
    w(44) = 5.65313889507936820226607420952E-17;
    w(45) = 9.53296727990265912345880440259E-18;
    w(46) = 1.53534534773101425652885094376E-18;
    w(47) = 2.36089621794673656860578421322E-19;
    w(48) = 3.46487427944566113321938766532E-20;
    w(49) = 4.85152418970864613201269576635E-21;
    w(50) = 6.47862286335198134281373737907E-22;
    w(51) = 8.2476020965403242936448553126E-23;
    w(52) = 1.0005361880214719793491658283E-23;
    w(53) = 1.1561395116207304954233181264E-24;
    w(54) = 1.271934273116792265561213426E-25;
    w(55) = 1.331658471416537296734000416E-26;
    w(56) = 1.32612184546789440336461085E-27;
    w(57) = 1.25549954476439498072860741E-28;
    w(58) = 1.1294412178579462703240913E-29;
    w(59) = 9.649102027956211922850061E-31;
    w(60) = 7.82418467683020993967331E-32;
    w(61) = 6.01815035422196266582499E-33;
    w(62) = 4.38824827049617415515105E-34;
    w(63) = 3.0314137647517256304036E-35;
    w(64) = 1.9826016543944539545225E-36;
    w(65) = 1.2267623373665926559014E-37;
    w(66) = 7.176393169250888894381E-39;
    w(67) = 3.965937883383696358411E-40;
    w(68) = 2.068897055386804009958E-41;
    w(69) = 1.017958701797951724527E-42;
    w(70) = 4.72008277459863746257E-44;
    w(71) = 2.06068289855533748257E-45;
    w(72) = 8.4627575907305987246E-47;
    w(73) = 3.2661123687088798658E-48;
    w(74) = 1.1833939207883162381E-49;
    w(75) = 4.021120912389501381E-51;
    w(76) = 1.2799824394111125389E-52;
    w(77) = 3.81238777475488465E-54;
    w(78) = 1.061205754270115677E-55;
    w(79) = 2.757144694720040359E-57;
    w(80) = 6.67725442409284929E-59;
    w(81) = 1.505243838386823495E-60;
    w(82) = 3.15389868001137585E-62;
    w(83) = 6.13266142994831808E-64;
    w(84) = 1.10485100303248106E-65;
    w(85) = 1.84105635380913481E-67;
    w(86) = 2.83239265700528322E-69;
    w(87) = 4.01544098437636555E-71;
    w(88) = 5.23515302156837088E-73;
    w(89) = 6.2634476665005101E-75;
    w(90) = 6.861221053566653E-77;
    w(91) = 6.8651298840956019E-79;
    w(92) = 6.25813884337280849E-81;
    w(93) = 5.1833271237514904E-83;
    w(94) = 3.88936215719184435E-85;
    w(95) = 2.63577113794769328E-87;
    w(96) = 1.60788512939179797E-89;
    w(97) = 8.79780420709689396E-92;
    w(98) = 4.30134050774951099E-94;
    w(99) = 1.871343588134283853E-96;
    w(100) = 7.212574470806047168E-99;
    w(101) = 2.450874606217787438E-101;
    w(102) = 7.304209461947087578E-104;
    w(103) = 1.8983290818383463538E-106;
    w(104) = 4.2757400244246684123E-109;
    w(105) = 8.2894681420515755691E-112;
    w(106) = 1.37294322193244000131E-114;
    w(107) = 1.926546412640497322204E-117;
    w(108) = 2.269334450330135482614E-120;
    w(109) = 2.2209290603717355061909E-123;
    w(110) = 1.7851087685544512662857E-126;
    w(111) = 1.16309319903871644674312E-129;
    w(112) = 6.05244435846523922909528E-133;
    w(113) = 2.472956911506352864762838E-136;
    w(114) = 7.778906500648941036499721E-140;
    w(115) = 1.8409738662712607039570678E-143;
    w(116) = 3.1900921131079114970179072E-147;
    w(117) = 3.917948713917419973761766608E-151;
    w(118) = 3.2782158394188697053774429821E-155;
    w(119) = 1.77935907131388880628196401287E-159;
    w(120) = 5.88823534089326231574678353812E-164;
    w(121) = 1.09572365090711698777472032739E-168;
    w(122) = 1.02816211148670008982850769758E-173;
    w(123) = 4.1704725557697758145816510854E-179;
    w(124) = 5.8002877720316101774638319602E-185;
    w(125) = 1.88735077458255171061716191011E-191;
    w(126) = 6.91066018267309116827867059509E-199;
    w(127) = 4.35068132011058556283833133344E-208;

  elseif ( n == 128 )

    x(1) = 0.0112513882636759629608518403162E+00;
    x(2) = 0.0592847412690264542879220089614E+00;
    x(3) = 0.145707966594312465141854059102E+00;
    x(4) = 0.270553178758665066190760897100E+00;
    x(5) = 0.433841407553836803056096580754E+00;
    x(6) = 0.635597665781621938340867677969E+00;
    x(7) = 0.875852384546520779155346013261E+00;
    x(8) = 1.15464170197439795008153355708E+00;
    x(9) = 1.47200756316673547554446633038E+00;
    x(10) = 1.82799777831235028535984528718E+00;
    x(11) = 2.22266607156190244817896452914E+00;
    x(12) = 2.65607212988348119522885329309E+00;
    x(13) = 3.12828165502791695498310369738E+00;
    x(14) = 3.63936641985240321221074522169E+00;
    x(15) = 4.18940432959404797478493079865E+00;
    x(16) = 4.77847948843487609165724239213E+00;
    x(17) = 5.40668227160049918527893820105E+00;
    x(18) = 6.07410940319653684309155844506E+00;
    x(19) = 6.78086403997562541104804929943E+00;
    x(20) = 7.52705586122937588585512279842E+00;
    x(21) = 8.31280116500777060337884381191E+00;
    x(22) = 9.13822297088039239600262641969E+00;
    x(23) = 10.0034511294682220892682761435E+00;
    x(24) = 10.9086224389908825478488613010E+00;
    x(25) = 11.8538807690918568038332644538E+00;
    x(26) = 12.8393771922232496874551935673E+00;
    x(27) = 13.8652701228920803029536799971E+00;
    x(28) = 14.9317254650919274737473553133E+00;
    x(29) = 16.0389167682670793509213783428E+00;
    x(30) = 17.1870253921812651027585044591E+00;
    x(31) = 18.3762406810896949333827523370E+00;
    x(32) = 19.6067601476416467279054690989E+00;
    x(33) = 20.8787896669713729158932014403E+00;
    x(34) = 22.1925436814678369066763923182E+00;
    x(35) = 23.5482454167489205609249730097E+00;
    x(36) = 24.9461271094034886279510396640E+00;
    x(37) = 26.3864302471052908976269305132E+00;
    x(38) = 27.8694058217463902295696818564E+00;
    x(39) = 29.3953145962849137215656288381E+00;
    x(40) = 30.9644273860527540023220861317E+00;
    x(41) = 32.5770253553237501781419486456E+00;
    x(42) = 34.2334003300022426604794108753E+00;
    x(43) = 35.9338551273561538107722924963E+00;
    x(44) = 37.6787039037883744300655582016E+00;
    x(45) = 39.4682725217157641271489033004E+00;
    x(46) = 41.3028989367070896380080417637E+00;
    x(47) = 43.1829336061203832438783635225E+00;
    x(48) = 45.1087399205772317441506148507E+00;
    x(49) = 47.0806946597172168560725351128E+00;
    x(50) = 49.0991884737910268021535852860E+00;
    x(51) = 51.1646263927766594446404335916E+00;
    x(52) = 53.2774283648407739161085367944E+00;
    x(53) = 55.4380298261178918683089638291E+00;
    x(54) = 57.6468823039452288144249811220E+00;
    x(55) = 59.9044540558720556965292635062E+00;
    x(56) = 62.2112307469614582456791552962E+00;
    x(57) = 64.5677161681212154290410515467E+00;
    x(58) = 66.9744329984415610548027156195E+00;
    x(59) = 69.4319236147834299557621097742E+00;
    x(60) = 71.9407509521543751573018481062E+00;
    x(61) = 74.5014994187340277930279831855E+00;
    x(62) = 77.1147758697705705283198924354E+00;
    x(63) = 79.7812106449685528544582124991E+00;
    x(64) = 82.5014586744314529140391768845E+00;
    x(65) = 85.2762006587153587377964042582E+00;
    x(66) = 88.1061443290995036940317393258E+00;
    x(67) = 90.9920257947926131560303030245E+00;
    x(68) = 93.9346109844796944955244642925E+00;
    x(69) = 96.9346971903819404516199551240E+00;
    x(70) = 99.9931147238642715216213000267E+00;
    x(71) = 103.110728692593987392319749158E+00;
    x(72) = 106.288440910345442668426129659E+00;
    x(73) = 109.527191951777550806618056918E+00;
    x(74) = 112.827963365904193877333487264E+00;
    x(75) = 116.191780063556780940235871708E+00;
    x(76) = 119.619712895932010462348887420E+00;
    x(77) = 123.112881443360190060911814509E+00;
    x(78) = 126.672457035760183662338694957E+00;
    x(79) = 130.299666028913462587217492864E+00;
    x(80) = 133.995793363747964343582120836E+00;
    x(81) = 137.762186439339380964302666578E+00;
    x(82) = 141.600259334393040305789642722E+00;
    x(83) = 145.511497416659592393640597008E+00;
    x(84) = 149.497462385177707088173175451E+00;
    x(85) = 153.559797796566440117982748261E+00;
    x(86) = 157.700235133978105059095336546E+00;
    x(87) = 161.920600485975634163753629031E+00;
    x(88) = 166.222821912768875092875739160E+00;
    x(89) = 170.608937589242234646550663310E+00;
    x(90) = 175.081104828414604880617405502E+00;
    x(91) = 179.641610105866994602634964639E+00;
    x(92) = 184.292880225846805341834505020E+00;
    x(93) = 189.037494793954109001292998345E+00;
    x(94) = 193.878200190472967540802875940E+00;
    x(95) = 198.817925273720602804745944994E+00;
    x(96) = 203.859799085769844571664824897E+00;
    x(97) = 209.007170885510867853387511181E+00;
    x(98) = 214.263632898788021280527758492E+00;
    x(99) = 219.633046255578174038387401024E+00;
    x(100) = 225.119570684209027756659796566E+00;
    x(101) = 230.727698658203619681658868680E+00;
    x(102) = 236.462294850177665966018904158E+00;
    x(103) = 242.328641949702698267864519866E+00;
    x(104) = 248.332494162357178892016601780E+00;
    x(105) = 254.480140044869131893543803358E+00;
    x(106) = 260.778476773579736538560064538E+00;
    x(107) = 267.235098528953836763992472029E+00;
    x(108) = 273.858402462693609793414602648E+00;
    x(109) = 280.657716776323492397504100977E+00;
    x(110) = 287.643456899219330638473677900E+00;
    x(111) = 294.827317787647739179806672104E+00;
    x(112) = 302.222513246449465380535981711E+00;
    x(113) = 309.844077326612663447772363643E+00;
    x(114) = 317.709248954906289495678052340E+00;
    x(115) = 325.837970121194949650401277931E+00;
    x(116) = 334.253542067654135375184450174E+00;
    x(117) = 342.983506273825316408508913329E+00;
    x(118) = 352.060853546526185083043426984E+00;
    x(119) = 361.525726392325047599066851839E+00;
    x(120) = 371.427889214327523078517984867E+00;
    x(121) = 381.830444119061080196207616882E+00;
    x(122) = 392.815671240808098809377819898E+00;
    x(123) = 404.494724750515074389666071660E+00;
    x(124) = 417.024902977989015820197277594E+00;
    x(125) = 430.643444166597381558323551668E+00;
    x(126) = 445.743096973927989652171720726E+00;
    x(127) = 463.080034109446258208013793406E+00;
    x(128) = 484.615543986443976044063131110E+00;

    w(1) = 0.0285518444532397286290731773612E+00;
    w(2) = 0.0633502117845051187797978127259E+00;
    w(3) = 0.0913083813661343144231616325903E+00;
    w(4) = 0.109913900410911746101013915833E+00;
    w(5) = 0.118274171034173698789809688874E+00;
    w(6) = 0.117045739000406721566458439207E+00;
    w(7) = 0.108089987545568415436473783125E+00;
    w(8) = 0.0939428886389285017878088436356E+00;
    w(9) = 0.0772536687978980532077800252359E+00;
    w(10) = 0.0603270562656615705389303086003E+00;
    w(11) = 0.0448473482471952140682424657998E+00;
    w(12) = 0.0317969479368768461739632484821E+00;
    w(13) = 0.0215301494537944439261107285438E+00;
    w(14) = 0.0139369517338463483277576885975E+00;
    w(15) = 0.00863158538020224714884473096489E+00;
    w(16) = 0.00511777701366922852873936722845E+00;
    w(17) = 0.00290634743648595585817980077219E+00;
    w(18) = 0.00158143294331667939723416013489E+00;
    w(19) = 0.000824738985098812150435438593253E+00;
    w(20) = 0.000412326088539694730970290830804E+00;
    w(21) = 0.000197649426442591498620529889783E+00;
    w(22) = 0.0000908515788782451508022826306153E+00;
    w(23) = 0.0000400484927835805298977887660442E+00;
    w(24) = 0.0000169307623980817855755102888475E+00;
    w(25) = 6.86452529111068208938636278412E-06;
    w(26) = 2.66921659814210266015872228584E-06;
    w(27) = 9.95364010286384477177483332196E-07;
    w(28) = 3.55943575300306543988020166563E-07;
    w(29) = 1.22053255194881194831205615734E-07;
    w(30) = 4.01279192093563506890167766024E-08;
    w(31) = 1.26481141474759786445650110908E-08;
    w(32) = 3.82148972942657229023411372003E-09;
    w(33) = 1.10664105922734169994480044024E-09;
    w(34) = 3.07100923709742319582290034639E-10;
    w(35) = 8.16549938415448956026437885004E-11;
    w(36) = 2.07985363278137784234189612116E-11;
    w(37) = 5.0739537708398704043296986402E-12;
    w(38) = 1.1853143771796112305093733131E-12;
    w(39) = 2.65092752372887358600565488195E-13;
    w(40) = 5.67463221575765876681065606161E-14;
    w(41) = 1.16237381470751589221529434901E-14;
    w(42) = 2.27776629270238637919733104451E-15;
    w(43) = 4.26883197029764927739172104126E-16;
    w(44) = 7.64928879936327510525948457803E-17;
    w(45) = 1.31013139198382464188082886821E-17;
    w(46) = 2.1441452341246636343706788692E-18;
    w(47) = 3.35194428720884780801470729044E-19;
    w(48) = 5.00373308645947376823179365121E-20;
    w(49) = 7.13003064195856212049702464626E-21;
    w(50) = 9.6945407403972664035320905829E-22;
    w(51) = 1.25728475563978459844059927432E-22;
    w(52) = 1.5546610955630634482202731199E-23;
    w(53) = 1.832109793253421778719084254E-24;
    w(54) = 2.056797978136734920722781372E-25;
    w(55) = 2.19866605262329119257657449E-26;
    w(56) = 2.23691600732428936729406222E-27;
    w(57) = 2.1649606446339054400256309E-28;
    w(58) = 1.9922276806187937873877251E-29;
    w(59) = 1.742153886325439585907653E-30;
    w(60) = 1.446949786106284637699605E-31;
    w(61) = 1.1407517061230822834189E-32;
    w(62) = 8.5318050978102090722116E-34;
    w(63) = 6.04970117793885843505E-35;
    w(64) = 4.0643432432648003017795E-36;
    w(65) = 2.585349374987909630703E-37;
    w(66) = 1.556028762522623447585E-38;
    w(67) = 8.85462584966333001103E-40;
    w(68) = 4.76045751736458068032E-41;
    w(69) = 2.416078510661232205E-42;
    w(70) = 1.15664705033873749321E-43;
    w(71) = 5.2185106194923759952E-45;
    w(72) = 2.2169743353361803305E-46;
    w(73) = 8.86010275661369606E-48;
    w(74) = 3.327811159201095553E-49;
    w(75) = 1.173490043078302544E-50;
    w(76) = 3.880967726420921431E-52;
    w(77) = 1.202426327933061418E-53;
    w(78) = 3.48602304410554638E-55;
    w(79) = 9.44554522159556681E-57;
    w(80) = 2.38888427455968395E-58;
    w(81) = 5.63188475075463052E-60;
    w(82) = 1.23592861191216019E-61;
    w(83) = 2.52100420237726743E-63;
    w(84) = 4.7722246219998052E-65;
    w(85) = 8.3700198919995783E-67;
    w(86) = 1.35782434112020985E-68;
    w(87) = 2.03368872715315416E-70;
    w(88) = 2.8068384806953538E-72;
    w(89) = 3.562567607062096E-74;
    w(90) = 4.1494527492937706E-76;
    w(91) = 4.4250079657663219E-78;
    w(92) = 4.3100842612898497E-80;
    w(93) = 3.8246610167617398E-82;
    w(94) = 3.08354784259879275E-84;
    w(95) = 2.25213982217062084E-86;
    w(96) = 1.48551474064504312E-88;
    w(97) = 8.8196354763726564E-91;
    w(98) = 4.69641782212598507E-93;
    w(99) = 2.23439382545477274E-95;
    w(100) = 9.45878703822074032E-98;
    w(101) = 3.546960831240672614E-100;
    w(102) = 1.17253213003488723E-102;
    w(103) = 3.399090555639915548E-105;
    w(104) = 8.591907200623898045E-108;
    w(105) = 1.8818913973535359647E-110;
    w(106) = 3.5473586323062565237E-113;
    w(107) = 5.7114822282836004745E-116;
    w(108) = 7.78947378804446095611E-119;
    w(109) = 8.91589869949126935148E-122;
    w(110) = 8.476856358868403207418E-125;
    w(111) = 6.617326935494900345408E-128;
    w(112) = 4.1862163574157095190077E-131;
    w(113) = 2.11438516898114207120093E-134;
    w(114) = 8.38216350136786953641675E-138;
    w(115) = 2.557202302197677884687798E-141;
    w(116) = 5.8667686421912043720461236E-145;
    w(117) = 9.8498610300648438019885689E-149;
    w(118) = 1.171383943342068942456857274E-152;
    w(119) = 9.483963265567383663821702301E-157;
    w(120) = 4.9770963811238028116653976343E-161;
    w(121) = 1.59089852775099765481980638695E-165;
    w(122) = 2.85630382911900292320607568044E-170;
    w(123) = 2.58225071969148999265031459122E-175;
    w(124) = 1.00735025005079740952983187255E-180;
    w(125) = 1.34425250044381631821772983363E-186;
    w(126) = 4.18296221403683473389726627221E-193;
    w(127) = 1.45716530772618631594481663188E-200;
    w(128) = 8.64059169046870867692891422354E-210;

  elseif ( n == 129 )

    x(1) = 0.0111645041367687260935881187114E+00;
    x(2) = 0.0588269115255121725669144777376E+00;
    x(3) = 0.144582603939087375345544455104E+00;
    x(4) = 0.268463250498790809142537571727E+00;
    x(5) = 0.430489433028069665583513882755E+00;
    x(6) = 0.630685596971157529700818698614E+00;
    x(7) = 0.869081474989540465988995980646E+00;
    x(8) = 1.14571237269034129786358037349E+00;
    x(9) = 1.46061926689785560022252086358E+00;
    x(10) = 1.81384886225287260620048305182E+00;
    x(11) = 2.20545363849013952710373368048E+00;
    x(12) = 2.63549189753739459262727316570E+00;
    x(13) = 3.10402781353627480023526416641E+00;
    x(14) = 3.61113148701933289479734007535E+00;
    x(15) = 4.15687900382495881133416031205E+00;
    x(16) = 4.74135249908325871733484826319E+00;
    x(17) = 5.36464022650680264548807369539E+00;
    x(18) = 6.02683663318167548105631862177E+00;
    x(19) = 6.72804244004243132025609101021E+00;
    x(20) = 7.46836472821534963467632383543E+00;
    x(21) = 8.24791703142169723816558449856E+00;
    x(22) = 9.06681943464370270026626900050E+00;
    x(23) = 9.92519867926931734070041188408E+00;
    x(24) = 10.8231882749469306495297612192E+00;
    x(25) = 11.7609286183977310387181197615E+00;
    x(26) = 12.7385671194512351722694605084E+00;
    x(27) = 13.7562583345886271805335101149E+00;
    x(28) = 14.8141641082989854857712290559E+00;
    x(29) = 15.9124537225752979381236294324E+00;
    x(30) = 17.0513040549004685335351914932E+00;
    x(31) = 18.2308997450984136591429080617E+00;
    x(32) = 19.4514333714519620150207362048E+00;
    x(33) = 20.7131056365177555775299262985E+00;
    x(34) = 22.0161255630988608706489924430E+00;
    x(35) = 23.3607107008685190470514486749E+00;
    x(36) = 24.7470873441735867407744490421E+00;
    x(37) = 26.1754907615839641134296855243E+00;
    x(38) = 27.6461654377949106206644801830E+00;
    x(39) = 29.1593653285328756045576144321E+00;
    x(40) = 30.7153541291626095441732915451E+00;
    x(41) = 32.3144055577441922161871665693E+00;
    x(42) = 33.9568036533435689847296719094E+00;
    x(43) = 35.6428430904596160112634717165E+00;
    x(44) = 37.3728295104950910213327545948E+00;
    x(45) = 39.1470798712685466663878582421E+00;
    x(46) = 40.9659228156399190364649448364E+00;
    x(47) = 42.8296990604046437906422357564E+00;
    x(48) = 44.7387618067004519884778950119E+00;
    x(49) = 46.6934771732681867037686990052E+00;
    x(50) = 48.6942246540138734219622380649E+00;
    x(51) = 50.7413976014347803131042845818E+00;
    x(52) = 52.8354037375983340937979164025E+00;
    x(53) = 54.9766656945006500240481182310E+00;
    x(54) = 57.1656215857823649284158070179E+00;
    x(55) = 59.4027256119448606421881531943E+00;
    x(56) = 61.6884487013914405461822377003E+00;
    x(57) = 64.0232791898173852597210780437E+00;
    x(58) = 66.4077235406921080587914699631E+00;
    x(59) = 68.8423071098181639647332557636E+00;
    x(60) = 71.3275749572182499453797757024E+00;
    x(61) = 73.8640927098955268421782575110E+00;
    x(62) = 76.4524474793379566181613942983E+00;
    x(63) = 79.0932488379977030145472340597E+00;
    x(64) = 81.7871298593763443093790704140E+00;
    x(65) = 84.5347482267906647046323684124E+00;
    x(66) = 87.3367874163878117910865422310E+00;
    x(67) = 90.1939579605291478450570652459E+00;
    x(68) = 93.1069987982766656767050611186E+00;
    x(69) = 96.0766787204029972427806506124E+00;
    x(70) = 99.1037979171157474398207782757E+00;
    x(71) = 102.189189637550616978355114969E+00;
    x(72) = 105.333721971058838012388514189E+00;
    x(73) = 108.538299761408281119757506569E+00;
    x(74) = 111.803866666252185387269569516E+00;
    x(75) = 115.131407375615803792171876281E+00;
    x(76) = 118.521950004733905726449958829E+00;
    x(77) = 121.976568678369858697173472594E+00;
    x(78) = 125.496386325793836628100280130E+00;
    x(79) = 129.082577707933597477650969878E+00;
    x(80) = 132.736372700883616552797038522E+00;
    x(81) = 136.459059863023413416361147154E+00;
    x(82) = 140.251990316520692590651584246E+00;
    x(83) = 144.116581978059547282038191264E+00;
    x(84) = 148.054324178334554730971189024E+00;
    x(85) = 152.066782715303825347545842677E+00;
    x(86) = 156.155605392537787829354492826E+00;
    x(87) = 160.322528101405362530717313062E+00;
    x(88) = 164.569381514511906899139962575E+00;
    x(89) = 168.898098467996847713856358122E+00;
    x(90) = 173.310722122324145053009369479E+00;
    x(91) = 177.809415005439611927392788370E+00;
    x(92) = 182.396469059102149766157602559E+00;
    x(93) = 187.074316829415599837320402996E+00;
    x(94) = 191.845543966839763114071401295E+00;
    x(95) = 196.712903230183761859963922576E+00;
    x(96) = 201.679330224475912387142876872E+00;
    x(97) = 206.747961145685983577272619640E+00;
    x(98) = 211.922152858007833039218477193E+00;
    x(99) = 217.205505694330143211608701365E+00;
    x(100) = 222.601889450939732907762241579E+00;
    x(101) = 228.115473147766504188912042615E+00;
    x(102) = 233.750759251359480867215068547E+00;
    x(103) = 239.512623216994726852324857048E+00;
    x(104) = 245.406359409276117119061170837E+00;
    x(105) = 251.437734721509742305967783880E+00;
    x(106) = 257.613051552607945102309836371E+00;
    x(107) = 263.939222243647173894814944292E+00;
    x(108) = 270.423857663083214051346532320E+00;
    x(109) = 277.075373415313344577287378499E+00;
    x(110) = 283.903118212107869887400929941E+00;
    x(111) = 290.917530409009503510470042900E+00;
    x(112) = 298.130330747241946479391511151E+00;
    x(113) = 305.554762228622700877217556637E+00;
    x(114) = 313.205892212538716296350101328E+00;
    x(115) = 321.100997941634721519100026717E+00;
    x(116) = 329.260065894410473958350680155E+00;
    x(117) = 337.706449515634131989920236326E+00;
    x(118) = 346.467752279350659621376501841E+00;
    x(119) = 355.577039643063413893183224979E+00;
    x(120) = 365.074545471124791778391196263E+00;
    x(121) = 375.010148136708978052975802762E+00;
    x(122) = 385.447095254054417308720464640E+00;
    x(123) = 396.467858100744210106334636127E+00;
    x(124) = 408.183851152492844798297769341E+00;
    x(125) = 420.752744334742187498526476928E+00;
    x(126) = 434.412341688764625555428748148E+00;
    x(127) = 449.556338392256949417199002480E+00;
    x(128) = 466.942750921706688536121321308E+00;
    x(129) = 488.537715007400745716181291102E+00;

    w(1) = 0.0283338232816188129433412493366E+00;
    w(2) = 0.0628897352309939992519628028429E+00;
    w(3) = 0.0907050560197830441591715791845E+00;
    w(4) = 0.109292734964339745013347523543E+00;
    w(5) = 0.117753891824430328742552706746E+00;
    w(6) = 0.116712333575132760088854393741E+00;
    w(7) = 0.1079821092277907522768638822E+00;
    w(8) = 0.0940513886437790878162542877426E+00;
    w(9) = 0.0775328171368385256641246588694E+00;
    w(10) = 0.0607119801995722871258201910352E+00;
    w(11) = 0.0452716214541695196710137988047E+00;
    w(12) = 0.0322057586869443933590250840601E+00;
    w(13) = 0.0218870093879284288723521418152E+00;
    w(14) = 0.0142243242185532561642375502974E+00;
    w(15) = 0.00884734285745239479408590424342E+00;
    w(16) = 0.00526983370954167607842815218011E+00;
    w(17) = 0.00300740619275414763773247784756E+00;
    w(18) = 0.00164498171784021535901621253553E+00;
    w(19) = 0.000862641473273809069700952476134E+00;
    w(20) = 0.000433807488545501081264834235514E+00;
    w(21) = 0.000209234988721404556453070968853E+00;
    w(22) = 0.0000968044053231071525887634259114E+00;
    w(23) = 0.0000429650601010182583779356860953E+00;
    w(24) = 0.0000182943298240488545326843922155E+00;
    w(25) = 7.47320473307839845584026474317E-06;
    w(26) = 2.92876004890558731746712968433E-06;
    w(27) = 1.10111937532188602299646730309E-06;
    w(28) = 3.97133727854894494886436944708E-07;
    w(29) = 1.37391737873739072964678053016E-07;
    w(30) = 4.55898285044463980401770363171E-08;
    w(31) = 1.45082031554226827387170770004E-08;
    w(32) = 4.42736861865778798052557346184E-09;
    w(33) = 1.29540549841465072618582643105E-09;
    w(34) = 3.63353401896969889688016611161E-10;
    w(35) = 9.76889957112077658988662065766E-11;
    w(36) = 2.51697359198850123687093430919E-11;
    w(37) = 6.2136427115425329244941688694E-12;
    w(38) = 1.46947065273427272155102255087E-12;
    w(39) = 3.3283536396381226771786168693E-13;
    w(40) = 7.21860543546415622515782097245E-14;
    w(41) = 1.49874700296546634758941598894E-14;
    w(42) = 2.97813865190408297766537928957E-15;
    w(43) = 5.66223500996744709699260363288E-16;
    w(44) = 1.02976110977345161229212606736E-16;
    w(45) = 1.79087076765055918801501255712E-17;
    w(46) = 2.97741214327584722879794953728E-18;
    w(47) = 4.73066849378813640521244315218E-19;
    w(48) = 7.18076704552391091114386577815E-20;
    w(49) = 1.0409591754013912471892470954E-20;
    w(50) = 1.44063705945958837668569771815E-21;
    w(51) = 1.9027009013059586477368991424E-22;
    w(52) = 2.3972421860336028068385342016E-23;
    w(53) = 2.880065029076382866335001882E-24;
    w(54) = 3.2980570110683255202892323E-25;
    w(55) = 3.59822818119059018987046195E-26;
    w(56) = 3.7384843519427824153681456E-27;
    w(57) = 3.6971969670644497346136084E-28;
    w(58) = 3.478607942989822329014257E-29;
    w(59) = 3.112229078360896126467536E-30;
    w(60) = 2.64630166366922810478446E-31;
    w(61) = 2.13731385180863223984415E-32;
    w(62) = 1.63873356712820982018691E-33;
    w(63) = 1.1920639048111247727415E-34;
    w(64) = 8.221888191494076473793E-36;
    w(65) = 5.373327742595686629791E-37;
    w(66) = 3.325235584661609413228E-38;
    w(67) = 1.94717317556033610096E-39;
    w(68) = 1.07813497736466418105E-40;
    w(69) = 5.6402504582069233692E-42;
    w(70) = 2.785716667292756732E-43;
    w(71) = 1.2978694111929463222E-44;
    w(72) = 5.699117216622829387E-46;
    w(73) = 2.356556045713220169E-47;
    w(74) = 9.167179452095711245E-49;
    w(75) = 3.351643630271094859E-50;
    w(76) = 1.15053967361148792E-51;
    w(77) = 3.70428664291287775E-53;
    w(78) = 1.117334474142203311E-54;
    w(79) = 3.15377989811063792E-56;
    w(80) = 8.319920981942047E-58;
    w(81) = 2.04876111892933112E-59;
    w(82) = 4.7028955186049464E-61;
    w(83) = 1.00491633674668433E-62;
    w(84) = 1.9959187047623038E-64;
    w(85) = 3.6789923736675531E-66;
    w(86) = 6.2831482675040959E-68;
    w(87) = 9.925201342288209E-70;
    w(88) = 1.4475221077412768E-71;
    w(89) = 1.945364935931307E-73;
    w(90) = 2.4042822695448614E-75;
    w(91) = 2.7267496829701407E-77;
    w(92) = 2.8313374255297656E-79;
    w(93) = 2.6851895059223692E-81;
    w(94) = 2.3199549783717045E-83;
    w(95) = 1.821032672647817E-85;
    w(96) = 1.29486019972133753E-87;
    w(97) = 8.3146100960594316E-90;
    w(98) = 4.8053665090563748E-92;
    w(99) = 2.49071240066108676E-94;
    w(100) = 1.15335704284873844E-96;
    w(101) = 4.75169815023478164E-99;
    w(102) = 1.733951399870136754E-101;
    w(103) = 5.57731896834145892E-104;
    w(104) = 1.573010564351007982E-106;
    w(105) = 3.867845242632879313E-109;
    w(106) = 8.239883435606238718E-112;
    w(107) = 1.5104570697877326124E-114;
    w(108) = 2.3645657754433596259E-117;
    w(109) = 3.1349053289923477642E-120;
    w(110) = 3.48739145376585928069E-123;
    w(111) = 3.22170074744057989255E-126;
    w(112) = 2.443048415722317309221E-129;
    w(113) = 1.5008657805760609578501E-132;
    w(114) = 7.3592251345721592465131E-136;
    w(115) = 2.83121162238276011127992E-139;
    w(116) = 8.3785828758598937096069E-143;
    w(117) = 1.8637689328976254234922931E-146;
    w(118) = 3.0323700940390393081087066E-150;
    w(119) = 3.49260330326226204565809172E-154;
    w(120) = 2.736761201290944128360070077E-158;
    w(121) = 1.3888959774881077581342370711E-162;
    w(122) = 4.28912860126508716947322409477E-167;
    w(123) = 7.43133882324715291928018394696E-172;
    w(124) = 6.47421443374096511679045401121E-177;
    w(125) = 2.42953692988216878005255824922E-182;
    w(126) = 3.11143287762562176520260181694E-188;
    w(127) = 9.26127289624597363219192415542E-195;
    w(128) = 3.07023341560782650495387872798E-202;
    w(129) = 1.71530871887294016615286222244E-211;
 
  else

    fprintf ( 1, '\n' );
    fprintf ( 1, 'LAGUERRE_SET - Fatal error!\n' );
    fprintf ( 1, '  Illegal value of N = %d\n', n );
    fprintf ( 1, '  Legal values are 1 to 20, 31/32/33, 63/64/65, 127/128/129\n' );
    error ( 'LAGUERRE_SET - Fatal error!' );

  end

  return
end

