function [ x, w ] = hermite_set ( n )

%*****************************************************************************80
%
%% HERMITE_SET sets abscissas and weights for Hermite quadrature.
%
%  Discussion:
%
%    The integral:
%
%      integral ( -oo < x < +oo ) f(x) * rho(x) dx
%
%    The weight:
%
%      rho(x) = exp ( - x * x )
%
%    The quadrature rule:
%
%      sum ( 1 <= i <= n ) w(i) * f ( x(i) ).
%
%    Mathematica can numerically estimate the abscissas of the rule
%    of order N to P digits by the command:
%
%      NSolve [ HermiteH [ n, x ] == 0, x, p ]
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    24 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.
%
%  Parameters:
%
%    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.
%
%    Output, real W(N), the weights.
%
  x = zeros ( n, 1 );
  w = zeros ( n, 1 );

  if ( n == 1 )

    x(1) = 0.0;

    w(1) = 1.77245385090551602729816748334;

  elseif ( n == 2 )

    x(1) = - 0.707106781186547524400844362105;
    x(2) =   0.707106781186547524400844362105;

    w(1) = 0.886226925452758013649083741671;
    w(2) = 0.886226925452758013649083741671;

  elseif ( n == 3 )

    x(1) = - 0.122474487139158904909864203735E+01;
    x(2) =   0.0;
    x(3) =   0.122474487139158904909864203735E+01;

    w(1) = 0.295408975150919337883027913890;
    w(2) = 0.118163590060367735153211165556E+01;
    w(3) = 0.295408975150919337883027913890;

  elseif ( n == 4 )

    x(1) = - 0.165068012388578455588334111112E+01;
    x(2) = - 0.524647623275290317884060253835;
    x(3) =   0.524647623275290317884060253835;
    x(4) =   0.165068012388578455588334111112E+01;

    w(1) = 0.813128354472451771430345571899E-01;
    w(2) = 0.804914090005512836506049184481;
    w(3) = 0.804914090005512836506049184481;
    w(4) = 0.813128354472451771430345571899E-01;

  elseif ( n == 5 )

    x(1) = - 0.202018287045608563292872408814E+01;
    x(2) = - 0.958572464613818507112770593893;
    x(3) =   0.0;
    x(4) =   0.958572464613818507112770593893;
    x(5) =   0.202018287045608563292872408814E+01;

    w(1) = 0.199532420590459132077434585942E-01;
    w(2) = 0.393619323152241159828495620852;
    w(3) = 0.945308720482941881225689324449;
    w(4) = 0.393619323152241159828495620852;
    w(5) = 0.199532420590459132077434585942E-01;

  elseif ( n == 6 )

    x(1) = - 0.235060497367449222283392198706E+01;
    x(2) = - 0.133584907401369694971489528297E+01;
    x(3) = - 0.436077411927616508679215948251;
    x(4) =   0.436077411927616508679215948251;
    x(5) =   0.133584907401369694971489528297E+01;
    x(6) =   0.235060497367449222283392198706E+01;

    w(1) = 0.453000990550884564085747256463E-02;
    w(2) = 0.157067320322856643916311563508;
    w(3) = 0.724629595224392524091914705598;
    w(4) = 0.724629595224392524091914705598;
    w(5) = 0.157067320322856643916311563508;
    w(6) = 0.453000990550884564085747256463E-02;

  elseif ( n == 7 )

    x(1) = - 0.265196135683523349244708200652E+01;
    x(2) = - 0.167355162876747144503180139830E+01;
    x(3) = - 0.816287882858964663038710959027;
    x(4) =   0.0;
    x(5) =   0.816287882858964663038710959027;
    x(6) =   0.167355162876747144503180139830E+01;
    x(7) =   0.265196135683523349244708200652E+01;

    w(1) = 0.971781245099519154149424255939E-03;
    w(2) = 0.545155828191270305921785688417E-01;
    w(3) = 0.425607252610127800520317466666;
    w(4) = 0.810264617556807326764876563813;
    w(5) = 0.425607252610127800520317466666;
    w(6) = 0.545155828191270305921785688417E-01;
    w(7) = 0.971781245099519154149424255939E-03;

  elseif ( n == 8 )

    x(1) = - 0.293063742025724401922350270524E+01;
    x(2) = - 0.198165675669584292585463063977E+01;
    x(3) = - 0.115719371244678019472076577906E+01;
    x(4) = - 0.381186990207322116854718885584;
    x(5) =   0.381186990207322116854718885584;
    x(6) =   0.115719371244678019472076577906E+01;
    x(7) =   0.198165675669584292585463063977E+01;
    x(8) =   0.293063742025724401922350270524E+01;

    w(1) = 0.199604072211367619206090452544E-03;
    w(2) = 0.170779830074134754562030564364E-01;
    w(3) = 0.207802325814891879543258620286;
    w(4) = 0.661147012558241291030415974496;
    w(5) = 0.661147012558241291030415974496;
    w(6) = 0.207802325814891879543258620286;
    w(7) = 0.170779830074134754562030564364E-01;
    w(8) = 0.199604072211367619206090452544E-03;

  elseif ( n == 9 )

    x(1) = - 0.319099320178152760723004779538E+01;
    x(2) = - 0.226658058453184311180209693284E+01;
    x(3) = - 0.146855328921666793166701573925E+01;
    x(4) = - 0.723551018752837573322639864579;
    x(5) =   0.0;
    x(6) =   0.723551018752837573322639864579;
    x(7) =   0.146855328921666793166701573925E+01;
    x(8) =   0.226658058453184311180209693284E+01;
    x(9) =   0.319099320178152760723004779538E+01;

    w(1) = 0.396069772632643819045862946425E-04;
    w(2) = 0.494362427553694721722456597763E-02;
    w(3) = 0.884745273943765732879751147476E-01;
    w(4) = 0.432651559002555750199812112956;
    w(5) = 0.720235215606050957124334723389;
    w(6) = 0.432651559002555750199812112956;
    w(7) = 0.884745273943765732879751147476E-01;
    w(8) = 0.494362427553694721722456597763E-02;
    w(9) = 0.396069772632643819045862946425E-04;

  elseif ( n == 10 )

    x(1) =  - 0.343615911883773760332672549432E+01;
    x(2) =  - 0.253273167423278979640896079775E+01;
    x(3) =  - 0.175668364929988177345140122011E+01;
    x(4) =  - 0.103661082978951365417749191676E+01;
    x(5) =  - 0.342901327223704608789165025557;
    x(6) =    0.342901327223704608789165025557;
    x(7) =    0.103661082978951365417749191676E+01;
    x(8) =    0.175668364929988177345140122011E+01;
    x(9) =    0.253273167423278979640896079775E+01;
    x(10) =   0.343615911883773760332672549432E+01;

    w(1) =  0.764043285523262062915936785960E-05;
    w(2) =  0.134364574678123269220156558585E-02;
    w(3) =  0.338743944554810631361647312776E-01;
    w(4) =  0.240138611082314686416523295006;
    w(5) =  0.610862633735325798783564990433;
    w(6) =  0.610862633735325798783564990433;
    w(7) =  0.240138611082314686416523295006;
    w(8) =  0.338743944554810631361647312776E-01;
    w(9) =  0.134364574678123269220156558585E-02;
    w(10) = 0.764043285523262062915936785960E-05;

  elseif ( n == 11 )

    x(1) =  - 0.366847084655958251845837146485E+01;
    x(2) =  - 0.278329009978165177083671870152E+01;
    x(3) =  - 0.202594801582575533516591283121E+01;
    x(4) =  - 0.132655708449493285594973473558E+01;
    x(5) =  - 0.656809566882099765024611575383;
    x(6) =    0.0;
    x(7) =    0.656809566882099765024611575383;
    x(8) =    0.132655708449493285594973473558E+01;
    x(9) =    0.202594801582575533516591283121E+01;
    x(10) =   0.278329009978165177083671870152E+01;
    x(11) =   0.366847084655958251845837146485E+01;

    w(1) =  0.143956039371425822033088366032E-05;
    w(2) =  0.346819466323345510643413772940E-03;
    w(3) =  0.119113954449115324503874202916E-01;
    w(4) =  0.117227875167708503381788649308;
    w(5) =  0.429359752356125028446073598601;
    w(6) =  0.654759286914591779203940657627;
    w(7) =  0.429359752356125028446073598601;
    w(8) =  0.117227875167708503381788649308;
    w(9) =  0.119113954449115324503874202916E-01;
    w(10) = 0.346819466323345510643413772940E-03;
    w(11) = 0.143956039371425822033088366032E-05;

  elseif ( n == 12 )

    x(1) =  - 0.388972489786978191927164274724E+01;
    x(2) =  - 0.302063702512088977171067937518E+01;
    x(3) =  - 0.227950708050105990018772856942E+01;
    x(4) =  - 0.159768263515260479670966277090E+01;
    x(5) =  - 0.947788391240163743704578131060;
    x(6) =  - 0.314240376254359111276611634095;
    x(7) =    0.314240376254359111276611634095;
    x(8) =    0.947788391240163743704578131060;
    x(9) =    0.159768263515260479670966277090E+01;
    x(10) =   0.227950708050105990018772856942E+01;
    x(11) =   0.302063702512088977171067937518E+01;
    x(12) =   0.388972489786978191927164274724E+01;

    w(1) =  0.265855168435630160602311400877E-06;
    w(2) =  0.857368704358785865456906323153E-04;
    w(3) =  0.390539058462906185999438432620E-02;
    w(4) =  0.516079856158839299918734423606E-01;
    w(5) =  0.260492310264161129233396139765;
    w(6) =  0.570135236262479578347113482275;
    w(7) =  0.570135236262479578347113482275;
    w(8) =  0.260492310264161129233396139765;
    w(9) =  0.516079856158839299918734423606E-01;
    w(10) = 0.390539058462906185999438432620E-02;
    w(11) = 0.857368704358785865456906323153E-04;
    w(12) = 0.265855168435630160602311400877E-06;

  elseif ( n == 13 )

    x(1) =  - 0.410133759617863964117891508007E+01;
    x(2) =  - 0.324660897837240998812205115236E+01;
    x(3) =  - 0.251973568567823788343040913628E+01;
    x(4) =  - 0.185310765160151214200350644316E+01;
    x(5) =  - 0.122005503659074842622205526637E+01;
    x(6) =  - 0.605763879171060113080537108602;
    x(7) =    0.0;
    x(8) =    0.605763879171060113080537108602;
    x(9) =    0.122005503659074842622205526637E+01;
    x(10) =   0.185310765160151214200350644316E+01;
    x(11) =   0.251973568567823788343040913628E+01;
    x(12) =   0.324660897837240998812205115236E+01;
    x(13) =   0.410133759617863964117891508007E+01;

    w(1) =  0.482573185007313108834997332342E-07;
    w(2) =  0.204303604027070731248669432937E-04;
    w(3) =  0.120745999271938594730924899224E-02;
    w(4) =  0.208627752961699392166033805050E-01;
    w(5) =  0.140323320687023437762792268873;
    w(6) =  0.421616296898543221746893558568;
    w(7) =  0.604393187921161642342099068579;
    w(8) =  0.421616296898543221746893558568;
    w(9) =  0.140323320687023437762792268873;
    w(10) = 0.208627752961699392166033805050E-01;
    w(11) = 0.120745999271938594730924899224E-02;
    w(12) = 0.204303604027070731248669432937E-04;
    w(13) = 0.482573185007313108834997332342E-07;

  elseif ( n == 14 )

    x(1) =  - 0.430444857047363181262129810037E+01;
    x(2) =  - 0.346265693360227055020891736115E+01;
    x(3) =  - 0.274847072498540256862499852415E+01;
    x(4) =  - 0.209518325850771681573497272630E+01;
    x(5) =  - 0.147668273114114087058350654421E+01;
    x(6) =  - 0.878713787329399416114679311861;
    x(7) =  - 0.291745510672562078446113075799;
    x(8) =    0.291745510672562078446113075799;
    x(9) =    0.878713787329399416114679311861;
    x(10) =   0.147668273114114087058350654421E+01;
    x(11) =   0.209518325850771681573497272630E+01;
    x(12) =   0.274847072498540256862499852415E+01;
    x(13) =   0.346265693360227055020891736115E+01;
    x(14) =   0.430444857047363181262129810037E+01;

    w(1) =  0.862859116812515794532041783429E-08;
    w(2) =  0.471648435501891674887688950105E-05;
    w(3) =  0.355092613551923610483661076691E-03;
    w(4) =  0.785005472645794431048644334608E-02;
    w(5) =  0.685055342234652055387163312367E-01;
    w(6) =  0.273105609064246603352569187026;
    w(7) =  0.536405909712090149794921296776;
    w(8) =  0.536405909712090149794921296776;
    w(9) =  0.273105609064246603352569187026;
    w(10) = 0.685055342234652055387163312367E-01;
    w(11) = 0.785005472645794431048644334608E-02;
    w(12) = 0.355092613551923610483661076691E-03;
    w(13) = 0.471648435501891674887688950105E-05;
    w(14) = 0.862859116812515794532041783429E-08;

  elseif ( n == 15 )

    x(1) =  - 0.449999070730939155366438053053E+01;
    x(2) =  - 0.366995037340445253472922383312E+01;
    x(3) =  - 0.296716692790560324848896036355E+01;
    x(4) =  - 0.232573248617385774545404479449E+01;
    x(5) =  - 0.171999257518648893241583152515E+01;
    x(6) =  - 0.113611558521092066631913490556E+01;
    x(7) =  - 0.565069583255575748526020337198;
    x(8) =    0.0;
    x(9) =    0.565069583255575748526020337198;
    x(10) =   0.113611558521092066631913490556E+01;
    x(11) =   0.171999257518648893241583152515E+01;
    x(12) =   0.232573248617385774545404479449E+01;
    x(13) =   0.296716692790560324848896036355E+01;
    x(14) =   0.366995037340445253472922383312E+01;
    x(15) =   0.449999070730939155366438053053E+01;

    w(1) =  0.152247580425351702016062666965E-08;
    w(2) =  0.105911554771106663577520791055E-05;
    w(3) =  0.100004441232499868127296736177E-03;
    w(4) =  0.277806884291277589607887049229E-02;
    w(5) =  0.307800338725460822286814158758E-01;
    w(6) =  0.158488915795935746883839384960;
    w(7) =  0.412028687498898627025891079568;
    w(8) =  0.564100308726417532852625797340;
    w(9) =  0.412028687498898627025891079568;
    w(10) = 0.158488915795935746883839384960;
    w(11) = 0.307800338725460822286814158758E-01;
    w(12) = 0.277806884291277589607887049229E-02;
    w(13) = 0.100004441232499868127296736177E-03;
    w(14) = 0.105911554771106663577520791055E-05;
    w(15) = 0.152247580425351702016062666965E-08;

  elseif ( n == 16 )

    x(1) =  - 0.468873893930581836468849864875E+01;
    x(2) =  - 0.386944790486012269871942409801E+01;
    x(3) =  - 0.317699916197995602681399455926E+01;
    x(4) =  - 0.254620215784748136215932870545E+01;
    x(5) =  - 0.195178799091625397743465541496E+01;
    x(6) =  - 0.138025853919888079637208966969E+01;
    x(7) =  - 0.822951449144655892582454496734;
    x(8) =  - 0.273481046138152452158280401965;
    x(9) =    0.273481046138152452158280401965;
    x(10) =   0.822951449144655892582454496734;
    x(11) =   0.138025853919888079637208966969E+01;
    x(12) =   0.195178799091625397743465541496E+01;
    x(13) =   0.254620215784748136215932870545E+01;
    x(14) =   0.317699916197995602681399455926E+01;
    x(15) =   0.386944790486012269871942409801E+01;
    x(16) =   0.468873893930581836468849864875E+01;

    w(1) =  0.265480747401118224470926366050E-09;
    w(2) =  0.232098084486521065338749423185E-06;
    w(3) =  0.271186009253788151201891432244E-04;
    w(4) =  0.932284008624180529914277305537E-03;
    w(5) =  0.128803115355099736834642999312E-01;
    w(6) =  0.838100413989858294154207349001E-01;
    w(7) =  0.280647458528533675369463335380;
    w(8) =  0.507929479016613741913517341791;
    w(9) =  0.507929479016613741913517341791;
    w(10) = 0.280647458528533675369463335380;
    w(11) = 0.838100413989858294154207349001E-01;
    w(12) = 0.128803115355099736834642999312E-01;
    w(13) = 0.932284008624180529914277305537E-03;
    w(14) = 0.271186009253788151201891432244E-04;
    w(15) = 0.232098084486521065338749423185E-06;
    w(16) = 0.265480747401118224470926366050E-09;

  elseif ( n == 17 )

    x(1) =  - 0.487134519367440308834927655662E+01;
    x(2) =  - 0.406194667587547430689245559698E+01;
    x(3) =  - 0.337893209114149408338327069289E+01;
    x(4) =  - 0.275776291570388873092640349574E+01;
    x(5) =  - 0.217350282666662081927537907149E+01;
    x(6) =  - 0.161292431422123133311288254454E+01;
    x(7) =  - 0.106764872574345055363045773799E+01;
    x(8) =  - 0.531633001342654731349086553718;
    x(9) =    0.0;
    x(10) =   0.531633001342654731349086553718;
    x(11) =   0.106764872574345055363045773799E+01;
    x(12) =   0.161292431422123133311288254454E+01;
    x(13) =   0.217350282666662081927537907149E+01;
    x(14) =   0.275776291570388873092640349574E+01;
    x(15) =   0.337893209114149408338327069289E+01;
    x(16) =   0.406194667587547430689245559698E+01;
    x(17) =   0.487134519367440308834927655662E+01;

    w(1) =  0.458057893079863330580889281222E-10;
    w(2) =  0.497707898163079405227863353715E-07;
    w(3) =  0.711228914002130958353327376218E-05;
    w(4) =  0.298643286697753041151336643059E-03;
    w(5) =  0.506734995762753791170069495879E-02;
    w(6) =  0.409200341495762798094994877854E-01;
    w(7) =  0.172648297670097079217645196219;
    w(8) =  0.401826469470411956577635085257;
    w(9) =  0.530917937624863560331883103379;
    w(10) = 0.401826469470411956577635085257;
    w(11) = 0.172648297670097079217645196219;
    w(12) = 0.409200341495762798094994877854E-01;
    w(13) = 0.506734995762753791170069495879E-02;
    w(14) = 0.298643286697753041151336643059E-03;
    w(15) = 0.711228914002130958353327376218E-05;
    w(16) = 0.497707898163079405227863353715E-07;
    w(17) = 0.458057893079863330580889281222E-10;

  elseif ( n == 18 )

    x(1) =  - 0.504836400887446676837203757885E+01;
    x(2) =  - 0.424811787356812646302342016090E+01;
    x(3) =  - 0.357376906848626607950067599377E+01;
    x(4) =  - 0.296137750553160684477863254906E+01;
    x(5) =  - 0.238629908916668600026459301424E+01;
    x(6) =  - 0.183553160426162889225383944409E+01;
    x(7) =  - 0.130092085838961736566626555439E+01;
    x(8) =  - 0.776682919267411661316659462284;
    x(9) =  - 0.258267750519096759258116098711;
    x(10) =   0.258267750519096759258116098711;
    x(11) =   0.776682919267411661316659462284;
    x(12) =   0.130092085838961736566626555439E+01;
    x(13) =   0.183553160426162889225383944409E+01;
    x(14) =   0.238629908916668600026459301424E+01;
    x(15) =   0.296137750553160684477863254906E+01;
    x(16) =   0.357376906848626607950067599377E+01;
    x(17) =   0.424811787356812646302342016090E+01;
    x(18) =   0.504836400887446676837203757885E+01;

    w(1) =  0.782819977211589102925147471012E-11;
    w(2) =  0.104672057957920824443559608435E-07;
    w(3) =  0.181065448109343040959702385911E-05;
    w(4) =  0.918112686792940352914675407371E-04;
    w(5) =  0.188852263026841789438175325426E-02;
    w(6) =  0.186400423875446519219315221973E-01;
    w(7) =  0.973017476413154293308537234155E-01;
    w(8) =  0.284807285669979578595606820713;
    w(9) =  0.483495694725455552876410522141;
    w(10) = 0.483495694725455552876410522141;
    w(11) = 0.284807285669979578595606820713;
    w(12) = 0.973017476413154293308537234155E-01;
    w(13) = 0.186400423875446519219315221973E-01;
    w(14) = 0.188852263026841789438175325426E-02;
    w(15) = 0.918112686792940352914675407371E-04;
    w(16) = 0.181065448109343040959702385911E-05;
    w(17) = 0.104672057957920824443559608435E-07;
    w(18) = 0.782819977211589102925147471012E-11;

  elseif ( n == 19 )

    x(1) =  - 0.522027169053748216460967142500E+01;
    x(2) =  - 0.442853280660377943723498532226E+01;
    x(3) =  - 0.376218735196402009751489394104E+01;
    x(4) =  - 0.315784881834760228184318034120E+01;
    x(5) =  - 0.259113378979454256492128084112E+01;
    x(6) =  - 0.204923170985061937575050838669E+01;
    x(7) =  - 0.152417061939353303183354859367E+01;
    x(8) =  - 0.101036838713431135136859873726E+01;
    x(9) =  - 0.503520163423888209373811765050;
    x(10) =   0.0;
    x(11) =   0.503520163423888209373811765050;
    x(12) =   0.101036838713431135136859873726E+01;
    x(13) =   0.152417061939353303183354859367E+01;
    x(14) =   0.204923170985061937575050838669E+01;
    x(15) =   0.259113378979454256492128084112E+01;
    x(16) =   0.315784881834760228184318034120E+01;
    x(17) =   0.376218735196402009751489394104E+01;
    x(18) =   0.442853280660377943723498532226E+01;
    x(19) =   0.522027169053748216460967142500E+01;
