function [ xtab, weight ] = hermite_set ( order )

%% HERMITE_SET sets abscissas and weights for Hermite quadrature.
%
%  Discussion:
%
%    The integration interval is ( -oo, +oo ).
%
%    The weight function is w(x) = exp ( - x*x ).
%
%    The integral to approximate:
%
%      Integral ( -oo < X < +oo ) exp ( - X*X ) * F(X) dX
%
%    The quadrature rule:
%
%      Sum ( 1 <= I <= ORDER ) WEIGHT(I) * F ( XTAB(I) ).
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    03 October 2007
%
%  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.
%
%    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 ORDER, the order of the rule.
%    NORDER must be between 1 and 20, or one of the values
%    30, 31, 32, 40, 50, 60, 63, 64 or 127.
%
%    Output, real XTAB(ORDER), the abscissas of the rule,
%    which are symmetrically placed around 0.
%
%    Output, real WEIGHT(ORDER), the weights of the rule.
%    The weights are positive and symmetric, and should sum
%    to SQRT(PI).
%
  if ( order == 1 )

    xtab(1) = 0.0;

    weight(1) = 1.77245385090551602729816748334;

  elseif ( order == 2 )

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

    weight(1) = 0.886226925452758013649083741671;
    weight(2) = 0.886226925452758013649083741671;

  elseif ( order == 3 )

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

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

  elseif ( order == 4 )

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

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

  elseif ( order == 5 )

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

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

  elseif ( order == 6 )

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

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

  elseif ( order == 7 )

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

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

  elseif ( order == 8 )

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

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

  elseif ( order == 9 )

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

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

  elseif ( order == 10 )

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

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

  elseif ( order == 11 )

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

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

  elseif ( order == 12 )

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

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

  elseif ( order == 13 )

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

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

  elseif ( order == 14 )

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

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

  elseif ( order == 15 )

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

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

  elseif ( order == 16 )

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

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

  elseif ( order == 17 )

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

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

  elseif ( order == 18 )

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

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

  elseif ( order == 19 )

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

  elseif ( order == 20 )

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

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

  elseif ( order == 30 )

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

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

  elseif ( order == 31 )
 
    xtab(  1) =   -6.9956801237185402753248521473232E+00;    
    xtab(  2) =   -6.2750787049428601427036567812530E+00;    
    xtab(  3) =   -5.6739614446185883296332558789276E+00;    
    xtab(  4) =   -5.1335955771123807045862968913996E+00;    
    xtab(  5) =   -4.6315595063128599420667997654336E+00;    
    xtab(  6) =   -4.1562717558181451724831352315314E+00;    
    xtab(  7) =   -3.7007434032314694224497164589673E+00;    
    xtab(  8) =   -3.2603207323135408104645401509648E+00;    
    xtab(  9) =   -2.8316804533902054557015640151425E+00;    
    xtab( 10) =   -2.4123177054804201051740184582119E+00;    
    xtab( 11) =   -2.0002585489356389657975562598571E+00;    
    xtab( 12) =   -1.5938858604721398261388419455550E+00;    
    xtab( 13) =   -1.1918269983500464260821358649242E+00;    
    xtab( 14) =  -0.79287697691530893968593032998830E+00;    
    xtab( 15) =  -0.39594273647142311094670041663436E+00;    
    xtab( 16) =    0.0000000000000000000000000000000E+00;    
    xtab( 17) =   0.39594273647142311094670041663436E+00;    
    xtab( 18) =   0.79287697691530893968593032998830E+00;    
    xtab( 19) =    1.1918269983500464260821358649242E+00;    
    xtab( 20) =    1.5938858604721398261388419455550E+00;    
    xtab( 21) =    2.0002585489356389657975562598571E+00;    
    xtab( 22) =    2.4123177054804201051740184582119E+00;    
    xtab( 23) =    2.8316804533902054557015640151425E+00;    
    xtab( 24) =    3.2603207323135408104645401509648E+00;    
    xtab( 25) =    3.7007434032314694224497164589673E+00;    
    xtab( 26) =    4.1562717558181451724831352315314E+00;    
    xtab( 27) =    4.6315595063128599420667997654336E+00;    
    xtab( 28) =    5.1335955771123807045862968913996E+00;    
    xtab( 29) =    5.6739614446185883296332558789276E+00;    
    xtab( 30) =    6.2750787049428601427036567812530E+00;    
    xtab( 31) =    6.9956801237185402753248521473232E+00;    
 
    weight(  1) =   0.46189683944498305857470556847735E-21;
    weight(  2) =   0.51106090079112519643027197715274E-17;
    weight(  3) =   0.58995564987355133075257722133966E-14;
    weight(  4) =   0.18603735214463569590294465062239E-11;
    weight(  5) =   0.23524920032013205739850619940094E-09;
    weight(  6) =   0.14611988344865057576066495091513E-07;
    weight(  7) =   0.50437125589241034841778074689627E-06;
    weight(  8) =   0.10498602757642934202945441341697E-04;
    weight(  9) =   0.13952090395003623854995664958146E-03;
    weight( 10) =   0.12336833073030489880608311394968E-02;
    weight( 11) =   0.74827999140119116765002499116934E-02;
    weight( 12) =   0.31847230731201222775249585776902E-01;
    weight( 13) =   0.96717948160569462991143316029341E-01;
    weight( 14) =   0.21213278866810461318136114862419E+00;    
    weight( 15) =   0.33877265789305344906000174083214E+00;    
    weight( 16) =   0.39577855609737786462923720809676E+00;    
    weight( 17) =   0.33877265789305344906000174083214E+00;  
    weight( 18) =   0.21213278866810461318136114862419E+00;   
    weight( 19) =   0.96717948160569462991143316029341E-01;
    weight( 20) =   0.31847230731201222775249585776902E-01;
    weight( 21) =   0.74827999140119116765002499116934E-02;
    weight( 22) =   0.12336833073030489880608311394968E-02;
    weight( 23) =   0.13952090395003623854995664958146E-03;
    weight( 24) =   0.10498602757642934202945441341697E-04;
    weight( 25) =   0.50437125589241034841778074689627E-06;
    weight( 26) =   0.14611988344865057576066495091513E-07;
    weight( 27) =   0.23524920032013205739850619940094E-09;
    weight( 28) =   0.18603735214463569590294465062239E-11;
    weight( 29) =   0.58995564987355133075257722133966E-14;
    weight( 30) =   0.51106090079112519643027197715274E-17;
    weight( 31) =   0.46189683944498305857470556847735E-21;

  elseif ( order == 32 )

    xtab( 1) =   -7.12581390983;
    xtab( 2) =   -6.40949814927;
    xtab( 3) =   -5.81222594952;
    xtab( 4) =   -5.27555098652;
    xtab( 5) =   -4.77716450350;
    xtab( 6) =   -4.30554795335;
    xtab( 7) =   -3.85375548547;
    xtab( 8) =   -3.41716749282;
    xtab( 9) =   -2.99249082500;
    xtab(10) =   -2.57724953773;
    xtab(11) =   -2.16949918361;
    xtab(12) =   -1.76765410946;
    xtab(13) =   -1.37037641095;
    xtab(14) =  -0.976500463590;
    xtab(15) =  -0.584978765436;
    xtab(16) =  -0.194840741569;
    xtab(17) =   0.194840741569;
    xtab(18) =   0.584978765436;
    xtab(19) =   0.976500463590;
    xtab(20) =    1.37037641095;
    xtab(21) =    1.76765410946;
    xtab(22) =    2.16949918361;
    xtab(23) =    2.57724953773;
    xtab(24) =    2.99249082500;
    xtab(25) =    3.41716749282;
    xtab(26) =    3.85375548547;
    xtab(27) =    4.30554795335;
    xtab(28) =    4.77716450350;
    xtab(29) =    5.27555098652;
    xtab(30) =    5.81222594952;
    xtab(31) =    6.40949814927;
    xtab(32) =    7.12581390983;

    weight( 1) =   0.731067642736E-22;
    weight( 2) =   0.923173653649E-18;
    weight( 3) =   0.119734401709E-14;
    weight( 4) =   0.421501021125E-12;
    weight( 5) =   0.593329146300E-10;
    weight( 6) =   0.409883216476E-08;
    weight( 7) =   0.157416779254E-06;
    weight( 8) =   0.365058512955E-05;
    weight( 9) =   0.541658406172E-04;
    weight(10) =   0.536268365526E-03;
    weight(11) =   0.365489032664E-02;
    weight(12) =   0.175534288315E-01;
    weight(13) =   0.604581309557E-01;
    weight(14) =   0.151269734076;
    weight(15) =   0.277458142302;
    weight(16) =   0.375238352592;
    weight(17) =   0.375238352592;
    weight(18) =   0.277458142302;
    weight(19) =   0.151269734076;
    weight(20) =   0.604581309557E-01;
    weight(21) =   0.175534288315E-01;
    weight(22) =   0.365489032664E-02;
    weight(23) =   0.536268365526E-03;
    weight(24) =   0.541658406172E-04;
    weight(25) =   0.365058512955E-05;
    weight(26) =   0.157416779254E-06;
    weight(27) =   0.409883216476E-08;
    weight(28) =   0.593329146300E-10;
    weight(29) =   0.421501021125E-12;
    weight(30) =   0.119734401709E-14;
    weight(31) =   0.923173653649E-18;
    weight(32) =   0.731067642736E-22;

  elseif ( order == 40 )

    xtab( 1) =   -8.09876113925;
    xtab( 2) =   -7.41158253149;
    xtab( 3) =   -6.84023730525;
    xtab( 4) =   -6.32825535122;
    xtab( 5) =   -5.85409505603;
    xtab( 6) =   -5.40665424797;
    xtab( 7) =   -4.97926097855;
    xtab( 8) =   -4.56750207284;
    xtab( 9) =   -4.16825706683;
    xtab(10) =   -3.77920675344;
    xtab(11) =   -3.39855826586;
    xtab(12) =   -3.02487988390;
    xtab(13) =   -2.65699599844;
    xtab(14) =   -2.29391714188;
    xtab(15) =   -1.93479147228;
    xtab(16) =   -1.57886989493;
    xtab(17) =   -1.22548010905;
    xtab(18) =  -0.874006612357;
    xtab(19) =  -0.523874713832;
    xtab(20) =  -0.174537214598;
    xtab(21) =   0.174537214598;
    xtab(22) =   0.523874713832;
    xtab(23) =   0.874006612357;
    xtab(24) =    1.22548010905;
    xtab(25) =    1.57886989493;
    xtab(26) =    1.93479147228;
    xtab(27) =    2.29391714188;
    xtab(28) =    2.65699599844;
    xtab(29) =    3.02487988390;
    xtab(30) =    3.39855826586;
    xtab(31) =    3.77920675344;
    xtab(32) =    4.16825706683;
    xtab(33) =    4.56750207284;
    xtab(34) =    4.97926097855;
    xtab(35) =    5.40665424797;
    xtab(36) =    5.85409505603;
    xtab(37) =    6.32825535122;
    xtab(38) =    6.84023730525;
    xtab(39) =    7.41158253149;
    xtab(40) =    8.09876113925;

    weight( 1) =   0.259104371384E-28;
    weight( 2) =   0.854405696375E-24;
    weight( 3) =   0.256759336540E-20;
    weight( 4) =   0.198918101211E-17;
    weight( 5) =   0.600835878947E-15;
    weight( 6) =   0.880570764518E-13;
    weight( 7) =   0.715652805267E-11;
    weight( 8) =   0.352562079135E-09;
    weight( 9) =   0.112123608322E-07;
    weight(10) =   0.241114416359E-06;
    weight(11) =   0.363157615067E-05;
    weight(12) =   0.393693398108E-04;
    weight(13) =   0.313853594540E-03;
    weight(14) =   0.187149682959E-02;
    weight(15) =   0.846088800823E-02;
    weight(16) =   0.293125655361E-01;
    weight(17) =   0.784746058652E-01;
    weight(18) =   0.163378732713;
    weight(19) =   0.265728251876;
    weight(20) =   0.338643277425;
    weight(21) =   0.338643277425;
    weight(22) =   0.265728251876;
    weight(23) =   0.163378732713;
    weight(24) =   0.784746058652E-01;
    weight(25) =   0.293125655361E-01;
    weight(26) =   0.846088800823E-02;
    weight(27) =   0.187149682959E-02;
    weight(28) =   0.313853594540E-03;
    weight(29) =   0.393693398108E-04;
    weight(30) =   0.363157615067E-05;
    weight(31) =   0.241114416359E-06;
    weight(32) =   0.112123608322E-07;
    weight(33) =   0.352562079135E-09;
    weight(34) =   0.715652805267E-11;
    weight(35) =   0.880570764518E-13;
    weight(36) =   0.600835878947E-15;
    weight(37) =   0.198918101211E-17;
    weight(38) =   0.256759336540E-20;
    weight(39) =   0.854405696375E-24;
    weight(40) =   0.259104371384E-28;

  elseif ( order == 50 )

    xtab( 1) =   -9.18240695813;
    xtab( 2) =   -8.52277103092;
    xtab( 3) =   -7.97562236821;
    xtab( 4) =   -7.48640942986;
    xtab( 5) =   -7.03432350977;
    xtab( 6) =   -6.60864797386;
    xtab( 7) =   -6.20295251927;
    xtab( 8) =   -5.81299467542;
    xtab( 9) =   -5.43578608722;
    xtab(10) =   -5.06911758492;
    xtab(11) =   -4.71129366617;
    xtab(12) =   -4.36097316045;
    xtab(13) =   -4.01706817286;
    xtab(14) =   -3.67867706252;
    xtab(15) =   -3.34503831394;
    xtab(16) =   -3.01549776957;
    xtab(17) =   -2.68948470227;
    xtab(18) =   -2.36649390430;
    xtab(19) =   -2.04607196869;
    xtab(20) =   -1.72780654752;
    xtab(21) =   -1.41131775490;
    xtab(22) =   -1.09625112896;
    xtab(23) =  -0.782271729555;
    xtab(24) =  -0.469059056678;
    xtab(25) =  -0.156302546889;
    xtab(26) =   0.156302546889;
    xtab(27) =   0.469059056678;
    xtab(28) =   0.782271729555;
    xtab(29) =    1.09625112896;
    xtab(30) =    1.41131775490;
    xtab(31) =    1.72780654752;
    xtab(32) =    2.04607196869;
    xtab(33) =    2.36649390430;
    xtab(34) =    2.68948470227;
    xtab(35) =    3.01549776957;
    xtab(36) =    3.34503831394;
    xtab(37) =    3.67867706252;
    xtab(38) =    4.01706817286;
    xtab(39) =    4.36097316045;
    xtab(40) =    4.71129366617;
    xtab(41) =    5.06911758492;
    xtab(42) =    5.43578608722;
    xtab(43) =    5.81299467542;
    xtab(44) =    6.20295251927;
    xtab(45) =    6.60864797386;
    xtab(46) =    7.03432350977;
    xtab(47) =    7.48640942986;
    xtab(48) =    7.97562236821;
    xtab(49) =    8.52277103092;
    xtab(50) =    9.18240695813;

    weight( 1) =   0.183379404857E-36;
    weight( 2) =   0.167380166790E-31;
    weight( 3) =   0.121524412340E-27;
    weight( 4) =   0.213765830835E-24;
    weight( 5) =   0.141709359957E-21;
    weight( 6) =   0.447098436530E-19;
    weight( 7) =   0.774238295702E-17;
    weight( 8) =   0.809426189344E-15;
    weight( 9) =   0.546594403180E-13;
    weight(10) =   0.250665552389E-11;
    weight(11) =   0.811187736448E-10;
    weight(12) =   0.190904054379E-08;
    weight(13) =   0.334679340401E-07;
    weight(14) =   0.445702996680E-06;
    weight(15) =   0.458168270794E-05;
    weight(16) =   0.368401905377E-04;
    weight(17) =   0.234269892109E-03;
    weight(18) =   0.118901178175E-02;
    weight(19) =   0.485326382616E-02;
    weight(20) =   0.160319410684E-01;
    weight(21) =   0.430791591566E-01;
    weight(22) =   0.945489354768E-01;
    weight(23) =   0.170032455676;
    weight(24) =   0.251130856331;
    weight(25) =   0.305085129203;
    weight(26) =   0.305085129203;
    weight(27) =   0.251130856331;
    weight(28) =   0.170032455676;
    weight(29) =   0.945489354768E-01;
    weight(30) =   0.430791591566E-01;
    weight(31) =   0.160319410684E-01;
    weight(32) =   0.485326382616E-02;
    weight(33) =   0.118901178175E-02;
    weight(34) =   0.234269892109E-03;
    weight(35) =   0.368401905377E-04;
    weight(36) =   0.458168270794E-05;
    weight(37) =   0.445702996680E-06;
    weight(38) =   0.334679340401E-07;
    weight(39) =   0.190904054379E-08;
    weight(40) =   0.811187736448E-10;
    weight(41) =   0.250665552389E-11;
    weight(42) =   0.546594403180E-13;
    weight(43) =   0.809426189344E-15;
    weight(44) =   0.774238295702E-17;
    weight(45) =   0.447098436530E-19;
    weight(46) =   0.141709359957E-21;
    weight(47) =   0.213765830835E-24;
    weight(48) =   0.121524412340E-27;
    weight(49) =   0.167380166790E-31;
    weight(50) =   0.183379404857E-36;

  elseif ( order == 60 )

    xtab( 1) =   -10.1591092462;
    xtab( 2) =   -9.52090367701;
    xtab( 3) =   -8.99239800140;
    xtab( 4) =   -8.52056928412;
    xtab( 5) =   -8.08518865425;
    xtab( 6) =   -7.67583993750;
    xtab( 7) =   -7.28627659440;
    xtab( 8) =   -6.91238153219;
    xtab( 9) =   -6.55125916706;
    xtab(10) =   -6.20077355799;
    xtab(11) =   -5.85929019639;
    xtab(12) =   -5.52552108614;
    xtab(13) =   -5.19842653458;
    xtab(14) =   -4.87715007747;
    xtab(15) =   -4.56097375794;
    xtab(16) =   -4.24928643596;
    xtab(17) =   -3.94156073393;
    xtab(18) =   -3.63733587617;
    xtab(19) =   -3.33620465355;
    xtab(20) =   -3.03780333823;
    xtab(21) =   -2.74180374807;
    xtab(22) =   -2.44790690231;
    xtab(23) =   -2.15583787123;
    xtab(24) =   -1.86534153123;
    xtab(25) =   -1.57617901198;
    xtab(26) =   -1.28812467487;
    xtab(27) =   -1.00096349956;
    xtab(28) =  -0.714488781673;
    xtab(29) =  -0.428500064221;
    xtab(30) =  -0.142801238703;
    xtab(31) =   0.142801238703;
    xtab(32) =   0.428500064221;
    xtab(33) =   0.714488781673;
    xtab(34) =    1.00096349956;
    xtab(35) =    1.28812467487;
    xtab(36) =    1.57617901198;
    xtab(37) =    1.86534153123;
    xtab(38) =    2.15583787123;
    xtab(39) =    2.44790690231;
    xtab(40) =    2.74180374807;
    xtab(41) =    3.03780333823;
    xtab(42) =    3.33620465355;
    xtab(43) =    3.63733587617;
    xtab(44) =    3.94156073393;
    xtab(45) =    4.24928643596;
    xtab(46) =    4.56097375794;
    xtab(47) =    4.87715007747;
    xtab(48) =    5.19842653458;
    xtab(49) =    5.52552108614;
    xtab(50) =    5.85929019639;
    xtab(51) =    6.20077355799;
    xtab(52) =    6.55125916706;
    xtab(53) =    6.91238153219;
    xtab(54) =    7.28627659440;
    xtab(55) =    7.67583993750;
    xtab(56) =    8.08518865425;
    xtab(57) =    8.52056928412;
    xtab(58) =    8.99239800140;
    xtab(59) =    9.52090367701;
    xtab(60) =    10.1591092462;

    weight( 1) =   0.110958724796E-44;
    weight( 2) =   0.243974758810E-39;
    weight( 3) =   0.377162672698E-35;
    weight( 4) =   0.133255961176E-31;
    weight( 5) =   0.171557314767E-28;
    weight( 6) =   0.102940599693E-25;
    weight( 7) =   0.334575695574E-23;
    weight( 8) =   0.651256725748E-21;
    weight( 9) =   0.815364047300E-19;
    weight(10) =   0.692324790956E-17;
    weight(11) =   0.415244410968E-15;
    weight(12) =   0.181662457614E-13;
    weight(13) =   0.594843051597E-12;
    weight(14) =   0.148895734905E-10;
    weight(15) =   0.289935901280E-09;
    weight(16) =   0.445682277521E-08;
    weight(17) =   0.547555461926E-07;
    weight(18) =   0.543351613419E-06;
    weight(19) =   0.439428693625E-05;
    weight(20) =   0.291874190415E-04;
    weight(21) =   0.160277334681E-03;
    weight(22) =   0.731773556963E-03;
    weight(23) =   0.279132482894E-02;
    weight(24) =   0.893217836028E-02;
    weight(25) =   0.240612727660E-01;
    weight(26) =   0.547189709320E-01;
    weight(27) =   0.105298763697;
    weight(28) =   0.171776156918;
    weight(29) =   0.237868904958;
    weight(30) =   0.279853117522;
    weight(31) =   0.279853117522;
    weight(32) =   0.237868904958;
    weight(33) =   0.171776156918;
    weight(34) =   0.105298763697;
    weight(35) =   0.547189709320E-01;
    weight(36) =   0.240612727660E-01;
    weight(37) =   0.893217836028E-02;
    weight(38) =   0.279132482894E-02;
    weight(39) =   0.731773556963E-03;
    weight(40) =   0.160277334681E-03;
    weight(41) =   0.291874190415E-04;
    weight(42) =   0.439428693625E-05;
    weight(43) =   0.543351613419E-06;
    weight(44) =   0.547555461926E-07;
    weight(45) =   0.445682277521E-08;
    weight(46) =   0.289935901280E-09;
    weight(47) =   0.148895734905E-10;
    weight(48) =   0.594843051597E-12;
    weight(49) =   0.181662457614E-13;
    weight(50) =   0.415244410968E-15;
    weight(51) =   0.692324790956E-17;
    weight(52) =   0.815364047300E-19;
    weight(53) =   0.651256725748E-21;
    weight(54) =   0.334575695574E-23;
    weight(55) =   0.102940599693E-25;
    weight(56) =   0.171557314767E-28;
    weight(57) =   0.133255961176E-31;
    weight(58) =   0.377162672698E-35;
    weight(59) =   0.243974758810E-39;
    weight(60) =   0.110958724796E-44;

  elseif ( order == 63 )
 
    xtab(  1) =   -10.435499877854168053468115427285E+00;    
    xtab(  2) =   -9.8028759912974963635223935286507E+00;    
    xtab(  3) =   -9.2792019543050391319404745506496E+00;    
    xtab(  4) =   -8.8118581437284546442526628275570E+00;    
    xtab(  5) =   -8.3807683451863219343010651043788E+00;    
    xtab(  6) =   -7.9755950801420373181541806298501E+00;    
    xtab(  7) =   -7.5901395198641066762479783194468E+00;    
    xtab(  8) =   -7.2203167078889678461161324222529E+00;    
    xtab(  9) =   -6.8632544331795368527353285876066E+00;    
    xtab( 10) =   -6.5168348106821160605273395854042E+00;    
    xtab( 11) =   -6.1794379922705969862418461787263E+00;    
    xtab( 12) =   -5.8497884000810673462526582961482E+00;    
    xtab( 13) =   -5.5268572526403031425047575122840E+00;    
    xtab( 14) =   -5.2097979830408354861575136416263E+00;    
    xtab( 15) =   -4.8979018644975742350745099214868E+00;    
    xtab( 16) =   -4.5905665744435190229271294569091E+00;    
    xtab( 17) =   -4.2872733352824404031727616199454E+00;    
    xtab( 18) =   -3.9875699104197157485227052068068E+00;    
    xtab( 19) =   -3.6910577000963465117322810559754E+00;    
    xtab( 20) =   -3.3973817713303911852755941806287E+00;    
    xtab( 21) =   -3.1062230279282566329138616746036E+00;    
    xtab( 22) =   -2.8172919672837977750747135657355E+00;    
    xtab( 23) =   -2.5303236304712010926855221718499E+00;    
    xtab( 24) =   -2.2450734604812066298995918179330E+00;    
    xtab( 25) =   -1.9613138583081485293922008411321E+00;    
    xtab( 26) =   -1.6788312791720137520802800622638E+00;    
    xtab( 27) =   -1.3974237486049625107570752063702E+00;    
    xtab( 28) =   -1.1168987050996462690510970277840E+00;    
    xtab( 29) =  -0.83707109558947615977737795461293E+00;    
    xtab( 30) =  -0.55776166427908221668763665253822E+00;    
    xtab( 31) =  -0.27879538567115223986687628627202E+00;    
    xtab( 32) =   0.00000000000000000000000000000000E+00;    
    xtab( 33) =   0.27879538567115223986687628627202E+00;    
    xtab( 34) =   0.55776166427908221668763665253822E+00;    
    xtab( 35) =   0.83707109558947615977737795461293E+00;    
    xtab( 36) =    1.1168987050996462690510970277840E+00;    
    xtab( 37) =    1.3974237486049625107570752063702E+00;    
    xtab( 38) =    1.6788312791720137520802800622638E+00;    
    xtab( 39) =    1.9613138583081485293922008411321E+00;    
    xtab( 40) =    2.2450734604812066298995918179330E+00;    
    xtab( 41) =    2.5303236304712010926855221718499E+00;    
    xtab( 42) =    2.8172919672837977750747135657355E+00;    
    xtab( 43) =    3.1062230279282566329138616746036E+00;    
    xtab( 44) =    3.3973817713303911852755941806287E+00;    
    xtab( 45) =    3.6910577000963465117322810559754E+00;    
    xtab( 46) =    3.9875699104197157485227052068068E+00;    
    xtab( 47) =    4.2872733352824404031727616199454E+00;    
    xtab( 48) =    4.5905665744435190229271294569091E+00;    
    xtab( 49) =    4.8979018644975742350745099214868E+00;    
    xtab( 50) =    5.2097979830408354861575136416263E+00;    
    xtab( 51) =    5.5268572526403031425047575122840E+00;    
    xtab( 52) =    5.8497884000810673462526582961482E+00;    
    xtab( 53) =    6.1794379922705969862418461787263E+00;    
    xtab( 54) =    6.5168348106821160605273395854042E+00;    
    xtab( 55) =    6.8632544331795368527353285876066E+00;    
    xtab( 56) =    7.2203167078889678461161324222529E+00;    
    xtab( 57) =    7.5901395198641066762479783194468E+00;    
    xtab( 58) =    7.9755950801420373181541806298501E+00;    
    xtab( 59) =    8.3807683451863219343010651043788E+00;    
    xtab( 60) =    8.8118581437284546442526628275570E+00;    
    xtab( 61) =    9.2792019543050391319404745506496E+00; 
    xtab( 62) =    9.8028759912974963635223935286507E+00;    
    xtab( 63) =    10.435499877854168053468115427285E+00;    
 
    weight(  1) =   0.37099206434787551197827130470031E-47;
    weight(  2) =   0.10400778615192299534481914814892E-41;
    weight(  3) =   0.19796804708258311251124226474396E-37;
    weight(  4) =   0.84687478191640015120141181138947E-34;
    weight(  5) =   0.13071305930779945903630127634063E-30;
    weight(  6) =   0.93437837175367456929765381518998E-28;
    weight(  7) =   0.36027426635173044862245783257252E-25;
    weight(  8) =   0.82963863115951789374753323156164E-23;
    weight(  9) =   0.12266629909105281472971700203949E-20;
    weight( 10) =   0.12288435628797061539461585325494E-18;
    weight( 11) =   0.86925536958188009075932426691516E-17;
    weight( 12) =   0.44857058689176221240330804981619E-15;
    weight( 13) =   0.17335817955735154599902643794700E-13;
    weight( 14) =   0.51265062385038307838565047455223E-12;
    weight( 15) =   0.11808921844532942490513037158404E-10;
    weight( 16) =   0.21508698297808025739828859845140E-09;
    weight( 17) =   0.31371929535285447801497640621672E-08;
    weight( 18) =   0.37041625984781705796752840204084E-07;
    weight( 19) =   0.35734732949879669663960738150956E-06;
    weight( 20) =   0.28393114498380927832990899215541E-05;
    weight( 21) =   0.18709113003730498008961134765721E-04;
    weight( 22) =   0.10284880800653635546698378640623E-03;
    weight( 23) =   0.47411702610173128107201781718693E-03;
    weight( 24) =   0.18409222622384813438539657470055E-02;
    weight( 25) =   0.60436044551187631655712178246467E-02;
    weight( 26) =   0.16829299199599730926458559757600E-01;
    weight( 27) =   0.39858264027692992170237391875317E-01;
    weight( 28) =   0.80467087993950415219587554532823E-01;
    weight( 29) =   0.13871950817615293377792092082674E+00;
    weight( 30) =   0.20448695346833761570957197160475E+00;
    weight( 31) =   0.25799889943058042204920467417642E+00;
    weight( 32) =   0.27876694884838411919175686949858E+00;
    weight( 33) =   0.25799889943058042204920467417642E+00;
    weight( 34) =   0.20448695346833761570957197160475E+00;
    weight( 35) =   0.13871950817615293377792092082674E+00;   
    weight( 36) =   0.80467087993950415219587554532823E-01;
    weight( 37) =   0.39858264027692992170237391875317E-01;
    weight( 38) =   0.16829299199599730926458559757600E-01;
    weight( 39) =   0.60436044551187631655712178246467E-02;
    weight( 40) =   0.18409222622384813438539657470055E-02;
    weight( 41) =   0.47411702610173128107201781718693E-03;
    weight( 42) =   0.10284880800653635546698378640623E-03;
    weight( 43) =   0.18709113003730498008961134765721E-04;
    weight( 44) =   0.28393114498380927832990899215541E-05;
    weight( 45) =   0.35734732949879669663960738150956E-06;
    weight( 46) =   0.37041625984781705796752840204084E-07;
    weight( 47) =   0.31371929535285447801497640621672E-08;
    weight( 48) =   0.21508698297808025739828859845140E-09;
    weight( 49) =   0.11808921844532942490513037158404E-10;
    weight( 50) =   0.51265062385038307838565047455223E-12;
    weight( 51) =   0.17335817955735154599902643794700E-13;
    weight( 52) =   0.44857058689176221240330804981619E-15;
    weight( 53) =   0.86925536958188009075932426691516E-17;
    weight( 54) =   0.12288435628797061539461585325494E-18;
    weight( 55) =   0.12266629909105281472971700203949E-20;
    weight( 56) =   0.82963863115951789374753323156164E-23;
    weight( 57) =   0.36027426635173044862245783257252E-25;
    weight( 58) =   0.93437837175367456929765381518998E-28;
    weight( 59) =   0.13071305930779945903630127634063E-30;
    weight( 60) =   0.84687478191640015120141181138947E-34;
    weight( 61) =   0.19796804708258311251124226474396E-37;
    weight( 62) =   0.10400778615192299534481914814892E-41;
    weight( 63) =   0.37099206434787551197827130470031E-47;
    
  elseif ( order == 64 )

    xtab( 1) =   -10.5261231680;
    xtab( 2) =   -9.89528758683;
    xtab( 3) =   -9.37315954965;
    xtab( 4) =   -8.90724909996;
    xtab( 5) =   -8.47752908338;
    xtab( 6) =   -8.07368728501;
    xtab( 7) =   -7.68954016404;
    xtab( 8) =   -7.32101303278;
    xtab( 9) =   -6.96524112055;
    xtab(10) =   -6.62011226264;
    xtab(11) =   -6.28401122877;
    xtab(12) =   -5.95566632680;
    xtab(13) =   -5.63405216435;
    xtab(14) =   -5.31832522463;
    xtab(15) =   -5.00777960220;
    xtab(16) =   -4.70181564741;
    xtab(17) =   -4.39991716823;
    xtab(18) =   -4.10163447457;
    xtab(19) =   -3.80657151395;
    xtab(20) =   -3.51437593574;
    xtab(21) =   -3.22473129199;
    xtab(22) =   -2.93735082300;
    xtab(23) =   -2.65197243543;
    xtab(24) =   -2.36835458863;
    xtab(25) =   -2.08627287988;
    xtab(26) =   -1.80551717147;
    xtab(27) =   -1.52588914021;
    xtab(28) =   -1.24720015694;
    xtab(29) =  -0.969269423071;
    xtab(30) =  -0.691922305810;
    xtab(31) =  -0.414988824121;
    xtab(32) =  -0.138302244987;
    xtab(33) =   0.138302244987;
    xtab(34) =   0.414988824121;
    xtab(35) =   0.691922305810;
    xtab(36) =   0.969269423071;
    xtab(37) =    1.24720015694;
    xtab(38) =    1.52588914021;
    xtab(39) =    1.80551717147;
    xtab(40) =    2.08627287988;
    xtab(41) =    2.36835458863;
    xtab(42) =    2.65197243543;
    xtab(43) =    2.93735082300;
    xtab(44) =    3.22473129199;
    xtab(45) =    3.51437593574;
    xtab(46) =    3.80657151395;
    xtab(47) =    4.10163447457;
    xtab(48) =    4.39991716823;
    xtab(49) =    4.70181564741;
    xtab(50) =    5.00777960220;
    xtab(51) =    5.31832522463;
    xtab(52) =    5.63405216435;
    xtab(53) =    5.95566632680;
    xtab(54) =    6.28401122877;
    xtab(55) =    6.62011226264;
    xtab(56) =    6.96524112055;
    xtab(57) =    7.32101303278;
    xtab(58) =    7.68954016404;
    xtab(59) =    8.07368728501;
    xtab(60) =    8.47752908338;
    xtab(61) =    8.90724909996;
    xtab(62) =    9.37315954965;
    xtab(63) =    9.89528758683;
    xtab(64) =    10.5261231680;

    weight( 1) =   0.553570653584E-48;
    weight( 2) =   0.167974799010E-42;
    weight( 3) =   0.342113801099E-38;
    weight( 4) =   0.155739062462E-34;
    weight( 5) =   0.254966089910E-31;
    weight( 6) =   0.192910359546E-28;
    weight( 7) =   0.786179778889E-26;
    weight( 8) =   0.191170688329E-23;
    weight( 9) =   0.298286278427E-21;
    weight(10) =   0.315225456649E-19;
    weight(11) =   0.235188471067E-17;
    weight(12) =   0.128009339117E-15;
    weight(13) =   0.521862372645E-14;
    weight(14) =   0.162834073070E-12;
    weight(15) =   0.395917776693E-11;
    weight(16) =   0.761521725012E-10;
    weight(17) =   0.117361674232E-08;
    weight(18) =   0.146512531647E-07;
    weight(19) =   0.149553293672E-06;
    weight(20) =   0.125834025103E-05;
    weight(21) =   0.878849923082E-05;
    weight(22) =   0.512592913577E-04;
    weight(23) =   0.250983698512E-03;
    weight(24) =   0.103632909950E-02;
    weight(25) =   0.362258697852E-02;
    weight(26) =   0.107560405098E-01;
    weight(27) =   0.272031289536E-01;
    weight(28) =   0.587399819634E-01;
    weight(29) =   0.108498349306;
    weight(30) =   0.171685842349;
    weight(31) =   0.232994786062;
    weight(32) =   0.271377424940;
    weight(33) =   0.271377424940;
    weight(34) =   0.232994786062;
    weight(35) =   0.171685842349;
    weight(36) =   0.108498349306;
    weight(37) =   0.587399819634E-01;
    weight(38) =   0.272031289536E-01;
    weight(39) =   0.107560405098E-01;
    weight(40) =   0.362258697852E-02;
    weight(41) =   0.103632909950E-02;
    weight(42) =   0.250983698512E-03;
    weight(43) =   0.512592913577E-04;
    weight(44) =   0.878849923082E-05;
    weight(45) =   0.125834025103E-05;
    weight(46) =   0.149553293672E-06;
    weight(47) =   0.146512531647E-07;
    weight(48) =   0.117361674232E-08;
    weight(49) =   0.761521725012E-10;
    weight(50) =   0.395917776693E-11;
    weight(51) =   0.162834073070E-12;
    weight(52) =   0.521862372645E-14;
    weight(53) =   0.128009339117E-15;
    weight(54) =   0.235188471067E-17;
    weight(55) =   0.315225456649E-19;
    weight(56) =   0.298286278427E-21;
    weight(57) =   0.191170688329E-23;
    weight(58) =   0.786179778889E-26;
    weight(59) =   0.192910359546E-28;
    weight(60) =   0.254966089910E-31;
    weight(61) =   0.155739062462E-34;
    weight(62) =   0.342113801099E-38;
    weight(63) =   0.167974799010E-42;
    weight(64) =   0.553570653584E-48;

  elseif ( order == 127 )
 
    xtab(  1) =   -15.228338148167350978246954433464E+00;
    xtab(  2) =   -14.669595158833972632746354112896E+00;    
    xtab(  3) =   -14.209085995284870755168244250887E+00;    
    xtab(  4) =   -13.799722290211676634645246746673E+00;    
    xtab(  5) =   -13.423518590070950062438258321855E+00;    
    xtab(  6) =   -13.071208660474601901583995439649E+00;    
    xtab(  7) =   -12.737235652415686338138003924072E+00;    
    xtab(  8) =   -12.417939378869715805445879624069E+00;    
    xtab(  9) =   -12.110749020947747600132123508132E+00;    
    xtab( 10) =   -11.813772198267727195134584136191E+00;    
    xtab( 11) =   -11.525565112572696599167888588564E+00;    
    xtab( 12) =   -11.244994583785543445194384194300E+00;    
    xtab( 13) =   -10.971150569840247423423040263881E+00;    
    xtab( 14) =   -10.703288201027481347670940744690E+00;    
    xtab( 15) =   -10.440787957772772867742591798027E+00;    
    xtab( 16) =   -10.183127473450343888624126450357E+00;    
    xtab( 17) =   -9.9298610495114250736847004273684E+00;    
    xtab( 18) =   -9.6806044412474728038150712732737E+00;    
    xtab( 19) =   -9.4350233389881650135019598506287E+00;    
    xtab( 20) =   -9.1928244988460305715774195052527E+00;    
    xtab( 21) =   -8.9537488108565404323807890169970E+00;    
    xtab( 22) =   -8.7175658087076307363833999548548E+00;    
    xtab( 23) =   -8.4840692689832473326097180339984E+00;    
    xtab( 24) =   -8.2530736454457156579694124243888E+00;    
    xtab( 25) =   -8.0244111514703375578594739796798E+00;    
    xtab( 26) =   -7.7979293513870105420829120455591E+00;    
    xtab( 27) =   -7.5734891556083454022834960763301E+00;    
    xtab( 28) =   -7.3509631392269052701961258043733E+00;    
    xtab( 29) =   -7.1302341220350710668064025713431E+00;    
    xtab( 30) =   -6.9111939615465713197465633109366E+00;    
    xtab( 31) =   -6.6937425208758294190074417381666E+00;    
    xtab( 32) =   -6.4777867811645365448144903821487E+00;    
    xtab( 33) =   -6.2632400742737354345609723857092E+00;    
    xtab( 34) =   -6.0500214161419845694465474482388E+00;    
    xtab( 35) =   -5.8380549248774187386601690807757E+00;    
    xtab( 36) =   -5.6272693105464816659423455794909E+00;    
    xtab( 37) =   -5.4175974259243240722848425872924E+00;    
    xtab( 38) =   -5.2089758693153983587570258372239E+00;    
    xtab( 39) =   -5.0013446320386360038520809107373E+00;    
    xtab( 40) =   -4.7946467843764925009748509930857E+00;    
    xtab( 41) =   -4.5888281947698372951606485031212E+00;    
    xtab( 42) =   -4.3838372778464736294253744407459E+00;    
    xtab( 43) =   -4.1796247675352031349421189892408E+00;    
    xtab( 44) =   -3.9761435120673355916035814195920E+00;    
    xtab( 45) =   -3.7733482881250526721004678400057E+00;    
    xtab( 46) =   -3.5711956317782180447199756485249E+00;    
    xtab( 47) =   -3.3696436841717397896643629240035E+00;    
    xtab( 48) =   -3.1686520501953630191857798261495E+00;    
    xtab( 49) =   -2.9681816685955910267761649521505E+00;    
    xtab( 50) =   -2.7681946921824058801226545958892E+00;    
    xtab( 51) =   -2.5686543769473501723144013022363E+00;    
    xtab( 52) =   -2.3695249790490401080012474645702E+00;    
    xtab( 53) =   -2.1707716587411506879498498083695E+00;    
    xtab( 54) =   -1.9723603904195020079324743227565E+00;    
    xtab( 55) =   -1.7742578780516791584676442103681E+00;    
    xtab( 56) =   -1.5764314753267801315519597621879E+00;    
    xtab( 57) =   -1.3788491099261778091441557053728E+00;    
    xtab( 58) =   -1.1814792113700685848678583598423E+00;    
    xtab( 59) =  -0.98429064194027277726568984213773E+00;    
    xtab( 60) =  -0.78725263021825034151596831878971E+00;    
    xtab( 61) =  -0.59033470680942102142230439346102E+00;    
    xtab( 62) =  -0.39350664185130136568037826200185E+00;    
    xtab( 63) =  -0.19673838392423251964272239737078E+00;    
    xtab( 64) =    0.0000000000000000000000000000000E+00;    
    xtab( 65) =   0.19673838392423251964272239737078E+00;    
    xtab( 66) =   0.39350664185130136568037826200185E+00;    
    xtab( 67) =   0.59033470680942102142230439346102E+00;    
    xtab( 68) =   0.78725263021825034151596831878971E+00;    
    xtab( 69) =   0.98429064194027277726568984213773E+00;    
    xtab( 70) =    1.1814792113700685848678583598423E+00;    
    xtab( 71) =    1.3788491099261778091441557053728E+00;    
    xtab( 72) =    1.5764314753267801315519597621879E+00;    
    xtab( 73) =    1.7742578780516791584676442103681E+00;    
    xtab( 74) =    1.9723603904195020079324743227565E+00;    
    xtab( 75) =    2.1707716587411506879498498083695E+00;    
    xtab( 76) =    2.3695249790490401080012474645702E+00;    
    xtab( 77) =    2.5686543769473501723144013022363E+00;    
    xtab( 78) =    2.7681946921824058801226545958892E+00;    
    xtab( 79) =    2.9681816685955910267761649521505E+00;    
    xtab( 80) =    3.1686520501953630191857798261495E+00;    
    xtab( 81) =    3.3696436841717397896643629240035E+00;    
    xtab( 82) =    3.5711956317782180447199756485249E+00;    
    xtab( 83) =    3.7733482881250526721004678400057E+00;    
    xtab( 84) =    3.9761435120673355916035814195920E+00;    
    xtab( 85) =    4.1796247675352031349421189892408E+00;    
    xtab( 86) =    4.3838372778464736294253744407459E+00;    
    xtab( 87) =    4.5888281947698372951606485031212E+00;    
    xtab( 88) =    4.7946467843764925009748509930857E+00;    
    xtab( 89) =    5.0013446320386360038520809107373E+00;    
    xtab( 90) =    5.2089758693153983587570258372239E+00;    
    xtab( 91) =    5.4175974259243240722848425872924E+00;    
    xtab( 92) =    5.6272693105464816659423455794909E+00;    
    xtab( 93) =    5.8380549248774187386601690807757E+00;    
    xtab( 94) =    6.0500214161419845694465474482388E+00;    
    xtab( 95) =    6.2632400742737354345609723857092E+00;    
    xtab( 96) =    6.4777867811645365448144903821487E+00;    
    xtab( 97) =    6.6937425208758294190074417381666E+00;    
    xtab( 98) =    6.9111939615465713197465633109366E+00;    
    xtab( 99) =    7.1302341220350710668064025713431E+00;    
    xtab(100) =    7.3509631392269052701961258043733E+00;    
    xtab(101) =    7.5734891556083454022834960763301E+00;    
    xtab(102) =    7.7979293513870105420829120455591E+00;    
    xtab(103) =    8.0244111514703375578594739796798E+00;    
    xtab(104) =    8.2530736454457156579694124243888E+00;    
    xtab(105) =    8.4840692689832473326097180339984E+00;    
    xtab(106) =    8.7175658087076307363833999548548E+00;    
    xtab(107) =    8.9537488108565404323807890169970E+00;    
    xtab(108) =    9.1928244988460305715774195052527E+00;    
    xtab(109) =    9.4350233389881650135019598506287E+00;    
    xtab(110) =    9.6806044412474728038150712732737E+00;    
    xtab(111) =    9.9298610495114250736847004273684E+00;    
    xtab(112) =    10.183127473450343888624126450357E+00;    
    xtab(113) =    10.440787957772772867742591798027E+00;    
    xtab(114) =    10.703288201027481347670940744690E+00;    
    xtab(115) =    10.971150569840247423423040263881E+00;    
    xtab(116) =    11.244994583785543445194384194300E+00;    
    xtab(117) =    11.525565112572696599167888588564E+00;    
    xtab(118) =    11.813772198267727195134584136191E+00;    
    xtab(119) =    12.110749020947747600132123508132E+00;    
    xtab(120) =    12.417939378869715805445879624069E+00;    
    xtab(121) =    12.737235652415686338138003924072E+00;    
    xtab(122) =    13.071208660474601901583995439649E+00;    
    xtab(123) =    13.423518590070950062438258321855E+00;    
    xtab(124) =    13.799722290211676634645246746673E+00;    
    xtab(125) =    14.209085995284870755168244250887E+00;    
    xtab(126) =    14.669595158833972632746354112896E+00;    
    xtab(127) =    15.228338148167350978246954433464E+00;    
 
    weight(  1) =   0.12504497577050595552677230002883E-100;
    weight(  2) =   0.17272798059419131415318615789672E-93;
    weight(  3) =   0.89321681571986548608031150791499E-88;
    weight(  4) =   0.77306185240893578449625186483810E-83;
    weight(  5) =   0.20143957652648255497735460506196E-78;
    weight(  6) =   0.21503714733610239701351039429345E-74;
    weight(  7) =   0.11341924208594594813715533569504E-70;
    weight(  8) =   0.33489139011795051950683388483136E-67;
    weight(  9) =   0.60486548964016681064424451668405E-64;
    weight( 10) =   0.71375092946352177824971347343892E-61;
    weight( 11) =   0.57884563374885556636801095624030E-58;
    weight( 12) =   0.33581166223858230300409326551248E-55;
    weight( 13) =   0.14394641949253923568603163698953E-52;
    weight( 14) =   0.46821808383216117724080263903889E-50;
    weight( 15) =   0.11817054440684264071348471955361E-47;
    weight( 16) =   0.23581659156008927203181682045005E-45;
    weight( 17) =   0.37814427940797540210712758405540E-43;
    weight( 18) =   0.49411031115771638145610738414006E-41;
    weight( 19) =   0.53255303775425059266087298458297E-39;
    weight( 20) =   0.47854390680131484999315199332765E-37;
    weight( 21) =   0.36191883445952356128627543209554E-35;
    weight( 22) =   0.23232083386343554805352497446119E-33;
    weight( 23) =   0.12753331411008716683688974281454E-31;
    weight( 24) =   0.60277753850758742112436095241270E-30;
    weight( 25) =   0.24679773241777200207460855084439E-28;
    weight( 26) =   0.88019567691698482573264198727415E-27;
    weight( 27) =   0.27482489212040561315005725890593E-25;
    weight( 28) =   0.75468218903085486125222816438456E-24;
    weight( 29) =   0.18303134636280466270545996891835E-22;
    weight( 30) =   0.39355990860860813085582448449811E-21;
    weight( 31) =   0.75293161638581191068419292570042E-20;
    weight( 32) =   0.12857997786722855037584105682618E-18;
    weight( 33) =   0.19659326888445857792541925311450E-17;
    weight( 34) =   0.26986511907214101894995783364250E-16;
    weight( 35) =   0.33344414303198856330118301113874E-15;
    weight( 36) =   0.37173303125150639885726463109574E-14;
    weight( 37) =   0.37473954472839737091885387788983E-13;
    weight( 38) =   0.34230094493397259538669512076007E-12;
    weight( 39) =   0.28385303724993373166810860630552E-11;
    weight( 40) =   0.21406920290454669208938772802828E-10;
    weight( 41) =   0.14706331273431716244229273183839E-09;
    weight( 42) =   0.92173940967434659264335883218167E-09;
    weight( 43) =   0.52781663936972714041837056042506E-08;
    weight( 44) =   0.27650497044951117835905283127679E-07;
    weight( 45) =   0.13267855842539464770913063113371E-06;
    weight( 46) =   0.58380944276113062188573331195042E-06;
    weight( 47) =   0.23581561724775629112332165335800E-05;
    weight( 48) =   0.87524468034280444703919485644809E-05;
    weight( 49) =   0.29876790535909012274846532159647E-04;
    weight( 50) =   0.93874435720072545206729594267039E-04;
    weight( 51) =   0.27170762627931172053444716883938E-03;
    weight( 52) =   0.72493929742498358979684249380921E-03;
    weight( 53) =   0.17841208326763432884316727108264E-02;
    weight( 54) =   0.40524855186046131499765636276283E-02;
    weight( 55) =   0.85000263041544110385806705526917E-02;
    weight( 56) =   0.16471142241609687824005585301760E-01;
    weight( 57) =   0.29499296248213632269675010319119E-01;
    weight( 58) =   0.48847387114300011006959603975676E-01;
    weight( 59) =   0.74807989768583731416517226905270E-01;
    weight( 60) =   0.10598520508090929403834368934301E+00;    
    weight( 61) =   0.13893945309051540832066283010510E+00;    
    weight( 62) =   0.16856236074207929740526975049765E+00;    
    weight( 63) =   0.18927849580120432177170145550076E+00;    
    weight( 64) =   0.19673340688823289786163676995151E+00;    
    weight( 65) =   0.18927849580120432177170145550076E+00;    
    weight( 66) =   0.16856236074207929740526975049765E+00;    
    weight( 67) =   0.13893945309051540832066283010510E+00;    
    weight( 68) =   0.10598520508090929403834368934301E+00;    
    weight( 69) =   0.74807989768583731416517226905270E-01;
    weight( 70) =   0.48847387114300011006959603975676E-01;
    weight( 71) =   0.29499296248213632269675010319119E-01;
    weight( 72) =   0.16471142241609687824005585301760E-01;
    weight( 73) =   0.85000263041544110385806705526917E-02;
    weight( 74) =   0.40524855186046131499765636276283E-02;
    weight( 75) =   0.17841208326763432884316727108264E-02;
    weight( 76) =   0.72493929742498358979684249380921E-03;
    weight( 77) =   0.27170762627931172053444716883938E-03;
    weight( 78) =   0.93874435720072545206729594267039E-04;
    weight( 79) =   0.29876790535909012274846532159647E-04;
    weight( 80) =   0.87524468034280444703919485644809E-05;
    weight( 81) =   0.23581561724775629112332165335800E-05;
    weight( 82) =   0.58380944276113062188573331195042E-06;
    weight( 83) =   0.13267855842539464770913063113371E-06;
    weight( 84) =   0.27650497044951117835905283127679E-07;
    weight( 85) =   0.52781663936972714041837056042506E-08;
    weight( 86) =   0.92173940967434659264335883218167E-09;
    weight( 87) =   0.14706331273431716244229273183839E-09;
    weight( 88) =   0.21406920290454669208938772802828E-10;
    weight( 89) =   0.28385303724993373166810860630552E-11;
    weight( 90) =   0.34230094493397259538669512076007E-12;
    weight( 91) =   0.37473954472839737091885387788983E-13;
    weight( 92) =   0.37173303125150639885726463109574E-14;
    weight( 93) =   0.33344414303198856330118301113874E-15;
    weight( 94) =   0.26986511907214101894995783364250E-16;
    weight( 95) =   0.19659326888445857792541925311450E-17;
    weight( 96) =   0.12857997786722855037584105682618E-18;
    weight( 97) =   0.75293161638581191068419292570042E-20;
    weight( 98) =   0.39355990860860813085582448449811E-21;
    weight( 99) =   0.18303134636280466270545996891835E-22;
    weight(100) =   0.75468218903085486125222816438456E-24;
    weight(101) =   0.27482489212040561315005725890593E-25;
    weight(102) =   0.88019567691698482573264198727415E-27;
    weight(103) =   0.24679773241777200207460855084439E-28;
    weight(104) =   0.60277753850758742112436095241270E-30;
    weight(105) =   0.12753331411008716683688974281454E-31;
    weight(106) =   0.23232083386343554805352497446119E-33;
    weight(107) =   0.36191883445952356128627543209554E-35;
    weight(108) =   0.47854390680131484999315199332765E-37;
    weight(109) =   0.53255303775425059266087298458297E-39;
    weight(110) =   0.49411031115771638145610738414006E-41;
    weight(111) =   0.37814427940797540210712758405540E-43;
    weight(112) =   0.23581659156008927203181682045005E-45;
    weight(113) =   0.11817054440684264071348471955361E-47;
    weight(114) =   0.46821808383216117724080263903889E-50;
    weight(115) =   0.14394641949253923568603163698953E-52;
    weight(116) =   0.33581166223858230300409326551248E-55;
    weight(117) =   0.57884563374885556636801095624030E-58;
    weight(118) =   0.71375092946352177824971347343892E-61;
    weight(119) =   0.60486548964016681064424451668405E-64;
    weight(120) =   0.33489139011795051950683388483136E-67;
    weight(121) =   0.11341924208594594813715533569504E-70;
    weight(122) =   0.21503714733610239701351039429345E-74;
    weight(123) =   0.20143957652648255497735460506196E-78;
    weight(124) =   0.77306185240893578449625186483810E-83;
    weight(125) =   0.89321681571986548608031150791499E-88;
    weight(126) =   0.17272798059419131415318615789672E-93;
    weight(127) =   0.12504497577050595552677230002883E-100;
    
  else

    fprintf ( 1, '\n' );
    fprintf ( 1, 'HERMITE_SET - Fatal error!\n' );
    fprintf ( 1, '  Illegal value of ORDER = %d\n', order );
    fprintf ( 1, '  Legal values are 1 to 20,\n' );
    fprintf ( 1, '  30, 32, 40, 50, 60, 64 and 127.\n' );
    error ( 'HERMIT_SET - Fatal error!' );

  end

  return
end