subroutine swts500(x,w,n) implicit real*8 (a-h,o-z) dimension w(n),x(n) c c This routine returns a set of Gaussian nodes and weights for c integrating the functions I0(mu*x)exp(lambda*x)dx over the range c x=0 to x=infinity. c They work for lambda in the range [1,501], and mu in the range c [0,lambda-1]. The (experimentally determined, approximate) maximum c error of the quadrature over that range is given in the table below. c c Input arguments: c n - number of weights and nodes in the quadrature. This must c be an integer in the range [2,31]. c c Output arguments: c w - weights c x - nodes c c c N max error c 2 0.91979E-01 c 3 0.30899E-01 c 4 0.98645E-02 c 5 0.31526E-02 c 6 0.99743E-03 c 7 0.30087E-03 c 8 0.89263E-04 c 9 0.27135E-04 c 10 0.83027E-05 c 11 0.26432E-05 c 12 0.82652E-06 c 13 0.26924E-06 c 14 0.90027E-07 c 15 0.28748E-07 c 16 0.89558E-08 c 17 0.30402E-08 c 18 0.89546E-09 c 19 0.30465E-09 c 20 0.88760E-10 c 21 0.28984E-10 c 22 0.91311E-11 c 23 0.29502E-11 c 24 0.92537E-12 c 25 0.28644E-12 c 26 0.91482E-13 c 27 0.29976E-13 c 28 0.92149E-14 c 29 0.29976E-14 c 30 0.99920E-15 c 31 0.44409E-15 c c if(n.lt.2 .or. n.gt.31) stop 'n out of bounds in swts500()' c if(n.eq. 2) then x( 1)= 0.32088298467712647599192621328256791D-01 x( 2)= 0.61729149370321267920047603183775209D+00 w( 1)= 0.12438959789992289073357056849999935D+00 w( 2)= 0.14600573986725975395017940172692761D+01 endif if(n.eq. 3) then x( 1)= 0.89142823155325037060014992107426224D-02 x( 2)= 0.14098542875382244488058347542391857D+00 x( 3)= 0.10408979497966415195264744397718459D+01 w( 1)= 0.31639433337548997227095526341145160D-01 w( 2)= 0.31954336753394751990953182030352764D+00 w( 3)= 0.18695788367248951100663134639034979D+01 endif if(n.eq. 4) then x( 1)= 0.44825076593129542165683254495434085D-02 x( 2)= 0.51292375725212675796615968693004106D-01 x( 3)= 0.32072921859367709007671010112971999D+00 x( 4)= 0.15133354650834651700108679506229237D+01 w( 1)= 0.14113622302327152174816760066278221D-01 w( 2)= 0.10437552683588710578099778558680555D+00 w( 3)= 0.53463976968241089249289643703377806D+00 w( 4)= 0.22208899072518075712423524237237871D+01 endif if(n.eq. 5) then x( 1)= 0.28612350125721834788461439558204802D-02 x( 2)= 0.25357848736354309665541606477745518D-01 x( 3)= 0.13186575723550061911559794225468067D+00 x( 4)= 0.55126837171837450579658934657345526D+00 x( 5)= 0.20039026627788496526250128226820379D+01 w( 1)= 0.83076675033245186985375596577796387D-02 w( 2)= 0.45784042209467537554168359292816604D-01 w( 3)= 0.20087033170911722246287922644114587D+00 w( 4)= 0.74308222915792310203642045962624252D+00 w( 5)= 0.25198299790289340194249234627932310D+01 endif if(n.eq. 6) then x( 1)= 0.20149518147583359538310698866325765D-02 x( 2)= 0.15249951231161565021188231128235202D-01 x( 3)= 0.67523560888815073455226922760630259D-01 x( 4)= 0.25015659003077289623817591746046674D+00 x( 5)= 0.82360056671355907909060078964103013D+00 x( 6)= 0.25119173433930006567038617504294962D+01 w( 1)= 0.56099592101567811661122497923770425D-02 w( 2)= 0.24866405356545790567013298755227879D-01 w( 3)= 0.93330529827238897788710403347067768D-01 w( 4)= 0.31143184763824516281260912364814430D+00 w( 5)= 0.94191855231439802764725754968822002D+00 w( 6)= 0.27839351227638897690042085741879418D+01 endif if(n.eq. 7) then x( 1)= 0.15641271762939011440163294963667795D-02 x( 2)= 0.10766970003633453620284221585734485D-01 x( 3)= 0.41725297069834924035269807518488960D-01 x( 4)= 0.13717833568892590090371186306583695D+00 x( 5)= 0.41032298711834636062434356063022278D+00 x( 6)= 0.11421282405380481783652157901087776D+01 x( 7)= 0.30529749924009186301532281504478306D+01 w( 1)= 0.42656088869811974173540392030190560D-02 w( 2)= 0.16199126171831449566562710629114008D-01 w( 3)= 0.52215288937658713153133760442869971D-01 w( 4)= 0.15608941507376652979566244994202862D+00 w( 5)= 0.43357307819269225168667958314472344D+00 w( 6)= 0.11361105916527833858964413593639620D+01 w( 7)= 0.30290582580529346046205318998545408D+01 endif if(n.eq. 8) then x( 1)= 0.13107544535183952762874559638817118D-02 x( 2)= 0.84278150464213372194954843052983051D-02 x( 3)= 0.29343372375425957193639803222140472D-01 x( 4)= 0.86633319210854514702546680382511113D-01 x( 5)= 0.23628959838742266685862603026180295D+00 x( 6)= 0.60838289261400391172429635844309814D+00 x( 7)= 0.14960745844037075524823876548907720D+01 x( 8)= 0.36131044055709353735039712773868814D+01 w( 1)= 0.35222905442692962682538215801741899D-02 w( 2)= 0.11885330507970890551172615801078791D-01 w( 3)= 0.33425853087327574153508891185992979D-01 w( 4)= 0.89859099632053129891318121735821478D-01 w( 5)= 0.22979636150590607157617739630950382D+00 w( 6)= 0.56009683383622699270887324018985964D+00 w( 7)= 0.13202443038952975662425615155370906D+01 w( 8)= 0.32536133624137271169729501707479358D+01 endif if(n.eq. 9) then x( 1)= 0.11279492003902276842791652100572719D-02 x( 2)= 0.68909614178005312856711839231138583D-02 x( 3)= 0.22122644479931296429553455595851119D-01 x( 4)= 0.59787279537676846219440562890667934D-01 x( 5)= 0.15043185595147859356934816332795890D+00 x( 6)= 0.36114434618462887272016814677044749D+00 x( 7)= 0.83429377638969337560581607249332592D+00 x( 8)= 0.18696516104365370480877572845201939D+01 x( 9)= 0.41737821806571311356037767836824059D+01 w( 1)= 0.29954129165339960817748821142458837D-02 w( 2)= 0.92409484688315678829750865475034516D-02 w( 3)= 0.23239548905974113934824742955242982D-01 w( 4)= 0.56887576542316214966987786283425521D-01 w( 5)= 0.13497946384782999462714769833837636D+00 w( 6)= 0.30895569000802436399055750371189788D+00 w( 7)= 0.68433755539097362863287798973033205D+00 w( 8)= 0.14900259407663991595427432912401855D+01 w( 9)= 0.34558588618648355961227025545667857D+01 endif if(n.eq. 10) then x( 1)= 0.97324819181847821870229298113486038D-03 x( 2)= 0.57405429300829754341028987596473598D-02 x( 3)= 0.17420744710256185622254676559350628D-01 x( 4)= 0.43999563574612772509642155682740849D-01 x( 5)= 0.10350112862742349983946610336715821D+00 x( 6)= 0.23363512407847727980758634203084512D+00 x( 7)= 0.51070090141575530395812165807001293D+00 x( 8)= 0.10860321517357978127193973705288954D+01 x( 9)= 0.22628016803059725070568219962297007D+01 x(10)= 0.47411435675673239131810987601056695D+01 w( 1)= 0.25626020396535848649977040736303024D-02 w( 2)= 0.74301086543671788706144631930783362D-02 w( 3)= 0.17181686641368373175131623042943829D-01 w( 4)= 0.38830465289657792316013740219204919D-01 w( 5)= 0.86159570064230001085192611753882375D-01 w( 6)= 0.18625690428352323357863440378423547D+00 w( 7)= 0.39197361421970366990308320964686573D+00 w( 8)= 0.80635853750489372426812906269333325D+00 w( 9)= 0.16496065592622861650795584864681587D+01 w(10)= 0.36435939823233671752689133427338675D+01 endif if(n.eq. 11) then x( 1)= 0.85763500204440504780245557725493200D-03 x( 2)= 0.49514681138380549699218313719484286D-02 x( 3)= 0.14461781008682377674956498481151357D-01 x( 4)= 0.34647811117214752374415809299534885D-01 x( 5)= 0.76901943045683859856431752177741146D-01 x( 6)= 0.16408116948911419252787879941024585D+00 x( 7)= 0.34047167225647195776261355604219716D+00 x( 8)= 0.69014904091157458498884125219774432D+00 x( 9)= 0.13711101764816149284342827741056681D+01 x(10)= 0.26880482693507929958798285952070728D+01 x(11)= 0.53357500676291635954839875921607018D+01 w( 1)= 0.22468023041449253912604788752105378D-02 w( 2)= 0.62622415806997998657945636580279825D-02 w( 3)= 0.13587532272764324403624414117075503D-01 w( 4)= 0.28600015609237659786057150768101565D-01 w( 5)= 0.59559975287718398828662458299731952D-01 w( 6)= 0.12188836512874196005284943566948641D+00 w( 7)= 0.24437462069801707542637814185582101D+00 w( 8)= 0.48026398995486530019149995496263728D+00 w( 9)= 0.92964009549017201372578256268752739D+00 w(10)= 0.18055937204641492321854912006529048D+01 w(11)= 0.38261248594000307754470213694730774D+01 endif if(n.eq. 12) then x( 1)= 0.77674290631072793415073940437309830D-03 x( 2)= 0.44143164629171140894703384560671111D-02 x( 3)= 0.12504828441850095524512376243819745D-01 x( 4)= 0.28664831261366707781945706301485188D-01 x( 5)= 0.60467270099443297393104757020410034D-01 x( 6)= 0.12260111757567056234297098171737161D+00 x( 7)= 0.24244906563427992551851275493390858D+00 x( 8)= 0.47006111921153576060916634560271632D+00 x( 9)= 0.89573128079380004429310702107613906D+00 x(10)= 0.16821234664675057679517067299457267D+01 x(11)= 0.31342863263013134300649653596337885D+01 x(12)= 0.59431301894186017165111479698680341D+01 w( 1)= 0.20278126474291553564543999499392157D-02 w( 2)= 0.54819962807667295748292879409291345D-02 w( 3)= 0.11271803911502025277724392537948006D-01 w( 4)= 0.22260335977634850695983104174047185D-01 w( 5)= 0.43704416165866663557260096695245011D-01 w( 6)= 0.84967741105530514289512211689725518D-01 w( 7)= 0.16279048520975913927344436160637997D+00 w( 8)= 0.30698573639806758794890129138366319D+00 w( 9)= 0.57046898934208289944081116118468344D+00 w(10)= 0.10503800481259335519723663310287520D+01 w(11)= 0.19544663382093023784591423464007676D+01 w(12)= 0.40001496241739671333448313816916198D+01 endif if(n.eq. 13) then x( 1)= 0.70780277034724226482148567995977828D-03 x( 2)= 0.39675170357528523334966763513875776D-02 x( 3)= 0.10950841849367084698818608501369454D-01 x( 4)= 0.24198906904788337196565706221917935D-01 x( 5)= 0.48913392456328710911073187617148506D-01 x( 6)= 0.94930733867530189828976006083394168D-01 x( 7)= 0.18000171605247627937274046416860074D+00 x( 8)= 0.33549810275024782857400396096636541D+00 x( 9)= 0.61619595385556469313570460144546814D+00 x(10)= 0.11170116988572527105816334369592369D+01 x(11)= 0.20034791203534805248409611522220075D+01 x(12)= 0.35799794258005341873740690061822534D+01 x(13)= 0.65345032891368450833624592632986605D+01 w( 1)= 0.18422235174188072732298637745884662D-02 w( 2)= 0.48483600092279035068121295637411095D-02 w( 3)= 0.95219683927227176389873619655190851D-02 w( 4)= 0.17809359848192544278910887101119442D-01 w( 5)= 0.33207183377168783544597374657314504D-01 w( 6)= 0.61694491388797192965576243750547292D-01 w( 7)= 0.11351919448097630427341186987177934D+00 w( 8)= 0.20633698544353176740351329954137327D+00 w( 9)= 0.37040967757194165344003522477578372D+00 w(10)= 0.65785058114066941037378910550614819D+00 w(11)= 0.11630366764260076095638396509457380D+01 w(12)= 0.20898058463036153220571122801629826D+01 w(13)= 0.41572769829542570718672322982456535D+01 endif if(n.eq. 14) then x( 1)= 0.64242885347959560043973326060040563D-03 x( 2)= 0.35623196669901449618045319311931962D-02 x( 3)= 0.96434240570744400589120459699188359D-02 x( 4)= 0.20742985997703491246602069963955728D-01 x( 5)= 0.40579282600223330612632111069615348D-01 x( 6)= 0.76005722801692515711025066593720112D-01 x( 7)= 0.13904430534853445822207618221000303D+00 x( 8)= 0.25031360515669925925763550367264543D+00 x( 9)= 0.44476229182821080954113313055131584D+00 x(10)= 0.78112763460035861129426848492585123D+00 x(11)= 0.13578181622571006137434324045898393D+01 x(12)= 0.23419925342369771747996765043353662D+01 x(13)= 0.40365294130756543822258208820130676D+01 x(14)= 0.71265029746626353812644083518534899D+01 w( 1)= 0.16679643678603956521294682247003038D-02 w( 2)= 0.42989030670803896061471505163353868D-02 w( 3)= 0.81595454612659185089640345722727943D-02 w( 4)= 0.14638646409610279672253163596451486D-01 w( 5)= 0.26143914533222262219780418490699958D-01 w( 6)= 0.46657555378687251557145998503983719D-01 w( 7)= 0.82763616285218832846481973319896497D-01 w( 8)= 0.14544782229953417962420303410908673D+00 w( 9)= 0.25298714580460163192654476915777195D+00 w(10)= 0.43570099253729732691198250904562883D+00 w(11)= 0.74460595967299669784011939555057324D+00 w(12)= 0.12714349067869241682871006560162641D+01 w(13)= 0.22168073538316903636768984142690897D+01 w(14)= 0.43023671033748360770232466165907681D+01 endif if(n.eq. 15) then x( 1)= 0.59290644328190015080459751573016547D-03 x( 2)= 0.32651258916033066084794178607353388D-02 x( 3)= 0.87251530024927241580012804433863494D-02 x( 4)= 0.18401115067919703721655011463553819D-01 x( 5)= 0.35059646031820088096786491860257229D-01 x( 6)= 0.63666444301474903189053122787299799D-01 x( 7)= 0.11272640778285908380595969902060460D+00 x( 8)= 0.19644435278988719995041378751921002D+00 x( 9)= 0.33824555305450326736504962354956660D+00 x(10)= 0.57643418057808404331154861210961826D+00 x(11)= 0.97328190151235327576273448357824236D+00 x(12)= 0.16301261922264329573550867280573584D+01 x(13)= 0.27152795177569246654059043066808954D+01 x(14)= 0.45300165931023474996663935598917305D+01 x(15)= 0.77567147267420804013227098039351404D+01 w( 1)= 0.15369835814005173690172112443974584D-02 w( 2)= 0.39081902136652284934781320657748438D-02 w( 3)= 0.72410531881849206706225352547789953D-02 w( 4)= 0.12557936982250775953540156137933081D-01 w( 5)= 0.21565234582603801105626928347192006D-01 w( 6)= 0.37031115667047129202948951842699898D-01 w( 7)= 0.63399351413407453725845641656633234D-01 w( 8)= 0.10784928892898987262682908294664230D+00 w( 9)= 0.18199102505162226273149883581936592D+00 w(10)= 0.30452590626375314331042432058893610D+00 w(11)= 0.50563564638988145460984924284275621D+00 w(12)= 0.83519173354917808360653452837141231D+00 w(13)= 0.13825299411065057331171601617825218D+01 w(14)= 0.23454856803731392034251257427968085D+01 w(15)= 0.44483574517850206220259678957518190D+01 endif if(n.eq. 16) then x( 1)= 0.55509661638802789817431770913458422D-03 x( 2)= 0.30394509652627642141975439216139421D-02 x( 3)= 0.80302503643123728654940052251731686D-02 x( 4)= 0.16633968405209115237752826033101883D-01 x( 5)= 0.30933628395912782932386519973988470D-01 x( 6)= 0.54597800642191302022965260221099015D-01 x( 7)= 0.93803640271653748738955869157507550D-01 x( 8)= 0.15864747855845184876244502447661944D+00 x( 9)= 0.26538425708936169700180585095949937D+00 x(10)= 0.43997040083539196153594730276381597D+00 x(11)= 0.72360715249623019929003930883482099D+00 x(12)= 0.11814930996547248209793679052381776D+01 x(13)= 0.19173206347739426558263176048058085D+01 x(14)= 0.31004358707219830115775494050467387D+01 x(15)= 0.50314127258633929429265663202386349D+01 x(16)= 0.83919748976039549859251565067097545D+01 w( 1)= 0.14371431091406751141131836746467343D-02 w( 2)= 0.36126939698252419699842086231456051D-02 w( 3)= 0.65472806101656635946461904040916124D-02 w( 4)= 0.10997305432776991948595757264683925D-01 w( 5)= 0.18198430251453383971194099899548746D-01 w( 6)= 0.30136790688822630984722295011124515D-01 w( 7)= 0.49921373380102704309102534807607299D-01 w( 8)= 0.82417973623216872480767847264360171D-01 w( 9)= 0.13529189912868008760504778820177307D+00 w(10)= 0.22060658730463980625735587182134623D+00 w(11)= 0.35730465571585856565661742934025824D+00 w(12)= 0.57533932323646219675339352761511691D+00 w(13)= 0.92363645506275215968372549468767829D+00 w(14)= 0.14898779479449495433129868615651503D+01 w(15)= 0.24703490513894856839272051729494706D+01 w(16)= 0.45928505471712091079439232998993248D+01 endif if(n.eq. 17) then x( 1)= 0.51411251062057246319358938535515335D-03 x( 2)= 0.27985816634958230256224887000371382D-02 x( 3)= 0.73115361108455172167719382514405879D-02 x( 4)= 0.14896584235261451853449266025108955D-01 x( 5)= 0.27130764995374270776018477135949070D-01 x( 6)= 0.46770841716394354059538329693168635D-01 x( 7)= 0.78392715190568618144340007347636856D-01 x( 8)= 0.12932664687537293035646257521875668D+00 x( 9)= 0.21111706862869672463034476095344871D+00 x(10)= 0.34180480490189096842712501711503137D+00 x(11)= 0.54943377340822685539478698046877980D+00 x(12)= 0.87742287906761728955018497799756005D+00 x(13)= 0.13929684652120344345860303292283788D+01 x(14)= 0.22010388829455287407199648441746831D+01 x(15)= 0.34711040303579330235095312673365697D+01 x(16)= 0.55029212886447904651276985532604158D+01 x(17)= 0.89788772924426254462559882085770369D+01 w( 1)= 0.13292820011897869738465294275897577D-02 w( 2)= 0.33027707551207346158006483705094070D-02 w( 3)= 0.58591744289639719617257540562604845D-02 w( 4)= 0.95663322849971633293764128325165075D-02 w( 5)= 0.15351046262625411137348052648121666D-01 w( 6)= 0.24676768719967906440260208000836428D-01 w( 7)= 0.39765043040600168977594108810080797D-01 w( 8)= 0.63989760989184685247010975217563100D-01 w( 9)= 0.10254087935007627496730719940387644D+00 w(10)= 0.16342155615803446999656500793207670D+00 w(11)= 0.25893803187014291511403030199289788D+00 w(12)= 0.40801971824943727984447150447522290D+00 w(13)= 0.64016465730295435410113213947624899D+00 w(14)= 0.10033165360252471742796842590905726D+01 w(15)= 0.15839329455094954823834996204823256D+01 w(16)= 0.25779354346278919862811562779825181D+01 w(17)= 0.47180267723943005719888788007665426D+01 endif if(n.eq. 18) then x( 1)= 0.48052547753916916234775968952419589D-03 x( 2)= 0.26062348308449724901270094790106668D-02 x( 3)= 0.67635070992584870458452783736902347D-02 x( 4)= 0.13645939319598555244938964392531489D-01 x( 5)= 0.24532432139738116760874220290133962D-01 x( 6)= 0.41604716053938992081917547238845145D-01 x( 7)= 0.68398965466465913576321611344610574D-01 x( 8)= 0.11046898948278124907851349689735798D+00 x( 9)= 0.17639428716305635691519171359686879D+00 x(10)= 0.27931579755148328025882165093207732D+00 x(11)= 0.43924802481742025728195244482776616D+00 x(12)= 0.68653461498571466403717522553051822D+00 x(13)= 0.10670358710804317414755360005074181D+01 x(14)= 0.16501368098034441267429883737349883D+01 x(15)= 0.25420870073230332764069316908717155D+01 x(16)= 0.39119876879760075993885948264505714D+01 x(17)= 0.60575457342591629839034794713370502D+01 x(18)= 0.96604319929302118197256277198903263D+01 w( 1)= 0.12414027402544559972735749298067276D-02 w( 2)= 0.30623195163326437200079777056771491D-02 w( 3)= 0.53642431914859671493456261259780149D-02 w( 4)= 0.86085441242056449928643502289560274D-02 w( 5)= 0.13520715294348343432639936168015993D-01 w( 6)= 0.21202486886778688229826528299781785D-01 w( 7)= 0.33295274633126509256086933419283014D-01 w( 8)= 0.52249664934334895394218989395085373D-01 w( 9)= 0.81753391430541402784548665749753127D-01 w(10)= 0.12736910332610115736962086430139607D+00 w(11)= 0.19746848027435998096379421440360602D+00 w(12)= 0.30461963297415078910646002441353630D+00 w(13)= 0.46773835466923424641905171483813319D+00 w(14)= 0.71578430633573353336629452314809896D+00 w(15)= 0.10954000180987357726536401969497092D+01 w(16)= 0.16911429960137374095552331709768623D+01 w(17)= 0.26978984962219505483460579853272066D+01 w(18)= 0.48539803772684928517833213845733553D+01 endif if(n.eq. 19) then x( 1)= 0.45774846502537243917232978596132398D-03 x( 2)= 0.24758820166385685571097674539942091D-02 x( 3)= 0.63904474191084905884685518628884893D-02 x( 4)= 0.12779619844264370961961496675485250D-01 x( 5)= 0.22677480372486454734959337997679540D-01 x( 6)= 0.37797784034740211644987084582680836D-01 x( 7)= 0.60865416395178055519732396305698785D-01 x( 8)= 0.96102234883034640122723146760108648D-01 x( 9)= 0.14992827796258137440510438409546623D+00 x(10)= 0.23198702840726584395447673614398809D+00 x(11)= 0.35665894276251147720913081684557255D+00 x(12)= 0.54530002994561188600641798984725028D+00 x(13)= 0.82957847069147683249923375115031376D+00 x(14)= 0.12565387325543755370205190047272481D+01 x(15)= 0.18965473529031364741115339711541310D+01 x(16)= 0.28566498047197330656388203351525590D+01 x(17)= 0.43065281325991628946781020204070956D+01 x(18)= 0.65441302722220262566565907036419958D+01 x(19)= 0.10252427168653104772033657354768366D+02 w( 1)= 0.11818303410017292742056893573021625D-02 w( 2)= 0.28992923893864847896539860272469014D-02 w( 3)= 0.50236338308609291072870384198267857D-02 w( 4)= 0.79234368910627486076725389807506872D-02 w( 5)= 0.12152494323516001978324752030857780D-01 w( 6)= 0.18534286892095637455657453074309160D-01 w( 7)= 0.28293195722108990808330020172434160D-01 w( 8)= 0.43233746791620016047819063942370121D-01 w( 9)= 0.66000898630040757963932662732986500D-01 w(10)= 0.10047687972607940998237552321370458D+00 w(11)= 0.15237208828900541957018788252753438D+00 w(12)= 0.23010621223591390394069833291723626D+00 w(13)= 0.34616410016634913127120398712577298D+00 w(14)= 0.51927488486563688763197887965361588D+00 w(15)= 0.77819569101682461997882001014659181D+00 w(16)= 0.11693940442865475848321921148453839D+01 w(17)= 0.17771372087889689694861772295553237D+01 w(18)= 0.27960683114267230742200354143278673D+01 w(19)= 0.49685355374052209143087566189933568D+01 endif if(n.eq. 20) then x( 1)= 0.42738038503407552301180394316304501D-03 x( 2)= 0.23034261227829477824968762433854863D-02 x( 3)= 0.59051679690975853939671758041640715D-02 x( 4)= 0.11688984923675043922641769711390225D-01 x( 5)= 0.20471544351219561619359410542529076D-01 x( 6)= 0.33625610719088996902748078809963772D-01 x( 7)= 0.53356104402850094980959028134748223D-01 x( 8)= 0.83056039694939576278898130112793297D-01 x( 9)= 0.12778572288797801492776784471061546D+00 x(10)= 0.19496727611633793419976257155212807D+00 x(11)= 0.29540106395284954077240513470314909D+00 x(12)= 0.44476256183285600709353957427083515D+00 x(13)= 0.66585880063895774849669351169723086D+00 x(14)= 0.99204914337818317360273567828699015D+00 x(15)= 0.14723171612299965627101983045577072D+01 x(16)= 0.21788232223434840229003839340293780D+01 x(17)= 0.32194074422117360256834217580035329D+01 x(18)= 0.47629499731267106454879467491991818D+01 x(19)= 0.71057533995981687624521327961701900D+01 x(20)= 0.10931577039313079779958570725284517D+02 w( 1)= 0.11025358314643263994009325656975307D-02 w( 2)= 0.26856070064335815436584731230595935D-02 w( 3)= 0.45918947582783654556837227289634029D-02 w( 4)= 0.71086214782930734132349037679432513D-02 w( 5)= 0.10680651150358898282544117819270468D-01 w( 6)= 0.15989139511138627386399591046028945D-01 w( 7)= 0.24029611266738463981607054620326380D-01 w( 8)= 0.36202299749437442943911236170606571D-01 w( 9)= 0.54477489308721184502193324306063005D-01 w(10)= 0.81661389347540233596411951566551579D-01 w(11)= 0.12178216269785735459407760572503321D+00 w(12)= 0.18068610702809337342777951107564149D+00 w(13)= 0.26698325642219877806837757816538215D+00 w(14)= 0.39344014813312672140810377641173545D+00 w(15)= 0.57892940956206506708525694193667732D+00 w(16)= 0.85168167964507457412537405616603792D+00 w(17)= 0.12567264424405037992471534380456433D+01 w(18)= 0.18768145395994157986763184453593567D+01 w(19)= 0.29067624544675383368996790522942320D+01 w(20)= 0.50951939033630990749657030391972512D+01 endif if(n.eq. 21) then x( 1)= 0.40515953297243261421387017229278626D-03 x( 2)= 0.21788669547921591870820456904311868D-02 x( 3)= 0.55626371753695891264612782833864912D-02 x( 4)= 0.10940614195087603605083259594721312D-01 x( 5)= 0.18988078966943069264550203456565214D-01 x( 6)= 0.30806429794610724198777873539256689D-01 x( 7)= 0.48105765841011574601715494736708933D-01 x( 8)= 0.73473989737872349992109377581073204D-01 x( 9)= 0.11078602932401582226162872757413425D+00 x(10)= 0.16576389469695645972890929442655761D+00 x(11)= 0.24669178127520705046116233916109195D+00 x(12)= 0.36539943860393353514126602021860890D+00 x(13)= 0.53876709745671691464963259932119399D+00 x(14)= 0.79104590355218495911771015016711317D+00 x(15)= 0.11571930925066049589133854169631377D+01 x(16)= 0.16875188391480298033542339908308350D+01 x(17)= 0.24547898243532220163842794136144221D+01 x(18)= 0.35667804442406283449429338361369446D+01 x(19)= 0.51919754476739070625512795231770724D+01 x(20)= 0.76262071213354953869156815926544368D+01 x(21)= 0.11554557668073702103583855205215514D+02 w( 1)= 0.10446869775720521358181036575274447D-02 w( 2)= 0.25335422333117836937721456536110054D-02 w( 3)= 0.42964256178278960318639434490251006D-02 w( 4)= 0.65698292197069636799700020901582320D-02 w( 5)= 0.97057185703874771648402841606184666D-02 w( 6)= 0.14211683044354521052166084871259955D-01 w( 7)= 0.20811495691696609011689389490129543D-01 w( 8)= 0.30561383583937725555434994362258294D-01 w( 9)= 0.45004703895412612180138012263341807D-01 w(10)= 0.66315980242162370084102462897135410D-01 w(11)= 0.97487118911226661177593655338569079D-01 w(12)= 0.14270333053271350154389551789790858D+00 w(13)= 0.20801860596487606325233343795844121D+00 w(14)= 0.30229013504020507685510210649226792D+00 w(15)= 0.43827740271162995977505261180340312D+00 w(16)= 0.63430719324727447006040392807335593D+00 w(17)= 0.91781504107417111182343205655342899D+00 w(18)= 0.13333388500171134971594710805220529D+01 w(19)= 0.19634122112405252291722490554093383D+01 w(20)= 0.30030978068557701021745742764323950D+01 w(21)= 0.52059611319955489960875638644210994D+01 endif if(n.eq. 22) then x( 1)= 0.38549039729434065237531625847111627D-03 x( 2)= 0.20690499360973618400705298370212404D-02 x( 3)= 0.52626000382852934286748158854152280D-02 x( 4)= 0.10290400688647956262133931204516557D-01 x( 5)= 0.17714709236780007417522142532106955D-01 x( 6)= 0.28445572780060990325523562205489725D-01 x( 7)= 0.43895328933135940863152768542931881D-01 x( 8)= 0.66182456222848851101758782533579506D-01 x( 9)= 0.98390311757173720685898388182977214D-01 x(10)= 0.14494200911067331438708549740113085D+00 x(11)= 0.21217985091922450524570820107328473D+00 x(12)= 0.30916279042820909994659928088367451D+00 x(13)= 0.44871148449167547189730953505204525D+00 x(14)= 0.64891275500351275340449319628532976D+00 x(15)= 0.93533717121680870487665515611297451D+00 x(16)= 0.13441445895201165061649817289435305D+01 x(17)= 0.19265709554424552685247817862546071D+01 x(18)= 0.27560410854996146845508064870955423D+01 x(19)= 0.39405859669137721645881811127765104D+01 x(20)= 0.56483242301394893658539331227075309D+01 x(21)= 0.81744948918174564767014089738950133D+01 x(22)= 0.12205709385363233465682242240291089D+02 w( 1)= 0.99352959553459098233918478371151650D-03 w( 2)= 0.24000684340751759701659828749598091D-02 w( 3)= 0.40398252110420036775639829329520580D-02 w( 4)= 0.61076840088298825146018167231432017D-02 w( 5)= 0.88900511366194201468005076094414108D-02 w( 6)= 0.12803642019392894035867414004314924D-01 w( 7)= 0.18444789886059093780845685728309036D-01 w( 8)= 0.26637396566209961545901307999884011D-01 w( 9)= 0.38505830995842607600287976765685016D-01 w(10)= 0.55641273785535828866333218911677250D-01 w(11)= 0.80327410404583410308276825162465684D-01 w(12)= 0.11575089459990950402357157145161182D+00 w(13)= 0.16632419215881646956667339054547483D+00 w(14)= 0.23828932471972993911712990211526630D+00 w(15)= 0.34051429745245548330601081943314057D+00 w(16)= 0.48552656796420784468537590328196529D+00 w(17)= 0.69137110794811906799850476090796292D+00 w(18)= 0.98519814305725583736261796730104834D+00 w(19)= 0.14109980688159116102298185069230385D+01 w(20)= 0.20507131032499970046956150326877832D+01 w(21)= 0.30997872777847659264693902514409274D+01 w(22)= 0.53171489778907652379302817280404270D+01 endif if(n.eq. 23) then x( 1)= 0.36730392279929572089611222729388373D-03 x( 2)= 0.19679235430846968996076995495059236D-02 x( 3)= 0.49883970991908719791463333592673735D-02 x( 4)= 0.97028556459426602842643916346787591D-02 x( 5)= 0.16580457921047033614803112300251087D-01 x( 6)= 0.26371537912519508323194727950067318D-01 x( 7)= 0.40226494050480766928590270481436164D-01 x( 8)= 0.59855753443414337622296983454361907D-01 x( 9)= 0.87745235203974036863883156911469996D-01 x(10)= 0.12744162608548953441456319524149876D+00 x(11)= 0.18394012526307376709233665224019205D+00 x(12)= 0.26425043857981073136542704560270067D+00 x(13)= 0.37819540690686292983002658729674295D+00 x(14)= 0.53949149635476756348140270347357728D+00 x(15)= 0.76725983395452856949958686527679674D+00 x(16)= 0.10881494415024317579110402220976539D+01 x(17)= 0.15393266422972393669965640583541244D+01 x(18)= 0.21728895229820266443709897430380806D+01 x(19)= 0.30628286609601200751740179839543998D+01 x(20)= 0.43172759802319999877795453357975930D+01 x(21)= 0.61040173307041998285171757743228227D+01 x(22)= 0.87179674414464631837518027168698609D+01 x(23)= 0.12847609664282344965613447129726410D+02 w( 1)= 0.94627226867829658009390048079012558D-03 w( 2)= 0.22777422081281480971404196367302575D-02 w( 3)= 0.38079089674182046119932376626593395D-02 w( 4)= 0.56977797719875026075109225587311812D-02 w( 5)= 0.81805150157271428607019814194245555D-02 w( 6)= 0.11590751658691672218437496155729605D-01 w( 7)= 0.16400672159545472139630106767071993D-01 w( 8)= 0.23267458327699309938996208302341984D-01 w( 9)= 0.33096387271586133471679147532995557D-01 w(10)= 0.47119627756993874567736924063865445D-01 w(11)= 0.67032370077971095700952730567223625D-01 w(12)= 0.95207813478885572333609843553858809D-01 w(13)= 0.13494344999908700066804101425077533D+00 w(14)= 0.19080065013476946167436665291461395D+00 w(15)= 0.26912902754286027739993869545287453D+00 w(16)= 0.37877331476733822057667566696181893D+00 w(17)= 0.53215353904321138767130605629063211D+00 w(18)= 0.74711500887840598394973312679212540D+00 w(19)= 0.10504086225189142034253109159180894D+01 w(20)= 0.14855315308834311505137293352163397D+01 w(21)= 0.21341074672881608087493532366352156D+01 w(22)= 0.31921249270753571103398371633375064D+01 w(23)= 0.54238421487703432077864817983936518D+01 endif if(n.eq. 24) then x( 1)= 0.34957890923157627959330651101765852D-03 x( 2)= 0.18700217829006493975435576615495847D-02 x( 3)= 0.47262678248517391368932472062169836D-02 x( 4)= 0.91517163131934961550761897797201527D-02 x( 5)= 0.15542369800280042210771647148703778D-01 x( 6)= 0.24526968404623407382647570784683921D-01 x( 7)= 0.37063031506901399081410630742539070D-01 x( 8)= 0.54562774597850749458416430570650846D-01 x( 9)= 0.79054959526686438553433333709108410D-01 x(10)= 0.11340067130860748134679738541308325D+00 x(11)= 0.16159334684250956093443107874918496D+00 x(12)= 0.22917297943085859768252987578307511D+00 x(13)= 0.32380136395541520011320812955091242D+00 x(14)= 0.45605584285040517977805052396433894D+00 x(15)= 0.64051134169798518147587174098589458D+00 x(16)= 0.89722793245562637576284714668872766D+00 x(17)= 0.12538095821993131551153055625036359D+01 x(18)= 0.17483183131572526125552258235984482D+01 x(19)= 0.24335788873757286943089184205746278D+01 x(20)= 0.33840108288735519792567174590658396D+01 x(21)= 0.47077954678976192681716383958701044D+01 x(22)= 0.65724409588832761741628019080962986D+01 x(23)= 0.92727365770947240974919623113237321D+01 x(24)= 0.13499436165271424314937576127704233D+02 w( 1)= 0.90028406244658739938230285204667780D-03 w( 2)= 0.21602526030380410360098863975508721D-02 w( 3)= 0.35903383018686609202962944920045629D-02 w( 4)= 0.53253993696073904581811397918045259D-02 w( 5)= 0.75591066501894451507004291102020943D-02 w( 6)= 0.10567588259310617404551635445386637D-01 w( 7)= 0.14737248131059912589768678969903704D-01 w( 8)= 0.20596856928390597230027481145953061D-01 w( 9)= 0.28859412586684715651408339454064844D-01 w(10)= 0.40490798812566314301975012313050684D-01 w(11)= 0.56808442611557354029461208710927167D-01 w(12)= 0.79614690394234716164234555435541552D-01 w(13)= 0.11138723979132628127963755559903802D+00 w(14)= 0.15552643086494685742415811091632349D+00 w(15)= 0.21669423820130359614744008922571084D+00 w(16)= 0.30129220088084485151824765125638805D+00 w(17)= 0.41814538305307769050500610319431871D+00 w(18)= 0.57956800062279478780169483798090369D+00 w(19)= 0.80316887870936326532245175258140080D+00 w(20)= 0.11153483371696979453702169848838821D+01 w(21)= 0.15592139131247444439054561371449381D+01 w(22)= 0.22161872401831996803878155333222821D+01 w(23)= 0.32829744397383624487929409951902926D+01 w(24)= 0.55293986031355393251374152896460146D+01 endif if(n.eq. 25) then x( 1)= 0.33463491203503467489102640719522697D-03 x( 2)= 0.17878835298599752168940968388710644D-02 x( 3)= 0.45082415809692150815424227516814426D-02 x( 4)= 0.86986288309227003529011668092607579D-02 x( 5)= 0.14699893088301085528057932094725402D-01 x( 6)= 0.23047299950682002128710124111421464D-01 x( 7)= 0.34546647024046403529062843063002219D-01 x( 8)= 0.50373481055409570494862947498404537D-01 x( 9)= 0.72202033145982544293239868693490280D-01 x(10)= 0.10237445819070457864174983342309133D+00 x(11)= 0.14412774865237132360107352724298835D+00 x(12)= 0.20190526544553488719202505308203399D+00 x(13)= 0.28178411545643361479918098666530568D+00 x(14)= 0.39205768093470116930632229923503473D+00 x(15)= 0.54402584671172304897623916986049153D+00 x(16)= 0.75306488554103501176228974145487882D+00 x(17)= 0.10400832720692620991798094109981321D+01 x(18)= 0.14335270468547762767741460265824571D+01 x(19)= 0.19722154738970198994962856886559166D+01 x(20)= 0.27095436457616659531311142927734181D+01 x(21)= 0.37202145496680185665638873615534976D+01 x(22)= 0.51123545545592943284418652183376253D+01 x(23)= 0.70531774374799693916315845854114741D+01 x(24)= 0.98374547337544466785175245604477823D+01 x(25)= 0.14158449238364847033722071500960737D+02 w( 1)= 0.86155530235168564009290426142229080D-03 w( 2)= 0.20622414661041962857801479458430549D-02 w( 3)= 0.34116364204870045992445959370797937D-02 w( 4)= 0.50250101672998769702926935565301392D-02 w( 5)= 0.70654680006104111228415476375630533D-02 w( 6)= 0.97620072726455741490836359730565164D-02 w( 7)= 0.13430487135732810041743867657260125D-01 w( 8)= 0.18499436544037531349182756912341574D-01 w( 9)= 0.25544314776230179347971116499138589D-01 w(10)= 0.35334912698185935719941141996969236D-01 w(11)= 0.48905196650344984199421105586225167D-01 w(12)= 0.67653104315469295149121364829625236D-01 w(13)= 0.93473817860880867303130514756048797D-01 w(14)= 0.12893904531869182505943172145634890D+00 w(15)= 0.17753609903535094716175990470219404D+00 w(16)= 0.24399392775004732913934901716856984D+00 w(17)= 0.33473774293513475219796760029566940D+00 w(18)= 0.45855207837679307081302226833940949D+00 w(19)= 0.62761750158674012300963340749149211D+00 w(20)= 0.85930290799093789200213677759165876D+00 w(21)= 0.11796818934669617284782816568622366D+01 w(22)= 0.16315351484748623622778040953562595D+01 w(23)= 0.22961924251831664633982654777355492D+01 w(24)= 0.33712114986768200175504262006143108D+01 w(25)= 0.56320946267467908441517465689685196D+01 endif if(n.eq. 26) then x( 1)= 0.32130081442483969175749614066717186D-03 x( 2)= 0.17146952322617521700248710558867060D-02 x( 3)= 0.43144266999156234004830778872019437D-02 x( 4)= 0.82970623659335326210984007389015460D-02 x( 5)= 0.13955706380902255930864797051071946D-01 x( 6)= 0.21745290390690608789414639545611863D-01 x( 7)= 0.32344049193364116101534477820678148D-01 x( 8)= 0.46734433154759516537701813376770588D-01 x( 9)= 0.66307607371928978245989583228947595D-01 x(10)= 0.92997241744848330169403993750165682D-01 x(11)= 0.12945456489102391550716220081085339D+00 x(12)= 0.17928427340796940225864375406672480D+00 x(13)= 0.24736584598827199288351152972609270D+00 x(14)= 0.34028874042619755568850337112962734D+00 x(15)= 0.46693762520895193413039692131860647D+00 x(16)= 0.63927687021920365229021854247548617D+00 x(17)= 0.87340368925625422313885337644023821D+00 x(18)= 0.11909716454903744864424197658081539D+01 x(19)= 0.16211447380975416709958381034084596D+01 x(20)= 0.22033612568281646382217786594992504D+01 x(21)= 0.29914496611423642136173839389812201D+01 x(22)= 0.40602751232643914391928774421103299D+01 x(23)= 0.55178137937304780891167865775059909D+01 x(24)= 0.75309185376300060710264006047509611D+01 x(25)= 0.10394291316671024461015804263297468D+02 x(26)= 0.14803555372340682083631691057235003D+02 w( 1)= 0.82701002336051175189285400435323936D-03 w( 2)= 0.19750488494297306282798665222344425D-02 w( 3)= 0.32533091597832398261802566707956430D-02 w( 4)= 0.47600645609369371391572656193602597D-02 w( 5)= 0.66320282575579410019872561576903536D-02 w( 6)= 0.90588408935921120590517574555633473D-02 w( 7)= 0.12300687221011749952759295467785705D-01 w( 8)= 0.16709739902554834184433829591398535D-01 w( 9)= 0.22756017424602651560983090917034133D-01 w(10)= 0.31061250255632531086513736795495788D-01 w(11)= 0.42448889235149007970182566396033508D-01 w(12)= 0.58016605196060840043958961587122758D-01 w(13)= 0.79235143382016703927916978500434197D-01 w(14)= 0.10807851004363613900416396518266993D+00 w(15)= 0.14719600146876291035802353235339979D+00 w(16)= 0.20014199323833625765445276556420140D+00 w(17)= 0.27168861905164282122271401931357104D+00 w(18)= 0.36826306514153656079813003998424392D+00 w(19)= 0.49859003614101149448600835967226885D+00 w(20)= 0.67470947570307460150473843896179460D+00 w(21)= 0.91375932716874164185583140351809561D+00 w(22)= 0.12415083342243891095790786494035274D+01 w(23)= 0.17004391304225605630051632033428177D+01 w(24)= 0.23718162662665931428307430905988440D+01 w(25)= 0.34540407847635616889192533562891185D+01 w(26)= 0.57280187621057665481316689692903310D+01 endif if(n.eq. 27) then x( 1)= 0.30784291083006529903334791420377314D-03 x( 2)= 0.16410976838283732655993096827273803D-02 x( 3)= 0.41208837413707214217262198019398056D-02 x( 4)= 0.79003895791823781219465061553819396D-02 x( 5)= 0.13231711091984383818487280848330556D-01 x( 6)= 0.20503262962772085542528799351202906D-01 x( 7)= 0.30290958180038230623809525354772632D-01 x( 8)= 0.43424958818927925086050834124762332D-01 x( 9)= 0.61074038230422088291415860794586479D-01 x(10)= 0.84851512370464246548529274605243700D-01 x(11)= 0.11695168885609918962842357359477319D+00 x(12)= 0.16033167555024199768531900645029964D+00 x(13)= 0.21895691906118389113977684701239923D+00 x(14)= 0.29813138634335112353568320031627081D+00 x(15)= 0.40493802130447353881947947229491547D+00 x(16)= 0.54882356484709049482262344099581242D+00 x(17)= 0.74237476934185586685543967178091407D+00 x(18)= 0.10023526485240337180471215106081218D+01 x(19)= 0.13510834823130364323873209286830388D+01 x(20)= 0.18183643785258414293792839089292102D+01 x(21)= 0.24441621672152034072666992869926617D+01 x(22)= 0.32826535901071598466671730420785025D+01 x(23)= 0.44088036161167609705557879351545125D+01 x(24)= 0.59304155473098179029989296395797282D+01 x(25)= 0.80139956308896387326967669650912285D+01 x(26)= 0.10954184010250134662101118010468781D+02 x(27)= 0.15448844334134985700757169979624450D+02 w( 1)= 0.79217300739022489947105398755411443D-03 w( 2)= 0.18877543389257212067683378009519402D-02 w( 3)= 0.30969106521220516985148929478555146D-02 w( 4)= 0.45035003760100994832371590348429891D-02 w( 5)= 0.62230291252102117038891293532287818D-02 w( 6)= 0.84149520981928460638954447858850472D-02 w( 7)= 0.11297400359713015427498561393804266D-01 w( 8)= 0.15163651754825315312591449412593647D-01 w( 9)= 0.20401155764734644343372238495248894D-01 w(10)= 0.27516524495845854497710902819562762D-01 w(11)= 0.37172636277263276793902946337766480D-01 w(12)= 0.50242801223581892711145258090255084D-01 w(13)= 0.67884418985235395194166585497441702D-01 w(14)= 0.91635368635603370313091886600886937D-01 w(15)= 0.12353957559748997285797855738564976D+00 w(16)= 0.16631229156510118905032413749722764D+00 w(17)= 0.22356079055424951662622845560690621D+00 w(18)= 0.30008486827906138971755467537150253D+00 w(19)= 0.40229918158048083576261433336185291D+00 w(20)= 0.53885892110500033247433293581707403D+00 w(21)= 0.72166239582321933809794245462398976D+00 w(22)= 0.96762963720376882204021740108146332D+00 w(23)= 0.13022571170751535696297196409432217D+01 w(24)= 0.17677730354771059584351178273209371D+01 w(25)= 0.24454000830644164743432611430762336D+01 w(26)= 0.35343359437566070901937109738355502D+01 w(27)= 0.58206290564679123988867104344535619D+01 endif if(n.eq. 28) then x( 1)= 0.29584934936853908267820334465625365D-03 x( 2)= 0.15757987167326441540343706648741318D-02 x( 3)= 0.39505551862448811881178833971262065D-02 x( 4)= 0.75554075090322886376625888260605279D-02 x( 5)= 0.12611459479149059181857239764212864D-01 x( 6)= 0.19456932438404204999127244946066639D-01 x( 7)= 0.28589492859990770640132851099224354D-01 x( 8)= 0.40720540543023556190327383319527144D-01 x( 9)= 0.56843253252470568592791266837593867D-01 x(10)= 0.78318048997689904133778782124863937D-01 x(11)= 0.10698181869154038681202223415311892D+00 x(12)= 0.14529100815545903380154868500540033D+00 x(13)= 0.19651204266190902547606356165488251D+00 x(14)= 0.26497510338883872860193946507934015D+00 x(15)= 0.35641035548597826965178114733134862D+00 x(16)= 0.47839094247323704633956253928772639D+00 x(17)= 0.64091525723161490990520405830466188D+00 x(18)= 0.85717337102460466891074020168161951D+00 x(19)= 0.11445617564180852188115977696725167D+01 x(20)= 0.15260426671340645565777549563790672D+01 x(21)= 0.20320044558776406695699279225664213D+01 x(22)= 0.27029025791969041314644073281669989D+01 x(23)= 0.35932354913601725066030212474288419D+01 x(24)= 0.47780685372028530721877359610516578D+01 x(25)= 0.63650751620490133575458457926288247D+01 x(26)= 0.85205151298673573734276942559517920D+01 x(27)= 0.11539128412934726242156102671287954D+02 x(28)= 0.16121252088413495329177749226801097D+02 w( 1)= 0.76115829583219766617946389075655134D-03 w( 2)= 0.18107117412567504295684006621058870D-02 w( 3)= 0.29609775744639001138214240427259938D-02 w( 4)= 0.42850613698282927210847503829427296D-02 w( 5)= 0.58827083668371443758715599869901780D-02 w( 6)= 0.78902812215341094903564567175635602D-02 w( 7)= 0.10492280643530206216129663232550229D-01 w( 8)= 0.13933934438638214542427462561136053D-01 w( 9)= 0.18536431002029906539574355406330142D-01 w(10)= 0.24716956977976215631409573347809783D-01 w(11)= 0.33016854147607119229768102286470821D-01 w(12)= 0.44141743954520293313770196164114168D-01 w(13)= 0.59016474842780330956060197422630154D-01 w(14)= 0.78857366762654812486488253853167407D-01 w(15)= 0.10526572782940177286370442288898630D+00 w(16)= 0.14034921921403786804205537919187918D+00 w(17)= 0.18688106328058010086046181186247850D+00 w(18)= 0.24851227001839115704484584057354368D+00 w(19)= 0.33006115210524472614039837026211899D+00 w(20)= 0.43792257061225148273564400369650684D+00 w(21)= 0.58067986142204330857197192017338239D+00 w(22)= 0.77009672963417241664529910849523731D+00 w(23)= 0.10228953186488358717554092436330393D+01 w(24)= 0.13643343296144219145560327888233587D+01 w(25)= 0.18364379749333052949111788620939478D+01 w(26)= 0.25204490761403617327118809043895453D+01 w(27)= 0.36164211025134291865867908200016245D+01 w(28)= 0.59156626743618625496878848935011774D+01 endif if(n.eq. 29) then x( 1)= 0.28551794133533655401999129530565824D-03 x( 2)= 0.15196246967282582215896802324550663D-02 x( 3)= 0.38043591416573449212612523240295559D-02 x( 4)= 0.72601380007064862665000504193812958D-02 x( 5)= 0.12082053710628100351431868375584600D-01 x( 6)= 0.18565645431993987868324325063440483D-01 x( 7)= 0.27141567533095680569976693163880554D-01 x( 8)= 0.38420178008782390755015967442886904D-01 x( 9)= 0.53247832566256599051701670077818562D-01 x(10)= 0.72777558297619684979373744226904819D-01 x(11)= 0.98557886111732731504453397519682767D-01 x(12)= 0.13264650357784682488393457333586412D+00 x(13)= 0.17775903878407786629090026053745532D+00 x(14)= 0.23746576588988702050109225183405215D+00 x(15)= 0.31645092404228353233364146035455633D+00 x(16)= 0.42085244579396208219890240798122250D+00 x(17)= 0.55870516483216015046764368889853358D+00 x(18)= 0.74051854794046634289372832427034155D+00 x(19)= 0.98003198733907359585515450817183591D+00 x(20)= 0.12952097956213919349721663820673712D+01 x(21)= 0.17095708516776073615517361758975312D+01 x(22)= 0.22540093859878655990769402706064284D+01 x(23)= 0.29693896386692064659484913136111572D+01 x(24)= 0.39104763276294951523937015736009926D+01 x(25)= 0.51524300076421001293169865675736219D+01 x(26)= 0.68028678135297093731992390530649573D+01 x(27)= 0.90279795195020842157873630640096962D+01 x(28)= 0.12122899080668208426914134179241955D+02 x(29)= 0.16790855995357627961084290291182697D+02 w( 1)= 0.73445030793513864115357181461263281D-03 w( 2)= 0.17445383906622114692647196321217962D-02 w( 3)= 0.28446871966429747302651520612926106D-02 w( 4)= 0.40989612989335809378754760246010846D-02 w( 5)= 0.55935502002984489183790017818864726D-02 w( 6)= 0.74446702718855301689204750914541364D-02 w( 7)= 0.98079685246989407876316846568442998D-02 w( 8)= 0.12889141760317629828436203354158351D-01 w( 9)= 0.16956873457177900482717447516733955D-01 w(10)= 0.22358797598389171246147100191592472D-01 w(11)= 0.29542356985853807094244416475703474D-01 w(12)= 0.39084238593678981288359608470273088D-01 w(13)= 0.51731597006955773454528468846547185D-01 w(14)= 0.68456955508930675269319010567414807D-01 w(15)= 0.90529035204829355620859132613986731D-01 w(16)= 0.11960361823457006658077972360842978D+00 w(17)= 0.15784095246934490286427887895115418D+00 w(18)= 0.20805934517941299111143393929523882D+00 w(19)= 0.27393977501444188860091344395186752D+00 w(20)= 0.36030592902420599532575806733802892D+00 w(21)= 0.47352318677634763766093328740680590D+00 w(22)= 0.62210166009568934608608969938359223D+00 w(23)= 0.81768411000866569882106205113814212D+00 w(24)= 0.10768311750000683080230601262883283D+01 w(25)= 0.14246284390021246579749458760488778D+01 w(26)= 0.19029881498142320328526011508074589D+01 w(27)= 0.25932855483652250683235251926817000D+01 w(28)= 0.36965507223034799189065324753755704D+01 w(29)= 0.60094920622204686111444971174933016D+01 endif if(n.eq. 30) then x( 1)= 0.27495284353526720962090923450205082D-03 x( 2)= 0.14622749606605484583299325862526530D-02 x( 3)= 0.36555697083626467573658214149645573D-02 x( 4)= 0.69610923056922860419071241722122068D-02 x( 5)= 0.11549622273446778081273933480588312D-01 x( 6)= 0.17677846896051719466358420618234959D-01 x( 7)= 0.25717436489155191814415246653879876D-01 x( 8)= 0.36192824786017006866156719979699119D-01 x( 9)= 0.49828719488946196514156383727822686D-01 x(10)= 0.67608665318374824848568493962375214D-01 x(11)= 0.90847023918661853891798330096207792D-01 x(12)= 0.12127946744077733320921197446295992D+00 x(13)= 0.16118024283533258222966821904265089D+00 x(14)= 0.21351631285755717781782436759385746D+00 x(15)= 0.28214956608598662501918852285598405D+00 x(16)= 0.37210022537179571200383065843197983D+00 x(17)= 0.48988816802245427339812522404827178D+00 x(18)= 0.64397427465814471858607248577754945D+00 x(19)= 0.84533165152790024077233965726918541D+00 x(20)= 0.11081882043848396701690717236488126D+01 x(21)= 0.14510010438091687223760573033359833D+01 x(22)= 0.18977565772817077682788067249930464D+01 x(23)= 0.24797532380964923959254520013928413D+01 x(24)= 0.32381530100745465894362951075891033D+01 x(25)= 0.42278725820409208679961921006906778D+01 x(26)= 0.55240617569122338892384505015797913D+01 x(27)= 0.72342041290700773714661409030668437D+01 x(28)= 0.95243992582094509913304136716760695D+01 x(29)= 0.12690233480530343612713295442517847D+02 x(30)= 0.17437910940609011589685906074009836D+02 w( 1)= 0.70714850864714946451772270563651546D-03 w( 2)= 0.16771152118361537259466631510917978D-02 w( 3)= 0.27269213849229682715413769500401031D-02 w( 4)= 0.39122360398298446429454777728551562D-02 w( 5)= 0.53071222293578062395580374754899822D-02 w( 6)= 0.70106449149806293608122587102116086D-02 w( 7)= 0.91551509940022805789094917372494820D-02 w( 8)= 0.11915438846632842376238592407844408D-01 w( 9)= 0.15519086928139313313890212953083392D-01 w(10)= 0.20258377224518356318760936574108200D-01 w(11)= 0.26505688699554566523097776098438771D-01 w(12)= 0.34735696693290359082784135580368456D-01 w(13)= 0.45557008278899573106013320966667379D-01 w(14)= 0.59754428823076827237414931914827321D-01 w(15)= 0.78343144586361199155355450329807354D-01 w(16)= 0.10263753402629012534408303736199741D+00 w(17)= 0.13433907372644010580486906292208005D+00 w(18)= 0.17564975315002537281650063505367143D+00 w(19)= 0.22942029111043460432028950890526175D+00 w(20)= 0.29934768216062368484386979616829194D+00 w(21)= 0.39024664709304496268416073689877521D+00 w(22)= 0.50843952904004330317633275626576506D+00 w(23)= 0.66235189195206656265213496226351708D+00 w(24)= 0.86349860545672141309836433720192872D+00 w(25)= 0.11282801295003603847533213411225006D+01 w(26)= 0.14816258007202283142333953946945257D+01 w(27)= 0.19653780123412392111248436776804738D+01 w(28)= 0.26611157495027359942696421057917178D+01 w(29)= 0.37709228569947015330399153754115105D+01 w(30)= 0.60968078335399527034610400733072311D+01 endif if(n.eq. 31) then x( 1)= 0.26495659360103725014912168234104684D-03 x( 2)= 0.14082121433426062796778754915294485D-02 x( 3)= 0.35162591694719623827691812323337217D-02 x( 4)= 0.66839330944169616371963726919602777D-02 x( 5)= 0.11062854891770564080832883746552397D-01 x( 6)= 0.16879737050942429654742937827904825D-01 x( 7)= 0.24461235774512455481977113436187210D-01 x( 8)= 0.34265893343318483410531172239643638D-01 x( 9)= 0.46923531574340066052641873284301255D-01 x(10)= 0.63283170312317296724025084131426411D-01 x(11)= 0.84471789676429570592475215562444646D-01 x(12)= 0.11196797045547170201817976931124576D+00 x(13)= 0.14769635306744005598389435363060329D+00 x(14)= 0.19415037471513960087854400171636371D+00 x(15)= 0.25455188094783798291587118001189083D+00 x(16)= 0.33305765784453489342098464476293884D+00 x(17)= 0.43502533317595748485473450273275375D+00 x(18)= 0.56735474380314798725777336585451849D+00 x(19)= 0.73892604162885533458648978921701200D+00 x(20)= 0.96116324387593843336929921861155890D+00 x(21)= 0.12487633380298097662830514309462160D+01 x(22)= 0.16206500054600057048048711294541135D+01 x(23)= 0.21012448233303815392503111070254818D+01 x(24)= 0.27222132214196523847249409300275147D+01 x(25)= 0.35249742546292113232198062178213149D+01 x(26)= 0.45645522921899592816430413222406060D+01 x(27)= 0.59160336372134141313949839968699962D+01 x(28)= 0.76866957601178409476005981559865177D+01 x(29)= 0.10042442909768832137729077658150345D+02 x(30)= 0.13279174491531898993912363948766142D+02 x(31)= 0.18105902070857322172514614067040384D+02 w( 1)= 0.68133853670431323602818540763337296D-03 w( 2)= 0.16138374375493735966152764049752477D-02 w( 3)= 0.26178356796758570426697509958557930D-02 w( 4)= 0.37424822781064646069759671576093751D-02 w( 5)= 0.50527331465494195253396192413219978D-02 w( 6)= 0.66349420333413379469167381330407807D-02 w( 7)= 0.86038249511704335825701406292864704D-02 w( 8)= 0.11109667160231507035406117722686758D-01 w( 9)= 0.14346142718728419757079350915773830D-01 w(10)= 0.18559751798912720033296608335149358D-01 w(11)= 0.24062360724328563793550372906793200D-01 w(12)= 0.31248748942792455018935271482405369D-01 w(13)= 0.40620952462871999510962695012494805D-01 w(14)= 0.52820652030652920361220026279625017D-01 w(15)= 0.68670764182821586452121209731558338D-01 w(16)= 0.89228087933464483860745986021356657D-01 w(17)= 0.11585000066958142661555086760927225D+00 w(18)= 0.15027954613842295361614276316686301D+00 w(19)= 0.19475503588935255683267655513191130D+00 w(20)= 0.25215318136630010537047041907499079D+00 w(21)= 0.32618011807719293759788570241653360D+00 w(22)= 0.42163501462831814992071599590417463D+00 w(23)= 0.54479160830415063188070234900806099D+00 w(24)= 0.70398682360996711615541698847664520D+00 w(25)= 0.91060457635964786593518738300190307D+00 w(26)= 0.11808801836734559298491831214050762D+01 w(27)= 0.15395735627486664132135274485335685D+01 w(28)= 0.20284303777011634117855010117636994D+01 w(29)= 0.27291971437222741769801359623670578D+01 w(30)= 0.38449821124962730856111647881334648D+01 w(31)= 0.61830512848024641314736982167232782D+01 endif end