;
    w(1) =  0.132629709449851575185289154385E-11;
    w(2) =  0.216305100986355475019693077221E-08;
    w(3) =  0.448824314722312295179447915594E-06;
    w(4) =  0.272091977631616257711941025214E-04;
    w(5) =  0.670877521407181106194696282100E-03;
    w(6) =  0.798886677772299020922211491861E-02;
    w(7) =  0.508103869090520673569908110358E-01;
    w(8) =  0.183632701306997074156148485766;
    w(9) =  0.391608988613030244504042313621;
    w(10) = 0.502974888276186530840731361096;
    w(11) = 0.391608988613030244504042313621;
    w(12) = 0.183632701306997074156148485766;
    w(13) = 0.508103869090520673569908110358E-01;
    w(14) = 0.798886677772299020922211491861E-02;
    w(15) = 0.670877521407181106194696282100E-03;
    w(16) = 0.272091977631616257711941025214E-04;
    w(17) = 0.448824314722312295179447915594E-06;
    w(18) = 0.216305100986355475019693077221E-08;
    w(19) = 0.132629709449851575185289154385E-11;

  elseif ( n == 20 )

    x(1) =  - 0.538748089001123286201690041068E+01;
    x(2) =  - 0.460368244955074427307767524898E+01;
    x(3) =  - 0.394476404011562521037562880052E+01;
    x(4) =  - 0.334785456738321632691492452300E+01;
    x(5) =  - 0.278880605842813048052503375640E+01;
    x(6) =  - 0.225497400208927552308233334473E+01;
    x(7) =  - 0.173853771211658620678086566214E+01;
    x(8) =  - 0.123407621539532300788581834696E+01;
    x(9) =  - 0.737473728545394358705605144252;
    x(10) = - 0.245340708300901249903836530634;
    x(11) =   0.245340708300901249903836530634;
    x(12) =   0.737473728545394358705605144252;
    x(13) =   0.123407621539532300788581834696E+01;
    x(14) =   0.173853771211658620678086566214E+01;
    x(15) =   0.225497400208927552308233334473E+01;
    x(16) =   0.278880605842813048052503375640E+01;
    x(17) =   0.334785456738321632691492452300E+01;
    x(18) =   0.394476404011562521037562880052E+01;
    x(19) =   0.460368244955074427307767524898E+01;
    x(20) =   0.538748089001123286201690041068E+01;

    w(1) =  0.222939364553415129252250061603E-12;
    w(2) =  0.439934099227318055362885145547E-09;
    w(3) =  0.108606937076928169399952456345E-06;
    w(4) =  0.780255647853206369414599199965E-05;
    w(5) =  0.228338636016353967257145917963E-03;
    w(6) =  0.324377334223786183218324713235E-02;
    w(7) =  0.248105208874636108821649525589E-01;
    w(8) =  0.109017206020023320013755033535;
    w(9) =  0.286675505362834129719659706228;
    w(10) = 0.462243669600610089650328639861;
    w(11) = 0.462243669600610089650328639861;
    w(12) = 0.286675505362834129719659706228;
    w(13) = 0.109017206020023320013755033535;
    w(14) = 0.248105208874636108821649525589E-01;
    w(15) = 0.324377334223786183218324713235E-02;
    w(16) = 0.228338636016353967257145917963E-03;
    w(17) = 0.780255647853206369414599199965E-05;
    w(18) = 0.108606937076928169399952456345E-06;
    w(19) = 0.439934099227318055362885145547E-09;
    w(20) = 0.222939364553415129252250061603E-12;

  elseif ( n == 30 )

    x( 1) =   -6.86334529352989158106110835756;
    x( 2) =   -6.13827922012393462039499237854;
    x( 3) =   -5.53314715156749572511833355558;
    x( 4) =   -4.98891896858994394448649710633;
    x( 5) =   -4.48305535709251834188703761971;
    x( 6) =   -4.00390860386122881522787601332;
    x( 7) =   -3.54444387315534988692540090217;
    x( 8) =   -3.09997052958644174868873332237;
    x( 9) =   -2.66713212453561720057110646422;
    x(10) =   -2.24339146776150407247297999483;
    x(11) =   -1.82674114360368803883588048351;
    x(12) =   -1.41552780019818851194072510555;
    x(13) =   -1.00833827104672346180498960870;
    x(14) =   -0.603921058625552307778155678757;
    x(15) =   -0.201128576548871485545763013244;
    x(16) =    0.201128576548871485545763013244;
    x(17) =    0.603921058625552307778155678757;
    x(18) =    1.00833827104672346180498960870;
    x(19) =    1.41552780019818851194072510555;
    x(20) =    1.82674114360368803883588048351;
    x(21) =    2.24339146776150407247297999483;
    x(22) =    2.66713212453561720057110646422;
    x(23) =    3.09997052958644174868873332237;
    x(24) =    3.54444387315534988692540090217;
    x(25) =    4.00390860386122881522787601332;
    x(26) =    4.48305535709251834188703761971;
    x(27) =    4.98891896858994394448649710633;
    x(28) =    5.53314715156749572511833355558;
    x(29) =    6.13827922012393462039499237854;
    x(30) =    6.86334529352989158106110835756;

    w( 1) =   0.290825470013122622941102747365E-20;
    w( 2) =   0.281033360275090370876277491534E-16;
    w( 3) =   0.287860708054870606219239791142E-13;
    w( 4) =   0.810618629746304420399344796173E-11;
    w( 5) =   0.917858042437852820850075742492E-09;
    w( 6) =   0.510852245077594627738963204403E-07;
    w( 7) =   0.157909488732471028834638794022E-05;
    w( 8) =   0.293872522892298764150118423412E-04;
    w( 9) =   0.348310124318685523420995323183E-03;
    w(10) =   0.273792247306765846298942568953E-02;
    w(11) =   0.147038297048266835152773557787E-01;
    w(12) =   0.551441768702342511680754948183E-01;
    w(13) =   0.146735847540890099751693643152;
    w(14) =   0.280130930839212667413493211293;
    w(15) =   0.386394889541813862555601849165;
    w(16) =   0.386394889541813862555601849165;
    w(17) =   0.280130930839212667413493211293;
    w(18) =   0.146735847540890099751693643152;
    w(19) =   0.551441768702342511680754948183E-01;
    w(20) =   0.147038297048266835152773557787E-01;
    w(21) =   0.273792247306765846298942568953E-02;
    w(22) =   0.348310124318685523420995323183E-03;
    w(23) =   0.293872522892298764150118423412E-04;
    w(24) =   0.157909488732471028834638794022E-05;
    w(25) =   0.510852245077594627738963204403E-07;
    w(26) =   0.917858042437852820850075742492E-09;
    w(27) =   0.810618629746304420399344796173E-11;
    w(28) =   0.287860708054870606219239791142E-13;
    w(29) =   0.281033360275090370876277491534E-16;
    w(30) =   0.290825470013122622941102747365E-20;

  elseif ( n == 31 )

    x(1) = -6.99568012371854027532485214732E+00;
    x(2) = -6.27507870494286014270365678125E+00;
    x(3) = -5.67396144461858832963325587893E+00;
    x(4) = -5.13359557711238070458629689140E+00;
    x(5) = -4.63155950631285994206679976543E+00;
    x(6) = -4.15627175581814517248313523153E+00;
    x(7) = -3.70074340323146942244971645897E+00;
    x(8) = -3.26032073231354081046454015096E+00;
    x(9) = -2.83168045339020545570156401514E+00;
    x(10) = -2.41231770548042010517401845821E+00;
    x(11) = -2.00025854893563896579755625986E+00;
    x(12) = -1.59388586047213982613884194556E+00;
    x(13) = -1.19182699835004642608213586492E+00;
    x(14) = -0.792876976915308939685930329988E+00;
    x(15) = -0.395942736471423110946700416634E+00;
    x(16) = 0.0E+00;
    x(17) = 0.395942736471423110946700416634E+00;
    x(18) = 0.792876976915308939685930329988E+00;
    x(19) = 1.19182699835004642608213586492E+00;
    x(20) = 1.59388586047213982613884194556E+00;
    x(21) = 2.00025854893563896579755625986E+00;
    x(22) = 2.41231770548042010517401845821E+00;
    x(23) = 2.83168045339020545570156401514E+00;
    x(24) = 3.26032073231354081046454015096E+00;
    x(25) = 3.70074340323146942244971645897E+00;
    x(26) = 4.15627175581814517248313523153E+00;
    x(27) = 4.63155950631285994206679976543E+00;
    x(28) = 5.13359557711238070458629689140E+00;
    x(29) = 5.67396144461858832963325587893E+00;
    x(30) = 6.27507870494286014270365678125E+00;
    x(31) = 6.99568012371854027532485214732E+00;

    w(1) = 4.61896839446420502132944426974E-22;
    w(2) = 5.11060900792715640739422641166E-18;
    w(3) = 5.89955649875387299038431589378E-15;
    w(4) = 1.86037352145214652437380892603E-12;
    w(5) = 2.35249200320864163398597795323E-10;
    w(6) = 1.46119883449105307352780323055E-08;
    w(7) = 5.04371255893979974253745671633E-07;
    w(8) = 0.0000104986027576756063228123279208E+00;
    w(9) = 0.000139520903950470433823653754396E+00;
    w(10) = 0.00123368330730688826551750402319E+00;
    w(11) = 0.00748279991403519848345678003016E+00;
    w(12) = 0.0318472307313003327772087235339E+00;
    w(13) = 0.0967179481608704535580338478886E+00;
    w(14) = 0.212132788668764779877735637343E+00;
    w(15) = 0.338772657894107724675701919878E+00;
    w(16) = 0.395778556098609545141783810611E+00;
    w(17) = 0.338772657894107724675701919878E+00;
    w(18) = 0.212132788668764779877735637343E+00;
    w(19) = 0.0967179481608704535580338478886E+00;
    w(20) = 0.0318472307313003327772087235339E+00;
    w(21) = 0.00748279991403519848345678003016E+00;
    w(22) = 0.00123368330730688826551750402319E+00;
    w(23) = 0.000139520903950470433823653754396E+00;
    w(24) = 0.0000104986027576756063228123279208E+00;
    w(25) = 5.04371255893979974253745671633E-07;
    w(26) = 1.46119883449105307352780323055E-08;
    w(27) = 2.35249200320864163398597795323E-10;
    w(28) = 1.86037352145214652437380892603E-12;
    w(29) = 5.89955649875387299038431589378E-15;
    w(30) = 5.11060900792715640739422641166E-18;
    w(31) = 4.61896839446420502132944426974E-22;

  elseif ( n == 32 )

    x(1) = -7.12581390983072757279520760342E+00;
    x(2) = -6.40949814926966041217376374153E+00;
    x(3) = -5.81222594951591383276596615366E+00;
    x(4) = -5.27555098651588012781906048140E+00;
    x(5) = -4.77716450350259639303579405689E+00;
    x(6) = -4.30554795335119844526348653193E+00;
    x(7) = -3.85375548547144464388787292109E+00;
    x(8) = -3.41716749281857073587392729564E+00;
    x(9) = -2.99249082500237420628549407606E+00;
    x(10) = -2.57724953773231745403092930114E+00;
    x(11) = -2.16949918360611217330570559502E+00;
    x(12) = -1.76765410946320160462767325853E+00;
    x(13) = -1.37037641095287183816170564864E+00;
    x(14) = -0.976500463589682838484704871982E+00;
    x(15) = -0.584978765435932448466957544011E+00;
    x(16) = -0.194840741569399326708741289532E+00;
    x(17) = 0.194840741569399326708741289532E+00;
    x(18) = 0.584978765435932448466957544011E+00;
    x(19) = 0.976500463589682838484704871982E+00;
    x(20) = 1.37037641095287183816170564864E+00;
    x(21) = 1.76765410946320160462767325853E+00;
    x(22) = 2.16949918360611217330570559502E+00;
    x(23) = 2.57724953773231745403092930114E+00;
    x(24) = 2.99249082500237420628549407606E+00;
    x(25) = 3.41716749281857073587392729564E+00;
    x(26) = 3.85375548547144464388787292109E+00;
    x(27) = 4.30554795335119844526348653193E+00;
    x(28) = 4.77716450350259639303579405689E+00;
    x(29) = 5.27555098651588012781906048140E+00;
    x(30) = 5.81222594951591383276596615366E+00;
    x(31) = 6.40949814926966041217376374153E+00;
    x(32) = 7.12581390983072757279520760342E+00;

    w(1) = 7.31067642738416239327427845506E-23;
    w(2) = 9.23173653651829223349442007207E-19;
    w(3) = 1.19734401709284866582868189951E-15;
    w(4) = 4.21501021132644757296944521183E-13;
    w(5) = 5.93329146339663861451156821558E-11;
    w(6) = 4.0988321647708966182350410138E-09;
    w(7) = 1.57416779254559402926869257929E-07;
    w(8) = 3.65058512956237605737032418746E-06;
    w(9) = 0.0000541658406181998255800193939267E+00;
    w(10) = 0.000536268365527972045970238101501E+00;
    w(11) = 0.00365489032665442807912565712241E+00;
    w(12) = 0.017553428831573430303437844611E+00;
    w(13) = 0.0604581309559126141865857607833E+00;
    w(14) = 0.151269734076642482575147114614E+00;
    w(15) = 0.277458142302529898137698918542E+00;
    w(16) = 0.375238352592802392866818388907E+00;
    w(17) = 0.375238352592802392866818388907E+00;
    w(18) = 0.277458142302529898137698918542E+00;
    w(19) = 0.151269734076642482575147114614E+00;
    w(20) = 0.0604581309559126141865857607833E+00;
    w(21) = 0.017553428831573430303437844611E+00;
    w(22) = 0.00365489032665442807912565712241E+00;
    w(23) = 0.000536268365527972045970238101501E+00;
    w(24) = 0.0000541658406181998255800193939267E+00;
    w(25) = 3.65058512956237605737032418746E-06;
    w(26) = 1.57416779254559402926869257929E-07;
    w(27) = 4.0988321647708966182350410138E-09;
    w(28) = 5.93329146339663861451156821558E-11;
    w(29) = 4.21501021132644757296944521183E-13;
    w(30) = 1.19734401709284866582868189951E-15;
    w(31) = 9.23173653651829223349442007207E-19;
    w(32) = 7.31067642738416239327427845506E-23;

  elseif ( n == 33 )

    x(1) = -7.25385182201520064607977244465E+00;
    x(2) = -6.54165544573807726095826608811E+00;
    x(3) = -5.94807118208714447981366477584E+00;
    x(4) = -5.41492900261419253992709076454E+00;
    x(5) = -4.92002852059500829241139910265E+00;
    x(6) = -4.45191114883282719009473876206E+00;
    x(7) = -4.00367160995693141451378357174E+00;
    x(8) = -3.57072198023271828561890330658E+00;
    x(9) = -3.14979668170382538461281438786E+00;
    x(10) = -2.73844582435135490694887052899E+00;
    x(11) = -2.33475115152951517708536069773E+00;
    x(12) = -1.93715458182220661643452220908E+00;
    x(13) = -1.54434826124312180914304288754E+00;
    x(14) = -1.15520020412678961356412482063E+00;
    x(15) = -0.768701379758868598107224561306E+00;
    x(16) = -0.383926014508409083771145488401E+00;
    x(17) = 0.0E+00;
    x(18) = 0.383926014508409083771145488401E+00;
    x(19) = 0.768701379758868598107224561306E+00;
    x(20) = 1.15520020412678961356412482063E+00;
    x(21) = 1.54434826124312180914304288754E+00;
    x(22) = 1.93715458182220661643452220908E+00;
    x(23) = 2.33475115152951517708536069773E+00;
    x(24) = 2.73844582435135490694887052899E+00;
    x(25) = 3.14979668170382538461281438786E+00;
    x(26) = 3.57072198023271828561890330658E+00;
    x(27) = 4.00367160995693141451378357174E+00;
    x(28) = 4.45191114883282719009473876206E+00;
    x(29) = 4.92002852059500829241139910265E+00;
    x(30) = 5.41492900261419253992709076454E+00;
    x(31) = 5.94807118208714447981366477584E+00;
    x(32) = 6.54165544573807726095826608811E+00;
    x(33) = 7.25385182201520064607977244465E+00;

    w(1) = 1.15331621854588454082208890757E-23;
    w(2) = 1.65709474153369051048226040291E-19;
    w(3) = 2.40778567955799442824587707068E-16;
    w(4) = 9.43481415901497503451931586527E-14;
    w(5) = 1.47398093709248867676655543441E-11;
    w(6) = 1.12892224710833129085848357165E-09;
    w(7) = 4.8077456763231909801575826594E-08;
    w(8) = 1.23769336720121013593677278301E-06;
    w(9) = 0.000020423684051423773240532989618E+00;
    w(10) = 0.000225442770596327415479556999963E+00;
    w(11) = 0.00171845463776092445684897958755E+00;
    w(12) = 0.00926568997068523330372581072023E+00;
    w(13) = 0.0359879823185769744486866448437E+00;
    w(14) = 0.102069079995541500792505520921E+00;
    w(15) = 0.213493931150291836488258605194E+00;
    w(16) = 0.331552000750741282288352789764E+00;
    w(17) = 0.383785266519863801349608543622E+00;
    w(18) = 0.331552000750741282288352789764E+00;
    w(19) = 0.213493931150291836488258605194E+00;
    w(20) = 0.102069079995541500792505520921E+00;
    w(21) = 0.0359879823185769744486866448437E+00;
    w(22) = 0.00926568997068523330372581072023E+00;
    w(23) = 0.00171845463776092445684897958755E+00;
    w(24) = 0.000225442770596327415479556999963E+00;
    w(25) = 0.000020423684051423773240532989618E+00;
    w(26) = 1.23769336720121013593677278301E-06;
    w(27) = 4.8077456763231909801575826594E-08;
    w(28) = 1.12892224710833129085848357165E-09;
    w(29) = 1.47398093709248867676655543441E-11;
    w(30) = 9.43481415901497503451931586527E-14;
    w(31) = 2.40778567955799442824587707068E-16;
    w(32) = 1.65709474153369051048226040291E-19;
    w(33) = 1.15331621854588454082208890757E-23;

  elseif ( n == 63 )

    x(1) = -10.4354998778541680534681154273E+00;
    x(2) = -9.80287599129749636352239352865E+00;
    x(3) = -9.27920195430503913194047455065E+00;
    x(4) = -8.81185814372845464425266282756E+00;
    x(5) = -8.38076834518632193430106510438E+00;
    x(6) = -7.97559508014203731815418062985E+00;
    x(7) = -7.59013951986410667624797831945E+00;
    x(8) = -7.22031670788896784611613242225E+00;
    x(9) = -6.86325443317953685273532858761E+00;
    x(10) = -6.51683481068211606052733958540E+00;
    x(11) = -6.17943799227059698624184617873E+00;
    x(12) = -5.84978840008106734625265829615E+00;
    x(13) = -5.52685725264030314250475751228E+00;
    x(14) = -5.20979798304083548615751364163E+00;
    x(15) = -4.89790186449757423507450992149E+00;
    x(16) = -4.59056657444351902292712945691E+00;
    x(17) = -4.28727333528244040317276161995E+00;
    x(18) = -3.98756991041971574852270520681E+00;
    x(19) = -3.69105770009634651173228105598E+00;
    x(20) = -3.39738177133039118527559418063E+00;
    x(21) = -3.10622302792825663291386167460E+00;
    x(22) = -2.81729196728379777507471356574E+00;
    x(23) = -2.53032363047120109268552217185E+00;
    x(24) = -2.24507346048120662989959181793E+00;
    x(25) = -1.96131385830814852939220084113E+00;
    x(26) = -1.67883127917201375208028006226E+00;
    x(27) = -1.39742374860496251075707520637E+00;
    x(28) = -1.11689870509964626905109702778E+00;
    x(29) = -0.837071095589476159777377954613E+00;
    x(30) = -0.557761664279082216687636652538E+00;
    x(31) = -0.278795385671152239866876286272E+00;
    x(32) = 0.0E+00;
    x(33) = 0.278795385671152239866876286272E+00;
    x(34) = 0.557761664279082216687636652538E+00;
    x(35) = 0.837071095589476159777377954613E+00;
    x(36) = 1.11689870509964626905109702778E+00;
    x(37) = 1.39742374860496251075707520637E+00;
    x(38) = 1.67883127917201375208028006226E+00;
    x(39) = 1.96131385830814852939220084113E+00;
    x(40) = 2.24507346048120662989959181793E+00;
    x(41) = 2.53032363047120109268552217185E+00;
    x(42) = 2.81729196728379777507471356574E+00;
    x(43) = 3.10622302792825663291386167460E+00;
    x(44) = 3.39738177133039118527559418063E+00;
    x(45) = 3.69105770009634651173228105598E+00;
    x(46) = 3.98756991041971574852270520681E+00;
    x(47) = 4.28727333528244040317276161995E+00;
    x(48) = 4.59056657444351902292712945691E+00;
    x(49) = 4.89790186449757423507450992149E+00;
    x(50) = 5.20979798304083548615751364163E+00;
    x(51) = 5.52685725264030314250475751228E+00;
    x(52) = 5.84978840008106734625265829615E+00;
    x(53) = 6.17943799227059698624184617873E+00;
    x(54) = 6.51683481068211606052733958540E+00;
    x(55) = 6.86325443317953685273532858761E+00;
    x(56) = 7.22031670788896784611613242225E+00;
    x(57) = 7.59013951986410667624797831945E+00;
    x(58) = 7.97559508014203731815418062985E+00;
    x(59) = 8.38076834518632193430106510438E+00;
    x(60) = 8.81185814372845464425266282756E+00;
    x(61) = 9.27920195430503913194047455065E+00;
    x(62) = 9.80287599129749636352239352865E+00;
    x(63) = 10.4354998778541680534681154273E+00;

    w(1) = 3.70992064349030055823376157823E-48;
    w(2) = 1.04007786152246672212559599908E-42;
    w(3) = 1.97968047083199197900260998813E-38;
    w(4) = 8.46874781919035663281042885251E-35;
    w(5) = 1.30713059308206243904769877879E-31;
    w(6) = 9.34378371756582396450246862195E-29;
    w(7) = 3.60274266352851638202340658522E-26;
    w(8) = 8.29638631162099766157527065317E-24;
    w(9) = 1.22666299091434557721622529775E-21;
    w(10) = 1.22884356288353036990240371039E-19;
    w(11) = 8.69255369584585252225619256428E-18;
    w(12) = 4.48570586893158184069444097978E-16;
    w(13) = 1.73358179557891044383064226749E-14;
    w(14) = 5.1265062385197846998384009333E-13;
    w(15) = 1.18089218445696923817995132237E-11;
    w(16) = 2.15086982978749617679069862879E-10;
    w(17) = 3.13719295353830786449435629291E-09;
    w(18) = 3.70416259848969809883356560995E-08;
    w(19) = 3.57347329499908777461505032558E-07;
    w(20) = 2.83931144984692884712301165567E-06;
    w(21) = 0.0000187091130037887216027832755405E+00;
    w(22) = 0.000102848808006856425543062213642E+00;
    w(23) = 0.000474117026103206754395975199216E+00;
    w(24) = 0.0018409222622442103760124297917E+00;
    w(25) = 0.00604360445513757113209247151533E+00;
    w(26) = 0.0168292991996521044559098701555E+00;
    w(27) = 0.0398582640278170328649908688578E+00;
    w(28) = 0.0804670879942008323850873860195E+00;
    w(29) = 0.138719508176584635072239096351E+00;
    w(30) = 0.204486953468973988225911656103E+00;
    w(31) = 0.25799889943138332612723393346E+00;
    w(32) = 0.278766948849251654365527505911E+00;
    w(33) = 0.25799889943138332612723393346E+00;
    w(34) = 0.204486953468973988225911656103E+00;
    w(35) = 0.138719508176584635072239096351E+00;
    w(36) = 0.0804670879942008323850873860195E+00;
    w(37) = 0.0398582640278170328649908688578E+00;
    w(38) = 0.0168292991996521044559098701555E+00;
    w(39) = 0.00604360445513757113209247151533E+00;
    w(40) = 0.0018409222622442103760124297917E+00;
    w(41) = 0.000474117026103206754395975199216E+00;
    w(42) = 0.000102848808006856425543062213642E+00;
    w(43) = 0.0000187091130037887216027832755405E+00;
    w(44) = 2.83931144984692884712301165567E-06;
    w(45) = 3.57347329499908777461505032558E-07;
    w(46) = 3.70416259848969809883356560995E-08;
    w(47) = 3.13719295353830786449435629291E-09;
    w(48) = 2.15086982978749617679069862879E-10;
    w(49) = 1.18089218445696923817995132237E-11;
    w(50) = 5.1265062385197846998384009333E-13;
    w(51) = 1.73358179557891044383064226749E-14;
    w(52) = 4.48570586893158184069444097978E-16;
    w(53) = 8.69255369584585252225619256428E-18;
    w(54) = 1.22884356288353036990240371039E-19;
    w(55) = 1.22666299091434557721622529775E-21;
    w(56) = 8.29638631162099766157527065317E-24;
    w(57) = 3.60274266352851638202340658522E-26;
    w(58) = 9.34378371756582396450246862195E-29;
    w(59) = 1.30713059308206243904769877879E-31;
    w(60) = 8.46874781919035663281042885251E-35;
    w(61) = 1.97968047083199197900260998813E-38;
    w(62) = 1.04007786152246672212559599908E-42;
    w(63) = 3.70992064349030055823376157823E-48;

  elseif ( n == 64 )

    x(1) = -10.5261231679605458833268262838E+00;
    x(2) = -9.89528758682953902120446147716E+00;
    x(3) = -9.37315954964672116254565243972E+00;
    x(4) = -8.90724909996476975729597288564E+00;
    x(5) = -8.47752908337986309056416634482E+00;
    x(6) = -8.07368728501022522585879114076E+00;
    x(7) = -7.68954016404049682844780422987E+00;
    x(8) = -7.32101303278094920118956936372E+00;
    x(9) = -6.96524112055110752924264219349E+00;
    x(10) = -6.62011226263602737903666010894E+00;
    x(11) = -6.28401122877482823541809319507E+00;
    x(12) = -5.95566632679948604534456718098E+00;
    x(13) = -5.63405216434997214724992048331E+00;
    x(14) = -5.31832522463327085732364951520E+00;
    x(15) = -5.00777960219876819644370262718E+00;
    x(16) = -4.70181564740749981609753801581E+00;
    x(17) = -4.39991716822813764776793253544E+00;
    x(18) = -4.10163447456665671497098123846E+00;
    x(19) = -3.80657151394536046116597200046E+00;
    x(20) = -3.51437593574090621153995058647E+00;
    x(21) = -3.22473129199203572584817111019E+00;
    x(22) = -2.93735082300462180968533902619E+00;
    x(23) = -2.65197243543063501100545778600E+00;
    x(24) = -2.36835458863240140411151126534E+00;
    x(25) = -2.08627287988176202083256330236E+00;
    x(26) = -1.80551717146554491890377357419E+00;
    x(27) = -1.52588914020986366294897013315E+00;
    x(28) = -1.24720015694311794069356453069E+00;
    x(29) = -0.969269423071178016743541489019E+00;
    x(30) = -0.691922305810044577268219287596E+00;
    x(31) = -0.414988824121078684576929129200E+00;
    x(32) = -0.138302244987009724115049767967E+00;
    x(33) = 0.138302244987009724115049767967E+00;
    x(34) = 0.414988824121078684576929129200E+00;
    x(35) = 0.691922305810044577268219287596E+00;
    x(36) = 0.969269423071178016743541489019E+00;
    x(37) = 1.24720015694311794069356453069E+00;
    x(38) = 1.52588914020986366294897013315E+00;
    x(39) = 1.80551717146554491890377357419E+00;
    x(40) = 2.08627287988176202083256330236E+00;
    x(41) = 2.36835458863240140411151126534E+00;
    x(42) = 2.65197243543063501100545778600E+00;
    x(43) = 2.93735082300462180968533902619E+00;
    x(44) = 3.22473129199203572584817111019E+00;
    x(45) = 3.51437593574090621153995058647E+00;
    x(46) = 3.80657151394536046116597200046E+00;
    x(47) = 4.10163447456665671497098123846E+00;
    x(48) = 4.39991716822813764776793253544E+00;
    x(49) = 4.70181564740749981609753801581E+00;
    x(50) = 5.00777960219876819644370262718E+00;
    x(51) = 5.31832522463327085732364951520E+00;
    x(52) = 5.63405216434997214724992048331E+00;
    x(53) = 5.95566632679948604534456718098E+00;
    x(54) = 6.28401122877482823541809319507E+00;
    x(55) = 6.62011226263602737903666010894E+00;
    x(56) = 6.96524112055110752924264219349E+00;
    x(57) = 7.32101303278094920118956936372E+00;
    x(58) = 7.68954016404049682844780422987E+00;
    x(59) = 8.07368728501022522585879114076E+00;
    x(60) = 8.47752908337986309056416634482E+00;
    x(61) = 8.90724909996476975729597288564E+00;
    x(62) = 9.37315954964672116254565243972E+00;
    x(63) = 9.89528758682953902120446147716E+00;
    x(64) = 10.5261231679605458833268262838E+00;

    w(1) = 5.53570653585694282057546330099E-49;
    w(2) = 1.67974799010815921866628833063E-43;
    w(3) = 3.42113801125574050432722182815E-39;
    w(4) = 1.55739062462976380230933538026E-35;
    w(5) = 2.54966089911299925660476658044E-32;
    w(6) = 1.92910359546496685030196877907E-29;
    w(7) = 7.86179778892591036909999149628E-27;
    w(8) = 1.91170688330064282995845696553E-24;
    w(9) = 2.98286278427985115447870070202E-22;
    w(10) = 3.15225456650378141612134668341E-20;
    w(11) = 2.35188471067581911695767591556E-18;
    w(12) = 1.28009339132243804163956329526E-16;
    w(13) = 5.21862372659084752295780851305E-15;
    w(14) = 1.62834073070972036208430708124E-13;
    w(15) = 3.95917776694772392723644586425E-12;
    w(16) = 7.61521725014545135331529567532E-11;
    w(17) = 1.17361674232154934354250646708E-09;
    w(18) = 1.4651253164761093549266220038E-08;
    w(19) = 1.49553293672724706110246169293E-07;
    w(20) = 1.25834025103118457615784218002E-06;
    w(21) = 8.7884992308503591814440474067E-06;
    w(22) = 0.0000512592913578627466082191141274E+00;
    w(23) = 0.000250983698513062486082362017982E+00;
    w(24) = 0.00103632909950757766345674174628E+00;
    w(25) = 0.00362258697853445876066812537162E+00;
    w(26) = 0.0107560405098791370494651727867E+00;
    w(27) = 0.0272031289536889184538348212615E+00;
    w(28) = 0.0587399819640994345496889462518E+00;
    w(29) = 0.108498349306186840633025845506E+00;
    w(30) = 0.171685842349083702000727970124E+00;
    w(31) = 0.232994786062678046650566029333E+00;
    w(32) = 0.271377424941303977945606508418E+00;
    w(33) = 0.271377424941303977945606508418E+00;
    w(34) = 0.232994786062678046650566029333E+00;
    w(35) = 0.171685842349083702000727970124E+00;
    w(36) = 0.108498349306186840633025845506E+00;
    w(37) = 0.0587399819640994345496889462518E+00;
    w(38) = 0.0272031289536889184538348212615E+00;
    w(39) = 0.0107560405098791370494651727867E+00;
    w(40) = 0.00362258697853445876066812537162E+00;
    w(41) = 0.00103632909950757766345674174628E+00;
    w(42) = 0.000250983698513062486082362017982E+00;
    w(43) = 0.0000512592913578627466082191141274E+00;
    w(44) = 8.7884992308503591814440474067E-06;
    w(45) = 1.25834025103118457615784218002E-06;
    w(46) = 1.49553293672724706110246169293E-07;
    w(47) = 1.4651253164761093549266220038E-08;
    w(48) = 1.17361674232154934354250646708E-09;
    w(49) = 7.61521725014545135331529567532E-11;
    w(50) = 3.95917776694772392723644586425E-12;
    w(51) = 1.62834073070972036208430708124E-13;
    w(52) = 5.21862372659084752295780851305E-15;
    w(53) = 1.28009339132243804163956329526E-16;
    w(54) = 2.35188471067581911695767591556E-18;
    w(55) = 3.15225456650378141612134668341E-20;
    w(56) = 2.98286278427985115447870070202E-22;
    w(57) = 1.91170688330064282995845696553E-24;
    w(58) = 7.86179778892591036909999149628E-27;
    w(59) = 1.92910359546496685030196877907E-29;
    w(60) = 2.54966089911299925660476658044E-32;
    w(61) = 1.55739062462976380230933538026E-35;
    w(62) = 3.42113801125574050432722182815E-39;
    w(63) = 1.67974799010815921866628833063E-43;
    w(64) = 5.53570653585694282057546330099E-49;

  elseif ( n == 65 )

    x(1) = -10.6160229818782811890575602362E+00;
    x(2) = -9.98694169167668475289516351866E+00;
    x(3) = -9.46632932015538456209230219583E+00;
    x(4) = -9.00182332295913301957373193078E+00;
    x(5) = -8.57344474441790920512961590649E+00;
    x(6) = -8.17090617805258532129873946832E+00;
    x(7) = -7.78803908298957078257446963177E+00;
    x(8) = -7.42077883436632423648540822493E+00;
    x(9) = -7.06626794030689283695626648500E+00;
    x(10) = -6.72239982016573443713269171234E+00;
    x(11) = -6.38756373978709108766264932629E+00;
    x(12) = -6.06049177883150521431844958114E+00;
    x(13) = -5.74016182369022552144785845004E+00;
    x(14) = -5.42573329769734933377879520007E+00;
    x(15) = -5.11650300472141247403405938903E+00;
    x(16) = -4.81187385202746476469375701958E+00;
    x(17) = -4.51133211136821338520053781440E+00;
    x(18) = -4.21443050997195460766227433230E+00;
    x(19) = -3.92077540444472380734866143333E+00;
    x(20) = -3.63001687763289533380743256995E+00;
    x(21) = -3.34184096844683005348576537026E+00;
    x(22) = -3.05596348432867100471992904351E+00;
    x(23) = -2.77212500515709167382401243242E+00;
    x(24) = -2.49008679530393550665251461372E+00;
    x(25) = -2.20962741516918436363972079745E+00;
    x(26) = -1.93053987597722550177796442890E+00;
    x(27) = -1.65262921904032541019598694267E+00;
    x(28) = -1.37571042772366833613088581439E+00;
    x(29) = -1.09960660005694495033699221150E+00;
    x(30) = -0.824147324402412861055989047706E+00;
    x(31) = -0.549167211221599184571872835161E+00;
    x(32) = -0.274504541753944755855051087074E+00;
    x(33) = 0.0E+00;
    x(34) = 0.274504541753944755855051087074E+00;
    x(35) = 0.549167211221599184571872835161E+00;
    x(36) = 0.824147324402412861055989047706E+00;
    x(37) = 1.09960660005694495033699221150E+00;
    x(38) = 1.37571042772366833613088581439E+00;
    x(39) = 1.65262921904032541019598694267E+00;
    x(40) = 1.93053987597722550177796442890E+00;
    x(41) = 2.20962741516918436363972079745E+00;
    x(42) = 2.49008679530393550665251461372E+00;
    x(43) = 2.77212500515709167382401243242E+00;
    x(44) = 3.05596348432867100471992904351E+00;
    x(45) = 3.34184096844683005348576537026E+00;
    x(46) = 3.63001687763289533380743256995E+00;
    x(47) = 3.92077540444472380734866143333E+00;
    x(48) = 4.21443050997195460766227433230E+00;
    x(49) = 4.51133211136821338520053781440E+00;
    x(50) = 4.81187385202746476469375701958E+00;
    x(51) = 5.11650300472141247403405938903E+00;
    x(52) = 5.42573329769734933377879520007E+00;
    x(53) = 5.74016182369022552144785845004E+00;
    x(54) = 6.06049177883150521431844958114E+00;
    x(55) = 6.38756373978709108766264932629E+00;
    x(56) = 6.72239982016573443713269171234E+00;
    x(57) = 7.06626794030689283695626648500E+00;
    x(58) = 7.42077883436632423648540822493E+00;
    x(59) = 7.78803908298957078257446963177E+00;
    x(60) = 8.17090617805258532129873946832E+00;
    x(61) = 8.57344474441790920512961590649E+00;
    x(62) = 9.00182332295913301957373193078E+00;
    x(63) = 9.46632932015538456209230219583E+00;
    x(64) = 9.98694169167668475289516351866E+00;
    x(65) = 10.6160229818782811890575602362E+00;

    w(1) = 8.25161081325244640518686536873E-50;
    w(2) = 2.70767584528327632245086261566E-44;
    w(3) = 5.89628446597893219238447711362E-40;
    w(4) = 2.8541849032786262808377028501E-36;
    w(5) = 4.95258625502059879210418105309E-33;
    w(6) = 3.96328698707468682361835959189E-30;
    w(7) = 1.70591158107580273148997822331E-27;
    w(8) = 4.37697419487184691809226004173E-25;
    w(9) = 7.20161078913500757836854034749E-23;
    w(10) = 8.0222187354240312838311535001E-21;
    w(11) = 6.30789104558609987896303941119E-19;
    w(12) = 3.61819961904286485492939434525E-17;
    w(13) = 1.55466357223809604941702812296E-15;
    w(14) = 5.11391748171652449009988302839E-14;
    w(15) = 1.31125161063902569430172028735E-12;
    w(16) = 2.66086534779295548413319751434E-11;
    w(17) = 4.32865615344850974821379264835E-10;
    w(18) = 5.70758293277877491250362877931E-09;
    w(19) = 6.15779622145053848599380659292E-08;
    w(20) = 5.48045603501799498244047819842E-07;
    w(21) = 4.05224939102373376093012342174E-06;
    w(22) = 0.0000250453428904958321201946621231E+00;
    w(23) = 0.000130082916298451204382435919638E+00;
    w(24) = 0.000570398967523771524725931177791E+00;
    w(25) = 0.00211998163203684165580510045255E+00;
    w(26) = 0.00670140453800573713948633700424E+00;
    w(27) = 0.018069433112703589006399924887E+00;
    w(28) = 0.0416611087624784398909512089873E+00;
    w(29) = 0.0823001633697352251543326980867E+00;
    w(30) = 0.139526139482843953007755621004E+00;
    w(31) = 0.203250574154441897747728738409E+00;
    w(32) = 0.254628811852790103887643365928E+00;
    w(33) = 0.274478226559263167375288621205E+00;
    w(34) = 0.254628811852790103887643365928E+00;
    w(35) = 0.203250574154441897747728738409E+00;
    w(36) = 0.139526139482843953007755621004E+00;
    w(37) = 0.0823001633697352251543326980867E+00;
    w(38) = 0.0416611087624784398909512089873E+00;
    w(39) = 0.018069433112703589006399924887E+00;
    w(40) = 0.00670140453800573713948633700424E+00;
    w(41) = 0.00211998163203684165580510045255E+00;
    w(42) = 0.000570398967523771524725931177791E+00;
    w(43) = 0.000130082916298451204382435919638E+00;
    w(44) = 0.0000250453428904958321201946621231E+00;
    w(45) = 4.05224939102373376093012342174E-06;
    w(46) = 5.48045603501799498244047819842E-07;
    w(47) = 6.15779622145053848599380659292E-08;
    w(48) = 5.70758293277877491250362877931E-09;
    w(49) = 4.32865615344850974821379264835E-10;
    w(50) = 2.66086534779295548413319751434E-11;
    w(51) = 1.31125161063902569430172028735E-12;
    w(52) = 5.11391748171652449009988302839E-14;
    w(53) = 1.55466357223809604941702812296E-15;
    w(54) = 3.61819961904286485492939434525E-17;
    w(55) = 6.30789104558609987896303941119E-19;
    w(56) = 8.0222187354240312838311535001E-21;
    w(57) = 7.20161078913500757836854034749E-23;
    w(58) = 4.37697419487184691809226004173E-25;
    w(59) = 1.70591158107580273148997822331E-27;
    w(60) = 3.96328698707468682361835959189E-30;
    w(61) = 4.95258625502059879210418105309E-33;
    w(62) = 2.8541849032786262808377028501E-36;
    w(63) = 5.89628446597893219238447711362E-40;
    w(64) = 2.70767584528327632245086261566E-44;
    w(65) = 8.25161081325244640518686536873E-50;

  elseif ( n == 127 )

    x(1) = -15.2283381481673509782469544335E+00;
    x(2) = -14.6695951588339726327463541129E+00;
    x(3) = -14.2090859952848707551682442509E+00;
    x(4) = -13.7997222902116766346452467467E+00;
    x(5) = -13.4235185900709500624382583219E+00;
    x(6) = -13.0712086604746019015839954396E+00;
    x(7) = -12.7372356524156863381380039241E+00;
    x(8) = -12.4179393788697158054458796241E+00;
    x(9) = -12.1107490209477476001321235081E+00;
    x(10) = -11.8137721982677271951345841362E+00;
    x(11) = -11.5255651125726965991678885886E+00;
    x(12) = -11.2449945837855434451943841943E+00;
    x(13) = -10.9711505698402474234230402639E+00;
    x(14) = -10.7032882010274813476709407447E+00;
    x(15) = -10.4407879577727728677425917980E+00;
    x(16) = -10.1831274734503438886241264504E+00;
    x(17) = -9.92986104951142507368470042737E+00;
    x(18) = -9.68060444124747280381507127327E+00;
    x(19) = -9.43502333898816501350195985063E+00;
    x(20) = -9.19282449884603057157741950525E+00;
    x(21) = -8.95374881085654043238078901700E+00;
    x(22) = -8.71756580870763073638339995485E+00;
    x(23) = -8.48406926898324733260971803400E+00;
    x(24) = -8.25307364544571565796941242439E+00;
    x(25) = -8.02441115147033755785947397968E+00;
    x(26) = -7.79792935138701054208291204556E+00;
    x(27) = -7.57348915560834540228349607633E+00;
    x(28) = -7.35096313922690527019612580437E+00;
    x(29) = -7.13023412203507106680640257134E+00;
    x(30) = -6.91119396154657131974656331094E+00;
    x(31) = -6.69374252087582941900744173817E+00;
    x(32) = -6.47778678116453654481449038215E+00;
    x(33) = -6.26324007427373543456097238571E+00;
    x(34) = -6.05002141614198456944654744824E+00;
    x(35) = -5.83805492487741873866016908078E+00;
    x(36) = -5.62726931054648166594234557949E+00;
    x(37) = -5.41759742592432407228484258729E+00;
    x(38) = -5.20897586931539835875702583722E+00;
    x(39) = -5.00134463203863600385208091074E+00;
    x(40) = -4.79464678437649250097485099309E+00;
    x(41) = -4.58882819476983729516064850312E+00;
    x(42) = -4.38383727784647362942537444075E+00;
    x(43) = -4.17962476753520313494211898924E+00;
    x(44) = -3.97614351206733559160358141959E+00;
    x(45) = -3.77334828812505267210046784001E+00;
    x(46) = -3.57119563177821804471997564852E+00;
    x(47) = -3.36964368417173978966436292400E+00;
    x(48) = -3.16865205019536301918577982615E+00;
    x(49) = -2.96818166859559102677616495215E+00;
    x(50) = -2.76819469218240588012265459589E+00;
    x(51) = -2.56865437694735017231440130224E+00;
    x(52) = -2.36952497904904010800124746457E+00;
    x(53) = -2.17077165874115068794984980837E+00;
    x(54) = -1.97236039041950200793247432276E+00;
    x(55) = -1.77425787805167915846764421037E+00;
    x(56) = -1.57643147532678013155195976219E+00;
    x(57) = -1.37884910992617780914415570537E+00;
    x(58) = -1.18147921137006858486785835984E+00;
    x(59) = -0.984290641940272777265689842138E+00;
    x(60) = -0.787252630218250341515968318790E+00;
    x(61) = -0.590334706809421021422304393461E+00;
    x(62) = -0.393506641851301365680378262002E+00;
    x(63) = -0.196738383924232519642722397371E+00;
    x(64) = 0.0E+00;
    x(65) = 0.196738383924232519642722397371E+00;
    x(66) = 0.393506641851301365680378262002E+00;
    x(67) = 0.590334706809421021422304393461E+00;
    x(68) = 0.787252630218250341515968318790E+00;
    x(69) = 0.984290641940272777265689842138E+00;
    x(70) = 1.18147921137006858486785835984E+00;
    x(71) = 1.37884910992617780914415570537E+00;
    x(72) = 1.57643147532678013155195976219E+00;
    x(73) = 1.77425787805167915846764421037E+00;
    x(74) = 1.97236039041950200793247432276E+00;
    x(75) = 2.17077165874115068794984980837E+00;
    x(76) = 2.36952497904904010800124746457E+00;
    x(77) = 2.56865437694735017231440130224E+00;
    x(78) = 2.76819469218240588012265459589E+00;
    x(79) = 2.96818166859559102677616495215E+00;
    x(80) = 3.16865205019536301918577982615E+00;
    x(81) = 3.36964368417173978966436292400E+00;
    x(82) = 3.57119563177821804471997564852E+00;
    x(83) = 3.77334828812505267210046784001E+00;
    x(84) = 3.97614351206733559160358141959E+00;
    x(85) = 4.17962476753520313494211898924E+00;
    x(86) = 4.38383727784647362942537444075E+00;
    x(87) = 4.58882819476983729516064850312E+00;
    x(88) = 4.79464678437649250097485099309E+00;
    x(89) = 5.00134463203863600385208091074E+00;
    x(90) = 5.20897586931539835875702583722E+00;
    x(91) = 5.41759742592432407228484258729E+00;
    x(92) = 5.62726931054648166594234557949E+00;
    x(93) = 5.83805492487741873866016908078E+00;
    x(94) = 6.05002141614198456944654744824E+00;
    x(95) = 6.26324007427373543456097238571E+00;
    x(96) = 6.47778678116453654481449038215E+00;
    x(97) = 6.69374252087582941900744173817E+00;
    x(98) = 6.91119396154657131974656331094E+00;
    x(99) = 7.13023412203507106680640257134E+00;
    x(100) = 7.35096313922690527019612580437E+00;
    x(101) = 7.57348915560834540228349607633E+00;
    x(102) = 7.79792935138701054208291204556E+00;
    x(103) = 8.02441115147033755785947397968E+00;
    x(104) = 8.25307364544571565796941242439E+00;
    x(105) = 8.48406926898324733260971803400E+00;
    x(106) = 8.71756580870763073638339995485E+00;
    x(107) = 8.95374881085654043238078901700E+00;
    x(108) = 9.19282449884603057157741950525E+00;
    x(109) = 9.43502333898816501350195985063E+00;
    x(110) = 9.68060444124747280381507127327E+00;
    x(111) = 9.92986104951142507368470042737E+00;
    x(112) = 10.1831274734503438886241264504E+00;
    x(113) = 10.4407879577727728677425917980E+00;
    x(114) = 10.7032882010274813476709407447E+00;
    x(115) = 10.9711505698402474234230402639E+00;
    x(116) = 11.2449945837855434451943841943E+00;
    x(117) = 11.5255651125726965991678885886E+00;
    x(118) = 11.8137721982677271951345841362E+00;
    x(119) = 12.1107490209477476001321235081E+00;
    x(120) = 12.4179393788697158054458796241E+00;
    x(121) = 12.7372356524156863381380039241E+00;
    x(122) = 13.0712086604746019015839954396E+00;
    x(123) = 13.4235185900709500624382583219E+00;
    x(124) = 13.7997222902116766346452467467E+00;
    x(125) = 14.2090859952848707551682442509E+00;
    x(126) = 14.6695951588339726327463541129E+00;
    x(127) = 15.2283381481673509782469544335E+00;

    w(1) = 1.25044975770895101066558695394E-101;
    w(2) = 1.72727980594728851329952877284E-94;
    w(3) = 8.93216815722645216635320162557E-89;
    w(4) = 7.7306185241134158744827181222E-84;
    w(5) = 2.01439576527109443920782513994E-79;
    w(6) = 2.15037147336771602203551878273E-75;
    w(7) = 1.13419242086298913875376620343E-71;
    w(8) = 3.34891390118992716444169809114E-68;
    w(9) = 6.04865489642049179016214753843E-65;
    w(10) = 7.13750929465743002965122123123E-62;
    w(11) = 5.78845633750656959788340019085E-59;
    w(12) = 3.3581166223962736386929935773E-56;
    w(13) = 1.4394641949298720336141068619E-53;
    w(14) = 4.68218083833618292793410025836E-51;
    w(15) = 1.18170544407210392716367665268E-48;
    w(16) = 2.35816591560823143778744566357E-46;
    w(17) = 3.78144279409152203964384313149E-44;
    w(18) = 4.9411031115925407477456893331E-42;
    w(19) = 5.32553037755907921458489847863E-40;
    w(20) = 4.78543906802804099967221020647E-38;
    w(21) = 3.61918834460649868835433546523E-36;
    w(22) = 2.3232083386415854084664074623E-34;
    w(23) = 1.27533314110484056196532640642E-32;
    w(24) = 6.02777538509463291699314327193E-31;
    w(25) = 2.4679773241854004762148469348E-29;
    w(26) = 8.8019567691972403392314252914E-28;
    w(27) = 2.74824892121260880467531987939E-26;
    w(28) = 7.54682189033203465872349657723E-25;
    w(29) = 1.83031346363374264415878982576E-23;
    w(30) = 3.93559908609832906838466602268E-22;
    w(31) = 7.52931616388155067444192947319E-21;
    w(32) = 1.28579977867628696999762170542E-19;
    w(33) = 1.96593268885070384943390296306E-18;
    w(34) = 2.69865119072980851232572568063E-17;
    w(35) = 3.33444143033026256341061235315E-16;
    w(36) = 3.71733031252663248624409938613E-15;
    w(37) = 3.74739544729563577089986076081E-14;
    w(38) = 3.42300944935037851188976963928E-13;
    w(39) = 2.83853037250817094975750489262E-12;
    w(40) = 2.14069202905212884993201956606E-11;
    w(41) = 1.47063312734774830028408333227E-10;
    w(42) = 9.21739409677215086782446989876E-10;
    w(43) = 5.27816639371369729333040255118E-09;
    w(44) = 2.76504970450371674155194812923E-08;
    w(45) = 1.32678558425807549298485884004E-07;
    w(46) = 5.83809442762947462901022315301E-07;
    w(47) = 2.35815617248490159838145978859E-06;
    w(48) = 8.75244680345528247507614056972E-06;
    w(49) = 0.0000298767905360019901790649251988E+00;
    w(50) = 0.0000938744357203646866361259710004E+00;
    w(51) = 0.000271707626280157286781639661883E+00;
    w(52) = 0.000724939297427239633212185817821E+00;
    w(53) = 0.0017841208326818955520088211458E+00;
    w(54) = 0.00405248551861722466559241860023E+00;
    w(55) = 0.00850002630418086349941683729112E+00;
    w(56) = 0.0164711422416609467530350356258E+00;
    w(57) = 0.0294992962483054353948393364098E+00;
    w(58) = 0.0488473871144520262535428484316E+00;
    w(59) = 0.074807989768816537216026182806E+00;
    w(60) = 0.10598520508123912472195529192E+00;
    w(61) = 0.138939453090947794093360848265E+00;
    w(62) = 0.168562360742603870987330592834E+00;
    w(63) = 0.189278495801793364889704841035E+00;
    w(64) = 0.196733406888845140995323677102E+00;
    w(65) = 0.189278495801793364889704841035E+00;
    w(66) = 0.168562360742603870987330592834E+00;
    w(67) = 0.138939453090947794093360848265E+00;
    w(68) = 0.10598520508123912472195529192E+00;
    w(69) = 0.074807989768816537216026182806E+00;
    w(70) = 0.0488473871144520262535428484316E+00;
    w(71) = 0.0294992962483054353948393364098E+00;
    w(72) = 0.0164711422416609467530350356258E+00;
    w(73) = 0.00850002630418086349941683729112E+00;
    w(74) = 0.00405248551861722466559241860023E+00;
    w(75) = 0.0017841208326818955520088211458E+00;
    w(76) = 0.000724939297427239633212185817821E+00;
    w(77) = 0.000271707626280157286781639661883E+00;
    w(78) = 0.0000938744357203646866361259710004E+00;
    w(79) = 0.0000298767905360019901790649251988E+00;
    w(80) = 8.75244680345528247507614056972E-06;
    w(81) = 2.35815617248490159838145978859E-06;
    w(82) = 5.83809442762947462901022315301E-07;
    w(83) = 1.32678558425807549298485884004E-07;
    w(84) = 2.76504970450371674155194812923E-08;
    w(85) = 5.27816639371369729333040255118E-09;
    w(86) = 9.21739409677215086782446989876E-10;
    w(87) = 1.47063312734774830028408333227E-10;
    w(88) = 2.14069202905212884993201956606E-11;
    w(89) = 2.83853037250817094975750489262E-12;
    w(90) = 3.42300944935037851188976963928E-13;
    w(91) = 3.74739544729563577089986076081E-14;
    w(92) = 3.71733031252663248624409938613E-15;
    w(93) = 3.33444143033026256341061235315E-16;
    w(94) = 2.69865119072980851232572568063E-17;
    w(95) = 1.96593268885070384943390296306E-18;
    w(96) = 1.28579977867628696999762170542E-19;
    w(97) = 7.52931616388155067444192947319E-21;
    w(98) = 3.93559908609832906838466602268E-22;
    w(99) = 1.83031346363374264415878982576E-23;
    w(100) = 7.54682189033203465872349657723E-25;
    w(101) = 2.74824892121260880467531987939E-26;
    w(102) = 8.8019567691972403392314252914E-28;
    w(103) = 2.4679773241854004762148469348E-29;
    w(104) = 6.02777538509463291699314327193E-31;
    w(105) = 1.27533314110484056196532640642E-32;
    w(106) = 2.3232083386415854084664074623E-34;
    w(107) = 3.61918834460649868835433546523E-36;
    w(108) = 4.78543906802804099967221020647E-38;
    w(109) = 5.32553037755907921458489847863E-40;
    w(110) = 4.9411031115925407477456893331E-42;
    w(111) = 3.78144279409152203964384313149E-44;
    w(112) = 2.35816591560823143778744566357E-46;
    w(113) = 1.18170544407210392716367665268E-48;
    w(114) = 4.68218083833618292793410025836E-51;
    w(115) = 1.4394641949298720336141068619E-53;
    w(116) = 3.3581166223962736386929935773E-56;
    w(117) = 5.78845633750656959788340019085E-59;
    w(118) = 7.13750929465743002965122123123E-62;
    w(119) = 6.04865489642049179016214753843E-65;
    w(120) = 3.34891390118992716444169809114E-68;
    w(121) = 1.13419242086298913875376620343E-71;
    w(122) = 2.15037147336771602203551878273E-75;
    w(123) = 2.01439576527109443920782513994E-79;
    w(124) = 7.7306185241134158744827181222E-84;
    w(125) = 8.93216815722645216635320162557E-89;
    w(126) = 1.72727980594728851329952877284E-94;
    w(127) = 1.25044975770895101066558695394E-101;

  elseif ( n == 128 )

    x(1) = -15.2918197668827409717467886552E+00;
    x(2) = -14.7338424735892990556131447177E+00;
    x(3) = -14.2739813047878355625094356564E+00;
    x(4) = -13.8652069844762415897768433203E+00;
    x(5) = -13.4895564126231418263791177750E+00;
    x(6) = -13.1377747880276511010650586719E+00;
    x(7) = -12.8043120820671312950137141654E+00;
    x(8) = -12.4855125853494481606990566084E+00;
    x(9) = -12.1788086198312463132740693095E+00;
    x(10) = -11.8823101188783115808359168093E+00;
    x(11) = -11.5945750547414517467820845908E+00;
    x(12) = -11.3144716442899779172120028451E+00;
    x(13) = -11.0410909760196333842428986719E+00;
    x(14) = -10.7736891151614406713116609896E+00;
    x(15) = -10.5116473299148686173941369279E+00;
    x(16) = -10.2544439284709307170245436605E+00;
    x(17) = -10.0016337989301228460111363000E+00;
    x(18) = -9.75283321343916867454942614151E+00;
    x(19) = -9.50770832327905657695490182674E+00;
    x(20) = -9.26596630029617592185364037517E+00;
    x(21) = -9.02734841339478834482665573280E+00;
    x(22) = -8.79162454488868640635040291427E+00;
    x(23) = -8.55858879506450828896030380072E+00;
    x(24) = -8.32805592079014664500802003672E+00;
    x(25) = -8.09985842150789607545794348110E+00;
    x(26) = -7.87384413353543446678710891884E+00;
    x(27) = -7.64987422768100656113184995327E+00;
    x(28) = -7.42782152995230111565739552073E+00;
    x(29) = -7.20756910338733385441779947109E+00;
    x(30) = -6.98900904264477401185223744438E+00;
    x(31) = -6.77204144325592885820688621877E+00;
    x(32) = -6.55657351526448288962578894289E+00;
    x(33) = -6.34251881700177947172938955573E+00;
    x(34) = -6.12979658942216202462059597877E+00;
    x(35) = -5.91833117508581167511681743446E+00;
    x(36) = -5.70805150876808626177490879113E+00;
    x(37) = -5.49889066897390948452218926009E+00;
    x(38) = -5.29078548147717957643674180866E+00;
    x(39) = -5.08367616748933990673505368300E+00;
    x(40) = -4.87750603026481441216755173491E+00;
    x(41) = -4.67222117493263892214567470373E+00;
    x(42) = -4.46777025714858268344631831723E+00;
    x(43) = -4.26410425682551915674979043600E+00;
    x(44) = -4.06117627374927282427754765790E+00;
    x(45) = -3.85894134234428182659062673118E+00;
    x(46) = -3.65735626323530809623058740618E+00;
    x(47) = -3.45637944957173748220943445337E+00;
    x(48) = -3.25597078635065934665290567700E+00;
    x(49) = -3.05609150120268005595784091684E+00;
    x(50) = -2.85670404529740528265184910544E+00;
    x(51) = -2.65777198318948399631081621992E+00;
    x(52) = -2.45925989056573940193677619199E+00;
    x(53) = -2.26113325897306228028420817752E+00;
    x(54) = -2.06335840670856597768175136750E+00;
    x(55) = -1.86590239514059869664912407799E+00;
    x(56) = -1.66873294980372363048660121191E+00;
    x(57) = -1.47181838567448600067837560546E+00;
    x(58) = -1.27512753608915832143251082623E+00;
    x(59) = -1.07862968481090893047100757570E+00;
    x(60) = -0.882294500792981406000508343227E+00;
    x(61) = -0.686091975217334872045286432691E+00;
    x(62) = -0.489992360415458918089044385637E+00;
    x(63) = -0.293966110300295702813351867404E+00;
    x(64) = -0.0979838219558189543137713246862E+00;
    x(65) = 0.0979838219558189543137713246862E+00;
    x(66) = 0.293966110300295702813351867404E+00;
    x(67) = 0.489992360415458918089044385637E+00;
    x(68) = 0.686091975217334872045286432691E+00;
    x(69) = 0.882294500792981406000508343227E+00;
    x(70) = 1.07862968481090893047100757570E+00;
    x(71) = 1.27512753608915832143251082623E+00;
    x(72) = 1.47181838567448600067837560546E+00;
    x(73) = 1.66873294980372363048660121191E+00;
    x(74) = 1.86590239514059869664912407799E+00;
    x(75) = 2.06335840670856597768175136750E+00;
    x(76) = 2.26113325897306228028420817752E+00;
    x(77) = 2.45925989056573940193677619199E+00;
    x(78) = 2.65777198318948399631081621992E+00;
    x(79) = 2.85670404529740528265184910544E+00;
    x(80) = 3.05609150120268005595784091684E+00;
    x(81) = 3.25597078635065934665290567700E+00;
    x(82) = 3.45637944957173748220943445337E+00;
    x(83) = 3.65735626323530809623058740618E+00;
    x(84) = 3.85894134234428182659062673118E+00;
    x(85) = 4.06117627374927282427754765790E+00;
    x(86) = 4.26410425682551915674979043600E+00;
    x(87) = 4.46777025714858268344631831723E+00;
    x(88) = 4.67222117493263892214567470373E+00;
    x(89) = 4.87750603026481441216755173491E+00;
    x(90) = 5.08367616748933990673505368300E+00;
    x(91) = 5.29078548147717957643674180866E+00;
    x(92) = 5.49889066897390948452218926009E+00;
    x(93) = 5.70805150876808626177490879113E+00;
    x(94) = 5.91833117508581167511681743446E+00;
    x(95) = 6.12979658942216202462059597877E+00;
    x(96) = 6.34251881700177947172938955573E+00;
    x(97) = 6.55657351526448288962578894289E+00;
    x(98) = 6.77204144325592885820688621877E+00;
    x(99) = 6.98900904264477401185223744438E+00;
    x(100) = 7.20756910338733385441779947109E+00;
    x(101) = 7.42782152995230111565739552073E+00;
    x(102) = 7.64987422768100656113184995327E+00;
    x(103) = 7.87384413353543446678710891884E+00;
    x(104) = 8.09985842150789607545794348110E+00;
    x(105) = 8.32805592079014664500802003672E+00;
    x(106) = 8.55858879506450828896030380072E+00;
    x(107) = 8.79162454488868640635040291427E+00;
    x(108) = 9.02734841339478834482665573280E+00;
    x(109) = 9.26596630029617592185364037517E+00;
    x(110) = 9.50770832327905657695490182674E+00;
    x(111) = 9.75283321343916867454942614151E+00;
    x(112) = 10.0016337989301228460111363000E+00;
    x(113) = 10.2544439284709307170245436605E+00;
    x(114) = 10.5116473299148686173941369279E+00;
    x(115) = 10.7736891151614406713116609896E+00;
    x(116) = 11.0410909760196333842428986719E+00;
    x(117) = 11.3144716442899779172120028451E+00;
    x(118) = 11.5945750547414517467820845908E+00;
    x(119) = 11.8823101188783115808359168093E+00;
    x(120) = 12.1788086198312463132740693095E+00;
    x(121) = 12.4855125853494481606990566084E+00;
    x(122) = 12.8043120820671312950137141654E+00;
    x(123) = 13.1377747880276511010650586719E+00;
    x(124) = 13.4895564126231418263791177750E+00;
    x(125) = 13.8652069844762415897768433203E+00;
    x(126) = 14.2739813047878355625094356564E+00;
    x(127) = 14.7338424735892990556131447177E+00;
    x(128) = 15.2918197668827409717467886552E+00;

    w(1) = 1.79906598010928472082336338805E-102;
    w(2) = 2.60817240240911107924885148459E-95;
    w(3) = 1.40468977131508863479865725345E-89;
    w(4) = 1.2612494833385383033093221663E-84;
    w(5) = 3.4012300869366371268669286673E-80;
    w(6) = 3.75121586880472499656274624235E-76;
    w(7) = 2.04158579724398501580069247379E-72;
    w(8) = 6.21424416183031366240930730224E-69;
    w(9) = 1.15615516409637521334725409468E-65;
    w(10) = 1.40446725774048726044186592003E-62;
    w(11) = 1.17197850121298051738559888373E-59;
    w(12) = 6.9930729240519559879874741506E-57;
    w(13) = 3.08207738333929868710425541163E-54;
    w(14) = 1.03048625205569473422672330856E-51;
    w(15) = 2.67274375173606785452021989916E-49;
    w(16) = 5.48021702897879649820616283051E-47;
    w(17) = 9.02804013878664400917961564574E-45;
    w(18) = 1.21177953413059190735434940091E-42;
    w(19) = 1.34149748176436936696556841563E-40;
    w(20) = 1.2380855579763680376188381669E-38;
    w(21) = 9.6167080679675069775952182446E-37;
    w(22) = 6.33991352636648906076753997388E-35;
    w(23) = 3.57437889587942107216457034803E-33;
    w(24) = 1.73510302028206120881601688138E-31;
    w(25) = 7.29654500676840425381868704321E-30;
    w(26) = 2.67292362005807324017266437183E-28;
    w(27) = 8.5728304837693537445493254974E-27;
    w(28) = 2.41840345964766496960390574396E-25;
    w(29) = 6.02598403200645428864656987226E-24;
    w(30) = 1.33136785903358960440599429474E-22;
    w(31) = 2.61745758393481115586873166674E-21;
    w(32) = 4.59400767732972159221172605389E-20;
    w(33) = 7.22010731692829201964437734131E-19;
    w(34) = 1.01893323042329252403658204469E-17;
    w(35) = 1.2945481593393715343954569556E-16;
    w(36) = 1.4842238375138564829118955689E-15;
    w(37) = 1.53904973035354581424981070383E-14;
    w(38) = 1.44634732119041656320590928428E-13;
    w(39) = 1.23421448660055669081623604437E-12;
    w(40) = 9.58031650873585770862066358548E-12;
    w(41) = 6.77578048777455378630839649193E-11;
    w(42) = 4.37318665984840344563217253619E-10;
    w(43) = 2.57939722942639480114980569527E-9;
    w(44) = 1.39219071529351788119578816175E-8;
    w(45) = 6.88458112215435009064406266312E-8;
    w(46) = 3.12287298617890308197944991751E-7;
    w(47) = 1.30074700323819923351375586698E-6;
    w(48) = 4.97992453259098701134099270598E-6;
    w(49) = 0.0000175404858480939050383677619791E+00;
    w(50) = 0.0000568874376004024109270187885882E+00;
    w(51) = 0.000170014088262809409409897155763E+00;
    w(52) = 0.000468551537808411365479802126842E+00;
    w(53) = 0.00119156381445716723911680561041E+00;
    w(54) = 0.00279783940160578927319080368252E+00;
    w(55) = 0.00606886240692588762066801419927E+00;
    w(56) = 0.0121669188644693394910166328856E+00;
    w(57) = 0.0225543101678244224102498222492E+00;
    w(58) = 0.0386739548106369026550248867136E+00;
    w(59) = 0.061360721004490065664651069257E+00;
    w(60) = 0.090108678376448919548057439804E+00;
    w(61) = 0.122503273164135694618664605611E+00;
    w(62) = 0.154210435298354383363527713284E+00;
    w(63) = 0.179773083907799264988697956102E+00;
    w(64) = 0.194097611864087756977697028723E+00;
    w(65) = 0.194097611864087756977697028723E+00;
    w(66) = 0.179773083907799264988697956102E+00;
    w(67) = 0.154210435298354383363527713284E+00;
    w(68) = 0.122503273164135694618664605611E+00;
    w(69) = 0.090108678376448919548057439804E+00;
    w(70) = 0.061360721004490065664651069257E+00;
    w(71) = 0.0386739548106369026550248867136E+00;
    w(72) = 0.0225543101678244224102498222492E+00;
    w(73) = 0.0121669188644693394910166328856E+00;
    w(74) = 0.00606886240692588762066801419927E+00;
    w(75) = 0.00279783940160578927319080368252E+00;
    w(76) = 0.00119156381445716723911680561041E+00;
    w(77) = 0.000468551537808411365479802126842E+00;
    w(78) = 0.000170014088262809409409897155763E+00;
    w(79) = 0.0000568874376004024109270187885882E+00;
    w(80) = 0.0000175404858480939050383677619791E+00;
    w(81) = 4.97992453259098701134099270598E-06;
    w(82) = 1.30074700323819923351375586698E-06;
    w(83) = 3.12287298617890308197944991751E-07;
    w(84) = 6.88458112215435009064406266312E-08;
    w(85) = 1.39219071529351788119578816175E-08;
    w(86) = 2.57939722942639480114980569527E-09;
    w(87) = 4.37318665984840344563217253619E-10;
    w(88) = 6.77578048777455378630839649193E-11;
    w(89) = 9.58031650873585770862066358548E-12;
    w(90) = 1.23421448660055669081623604437E-12;
    w(91) = 1.44634732119041656320590928428E-13;
    w(92) = 1.53904973035354581424981070383E-14;
    w(93) = 1.4842238375138564829118955689E-15;
    w(94) = 1.2945481593393715343954569556E-16;
    w(95) = 1.01893323042329252403658204469E-17;
    w(96) = 7.22010731692829201964437734131E-19;
    w(97) = 4.59400767732972159221172605389E-20;
    w(98) = 2.61745758393481115586873166674E-21;
    w(99) = 1.33136785903358960440599429474E-22;
    w(100) = 6.02598403200645428864656987226E-24;
    w(101) = 2.41840345964766496960390574396E-25;
    w(102) = 8.5728304837693537445493254974E-27;
    w(103) = 2.67292362005807324017266437183E-28;
    w(104) = 7.29654500676840425381868704321E-30;
    w(105) = 1.73510302028206120881601688138E-31;
    w(106) = 3.57437889587942107216457034803E-33;
    w(107) = 6.33991352636648906076753997388E-35;
    w(108) = 9.6167080679675069775952182446E-37;
    w(109) = 1.2380855579763680376188381669E-38;
    w(110) = 1.34149748176436936696556841563E-40;
    w(111) = 1.21177953413059190735434940091E-42;
    w(112) = 9.02804013878664400917961564574E-45;
    w(113) = 5.48021702897879649820616283051E-47;
    w(114) = 2.67274375173606785452021989916E-49;
    w(115) = 1.03048625205569473422672330856E-51;
    w(116) = 3.08207738333929868710425541163E-54;
    w(117) = 6.9930729240519559879874741506E-57;
    w(118) = 1.17197850121298051738559888373E-59;
    w(119) = 1.40446725774048726044186592003E-62;
    w(120) = 1.15615516409637521334725409468E-65;
    w(121) = 6.21424416183031366240930730224E-69;
    w(122) = 2.04158579724398501580069247379E-72;
    w(123) = 3.75121586880472499656274624235E-76;
    w(124) = 3.4012300869366371268669286673E-80;
    w(125) = 1.2612494833385383033093221663E-84;
    w(126) = 1.40468977131508863479865725345E-89;
    w(127) = 2.60817240240911107924885148459E-95;
    w(128) = 1.79906598010928472082336338805E-102;

  elseif ( n == 129 )

    x(1) = -15.3550496746831285549167746019E+00;
    x(2) = -14.7978308964903080628845608050E+00;
    x(3) = -14.3386115290089672811362217078E+00;
    x(4) = -13.9304208664791805435265533989E+00;
    x(5) = -13.5553179661308567022816946453E+00;
    x(6) = -13.2040593596741921982903144147E+00;
    x(7) = -12.8711017789036282758938040681E+00;
    x(8) = -12.5527939524445397878411009214E+00;
    x(9) = -12.2465713150240016840404064819E+00;
    x(10) = -11.9505460927691823148587203418E+00;
    x(11) = -11.6632780120689523111895976521E+00;
    x(12) = -11.3836366735119364919041401601E+00;
    x(13) = -11.1107142851416459382067369906E+00;
    x(14) = -10.8437678377155441232588867872E+00;
    x(15) = -10.5821793789735138638177686355E+00;
    x(16) = -10.3254278845735933555309803756E+00;
    x(17) = -10.0730688225840385168071109595E+00;
    x(18) = -9.82471897583315292981163227664E+00;
    x(19) = -9.58004495076523054718996925368E+00;
    x(20) = -9.33875432946329683313144773753E+00;
    x(21) = -9.10058875441877630705419698871E+00;
    x(22) = -8.86531845144460445006059884245E+00;
    x(23) = -8.63273783950843552405601767759E+00;
    x(24) = -8.40266197362535012572889592790E+00;
    x(25) = -8.17492363437398978801516910338E+00;
    x(26) = -7.94937092512605027069441566240E+00;
    x(27) = -7.72586527212128476858225880726E+00;
    x(28) = -7.50427974726352240601473698475E+00;
    x(29) = -7.28449765174015372725258835236E+00;
    x(30) = -7.06641131216039069912389691607E+00;
    x(31) = -6.84992105116014925339717178568E+00;
    x(32) = -6.63493430223598850302862096202E+00;
    x(33) = -6.42136484458510366813184121466E+00;
    x(34) = -6.20913213839958724139275362341E+00;
    x(35) = -5.99816074472179863235247556956E+00;
    x(36) = -5.78837981685588271189500366573E+00;
    x(37) = -5.57972265262736517721195076411E+00;
    x(38) = -5.37212629862206810544406569124E+00;
    x(39) = -5.16553119901808798749445925424E+00;
    x(40) = -4.95988088282680494441019859192E+00;
    x(41) = -4.75512168433945660698412105871E+00;
    x(42) = -4.55120249237992751786552441506E+00;
    x(43) = -4.34807452462720039287086617988E+00;
    x(44) = -4.14569112381985885943227755134E+00;
    x(45) = -3.94400757311174034591077592589E+00;
    x(46) = -3.74298092822942697020355662873E+00;
    x(47) = -3.54256986440235708810942555303E+00;
    x(48) = -3.34273453630584653564135188865E+00;
    x(49) = -3.14343644948499981855157130224E+00;
    x(50) = -2.94463834192045889859029200431E+00;
    x(51) = -2.74630407456093830886162508356E+00;
    x(52) = -2.54839852978722422234239962660E+00;
    x(53) = -2.35088751689161374336515868011E+00;
    x(54) = -2.15373768375879465132813086025E+00;
    x(55) = -1.95691643402151503173496953711E+00;
    x(56) = -1.76039184903921457004681976795E+00;
    x(57) = -1.56413261411186298656139617983E+00;
    x(58) = -1.36810794839605047973791359079E+00;
    x(59) = -1.17228753803712318264391216760E+00;
    x(60) = -0.976641472070867557126534700881E+00;
    x(61) = -0.781140180681760289238140546741E+00;
    x(62) = -0.585754375432805697119652981369E+00;
    x(63) = -0.390454991105046004780513867383E+00;
    x(64) = -0.195213128803407573801607754230E+00;
    x(65) = 0.0E+00;
    x(66) = 0.195213128803407573801607754230E+00;
    x(67) = 0.390454991105046004780513867383E+00;
    x(68) = 0.585754375432805697119652981369E+00;
    x(69) = 0.781140180681760289238140546741E+00;
    x(70) = 0.976641472070867557126534700881E+00;
    x(71) = 1.17228753803712318264391216760E+00;
    x(72) = 1.36810794839605047973791359079E+00;
    x(73) = 1.56413261411186298656139617983E+00;
    x(74) = 1.76039184903921457004681976795E+00;
    x(75) = 1.95691643402151503173496953711E+00;
    x(76) = 2.15373768375879465132813086025E+00;
    x(77) = 2.35088751689161374336515868011E+00;
    x(78) = 2.54839852978722422234239962660E+00;
    x(79) = 2.74630407456093830886162508356E+00;
    x(80) = 2.94463834192045889859029200431E+00;
    x(81) = 3.14343644948499981855157130224E+00;
    x(82) = 3.34273453630584653564135188865E+00;
    x(83) = 3.54256986440235708810942555303E+00;
    x(84) = 3.74298092822942697020355662873E+00;
    x(85) = 3.94400757311174034591077592589E+00;
    x(86) = 4.14569112381985885943227755134E+00;
    x(87) = 4.34807452462720039287086617988E+00;
    x(88) = 4.55120249237992751786552441506E+00;
    x(89) = 4.75512168433945660698412105871E+00;
    x(90) = 4.95988088282680494441019859192E+00;
    x(91) = 5.16553119901808798749445925424E+00;
    x(92) = 5.37212629862206810544406569124E+00;
    x(93) = 5.57972265262736517721195076411E+00;
    x(94) = 5.78837981685588271189500366573E+00;
    x(95) = 5.99816074472179863235247556956E+00;
    x(96) = 6.20913213839958724139275362341E+00;
    x(97) = 6.42136484458510366813184121466E+00;
    x(98) = 6.63493430223598850302862096202E+00;
    x(99) = 6.84992105116014925339717178568E+00;
    x(100) = 7.06641131216039069912389691607E+00;
    x(101) = 7.28449765174015372725258835236E+00;
    x(102) = 7.50427974726352240601473698475E+00;
    x(103) = 7.72586527212128476858225880726E+00;
    x(104) = 7.94937092512605027069441566240E+00;
    x(105) = 8.17492363437398978801516910338E+00;
    x(106) = 8.40266197362535012572889592790E+00;
    x(107) = 8.63273783950843552405601767759E+00;
    x(108) = 8.86531845144460445006059884245E+00;
    x(109) = 9.10058875441877630705419698871E+00;
    x(110) = 9.33875432946329683313144773753E+00;
    x(111) = 9.58004495076523054718996925368E+00;
    x(112) = 9.82471897583315292981163227664E+00;
    x(113) = 10.0730688225840385168071109595E+00;
    x(114) = 10.3254278845735933555309803756E+00;
    x(115) = 10.5821793789735138638177686355E+00;
    x(116) = 10.8437678377155441232588867872E+00;
    x(117) = 11.1107142851416459382067369906E+00;
    x(118) = 11.3836366735119364919041401601E+00;
    x(119) = 11.6632780120689523111895976521E+00;
    x(120) = 11.9505460927691823148587203418E+00;
    x(121) = 12.2465713150240016840404064819E+00;
    x(122) = 12.5527939524445397878411009214E+00;
    x(123) = 12.8711017789036282758938040681E+00;
    x(124) = 13.2040593596741921982903144147E+00;
    x(125) = 13.5553179661308567022816946453E+00;
    x(126) = 13.9304208664791805435265533989E+00;
    x(127) = 14.3386115290089672811362217078E+00;
    x(128) = 14.7978308964903080628845608050E+00;
    x(129) = 15.3550496746831285549167746019E+00;

    w(1) = 2.58755395082114927399064139631E-103;
    w(2) = 3.93601845908067608811461078697E-96;
    w(3) = 2.20725529577484588586177997021E-90;
    w(4) = 2.05563087297774646200941835216E-85;
    w(5) = 5.73584763407311509769038083955E-81;
    w(6) = 6.53456499014096713882711627986E-77;
    w(7) = 3.66903606454555600244832281797E-73;
    w(8) = 1.15105101975113879079427442365E-69;
    w(9) = 2.20553774145133363585421051568E-66;
    w(10) = 2.75763663311195533797446164671E-63;
    w(11) = 2.36731747071610805241477009401E-60;
    w(12) = 1.45257860403230704544333281907E-57;
    w(13) = 6.58119121529392093666305170751E-55;
    w(14) = 2.26137732951303228667152914802E-52;
    w(15) = 6.02643011329776195986432204924E-50;
    w(16) = 1.26938407638088455004457398255E-47;
    w(17) = 2.14791778799787733305388107076E-45;
    w(18) = 2.96092183537878053158423564486E-43;
    w(19) = 3.36616090532826422441501486485E-41;
    w(20) = 3.19014783528482307711547124192E-39;
    w(21) = 2.54439796712780366695746038013E-37;
    w(22) = 1.72239465322100711581154624691E-35;
    w(23) = 9.97105538735197785176257533162E-34;
    w(24) = 4.97009943352064894027841342072E-32;
    w(25) = 2.14620630607238052957787041268E-30;
    w(26) = 8.07377921555793000987040030256E-29;
    w(27) = 2.65936924028161851577004868287E-27;
    w(28) = 7.70515053183270746145645250031E-26;
    w(29) = 1.97204966381589933881729892459E-24;
    w(30) = 4.47579713475437089012921294273E-23;
    w(31) = 9.0403370335874459959906960673E-22;
    w(32) = 1.63036407035294103578729410788E-20;
    w(33) = 2.63320491826449443345354482912E-19;
    w(34) = 3.81944198027838553902522199764E-18;
    w(35) = 4.98833273307808866457667338365E-17;
    w(36) = 5.88022772755071728094452091844E-16;
    w(37) = 6.27023947714728862011748531319E-15;
    w(38) = 6.06072571359080078068964155295E-14;
    w(39) = 5.32049070753884105044682362639E-13;
    w(40) = 4.24955065877498808023415505556E-12;
    w(41) = 3.09330203932473692244204789801E-11;
    w(42) = 2.05524352987860630455845773203E-10;
    w(43) = 1.2482251818681431772545606389E-09;
    w(44) = 6.93896714453731562418029048785E-09;
    w(45) = 3.53518234605234028369262582274E-08;
    w(46) = 1.65252704577539544523562160076E-07;
    w(47) = 7.09535030601389014268064639021E-07;
    w(48) = 2.80106033677073567813925250808E-06;
    w(49) = 0.0000101764715414468349837840217278E+00;
    w(50) = 0.0000340541841724020078441933069804E+00;
    w(51) = 0.000105047486997647220847004754607E+00;
    w(52) = 0.000298922505941519029186629138321E+00;
    w(53) = 0.000785197220610268688197653195861E+00;
    w(54) = 0.00190506673927936544347937172051E+00;
    w(55) = 0.00427162074179231114560048384305E+00;
    w(56) = 0.00885609926394363549300290104701E+00;
    w(57) = 0.0169845117091580731620255503875E+00;
    w(58) = 0.0301436534848915408822025025241E+00;
    w(59) = 0.0495245901368945546436264039895E+00;
    w(60) = 0.0753454506416603410859342903275E+00;
    w(61) = 0.106172669789632918045101372957E+00;
    w(62) = 0.138604146980788427972651263139E+00;
    w(63) = 0.167654732143619067997522798882E+00;
    w(64) = 0.187923095463858179335367694936E+00;
    w(65) = 0.195208341719164170910088609838E+00;
    w(66) = 0.187923095463858179335367694936E+00;
    w(67) = 0.167654732143619067997522798882E+00;
    w(68) = 0.138604146980788427972651263139E+00;
    w(69) = 0.106172669789632918045101372957E+00;
    w(70) = 0.0753454506416603410859342903275E+00;
    w(71) = 0.0495245901368945546436264039895E+00;
    w(72) = 0.0301436534848915408822025025241E+00;
    w(73) = 0.0169845117091580731620255503875E+00;
    w(74) = 0.00885609926394363549300290104701E+00;
    w(75) = 0.00427162074179231114560048384305E+00;
    w(76) = 0.00190506673927936544347937172051E+00;
    w(77) = 0.000785197220610268688197653195861E+00;
    w(78) = 0.000298922505941519029186629138321E+00;
    w(79) = 0.000105047486997647220847004754607E+00;
    w(80) = 0.0000340541841724020078441933069804E+00;
    w(81) = 0.0000101764715414468349837840217278E+00;
    w(82) = 2.80106033677073567813925250808E-06;
    w(83) = 7.09535030601389014268064639021E-07;
    w(84) = 1.65252704577539544523562160076E-07;
    w(85) = 3.53518234605234028369262582274E-08;
    w(86) = 6.93896714453731562418029048785E-09;
    w(87) = 1.2482251818681431772545606389E-09;
    w(88) = 2.05524352987860630455845773203E-10;
    w(89) = 3.09330203932473692244204789801E-11;
    w(90) = 4.24955065877498808023415505556E-12;
    w(91) = 5.32049070753884105044682362639E-13;
    w(92) = 6.06072571359080078068964155295E-14;
    w(93) = 6.27023947714728862011748531319E-15;
    w(94) = 5.88022772755071728094452091844E-16;
    w(95) = 4.98833273307808866457667338365E-17;
    w(96) = 3.81944198027838553902522199764E-18;
    w(97) = 2.63320491826449443345354482912E-19;
    w(98) = 1.63036407035294103578729410788E-20;
    w(99) = 9.0403370335874459959906960673E-22;
    w(100) = 4.47579713475437089012921294273E-23;
    w(101) = 1.97204966381589933881729892459E-24;
    w(102) = 7.70515053183270746145645250031E-26;
    w(103) = 2.65936924028161851577004868287E-27;
    w(104) = 8.07377921555793000987040030256E-29;
    w(105) = 2.14620630607238052957787041268E-30;
    w(106) = 4.97009943352064894027841342072E-32;
    w(107) = 9.97105538735197785176257533162E-34;
    w(108) = 1.72239465322100711581154624691E-35;
    w(109) = 2.54439796712780366695746038013E-37;
    w(110) = 3.19014783528482307711547124192E-39;
    w(111) = 3.36616090532826422441501486485E-41;
    w(112) = 2.96092183537878053158423564486E-43;
    w(113) = 2.14791778799787733305388107076E-45;
    w(114) = 1.26938407638088455004457398255E-47;
    w(115) = 6.02643011329776195986432204924E-50;
    w(116) = 2.26137732951303228667152914802E-52;
    w(117) = 6.58119121529392093666305170751E-55;
    w(118) = 1.45257860403230704544333281907E-57;
    w(119) = 2.36731747071610805241477009401E-60;
    w(120) = 2.75763663311195533797446164671E-63;
    w(121) = 2.20553774145133363585421051568E-66;
    w(122) = 1.15105101975113879079427442365E-69;
    w(123) = 3.66903606454555600244832281797E-73;
    w(124) = 6.53456499014096713882711627986E-77;
    w(125) = 5.73584763407311509769038083955E-81;
    w(126) = 2.05563087297774646200941835216E-85;
    w(127) = 2.20725529577484588586177997021E-90;
    w(128) = 3.93601845908067608811461078697E-96;
    w(129) = 2.58755395082114927399064139631E-103;
    
  else

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

  end

  return
end
