c Information Technology Laboratory, National Institute of 
c Standards and Technology, 325 Broadway, Mail Stop 891.01, 
c Boulder, CO 80305-3328. email: zydrunas.gimbutas@nist.gov. 
c Contributions by staff of NIST, an agency of the U.S. Government, 
c are not subject to copyright within the United States.

c NIST-developed software is provided by NIST as a public service. 
c You may use, copy, and distribute copies of the software in any medium, 
c provided that you keep intact this entire notice. You may improve, 
c modify, and create derivative works of the software or any portion of 
c the software, and you may copy and distribute such 
c modifications or works. Modified works should carry a notice stating 
c that you changed the software and should note the date and nature 
c of any such change. Please explicitly acknowledge the National 
c Institute of Standards and Technology as the source of the software. 

c NIST-developed software is expressly provided "AS IS." 
c NIST MAKES NO WARRANTY OF ANY KIND, EXPRESS, IMPLIED, IN FACT, OR 
c ARISING BY OPERATION OF LAW, INCLUDING, WITHOUT LIMITATION, THE 
c IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, 
c NON-INFRINGEMENT, AND DATA ACCURACY. NIST NEITHER REPRESENTS NOR 
c WARRANTS THAT THE OPERATION OF THE SOFTWARE WILL BE UNINTERRUPTED 
c OR ERROR-FREE, OR THAT ANY DEFECTS WILL BE CORRECTED. NIST DOES NOT
c WARRANT OR MAKE ANY REPRESENTATIONS REGARDING THE USE OF THE 
c SOFTWARE OR THE RESULTS THEREOF, INCLUDING BUT NOT LIMITED TO THE 
c CORRECTNESS, ACCURACY, RELIABILITY, OR USEFULNESS OF THE SOFTWARE.
c
c You are solely responsible for determining the appropriateness of 
c using and distributing the software and you assume all risks 
c associated with its use, including but not limited to the risks 
c and costs of program errors, compliance with applicable laws, damage 
c to or loss of data, programs or equipment, and the unavailability 
c or interruption of operation. This software is not intended to be 
c used in any situation where a failure could cause risk of injury 
c or damage to property. The software developed by NIST employees is 
c not subject to copyright protection within the United States.


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c
        if( idomain .eq.    1 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.0000000000000000D+00
        rk1r = 0.2000000000000000D-01
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  42
        err = 0.4379044574804709D-13
        xs(  1) = 0.1793371161823731D-03
        xs(  2) = 0.9461410565692033D-03
        xs(  3) = 0.2328202548797561D-02
        xs(  4) = 0.4322734524484330D-02
        xs(  5) = 0.6915839646175109D-02
        xs(  6) = 0.1008216910101414D-01
        xs(  7) = 0.1378816262464697D-01
        xs(  8) = 0.1799629158773303D-01
        xs(  9) = 0.2266849171665848D-01
        xs( 10) = 0.2776829100105909D-01
        xs( 11) = 0.3326184705682919D-01
        xs( 12) = 0.3911828048072526D-01
        xs( 13) = 0.4530962827427656D-01
        xs( 14) = 0.5181062940946559D-01
        xs( 15) = 0.5859846152319789D-01
        xs( 16) = 0.6565248611383168D-01
        xs( 17) = 0.7295402394698473D-01
        xs( 18) = 0.8048616420100041D-01
        xs( 19) = 0.8823360320500727D-01
        xs( 20) = 0.9618250660321166D-01
        xs( 21) = 0.1043203893367265D+00
        xs( 22) = 0.1126360093627562D+00
        xs( 23) = 0.1211192723655455D+00
        xs( 24) = 0.1297611462707974D+00
        xs( 25) = 0.1385535844515932D+00
        xs( 26) = 0.1474894585365787D+00
        xs( 27) = 0.1565624998419330D+00
        xs( 28) = 0.1657672504286030D+00
        xs( 29) = 0.1750990293867007D+00
        xs( 30) = 0.1845538820075943D+00
        xs( 31) = 0.1941286281415896D+00
        xs( 32) = 0.2038208041069923D+00
        xs( 33) = 0.2136287207842134D+00
        xs( 34) = 0.2235522818918913D+00
        xs( 35) = 0.2335897272791411D+00
        xs( 36) = 0.2437405689335293D+00
        xs( 37) = 0.2540115501952455D+00
        xs( 38) = 0.2643720657101895D+00
        xs( 39) = 0.2749554970470834D+00
        xs( 40) = 0.2859114193762931D+00
        xs( 41) = 0.2962251241961499D+00
        xs( 42) = 0.3074911122705220D+00
        ws(  1) = 0.4604031801870475D-03
        ws(  2) = 0.1074138251077727D-02
        ws(  3) = 0.1689597149726180D-02
        ws(  4) = 0.2297154358521301D-02
        ws(  5) = 0.2884769484136066D-02
        ws(  6) = 0.3442220991639880D-02
        ws(  7) = 0.3963453218009920D-02
        ws(  8) = 0.4446425925661993D-02
        ws(  9) = 0.4891879375366277D-02
        ws( 10) = 0.5302074022822799D-02
        ws( 11) = 0.5679892791660224D-02
        ws( 12) = 0.6028317400114864D-02
        ws( 13) = 0.6350172530308900D-02
        ws( 14) = 0.6648030304514846D-02
        ws( 15) = 0.6924197920262236D-02
        ws( 16) = 0.7180741224231389D-02
        ws( 17) = 0.7419518643787962D-02
        ws( 18) = 0.7642213536440987D-02
        ws( 19) = 0.7850360736401491D-02
        ws( 20) = 0.8045366981201788D-02
        ws( 21) = 0.8228526392885209D-02
        ws( 22) = 0.8401032693081791D-02
        ws( 23) = 0.8563989262199570D-02
        ws( 24) = 0.8718418662539735D-02
        ws( 25) = 0.8865270653616437D-02
        ws( 26) = 0.9005433208718610D-02
        ws( 27) = 0.9139737936368068D-02
        ws( 28) = 0.9268982264644008D-02
        ws( 29) = 0.9393927456013260D-02
        ws( 30) = 0.9515301881839173D-02
        ws( 31) = 0.9633846742817542D-02
        ws( 32) = 0.9749890897340043D-02
        ws( 33) = 0.9864594338121067D-02
        ws( 34) = 0.9980738883877797D-02
        ws( 35) = 0.1010041332250887D-01
        ws( 36) = 0.1023578968035229D-01
        ws( 37) = 0.1033354492543468D-01
        ws( 38) = 0.1026507706637574D-01
        ws( 39) = 0.1035665967980102D-01
        ws( 40) = 0.1069162107541678D-01
        ws( 41) = 0.1267390340963928D-01
        ws( 42) = 0.1958474303198452D-01
        endif
        if( idomain .eq.    2 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.0000000000000000D+00
        rk1r = 0.4000000000000000D-01
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  42
        err = 0.3990847509754067D-13
        xs(  1) = 0.1753497917165218D-03
        xs(  2) = 0.9260393994670174D-03
        xs(  3) = 0.2282524587775815D-02
        xs(  4) = 0.4246772655513970D-02
        xs(  5) = 0.6809756424584981D-02
        xs(  6) = 0.9949983726976679D-02
        xs(  7) = 0.1363631603816469D-01
        xs(  8) = 0.1783236298838380D-01
        xs(  9) = 0.2250029015577361D-01
        xs( 10) = 0.2760330168742735D-01
        xs( 11) = 0.3310692901481677D-01
        xs( 12) = 0.3897951903275215D-01
        xs( 13) = 0.4519227770850325D-01
        xs( 14) = 0.5171910893785880D-01
        xs( 15) = 0.5853638469644934D-01
        xs( 16) = 0.6562271236436269D-01
        xs( 17) = 0.7295872456166051D-01
        xs( 18) = 0.8052689656431627D-01
        xs( 19) = 0.8831138811872322D-01
        xs( 20) = 0.9629790445707147D-01
        xs( 21) = 0.1044735719848891D+00
        xs( 22) = 0.1128268255740462D+00
        xs( 23) = 0.1213473057490375D+00
        xs( 24) = 0.1300257650437627D+00
        xs( 25) = 0.1388539835259032D+00
        xs( 26) = 0.1478246935561696D+00
        xs( 27) = 0.1569315145749014D+00
        xs( 28) = 0.1661688982879796D+00
        xs( 29) = 0.1755320831030969D+00
        xs( 30) = 0.1850170588475377D+00
        xs( 31) = 0.1946205539285374D+00
        xs( 32) = 0.2043400716628611D+00
        xs( 33) = 0.2141739552744268D+00
        xs( 34) = 0.2241213259704943D+00
        xs( 35) = 0.2341817209874477D+00
        xs( 36) = 0.2443541684563437D+00
        xs( 37) = 0.2546365894700832D+00
        xs( 38) = 0.2650367727960912D+00
        xs( 39) = 0.2756148522360511D+00
        xs( 40) = 0.2864464098485471D+00
        xs( 41) = 0.2972230360544125D+00
        xs( 42) = 0.3078349183475666D+00
        ws(  1) = 0.4502766077359295D-03
        ws(  2) = 0.1052583966177401D-02
        ws(  3) = 0.1660817316709356D-02
        ws(  4) = 0.2266197938058429D-02
        ws(  5) = 0.2856132482994474D-02
        ws(  6) = 0.3419053814379043D-02
        ws(  7) = 0.3947480843632871D-02
        ws(  8) = 0.4438266511417639D-02
        ws(  9) = 0.4891434746351871D-02
        ws( 10) = 0.5308836287951162D-02
        ws( 11) = 0.5693142683966523D-02
        ws( 12) = 0.6047241341321518D-02
        ws( 13) = 0.6373930635165376D-02
        ws( 14) = 0.6675797749842492D-02
        ws( 15) = 0.6955191840898322D-02
        ws( 16) = 0.7214238631417100D-02
        ws( 17) = 0.7454867598913290D-02
        ws( 18) = 0.7678838669884148D-02
        ws( 19) = 0.7887764042695335D-02
        ws( 20) = 0.8083124908551263D-02
        ws( 21) = 0.8266284332108973D-02
        ws( 22) = 0.8438497824478102D-02
        ws( 23) = 0.8600922715438908D-02
        ws( 24) = 0.8754627237301462D-02
        ws( 25) = 0.8900599589991466D-02
        ws( 26) = 0.9039757336417202D-02
        ws( 27) = 0.9172958622102821D-02
        ws( 28) = 0.9301014655800530D-02
        ws( 29) = 0.9424701313233502D-02
        ws( 30) = 0.9544757489493657D-02
        ws( 31) = 0.9661854280644287D-02
        ws( 32) = 0.9776573423002045D-02
        ws( 33) = 0.9889711441295248D-02
        ws( 34) = 0.1000368682060867D-01
        ws( 35) = 0.1012413476854063D-01
        ws( 36) = 0.1025177779368792D-01
        ws( 37) = 0.1034870983267834D-01
        ws( 38) = 0.1032047763762170D-01
        ws( 39) = 0.1019954805694090D-01
        ws( 40) = 0.1073598526596664D-01
        ws( 41) = 0.1378180968086329D-01
        ws( 42) = 0.1778145958307497D-01
        endif
        if( idomain .eq.    3 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.0000000000000000D+00
        rk1r = 0.1000000000000000D+00
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  42
        err = 0.3830907259185216D-13
        xs(  1) = 0.1659436833458201D-03
        xs(  2) = 0.8786793758485924D-03
        xs(  3) = 0.2175127675861462D-02
        xs(  4) = 0.4068585756498441D-02
        xs(  5) = 0.6561305258964071D-02
        xs(  6) = 0.9640238390987406D-02
        xs(  7) = 0.1327898739823560D-01
        xs(  8) = 0.1744281209431317D-01
        xs(  9) = 0.2209354552821938D-01
        xs( 10) = 0.2719303610881116D-01
        xs( 11) = 0.3270506552844205D-01
        xs( 12) = 0.3859618591459236D-01
        xs( 13) = 0.4483593223711244D-01
        xs( 14) = 0.5139672945697302D-01
        xs( 15) = 0.5825367967682830D-01
        xs( 16) = 0.6538432209706062D-01
        xs( 17) = 0.7276840494378670D-01
        xs( 18) = 0.8038768133421199D-01
        xs( 19) = 0.8822572929690989D-01
        xs( 20) = 0.9626779239687744D-01
        xs( 21) = 0.1045006371905323D+00
        xs( 22) = 0.1129124247135661D+00
        xs( 23) = 0.1214925943153588D+00
        xs( 24) = 0.1302317589815576D+00
        xs( 25) = 0.1391216119644551D+00
        xs( 26) = 0.1481548446275774D+00
        xs( 27) = 0.1573250760285161D+00
        xs( 28) = 0.1666267943826385D+00
        xs( 29) = 0.1760553097243339D+00
        xs( 30) = 0.1856067188701577D+00
        xs( 31) = 0.1952778878629855D+00
        xs( 32) = 0.2050664945802775D+00
        xs( 33) = 0.2149711383609248D+00
        xs( 34) = 0.2249912248859893D+00
        xs( 35) = 0.2351263634631219D+00
        xs( 36) = 0.2453753941047902D+00
        xs( 37) = 0.2557369383439450D+00
        xs( 38) = 0.2662252941225243D+00
        xs( 39) = 0.2769167239448837D+00
        xs( 40) = 0.2878593817285535D+00
        xs( 41) = 0.2986045932077417D+00
        xs( 42) = 0.3091147683009396D+00
        ws(  1) = 0.4263953097470795D-03
        ws(  2) = 0.1001882879274136D-02
        ws(  3) = 0.1593399452884118D-02
        ws(  4) = 0.2193964803400090D-02
        ws(  5) = 0.2789257378652249D-02
        ws(  6) = 0.3364117738327235D-02
        ws(  7) = 0.3907505355723715D-02
        ws(  8) = 0.4413725763885102D-02
        ws(  9) = 0.4881351775403720D-02
        ws( 10) = 0.5311580178432832D-02
        ws( 11) = 0.5706901227459515D-02
        ws( 12) = 0.6070264009382248D-02
        ws( 13) = 0.6404636548473702D-02
        ws( 14) = 0.6712812325393875D-02
        ws( 15) = 0.6997348471528468D-02
        ws( 16) = 0.7260564473083073D-02
        ws( 17) = 0.7504563063164304D-02
        ws( 18) = 0.7731255369624364D-02
        ws( 19) = 0.7942383519305792D-02
        ws( 20) = 0.8139539243980537D-02
        ws( 21) = 0.8324179112118539D-02
        ws( 22) = 0.8497637566828371D-02
        ws( 23) = 0.8661138712755092D-02
        ws( 24) = 0.8815807618228057D-02
        ws( 25) = 0.8962681465901325D-02
        ws( 26) = 0.9102720767963503D-02
        ws( 27) = 0.9236822147654400D-02
        ws( 28) = 0.9365832346313238D-02
        ws( 29) = 0.9490562832724887D-02
        ws( 30) = 0.9611786440099959D-02
        ws( 31) = 0.9730195712766159D-02
        ws( 32) = 0.9846417144816232D-02
        ws( 33) = 0.9961390233232514D-02
        ws( 34) = 0.1007772592847827D-01
        ws( 35) = 0.1020096363305523D-01
        ws( 36) = 0.1032959411263971D-01
        ws( 37) = 0.1042056815987637D-01
        ws( 38) = 0.1038965146215687D-01
        ws( 39) = 0.1033938980593839D-01
        ws( 40) = 0.1106552862302359D-01
        ws( 41) = 0.1387135372033307D-01
        ws( 42) = 0.1663159991247643D-01
        endif
        if( idomain .eq.    4 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.0000000000000000D+00
        rk1r = 0.2000000000000000D+00
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  42
        err = 0.3504536895894694D-13
        xs(  1) = 0.1526164859432427D-03
        xs(  2) = 0.8100078340035478D-03
        xs(  3) = 0.2013314195874121D-02
        xs(  4) = 0.3786510761954900D-02
        xs(  5) = 0.6145061264630926D-02
        xs(  6) = 0.9088404243835323D-02
        xs(  7) = 0.1259944739466105D-01
        xs(  8) = 0.1664893010418497D-01
        xs(  9) = 0.2120101567710536D-01
        xs( 10) = 0.2621781698685865D-01
        xs( 11) = 0.3166224562898799D-01
        xs( 12) = 0.3749947246598559D-01
        xs( 13) = 0.4369749850368215D-01
        xs( 14) = 0.5022724505873445D-01
        xs( 15) = 0.5706242339377624D-01
        xs( 16) = 0.6417932517183109D-01
        xs( 17) = 0.7155660018631499D-01
        xs( 18) = 0.7917504715491205D-01
        xs( 19) = 0.8701742423392141D-01
        xs( 20) = 0.9506827854866919D-01
        xs( 21) = 0.1033137922444426D+00
        xs( 22) = 0.1117416429272498D+00
        xs( 23) = 0.1203408772274992D+00
        xs( 24) = 0.1291017969670514D+00
        xs( 25) = 0.1380158579758997D+00
        xs( 26) = 0.1470755817187374D+00
        xs( 27) = 0.1562744804457033D+00
        xs( 28) = 0.1656069962542156D+00
        xs( 29) = 0.1750684541465953D+00
        xs( 30) = 0.1846550302581187D+00
        xs( 31) = 0.1943637415562409D+00
        xs( 32) = 0.2041924925123506D+00
        xs( 33) = 0.2141401782179699D+00
        xs( 34) = 0.2242066648536258D+00
        xs( 35) = 0.2343924702220838D+00
        xs( 36) = 0.2446977626950267D+00
        xs( 37) = 0.2551221013312787D+00
        xs( 38) = 0.2656786974384031D+00
        xs( 39) = 0.2764381805998537D+00
        xs( 40) = 0.2874779484624078D+00
        xs( 41) = 0.2984486517055214D+00
        xs( 42) = 0.3091225875539383D+00
        ws(  1) = 0.3923678967613655D-03
        ws(  2) = 0.9262116441198754D-03
        ws(  3) = 0.1484604262249387D-02
        ws(  4) = 0.2064499171982523D-02
        ws(  5) = 0.2652509529762825D-02
        ws(  6) = 0.3231245152740887D-02
        ws(  7) = 0.3785865722919376D-02
        ws(  8) = 0.4307050441015980D-02
        ws(  9) = 0.4790759664351647D-02
        ws( 10) = 0.5236638503580947D-02
        ws( 11) = 0.5646405395360903D-02
        ws( 12) = 0.6022714212963367D-02
        ws( 13) = 0.6368493905797957D-02
        ws( 14) = 0.6686621385126111D-02
        ws( 15) = 0.6979787653067677D-02
        ws( 16) = 0.7250461033469251D-02
        ws( 17) = 0.7500891936161041D-02
        ws( 18) = 0.7733131195156818D-02
        ws( 19) = 0.7949050044697361D-02
        ws( 20) = 0.8150357931475456D-02
        ws( 21) = 0.8338617829753500D-02
        ws( 22) = 0.8515259868673814D-02
        ws( 23) = 0.8681594074672181D-02
        ws( 24) = 0.8838822925010498D-02
        ws( 25) = 0.8988053961206525D-02
        ws( 26) = 0.9130312771402730D-02
        ws( 27) = 0.9266557471515252D-02
        ws( 28) = 0.9397694563842126D-02
        ws( 29) = 0.9524595774655024D-02
        ws( 30) = 0.9648101804557375D-02
        ws( 31) = 0.9769000491531907D-02
        ws( 32) = 0.9888037904818002D-02
        ws( 33) = 0.1000619057759890D-01
        ws( 34) = 0.1012584430825696D-01
        ws( 35) = 0.1025218796914910D-01
        ws( 36) = 0.1038576587340138D-01
        ws( 37) = 0.1049346953574404D-01
        ws( 38) = 0.1049587255863380D-01
        ws( 39) = 0.1043722829102370D-01
        ws( 40) = 0.1105182353340214D-01
        ws( 41) = 0.1394234499767026D-01
        ws( 42) = 0.1699921642850395D-01
        endif
        if( idomain .eq.    5 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.0000000000000000D+00
        rk1r = 0.4000000000000000D+00
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  42
        err = 0.4003799641362654D-13
        xs(  1) = 0.1340591541895562D-03
        xs(  2) = 0.7135565045561773D-03
        xs(  3) = 0.1782636519560337D-02
        xs(  4) = 0.3376447796712382D-02
        xs(  5) = 0.5526466677158196D-02
        xs(  6) = 0.8249728830971598D-02
        xs(  7) = 0.1154443245518887D-01
        xs(  8) = 0.1539200754888304D-01
        xs(  9) = 0.1976253912323000D-01
        xs( 10) = 0.2462036836358217D-01
        xs( 11) = 0.2992826808892623D-01
        xs( 12) = 0.3564997204961403D-01
        xs( 13) = 0.4175145331457382D-01
        xs( 14) = 0.4820143022298077D-01
        xs( 15) = 0.5497145955422137D-01
        xs( 16) = 0.6203583647307323D-01
        xs( 17) = 0.6937141805617718D-01
        xs( 18) = 0.7695742560248442D-01
        xs( 19) = 0.8477524876049428D-01
        xs( 20) = 0.9280825974815518D-01
        xs( 21) = 0.1010416401354511D+00
        xs( 22) = 0.1094622208647902D+00
        xs( 23) = 0.1180583358232941D+00
        xs( 24) = 0.1268196893782599D+00
        xs( 25) = 0.1357372382570096D+00
        xs( 26) = 0.1448030882547527D+00
        xs( 27) = 0.1540104064432460D+00
        xs( 28) = 0.1633533488859103D+00
        xs( 29) = 0.1728270040818007D+00
        xs( 30) = 0.1824273533144119D+00
        xs( 31) = 0.1921512540721654D+00
        xs( 32) = 0.2019964620990020D+00
        xs( 33) = 0.2119617144364562D+00
        xs( 34) = 0.2220468495738293D+00
        xs( 35) = 0.2322526324373155D+00
        xs( 36) = 0.2425793787274949D+00
        xs( 37) = 0.2530256034617056D+00
        xs( 38) = 0.2635995243847397D+00
        xs( 39) = 0.2743606013836060D+00
        xs( 40) = 0.2853995080646259D+00
        xs( 41) = 0.2964698457086712D+00
        xs( 42) = 0.3073191277800604D+00
        ws(  1) = 0.3448891605776624D-03
        ws(  2) = 0.8187777818285700D-03
        ws(  3) = 0.1325459907936757D-02
        ws(  4) = 0.1867601334299160D-02
        ws(  5) = 0.2435348262967082D-02
        ws(  6) = 0.3010832328166660D-02
        ws(  7) = 0.3575381333231666D-02
        ws(  8) = 0.4114686052094856D-02
        ws(  9) = 0.4620364205795976D-02
        ws( 10) = 0.5089048740041668D-02
        ws( 11) = 0.5520686234583359D-02
        ws( 12) = 0.5917042955024228D-02
        ws( 13) = 0.6280704916439193D-02
        ws( 14) = 0.6614510292191640D-02
        ws( 15) = 0.6921267292182881D-02
        ws( 16) = 0.7203632734643850D-02
        ws( 17) = 0.7464070595644224D-02
        ws( 18) = 0.7704845872608358D-02
        ws( 19) = 0.7928032035056504D-02
        ws( 20) = 0.8135522868849757D-02
        ws( 21) = 0.8329045501216797D-02
        ws( 22) = 0.8510173807415216D-02
        ws( 23) = 0.8680342147994770D-02
        ws( 24) = 0.8840859540981603D-02
        ws( 25) = 0.8992924087217703D-02
        ws( 26) = 0.9137638047287348D-02
        ws( 27) = 0.9276023715837077D-02
        ws( 28) = 0.9409040859740241D-02
        ws( 29) = 0.9537606641985576D-02
        ws( 30) = 0.9662608094318154D-02
        ws( 31) = 0.9784880080427273D-02
        ws( 32) = 0.9905154769245328D-02
        ws( 33) = 0.1002428386489982D-01
        ws( 34) = 0.1014452592680401D-01
        ws( 35) = 0.1027125096833556D-01
        ws( 36) = 0.1040705211764469D-01
        ws( 37) = 0.1052358191260089D-01
        ws( 38) = 0.1053801189315058D-01
        ws( 39) = 0.1045631098483850D-01
        ws( 40) = 0.1094655694370234D-01
        ws( 41) = 0.1375640657503010D-01
        ws( 42) = 0.1718440701143192D-01
        endif
        if( idomain .eq.    6 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.0000000000000000D+00
        rk1r = 0.1000000000000000D+01
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  41
        err = 0.7962286564744288D-13
        xs(  1) = 0.9999050987479799D-04
        xs(  2) = 0.5340024601783693D-03
        xs(  3) = 0.1342830691240184D-02
        xs(  4) = 0.2569543491183055D-02
        xs(  5) = 0.4264492916409479D-02
        xs(  6) = 0.6474038897522716D-02
        xs(  7) = 0.9230364091628959D-02
        xs(  8) = 0.1254616780220707D-01
        xs(  9) = 0.1641513588042153D-01
        xs( 10) = 0.2081625102708862D-01
        xs( 11) = 0.2571921970146632D-01
        xs( 12) = 0.3108917385936046D-01
        xs( 13) = 0.3689000846103834D-01
        xs( 14) = 0.4308645644109334D-01
        xs( 15) = 0.4964524501068999D-01
        xs( 16) = 0.5653565931803470D-01
        xs( 17) = 0.6372974892471200D-01
        xs( 18) = 0.7120232885605648D-01
        xs( 19) = 0.7893086800232087D-01
        xs( 20) = 0.8689532018987189D-01
        xs( 21) = 0.9507793060328804D-01
        xs( 22) = 0.1034630368782148D+00
        xs( 23) = 0.1120368764052937D+00
        xs( 24) = 0.1207874066822009D+00
        xs( 25) = 0.1297041428544603D+00
        xs( 26) = 0.1387780147448526D+00
        xs( 27) = 0.1480012445445180D+00
        xs( 28) = 0.1573672467909900D+00
        xs( 29) = 0.1668705513498757D+00
        xs( 30) = 0.1765067513829250D+00
        xs( 31) = 0.1862724769227647D+00
        xs( 32) = 0.1961653968364937D+00
        xs( 33) = 0.2061842163280063D+00
        xs( 34) = 0.2163286209906803D+00
        xs( 35) = 0.2265995594193019D+00
        xs( 36) = 0.2370008145099677D+00
        xs( 37) = 0.2475432235348747D+00
        xs( 38) = 0.2582482710143058D+00
        xs( 39) = 0.2691053993661035D+00
        xs( 40) = 0.2799578405545671D+00
        xs( 41) = 0.2907535597458360D+00
        ws(  1) = 0.2574352903775924D-03
        ws(  2) = 0.6153357383857627D-03
        ws(  3) = 0.1009636663105587D-02
        ws(  4) = 0.1452380351420269D-02
        ws(  5) = 0.1945425136281114D-02
        ws(  6) = 0.2479121078157051D-02
        ws(  7) = 0.3035632373200200D-02
        ws(  8) = 0.3594843643135525D-02
        ws(  9) = 0.4139494735540628D-02
        ws( 10) = 0.4657606995614310D-02
        ws( 11) = 0.5142463842535513D-02
        ws( 12) = 0.5591393297676069D-02
        ws( 13) = 0.6004379586060436D-02
        ws( 14) = 0.6382962068676690D-02
        ws( 15) = 0.6729492837645092D-02
        ws( 16) = 0.7046677565361210D-02
        ws( 17) = 0.7337306138282561D-02
        ws( 18) = 0.7604101429222691D-02
        ws( 19) = 0.7849639104102631D-02
        ws( 20) = 0.8076309475879093D-02
        ws( 21) = 0.8286304186157252D-02
        ws( 22) = 0.8481617606211331D-02
        ws( 23) = 0.8664057076962417D-02
        ws( 24) = 0.8835258333380743D-02
        ws( 25) = 0.8996704258963010D-02
        ws( 26) = 0.9149745040137184D-02
        ws( 27) = 0.9295619485640201D-02
        ws( 28) = 0.9435476364808966D-02
        ws( 29) = 0.9570394941105577D-02
        ws( 30) = 0.9701412885438807D-02
        ws( 31) = 0.9829586919276800D-02
        ws( 32) = 0.9956117898342087D-02
        ws( 33) = 0.1008231740519312D-01
        ws( 34) = 0.1020878660376114D-01
        ws( 35) = 0.1033313584903977D-01
        ws( 36) = 0.1044951890250492D-01
        ws( 37) = 0.1057121890424687D-01
        ws( 38) = 0.1080631025149355D-01
        ws( 39) = 0.1138231945748452D-01
        ws( 40) = 0.1224492495281112D-01
        ws( 41) = 0.1144251144217399D-01
        endif
        if( idomain .eq.    7 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.0000000000000000D+00
        rk1r = 0.1570796326794897D+01
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  42
        err = 0.6941809716406008D-13
        xs(  1) = 0.7727532039071306D-04
        xs(  2) = 0.4128680323699867D-03
        xs(  3) = 0.1039638584153684D-02
        xs(  4) = 0.1995651422216051D-02
        xs(  5) = 0.3331120907653550D-02
        xs(  6) = 0.5101484754155181D-02
        xs(  7) = 0.7357930837327217D-02
        xs(  8) = 0.1013840915849851D-01
        xs(  9) = 0.1346239486060610D-01
        xs( 10) = 0.1733059660213185D-01
        xs( 11) = 0.2172831336110111D-01
        xs( 12) = 0.2663015768627283D-01
        xs( 13) = 0.3200446502563522D-01
        xs( 14) = 0.3781672125112915D-01
        xs( 15) = 0.4403196605819599D-01
        xs( 16) = 0.5061635722051217D-01
        xs( 17) = 0.5753811305636064D-01
        xs( 18) = 0.6476801619648165D-01
        xs( 19) = 0.7227961753437651D-01
        xs( 20) = 0.8004924310122867D-01
        xs( 21) = 0.8805587936785383D-01
        xs( 22) = 0.9628099128554875D-01
        xs( 23) = 0.1047083105654488D+00
        xs( 24) = 0.1133236187014619D+00
        xs( 25) = 0.1221145397584677D+00
        xs( 26) = 0.1310703513390272D+00
        xs( 27) = 0.1401818181362562D+00
        xs( 28) = 0.1494410497055851D+00
        xs( 29) = 0.1588413830289905D+00
        xs( 30) = 0.1683772911843178D+00
        xs( 31) = 0.1780443181085739D+00
        xs( 32) = 0.1878390356770385D+00
        xs( 33) = 0.1977590121821606D+00
        xs( 34) = 0.2078027998269223D+00
        xs( 35) = 0.2179699997020690D+00
        xs( 36) = 0.2282614818924675D+00
        xs( 37) = 0.2386802491216313D+00
        xs( 38) = 0.2492343501303378D+00
        xs( 39) = 0.2599367922775099D+00
        xs( 40) = 0.2707711189520406D+00
        xs( 41) = 0.2816114554027003D+00
        xs( 42) = 0.2923396804179417D+00
        ws(  1) = 0.1989668940786165D-03
        ws(  2) = 0.4760699116903744D-03
        ws(  3) = 0.7838651333679918D-03
        ws(  4) = 0.1136647696862929D-02
        ws(  5) = 0.1543696749668133D-02
        ws(  6) = 0.2005721024391322D-02
        ws(  7) = 0.2513586403093945D-02
        ws(  8) = 0.3050617102399732D-02
        ws(  9) = 0.3597410286578695D-02
        ws( 10) = 0.4136460201528043D-02
        ws( 11) = 0.4654667220541488D-02
        ws( 12) = 0.5143686941382706D-02
        ws( 13) = 0.5599135835077358D-02
        ws( 14) = 0.6019524366735992D-02
        ws( 15) = 0.6405309605752175D-02
        ws( 16) = 0.6758167702119307D-02
        ws( 17) = 0.7080471249849349D-02
        ws( 18) = 0.7374926909010249D-02
        ws( 19) = 0.7644332144470164D-02
        ws( 20) = 0.7891419854433824D-02
        ws( 21) = 0.8118767089557895D-02
        ws( 22) = 0.8328749018478913D-02
        ws( 23) = 0.8523523267425797D-02
        ws( 24) = 0.8705033499054785D-02
        ws( 25) = 0.8875024273057521D-02
        ws( 26) = 0.9035062001662170D-02
        ws( 27) = 0.9186558794981245D-02
        ws( 28) = 0.9330796510806176D-02
        ws( 29) = 0.9468950849786923D-02
        ws( 30) = 0.9602116526158298D-02
        ws( 31) = 0.9731338673970587D-02
        ws( 32) = 0.9857662426250569D-02
        ws( 33) = 0.9982198578092563D-02
        ws( 34) = 0.1010609624515150D-01
        ws( 35) = 0.1022988919509363D-01
        ws( 36) = 0.1035154913730755D-01
        ws( 37) = 0.1046681079940879D-01
        ws( 38) = 0.1058823956041332D-01
        ws( 39) = 0.1080665611543026D-01
        ws( 40) = 0.1134009652451855D-01
        ws( 41) = 0.1215052382095670D-01
        ws( 42) = 0.1109923064355633D-01
        endif
        if( idomain .eq.    8 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.0000000000000000D+00
        rk1r = 0.3141592653589793D+01
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  45
        err = 0.7315022553321897D-13
        xs(  1) = 0.4339954948939110D-04
        xs(  2) = 0.2312814466347451D-03
        xs(  3) = 0.5801513495781361D-03
        xs(  4) = 0.1109453131344939D-02
        xs(  5) = 0.1848685323953291D-02
        xs(  6) = 0.2838523229789294D-02
        xs(  7) = 0.4131078905759577D-02
        xs(  8) = 0.5788169454271417D-02
        xs(  9) = 0.7876345734569825D-02
        xs( 10) = 0.1045822785906203D-01
        xs( 11) = 0.1358165479957003D-01
        xs( 12) = 0.1727062820028782D-01
        xs( 13) = 0.2152272893257865D-01
        xs( 14) = 0.2631420382520549D-01
        xs( 15) = 0.3160879895332650D-01
        xs( 16) = 0.3736544175476309D-01
        xs( 17) = 0.4354290282876454D-01
        xs( 18) = 0.5010208078239245D-01
        xs( 19) = 0.5700700637258316D-01
        xs( 20) = 0.6422523043153477D-01
        xs( 21) = 0.7172788547461878D-01
        xs( 22) = 0.7948955066954996D-01
        xs( 23) = 0.8748799979928001D-01
        xs( 24) = 0.9570389193737086D-01
        xs( 25) = 0.1041204482704474D+00
        xs( 26) = 0.1127231430824136D+00
        xs( 27) = 0.1214994242986208D+00
        xs( 28) = 0.1304384701611780D+00
        xs( 29) = 0.1395309832226284D+00
        xs( 30) = 0.1487690201000533D+00
        xs( 31) = 0.1581458542890794D+00
        xs( 32) = 0.1676558695431110D+00
        xs( 33) = 0.1772944820675310D+00
        xs( 34) = 0.1870580874775029D+00
        xs( 35) = 0.1969440339513148D+00
        xs( 36) = 0.2069506301159208D+00
        xs( 37) = 0.2170771725131026D+00
        xs( 38) = 0.2273240541141494D+00
        xs( 39) = 0.2376931219020670D+00
        xs( 40) = 0.2481882603382333D+00
        xs( 41) = 0.2588158919229328D+00
        xs( 42) = 0.2695828231147330D+00
        xs( 43) = 0.2804728035803631D+00
        xs( 44) = 0.2913975911013340D+00
        xs( 45) = 0.3022983950741634D+00
        ws(  1) = 0.1116733698230841D-03
        ws(  2) = 0.2659041783173117D-03
        ws(  3) = 0.4350514527052067D-03
        ws(  4) = 0.6284485980159102D-03
        ws(  5) = 0.8567877951128833D-03
        ws(  6) = 0.1131598884231230D-02
        ws(  7) = 0.1463896564665677D-02
        ws(  8) = 0.1861524006644282D-02
        ws(  9) = 0.2325456137140041D-02
        ws( 10) = 0.2846445469505134D-02
        ws( 11) = 0.3404455734134691D-02
        ws( 12) = 0.3972991371112975D-02
        ws( 13) = 0.4527090349815874D-02
        ws( 14) = 0.5049685256290945D-02
        ws( 15) = 0.5532584430138710D-02
        ws( 16) = 0.5973794414324539D-02
        ws( 17) = 0.6374595593490322D-02
        ws( 18) = 0.6737759567946238D-02
        ws( 19) = 0.7066682661167275D-02
        ws( 20) = 0.7364956641629168D-02
        ws( 21) = 0.7636120981930935D-02
        ws( 22) = 0.7883510297124773D-02
        ws( 23) = 0.8110169926577293D-02
        ws( 24) = 0.8318823066080595D-02
        ws( 25) = 0.8511873318020164D-02
        ws( 26) = 0.8691428346656715D-02
        ws( 27) = 0.8859333885981783D-02
        ws( 28) = 0.9017211117814386D-02
        ws( 29) = 0.9166493482495462D-02
        ws( 30) = 0.9308461090008342D-02
        ws( 31) = 0.9444272140542699D-02
        ws( 32) = 0.9574992956795309D-02
        ws( 33) = 0.9701627252757352D-02
        ws( 34) = 0.9825146065092501D-02
        ws( 35) = 0.9946520452791770D-02
        ws( 36) = 0.1006672568851403D-01
        ws( 37) = 0.1018660614378345D-01
        ws( 38) = 0.1030669946683156D-01
        ws( 39) = 0.1042726161798918D-01
        ws( 40) = 0.1055124276767065D-01
        ws( 41) = 0.1069970748736289D-01
        ws( 42) = 0.1093842842137367D-01
        ws( 43) = 0.1132328393666921D-01
        ws( 44) = 0.1153690224646780D-01
        ws( 45) = 0.1007231557131620D-01
        endif
        if( idomain .eq.    9 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.0000000000000000D+00
        rk1r = 0.6283185307179586D+01
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  48
        err = 0.8761218636098701D-13
        xs(  1) = 0.2037566933960121D-04
        xs(  2) = 0.1080518832561922D-03
        xs(  3) = 0.2686723699589404D-03
        xs(  4) = 0.5074360550024699D-03
        xs(  5) = 0.8323124790351363D-03
        xs(  6) = 0.1254658036324057D-02
        xs(  7) = 0.1790047241331104D-02
        xs(  8) = 0.2459383445997986D-02
        xs(  9) = 0.3290320996207755D-02
        xs( 10) = 0.4318977297068080D-02
        xs( 11) = 0.5591780430625856D-02
        xs( 12) = 0.7167026873849320D-02
        xs( 13) = 0.9115260642290559D-02
        xs( 14) = 0.1151695944502741D-01
        xs( 15) = 0.1445553372043206D-01
        xs( 16) = 0.1800425141166370D-01
        xs( 17) = 0.2220898620010769D-01
        xs( 18) = 0.2707450210332936D-01
        xs( 19) = 0.3256402142192129D-01
        xs( 20) = 0.3861327604250554D-01
        xs( 21) = 0.4514921935770290D-01
        xs( 22) = 0.5210346853535742D-01
        xs( 23) = 0.5941807182342922D-01
        xs( 24) = 0.6704613950102141D-01
        xs( 25) = 0.7495029782398864D-01
        xs( 26) = 0.8310069302050679D-01
        xs( 27) = 0.9147323334233119D-01
        xs( 28) = 0.1000482299170633D+00
        xs( 29) = 0.1088094002071253D+00
        xs( 30) = 0.1177431506010448D+00
        xs( 31) = 0.1268380604441574D+00
        xs( 32) = 0.1360845084236330D+00
        xs( 33) = 0.1454743998993564D+00
        xs( 34) = 0.1550009674158761D+00
        xs( 35) = 0.1646586259702726D+00
        xs( 36) = 0.1744428716936474D+00
        xs( 37) = 0.1843502162894972D+00
        xs( 38) = 0.1943781517199192D+00
        xs( 39) = 0.2045251419434341D+00
        xs( 40) = 0.2147906374942148D+00
        xs( 41) = 0.2251752098442415D+00
        xs( 42) = 0.2356810218380054D+00
        xs( 43) = 0.2463124472414963D+00
        xs( 44) = 0.2570759072725666D+00
        xs( 45) = 0.2679713237949802D+00
        xs( 46) = 0.2789702972979822D+00
        xs( 47) = 0.2900001085493042D+00
        xs( 48) = 0.3009839262659063D+00
        ws(  1) = 0.5236920108556729D-04
        ws(  2) = 0.1234857729602600D-03
        ws(  3) = 0.1986126650932442D-03
        ws(  4) = 0.2802330555453638D-03
        ws(  5) = 0.3713987929051023D-03
        ws(  6) = 0.4758696510750577D-03
        ws(  7) = 0.5983689272603706D-03
        ws(  8) = 0.7448836922468070D-03
        ws(  9) = 0.9229792498244315D-03
        ws( 10) = 0.1142043369537541D-02
        ws( 11) = 0.1413269039003264D-02
        ws( 12) = 0.1749014644212178D-02
        ws( 13) = 0.2160978115040515D-02
        ws( 14) = 0.2656542094764318D-02
        ws( 15) = 0.3233124754692619D-02
        ws( 16) = 0.3872213878507372D-02
        ws( 17) = 0.4538061551559197D-02
        ws( 18) = 0.5186576599254740D-02
        ws( 19) = 0.5781411706565716D-02
        ws( 20) = 0.6304695388325850D-02
        ws( 21) = 0.6755706107318290D-02
        ws( 22) = 0.7143130635404957D-02
        ws( 23) = 0.7478290674013770D-02
        ws( 24) = 0.7771650401799355D-02
        ws( 25) = 0.8031720171608038D-02
        ws( 26) = 0.8265077444001064D-02
        ws( 27) = 0.8476738114142464D-02
        ws( 28) = 0.8670553047189852D-02
        ws( 29) = 0.8849530389569270D-02
        ws( 30) = 0.9016073084079959D-02
        ws( 31) = 0.9172147539865479D-02
        ws( 32) = 0.9319402648511631D-02
        ws( 33) = 0.9459254895016658D-02
        ws( 34) = 0.9592950874469900D-02
        ws( 35) = 0.9721615185851259D-02
        ws( 36) = 0.9846291102476741D-02
        ws( 37) = 0.9967978757923737D-02
        ws( 38) = 0.1008767637883365D-01
        ws( 39) = 0.1020638718426050D-01
        ws( 40) = 0.1032498258040665D-01
        ws( 41) = 0.1044388960725034D-01
        ws( 42) = 0.1056310455099639D-01
        ws( 43) = 0.1068668162950880D-01
        ws( 44) = 0.1083935386361350D-01
        ws( 45) = 0.1107754103227847D-01
        ws( 46) = 0.1140759858379800D-01
        ws( 47) = 0.1140917517321228D-01
        ws( 48) = 0.1003317402182994D-01
        endif
        if( idomain .eq.   10 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.0000000000000000D+00
        rk1r = 0.9424777960769379D+01
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  51
        err = 0.9700301008009808D-13
        xs(  1) = 0.1185520227908102D-04
        xs(  2) = 0.6270584460873135D-04
        xs(  3) = 0.1551891849373187D-03
        xs(  4) = 0.2910942554401940D-03
        xs(  5) = 0.4731068905179506D-03
        xs(  6) = 0.7049733121741043D-03
        xs(  7) = 0.9917086097542425D-03
        xs(  8) = 0.1339877463915118D-02
        xs(  9) = 0.1757968833456177D-02
        xs( 10) = 0.2256893454940741D-02
        xs( 11) = 0.2850642261872872D-02
        xs( 12) = 0.3557153848835631D-02
        xs( 13) = 0.4399447463604497D-02
        xs( 14) = 0.5407078827324202D-02
        xs( 15) = 0.6617956558479782D-02
        xs( 16) = 0.8080491813949039D-02
        xs( 17) = 0.9855897276728601D-02
        xs( 18) = 0.1202012906679944D-01
        xs( 19) = 0.1466437120549228D-01
        xs( 20) = 0.1789200872155895D-01
        xs( 21) = 0.2180893026884260D-01
        xs( 22) = 0.2650415207317044D-01
        xs( 23) = 0.3202268464929973D-01
        xs( 24) = 0.3834369063148470D-01
        xs( 25) = 0.4538235850469975D-01
        xs( 26) = 0.5301766292835036D-01
        xs( 27) = 0.6112621608717664D-01
        xs( 28) = 0.6960351538905248D-01
        xs( 29) = 0.7836999765361496D-01
        xs( 30) = 0.8736840859250285D-01
        xs( 31) = 0.9655853556348919D-01
        xs( 32) = 0.1059122626593626D+00
        xs( 33) = 0.1154098006488848D+00
        xs( 34) = 0.1250370581314002D+00
        xs( 35) = 0.1347838831867346D+00
        xs( 36) = 0.1446429094979835D+00
        xs( 37) = 0.1546088059491536D+00
        xs( 38) = 0.1646777922447977D+00
        xs( 39) = 0.1748473311838339D+00
        xs( 40) = 0.1851159406995842D+00
        xs( 41) = 0.1954830900794840D+00
        xs( 42) = 0.2059491650918842D+00
        xs( 43) = 0.2165154870913645D+00
        xs( 44) = 0.2271843859810783D+00
        xs( 45) = 0.2379593501977839D+00
        xs( 46) = 0.2488452522545019D+00
        xs( 47) = 0.2598484436884613D+00
        xs( 48) = 0.2709733576259290D+00
        xs( 49) = 0.2822023343443663D+00
        xs( 50) = 0.2935050236383266D+00
        xs( 51) = 0.3047416856391075D+00
        ws(  1) = 0.3045170331934522D-04
        ws(  2) = 0.7143522666957984D-04
        ws(  3) = 0.1138264636430170D-03
        ws(  4) = 0.1584287723642234D-03
        ws(  5) = 0.2062174364444638D-03
        ws(  6) = 0.2583466263099119D-03
        ws(  7) = 0.3162119054809884D-03
        ws(  8) = 0.3815324279863915D-03
        ws(  9) = 0.4564579085491038D-03
        ws( 10) = 0.5437088359419229D-03
        ws( 11) = 0.6467598041195625D-03
        ws( 12) = 0.7700757540357574D-03
        ws( 13) = 0.9194071241811297D-03
        ws( 14) = 0.1102137504514023D-02
        ws( 15) = 0.1327647068403910D-02
        ws( 16) = 0.1607590726375619D-02
        ws( 17) = 0.1955866720676706D-02
        ws( 18) = 0.2387836827632889D-02
        ws( 19) = 0.2918030913773808D-02
        ws( 20) = 0.3555216105678844D-02
        ws( 21) = 0.4293947337517916D-02
        ws( 22) = 0.5104418031146960D-02
        ws( 23) = 0.5929152455756282D-02
        ws( 24) = 0.6698200442068281D-02
        ws( 25) = 0.7358348960050258D-02
        ws( 26) = 0.7891340140741360D-02
        ws( 27) = 0.8308267945057398D-02
        ws( 28) = 0.8633128950129963D-02
        ws( 29) = 0.8890387401624351D-02
        ws( 30) = 0.9099816303125601D-02
        ws( 31) = 0.9275814173698037D-02
        ws( 32) = 0.9428384905243057D-02
        ws( 33) = 0.9564371166602708D-02
        ws( 34) = 0.9688470570033204D-02
        ws( 35) = 0.9803963991812195D-02
        ws( 36) = 0.9913207903155972D-02
        ws( 37) = 0.1001795980295005D-01
        ws( 38) = 0.1011959311588744D-01
        ws( 39) = 0.1021924165159193D-01
        ws( 40) = 0.1031789753546630D-01
        ws( 41) = 0.1041647754669534D-01
        ws( 42) = 0.1051587202775610D-01
        ws( 43) = 0.1061698631590838D-01
        ws( 44) = 0.1072083593104665D-01
        ws( 45) = 0.1082879370456536D-01
        ws( 46) = 0.1094339597132232D-01
        ws( 47) = 0.1107578999904814D-01
        ws( 48) = 0.1125730141663816D-01
        ws( 49) = 0.1146306069325663D-01
        ws( 50) = 0.1133191955646821D-01
        ws( 51) = 0.1046189280898653D-01
        endif
        if( idomain .eq.   11 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.0000000000000000D+00
        rk1r = 0.1256637061435917D+02
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  54
        err = 0.6412121476516230D-13
        xs(  1) = 0.7850978740568469D-05
        xs(  2) = 0.4147064148778983D-04
        xs(  3) = 0.1023851707804353D-03
        xs(  4) = 0.1913639271300966D-03
        xs(  5) = 0.3095426360076168D-03
        xs(  6) = 0.4584811606255616D-03
        xs(  7) = 0.6402289038882115D-03
        xs(  8) = 0.8574094910785651D-03
        xs(  9) = 0.1113329902816307D-02
        xs( 10) = 0.1412120655291850D-02
        xs( 11) = 0.1758916089158151D-02
        xs( 12) = 0.2160087092588799D-02
        xs( 13) = 0.2623542852258170D-02
        xs( 14) = 0.3159123797352435D-02
        xs( 15) = 0.3779115082256863D-02
        xs( 16) = 0.4498918920723621D-02
        xs( 17) = 0.5337934585600884D-02
        xs( 18) = 0.6320705592955926D-02
        xs( 19) = 0.7478400767679482D-02
        xs( 20) = 0.8850690847132140D-02
        xs( 21) = 0.1048804659553045D-01
        xs( 22) = 0.1245438125501842D-01
        xs( 23) = 0.1482971874731960D-01
        xs( 24) = 0.1771205897392319D-01
        xs( 25) = 0.2121662583341043D-01
        xs( 26) = 0.2546908172475283D-01
        xs( 27) = 0.3058783248053360D-01
        xs( 28) = 0.3665283067050045D-01
        xs( 29) = 0.4366995686189702D-01
        xs( 30) = 0.5155559685697144D-01
        xs( 31) = 0.6015969621941695D-01
        xs( 32) = 0.6931259724127602D-01
        xs( 33) = 0.7886390665090248D-01
        xs( 34) = 0.8869873383689331D-01
        xs( 35) = 0.9873692114688681D-01
        xs( 36) = 0.1089254994494280D+00
        xs( 37) = 0.1192306196292270D+00
        xs( 38) = 0.1296311783339183D+00
        xs( 39) = 0.1401143654765953D+00
        xs( 40) = 0.1506727331380103D+00
        xs( 41) = 0.1613023241440885D+00
        xs( 42) = 0.1720014983065390D+00
        xs( 43) = 0.1827702072808312D+00
        xs( 44) = 0.1936095549518401D+00
        xs( 45) = 0.2045215391711701D+00
        xs( 46) = 0.2155089119488636D+00
        xs( 47) = 0.2265751008589981D+00
        xs( 48) = 0.2377241161275861D+00
        xs( 49) = 0.2489599957838050D+00
        xs( 50) = 0.2602868477189930D+00
        xs( 51) = 0.2717086946671238D+00
        xs( 52) = 0.2831855636285194D+00
        xs( 53) = 0.2947153300752274D+00
        xs( 54) = 0.3056889729400957D+00
        ws(  1) = 0.2016000464688697D-04
        ws(  2) = 0.4716578917001275D-04
        ws(  3) = 0.7478994103042792D-04
        ws(  4) = 0.1033560072323049D-03
        ws(  5) = 0.1332603109864934D-03
        ws(  6) = 0.1649569053908614D-03
        ws(  7) = 0.1989740485396698D-03
        ws(  8) = 0.2359359742137040D-03
        ws(  9) = 0.2765902927657521D-03
        ws( 10) = 0.3218430959029613D-03
        ws( 11) = 0.3728046094705664D-03
        ws( 12) = 0.4308491152379464D-03
        ws( 13) = 0.4976940081301286D-03
        ws( 14) = 0.5755043182061723D-03
        ws( 15) = 0.6670307633476105D-03
        ws( 16) = 0.7757911689914374D-03
        ws( 17) = 0.9063062200718657D-03
        ws( 18) = 0.1064399408377232D-02
        ws( 19) = 0.1257564295667463D-02
        ws( 20) = 0.1495382957821538D-02
        ws( 21) = 0.1789934488711998D-02
        ws( 22) = 0.2156037028618486D-02
        ws( 23) = 0.2610975821474968D-02
        ws( 24) = 0.3173008968977903D-02
        ws( 25) = 0.3857352912881872D-02
        ws( 26) = 0.4667830635824153D-02
        ws( 27) = 0.5583658415156317D-02
        ws( 28) = 0.6547635578947209D-02
        ws( 29) = 0.7472252379343827D-02
        ws( 30) = 0.8273143105669487D-02
        ws( 31) = 0.8906097954773288D-02
        ws( 32) = 0.9374389829151368D-02
        ws( 33) = 0.9709120771723178D-02
        ws( 34) = 0.9947314051380241D-02
        ws( 35) = 0.1012037117887683D-01
        ws( 36) = 0.1025125016506352D-01
        ws( 37) = 0.1035554602897364D-01
        ws( 38) = 0.1044348406984233D-01
        ws( 39) = 0.1052167925792947D-01
        ws( 40) = 0.1059441568037852D-01
        ws( 41) = 0.1066450511241471D-01
        ws( 42) = 0.1073384271626430D-01
        ws( 43) = 0.1080376214881003D-01
        ws( 44) = 0.1087526051161152D-01
        ws( 45) = 0.1094914335152887D-01
        ws( 46) = 0.1102612166286839D-01
        ws( 47) = 0.1110690540536188D-01
        ws( 48) = 0.1119281305748184D-01
        ws( 49) = 0.1128501360232453D-01
        ws( 50) = 0.1138025194711848D-01
        ws( 51) = 0.1151210867291760D-01
        ws( 52) = 0.1162508329671058D-01
        ws( 53) = 0.1136734102616265D-01
        ws( 54) = 0.9725573364366956D-02
        endif
        if( idomain .eq.   12 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.0000000000000000D+00
        rk1r = 0.1570796326794897D+02
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  57
        err = 0.9378025211717765D-13
        xs(  1) = 0.5608741276866073D-05
        xs(  2) = 0.2960393126732330D-04
        xs(  3) = 0.7298636264473676D-04
        xs(  4) = 0.1361385940487205D-03
        xs(  5) = 0.2196173866648188D-03
        xs(  6) = 0.3241797404004926D-03
        xs(  7) = 0.4508083112821613D-03
        xs(  8) = 0.6007430902336617D-03
        xs(  9) = 0.7755209001070195D-03
        xs( 10) = 0.9770243959267568D-03
        xs( 11) = 0.1207542854813944D-02
        xs( 12) = 0.1469847849844897D-02
        xs( 13) = 0.1767287938946388D-02
        xs( 14) = 0.2103907847568197D-02
        xs( 15) = 0.2484599403219468D-02
        xs( 16) = 0.2915293855056263D-02
        xs( 17) = 0.3403208399130793D-02
        xs( 18) = 0.3957164008488840D-02
        xs( 19) = 0.4587997381057438D-02
        xs( 20) = 0.5309097356967692D-02
        xs( 21) = 0.6137105880211446D-02
        xs( 22) = 0.7092835612761093D-02
        xs( 23) = 0.8202470064148990D-02
        xs( 24) = 0.9499125221023126D-02
        xs( 25) = 0.1102485779853142D-01
        xs( 26) = 0.1283318937550240D-01
        xs( 27) = 0.1499214427884581D-01
        xs( 28) = 0.1758759906089212D-01
        xs( 29) = 0.2072625838174123D-01
        xs( 30) = 0.2453651514513544D-01
        xs( 31) = 0.2916346780704024D-01
        xs( 32) = 0.3475184418832500D-01
        xs( 33) = 0.4141113935332254D-01
        xs( 34) = 0.4916901859297474D-01
        xs( 35) = 0.5794139392589414D-01
        xs( 36) = 0.6755027561932903D-01
        xs( 37) = 0.7778128359225432D-01
        xs( 38) = 0.8843902856355444D-01
        xs( 39) = 0.9937366083626584D-01
        xs( 40) = 0.1104822738685043D+00
        xs( 41) = 0.1216992350807629D+00
        xs( 42) = 0.1329850470984004D+00
        xs( 43) = 0.1443173969156925D+00
        xs( 44) = 0.1556849058182303D+00
        xs( 45) = 0.1670830534418018D+00
        xs( 46) = 0.1785116189372197D+00
        xs( 47) = 0.1899731176371828D+00
        xs( 48) = 0.2014718752435780D+00
        xs( 49) = 0.2130135177868992D+00
        xs( 50) = 0.2246047084434232D+00
        xs( 51) = 0.2362529775480356D+00
        xs( 52) = 0.2479671148138548D+00
        xs( 53) = 0.2597555117704349D+00
        xs( 54) = 0.2716345052476409D+00
        xs( 55) = 0.2835924022901720D+00
        xs( 56) = 0.2956100136083714D+00
        xs( 57) = 0.3073403602979720D+00
        ws(  1) = 0.1439973513956991D-04
        ws(  2) = 0.3363757218829804D-04
        ws(  3) = 0.5319010608005939D-04
        ws(  4) = 0.7320679341852676D-04
        ws(  5) = 0.9387654096172259D-04
        ws(  6) = 0.1154114176473182D-03
        ws(  7) = 0.1380517348875793D-03
        ws(  8) = 0.1620731488581944D-03
        ws(  9) = 0.1877952408401061D-03
        ws( 10) = 0.2155920454705089D-03
        ws( 11) = 0.2459052358780232D-03
        ws( 12) = 0.2792608778423314D-03
        ws( 13) = 0.3162909283117111D-03
        ws( 14) = 0.3577610182875363D-03
        ws( 15) = 0.4046065659336800D-03
        ws( 16) = 0.4579799601720607D-03
        ws( 17) = 0.5193124957386668D-03
        ws( 18) = 0.5903959934652977D-03
        ws( 19) = 0.6734906656039340D-03
        ws( 20) = 0.7714678067897180D-03
        ws( 21) = 0.8879982048021764D-03
        ws( 22) = 0.1027799361596069D-02
        ws( 23) = 0.1196955585817937D-02
        ws( 24) = 0.1403322152045949D-02
        ws( 25) = 0.1657012255206344D-02
        ws( 26) = 0.1970931046221682D-02
        ws( 27) = 0.2361238167433891D-02
        ws( 28) = 0.2847432718786728D-02
        ws( 29) = 0.3451352192386805D-02
        ws( 30) = 0.4193610836909457D-02
        ws( 31) = 0.5085003921654523D-02
        ws( 32) = 0.6110849106118455D-02
        ws( 33) = 0.7212950218862643D-02
        ws( 34) = 0.8288474416600012D-02
        ws( 35) = 0.9225524179951122D-02
        ws( 36) = 0.9955518230926885D-02
        ws( 37) = 0.1047351129587233D-01
        ws( 38) = 0.1081701960261348D-01
        ws( 39) = 0.1103527752164847D-01
        ws( 40) = 0.1117120273041760D-01
        ws( 41) = 0.1125628638056888D-01
        ws( 42) = 0.1131172142395968D-01
        ws( 43) = 0.1135114803721359D-01
        ws( 44) = 0.1138315771095294D-01
        ws( 45) = 0.1141312566975884D-01
        ws( 46) = 0.1144443955698026D-01
        ws( 47) = 0.1147929286478743D-01
        ws( 48) = 0.1151919187535371D-01
        ws( 49) = 0.1156527294839420D-01
        ws( 50) = 0.1161864216433801D-01
        ws( 51) = 0.1168014127260218D-01
        ws( 52) = 0.1174967944213823D-01
        ws( 53) = 0.1183245116724749D-01
        ws( 54) = 0.1192311183207899D-01
        ws( 55) = 0.1206305331839990D-01
        ws( 56) = 0.1232994284821849D-01
        ws( 57) = 0.1119794602697735D-01
        endif
        if( idomain .eq.   13 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.0000000000000000D+00
        rk1r = 0.1884955592153876D+02
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  61
        err = 0.5906164243148535D-13
        xs(  1) = 0.4199477022192821D-05
        xs(  2) = 0.2215483543931680D-04
        xs(  3) = 0.5457316737564109D-04
        xs(  4) = 0.1016626173055747D-03
        xs(  5) = 0.1637220109947366D-03
        xs(  6) = 0.2411547750067134D-03
        xs(  7) = 0.3344803480558105D-03
        xs(  8) = 0.4443478719325215D-03
        xs(  9) = 0.5715527787837108D-03
        xs( 10) = 0.7170567542719492D-03
        xs( 11) = 0.8820117117670796D-03
        xs( 12) = 0.1067788638101645D-02
        xs( 13) = 0.1276012448464792D-02
        xs( 14) = 0.1508604328493761D-02
        xs( 15) = 0.1767833469016844D-02
        xs( 16) = 0.2056380646643264D-02
        xs( 17) = 0.2377416816578507D-02
        xs( 18) = 0.2734700822934710D-02
        xs( 19) = 0.3132701577107257D-02
        xs( 20) = 0.3576751714817076D-02
        xs( 21) = 0.4073241962366275D-02
        xs( 22) = 0.4629868415736084D-02
        xs( 23) = 0.5255948915528104D-02
        xs( 24) = 0.5962830008726544D-02
        xs( 25) = 0.6764413014245742D-02
        xs( 26) = 0.7677836876644487D-02
        xs( 27) = 0.8724367151205640D-02
        xs( 28) = 0.9930554614451241D-02
        xs( 29) = 0.1132974263756471D-01
        xs( 30) = 0.1296401609996314D-01
        xs( 31) = 0.1488668679434846D-01
        xs( 32) = 0.1716537729839398D-01
        xs( 33) = 0.1988563940866331D-01
        xs( 34) = 0.2315468761782065D-01
        xs( 35) = 0.2710394605054231D-01
        xs( 36) = 0.3188720405729677D-01
        xs( 37) = 0.3766805859407282D-01
        xs( 38) = 0.4458841091404484D-01
        xs( 39) = 0.5271750102491717D-01
        xs( 40) = 0.6200496485410443D-01
        xs( 41) = 0.7227873000131582D-01
        xs( 42) = 0.8329881491279521D-01
        xs( 43) = 0.9482738922201256D-01
        xs( 44) = 0.1066726048346298D+00
        xs( 45) = 0.1186990668311573D+00
        xs( 46) = 0.1308195777513142D+00
        xs( 47) = 0.1429819524010697D+00
        xs( 48) = 0.1551573969166493D+00
        xs( 49) = 0.1673320547263732D+00
        xs( 50) = 0.1795013806040569D+00
        xs( 51) = 0.1916665720338048D+00
        xs( 52) = 0.2038323736564978D+00
        xs( 53) = 0.2160057604390295D+00
        xs( 54) = 0.2281952237739119D+00
        xs( 55) = 0.2404102508107025D+00
        xs( 56) = 0.2526611952595849D+00
        xs( 57) = 0.2649593651659786D+00
        xs( 58) = 0.2773090390999553D+00
        xs( 59) = 0.2897122415171516D+00
        xs( 60) = 0.3021471982585614D+00
        xs( 61) = 0.3140946498900063D+00
        ws(  1) = 0.1078040564282645D-04
        ws(  2) = 0.2515843350715977D-04
        ws(  3) = 0.3971227632166889D-04
        ws(  4) = 0.5451625305997309D-04
        ws(  5) = 0.6966958562167289D-04
        ws(  6) = 0.8528228838175768D-04
        ws(  7) = 0.1014767726429701D-03
        ws(  8) = 0.1183905159063734D-03
        ws(  9) = 0.1361791811996662D-03
        ws( 10) = 0.1550202772599256D-03
        ws( 11) = 0.1751175581062471D-03
        ws( 12) = 0.1967064125494079D-03
        ws( 13) = 0.2200605493137380D-03
        ws( 14) = 0.2455003569899606D-03
        ws( 15) = 0.2734034199323102D-03
        ws( 16) = 0.3042178119271183D-03
        ws( 17) = 0.3384789821289458D-03
        ws( 18) = 0.3768313098816331D-03
        ws( 19) = 0.4200557603080783D-03
        ws( 20) = 0.4691055528525551D-03
        ws( 21) = 0.5251524024843149D-03
        ws( 22) = 0.5896467620373728D-03
        ws( 23) = 0.6643966496670740D-03
        ws( 24) = 0.7516711587531516D-03
        ws( 25) = 0.8543366770545973D-03
        ws( 26) = 0.9760361856249097D-03
        ws( 27) = 0.1121424594589037D-02
        ws( 28) = 0.1296475316433590D-02
        ws( 29) = 0.1508873632283550D-02
        ws( 30) = 0.1768507121199243D-02
        ws( 31) = 0.2088043581227846D-02
        ws( 32) = 0.2483531138849599D-02
        ws( 33) = 0.2974812706777990D-02
        ws( 34) = 0.3585203469488408D-02
        ws( 35) = 0.4339131225211249D-02
        ws( 36) = 0.5255165882646063D-02
        ws( 37) = 0.6331097809960857D-02
        ws( 38) = 0.7522051999879790D-02
        ws( 39) = 0.8727810351093133D-02
        ws( 40) = 0.9817418020885118D-02
        ws( 41) = 0.1068882803030810D-01
        ws( 42) = 0.1131096698402715D-01
        ws( 43) = 0.1171407769723257D-01
        ws( 44) = 0.1195395960431995D-01
        ws( 45) = 0.1208466513427664D-01
        ws( 46) = 0.1214785544053785D-01
        ws( 47) = 0.1217223443349881D-01
        ws( 48) = 0.1217643696263132D-01
        ws( 49) = 0.1217217945732165D-01
        ws( 50) = 0.1216670972363105D-01
        ws( 51) = 0.1216448888262987D-01
        ws( 52) = 0.1216829676236101D-01
        ws( 53) = 0.1217983837369326D-01
        ws( 54) = 0.1220043025869066D-01
        ws( 55) = 0.1223075918624801D-01
        ws( 56) = 0.1227294909032514D-01
        ws( 57) = 0.1233023639912567D-01
        ws( 58) = 0.1240889933545351D-01
        ws( 59) = 0.1250376576977120D-01
        ws( 60) = 0.1256498463157981D-01
        ws( 61) = 0.1121516164276844D-01
        endif
        if( idomain .eq.   14 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.0000000000000000D+00
        rk1r = 0.2199114857512855D+02
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  64
        err = 0.5785157674585329D-13
        xs(  1) = 0.3295621874584112D-05
        xs(  2) = 0.1738099294365710D-04
        xs(  3) = 0.4278966792715743D-04
        xs(  4) = 0.7964565567619154D-04
        xs(  5) = 0.1281246931078841D-03
        xs(  6) = 0.1884629985515462D-03
        xs(  7) = 0.2609633057066809D-03
        xs(  8) = 0.3460018386985512D-03
        xs(  9) = 0.4440365632753520D-03
        xs( 10) = 0.5556168774042436D-03
        xs( 11) = 0.6813949488419895D-03
        xs( 12) = 0.8221389887076282D-03
        xs( 13) = 0.9787488479002554D-03
        xs( 14) = 0.1152274436963423D-02
        xs( 15) = 0.1343937604813812D-02
        xs( 16) = 0.1555158275966081D-02
        xs( 17) = 0.1787585850839781D-02
        xs( 18) = 0.2043137134281969D-02
        xs( 19) = 0.2324042392998906D-02
        xs( 20) = 0.2632901578778043D-02
        xs( 21) = 0.2972753325351627D-02
        xs( 22) = 0.3347160078449266D-02
        xs( 23) = 0.3760313713182313D-02
        xs( 24) = 0.4217167314855079D-02
        xs( 25) = 0.4723600563399070D-02
        xs( 26) = 0.5286628523641487D-02
        xs( 27) = 0.5914666813652232D-02
        xs( 28) = 0.6617870381686449D-02
        xs( 29) = 0.7408568835126867D-02
        xs( 30) = 0.8301828894529245D-02
        xs( 31) = 0.9316184637810299D-02
        xs( 32) = 0.1047458930970141D-01
        xs( 33) = 0.1180565894603670D-01
        xs( 34) = 0.1334529746539154D-01
        xs( 35) = 0.1513881256912240D-01
        xs( 36) = 0.1724364334420389D-01
        xs( 37) = 0.1973280053509029D-01
        xs( 38) = 0.2269900722436733D-01
        xs( 39) = 0.2625916372847082D-01
        xs( 40) = 0.3055778125546480D-01
        xs( 41) = 0.3576577634370797D-01
        xs( 42) = 0.4206708949239910D-01
        xs( 43) = 0.4962274141408855D-01
        xs( 44) = 0.5851075435556010D-01
        xs( 45) = 0.6866998770568829D-01
        xs( 46) = 0.7989796962808936D-01
        xs( 47) = 0.9191583362825401D-01
        xs( 48) = 0.1044511120858516D+00
        xs( 49) = 0.1172876208593593D+00
        xs( 50) = 0.1302757158176331D+00
        xs( 51) = 0.1433213620762367D+00
        xs( 52) = 0.1563702656794518D+00
        xs( 53) = 0.1693943069896747D+00
        xs( 54) = 0.1823818512092593D+00
        xs( 55) = 0.1953313878271531D+00
        xs( 56) = 0.2082475381830750D+00
        xs( 57) = 0.2211386282757336D+00
        xs( 58) = 0.2340151753942526D+00
        xs( 59) = 0.2468891011215760D+00
        xs( 60) = 0.2597726123779546D+00
        xs( 61) = 0.2726685602729877D+00
        xs( 62) = 0.2855851250569295D+00
        xs( 63) = 0.2984455559144466D+00
        xs( 64) = 0.3107390676520343D+00
        ws(  1) = 0.8459514914488118D-05
        ws(  2) = 0.1972974784958457D-04
        ws(  3) = 0.3110778876157878D-04
        ws(  4) = 0.4263337511049595D-04
        ws(  5) = 0.5436397161091511D-04
        ws(  6) = 0.6636297911015734D-04
        ws(  7) = 0.7870020204877817D-04
        ws(  8) = 0.9145303053387008D-04
        ws(  9) = 0.1047077966706102D-03
        ws( 10) = 0.1185613059021328D-03
        ws( 11) = 0.1331226134033363D-03
        ws( 12) = 0.1485151359814912D-03
        ws( 13) = 0.1648792047368428D-03
        ws( 14) = 0.1823751816253242D-03
        ws( 15) = 0.2011872878056773D-03
        ws( 16) = 0.2215283261985907D-03
        ws( 17) = 0.2436455281965219D-03
        ws( 18) = 0.2678278188904655D-03
        ws( 19) = 0.2944148817977042D-03
        ws( 20) = 0.3238085201209907D-03
        ws( 21) = 0.3564869670333475D-03
        ws( 22) = 0.3930230061483451D-03
        ws( 23) = 0.4341070441508913D-03
        ws( 24) = 0.4805766564728170D-03
        ws( 25) = 0.5334546390688927D-03
        ws( 26) = 0.5939982920184498D-03
        ws( 27) = 0.6637635957150704D-03
        ws( 28) = 0.7446891962959839D-03
        ws( 29) = 0.8392067865955868D-03
        ws( 30) = 0.9503866476687473D-03
        ws( 31) = 0.1082129865603058D-02
        ws( 32) = 0.1239421995280599D-02
        ws( 33) = 0.1428666296806473D-02
        ws( 34) = 0.1658116836812796D-02
        ws( 35) = 0.1938429270001970D-02
        ws( 36) = 0.2283331048702060D-02
        ws( 37) = 0.2710360031373085D-02
        ws( 38) = 0.3241471741577754D-02
        ws( 39) = 0.3902928863333081D-02
        ws( 40) = 0.4722986530664374D-02
        ws( 41) = 0.5724244410449132D-02
        ws( 42) = 0.6906285074143339D-02
        ws( 43) = 0.8219110137795617D-02
        ws( 44) = 0.9546811127312708D-02
        ws( 45) = 0.1073667279953450D-01
        ws( 46) = 0.1167129089106597D-01
        ws( 47) = 0.1231819323599737D-01
        ws( 48) = 0.1271621828838745D-01
        ws( 49) = 0.1293208068981591D-01
        ws( 50) = 0.1302871644112324D-01
        ws( 51) = 0.1305375549815597D-01
        ws( 52) = 0.1303952475277112D-01
        ws( 53) = 0.1300672213010407D-01
        ws( 54) = 0.1296817911621837D-01
        ws( 55) = 0.1293170223039827D-01
        ws( 56) = 0.1290199031560573D-01
        ws( 57) = 0.1288187378199967D-01
        ws( 58) = 0.1287302829725981D-01
        ws( 59) = 0.1287773188203875D-01
        ws( 60) = 0.1290557221798965D-01
        ws( 61) = 0.1295072179524737D-01
        ws( 62) = 0.1298036342288598D-01
        ws( 63) = 0.1311275448638798D-01
        ws( 64) = 0.1134474708176725D-01
        endif
        if( idomain .eq.   15 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.0000000000000000D+00
        rk1r = 0.2513274122871834D+02
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  68
        err = 0.4138196104569973D-13
        xs(  1) = 0.2639442119085341D-05
        xs(  2) = 0.1391727087932626D-04
        xs(  3) = 0.3424885283918315D-04
        xs(  4) = 0.6371152500890156D-04
        xs(  5) = 0.1024132988306685D-03
        xs(  6) = 0.1504987952147753D-03
        xs(  7) = 0.2081526578159773D-03
        xs(  8) = 0.2756033507988670D-03
        xs(  9) = 0.3531275639850287D-03
        xs( 10) = 0.4410552862460007D-03
        xs( 11) = 0.5397756148425648D-03
        xs( 12) = 0.6497434003535319D-03
        xs( 13) = 0.7714868658749703D-03
        xs( 14) = 0.9056163825770583D-03
        xs( 15) = 0.1052834632141029D-02
        xs( 16) = 0.1213948442139291D-02
        xs( 17) = 0.1389882646111331D-02
        xs( 18) = 0.1581696399869921D-02
        xs( 19) = 0.1790602484416271D-02
        xs( 20) = 0.2017990250022309D-02
        xs( 21) = 0.2265453013578616D-02
        xs( 22) = 0.2534820922617428D-02
        xs( 23) = 0.2828200558177050D-02
        xs( 24) = 0.3148022883016881D-02
        xs( 25) = 0.3497101575870227D-02
        xs( 26) = 0.3878704359036926D-02
        xs( 27) = 0.4296640669710120D-02
        xs( 28) = 0.4755370004704472D-02
        xs( 29) = 0.5260136564832752D-02
        xs( 30) = 0.5817137549443715D-02
        xs( 31) = 0.6433734753636433D-02
        xs( 32) = 0.7118722203740984D-02
        xs( 33) = 0.7882666704311800D-02
        xs( 34) = 0.8738343725087782D-02
        xs( 35) = 0.9701298499061876D-02
        xs( 36) = 0.1079057211426860D-01
        xs( 37) = 0.1202964541654726D-01
        xs( 38) = 0.1344767027177293D-01
        xs( 39) = 0.1508107820342428D-01
        xs( 40) = 0.1697567890693837D-01
        xs( 41) = 0.1918937893192612D-01
        xs( 42) = 0.2179564364601051D-01
        xs( 43) = 0.2488773739804037D-01
        xs( 44) = 0.2858346199634416D-01
        xs( 45) = 0.3302923050186246D-01
        xs( 46) = 0.3840022457644437D-01
        xs( 47) = 0.4488956818928221D-01
        xs( 48) = 0.5267593222402526D-01
        xs( 49) = 0.6186491072907632D-01
        xs( 50) = 0.7242584296471942D-01
        xs( 51) = 0.8417368163060632D-01
        xs( 52) = 0.9682265074637493D-01
        xs( 53) = 0.1100736791987234D+00
        xs( 54) = 0.1236777648722690D+00
        xs( 55) = 0.1374565613708514D+00
        xs( 56) = 0.1512952145383119D+00
        xs( 57) = 0.1651261289118772D+00
        xs( 58) = 0.1789136334061807D+00
        xs( 59) = 0.1926425100653364D+00
        xs( 60) = 0.2063102656335309D+00
        xs( 61) = 0.2199221988987165D+00
        xs( 62) = 0.2334882983377210D+00
        xs( 63) = 0.2470212346946081D+00
        xs( 64) = 0.2605352799163734D+00
        xs( 65) = 0.2740381928964424D+00
        xs( 66) = 0.2875429924196678D+00
        xs( 67) = 0.3009573429265676D+00
        xs( 68) = 0.3141397840682057D+00
        ws(  1) = 0.6774823107858650D-05
        ws(  2) = 0.1579367969394062D-04
        ws(  3) = 0.2488200045866770D-04
        ws(  4) = 0.3406128271052409D-04
        ws(  5) = 0.4336631363577500D-04
        ws(  6) = 0.5283539004728170D-04
        ws(  7) = 0.6251033921049064D-04
        ws(  8) = 0.7243707732388220D-04
        ws(  9) = 0.8266625060642205D-04
        ws( 10) = 0.9325393303881115D-04
        ws( 11) = 0.1042624060291000D-03
        ws( 12) = 0.1157610564623397D-03
        ws( 13) = 0.1278274344120880D-03
        ws( 14) = 0.1405485161812783D-03
        ws( 15) = 0.1540222242274561D-03
        ws( 16) = 0.1683592640067550D-03
        ws( 17) = 0.1836853497362692D-03
        ws( 18) = 0.2001439074628386D-03
        ws( 19) = 0.2178993657764506D-03
        ws( 20) = 0.2371411735164118D-03
        ws( 21) = 0.2580887219231644D-03
        ws( 22) = 0.2809973986642935D-03
        ws( 23) = 0.3061660668162460D-03
        ws( 24) = 0.3339463484106786D-03
        ws( 25) = 0.3647542066754342D-03
        ws( 26) = 0.3990844733402756D-03
        ws( 27) = 0.4375291706780443D-03
        ws( 28) = 0.4808007505477370D-03
        ws( 29) = 0.5297617395575350D-03
        ws( 30) = 0.5854627745426034D-03
        ws( 31) = 0.6491916817752499D-03
        ws( 32) = 0.7225371578922982D-03
        ws( 33) = 0.8074718300500905D-03
        ws( 34) = 0.9064611063965147D-03
        ws( 35) = 0.1022606388516781D-02
        ws( 36) = 0.1159834008389591D-02
        ws( 37) = 0.1323144698762064D-02
        ws( 38) = 0.1518942274973352D-02
        ws( 39) = 0.1755463545837657D-02
        ws( 40) = 0.2043331413092577D-02
        ws( 41) = 0.2396241729502395D-02
        ws( 42) = 0.2831750474831241D-02
        ws( 43) = 0.3371995833857499D-02
        ws( 44) = 0.4043836545136876D-02
        ws( 45) = 0.4877049588583905D-02
        ws( 46) = 0.5897644532550923D-02
        ws( 47) = 0.7111844210609318D-02
        ws( 48) = 0.8479679290180935D-02
        ws( 49) = 0.9893561043687261D-02
        ws( 50) = 0.1119644984179765D-01
        ws( 51) = 0.1224997163812174D-01
        ws( 52) = 0.1299702932085686D-01
        ws( 53) = 0.1346323509085026D-01
        ws( 54) = 0.1371537947032050D-01
        ws( 55) = 0.1382336381422453D-01
        ws( 56) = 0.1384293744696181D-01
        ws( 57) = 0.1381313587308880D-01
        ws( 58) = 0.1375946228813391D-01
        ws( 59) = 0.1369795479231362D-01
        ws( 60) = 0.1363849621964163D-01
        ws( 61) = 0.1358713234605900D-01
        ws( 62) = 0.1354763358539127D-01
        ws( 63) = 0.1352208640344425D-01
        ws( 64) = 0.1351317734821453D-01
        ws( 65) = 0.1351728749514771D-01
        ws( 66) = 0.1351667552947625D-01
        ws( 67) = 0.1319068293837285D-01
        ws( 68) = 0.1216297886907264D-01
        endif
        if( idomain .eq.   16 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.0000000000000000D+00
        rk1r = 0.2827433388230814D+02
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  72
        err = 0.5370148679387097D-13
        xs(  1) = 0.2173445138773729D-05
        xs(  2) = 0.1145839950190797D-04
        xs(  3) = 0.2819001576876559D-04
        xs(  4) = 0.5241934905313577D-04
        xs(  5) = 0.8421659085506977D-04
        xs(  6) = 0.1236754076263984D-03
        xs(  7) = 0.1709150395772708D-03
        xs(  8) = 0.2260825491347578D-03
        xs(  9) = 0.2893553905222550D-03
        xs( 10) = 0.3609443282399550D-03
        xs( 11) = 0.4410967261534490D-03
        xs( 12) = 0.5301002423250054D-03
        xs( 13) = 0.6282869826717805D-03
        xs( 14) = 0.7360381862017546D-03
        xs( 15) = 0.8537895355773195D-03
        xs( 16) = 0.9820372095344716D-03
        xs( 17) = 0.1121344819144196D-02
        xs( 18) = 0.1272351399278949D-02
        xs( 19) = 0.1435780661488294D-02
        xs( 20) = 0.1612451756681249D-02
        xs( 21) = 0.1803291847870086D-02
        xs( 22) = 0.2009350857621793D-02
        xs( 23) = 0.2231818835408382D-02
        xs( 24) = 0.2472046491380516D-02
        xs( 25) = 0.2731569571208149D-02
        xs( 26) = 0.3012137909378910D-02
        xs( 27) = 0.3315750206041902D-02
        xs( 28) = 0.3644695838809576D-02
        xs( 29) = 0.4001605364106218D-02
        xs( 30) = 0.4389511807077004D-02
        xs( 31) = 0.4811925417565373D-02
        xs( 32) = 0.5272925326560647D-02
        xs( 33) = 0.5777272532910638D-02
        xs( 34) = 0.6330549965719113D-02
        xs( 35) = 0.6939337115060783D-02
        xs( 36) = 0.7611429054303021D-02
        xs( 37) = 0.8356112798146978D-02
        xs( 38) = 0.9184518131645576D-02
        xs( 39) = 0.1011006568285853D-01
        xs( 40) = 0.1114904259054270D-01
        xs( 41) = 0.1232134626796947D-01
        xs( 42) = 0.1365145022976831D-01
        xs( 43) = 0.1516966347176369D-01
        xs( 44) = 0.1691377681370437D-01
        xs( 45) = 0.1893121472289348D-01
        xs( 46) = 0.2128183349907323D-01
        xs( 47) = 0.2404150697119750D-01
        xs( 48) = 0.2730656307974733D-01
        xs( 49) = 0.3119882926649475D-01
        xs( 50) = 0.3587015421221600D-01
        xs( 51) = 0.4150312666404585D-01
        xs( 52) = 0.4830074750219453D-01
        xs( 53) = 0.5645402161247195D-01
        xs( 54) = 0.6608190469524411D-01
        xs( 55) = 0.7716406837793684D-01
        xs( 56) = 0.8951664214299451D-01
        xs( 57) = 0.1028423330417432D+00
        xs( 58) = 0.1168210797041534D+00
        xs( 59) = 0.1311806629710840D+00
        xs( 60) = 0.1457229653472221D+00
        xs( 61) = 0.1603188900497761D+00
        xs( 62) = 0.1748917759472867D+00
        xs( 63) = 0.1894008295801118D+00
        xs( 64) = 0.2038283886308343D+00
        xs( 65) = 0.2181711700173576D+00
        xs( 66) = 0.2324344883542206D+00
        xs( 67) = 0.2466283295326322D+00
        xs( 68) = 0.2607648675830939D+00
        xs( 69) = 0.2748506127346547D+00
        xs( 70) = 0.2888844136226426D+00
        xs( 71) = 0.3027725123792531D+00
        xs( 72) = 0.3161394166952491D+00
        ws(  1) = 0.5578519021570306D-05
        ws(  2) = 0.1300082265889508D-04
        ws(  3) = 0.2047061809016857D-04
        ws(  4) = 0.2799970427157833D-04
        ws(  5) = 0.3561035715339329D-04
        ws(  6) = 0.4332711247642778D-04
        ws(  7) = 0.5117661904451138D-04
        ws(  8) = 0.5918792717994321D-04
        ws(  9) = 0.6739282827594126D-04
        ws( 10) = 0.7582621301569891D-04
        ws( 11) = 0.8452645676676839D-04
        ws( 12) = 0.9353584869781108D-04
        ws( 13) = 0.1029010835974162D-03
        ws( 14) = 0.1126738367024747D-03
        ws( 15) = 0.1229114433061607D-03
        ws( 16) = 0.1336777070836073D-03
        ws( 17) = 0.1450438643209516D-03
        ws( 18) = 0.1570897358720804D-03
        ws( 19) = 0.1699051050142515D-03
        ws( 20) = 0.1835913678013384D-03
        ws( 21) = 0.1982635135057468D-03
        ws( 22) = 0.2140525069395041D-03
        ws( 23) = 0.2311081627209611D-03
        ws( 24) = 0.2496026250786872D-03
        ws( 25) = 0.2697345971361385D-03
        ws( 26) = 0.2917345029334478D-03
        ws( 27) = 0.3158708165840697D-03
        ws( 28) = 0.3424578598288458D-03
        ws( 29) = 0.3718654571063866D-03
        ws( 30) = 0.4045309532904397D-03
        ws( 31) = 0.4409742532504998D-03
        ws( 32) = 0.4818167477866899D-03
        ws( 33) = 0.5278052656658118D-03
        ws( 34) = 0.5798425616596943D-03
        ws( 35) = 0.6390263501838308D-03
        ws( 36) = 0.7066995703942348D-03
        ws( 37) = 0.7845154848460281D-03
        ws( 38) = 0.8745224541511808D-03
        ws( 39) = 0.9792749021993031D-03
        ws( 40) = 0.1101979219981257D-02
        ws( 41) = 0.1246686285174393D-02
        ws( 42) = 0.1418545981160493D-02
        ws( 43) = 0.1624143451047032D-02
        ws( 44) = 0.1871941035472174D-02
        ws( 45) = 0.2172851298356128D-02
        ws( 46) = 0.2540957578190921D-02
        ws( 47) = 0.2994357717463932D-02
        ws( 48) = 0.3555976750592807D-02
        ws( 49) = 0.4253835008302604D-02
        ws( 50) = 0.5119389219594351D-02
        ws( 51) = 0.6180905961718893D-02
        ws( 52) = 0.7447213089421326D-02
        ws( 53) = 0.8880424563758874D-02
        ws( 54) = 0.1037246228097513D-01
        ws( 55) = 0.1176028092425763D-01
        ws( 56) = 0.1289362816172130D-01
        ws( 57) = 0.1370318042915482D-01
        ws( 58) = 0.1420855244859409D-01
        ws( 59) = 0.1447773153283768D-01
        ws( 60) = 0.1458565962421301D-01
        ws( 61) = 0.1459369629506782D-01
        ws( 62) = 0.1454548834232105D-01
        ws( 63) = 0.1446982141255545D-01
        ws( 64) = 0.1438485989074697D-01
        ws( 65) = 0.1430171198270849D-01
        ws( 66) = 0.1422698235549968D-01
        ws( 67) = 0.1416327157177189D-01
        ws( 68) = 0.1411435536232814D-01
        ws( 69) = 0.1406004679529720D-01
        ws( 70) = 0.1404279733467550D-01
        ws( 71) = 0.1357357542961241D-01
        ws( 72) = 0.1197662058341545D-01
        endif
        if( idomain .eq.   17 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.0000000000000000D+00
        rk1r = 0.3141592653589793D+02
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  75
        err = 0.8825024920928946D-13
        xs(  1) = 0.1837678566811558D-05
        xs(  2) = 0.9687079055211244D-05
        xs(  3) = 0.2382705360103305D-04
        xs(  4) = 0.4429251236079611D-04
        xs(  5) = 0.7113064235263256D-04
        xs(  6) = 0.1044043222954805D-03
        xs(  7) = 0.1441935648541829D-03
        xs(  8) = 0.1905970035436845D-03
        xs(  9) = 0.2437335631921210D-03
        xs( 10) = 0.3037443276989783D-03
        xs( 11) = 0.3707946094914124D-03
        xs( 12) = 0.4450762317874983D-03
        xs( 13) = 0.5268100448210971D-03
        xs( 14) = 0.6162487080463837D-03
        xs( 15) = 0.7136797814377012D-03
        xs( 16) = 0.8194291803537968D-03
        xs( 17) = 0.9338650603565157D-03
        xs( 18) = 0.1057402211352577D-02
        xs( 19) = 0.1190507055082796D-02
        xs( 20) = 0.1333703357050108D-02
        xs( 21) = 0.1487578784312450D-02
        xs( 22) = 0.1652792465179675D-02
        xs( 23) = 0.1830083736959618D-02
        xs( 24) = 0.2020282304987004D-02
        xs( 25) = 0.2224320082102774D-02
        xs( 26) = 0.2443245034888328D-02
        xs( 27) = 0.2678237434324374D-02
        xs( 28) = 0.2930628998042523D-02
        xs( 29) = 0.3201925524057989D-02
        xs( 30) = 0.3493833758471867D-02
        xs( 31) = 0.3808293420890616D-02
        xs( 32) = 0.4147515542844219D-02
        xs( 33) = 0.4514028571776863D-02
        xs( 34) = 0.4910734076950840D-02
        xs( 35) = 0.5340974391749415D-02
        xs( 36) = 0.5808615177137249D-02
        xs( 37) = 0.6318146744815686D-02
        xs( 38) = 0.6874809106157200D-02
        xs( 39) = 0.7484747210875978D-02
        xs( 40) = 0.8155204840889068D-02
        xs( 41) = 0.8894768314649753D-02
        xs( 42) = 0.9713674791921751D-02
        xs( 43) = 0.1062420490525873D-01
        xs( 44) = 0.1164118617703123D-01
        xs( 45) = 0.1278264289077025D-01
        xs( 46) = 0.1407064069400608D-01
        xs( 47) = 0.1553239141482147D-01
        xs( 48) = 0.1720170679732564D-01
        xs( 49) = 0.1912092037546328D-01
        xs( 50) = 0.2134343426189448D-01
        xs( 51) = 0.2393708606076115D-01
        xs( 52) = 0.2698854505370632D-01
        xs( 53) = 0.3060885398255430D-01
        xs( 54) = 0.3493979783918739D-01
        xs( 55) = 0.4015942736886829D-01
        xs( 56) = 0.4648175953700179D-01
        xs( 57) = 0.5413993805280261D-01
        xs( 58) = 0.6333845491524820D-01
        xs( 59) = 0.7417328019333078D-01
        xs( 60) = 0.8655885860576523D-01
        xs( 61) = 0.1002274589420788D+00
        xs( 62) = 0.1148154963414519D+00
        xs( 63) = 0.1299713965773567D+00
        xs( 64) = 0.1454195456530878D+00
        xs( 65) = 0.1609724711732409D+00
        xs( 66) = 0.1765157216299388D+00
        xs( 67) = 0.1919866846626941D+00
        xs( 68) = 0.2073566739938902D+00
        xs( 69) = 0.2226181698058316D+00
        xs( 70) = 0.2377762988452864D+00
        xs( 71) = 0.2528431779242661D+00
        xs( 72) = 0.2678308873685899D+00
        xs( 73) = 0.2827476105090638D+00
        xs( 74) = 0.2974745313767045D+00
        xs( 75) = 0.3116405972868273D+00
        ws(  1) = 0.4716584571897389D-05
        ws(  2) = 0.1098943881441089D-04
        ws(  3) = 0.1729607708368656D-04
        ws(  4) = 0.2364267298268071D-04
        ws(  5) = 0.3004404420234763D-04
        ws(  6) = 0.3651662649482673D-04
        ws(  7) = 0.4307826971233981D-04
        ws(  8) = 0.4974839734867504D-04
        ws(  9) = 0.5654820146602588D-04
        ws( 10) = 0.6350084163129807D-04
        ws( 11) = 0.7063165062901102D-04
        ws( 12) = 0.7796835606797146D-04
        ws( 13) = 0.8554132851606469D-04
        ws( 14) = 0.9338386717348883D-04
        ws( 15) = 0.1015325342769415D-03
        ws( 16) = 0.1100275498027800D-03
        ws( 17) = 0.1189132588255087D-03
        ws( 18) = 0.1282386852358524D-03
        ws( 19) = 0.1380581875478857D-03
        ws( 20) = 0.1484322353419036D-03
        ws( 21) = 0.1594283286333543D-03
        ws( 22) = 0.1711220873050656D-03
        ws( 23) = 0.1835985439239490D-03
        ws( 24) = 0.1969536811067980D-03
        ws( 25) = 0.2112962645281452D-03
        ws( 26) = 0.2267500352521562D-03
        ws( 27) = 0.2434563410823450D-03
        ws( 28) = 0.2615773070745136D-03
        ws( 29) = 0.2812996716078840D-03
        ws( 30) = 0.3028394482720220D-03
        ws( 31) = 0.3264476177481667D-03
        ws( 32) = 0.3524171111335769D-03
        ws( 33) = 0.3810914212641798D-03
        ws( 34) = 0.4128752776225799D-03
        ws( 35) = 0.4482479517623965D-03
        ws( 36) = 0.4877799353420732D-03
        ws( 37) = 0.5321539678201388D-03
        ws( 38) = 0.5821917077765806D-03
        ws( 39) = 0.6388877716157482D-03
        ws( 40) = 0.7034534493409135D-03
        ws( 41) = 0.7773732096480126D-03
        ws( 42) = 0.8624782103024503D-03
        ws( 43) = 0.9610425520519369D-03
        ws( 44) = 0.1075910115556617D-02
        ws( 45) = 0.1210662714466765D-02
        ws( 46) = 0.1369844248494144D-02
        ws( 47) = 0.1559260824421675D-02
        ws( 48) = 0.1786383554234112D-02
        ws( 49) = 0.2060888369774295D-02
        ws( 50) = 0.2395372789767228D-02
        ws( 51) = 0.2806282888561948D-02
        ws( 52) = 0.3315032857626060D-02
        ws( 53) = 0.3949113169428543D-02
        ws( 54) = 0.4742429290407566D-02
        ws( 55) = 0.5732739417895558D-02
        ws( 56) = 0.6951560774063542D-02
        ws( 57) = 0.8400302261096526D-02
        ws( 58) = 0.1001414173726034D-01
        ws( 59) = 0.1164131620132308D-01
        ws( 60) = 0.1308357491020426D-01
        ws( 61) = 0.1419104751527564D-01
        ws( 62) = 0.1492536648405406D-01
        ws( 63) = 0.1534036954779876D-01
        ws( 64) = 0.1552498730536629D-01
        ws( 65) = 0.1556216080819479D-01
        ws( 66) = 0.1551420508769329D-01
        ws( 67) = 0.1542314770241990D-01
        ws( 68) = 0.1531571019101909D-01
        ws( 69) = 0.1520826685442503D-01
        ws( 70) = 0.1511027087785570D-01
        ws( 71) = 0.1502691637191610D-01
        ws( 72) = 0.1495565363725668D-01
        ws( 73) = 0.1492513974301463D-01
        ws( 74) = 0.1471511657085213D-01
        ws( 75) = 0.1212606167570201D-01
        endif
        if( idomain .eq.   18 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.0000000000000000D+00
        rk1r = 0.3455751918948772D+02
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  79
        err = 0.9203654159830738D-13
        xs(  1) = 0.1564707763761719D-05
        xs(  2) = 0.8247413567701850D-05
        xs(  3) = 0.2028267552815737D-04
        xs(  4) = 0.3769496989186659D-04
        xs(  5) = 0.6051673649879070D-04
        xs(  6) = 0.8879111815647625D-04
        xs(  7) = 0.1225729718874831D-03
        xs(  8) = 0.1619298704126813D-03
        xs(  9) = 0.2069432112846354D-03
        xs( 10) = 0.2577094424355568D-03
        xs( 11) = 0.3143414025370355D-03
        xs( 12) = 0.3769697776451226D-03
        xs( 13) = 0.4457446813788290D-03
        xs( 14) = 0.5208373721972706D-03
        xs( 15) = 0.6024421276288608D-03
        xs( 16) = 0.6907783014520187D-03
        xs( 17) = 0.7860925959177195D-03
        xs( 18) = 0.8886615873382715D-03
        xs( 19) = 0.9987945500106595D-03
        xs( 20) = 0.1116836630809697D-02
        xs( 21) = 0.1243172435227812D-02
        xs( 22) = 0.1378230095547477D-02
        xs( 23) = 0.1522485903655135D-02
        xs( 24) = 0.1676469605259743D-02
        xs( 25) = 0.1840770469582308D-02
        xs( 26) = 0.2016044269686188D-02
        xs( 27) = 0.2203021334450786D-02
        xs( 28) = 0.2402515864918590D-02
        xs( 29) = 0.2615436746842130D-02
        xs( 30) = 0.2842800139602144D-02
        xs( 31) = 0.3085744181670719D-02
        xs( 32) = 0.3345546227566017D-02
        xs( 33) = 0.3623643124816989D-02
        xs( 34) = 0.3921655157087807D-02
        xs( 35) = 0.4241414428187831D-02
        xs( 36) = 0.4584998650291175D-02
        xs( 37) = 0.4954771540331098D-02
        xs( 38) = 0.5353431337232964D-02
        xs( 39) = 0.5784069350859610D-02
        xs( 40) = 0.6250240970187343D-02
        xs( 41) = 0.6756052232496087D-02
        xs( 42) = 0.7306265940734257D-02
        xs( 43) = 0.7906432486052314D-02
        xs( 44) = 0.8563052088072428D-02
        xs( 45) = 0.9283777247385565D-02
        xs( 46) = 0.1007766700923066D-01
        xs( 47) = 0.1095550843944977D-01
        xs( 48) = 0.1193022590032678D-01
        xs( 49) = 0.1301740582891869D-01
        xs( 50) = 0.1423597452587243D-01
        xs( 51) = 0.1560908001135270D-01
        xs( 52) = 0.1716524770666799D-01
        xs( 53) = 0.1893990530706253D-01
        xs( 54) = 0.2097740647372826D-01
        xs( 55) = 0.2333372622608266D-01
        xs( 56) = 0.2608004731909031D-01
        xs( 57) = 0.2930747956273949D-01
        xs( 58) = 0.3313306196841213D-01
        xs( 59) = 0.3770672625725838D-01
        xs( 60) = 0.4321740380083111D-01
        xs( 61) = 0.4989280202545873D-01
        xs( 62) = 0.5798110788758831D-01
        xs( 63) = 0.6769914055629984D-01
        xs( 64) = 0.7914644147434011D-01
        xs( 65) = 0.9222799009320957D-01
        xs( 66) = 0.1066552159157625D+00
        xs( 67) = 0.1220393038017820D+00
        xs( 68) = 0.1380061182079233D+00
        xs( 69) = 0.1542635839643391D+00
        xs( 70) = 0.1706139894918171D+00
        xs( 71) = 0.1869375198669754D+00
        xs( 72) = 0.2031695390179414D+00
        xs( 73) = 0.2192814058710791D+00
        xs( 74) = 0.2352667248403034D+00
        xs( 75) = 0.2511312486402724D+00
        xs( 76) = 0.2668837330259575D+00
        xs( 77) = 0.2825337754814351D+00
        xs( 78) = 0.2979671486378254D+00
        xs( 79) = 0.3126131679223546D+00
        ws(  1) = 0.4015894074351071D-05
        ws(  2) = 0.9355188828140576D-05
        ws(  3) = 0.1471920224871650D-04
        ws(  4) = 0.2011076871773062D-04
        ws(  5) = 0.2553993934846633D-04
        ws(  6) = 0.3101795023770332D-04
        ws(  7) = 0.3655700086197349D-04
        ws(  8) = 0.4217034201436607D-04
        ws(  9) = 0.4787239204835111D-04
        ws( 10) = 0.5367885243845456D-04
        ws( 11) = 0.5960682246987201D-04
        ws( 12) = 0.6567491810885790D-04
        ws( 13) = 0.7190340125985341D-04
        ws( 14) = 0.7831432575510554D-04
        ws( 15) = 0.8493170629185666D-04
        ws( 16) = 0.9178171640992485D-04
        ws( 17) = 0.9889292163232485D-04
        ws( 18) = 0.1062965541591855D-03
        ws( 19) = 0.1140268360649396D-03
        ws( 20) = 0.1221213588411579D-03
        ws( 21) = 0.1306215283911070D-03
        ws( 22) = 0.1395730862624112D-03
        ws( 23) = 0.1490267200628764D-03
        ws( 24) = 0.1590387787253576D-03
        ws( 25) = 0.1696721116867560D-03
        ws( 26) = 0.1809970552767893D-03
        ws( 27) = 0.1930925948795401D-03
        ws( 28) = 0.2060477380036578D-03
        ws( 29) = 0.2199631416297579D-03
        ws( 30) = 0.2349530475543620D-03
        ws( 31) = 0.2511475925317838D-03
        ws( 32) = 0.2686955766238048D-03
        ws( 33) = 0.2877677943619355D-03
        ws( 34) = 0.3085610605175549D-03
        ws( 35) = 0.3313030973382060D-03
        ws( 36) = 0.3562584955735549D-03
        ws( 37) = 0.3837360208963738D-03
        ws( 38) = 0.4140976150510504D-03
        ws( 39) = 0.4477695435941061D-03
        ws( 40) = 0.4852562781135484D-03
        ws( 41) = 0.5271578823970939D-03
        ws( 42) = 0.5741919159246388D-03
        ws( 43) = 0.6272211976687258D-03
        ws( 44) = 0.6872892215397462D-03
        ws( 45) = 0.7556656282954311D-03
        ws( 46) = 0.8339049833497524D-03
        ws( 47) = 0.9239232790095010D-03
        ws( 48) = 0.1028098205320116D-02
        ws( 49) = 0.1149401501069630D-02
        ws( 50) = 0.1291574858397953D-02
        ws( 51) = 0.1459365239638048D-02
        ws( 52) = 0.1658841447848820D-02
        ws( 53) = 0.1897821634355619D-02
        ws( 54) = 0.2186450706714956D-02
        ws( 55) = 0.2537974415886182D-02
        ws( 56) = 0.2969752297500021D-02
        ws( 57) = 0.3504499155564980D-02
        ws( 58) = 0.4171540820822787D-02
        ws( 59) = 0.5007252139059875D-02
        ws( 60) = 0.6052315251732379D-02
        ws( 61) = 0.7340692661125951D-02
        ws( 62) = 0.8873590188502383D-02
        ws( 63) = 0.1058056493268921D-01
        ws( 64) = 0.1229823767806868D-01
        ws( 65) = 0.1381498805873289D-01
        ws( 66) = 0.1497255289187988D-01
        ws( 67) = 0.1573214703899733D-01
        ws( 68) = 0.1615267700274391D-01
        ws( 69) = 0.1632963214948726D-01
        ws( 70) = 0.1635160864384946D-01
        ws( 71) = 0.1628500046633771D-01
        ws( 72) = 0.1617447946148507D-01
        ws( 73) = 0.1604825271064597D-01
        ws( 74) = 0.1592336131849593D-01
        ws( 75) = 0.1580968057305371D-01
        ws( 76) = 0.1569638652740006D-01
        ws( 77) = 0.1558810040721757D-01
        ws( 78) = 0.1541361785055246D-01
        ws( 79) = 0.1225593226397916D-01
        endif
        if( idomain .eq.   19 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.0000000000000000D+00
        rk1r = 0.3769911184307752D+02
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  83
        err = 0.9750512450769917D-13
        xs(  1) = 0.1348640605773503D-05
        xs(  2) = 0.7108076513529348D-05
        xs(  3) = 0.1747864358683248D-04
        xs(  4) = 0.3247808732593837D-04
        xs(  5) = 0.5212942141205566D-04
        xs(  6) = 0.7646317658512874D-04
        xs(  7) = 0.1055181302455490D-03
        xs(  8) = 0.1393420000839495D-03
        xs(  9) = 0.1779922042054610D-03
        xs( 10) = 0.2215366952363194D-03
        xs( 11) = 0.2700548654048193D-03
        xs( 12) = 0.3236385205927275D-03
        xs( 13) = 0.3823929246869131D-03
        xs( 14) = 0.4464379194001591D-03
        xs( 15) = 0.5159091285649460D-03
        xs( 16) = 0.5909592595806943D-03
        xs( 17) = 0.6717595182055897D-03
        xs( 18) = 0.7585011562994688D-03
        xs( 19) = 0.8513971755613055D-03
        xs( 20) = 0.9506842139088783D-03
        xs( 21) = 0.1056624645082735D-02
        xs( 22) = 0.1169508926498817D-02
        xs( 23) = 0.1289658235516386D-02
        xs( 24) = 0.1417427440341985D-02
        xs( 25) = 0.1553208458994851D-02
        xs( 26) = 0.1697434068392417D-02
        xs( 27) = 0.1850582236005012D-02
        xs( 28) = 0.2013181059075581D-02
        xs( 29) = 0.2185814411592740D-02
        xs( 30) = 0.2369128417650345D-02
        xs( 31) = 0.2563838892284406D-02
        xs( 32) = 0.2770739918303549D-02
        xs( 33) = 0.2990713761233955D-02
        xs( 34) = 0.3224742365822237D-02
        xs( 35) = 0.3473920728549446D-02
        xs( 36) = 0.3739472503833931D-02
        xs( 37) = 0.4022768280305541D-02
        xs( 38) = 0.4325347061952127D-02
        xs( 39) = 0.4648941612598702D-02
        xs( 40) = 0.4995508478317477D-02
        xs( 41) = 0.5367263700546306D-02
        xs( 42) = 0.5766725485574203D-02
        xs( 43) = 0.6196765420551348D-02
        xs( 44) = 0.6660670244999772D-02
        xs( 45) = 0.7162216730623594D-02
        xs( 46) = 0.7705762932790256D-02
        xs( 47) = 0.8296360011555920D-02
        xs( 48) = 0.8939890057416473D-02
        xs( 49) = 0.9643237006668609D-02
        xs( 50) = 0.1041449994667371D-01
        xs( 51) = 0.1126326110841703D-01
        xs( 52) = 0.1220092492881277D-01
        xs( 53) = 0.1324115017462486D-01
        xs( 54) = 0.1440040487759248D-01
        xs( 55) = 0.1569868462718169D-01
        xs( 56) = 0.1716044986407724D-01
        xs( 57) = 0.1881585895178938D-01
        xs( 58) = 0.2070240322273804D-01
        xs( 59) = 0.2286709031366265D-01
        xs( 60) = 0.2536937383486689D-01
        xs( 61) = 0.2828508418619261D-01
        xs( 62) = 0.3171164395095306D-01
        xs( 63) = 0.3577473635761333D-01
        xs( 64) = 0.4063600361109652D-01
        xs( 65) = 0.4649950952573507D-01
        xs( 66) = 0.5361039890128797D-01
        xs( 67) = 0.6223239797749995D-01
        xs( 68) = 0.7258822851203921D-01
        xs( 69) = 0.8476635280675753D-01
        xs( 70) = 0.9864445312941178D-01
        xs( 71) = 0.1139012149754293D+00
        xs( 72) = 0.1301212241077797D+00
        xs( 73) = 0.1469140817270580D+00
        xs( 74) = 0.1639799566470406D+00
        xs( 75) = 0.1811186891267045D+00
        xs( 76) = 0.1982109724520683D+00
        xs( 77) = 0.2151942835768277D+00
        xs( 78) = 0.2320429409455853D+00
        xs( 79) = 0.2487534436158117D+00
        xs( 80) = 0.2653331361546339D+00
        xs( 81) = 0.2817860348209950D+00
        xs( 82) = 0.2980256930197656D+00
        xs( 83) = 0.3135305532821368D+00
        ws(  1) = 0.3461294393585718D-05
        ws(  2) = 0.8062160541743997D-05
        ws(  3) = 0.1268174960887468D-04
        ws(  4) = 0.1732095432853426D-04
        ws(  5) = 0.2198679121331888D-04
        ws(  6) = 0.2668717058338962D-04
        ws(  7) = 0.3143067701973627D-04
        ws(  8) = 0.3622661842958172D-04
        ws(  9) = 0.4108510016105032D-04
        ws( 10) = 0.4601709770755407D-04
        ws( 11) = 0.5103452621620701D-04
        ws( 12) = 0.5615030949858274D-04
        ws( 13) = 0.6137845226728645D-04
        ws( 14) = 0.6673411947908932D-04
        ws( 15) = 0.7223372655053318D-04
        ws( 16) = 0.7789504403307926D-04
        ws( 17) = 0.8373732019437494D-04
        ws( 18) = 0.8978142490950001D-04
        ws( 19) = 0.9605001835685192D-04
        ws( 20) = 0.1025677482594487D-03
        ws( 21) = 0.1093614798293855D-03
        ws( 22) = 0.1164605631742288D-03
        ws( 23) = 0.1238971437263091D-03
        ws( 24) = 0.1317065222816520D-03
        ws( 25) = 0.1399275725174029D-03
        ws( 26) = 0.1486032254397205D-03
        ws( 27) = 0.1577810321572900D-03
        ws( 28) = 0.1675138187599359D-03
        ws( 29) = 0.1778604500082080D-03
        ws( 30) = 0.1888867221440384D-03
        ws( 31) = 0.2006664095855914D-03
        ws( 32) = 0.2132824957949632D-03
        ws( 33) = 0.2268286254939213D-03
        ws( 34) = 0.2414108240240502D-03
        ws( 35) = 0.2571495404922895D-03
        ws( 36) = 0.2741820850509269D-03
        ws( 37) = 0.2926655480719915D-03
        ws( 38) = 0.3127803112084953D-03
        ws( 39) = 0.3347342888635028D-03
        ws( 40) = 0.3587680754048272D-03
        ws( 41) = 0.3851612212352829D-03
        ws( 42) = 0.4142399231667056D-03
        ws( 43) = 0.4463864963936896D-03
        ws( 44) = 0.4820511034727606D-03
        ws( 45) = 0.5217663594326986D-03
        ws( 46) = 0.5661656244628322D-03
        ws( 47) = 0.6160060547348510D-03
        ws( 48) = 0.6721978334715093D-03
        ws( 49) = 0.7358414847979029D-03
        ws( 50) = 0.8082758341993099D-03
        ws( 51) = 0.8911400963606207D-03
        ws( 52) = 0.9864548515071249D-03
        ws( 53) = 0.1096728470656179D-02
        ws( 54) = 0.1225098091506728D-02
        ws( 55) = 0.1375517845133402D-02
        ws( 56) = 0.1553012115174588D-02
        ws( 57) = 0.1764018694774281D-02
        ws( 58) = 0.2016856238454675D-02
        ws( 59) = 0.2322362082759358D-02
        ws( 60) = 0.2694756994407499D-02
        ws( 61) = 0.3152789105568604D-02
        ws( 62) = 0.3721144927703193D-02
        ws( 63) = 0.4431858311553255D-02
        ws( 64) = 0.5324676845190314D-02
        ws( 65) = 0.6443520843474002D-02
        ws( 66) = 0.7823196967201301D-02
        ws( 67) = 0.9459601785906040D-02
        ws( 68) = 0.1126829860521452D-01
        ws( 69) = 0.1306739219140418D-01
        ws( 70) = 0.1463326227983059D-01
        ws( 71) = 0.1580885570531671D-01
        ws( 72) = 0.1656502005964371D-01
        ws( 73) = 0.1697065560804156D-01
        ws( 74) = 0.1712810271994384D-01
        ws( 75) = 0.1712989896774174D-01
        ws( 76) = 0.1704457625492199D-01
        ws( 77) = 0.1691792974522344D-01
        ws( 78) = 0.1677863245988527D-01
        ws( 79) = 0.1664425111855772D-01
        ws( 80) = 0.1651711737842748D-01
        ws( 81) = 0.1642373963303000D-01
        ws( 82) = 0.1613801291757557D-01
        ws( 83) = 0.1365846656449740D-01
        endif
        if( idomain .eq.   20 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.0000000000000000D+00
        rk1r = 0.4084070449666731D+02
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  87
        err = 0.9304863613016547D-13
        xs(  1) = 0.1177172543196020D-05
        xs(  2) = 0.6204004390246700D-05
        xs(  3) = 0.1525402985435363D-04
        xs(  4) = 0.2834031357572975D-04
        xs(  5) = 0.4547938171792112D-04
        xs(  6) = 0.6669312180468638D-04
        xs(  7) = 0.9200933878510822D-04
        xs(  8) = 0.1214622629200772D-03
        xs(  9) = 0.1550930994383859D-03
        xs( 10) = 0.1929506264732006D-03
        xs( 11) = 0.2350918379613390D-03
        xs( 12) = 0.2815826283167904D-03
        xs( 13) = 0.3324985178149596D-03
        xs( 14) = 0.3879254201788800D-03
        xs( 15) = 0.4479604564055464D-03
        xs( 16) = 0.5127128212654365D-03
        xs( 17) = 0.5823047111200837D-03
        xs( 18) = 0.6568723237578523D-03
        xs( 19) = 0.7365669429062215D-03
        xs( 20) = 0.8215561220174263D-03
        xs( 21) = 0.9120249839305570D-03
        xs( 22) = 0.1008177655179856D-02
        xs( 23) = 0.1110238856141911D-02
        xs( 24) = 0.1218455670994039D-02
        xs( 25) = 0.1333099524699386D-02
        xs( 26) = 0.1454468398058277D-02
        xs( 27) = 0.1582889316403003D-02
        xs( 28) = 0.1718721152918369D-02
        xs( 29) = 0.1862357794025435D-02
        xs( 30) = 0.2014231721991223D-02
        xs( 31) = 0.2174818079190800D-02
        xs( 32) = 0.2344639289580383D-02
        xs( 33) = 0.2524270326348490D-02
        xs( 34) = 0.2714344730906741D-02
        xs( 35) = 0.2915561507996587D-02
        xs( 36) = 0.3128693045523107D-02
        xs( 37) = 0.3354594236790120D-02
        xs( 38) = 0.3594213018376691D-02
        xs( 39) = 0.3848602580592855D-02
        xs( 40) = 0.4118935561357734D-02
        xs( 41) = 0.4406520601126944D-02
        xs( 42) = 0.4712821719610208D-02
        xs( 43) = 0.5039481078936709D-02
        xs( 44) = 0.5388345828490980D-02
        xs( 45) = 0.5761499891520517D-02
        xs( 46) = 0.6161301762929210D-02
        xs( 47) = 0.6590429654851374D-02
        xs( 48) = 0.7051935669613372D-02
        xs( 49) = 0.7549311122669514D-02
        xs( 50) = 0.8086565713751277D-02
        xs( 51) = 0.8668323997358214D-02
        xs( 52) = 0.9299943595070942D-02
        xs( 53) = 0.9987660906647941D-02
        xs( 54) = 0.1073877183253910D-01
        xs( 55) = 0.1156185738310887D-01
        xs( 56) = 0.1246706725413936D-01
        xs( 57) = 0.1346647882844789D-01
        xs( 58) = 0.1457455509921536D-01
        xs( 59) = 0.1580873339195663D-01
        xs( 60) = 0.1719018848297867D-01
        xs( 61) = 0.1874483019318158D-01
        xs( 62) = 0.2050461876284649D-01
        xs( 63) = 0.2250931390363548D-01
        xs( 64) = 0.2480881828328681D-01
        xs( 65) = 0.2746633467021367D-01
        xs( 66) = 0.3056262088572964D-01
        xs( 67) = 0.3420165921965314D-01
        xs( 68) = 0.3851791871158798D-01
        xs( 69) = 0.4368468287595872D-01
        xs( 70) = 0.4992074814161911D-01
        xs( 71) = 0.5748788829501138D-01
        xs( 72) = 0.6666424438476491D-01
        xs( 73) = 0.7767743042224204D-01
        xs( 74) = 0.9060448335774289D-01
        xs( 75) = 0.1052960296293174D+00
        xs( 76) = 0.1213982120301891D+00
        xs( 77) = 0.1384690398057026D+00
        xs( 78) = 0.1561020183098225D+00
        xs( 79) = 0.1739900056297501D+00
        xs( 80) = 0.1919310336439604D+00
        xs( 81) = 0.2098070370488600D+00
        xs( 82) = 0.2275583701806497D+00
        xs( 83) = 0.2451626565184574D+00
        xs( 84) = 0.2626200820305554D+00
        xs( 85) = 0.2799301158056639D+00
        xs( 86) = 0.2970310789667802D+00
        xs( 87) = 0.3133907955591056D+00
        ws(  1) = 0.3021181681614287D-05
        ws(  2) = 0.7036260824441129D-05
        ws(  3) = 0.1106580979234207D-04
        ws(  4) = 0.1510949634660170D-04
        ws(  5) = 0.1917227952936782D-04
        ws(  6) = 0.2325982643573775D-04
        ws(  7) = 0.2737830340990222D-04
        ws(  8) = 0.3153440242230931D-04
        ws(  9) = 0.3573538958003755D-04
        ws( 10) = 0.3998915206518696D-04
        ws( 11) = 0.4430424122725421D-04
        ws( 12) = 0.4868991341279282D-04
        ws( 13) = 0.5315617098900639D-04
        ws( 14) = 0.5771380615065626D-04
        ws( 15) = 0.6237444999298008D-04
        ws( 16) = 0.6715062915327339D-04
        ws( 17) = 0.7205583214693778D-04
        ws( 18) = 0.7710458739288612D-04
        ws( 19) = 0.8231255486277811D-04
        ws( 20) = 0.8769663331132745D-04
        ws( 21) = 0.9327508515841453D-04
        ws( 22) = 0.9906768130154290D-04
        ws( 23) = 0.1050958684426564D-03
        ws( 24) = 0.1113829619223007D-03
        ws( 25) = 0.1179543675740326D-03
        ws( 26) = 0.1248378367562335D-03
        ws( 27) = 0.1320637595050254D-03
        ws( 28) = 0.1396655017050490D-03
        ws( 29) = 0.1476797933282250D-03
        ws( 30) = 0.1561471761853729D-03
        ws( 31) = 0.1651125213280051D-03
        ws( 32) = 0.1746256282948272D-03
        ws( 33) = 0.1847419209099918D-03
        ws( 34) = 0.1955232574200040D-03
        ws( 35) = 0.2070388765444705D-03
        ws( 36) = 0.2193665057023474D-03
        ws( 37) = 0.2325936634889793D-03
        ws( 38) = 0.2468191957305678D-03
        ws( 39) = 0.2621550935283425D-03
        ws( 40) = 0.2787286531326977D-03
        ws( 41) = 0.2966850519464447D-03
        ws( 42) = 0.3161904333248037D-03
        ws( 43) = 0.3374356163057460D-03
        ws( 44) = 0.3606405765335300D-03
        ws( 45) = 0.3860598835432918D-03
        ws( 46) = 0.4139893300824205D-03
        ws( 47) = 0.4447740551225894D-03
        ws( 48) = 0.4788185489153026D-03
        ws( 49) = 0.5165990430954959D-03
        ws( 50) = 0.5586789414814230D-03
        ws( 51) = 0.6057281517954224D-03
        ws( 52) = 0.6585474547335317D-03
        ws( 53) = 0.7180994223604503D-03
        ws( 54) = 0.7855479124863941D-03
        ws( 55) = 0.8623088762891719D-03
        ws( 56) = 0.9501162054552568D-03
        ws( 57) = 0.1051107731948940D-02
        ws( 58) = 0.1167938452282187D-02
        ws( 59) = 0.1303930830688521D-02
        ws( 60) = 0.1463276002941980D-02
        ws( 61) = 0.1651305350223347D-02
        ws( 62) = 0.1874859867304508D-02
        ws( 63) = 0.2142795590001500D-02
        ws( 64) = 0.2466676853122415D-02
        ws( 65) = 0.2861721679972485D-02
        ws( 66) = 0.3348059369303233D-02
        ws( 67) = 0.3952284734308584D-02
        ws( 68) = 0.4708986530050389D-02
        ws( 69) = 0.5661013652477022D-02
        ws( 70) = 0.6855140603557735D-02
        ws( 71) = 0.8326611543414224D-02
        ws( 72) = 0.1006585056800204D-01
        ws( 73) = 0.1197485373328599D-01
        ws( 74) = 0.1385399059107559D-01
        ws( 75) = 0.1546791628945272D-01
        ws( 76) = 0.1666054389178415D-01
        ws( 77) = 0.1741232856583515D-01
        ws( 78) = 0.1780243045832712D-01
        ws( 79) = 0.1794029313461325D-01
        ws( 80) = 0.1792253605329216D-01
        ws( 81) = 0.1781987621123573D-01
        ws( 82) = 0.1767926346401970D-01
        ws( 83) = 0.1752890441860705D-01
        ws( 84) = 0.1738642991439344D-01
        ws( 85) = 0.1725986023716273D-01
        ws( 86) = 0.1707536288417947D-01
        ws( 87) = 0.1433258317394145D-01
        endif
        if( idomain .eq.   21 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.0000000000000000D+00
        rk1r = 0.4398229715025710D+02
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  92
        err = 0.4720285004380352D-13
        xs(  1) = 0.1030460600151141D-05
        xs(  2) = 0.5430572668814897D-05
        xs(  3) = 0.1335137681967832D-04
        xs(  4) = 0.2480272599635090D-04
        xs(  5) = 0.3979674931894426D-04
        xs(  6) = 0.5834946274494926D-04
        xs(  7) = 0.8048119032958098D-04
        xs(  8) = 0.1062169318879181D-03
        xs(  9) = 0.1355867571660588D-03
        xs( 10) = 0.1686262330930110D-03
        xs( 11) = 0.2053768814673880D-03
        xs( 12) = 0.2458866638885120D-03
        xs( 13) = 0.2902104919563060D-03
        xs( 14) = 0.3384107623994948D-03
        xs( 15) = 0.3905579184737446D-03
        xs( 16) = 0.4467310405670123D-03
        xs( 17) = 0.5070184704123911D-03
        xs( 18) = 0.5715184746367409D-03
        xs( 19) = 0.6403399545893243D-03
        xs( 20) = 0.7136032105365043D-03
        xs( 21) = 0.7914407694222627D-03
        xs( 22) = 0.8739982865299082D-03
        xs( 23) = 0.9614355325892726D-03
        xs( 24) = 0.1053927479207964D-02
        xs( 25) = 0.1151665497017860D-02
        xs( 26) = 0.1254858682673623D-02
        xs( 27) = 0.1363735332877093D-02
        xs( 28) = 0.1478544585994064D-02
        xs( 29) = 0.1599558254650719D-02
        xs( 30) = 0.1727072876029964D-02
        xs( 31) = 0.1861412010531987D-02
        xs( 32) = 0.2002928824137442D-02
        xs( 33) = 0.2152008995358724D-02
        xs( 34) = 0.2309073994258649D-02
        xs( 35) = 0.2474584788870471D-02
        xs( 36) = 0.2649046043729165D-02
        xs( 37) = 0.2833010886445411D-02
        xs( 38) = 0.3027086331720403D-02
        xs( 39) = 0.3231939468408962D-02
        xs( 40) = 0.3448304534812084D-02
        xs( 41) = 0.3676991031096315D-02
        xs( 42) = 0.3918893046574697D-02
        xs( 43) = 0.4175000014781390D-02
        xs( 44) = 0.4446409152398397D-02
        xs( 45) = 0.4734339891151717D-02
        xs( 46) = 0.5040150677347943D-02
        xs( 47) = 0.5365358595074285D-02
        xs( 48) = 0.5711662370503100D-02
        xs( 49) = 0.6080969441780708D-02
        xs( 50) = 0.6475427938903527D-02
        xs( 51) = 0.6897464620340868D-02
        xs( 52) = 0.7349830070591113D-02
        xs( 53) = 0.7835652792175548D-02
        xs( 54) = 0.8358504249315475D-02
        xs( 55) = 0.8922477469085284D-02
        xs( 56) = 0.9532282520454547D-02
        xs( 57) = 0.1019336312874876D-01
        xs( 58) = 0.1091203992042299D-01
        xs( 59) = 0.1169568743856977D-01
        xs( 60) = 0.1255295427428737D-01
        xs( 61) = 0.1349403863571695D-01
        xs( 62) = 0.1453103572749363D-01
        xs( 63) = 0.1567837887070016D-01
        xs( 64) = 0.1695340397798857D-01
        xs( 65) = 0.1837707770443432D-01
        xs( 66) = 0.1997494460283438D-01
        xs( 67) = 0.2177836972680631D-01
        xs( 68) = 0.2382618276483759D-01
        xs( 69) = 0.2616687077940341D-01
        xs( 70) = 0.2886152082681138D-01
        xs( 71) = 0.3198777671911343D-01
        xs( 72) = 0.3564511773004961D-01
        xs( 73) = 0.3996168778584788D-01
        xs( 74) = 0.4510239541364485D-01
        xs( 75) = 0.5127632722889861D-01
        xs( 76) = 0.5873743092231456D-01
        xs( 77) = 0.6776562928489482D-01
        xs( 78) = 0.7861169708965458D-01
        xs( 79) = 0.9140440108504468D-01
        xs( 80) = 0.1060621214412828D+00
        xs( 81) = 0.1222827531306897D+00
        xs( 82) = 0.1396362957068466D+00
        xs( 83) = 0.1576930354994149D+00
        xs( 84) = 0.1761076976386356D+00
        xs( 85) = 0.1946416979041572D+00
        xs( 86) = 0.2131488174963507D+00
        xs( 87) = 0.2315504686585608D+00
        xs( 88) = 0.2498133056678376D+00
        xs( 89) = 0.2679307596571010D+00
        xs( 90) = 0.2859102994761078D+00
        xs( 91) = 0.3037082763807385D+00
        xs( 92) = 0.3207793089443348D+00
        ws(  1) = 0.2644624176238514D-05
        ws(  2) = 0.6158763676096578D-05
        ws(  3) = 0.9684349321101443D-05
        ws(  4) = 0.1322035771777295D-04
        ws(  5) = 0.1677035205846130D-04
        ws(  6) = 0.2033845609765369D-04
        ws(  7) = 0.2392915914202661D-04
        ws(  8) = 0.2754732846978957D-04
        ws(  9) = 0.3119824227179856D-04
        ws( 10) = 0.3488762179486220D-04
        ws( 11) = 0.3862166004963180D-04
        ws( 12) = 0.4240704781036781D-04
        ws( 13) = 0.4625099843041999D-04
        ws( 14) = 0.5016127316567790D-04
        ws( 15) = 0.5414620865761874D-04
        ws( 16) = 0.5821474810851838D-04
        ws( 17) = 0.6237647754216959D-04
        ws( 18) = 0.6664166841672532D-04
        ws( 19) = 0.7102132776140529D-04
        ws( 20) = 0.7552725695669280D-04
        ws( 21) = 0.8017212027418128D-04
        ws( 22) = 0.8496952433973406D-04
        ws( 23) = 0.8993410978279423D-04
        ws( 24) = 0.9508165648638903D-04
        ws( 25) = 0.1004292040575715D-03
        ws( 26) = 0.1059951893994651D-03
        ws( 27) = 0.1117996035885458D-03
        ws( 28) = 0.1178641706508760D-03
        ws( 29) = 0.1242125512990359D-03
        ws( 30) = 0.1308705752503666D-03
        ws( 31) = 0.1378665064138159D-03
        ws( 32) = 0.1452313460299976D-03
        ws( 33) = 0.1529991798027128D-03
        ws( 34) = 0.1612075762070642D-03
        ws( 35) = 0.1698980445412811D-03
        ws( 36) = 0.1791165629610955D-03
        ws( 37) = 0.1889141887669627D-03
        ws( 38) = 0.1993477656897867D-03
        ws( 39) = 0.2104807459511848D-03
        ws( 40) = 0.2223841485986700D-03
        ws( 41) = 0.2351376802098144D-03
        ws( 42) = 0.2488310497516230D-03
        ws( 43) = 0.2635655164630307D-03
        ws( 44) = 0.2794557184776072D-03
        ws( 45) = 0.2966318410106582D-03
        ws( 46) = 0.3152421969414132D-03
        ws( 47) = 0.3354563103690509D-03
        ws( 48) = 0.3574686163190872D-03
        ws( 49) = 0.3815029187022442D-03
        ws( 50) = 0.4078177858480512D-03
        ws( 51) = 0.4367131110925872D-03
        ws( 52) = 0.4685381285729268D-03
        ws( 53) = 0.5037012564325737D-03
        ws( 54) = 0.5426822477289159D-03
        ws( 55) = 0.5860472726554443D-03
        ws( 56) = 0.6344677470078751D-03
        ws( 57) = 0.6887439790148376D-03
        ws( 58) = 0.7498350549133913D-03
        ws( 59) = 0.8188968588107543D-03
        ws( 60) = 0.8973307757134969D-03
        ws( 61) = 0.9868465319251751D-03
        ws( 62) = 0.1089543891555460D-02
        ws( 63) = 0.1208019707144280D-02
        ws( 64) = 0.1345509342690010D-02
        ws( 65) = 0.1506075073662800D-02
        ws( 66) = 0.1694859174455484D-02
        ws( 67) = 0.1918426617007957D-02
        ws( 68) = 0.2185232224971448D-02
        ws( 69) = 0.2506259802993101D-02
        ws( 70) = 0.2895893632345160D-02
        ws( 71) = 0.3373083958214082D-02
        ws( 72) = 0.3962816689940567D-02
        ws( 73) = 0.4697671679519203D-02
        ws( 74) = 0.5618549227849747D-02
        ws( 75) = 0.6771906818541936D-02
        ws( 76) = 0.8197853972515497D-02
        ws( 77) = 0.9901986116165594D-02
        ws( 78) = 0.1181330197376429D-01
        ws( 79) = 0.1375875781894926D-01
        ws( 80) = 0.1550458134067069D-01
        ws( 81) = 0.1686265171555415D-01
        ws( 82) = 0.1777138654756953D-01
        ws( 83) = 0.1828425699384069D-01
        ws( 84) = 0.1850560793425866D-01
        ws( 85) = 0.1853846112413537D-01
        ws( 86) = 0.1846305960540273D-01
        ws( 87) = 0.1833494129923483D-01
        ws( 88) = 0.1818979875020017D-01
        ws( 89) = 0.1804566606164037D-01
        ws( 90) = 0.1789627914344812D-01
        ws( 91) = 0.1773371026420781D-01
        ws( 92) = 0.1536457285801083D-01
        endif
        if( idomain .eq.   22 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.0000000000000000D+00
        rk1r = 0.4712388980384689D+02
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  96
        err = 0.5572185518794889D-13
        xs(  1) = 0.9160875312924165D-06
        xs(  2) = 0.4827650133243509D-05
        xs(  3) = 0.1186829597552994D-04
        xs(  4) = 0.2204556794257122D-04
        xs(  5) = 0.3536846454699793D-04
        xs(  6) = 0.5184884310967587D-04
        xs(  7) = 0.7150175801844943D-04
        xs(  8) = 0.9434574454707125D-04
        xs(  9) = 0.1204031200602171D-03
        xs( 10) = 0.1497003088392638D-03
        xs( 11) = 0.1822681882907447D-03
        xs( 12) = 0.2181424535078764D-03
        xs( 13) = 0.2573639979243663D-03
        xs( 14) = 0.2999793089554378D-03
        xs( 15) = 0.3460408787395274D-03
        xs( 16) = 0.3956076312565940D-03
        xs( 17) = 0.4487453681586201D-03
        xs( 18) = 0.5055272365927880D-03
        xs( 19) = 0.5660342231365770D-03
        xs( 20) = 0.6303556787175752D-03
        xs( 21) = 0.6985898800868189D-03
        xs( 22) = 0.7708446340840571D-03
        xs( 23) = 0.8472379316085526D-03
        xs( 24) = 0.9278986589215516D-03
        xs( 25) = 0.1012967374687704D-02
        xs( 26) = 0.1102597162043170D-02
        xs( 27) = 0.1196954565988762D-02
        xs( 28) = 0.1296220627579532D-02
        xs( 29) = 0.1400592027751945D-02
        xs( 30) = 0.1510282355234316D-02
        xs( 31) = 0.1625523514868691D-02
        xs( 32) = 0.1746567294882951D-02
        xs( 33) = 0.1873687114249748D-02
        xs( 34) = 0.2007179974324114D-02
        xs( 35) = 0.2147368642548705D-02
        xs( 36) = 0.2294604100256598D-02
        xs( 37) = 0.2449268291609959D-02
        xs( 38) = 0.2611777216639468D-02
        xs( 39) = 0.2782584418377646D-02
        xs( 40) = 0.2962184922435609D-02
        xs( 41) = 0.3151119697334244D-02
        xs( 42) = 0.3349980715810453D-02
        xs( 43) = 0.3559416711601681D-02
        xs( 44) = 0.3780139743395671D-02
        xs( 45) = 0.4012932698377083D-02
        xs( 46) = 0.4258657892935064D-02
        xs( 47) = 0.4518266958656316D-02
        xs( 48) = 0.4792812239034592D-02
        xs( 49) = 0.5083459968048483D-02
        xs( 50) = 0.5391505558030727D-02
        xs( 51) = 0.5718391393806003D-02
        xs( 52) = 0.6065727616437291D-02
        xs( 53) = 0.6435316487659322D-02
        xs( 54) = 0.6829181061139938D-02
        xs( 55) = 0.7249599056895079D-02
        xs( 56) = 0.7699143050764327D-02
        xs( 57) = 0.8180728365468666D-02
        xs( 58) = 0.8697670401622106D-02
        xs( 59) = 0.9253753600629279D-02
        xs( 60) = 0.9853314819827784D-02
        xs( 61) = 0.1050134466875490D-01
        xs( 62) = 0.1120361136626912D-01
        xs( 63) = 0.1196681301774004D-01
        xs( 64) = 0.1279876600039320D-01
        xs( 65) = 0.1370863955365759D-01
        xs( 66) = 0.1470724994286456D-01
        xs( 67) = 0.1580743204811288D-01
        xs( 68) = 0.1702451243164830D-01
        xs( 69) = 0.1837691659569015D-01
        xs( 70) = 0.1988695534025734D-01
        xs( 71) = 0.2158185244721989D-01
        xs( 72) = 0.2349510061871670D-01
        xs( 73) = 0.2566826776190314D-01
        xs( 74) = 0.2815342492091258D-01
        xs( 75) = 0.3101643241793789D-01
        xs( 76) = 0.3434139445354740D-01
        xs( 77) = 0.3823663149864665D-01
        xs( 78) = 0.4284237504169462D-01
        xs( 79) = 0.4833965195629348D-01
        xs( 80) = 0.5495761909681396D-01
        xs( 81) = 0.6297172673527716D-01
        xs( 82) = 0.7267798983838220D-01
        xs( 83) = 0.8432692814286628D-01
        xs( 84) = 0.9802169390221487D-01
        xs( 85) = 0.1136330845214324D+00
        xs( 86) = 0.1308077398358642D+00
        xs( 87) = 0.1490799111815188D+00
        xs( 88) = 0.1680052752333212D+00
        xs( 89) = 0.1872390334830326D+00
        xs( 90) = 0.2065500260135752D+00
        xs( 91) = 0.2258011263219577D+00
        xs( 92) = 0.2449218879486688D+00
        xs( 93) = 0.2638845009918718D+00
        xs( 94) = 0.2826758360654590D+00
        xs( 95) = 0.3012663822432129D+00
        xs( 96) = 0.3191178271816916D+00
        ws(  1) = 0.2351072041459101D-05
        ws(  2) = 0.5474754439774115D-05
        ws(  3) = 0.8607672528809527D-05
        ws(  4) = 0.1174836022787104D-04
        ws(  5) = 0.1489940429943013D-04
        ws(  6) = 0.1806385724110355D-04
        ws(  7) = 0.2124505677324659D-04
        ws(  8) = 0.2444663042387823D-04
        ws(  9) = 0.2767251887152379D-04
        ws( 10) = 0.3092699883946786D-04
        ws( 11) = 0.3421470289882043D-04
        ws( 12) = 0.3754063651400805D-04
        ws( 13) = 0.4091019337889556D-04
        ws( 14) = 0.4432917025995643D-04
        ws( 15) = 0.4780378254889440D-04
        ws( 16) = 0.5134068164002446D-04
        ws( 17) = 0.5494697513459874D-04
        ws( 18) = 0.5863025076125687D-04
        ws( 19) = 0.6239860480454718D-04
        ws( 20) = 0.6626067576131306D-04
        ws( 21) = 0.7022568390241696D-04
        ws( 22) = 0.7430347740687401D-04
        ws( 23) = 0.7850458575702809D-04
        ws( 24) = 0.8284028113639951D-04
        ws( 25) = 0.8732264865595039D-04
        ws( 26) = 0.9196466634910318D-04
        ws( 27) = 0.9678029602175327D-04
        ws( 28) = 0.1017845862227718D-03
        ws( 29) = 0.1069937888153958D-03
        ws( 30) = 0.1124254908852959D-03
        ws( 31) = 0.1180987640228385D-03
        ws( 32) = 0.1240343333730735D-03
        ws( 33) = 0.1302547692672305D-03
        ws( 34) = 0.1367847047463888D-03
        ws( 35) = 0.1436510828778591D-03
        ws( 36) = 0.1508834384661381D-03
        ws( 37) = 0.1585142195984365D-03
        ws( 38) = 0.1665791554682657D-03
        ws( 39) = 0.1751176781278239D-03
        ws( 40) = 0.1841734072770102D-03
        ws( 41) = 0.1937947089611896D-03
        ws( 42) = 0.2040353411952275D-03
        ws( 43) = 0.2149552021490966D-03
        ws( 44) = 0.2266211997364616D-03
        ws( 45) = 0.2391082653914413D-03
        ws( 46) = 0.2525005396852639D-03
        ws( 47) = 0.2668927634709367D-03
        ws( 48) = 0.2823919157561448D-03
        ws( 49) = 0.2991191489005584D-03
        ws( 50) = 0.3172120835355595D-03
        ws( 51) = 0.3368275405000713D-03
        ws( 52) = 0.3581448059802737D-03
        ws( 53) = 0.3813695501258064D-03
        ws( 54) = 0.4067385502845220D-03
        ws( 55) = 0.4345254097806357D-03
        ws( 56) = 0.4650475147273753D-03
        ws( 57) = 0.4986745386183113D-03
        ws( 58) = 0.5358388926922179D-03
        ws( 59) = 0.5770486366691270D-03
        ws( 60) = 0.6229035195696342D-03
        ws( 61) = 0.6741150282052334D-03
        ws( 62) = 0.7315316016676144D-03
        ws( 63) = 0.7961705523321055D-03
        ws( 64) = 0.8692587586562733D-03
        ws( 65) = 0.9522849219323463D-03
        ws( 66) = 0.1047067195224662D-02
        ws( 67) = 0.1155841426295457D-02
        ws( 68) = 0.1281377297137141D-02
        ws( 69) = 0.1427132572424191D-02
        ws( 70) = 0.1597459899787669D-02
        ws( 71) = 0.1797886727410529D-02
        ws( 72) = 0.2035497692481855D-02
        ws( 73) = 0.2319461078221992D-02
        ws( 74) = 0.2661756604249399D-02
        ws( 75) = 0.3078176903358436D-02
        ws( 76) = 0.3589671604339928D-02
        ws( 77) = 0.4224020922323679D-02
        ws( 78) = 0.5017498289882650D-02
        ws( 79) = 0.6015242813391692D-02
        ws( 80) = 0.7266980320614463D-02
        ws( 81) = 0.8811666631995537D-02
        ws( 82) = 0.1064444154474240D-01
        ws( 83) = 0.1267227438013522D-01
        ws( 84) = 0.1469563096912872D-01
        ws( 85) = 0.1646614225994578D-01
        ws( 86) = 0.1780309731120109D-01
        ws( 87) = 0.1866589328389610D-01
        ws( 88) = 0.1912722450998467D-01
        ws( 89) = 0.1930215513968317D-01
        ws( 90) = 0.1929745180229952D-01
        ws( 91) = 0.1919345578288315D-01
        ws( 92) = 0.1904376972890005D-01
        ws( 93) = 0.1888062004026519D-01
        ws( 94) = 0.1871088660002986D-01
        ws( 95) = 0.1840331848701041D-01
        ws( 96) = 0.1666802447808475D-01
        endif
        if( idomain .eq.   23 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.0000000000000000D+00
        rk1r = 0.5026548245743669D+02
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n = 100
        err = 0.7027630402638776D-13
        xs(  1) = 0.8193854255338971D-06
        xs(  2) = 0.4317924885530424D-05
        xs(  3) = 0.1061465894698840D-04
        xs(  4) = 0.1971548883854288D-04
        xs(  5) = 0.3162722147790309D-04
        xs(  6) = 0.4635880294961082D-04
        xs(  7) = 0.6392159390306383D-04
        xs(  8) = 0.8432959134132915D-04
        xs(  9) = 0.1075996616379373D-03
        xs( 10) = 0.1337517908247351D-03
        xs( 11) = 0.1628093504377406D-03
        xs( 12) = 0.1947993762925542D-03
        xs( 13) = 0.2297528580306606D-03
        xs( 14) = 0.2677050380981883D-03
        xs( 15) = 0.3086957197083807D-03
        xs( 16) = 0.3527695841958872D-03
        xs( 17) = 0.3999765189524696D-03
        xs( 18) = 0.4503719578253703D-03
        xs( 19) = 0.5040172364631681D-03
        xs( 20) = 0.5609799656209098D-03
        xs( 21) = 0.6213344259037276D-03
        xs( 22) = 0.6851619878559482D-03
        xs( 23) = 0.7525515617116148D-03
        xs( 24) = 0.8236000815328546D-03
        xs( 25) = 0.8984130288944123D-03
        xs( 26) = 0.9771050017448140D-03
        xs( 27) = 0.1059800334605083D-02
        xs( 28) = 0.1146633776872639D-02
        xs( 29) = 0.1237751236699327D-02
        xs( 30) = 0.1333310598727241D-02
        xs( 31) = 0.1433482624915220D-02
        xs( 32) = 0.1538451948795741D-02
        xs( 33) = 0.1648418174792777D-02
        xs( 34) = 0.1763597095737475D-02
        xs( 35) = 0.1884222043475945D-02
        xs( 36) = 0.2010545389515562D-02
        xs( 37) = 0.2142840215054512D-02
        xs( 38) = 0.2281402172545390D-02
        xs( 39) = 0.2426551564231920D-02
        xs( 40) = 0.2578635666958153D-02
        xs( 41) = 0.2738031337090676D-02
        xs( 42) = 0.2905147934748043D-02
        xs( 43) = 0.3080430612859997D-02
        xs( 44) = 0.3264364024077705D-02
        xs( 45) = 0.3457476507467899D-02
        xs( 46) = 0.3660344827545190D-02
        xs( 47) = 0.3873599550895904D-02
        xs( 48) = 0.4097931160877909D-02
        xs( 49) = 0.4334097029212760D-02
        xs( 50) = 0.4582929385425212D-02
        xs( 51) = 0.4845344451921669D-02
        xs( 52) = 0.5122352945152012D-02
        xs( 53) = 0.5415072183187821D-02
        xs( 54) = 0.5724740088976849D-02
        xs( 55) = 0.6052731438803865D-02
        xs( 56) = 0.6400576780062978D-02
        xs( 57) = 0.6769984535149676D-02
        xs( 58) = 0.7162866924075202D-02
        xs( 59) = 0.7581370483779397D-02
        xs( 60) = 0.8027912145582364D-02
        xs( 61) = 0.8505222065044784D-02
        xs( 62) = 0.9016394695686759D-02
        xs( 63) = 0.9564949979642903D-02
        xs( 64) = 0.1015490702155263D-01
        xs( 65) = 0.1079087325371439D-01
        xs( 66) = 0.1147815294143762D-01
        xs( 67) = 0.1222287998771449D-01
        xs( 68) = 0.1303218147367469D-01
        xs( 69) = 0.1391438035377315D-01
        xs( 70) = 0.1487924840863700D-01
        xs( 71) = 0.1593832422628551D-01
        xs( 72) = 0.1710531604390158D-01
        xs( 73) = 0.1839661633781237D-01
        xs( 74) = 0.1983196498537532D-01
        xs( 75) = 0.2143531195254352D-01
        xs( 76) = 0.2323595072894156D-01
        xs( 77) = 0.2527002295504730D-01
        xs( 78) = 0.2758253672727788D-01
        xs( 79) = 0.3023010042548959D-01
        xs( 80) = 0.3328465276813531D-01
        xs( 81) = 0.3683855648222284D-01
        xs( 82) = 0.4101145527865604D-01
        xs( 83) = 0.4595906337717921D-01
        xs( 84) = 0.5188301202467070D-01
        xs( 85) = 0.5903788328264291D-01
        xs( 86) = 0.6772532315061895D-01
        xs( 87) = 0.7825742175949299D-01
        xs( 88) = 0.9087387400581712D-01
        xs( 89) = 0.1056292607442408D+00
        xs( 90) = 0.1223206741386275D+00
        xs( 91) = 0.1405294170012994D+00
        xs( 92) = 0.1597576015237379D+00
        xs( 93) = 0.1795603294047170D+00
        xs( 94) = 0.1996082985401018D+00
        xs( 95) = 0.2196891420358301D+00
        xs( 96) = 0.2396815980739957D+00
        xs( 97) = 0.2595251535221565D+00
        xs( 98) = 0.2791884346478380D+00
        xs( 99) = 0.2985504620227297D+00
        xs(100) = 0.3172059720867157D+00
        ws(  1) = 0.2102879563037223D-05
        ws(  2) = 0.4896538219965025D-05
        ws(  3) = 0.7697804698713345D-05
        ws(  4) = 0.1050498015620624D-04
        ws(  5) = 0.1331997220648105D-04
        ws(  6) = 0.1614508055577845D-04
        ws(  7) = 0.1898283030659856D-04
        ws(  8) = 0.2183597145503980D-04
        ws(  9) = 0.2470749570607964D-04
        ws( 10) = 0.2760065327201672D-04
        ws( 11) = 0.3051896709428467D-04
        ws( 12) = 0.3346624457155774D-04
        ws( 13) = 0.3644658751397315D-04
        ws( 14) = 0.3946440120358982D-04
        ws( 15) = 0.4252440344482164D-04
        ws( 16) = 0.4563163442812453D-04
        ws( 17) = 0.4879146814434514D-04
        ws( 18) = 0.5200962599609985D-04
        ws( 19) = 0.5529219316892000D-04
        ws( 20) = 0.5864563825621018D-04
        ws( 21) = 0.6207683658221590D-04
        ws( 22) = 0.6559309763785680D-04
        ws( 23) = 0.6920219703580474D-04
        ws( 24) = 0.7291241340275401D-04
        ws( 25) = 0.7673257065787846D-04
        ws( 26) = 0.8067208617576770D-04
        ws( 27) = 0.8474102539937764D-04
        ws( 28) = 0.8895016355403173D-04
        ws( 29) = 0.9331105521712950D-04
        ws( 30) = 0.9783611262183010D-04
        ws( 31) = 0.1025386937187562D-03
        ws( 32) = 0.1074332011896983D-03
        ws( 33) = 0.1125351938063134D-03
        ws( 34) = 0.1178615117592278D-03
        ws( 35) = 0.1234304178543310D-03
        ws( 36) = 0.1292617567922174D-03
        ws( 37) = 0.1353771351216627D-03
        ws( 38) = 0.1418001249008149D-03
        ws( 39) = 0.1485564946238167D-03
        ws( 40) = 0.1556744715938490D-03
        ws( 41) = 0.1631850406656519D-03
        ws( 42) = 0.1711222851689890D-03
        ws( 43) = 0.1795237768904743D-03
        ws( 44) = 0.1884310232741813D-03
        ws( 45) = 0.1978899815529369D-03
        ws( 46) = 0.2079516514024370D-03
        ws( 47) = 0.2186727599991891D-03
        ws( 48) = 0.2301165561583079D-03
        ws( 49) = 0.2423537336552815D-03
        ws( 50) = 0.2554635080533353D-03
        ws( 51) = 0.2695348765725104D-03
        ws( 52) = 0.2846680970058007D-03
        ws( 53) = 0.3009764297520868D-03
        ws( 54) = 0.3185881971320014D-03
        ws( 55) = 0.3376492268507808D-03
        ws( 56) = 0.3583257625271960D-03
        ws( 57) = 0.3808079445960076D-03
        ws( 58) = 0.4053139909391501D-03
        ws( 59) = 0.4320952400429791D-03
        ws( 60) = 0.4614422626771922D-03
        ws( 61) = 0.4936923042328407D-03
        ws( 62) = 0.5292383932596695D-03
        ws( 63) = 0.5685405483991690D-03
        ws( 64) = 0.6121396440453851D-03
        ws( 65) = 0.6606746662137313D-03
        ws( 66) = 0.7149043204965563D-03
        ws( 67) = 0.7757342667131373D-03
        ws( 68) = 0.8442516830308198D-03
        ws( 69) = 0.9217694540320160D-03
        ws( 70) = 0.1009883102574162D-02
        ws( 71) = 0.1110544748476398D-02
        ws( 72) = 0.1226160032391540D-02
        ws( 73) = 0.1359716322966189D-02
        ws( 74) = 0.1514953976706226D-02
        ws( 75) = 0.1696597461087501D-02
        ws( 76) = 0.1910670532171407D-02
        ws( 77) = 0.2164930368020013D-02
        ws( 78) = 0.2469470626079339D-02
        ws( 79) = 0.2837562695196733D-02
        ws( 80) = 0.3286822175041018D-02
        ws( 81) = 0.3840778020973508D-02
        ws( 82) = 0.4530800047003491D-02
        ws( 83) = 0.5397881388866571D-02
        ws( 84) = 0.6492499076864384D-02
        ws( 85) = 0.7868078232726689D-02
        ws( 86) = 0.9560220408842288D-02
        ws( 87) = 0.1154599093276965D-01
        ws( 88) = 0.1369744908734861D-01
        ws( 89) = 0.1577876111356534D-01
        ws( 90) = 0.1753170204523009D-01
        ws( 91) = 0.1880043136012905D-01
        ws( 92) = 0.1958079363207214D-01
        ws( 93) = 0.1996985195621536D-01
        ws( 94) = 0.2009117065060826D-01
        ws( 95) = 0.2005089212397042D-01
        ws( 96) = 0.1992499016416158D-01
        ws( 97) = 0.1975761617783939D-01
        ws( 98) = 0.1957837103566060D-01
        ws( 99) = 0.1906573520920378D-01
        ws(100) = 0.1570690860263797D-01
        endif
        if( idomain .eq.   24 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.2000000000000000D-01
        rk1r = 0.2000000000000000D-01
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  42
        err = 0.4145622071330828D-13
        xs(  1) = 0.1792410486740354D-03
        xs(  2) = 0.9456430056272515D-03
        xs(  3) = 0.2327013065256968D-02
        xs(  4) = 0.4320612897949480D-02
        xs(  5) = 0.6912604359830598D-02
        xs(  6) = 0.1007769893810771D-01
        xs(  7) = 0.1378239028323629D-01
        xs(  8) = 0.1798919264824713D-01
        xs(  9) = 0.2266007159210305D-01
        xs( 10) = 0.2775857186374990D-01
        xs( 11) = 0.3325085616314162D-01
        xs( 12) = 0.3910604084117981D-01
        xs( 13) = 0.4529615215679369D-01
        xs( 14) = 0.5179591470965501D-01
        xs( 15) = 0.5858249065210797D-01
        xs( 16) = 0.6563522680951032D-01
        xs( 17) = 0.7293543133448782D-01
        xs( 18) = 0.8046618347813016D-01
        xs( 19) = 0.8821217246416940D-01
        xs( 20) = 0.9615955945698834D-01
        xs( 21) = 0.1042958571604564D+00
        xs( 22) = 0.1126098230774886D+00
        xs( 23) = 0.1210913637647714D+00
        xs( 24) = 0.1297314489255257D+00
        xs( 25) = 0.1385220342924383D+00
        xs( 26) = 0.1474559940796219D+00
        xs( 27) = 0.1565270624112199D+00
        xs( 28) = 0.1657297836130631D+00
        xs( 29) = 0.1750594800211719D+00
        xs( 30) = 0.1845121974719739D+00
        xs( 31) = 0.1940847599922384D+00
        xs( 32) = 0.2037747095526748D+00
        xs( 33) = 0.2135803357312358D+00
        xs( 34) = 0.2235015908325315D+00
        xs( 35) = 0.2335365578926039D+00
        xs( 36) = 0.2436850637642042D+00
        xs( 37) = 0.2539543995101191D+00
        xs( 38) = 0.2643112046200802D+00
        xs( 39) = 0.2748937496015187D+00
        xs( 40) = 0.2858374749817781D+00
        xs( 41) = 0.2961327927290789D+00
        xs( 42) = 0.3074794145956656D+00
        ws(  1) = 0.4601575791738620D-03
        ws(  2) = 0.1073584775336032D-02
        ws(  3) = 0.1688776042991202D-02
        ws(  4) = 0.2296121206172027D-02
        ws(  5) = 0.2883585494076561D-02
        ws(  6) = 0.3440944290890619D-02
        ws(  7) = 0.3962132740737876D-02
        ws(  8) = 0.4445098177926089D-02
        ws(  9) = 0.4890567521798631D-02
        ws( 10) = 0.5300788658044685D-02
        ws( 11) = 0.5678633887706377D-02
        ws( 12) = 0.6027076973191749D-02
        ws( 13) = 0.6348937563425423D-02
        ws( 14) = 0.6646785493734748D-02
        ws( 15) = 0.6922927922324607D-02
        ws( 16) = 0.7179432243460668D-02
        ws( 17) = 0.7418159351771609D-02
        ws( 18) = 0.7640795427162031D-02
        ws( 19) = 0.7848878069586894D-02
        ws( 20) = 0.8043816472402951D-02
        ws( 21) = 0.8226906773082739D-02
        ws( 22) = 0.8399344249300337D-02
        ws( 23) = 0.8562233374941429D-02
        ws( 24) = 0.8716597463032501D-02
        ws( 25) = 0.8863386632673453D-02
        ws( 26) = 0.9003489120417469D-02
        ws( 27) = 0.9137736463434422D-02
        ws( 28) = 0.9266925839952766D-02
        ws( 29) = 0.9391819104429369D-02
        ws( 30) = 0.9513138505591764D-02
        ws( 31) = 0.9631640365807772D-02
        ws( 32) = 0.9747634368990643D-02
        ws( 33) = 0.9862322672050236D-02
        ws( 34) = 0.9978470608321978D-02
        ws( 35) = 0.1009771476961170D-01
        ws( 36) = 0.1023327592157538D-01
        ws( 37) = 0.1033043322998302D-01
        ws( 38) = 0.1026406065159910D-01
        ws( 39) = 0.1036879639696450D-01
        ws( 40) = 0.1065512657794164D-01
        ws( 41) = 0.1264607874949124D-01
        ws( 42) = 0.1968832063889668D-01
        endif
        if( idomain .eq.   25 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.2000000000000000D-01
        rk1r = 0.4000000000000000D-01
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  42
        err = 0.3880155912712873D-13
        xs(  1) = 0.1757659629031430D-03
        xs(  2) = 0.9282361869067616D-03
        xs(  3) = 0.2287920810841812D-02
        xs(  4) = 0.4256725575634635D-02
        xs(  5) = 0.6825478496831192D-02
        xs(  6) = 0.9972481632994405D-02
        xs(  7) = 0.1366637262922909D-01
        xs(  8) = 0.1787055318604266D-01
        xs(  9) = 0.2254701205310610D-01
        xs( 10) = 0.2765880880173523D-01
        xs( 11) = 0.3317135740152532D-01
        xs( 12) = 0.3905290831489107D-01
        xs( 13) = 0.4527458740014421D-01
        xs( 14) = 0.5181023180011304D-01
        xs( 15) = 0.5863615836443574D-01
        xs( 16) = 0.6573092983287560D-01
        xs( 17) = 0.7307514364203177D-01
        xs( 18) = 0.8065124819444038D-01
        xs( 19) = 0.8844338336661382D-01
        xs( 20) = 0.9643724011596615D-01
        xs( 21) = 0.1046199347450804D+00
        xs( 22) = 0.1129798948249007D+00
        xs( 23) = 0.1215067551118886D+00
        xs( 24) = 0.1301912627294171D+00
        xs( 25) = 0.1390251916129214D+00
        xs( 26) = 0.1480012662326310D+00
        xs( 27) = 0.1571130952611376D+00
        xs( 28) = 0.1663551156226018D+00
        xs( 29) = 0.1757225456456855D+00
        xs( 30) = 0.1852113479928694D+00
        xs( 31) = 0.1948182137555097D+00
        xs( 32) = 0.2045405991553746D+00
        xs( 33) = 0.2143767913190143D+00
        xs( 34) = 0.2243258007271025D+00
        xs( 35) = 0.2343869427472611D+00
        xs( 36) = 0.2445590686273497D+00
        xs( 37) = 0.2548403399251164D+00
        xs( 38) = 0.2652393027631314D+00
        xs( 39) = 0.2758158698527942D+00
        xs( 40) = 0.2866344855597037D+00
        xs( 41) = 0.2973661328909839D+00
        xs( 42) = 0.3079453967936905D+00
        ws(  1) = 0.4513453228226189D-03
        ws(  2) = 0.1055077679055251D-02
        ws(  3) = 0.1664712633914372D-02
        ws(  4) = 0.2271391428575327D-02
        ws(  5) = 0.2862442205483266D-02
        ws(  6) = 0.3426257869781374D-02
        ws(  7) = 0.3955359266461394D-02
        ws(  8) = 0.4446625831554387D-02
        ws(  9) = 0.4900114827953197D-02
        ws( 10) = 0.5317707169740573D-02
        ws( 11) = 0.5702098353744981D-02
        ws( 12) = 0.6056194158900033D-02
        ws( 13) = 0.6382807538247759D-02
        ws( 14) = 0.6684538018191686D-02
        ws( 15) = 0.6963745760584078D-02
        ws( 16) = 0.7222566467932235D-02
        ws( 17) = 0.7462938529156636D-02
        ws( 18) = 0.7686629551219068D-02
        ws( 19) = 0.7895258041565847D-02
        ws( 20) = 0.8090310070703485D-02
        ws( 21) = 0.8273152176903173D-02
        ws( 22) = 0.8445042020275280D-02
        ws( 23) = 0.8607137861720677D-02
        ws( 24) = 0.8760507728833926D-02
        ws( 25) = 0.8906138587074055D-02
        ws( 26) = 0.9044945708704568D-02
        ws( 27) = 0.9177783871143800D-02
        ws( 28) = 0.9305459758721877D-02
        ws( 29) = 0.9428742912400331D-02
        ws( 30) = 0.9548362155753351D-02
        ws( 31) = 0.9664974957719888D-02
        ws( 32) = 0.9779161765638998D-02
        ws( 33) = 0.9891733765132745D-02
        ws( 34) = 0.1000506336501942D-01
        ws( 35) = 0.1012459318761206D-01
        ws( 36) = 0.1025061245320878D-01
        ws( 37) = 0.1034486920591600D-01
        ws( 38) = 0.1031521159898178D-01
        ws( 39) = 0.1020169712355955D-01
        ws( 40) = 0.1074662176867219D-01
        ws( 41) = 0.1373495051045889D-01
        ws( 42) = 0.1764190510411516D-01
        endif
        if( idomain .eq.   26 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.2000000000000000D-01
        rk1r = 0.1000000000000000D+00
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  42
        err = 0.3644553097910490D-13
        xs(  1) = 0.1662631682643939D-03
        xs(  2) = 0.8803580975427532D-03
        xs(  3) = 0.2179214584860882D-02
        xs(  4) = 0.4076018983831666D-02
        xs(  5) = 0.6572823352354164D-02
        xs(  6) = 0.9656328423839894D-02
        xs(  7) = 0.1329988785171224D-01
        xs(  8) = 0.1746855457641408D-01
        xs(  9) = 0.2212401051439028D-01
        xs( 10) = 0.2722800562961458D-01
        xs( 11) = 0.3274426556961660D-01
        xs( 12) = 0.3863931750362920D-01
        xs( 13) = 0.4488269289533559D-01
        xs( 14) = 0.5144682736529198D-01
        xs( 15) = 0.5830684267164090D-01
        xs( 16) = 0.6544030311205760D-01
        xs( 17) = 0.7282698503445721D-01
        xs( 18) = 0.8044867106212902D-01
        xs( 19) = 0.8828896901316677D-01
        xs( 20) = 0.9633315181535837D-01
        xs( 21) = 0.1045680145499623D+00
        xs( 22) = 0.1129817457630796D+00
        xs( 23) = 0.1215638113192819D+00
        xs( 24) = 0.1303048499007984D+00
        xs( 25) = 0.1391965799563128D+00
        xs( 26) = 0.1482317180128264D+00
        xs( 27) = 0.1574039088233994D+00
        xs( 28) = 0.1667076675713210D+00
        xs( 29) = 0.1761383335298153D+00
        xs( 30) = 0.1856920368126616D+00
        xs( 31) = 0.1953656819485189D+00
        xs( 32) = 0.2051569912620869D+00
        xs( 33) = 0.2150646242339103D+00
        xs( 34) = 0.2250880611059289D+00
        xs( 35) = 0.2352269739241826D+00
        xs( 36) = 0.2454803078207420D+00
        xs( 37) = 0.2558469547291352D+00
        xs( 38) = 0.2663419437140732D+00
        xs( 39) = 0.2770432032957173D+00
        xs( 40) = 0.2879995243306345D+00
        xs( 41) = 0.2987578290798856D+00
        xs( 42) = 0.3092634604046776D+00
        ws(  1) = 0.4272148913357698D-03
        ws(  2) = 0.1003777374584439D-02
        ws(  3) = 0.1596303091444235D-02
        ws(  4) = 0.2197719824360031D-02
        ws(  5) = 0.2793629172230617D-02
        ws(  6) = 0.3368847729977265D-02
        ws(  7) = 0.3912361517765284D-02
        ws(  8) = 0.4418528546431025D-02
        ws(  9) = 0.4885977779363279D-02
        ws( 10) = 0.5315954097261454D-02
        ws( 11) = 0.5710984351386013D-02
        ws( 12) = 0.6074043517470434D-02
        ws( 13) = 0.6408117040223510D-02
        ws( 14) = 0.6716009667811220D-02
        ws( 15) = 0.7000285524415638D-02
        ws( 16) = 0.7263268174318884D-02
        ws( 17) = 0.7507062448971570D-02
        ws( 18) = 0.7733580234862700D-02
        ws( 19) = 0.7944563531199753D-02
        ws( 20) = 0.8141603393441839D-02
        ws( 21) = 0.8326155429326113D-02
        ws( 22) = 0.8499553046665548D-02
        ws( 23) = 0.8663019420489616D-02
        ws( 24) = 0.8817678929866173D-02
        ws( 25) = 0.8964568470505299D-02
        ws( 26) = 0.9104648800621470D-02
        ws( 27) = 0.9238817469787041D-02
        ws( 28) = 0.9367922958766591D-02
        ws( 29) = 0.9492779388099760D-02
        ws( 30) = 0.9614163344936099D-02
        ws( 31) = 0.9732771510621362D-02
        ws( 32) = 0.9849247266683405D-02
        ws( 33) = 0.9964578760263521D-02
        ws( 34) = 0.1008138904467144D-01
        ws( 35) = 0.1020505083627977D-01
        ws( 36) = 0.1033365569834834D-01
        ws( 37) = 0.1042425807575999D-01
        ws( 38) = 0.1039617984203374D-01
        ws( 39) = 0.1036048352573420D-01
        ws( 40) = 0.1111211273905690D-01
        ws( 41) = 0.1389109289158579D-01
        ws( 42) = 0.1646681647535367D-01
        endif
        if( idomain .eq.   27 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.2000000000000000D-01
        rk1r = 0.2000000000000000D+00
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  42
        err = 0.3445365777735292D-13
        xs(  1) = 0.1524384623548144D-03
        xs(  2) = 0.8090846735482186D-03
        xs(  3) = 0.2011116899209448D-02
        xs(  4) = 0.3782635659593699D-02
        xs(  5) = 0.6139281848380549D-02
        xs(  6) = 0.9080685234962096D-02
        xs(  7) = 0.1258991686439870D-01
        xs(  8) = 0.1663782778088036D-01
        xs(  9) = 0.2118863866510739D-01
        xs( 10) = 0.2620447514521216D-01
        xs( 11) = 0.3164823016562235D-01
        xs( 12) = 0.3748503687408619D-01
        xs( 13) = 0.4368284949627807D-01
        xs( 14) = 0.5021254090416214D-01
        xs( 15) = 0.5704777720785401D-01
        xs( 16) = 0.6416481106010512D-01
        xs( 17) = 0.7154226058415199D-01
        xs( 18) = 0.7916090021016327D-01
        xs( 19) = 0.8700347053562157D-01
        xs( 20) = 0.9505450686988064D-01
        xs( 21) = 0.1033001842214371D+00
        xs( 22) = 0.1117281767492770D+00
        xs( 23) = 0.1203275304926694D+00
        xs( 24) = 0.1290885488840529D+00
        xs( 25) = 0.1380026911001197D+00
        xs( 26) = 0.1470624834062910D+00
        xs( 27) = 0.1562614441658766D+00
        xs( 28) = 0.1655940229412355D+00
        xs( 29) = 0.1750555538328169D+00
        xs( 30) = 0.1846422242964471D+00
        xs( 31) = 0.1943510651069025D+00
        xs( 32) = 0.2041799981184424D+00
        xs( 33) = 0.2141279449130072D+00
        xs( 34) = 0.2241948044277477D+00
        xs( 35) = 0.2343811146400317D+00
        xs( 36) = 0.2446870746957006D+00
        xs( 37) = 0.2551123891827969D+00
        xs( 38) = 0.2656707522439419D+00
        xs( 39) = 0.2764338816250519D+00
        xs( 40) = 0.2874798256413673D+00
        xs( 41) = 0.2984579291820232D+00
        xs( 42) = 0.3091341145632845D+00
        ws(  1) = 0.3919126514446267D-03
        ws(  2) = 0.9251865259295237D-03
        ws(  3) = 0.1483102176936976D-02
        ws(  4) = 0.2062675870316001D-02
        ws(  5) = 0.2650556836616737D-02
        ws(  6) = 0.3229346284350680D-02
        ws(  7) = 0.3784160174022423D-02
        ws(  8) = 0.4305621783747816D-02
        ws(  9) = 0.4789640840114005D-02
        ws( 10) = 0.5235824351542276D-02
        ws( 11) = 0.5645865851205878D-02
        ws( 12) = 0.6022405580429726D-02
        ws( 13) = 0.6368367551416867D-02
        ws( 14) = 0.6686629873362309D-02
        ws( 15) = 0.6979888581672761D-02
        ws( 16) = 0.7250618975300780D-02
        ws( 17) = 0.7501078977313093D-02
        ws( 18) = 0.7733326559402699D-02
        ws( 19) = 0.7949239222064766D-02
        ws( 20) = 0.8150531620289931D-02
        ws( 21) = 0.8338770891976864D-02
        ws( 22) = 0.8515390409320372D-02
        ws( 23) = 0.8681702697293811D-02
        ws( 24) = 0.8838912167124428D-02
        ws( 25) = 0.8988127928421937D-02
        ws( 26) = 0.9130376936906931D-02
        ws( 27) = 0.9266618636652336D-02
        ws( 28) = 0.9397760998437582D-02
        ws( 29) = 0.9524677474404521D-02
        ws( 30) = 0.9648210581548257D-02
        ws( 31) = 0.9769150054605174D-02
        ws( 32) = 0.9888251138393526D-02
        ws( 33) = 0.1000651584224300D-01
        ws( 34) = 0.1012633857794879D-01
        ws( 35) = 0.1025282561477475D-01
        ws( 36) = 0.1038630509223958D-01
        ws( 37) = 0.1049367365841626D-01
        ws( 38) = 0.1049725945938005D-01
        ws( 39) = 0.1044616316054019D-01
        ws( 40) = 0.1107601778371119D-01
        ws( 41) = 0.1395885544894632D-01
        ws( 42) = 0.1692031727339263D-01
        endif
        if( idomain .eq.   28 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.2000000000000000D-01
        rk1r = 0.4000000000000000D+00
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  42
        err = 0.3812830649971803D-13
        xs(  1) = 0.1344706962620239D-03
        xs(  2) = 0.7157079334365471D-03
        xs(  3) = 0.1787838835434031D-02
        xs(  4) = 0.3385849796112762D-02
        xs(  5) = 0.5540963489703408D-02
        xs(  6) = 0.8269911992668093D-02
        xs(  7) = 0.1157060727669666D-01
        xs(  8) = 0.1542426114333042D-01
        xs(  9) = 0.1980082010628863D-01
        xs( 10) = 0.2466454922963857D-01
        xs( 11) = 0.2997818225847291D-01
        xs( 12) = 0.3570543119833105D-01
        xs( 13) = 0.4181225407101745D-01
        xs( 14) = 0.4826735723181417D-01
        xs( 15) = 0.5504228855078223D-01
        xs( 16) = 0.6211133846462101D-01
        xs( 17) = 0.6945136437445749D-01
        xs( 18) = 0.7704159317949644D-01
        xs( 19) = 0.8486342505068747D-01
        xs( 20) = 0.9290024695504270D-01
        xs( 21) = 0.1011372586294193D+00
        xs( 22) = 0.1095613118430081D+00
        xs( 23) = 0.1181607633579963D+00
        xs( 24) = 0.1269253420402395D+00
        xs( 25) = 0.1358460305313036D+00
        xs( 26) = 0.1449149619304398D+00
        xs( 27) = 0.1541253321935343D+00
        xs( 28) = 0.1634713282761721D+00
        xs( 29) = 0.1729480721990110D+00
        xs( 30) = 0.1825515820780300D+00
        xs( 31) = 0.1922787570676079D+00
        xs( 32) = 0.2021274050956613D+00
        xs( 33) = 0.2120963259815527D+00
        xs( 34) = 0.2221854086530696D+00
        xs( 35) = 0.2323954574953708D+00
        xs( 36) = 0.2427268979835488D+00
        xs( 37) = 0.2531786790810810D+00
        xs( 38) = 0.2637602964760003D+00
        xs( 39) = 0.2745326460261785D+00
        xs( 40) = 0.2855812953099423D+00
        xs( 41) = 0.2966417472595558D+00
        xs( 42) = 0.3074657358993349D+00
        ws(  1) = 0.3459434865412382D-03
        ws(  2) = 0.8211920484791715D-03
        ws(  3) = 0.1329120467866071D-02
        ws(  4) = 0.1872297122860187D-02
        ws(  5) = 0.2440790254182317D-02
        ws(  6) = 0.3016714429606448D-02
        ws(  7) = 0.3581446026702686D-02
        ws(  8) = 0.4120756168156825D-02
        ws(  9) = 0.4626336634764084D-02
        ws( 10) = 0.5094869899296841D-02
        ws( 11) = 0.5526328228599526D-02
        ws( 12) = 0.5922488463343934D-02
        ws( 13) = 0.6285940619902491D-02
        ws( 14) = 0.6619525587168991D-02
        ws( 15) = 0.6926055169326583D-02
        ws( 16) = 0.7208190898135410D-02
        ws( 17) = 0.7468402025509864D-02
        ws( 18) = 0.7708958726129144D-02
        ws( 19) = 0.7931939079910905D-02
        ws( 20) = 0.8139240697971541D-02
        ws( 21) = 0.8332593727510683D-02
        ws( 22) = 0.8513574369855980D-02
        ws( 23) = 0.8683618786464837D-02
        ws( 24) = 0.8844037477210976D-02
        ws( 25) = 0.8996029913519339D-02
        ws( 26) = 0.9140699800827080D-02
        ws( 27) = 0.9279071244514754D-02
        ws( 28) = 0.9412106396681143D-02
        ws( 29) = 0.9540725327731293D-02
        ws( 30) = 0.9665817673781118D-02
        ws( 31) = 0.9788222913921490D-02
        ws( 32) = 0.9908688513201810D-02
        ws( 33) = 0.1002809073627169D-01
        ws( 34) = 0.1014871348185767D-01
        ws( 35) = 0.1027591266782052D-01
        ws( 36) = 0.1041200860601353D-01
        ws( 37) = 0.1052831697191466D-01
        ws( 38) = 0.1054334659014301D-01
        ws( 39) = 0.1046837069950140D-01
        ws( 40) = 0.1097700550746610D-01
        ws( 41) = 0.1377659180130623D-01
        ws( 42) = 0.1708819033638455D-01
        endif
        if( idomain .eq.   29 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.2000000000000000D-01
        rk1r = 0.1000000000000000D+01
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  41
        err = 0.7609725183706748D-13
        xs(  1) = 0.1000664656253734D-03
        xs(  2) = 0.5344223667683095D-03
        xs(  3) = 0.1343948780274876D-02
        xs(  4) = 0.2571841509907840D-02
        xs(  5) = 0.4268602859316099D-02
        xs(  6) = 0.6480711516442070D-02
        xs(  7) = 0.9240380271804773D-02
        xs(  8) = 0.1256022507941468D-01
        xs(  9) = 0.1643375476969277D-01
        xs( 10) = 0.2083972795215490D-01
        xs( 11) = 0.2574762638671703D-01
        xs( 12) = 0.3112238661648556D-01
        xs( 13) = 0.3692774915029394D-01
        xs( 14) = 0.4312833349657970D-01
        xs( 15) = 0.4969078994281232D-01
        xs( 16) = 0.5658435792946453D-01
        xs( 17) = 0.6378106746240908D-01
        xs( 18) = 0.7125573516383565D-01
        xs( 19) = 0.7898584761077215D-01
        xs( 20) = 0.8695138748257293D-01
        xs( 21) = 0.9513463555505085D-01
        xs( 22) = 0.1035199681486550D+00
        xs( 23) = 0.1120936616835086D+00
        xs( 24) = 0.1208437111390280D+00
        xs( 25) = 0.1297596663952820D+00
        xs( 26) = 0.1388324886360189D+00
        xs( 27) = 0.1480544277265620D+00
        xs( 28) = 0.1574189221459850D+00
        xs( 29) = 0.1669205222043647D+00
        xs( 30) = 0.1765548379918285D+00
        xs( 31) = 0.1863185122915102D+00
        xs( 32) = 0.1962092206951128D+00
        xs( 33) = 0.2062256780937553D+00
        xs( 34) = 0.2163676082807267D+00
        xs( 35) = 0.2266359890985747D+00
        xs( 36) = 0.2370344465283980D+00
        xs( 37) = 0.2475734045078242D+00
        xs( 38) = 0.2582741872064999D+00
        xs( 39) = 0.2691285724887923D+00
        xs( 40) = 0.2799886678302934D+00
        xs( 41) = 0.2908135789891643D+00
        ws(  1) = 0.2576324684669553D-03
        ws(  2) = 0.6158393288023180D-03
        ws(  3) = 0.1010551140906584D-02
        ws(  4) = 0.1453851739263787D-02
        ws(  5) = 0.1947598445351530D-02
        ws(  6) = 0.2482078589343845D-02
        ws(  7) = 0.3039347708689382D-02
        ws(  8) = 0.3599180148931560D-02
        ws(  9) = 0.4144243290635199D-02
        ws( 10) = 0.4662536563448736D-02
        ws( 11) = 0.5147361050982751D-02
        ws( 12) = 0.5596082508074416D-02
        ws( 13) = 0.6008727419662369D-02
        ws( 14) = 0.6386874236568094D-02
        ws( 15) = 0.6732908888612693D-02
        ws( 16) = 0.7049565696668965D-02
        ws( 17) = 0.7339658210624167D-02
        ws( 18) = 0.7605927927809483D-02
        ws( 19) = 0.7850964090225419D-02
        ws( 20) = 0.8077165851167708D-02
        ws( 21) = 0.8286729622520137D-02
        ws( 22) = 0.8481651342765607D-02
        ws( 23) = 0.8663737620864517D-02
        ws( 24) = 0.8834621943713303D-02
        ws( 25) = 0.8995784058937931D-02
        ws( 26) = 0.9148570590134440D-02
        ws( 27) = 0.9294216500292938D-02
        ws( 28) = 0.9433866827436962D-02
        ws( 29) = 0.9568597620116658D-02
        ws( 30) = 0.9699444445756676D-02
        ws( 31) = 0.9827461019360467D-02
        ws( 32) = 0.9953835376707274D-02
        ws( 33) = 0.1007985930438506D-01
        ws( 34) = 0.1020613686065887D-01
        ws( 35) = 0.1033041248541592D-01
        ws( 36) = 0.1044727142158892D-01
        ws( 37) = 0.1056982186417165D-01
        ws( 38) = 0.1080190608605022D-01
        ws( 39) = 0.1136636630855571D-01
        ws( 40) = 0.1223955100026298D-01
        ws( 41) = 0.1151514923821306D-01
        endif
        if( idomain .eq.   30 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.2000000000000000D-01
        rk1r = 0.1570796326794897D+01
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  42
        err = 0.6690685671174484D-13
        xs(  1) = 0.7735411510255892D-04
        xs(  2) = 0.4132956240841691D-03
        xs(  3) = 0.1040748659319721D-02
        xs(  4) = 0.1997886258255164D-02
        xs(  5) = 0.3335098048560603D-02
        xs(  6) = 0.5108051471532637D-02
        xs(  7) = 0.7368167637546995D-02
        xs(  8) = 0.1015355464190325D-01
        xs(  9) = 0.1348369937373744D-01
        xs( 10) = 0.1735915159227475D-01
        xs( 11) = 0.2176492346429521D-01
        xs( 12) = 0.2667529598851456D-01
        xs( 13) = 0.3205830150454172D-01
        xs( 14) = 0.3787918933849167D-01
        xs( 15) = 0.4410283650627415D-01
        xs( 16) = 0.5069530170929975D-01
        xs( 17) = 0.5762475138949007D-01
        xs( 18) = 0.6486194798583389D-01
        xs( 19) = 0.7238044213888695D-01
        xs( 20) = 0.8015657167652721D-01
        xs( 21) = 0.8816934185666725D-01
        xs( 22) = 0.9640024010958312D-01
        xs( 23) = 0.1048330220549673D+00
        xs( 24) = 0.1134534928977161D+00
        xs( 25) = 0.1222492990292649D+00
        xs( 26) = 0.1312097381274760D+00
        xs( 27) = 0.1403255920712537D+00
        xs( 28) = 0.1495889842700061D+00
        xs( 29) = 0.1589932618015791D+00
        xs( 30) = 0.1685329035228984D+00
        xs( 31) = 0.1782034541938397D+00
        xs( 32) = 0.1880014811672661D+00
        xs( 33) = 0.1979245395634301D+00
        xs( 34) = 0.2079711507978889D+00
        xs( 35) = 0.2181408794479839D+00
        xs( 36) = 0.2284345940009211D+00
        xs( 37) = 0.2388552678736735D+00
        xs( 38) = 0.2494106584034515D+00
        xs( 39) = 0.2601127292677015D+00
        xs( 40) = 0.2709416405353598D+00
        xs( 41) = 0.2817661305198380D+00
        xs( 42) = 0.2924733007423621D+00
        ws(  1) = 0.1991704822184208D-03
        ws(  2) = 0.4765726117185118D-03
        ws(  3) = 0.7847452516880583D-03
        ws(  4) = 0.1138046467162045D-02
        ws(  5) = 0.1545821754084803D-02
        ws(  6) = 0.2008815450797597D-02
        ws(  7) = 0.2517859777112060D-02
        ws(  8) = 0.3056163525397324D-02
        ws(  9) = 0.3604154652140890D-02
        ws( 10) = 0.4144167453228393D-02
        ws( 11) = 0.4663013660388261D-02
        ws( 12) = 0.5152345767026014D-02
        ws( 13) = 0.5607833851744200D-02
        ws( 14) = 0.6028062652501989D-02
        ws( 15) = 0.6413559819593342D-02
        ws( 16) = 0.6766057188330066D-02
        ws( 17) = 0.7087966282291446D-02
        ws( 18) = 0.7382018875461291D-02
        ws( 19) = 0.7651027856081438D-02
        ws( 20) = 0.7897735268875061D-02
        ws( 21) = 0.8124723285565372D-02
        ws( 22) = 0.8334369504442090D-02
        ws( 23) = 0.8528832083230072D-02
        ws( 24) = 0.8710053830396544D-02
        ws( 25) = 0.8879777448250963D-02
        ws( 26) = 0.9039566744420129D-02
        ws( 27) = 0.9190830682370083D-02
        ws( 28) = 0.9334847543473586D-02
        ws( 29) = 0.9472788971345425D-02
        ws( 30) = 0.9605745245270293D-02
        ws( 31) = 0.9734757332059189D-02
        ws( 32) = 0.9860865696732899D-02
        ws( 33) = 0.9985164430982026D-02
        ws( 34) = 0.1010876277527763D-01
        ws( 35) = 0.1023217758684038D-01
        ws( 36) = 0.1035346531428755D-01
        ws( 37) = 0.1046860759794733D-01
        ws( 38) = 0.1059052396311732D-01
        ws( 39) = 0.1080860927411910D-01
        ws( 40) = 0.1133191979671127D-01
        ws( 41) = 0.1210989935158229D-01
        ws( 42) = 0.1103426059273655D-01
        endif
        if( idomain .eq.   31 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.2000000000000000D-01
        rk1r = 0.3141592653589793D+01
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  45
        err = 0.7294902327474942D-13
        xs(  1) = 0.4333791614647075D-04
        xs(  2) = 0.2309523956721121D-03
        xs(  3) = 0.5793235220779642D-03
        xs(  4) = 0.1107865209378360D-02
        xs(  5) = 0.1846036960328613D-02
        xs(  6) = 0.2834477819263083D-02
        xs(  7) = 0.4125290520780975D-02
        xs(  8) = 0.5780343991799866D-02
        xs(  9) = 0.7866331164298751D-02
        xs( 10) = 0.1044610874514024D-01
        xs( 11) = 0.1356782781695096D-01
        xs( 12) = 0.1725584864976027D-01
        xs( 13) = 0.2150809977708731D-01
        xs( 14) = 0.2630107546242561D-01
        xs( 15) = 0.3159860994611905D-01
        xs( 16) = 0.3735956886745321D-01
        xs( 17) = 0.4354255948560370D-01
        xs( 18) = 0.5010826593828603D-01
        xs( 19) = 0.5702049183473342D-01
        xs( 20) = 0.6424657348453112D-01
        xs( 21) = 0.7175745542522194D-01
        xs( 22) = 0.7952756055511487D-01
        xs( 23) = 0.8753453750183257D-01
        xs( 24) = 0.9575894761216688D-01
        xs( 25) = 0.1041839368973907D+00
        xs( 26) = 0.1127949220666230D+00
        xs( 27) = 0.1215793065845614D+00
        xs( 28) = 0.1305262335044344D+00
        xs( 29) = 0.1396263762477992D+00
        xs( 30) = 0.1488717656704517D+00
        xs( 31) = 0.1582556505506638D+00
        xs( 32) = 0.1677723887886741D+00
        xs( 33) = 0.1774173674973764D+00
        xs( 34) = 0.1871869475996790D+00
        xs( 35) = 0.1970784332706500D+00
        xs( 36) = 0.2070900766054831D+00
        xs( 37) = 0.2172211045565560D+00
        xs( 38) = 0.2274718163077354D+00
        xs( 39) = 0.2378439134912486D+00
        xs( 40) = 0.2483410148563382D+00
        xs( 41) = 0.2589688491785646D+00
        xs( 42) = 0.2697332296782279D+00
        xs( 43) = 0.2806183875208668D+00
        xs( 44) = 0.2915356183331147D+00
        xs( 45) = 0.3024144404876426D+00
        ws(  1) = 0.1115147089599418D-03
        ws(  2) = 0.2655250540446545D-03
        ws(  3) = 0.4344279861193096D-03
        ws(  4) = 0.6275451849381688D-03
        ws(  5) = 0.8555638777287013D-03
        ws(  6) = 0.1130026546039916D-02
        ws(  7) = 0.1461991044014856D-02
        ws(  8) = 0.1859378982779558D-02
        ws(  9) = 0.2323262762308142D-02
        ws( 10) = 0.2844482188488094D-02
        ws( 11) = 0.3403063953499315D-02
        ws( 12) = 0.3972537661193100D-02
        ws( 13) = 0.4527887182595716D-02
        ws( 14) = 0.5051904437957211D-02
        ws( 15) = 0.5536232754848076D-02
        ws( 16) = 0.5978750240858012D-02
        ws( 17) = 0.6380662470309509D-02
        ws( 18) = 0.6744711413978443D-02
        ws( 19) = 0.7074295448298821D-02
        ws( 20) = 0.7373027627974525D-02
        ws( 21) = 0.7644477762335321D-02
        ws( 22) = 0.7892012593366107D-02
        ws( 23) = 0.8118707060369610D-02
        ws( 24) = 0.8327309431217544D-02
        ws( 25) = 0.8520243336448637D-02
        ws( 26) = 0.8699631696754237D-02
        ws( 27) = 0.8867331328917767D-02
        ws( 28) = 0.9024970981332162D-02
        ws( 29) = 0.9173988727349269D-02
        ws( 30) = 0.9315666832766989D-02
        ws( 31) = 0.9451163451387906D-02
        ws( 32) = 0.9581542797917409D-02
        ws( 33) = 0.9707804570456377D-02
        ws( 34) = 0.9830912540817183D-02
        ws( 35) = 0.9951824152563446D-02
        ws( 36) = 0.1007149550827060D-01
        ws( 37) = 0.1019075489478877D-01
        ws( 38) = 0.1031014433555747D-01
        ws( 39) = 0.1042998373380828D-01
        ws( 40) = 0.1055308553547755D-01
        ws( 41) = 0.1069931673175566D-01
        ws( 42) = 0.1093282692024377D-01
        ws( 43) = 0.1131138752004010D-01
        ws( 44) = 0.1152137913834700D-01
        ws( 45) = 0.1005805129468087D-01
        endif
        if( idomain .eq.   32 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.2000000000000000D-01
        rk1r = 0.6283185307179586D+01
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  48
        err = 0.8862394141765299D-13
        xs(  1) = 0.2037417728072108D-04
        xs(  2) = 0.1080440867355136D-03
        xs(  3) = 0.2686535238535702D-03
        xs(  4) = 0.5074020620140383D-03
        xs(  5) = 0.8322606710223858D-03
        xs(  6) = 0.1254588916594685D-02
        xs(  7) = 0.1789968246390528D-02
        xs(  8) = 0.2459316653121816D-02
        xs(  9) = 0.3290318142265000D-02
        xs( 10) = 0.4319147559226262D-02
        xs( 11) = 0.5592338511925474D-02
        xs( 12) = 0.7168368264711157D-02
        xs( 13) = 0.9118060570388685D-02
        xs( 14) = 0.1152226214566336D-01
        xs( 15) = 0.1446475196493512D-01
        xs( 16) = 0.1801898109357819D-01
        xs( 17) = 0.2223064157262875D-01
        xs( 18) = 0.2710396284878262D-01
        xs( 19) = 0.3260151637254725D-01
        xs( 20) = 0.3865852093137889D-01
        xs( 21) = 0.4520164941543301D-01
        xs( 22) = 0.5216242935838973D-01
        xs( 23) = 0.5948293038769704D-01
        xs( 24) = 0.6711633327234072D-01
        xs( 25) = 0.7502534914380017D-01
        xs( 26) = 0.8318020773712358D-01
        xs( 27) = 0.9155689373207943D-01
        xs( 28) = 0.1001357863774627D+00
        xs( 29) = 0.1089006634369771D+00
        xs( 30) = 0.1178379847902337D+00
        xs( 31) = 0.1269363775438184D+00
        xs( 32) = 0.1361862634264658D+00
        xs( 33) = 0.1455795870394927D+00
        xs( 34) = 0.1551096172259730D+00
        xs( 35) = 0.1647708032078603D+00
        xs( 36) = 0.1745586740992207D+00
        xs( 37) = 0.1844697743646474D+00
        xs( 38) = 0.1945016296443038D+00
        xs( 39) = 0.2046527400368977D+00
        xs( 40) = 0.2149225980907157D+00
        xs( 41) = 0.2253118233581476D+00
        xs( 42) = 0.2358226466261537D+00
        xs( 43) = 0.2464595722650675D+00
        xs( 44) = 0.2572290205405717D+00
        xs( 45) = 0.2681307319990553D+00
        xs( 46) = 0.2791366065956302D+00
        xs( 47) = 0.2901746991048105D+00
        xs( 48) = 0.3011626852289914D+00
        ws(  1) = 0.5236537919559075D-04
        ws(  2) = 0.1234770270439516D-03
        ws(  3) = 0.1985994138521798D-03
        ws(  4) = 0.2802162363116794D-03
        ws(  5) = 0.3713804789867400D-03
        ws(  6) = 0.4758544346900504D-03
        ws(  7) = 0.5983667166175541D-03
        ws(  8) = 0.7449150434859305D-03
        ws(  9) = 0.9230850124937917D-03
        ws( 10) = 0.1142300953908690D-02
        ws( 11) = 0.1413816760126344D-02
        ws( 12) = 0.1750080197874719D-02
        ws( 13) = 0.2162892550971451D-02
        ws( 14) = 0.2659697942816745D-02
        ws( 15) = 0.3237834075544658D-02
        ws( 16) = 0.3878497113011203D-02
        ws( 17) = 0.4545535993311230D-02
        ws( 18) = 0.5194599694005648D-02
        ws( 19) = 0.5789370066226455D-02
        ws( 20) = 0.6312191134594480D-02
        ws( 21) = 0.6762567216515449D-02
        ws( 22) = 0.7149335659429875D-02
        ws( 23) = 0.7483893433963397D-02
        ws( 24) = 0.7776732442248913D-02
        ws( 25) = 0.8036367228349052D-02
        ws( 26) = 0.8269369933274142D-02
        ws( 27) = 0.8480748314005688D-02
        ws( 28) = 0.8674345021084263D-02
        ws( 29) = 0.8853160851498598D-02
        ws( 30) = 0.9019592484560487D-02
        ws( 31) = 0.9175601119303479D-02
        ws( 32) = 0.9322831401796029D-02
        ws( 33) = 0.9462696443612429D-02
        ws( 34) = 0.9596440331132669D-02
        ws( 35) = 0.9725186044900093D-02
        ws( 36) = 0.9849976182013925D-02
        ws( 37) = 0.9971811448761083D-02
        ws( 38) = 0.1009169080128235D-01
        ws( 39) = 0.1021061823916817D-01
        ws( 40) = 0.1032946449170006D-01
        ws( 41) = 0.1044866701101646D-01
        ws( 42) = 0.1056834677415345D-01
        ws( 43) = 0.1069283557341589D-01
        ws( 44) = 0.1084681010257947D-01
        ws( 45) = 0.1108564073024671D-01
        ws( 46) = 0.1141177960094554D-01
        ws( 47) = 0.1139809171426214D-01
        ws( 48) = 0.9988123362618872D-02
        endif
        if( idomain .eq.   33 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.2000000000000000D-01
        rk1r = 0.9424777960769379D+01
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  52
        err = 0.8998415023384982D-13
        xs(  1) = 0.1170063735247528D-04
        xs(  2) = 0.6188482384272567D-04
        xs(  3) = 0.1531414404343266D-03
        xs(  4) = 0.2872089689101845D-03
        xs(  5) = 0.4666941936228417D-03
        xs(  6) = 0.6952280525966811D-03
        xs(  7) = 0.9776631935945984D-03
        xs(  8) = 0.1320339250853581D-02
        xs(  9) = 0.1731435777846024D-02
        xs( 10) = 0.2221439115775520D-02
        xs( 11) = 0.2803757726281057D-02
        xs( 12) = 0.3495529369687663D-02
        xs( 13) = 0.4318670825630686D-02
        xs( 14) = 0.5301221575708086D-02
        xs( 15) = 0.6479016187283152D-02
        xs( 16) = 0.7897664997369588D-02
        xs( 17) = 0.9614691483737402D-02
        xs( 18) = 0.1170140615571173D-01
        xs( 19) = 0.1424360333726605D-01
        xs( 20) = 0.1733936515329678D-01
        xs( 21) = 0.2109125782999676D-01
        xs( 22) = 0.2558998736631508D-01
        xs( 23) = 0.3088993961918739D-01
        xs( 24) = 0.3698625278433979D-01
        xs( 25) = 0.4381053162063998D-01
        xs( 26) = 0.5125214884061171D-01
        xs( 27) = 0.5919060301678973D-01
        xs( 28) = 0.6751940014890898D-01
        xs( 29) = 0.7615522120820958D-01
        xs( 30) = 0.8503711423515097D-01
        xs( 31) = 0.9412187874105242D-01
        xs( 32) = 0.1033791747446992D+00
        xs( 33) = 0.1127876015535704D+00
        xs( 34) = 0.1223318897903992D+00
        xs( 35) = 0.1320009943158627D+00
        xs( 36) = 0.1417868315801589D+00
        xs( 37) = 0.1516834542540177D+00
        xs( 38) = 0.1616865166115849D+00
        xs( 39) = 0.1717929330646919D+00
        xs( 40) = 0.1820006671204697D+00
        xs( 41) = 0.1923086117774179D+00
        xs( 42) = 0.2027165390787501D+00
        xs( 43) = 0.2132251041879998D+00
        xs( 44) = 0.2238359059774979D+00
        xs( 45) = 0.2345515691195186D+00
        xs( 46) = 0.2453758672605892D+00
        xs( 47) = 0.2563142220803352D+00
        xs( 48) = 0.2673754581021056D+00
        xs( 49) = 0.2785634356961703D+00
        xs( 50) = 0.2898490870079808D+00
        xs( 51) = 0.3013550780346295D+00
        xs( 52) = 0.3129114859977793D+00
        ws(  1) = 0.3005428986334973D-04
        ws(  2) = 0.7049500474542630D-04
        ws(  3) = 0.1123049133741854D-03
        ws(  4) = 0.1562621887290864D-03
        ws(  5) = 0.2033101645803734D-03
        ws(  6) = 0.2545619525115371D-03
        ws(  7) = 0.3113591149165953D-03
        ws(  8) = 0.3753485592679453D-03
        ws(  9) = 0.4485820664088673D-03
        ws( 10) = 0.5336460230173812D-03
        ws( 11) = 0.6338301246601112D-03
        ws( 12) = 0.7533436608456842D-03
        ws( 13) = 0.8975846047886635D-03
        ws( 14) = 0.1073456003234115D-02
        ws( 15) = 0.1289698407514893D-02
        ws( 16) = 0.1557153182284062D-02
        ws( 17) = 0.1888769305661599D-02
        ws( 18) = 0.2298989074570219D-02
        ws( 19) = 0.2801874094335479D-02
        ws( 20) = 0.3407014256865340D-02
        ws( 21) = 0.4112318686350739D-02
        ws( 22) = 0.4894636613037391D-02
        ws( 23) = 0.5704553113076977D-02
        ws( 24) = 0.6476274414335980D-02
        ws( 25) = 0.7153250140823049D-02
        ws( 26) = 0.7709490770965719D-02
        ws( 27) = 0.8149531805249549D-02
        ws( 28) = 0.8494205383739023D-02
        ws( 29) = 0.8767362981710930D-02
        ws( 30) = 0.8989306938512140D-02
        ws( 31) = 0.9175230823576006D-02
        ws( 32) = 0.9335840589681173D-02
        ws( 33) = 0.9478499277961067D-02
        ws( 34) = 0.9608256887564608D-02
        ws( 35) = 0.9728618309972129D-02
        ws( 36) = 0.9842073652965315D-02
        ws( 37) = 0.9950452913734021D-02
        ws( 38) = 0.1005516105259965D-01
        ws( 39) = 0.1015733509190597D-01
        ws( 40) = 0.1025795106553549D-01
        ws( 41) = 0.1035789932951165D-01
        ws( 42) = 0.1045804451602628D-01
        ws( 43) = 0.1055928786692036D-01
        ws( 44) = 0.1066268137439488D-01
        ws( 45) = 0.1076943450105564D-01
        ws( 46) = 0.1088065371755830D-01
        ws( 47) = 0.1099752162218546D-01
        ws( 48) = 0.1112962114725780D-01
        ws( 49) = 0.1130954520666849D-01
        ws( 50) = 0.1143438064623617D-01
        ws( 51) = 0.1127750191986670D-01
        ws( 52) = 0.1182773673987435D-01
        endif
        if( idomain .eq.   34 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.2000000000000000D-01
        rk1r = 0.1256637061435917D+02
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  54
        err = 0.6690007955624808D-13
        xs(  1) = 0.7856970198024860D-05
        xs(  2) = 0.4150236882106219D-04
        xs(  3) = 0.1024638602454802D-03
        xs(  4) = 0.1915120051468547D-03
        xs(  5) = 0.3097843785117916D-03
        xs(  6) = 0.4588435020139761D-03
        xs(  7) = 0.6407424640442047D-03
        xs(  8) = 0.8581099066981732D-03
        xs(  9) = 0.1114259583086510D-02
        xs( 10) = 0.1413331133411063D-02
        xs( 11) = 0.1760471219578827D-02
        xs( 12) = 0.2162067463385369D-02
        xs( 13) = 0.2626051965086083D-02
        xs( 14) = 0.3162296849421517D-02
        xs( 15) = 0.3783131620713167D-02
        xs( 16) = 0.4504021313570530D-02
        xs( 17) = 0.5344455285595919D-02
        xs( 18) = 0.6329107717337705D-02
        xs( 19) = 0.7489338722648280D-02
        xs( 20) = 0.8865100555071810D-02
        xs( 21) = 0.1050727761509268D-01
        xs( 22) = 0.1248038308237037D-01
        xs( 23) = 0.1486528376088148D-01
        xs( 24) = 0.1776108953456489D-01
        xs( 25) = 0.2128430893463022D-01
        xs( 26) = 0.2556171074112138D-01
        xs( 27) = 0.3071190309951128D-01
        xs( 28) = 0.3681327464700178D-01
        xs( 29) = 0.4386823550036539D-01
        xs( 30) = 0.5178907619937484D-01
        xs( 31) = 0.6042284724027884D-01
        xs( 32) = 0.6959894317431085D-01
        xs( 33) = 0.7916744879262205D-01
        xs( 34) = 0.8901453165814757D-01
        xs( 35) = 0.9906112356124284D-01
        xs( 36) = 0.1092551628837604D+00
        xs( 37) = 0.1195634965183212D+00
        xs( 38) = 0.1299655419372266D+00
        xs( 39) = 0.1404488817307599D+00
        xs( 40) = 0.1510063718509444D+00
        xs( 41) = 0.1616342987980598D+00
        xs( 42) = 0.1723312255893897D+00
        xs( 43) = 0.1830972802072748D+00
        xs( 44) = 0.1939337257086062D+00
        xs( 45) = 0.2048427096760174D+00
        xs( 46) = 0.2158271309755965D+00
        xs( 47) = 0.2268905691948842D+00
        xs( 48) = 0.2380371913873799D+00
        xs( 49) = 0.2492712152066847D+00
        xs( 50) = 0.2605972551852447D+00
        xs( 51) = 0.2720184706493312D+00
        xs( 52) = 0.2834947508665926D+00
        xs( 53) = 0.2950497864795873D+00
        xs( 54) = 0.3059950342072557D+00
        ws(  1) = 0.2017539864210360D-04
        ws(  2) = 0.4720198517914724D-04
        ws(  3) = 0.7484786690275021D-04
        ws(  4) = 0.1034371641669401D-03
        ws(  5) = 0.1333669225225080D-03
        ws(  6) = 0.1650921008771405D-03
        ws(  7) = 0.1991421197704508D-03
        ws(  8) = 0.2361427329091771D-03
        ws(  9) = 0.2768435702206930D-03
        ws( 10) = 0.3221534478586120D-03
        ws( 11) = 0.3731863222451047D-03
        ws( 12) = 0.4313216597839680D-03
        ws( 13) = 0.4982841672554388D-03
        ws( 14) = 0.5762493346708426D-03
        ws( 15) = 0.6679830468649616D-03
        ws( 16) = 0.7770253916868494D-03
        ws( 17) = 0.9079300619487038D-03
        ws( 18) = 0.1066569810763450D-02
        ws( 19) = 0.1260511778108484D-02
        ws( 20) = 0.1499447000106769D-02
        ws( 21) = 0.1795612042445866D-02
        ws( 22) = 0.2164040977811420D-02
        ws( 23) = 0.2622284417870842D-02
        ws( 24) = 0.3188851056106337D-02
        ws( 25) = 0.3879012754485267D-02
        ws( 26) = 0.4696113021068167D-02
        ws( 27) = 0.5618003524759057D-02
        ws( 28) = 0.6585434938143573D-02
        ws( 29) = 0.7509404128207781D-02
        ws( 30) = 0.8305897729795245D-02
        ws( 31) = 0.8932540478074879D-02
        ws( 32) = 0.9394432363627910D-02
        ws( 33) = 0.9723656041377461D-02
        ws( 34) = 0.9957474828142372D-02
        ws( 35) = 0.1012717105408216D-01
        ws( 36) = 0.1025548760798126D-01
        ws( 37) = 0.1035782148115981D-01
        ws( 38) = 0.1044424683496009D-01
        ws( 39) = 0.1052127197151468D-01
        ws( 40) = 0.1059310817599996D-01
        ws( 41) = 0.1066251813167766D-01
        ws( 42) = 0.1073136413022957D-01
        ws( 43) = 0.1080095829486375D-01
        ws( 44) = 0.1087228448619928D-01
        ws( 45) = 0.1094614213899464D-01
        ws( 46) = 0.1102324494251525D-01
        ws( 47) = 0.1110432419191501D-01
        ws( 48) = 0.1119068508103816D-01
        ws( 49) = 0.1128331903853855D-01
        ws( 50) = 0.1137992556347834D-01
        ws( 51) = 0.1151446492666231D-01
        ws( 52) = 0.1160698831999778D-01
        ws( 53) = 0.1139939947417602D-01
        ws( 54) = 0.9614882541725434D-02
        endif
        if( idomain .eq.   35 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.2000000000000000D-01
        rk1r = 0.1570796326794897D+02
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  57
        err = 0.8943787001996630D-13
        xs(  1) = 0.5609570074498083D-05
        xs(  2) = 0.2960832483571102D-04
        xs(  3) = 0.7299727874923097D-04
        xs(  4) = 0.1361591809589582D-03
        xs(  5) = 0.2196510715534701D-03
        xs(  6) = 0.3242303282387452D-03
        xs(  7) = 0.4508801005072563D-03
        xs(  8) = 0.6008410151182481D-03
        xs(  9) = 0.7756507130044732D-03
        xs( 10) = 0.9771929066612968D-03
        xs( 11) = 0.1207758250249922D-02
        xs( 12) = 0.1470120125198056D-02
        xs( 13) = 0.1767629485213120D-02
        xs( 14) = 0.2104334258763419D-02
        xs( 15) = 0.2485130596287500D-02
        xs( 16) = 0.2915955639564509D-02
        xs( 17) = 0.3404034701358818D-02
        xs( 18) = 0.3958200058198250D-02
        xs( 19) = 0.4589304329404126D-02
        xs( 20) = 0.5310759042439099D-02
        xs( 21) = 0.6139238844646036D-02
        xs( 22) = 0.7095604062299414D-02
        xs( 23) = 0.8206108364088331D-02
        xs( 24) = 0.9503971803636494D-02
        xs( 25) = 0.1103140605150242D-01
        xs( 26) = 0.1284216279137986D-01
        xs( 27) = 0.1500460339921785D-01
        xs( 28) = 0.1760508236599301D-01
        xs( 29) = 0.2075093881245790D-01
        xs( 30) = 0.2457130245778386D-01
        xs( 31) = 0.2921189446370183D-01
        xs( 32) = 0.3481749321283602D-01
        xs( 33) = 0.4149651947898542D-01
        xs( 34) = 0.4927436803890949D-01
        xs( 35) = 0.5806437844552274D-01
        xs( 36) = 0.6768692301934624D-01
        xs( 37) = 0.7792734274970768D-01
        xs( 38) = 0.8859085749477565D-01
        xs( 39) = 0.9952848682531913D-01
        xs( 40) = 0.1106381004818428D+00
        xs( 41) = 0.1218546490883202D+00
        xs( 42) = 0.1331390417682325D+00
        xs( 43) = 0.1444692411071551D+00
        xs( 44) = 0.1558340548741948D+00
        xs( 45) = 0.1672290905060278D+00
        xs( 46) = 0.1786542166252832D+00
        xs( 47) = 0.1901120129918604D+00
        xs( 48) = 0.2016068537050454D+00
        xs( 49) = 0.2131444041868644D+00
        xs( 50) = 0.2247313551940723D+00
        xs( 51) = 0.2363752798117559D+00
        xs( 52) = 0.2480851414025456D+00
        xs( 53) = 0.2598689879810853D+00
        xs( 54) = 0.2717446472115566D+00
        xs( 55) = 0.2836984751303772D+00
        xs( 56) = 0.2957108574886321D+00
        xs( 57) = 0.3074793725018127D+00
        ws(  1) = 0.1440186514335420D-04
        ws(  2) = 0.3364259098362639D-04
        ws(  3) = 0.5319816392839972D-04
        ws(  4) = 0.7321812350773621D-04
        ws(  5) = 0.9389146952335792D-04
        ws(  6) = 0.1154303767916504D-03
        ws(  7) = 0.1380752838343354D-03
        ws(  8) = 0.1621020066380989D-03
        ws(  9) = 0.1878303340144776D-03
        ws( 10) = 0.2156345756442917D-03
        ws( 11) = 0.2459567739417527D-03
        ws( 12) = 0.2793234953137319D-03
        ws( 13) = 0.3163673813948825D-03
        ws( 14) = 0.3578550082089836D-03
        ws( 15) = 0.4047231111941665D-03
        ws( 16) = 0.4581259349018536D-03
        ws( 17) = 0.5194974170824233D-03
        ws( 18) = 0.5906331857387954D-03
        ws( 19) = 0.6737989990320965D-03
        ws( 20) = 0.7718743178400360D-03
        ws( 21) = 0.8885420732169848D-03
        ws( 22) = 0.1028537970487726D-02
        ws( 23) = 0.1197973743772630D-02
        ws( 24) = 0.1404745983050307D-02
        ws( 25) = 0.1659029576535428D-02
        ws( 26) = 0.1973819617818469D-02
        ws( 27) = 0.2365400285634731D-02
        ws( 28) = 0.2853425384532027D-02
        ws( 29) = 0.3459879914320645D-02
        ws( 30) = 0.4205408496199287D-02
        ws( 31) = 0.5100504128244477D-02
        ws( 32) = 0.6129617597864652D-02
        ws( 33) = 0.7233248878067816D-02
        ws( 34) = 0.8307661251663491D-02
        ws( 35) = 0.9241327523134862D-02
        ws( 36) = 0.9967004402399773D-02
        ws( 37) = 0.1048096160988302D-01
        ws( 38) = 0.1082125936573943D-01
        ws( 39) = 0.1103716254582349D-01
        ws( 40) = 0.1117141568378911D-01
        ws( 41) = 0.1125531513518038D-01
        ws( 42) = 0.1130989921736982D-01
        ws( 43) = 0.1134869986115880D-01
        ws( 44) = 0.1138023656378330D-01
        ws( 45) = 0.1140983748983617D-01
        ws( 46) = 0.1144085961890257D-01
        ws( 47) = 0.1147547623475195D-01
        ws( 48) = 0.1151518020369420D-01
        ws( 49) = 0.1156110617457403D-01
        ws( 50) = 0.1161434767307904D-01
        ws( 51) = 0.1167562516764970D-01
        ws( 52) = 0.1174514976986801D-01
        ws( 53) = 0.1182768290317128D-01
        ws( 54) = 0.1192148388818357D-01
        ws( 55) = 0.1205529445814680D-01
        ws( 56) = 0.1232637750703674D-01
        ws( 57) = 0.1129534835387507D-01
        endif
        if( idomain .eq.   36 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.2000000000000000D-01
        rk1r = 0.1884955592153876D+02
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  60
        err = 0.9396820084125848D-13
        xs(  1) = 0.4236100904839574D-05
        xs(  2) = 0.2234811416284030D-04
        xs(  3) = 0.5504957879736602D-04
        xs(  4) = 0.1025510669966145D-03
        xs(  5) = 0.1651551310171715D-03
        xs(  6) = 0.2432705841334781D-03
        xs(  7) = 0.3374243066896687D-03
        xs(  8) = 0.4482754029728971D-03
        xs(  9) = 0.5766323352558703D-03
        xs( 10) = 0.7234735326133677D-03
        xs( 11) = 0.8899721399005109D-03
        xs( 12) = 0.1077525811529697D-02
        xs( 13) = 0.1287792747927858D-02
        xs( 14) = 0.1522735533140867D-02
        xs( 15) = 0.1784674785790187D-02
        xs( 16) = 0.2076355219128176D-02
        xs( 17) = 0.2401027468760823D-02
        xs( 18) = 0.2762550055068670D-02
        xs( 19) = 0.3165517190779444D-02
        xs( 20) = 0.3615419943178360D-02
        xs( 21) = 0.4118850677995159D-02
        xs( 22) = 0.4683763966678511D-02
        xs( 23) = 0.5319811519742816D-02
        xs( 24) = 0.6038774588539961D-02
        xs( 25) = 0.6855125112747689D-02
        xs( 26) = 0.7786757188197713D-02
        xs( 27) = 0.8855943627986716D-02
        xs( 28) = 0.1009058854049538D-01
        xs( 29) = 0.1152586484138863D-01
        xs( 30) = 0.1320634136035722D-01
        xs( 31) = 0.1518870631145044D-01
        xs( 32) = 0.1754515325534261D-01
        xs( 33) = 0.2036734006287746D-01
        xs( 34) = 0.2377038768419845D-01
        xs( 35) = 0.2789527928050931D-01
        xs( 36) = 0.3290565851861578D-01
        xs( 37) = 0.3897138879482242D-01
        xs( 38) = 0.4623006697131587D-01
        xs( 39) = 0.5472973911211734D-01
        xs( 40) = 0.6438511997509734D-01
        xs( 41) = 0.7499059900827452D-01
        xs( 42) = 0.8628822038648290D-01
        xs( 43) = 0.9803925725587356D-01
        xs( 44) = 0.1100607643834963D+00
        xs( 45) = 0.1222288432001338D+00
        xs( 46) = 0.1344666338060455D+00
        xs( 47) = 0.1467300372218771D+00
        xs( 48) = 0.1589962219910464D+00
        xs( 49) = 0.1712556535914878D+00
        xs( 50) = 0.1835069546722123D+00
        xs( 51) = 0.1957537263556641D+00
        xs( 52) = 0.2080026302134811D+00
        xs( 53) = 0.2202623386319050D+00
        xs( 54) = 0.2325427419579556D+00
        xs( 55) = 0.2448552030840354D+00
        xs( 56) = 0.2572104902778033D+00
        xs( 57) = 0.2696196707118028D+00
        xs( 58) = 0.2820927662624575D+00
        xs( 59) = 0.2945580531208730D+00
        xs( 60) = 0.3065668701426256D+00
        ws(  1) = 0.1087442935729409D-04
        ws(  2) = 0.2537800977649561D-04
        ws(  3) = 0.4005936148430702D-04
        ws(  4) = 0.5499385997009901D-04
        ws(  5) = 0.7028221060361533D-04
        ws(  6) = 0.8603627413271195D-04
        ws(  7) = 0.1023807372517663D-03
        ws(  8) = 0.1194558571087112D-03
        ws(  9) = 0.1374206686206285D-03
        ws( 10) = 0.1564567565001001D-03
        ws( 11) = 0.1767728035430540D-03
        ws( 12) = 0.1986101805667565D-03
        ws( 13) = 0.2222499014983295D-03
        ws( 14) = 0.2480213455977473D-03
        ws( 15) = 0.2763132583812390D-03
        ws( 16) = 0.3075876949405873D-03
        ws( 17) = 0.3423977785668716D-03
        ws( 18) = 0.3814104334419913D-03
        ws( 19) = 0.4254356394065309D-03
        ws( 20) = 0.4754642857860187D-03
        ws( 21) = 0.5327174185771778D-03
        ws( 22) = 0.5987106440024585D-03
        ws( 23) = 0.6753387493736369D-03
        ws( 24) = 0.7649873162054041D-03
        ws( 25) = 0.8706803067790194D-03
        ws( 26) = 0.9962753154824271D-03
        ws( 27) = 0.1146721210463249D-02
        ws( 28) = 0.1328395583876320D-02
        ws( 29) = 0.1549539961599824D-02
        ws( 30) = 0.1820804566192359D-02
        ws( 31) = 0.2155890583884775D-02
        ws( 32) = 0.2572209570838622D-02
        ws( 33) = 0.3091302081420281D-02
        ws( 34) = 0.3738325248868761D-02
        ws( 35) = 0.4538979835216556D-02
        ws( 36) = 0.5510727922138769D-02
        ws( 37) = 0.6644701549146168D-02
        ws( 38) = 0.7881528100600856D-02
        ws( 39) = 0.9103385476790743D-02
        ws( 40) = 0.1017181439598762D-01
        ws( 41) = 0.1099485576141892D-01
        ws( 42) = 0.1156000980490958D-01
        ws( 43) = 0.1191157023323580D-01
        ws( 44) = 0.1211102520980794D-01
        ws( 45) = 0.1221257054078280D-01
        ws( 46) = 0.1225585300165813D-01
        ws( 47) = 0.1226727932272302D-01
        ws( 48) = 0.1226358486760387D-01
        ws( 49) = 0.1225510195692074D-01
        ws( 50) = 0.1224813604325791D-01
        ws( 51) = 0.1224654721820493D-01
        ws( 52) = 0.1225270361366672D-01
        ws( 53) = 0.1226822098068893D-01
        ws( 54) = 0.1229394655499928D-01
        ws( 55) = 0.1233237666580899D-01
        ws( 56) = 0.1238193398128409D-01
        ws( 57) = 0.1245424693921928D-01
        ws( 58) = 0.1258600544782590D-01
        ws( 59) = 0.1273301329962912D-01
        ws( 60) = 0.1160348091893632D-01
        endif
        if( idomain .eq.   37 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.2000000000000000D-01
        rk1r = 0.2199114857512855D+02
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  64
        err = 0.5570891980486796D-13
        xs(  1) = 0.3295881071051221D-05
        xs(  2) = 0.1738236094257742D-04
        xs(  3) = 0.4279304001029055D-04
        xs(  4) = 0.7965194284107794D-04
        xs(  5) = 0.1281348272087151D-03
        xs(  6) = 0.1884779365976205D-03
        xs(  7) = 0.2609840328935985D-03
        xs(  8) = 0.3460293701837904D-03
        xs(  9) = 0.4440719448607246D-03
        xs( 10) = 0.5556611853835957D-03
        xs( 11) = 0.6814492893259454D-03
        xs( 12) = 0.8222044967593027D-03
        xs( 13) = 0.9788266868255115D-03
        xs( 14) = 0.1152365798120775D-02
        xs( 15) = 0.1344043708371047D-02
        xs( 16) = 0.1555280373167473D-02
        xs( 17) = 0.1787725228604734D-02
        xs( 18) = 0.2043295123398509D-02
        xs( 19) = 0.2324220381903579D-02
        xs( 20) = 0.2633101036084986D-02
        xs( 21) = 0.2972975836158342D-02
        xs( 22) = 0.3347407402406602D-02
        xs( 23) = 0.3760587877017051D-02
        xs( 24) = 0.4217470759517334D-02
        xs( 25) = 0.4723936377959103D-02
        xs( 26) = 0.5287000817213288D-02
        xs( 27) = 0.5915081307398734D-02
        xs( 28) = 0.6618335352505924D-02
        xs( 29) = 0.7409096622353078D-02
        xs( 30) = 0.8302438308838615D-02
        xs( 31) = 0.9316904814726242D-02
        xs( 32) = 0.1047546586720394D-01
        xs( 33) = 0.1180676378399638D-01
        xs( 34) = 0.1334674421971754D-01
        xs( 35) = 0.1514078056209287D-01
        xs( 36) = 0.1724641354551736D-01
        xs( 37) = 0.1973680655681932D-01
        xs( 38) = 0.2270490015748454D-01
        xs( 39) = 0.2626787637861670D-01
        xs( 40) = 0.3057054701450347D-01
        xs( 41) = 0.3578400872703581D-01
        xs( 42) = 0.4209200029078289D-01
        xs( 43) = 0.4965469605754058D-01
        xs( 44) = 0.5854872331575039D-01
        xs( 45) = 0.6871168176453708D-01
        xs( 46) = 0.7994071205967522D-01
        xs( 47) = 0.9195744842653324D-01
        xs( 48) = 0.1044902610942476D+00
        xs( 49) = 0.1173236851252552D+00
        xs( 50) = 0.1303085414245216D+00
        xs( 51) = 0.1433510492790101D+00
        xs( 52) = 0.1563970371489295D+00
        xs( 53) = 0.1694184373579629D+00
        xs( 54) = 0.1824036345208340D+00
        xs( 55) = 0.1953511271342079D+00
        xs( 56) = 0.2082655481117063D+00
        xs( 57) = 0.2211552487890729D+00
        xs( 58) = 0.2340307967941842D+00
        xs( 59) = 0.2469041979471232D+00
        xs( 60) = 0.2597877314329161D+00
        xs( 61) = 0.2726846818938875D+00
        xs( 62) = 0.2856064848827381D+00
        xs( 63) = 0.2984717176553221D+00
        xs( 64) = 0.3107800179876021D+00
        ws(  1) = 0.8460180361118285D-05
        ws(  2) = 0.1973130209574337D-04
        ws(  3) = 0.3111024528511480D-04
        ws(  4) = 0.4263675224449741D-04
        ws(  5) = 0.5436829256301924D-04
        ws(  6) = 0.6636827076752420D-04
        ws(  7) = 0.7870649368518951D-04
        ws(  8) = 0.9146035261552622D-04
        ws(  9) = 0.1047161798799876D-03
        ws( 10) = 0.1185707804533413D-03
        ws( 11) = 0.1331332086842146D-03
        ws( 12) = 0.1485268805346482D-03
        ws( 13) = 0.1648921265908204D-03
        ws( 14) = 0.1823893090124946D-03
        ws( 15) = 0.2012026503598465D-03
        ws( 16) = 0.2215449568203485D-03
        ws( 17) = 0.2436634659229094D-03
        ws( 18) = 0.2678471133338053D-03
        ws( 19) = 0.2944356000707534D-03
        ws( 20) = 0.3238307577144357D-03
        ws( 21) = 0.3565108649746377D-03
        ws( 22) = 0.3930487781379552D-03
        ws( 23) = 0.4341350195514035D-03
        ws( 24) = 0.4806073485174717D-03
        ws( 25) = 0.5334888532726501D-03
        ws( 26) = 0.5940372988346310D-03
        ws( 27) = 0.6638094061144467D-03
        ws( 28) = 0.7447450025467887D-03
        ws( 29) = 0.8392776683740049D-03
        ws( 30) = 0.9504807035830629D-03
        ws( 31) = 0.1082260022894118D-02
        ws( 32) = 0.1239608887299433D-02
        ws( 33) = 0.1428942782048155D-02
        ws( 34) = 0.1658534931601038D-02
        ws( 35) = 0.1939070335169992D-02
        ws( 36) = 0.2284319581917249D-02
        ws( 37) = 0.2711879326320259D-02
        ws( 38) = 0.3243773850408245D-02
        ws( 39) = 0.3906318487994861D-02
        ws( 40) = 0.4727737710175202D-02
        ws( 41) = 0.5730398222953180D-02
        ws( 42) = 0.6913346401310437D-02
        ws( 43) = 0.8225891126630859D-02
        ws( 44) = 0.9551833899920856D-02
        ws( 45) = 0.1073903609621225D-01
        ws( 46) = 0.1167111909000909D-01
        ws( 47) = 0.1231625738748696D-01
        ws( 48) = 0.1271334417004128D-01
        ws( 49) = 0.1292886175424560D-01
        ws( 50) = 0.1302549899861718D-01
        ws( 51) = 0.1305071551421169D-01
        ws( 52) = 0.1303674131593879D-01
        ws( 53) = 0.1300422623635861D-01
        ws( 54) = 0.1296598210322956D-01
        ws( 55) = 0.1292981234684066D-01
        ws( 56) = 0.1290042349414927D-01
        ws( 57) = 0.1288066974905452D-01
        ws( 58) = 0.1287226733960561D-01
        ws( 59) = 0.1287758770065236D-01
        ws( 60) = 0.1290635830068206D-01
        ws( 61) = 0.1295003924133348D-01
        ws( 62) = 0.1298451415220777D-01
        ws( 63) = 0.1313654941004133D-01
        ws( 64) = 0.1145535811896815D-01
        endif
        if( idomain .eq.   38 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.2000000000000000D-01
        rk1r = 0.2513274122871834D+02
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  68
        err = 0.3953386282493413D-13
        xs(  1) = 0.2639246485593044D-05
        xs(  2) = 0.1391623805425448D-04
        xs(  3) = 0.3424630527425976D-04
        xs(  4) = 0.6370676923323310D-04
        xs(  5) = 0.1024056168733596D-03
        xs(  6) = 0.1504874338068689D-03
        xs(  7) = 0.2081368151995378D-03
        xs(  8) = 0.2755821608324930D-03
        xs(  9) = 0.3531000772544927D-03
        xs( 10) = 0.4410204478691823D-03
        xs( 11) = 0.5397322385849510D-03
        xs( 12) = 0.6496901385454366D-03
        xs( 13) = 0.7714221744479461D-03
        xs( 14) = 0.9055384803167217D-03
        xs( 15) = 0.1052741452984829D-02
        xs( 16) = 0.1213837579023795D-02
        xs( 17) = 0.1389751284482199D-02
        xs( 18) = 0.1581541238491086D-02
        xs( 19) = 0.1790419640529178D-02
        xs( 20) = 0.2017775145181098D-02
        xs( 21) = 0.2265200235585176D-02
        xs( 22) = 0.2534524057855460D-02
        xs( 23) = 0.2827851987242033D-02
        xs( 24) = 0.3147613530796105D-02
        xs( 25) = 0.3496620605075214D-02
        xs( 26) = 0.3878138793562322D-02
        xs( 27) = 0.4295974931038354D-02
        xs( 28) = 0.4754585340892082D-02
        xs( 29) = 0.5259210347506987D-02
        xs( 30) = 0.5816042410025243D-02
        xs( 31) = 0.6432437526405300D-02
        xs( 32) = 0.7117182641823411D-02
        xs( 33) = 0.7880835937890497D-02
        xs( 34) = 0.8736162443946698D-02
        xs( 35) = 0.9698694872151151D-02
        xs( 36) = 0.1078745952045234D-01
        xs( 37) = 0.1202592017244880D-01
        xs( 38) = 0.1344320972892304D-01
        xs( 39) = 0.1507573986639511D-01
        xs( 40) = 0.1696930157426960D-01
        xs( 41) = 0.1918178712569679D-01
        xs( 42) = 0.2178665628113528D-01
        xs( 43) = 0.2487717957819314D-01
        xs( 44) = 0.2857117284653206D-01
        xs( 45) = 0.3301504767950221D-01
        xs( 46) = 0.3838391088770200D-01
        xs( 47) = 0.4487065448228553D-01
        xs( 48) = 0.5265354419038078D-01
        xs( 49) = 0.6183781787677879D-01
        xs( 50) = 0.7239292783590520D-01
        xs( 51) = 0.8413453778281911D-01
        xs( 52) = 0.9677773827859960D-01
        xs( 53) = 0.1100239803644890D+00
        xs( 54) = 0.1236243523669120D+00
        xs( 55) = 0.1374003509939046D+00
        xs( 56) = 0.1512368996810968D+00
        xs( 57) = 0.1650662065692724D+00
        xs( 58) = 0.1788524565211455D+00
        xs( 59) = 0.1925803381382113D+00
        xs( 60) = 0.2062473067007425D+00
        xs( 61) = 0.2198586450724754D+00
        xs( 62) = 0.2334243598977222D+00
        xs( 63) = 0.2469571954103834D+00
        xs( 64) = 0.2604716187921048D+00
        xs( 65) = 0.2739753211781244D+00
        xs( 66) = 0.2874838794150422D+00
        xs( 67) = 0.3009008891777122D+00
        xs( 68) = 0.3141084899990675D+00
        ws(  1) = 0.6774320818081079D-05
        ws(  2) = 0.1579250579327825D-04
        ws(  3) = 0.2488014227580642D-04
        ws(  4) = 0.3405872042316281D-04
        ws(  5) = 0.4336301771676045D-04
        ws(  6) = 0.5283131902873391D-04
        ws(  7) = 0.6250543713126556D-04
        ws(  8) = 0.7243127087935462D-04
        ws(  9) = 0.8265944600583431D-04
        ws( 10) = 0.9324601252432544D-04
        ws( 11) = 0.1042532239569557D-03
        ws( 12) = 0.1157504347961502D-03
        ws( 13) = 0.1278151574312483D-03
        ws( 14) = 0.1405343241607151D-03
        ws( 15) = 0.1540058057939753D-03
        ws( 16) = 0.1683402468167909D-03
        ws( 17) = 0.1836632890444614D-03
        ws( 18) = 0.2001182720547630D-03
        ws( 19) = 0.2178695206158047D-03
        ws( 20) = 0.2371063583001503D-03
        ws( 21) = 0.2580480245395498D-03
        ws( 22) = 0.2809497223002183D-03
        ws( 23) = 0.3061100891524154D-03
        ws( 24) = 0.3338804709690835D-03
        ws( 25) = 0.3646764919395092D-03
        ws( 26) = 0.3989925667620613D-03
        ws( 27) = 0.4374202041471545D-03
        ws( 28) = 0.4806712233962908D-03
        ws( 29) = 0.5296073728624031D-03
        ws( 30) = 0.5852783346527237D-03
        ws( 31) = 0.6489707701711502D-03
        ws( 32) = 0.7222719676283950D-03
        ws( 33) = 0.8071528757617349D-03
        ws( 34) = 0.9060769478425175D-03
        ws( 35) = 0.1022143390999534D-02
        ws( 36) = 0.1159276222902372D-02
        ws( 37) = 0.1322474006701731D-02
        ws( 38) = 0.1518139028789720D-02
        ws( 39) = 0.1754508030862823D-02
        ws( 40) = 0.2042206482671006D-02
        ws( 41) = 0.2394936713169215D-02
        ws( 42) = 0.2830265442135711D-02
        ws( 43) = 0.3370342637520011D-02
        ws( 44) = 0.4042027793910219D-02
        ws( 45) = 0.4875060115297588D-02
        ws( 46) = 0.5895334408583187D-02
        ws( 47) = 0.7108883190363431D-02
        ws( 48) = 0.8475623787108633D-02
        ws( 49) = 0.9888222472955390D-02
        ws( 50) = 0.1119027156003039D-01
        ws( 51) = 0.1224384663453418D-01
        ws( 52) = 0.1299170487634479D-01
        ws( 53) = 0.1345899803822941D-01
        ws( 54) = 0.1371215985818121D-01
        ws( 55) = 0.1382094919141782D-01
        ws( 56) = 0.1384111003618924D-01
        ws( 57) = 0.1381172440519872D-01
        ws( 58) = 0.1375834935516270D-01
        ws( 59) = 0.1369706930219525D-01
        ws( 60) = 0.1363780451242849D-01
        ws( 61) = 0.1358663415434448D-01
        ws( 62) = 0.1354735801323514D-01
        ws( 63) = 0.1352207405745520D-01
        ws( 64) = 0.1351400342584604D-01
        ws( 65) = 0.1351859111956934D-01
        ws( 66) = 0.1352610972906056D-01
        ws( 67) = 0.1318575486022168D-01
        ws( 68) = 0.1233920550494039D-01
        endif
        if( idomain .eq.   39 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.2000000000000000D-01
        rk1r = 0.2827433388230814D+02
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  72
        err = 0.5023739381381398D-13
        xs(  1) = 0.2173303549216082D-05
        xs(  2) = 0.1145765355091950D-04
        xs(  3) = 0.2818818256757926D-04
        xs(  4) = 0.5241594449759240D-04
        xs(  5) = 0.8421112720585990D-04
        xs(  6) = 0.1236673887909010D-03
        xs(  7) = 0.1709039539844553D-03
        xs(  8) = 0.2260678601158185D-03
        xs(  9) = 0.2893365242251291D-03
        xs( 10) = 0.3609206591655233D-03
        xs( 11) = 0.4410675603954337D-03
        xs( 12) = 0.5300647985323762D-03
        xs( 13) = 0.6282443706453087D-03
        xs( 14) = 0.7359873828985346D-03
        xs( 15) = 0.8537293581385990D-03
        xs( 16) = 0.9819662847781678D-03
        xs( 17) = 0.1121261548774212D-02
        xs( 18) = 0.1272253919854569D-02
        xs( 19) = 0.1435666797960389D-02
        xs( 20) = 0.1612318968026410D-02
        xs( 21) = 0.1803137163024642D-02
        xs( 22) = 0.2009170799517204D-02
        xs( 23) = 0.2231609330416439D-02
        xs( 24) = 0.2471802760865074D-02
        xs( 25) = 0.2731286001118491D-02
        xs( 26) = 0.3011807892870302D-02
        xs( 27) = 0.3315365952926013D-02
        xs( 28) = 0.3644248144167637D-02
        xs( 29) = 0.4001083326580178D-02
        xs( 30) = 0.4388902485122876D-02
        xs( 31) = 0.4811213409245511D-02
        xs( 32) = 0.5272092255222769D-02
        xs( 33) = 0.5776296417352887D-02
        xs( 34) = 0.6329404449274824D-02
        xs( 35) = 0.6937990523751585D-02
        xs( 36) = 0.7609843250457359D-02
        xs( 37) = 0.8354241793937484D-02
        xs( 38) = 0.9182306429172437D-02
        xs( 39) = 0.1010744631765243D-01
        xs( 40) = 0.1114593488005310D-01
        xs( 41) = 0.1231765331519850D-01
        xs( 42) = 0.1364705631679682D-01
        xs( 43) = 0.1516443160873855D-01
        xs( 44) = 0.1690754687843126D-01
        xs( 45) = 0.1892380276555037D-01
        xs( 46) = 0.2127303266293574D-01
        xs( 47) = 0.2403108949630959D-01
        xs( 48) = 0.2729427977119768D-01
        xs( 49) = 0.3118439571768781D-01
        xs( 50) = 0.3585320118934847D-01
        xs( 51) = 0.4148308391070166D-01
        xs( 52) = 0.4827666142759643D-01
        xs( 53) = 0.5642443321875046D-01
        xs( 54) = 0.6604507321120159D-01
        xs( 55) = 0.7711867364427406D-01
        xs( 56) = 0.8946249561131603D-01
        xs( 57) = 0.1027804225494699D+00
        xs( 58) = 0.1167529952620358D+00
        xs( 59) = 0.1311079897110526D+00
        xs( 60) = 0.1456469756997409D+00
        xs( 61) = 0.1602404927965325D+00
        xs( 62) = 0.1748115807449613D+00
        xs( 63) = 0.1893192351362805D+00
        xs( 64) = 0.2037456589088318D+00
        xs( 65) = 0.2180874926683816D+00
        xs( 66) = 0.2323500183404339D+00
        xs( 67) = 0.2465432295639431D+00
        xs( 68) = 0.2606793378950289D+00
        xs( 69) = 0.2747649787948276D+00
        xs( 70) = 0.2887987044375949D+00
        xs( 71) = 0.3026912757799497D+00
        xs( 72) = 0.3160649903428696D+00
        ws(  1) = 0.5578155668213963D-05
        ws(  2) = 0.1299997697729427D-04
        ws(  3) = 0.2046928911492709D-04
        ws(  4) = 0.2799788996911666D-04
        ws(  5) = 0.3560805191673997D-04
        ws(  6) = 0.4332430480263691D-04
        ws(  7) = 0.5117328906194894D-04
        ws(  8) = 0.5918404415266977D-04
        ws(  9) = 0.6738834817711430D-04
        ws( 10) = 0.7582107619641865D-04
        ws( 11) = 0.8452058568385460D-04
        ws( 12) = 0.9352914561295186D-04
        ws( 13) = 0.1028934281231748D-03
        ws( 14) = 0.1126650830457183D-03
        ws( 15) = 0.1229014170422536D-03
        ws( 16) = 0.1336662012801186D-03
        ws( 17) = 0.1450306348128802D-03
        ws( 18) = 0.1570744954675489D-03
        ws( 19) = 0.1698875163767421D-03
        ws( 20) = 0.1835710347087502D-03
        ws( 21) = 0.1982399701247050D-03
        ws( 22) = 0.2140252046720698D-03
        ws( 23) = 0.2310764540760958D-03
        ws( 24) = 0.2495657438875442D-03
        ws( 25) = 0.2696916342625398D-03
        ws( 26) = 0.2916843764215347D-03
        ws( 27) = 0.3158122349264294D-03
        ws( 28) = 0.3423892767220413D-03
        ws( 29) = 0.3717850156806667D-03
        ws( 30) = 0.4044364173539698D-03
        ws( 31) = 0.4408629225849351D-03
        ws( 32) = 0.4816853539988558D-03
        ws( 33) = 0.5276498446092174D-03
        ws( 34) = 0.5796582981280042D-03
        ws( 35) = 0.6388073907085266D-03
        ws( 36) = 0.7064388010167961D-03
        ws( 37) = 0.7842042734817828D-03
        ws( 38) = 0.8741503629207928D-03
        ws( 39) = 0.9788293858942190D-03
        ws( 40) = 0.1101445345458277D-02
        ws( 41) = 0.1246046536147814D-02
        ws( 42) = 0.1417780255030285D-02
        ws( 43) = 0.1623229402180746D-02
        ws( 44) = 0.1870854939770815D-02
        ws( 45) = 0.2171569507530876D-02
        ws( 46) = 0.2539458153705657D-02
        ws( 47) = 0.2992620482532932D-02
        ws( 48) = 0.3553977014680079D-02
        ws( 49) = 0.4251521279349261D-02
        ws( 50) = 0.5116631898044050D-02
        ws( 51) = 0.6177419470190569D-02
        ws( 52) = 0.7442522756088615D-02
        ws( 53) = 0.8874053430011672D-02
        ws( 54) = 0.1036441626195207D-01
        ws( 55) = 0.1175140263231713D-01
        ws( 56) = 0.1288521081399359D-01
        ws( 57) = 0.1369616968393123D-01
        ws( 58) = 0.1420320846994680D-01
        ws( 59) = 0.1447384134237279D-01
        ws( 60) = 0.1458285468254575D-01
        ws( 61) = 0.1459163591892974D-01
        ws( 62) = 0.1454391795633834D-01
        ws( 63) = 0.1446857153121423D-01
        ws( 64) = 0.1438382784174554D-01
        ws( 65) = 0.1430084478499138D-01
        ws( 66) = 0.1422627266441527D-01
        ws( 67) = 0.1416271807008222D-01
        ws( 68) = 0.1411421271023629D-01
        ws( 69) = 0.1406006492503408D-01
        ws( 70) = 0.1404335638280052D-01
        ws( 71) = 0.1355843069785268D-01
        ws( 72) = 0.1204449973896056D-01
        endif
        if( idomain .eq.   40 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.2000000000000000D-01
        rk1r = 0.3141592653589793D+02
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  75
        err = 0.8222299593530726D-13
        xs(  1) = 0.1837514543634853D-05
        xs(  2) = 0.9686213835203500D-05
        xs(  3) = 0.2382492273508966D-04
        xs(  4) = 0.4428854365769533D-04
        xs(  5) = 0.7112425201259304D-04
        xs(  6) = 0.1043949100146110D-03
        xs(  7) = 0.1441805079244983D-03
        xs(  8) = 0.1905796498298063D-03
        xs(  9) = 0.2437112228805202D-03
        xs( 10) = 0.3037162637276996D-03
        xs( 11) = 0.3707600265652427D-03
        xs( 12) = 0.4450342638640237D-03
        xs( 13) = 0.5267597409179872D-03
        xs( 14) = 0.6161890161711421D-03
        xs( 15) = 0.7136095303793778D-03
        xs( 16) = 0.8193470590022783D-03
        xs( 17) = 0.9337695941283985D-03
        xs( 18) = 0.1057291735201413D-02
        xs( 19) = 0.1190379682452530D-02
        xs( 20) = 0.1333556943989305D-02
        xs( 21) = 0.1487410887797495D-02
        xs( 22) = 0.1652600294489934D-02
        xs( 23) = 0.1829864096697058D-02
        xs( 24) = 0.2020031528024943D-02
        xs( 25) = 0.2224033950368241D-02
        xs( 26) = 0.2442918685410988D-02
        xs( 27) = 0.2677865247398155D-02
        xs( 28) = 0.2930204463613807D-02
        xs( 29) = 0.3201441081538289D-02
        xs( 30) = 0.3493280604025362D-02
        xs( 31) = 0.3807661274807501D-02
        xs( 32) = 0.4146792367804617D-02
        xs( 33) = 0.4513200230544914D-02
        xs( 34) = 0.4909783915203182D-02
        xs( 35) = 0.5339882728205838D-02
        xs( 36) = 0.5807358678777221D-02
        xs( 37) = 0.6316697659581215D-02
        xs( 38) = 0.6873134319029332D-02
        xs( 39) = 0.7482807081511008D-02
        xs( 40) = 0.8152951772219284D-02
        xs( 41) = 0.8892144992439576D-02
        xs( 42) = 0.9710612026293641D-02
        xs( 43) = 0.1062061899881448D-01
        xs( 44) = 0.1163697574428285D-01
        xs( 45) = 0.1277768506658736D-01
        xs( 46) = 0.1406478670416021D-01
        xs( 47) = 0.1552546155078771D-01
        xs( 48) = 0.1719348494666419D-01
        xs( 49) = 0.1911114838817214D-01
        xs( 50) = 0.2133180648045272D-01
        xs( 51) = 0.2392324400576945D-01
        xs( 52) = 0.2697207084219854D-01
        xs( 53) = 0.3058925730834573D-01
        xs( 54) = 0.3491648387766524D-01
        xs( 55) = 0.4013162350579703D-01
        xs( 56) = 0.4644838331650094D-01
        xs( 57) = 0.5409945103469567D-01
        xs( 58) = 0.6328889618089370D-01
        xs( 59) = 0.7411275043939056D-01
        xs( 60) = 0.8648637407995302D-01
        xs( 61) = 0.1001434986328554D+00
        xs( 62) = 0.1147217337714036D+00
        xs( 63) = 0.1298699679179398D+00
        xs( 64) = 0.1453124606590142D+00
        xs( 65) = 0.1608613659136382D+00
        xs( 66) = 0.1764018465019614D+00
        xs( 67) = 0.1918709895830529D+00
        xs( 68) = 0.2072399155703763D+00
        xs( 69) = 0.2225010182052530D+00
        xs( 70) = 0.2376594496794964D+00
        xs( 71) = 0.2527275134339013D+00
        xs( 72) = 0.2677177271809714D+00
        xs( 73) = 0.2826399786535135D+00
        xs( 74) = 0.2973777692807719D+00
        xs( 75) = 0.3115650513498624D+00
        ws(  1) = 0.4716163523179472D-05
        ws(  2) = 0.1098845643186494D-04
        ws(  3) = 0.1729452691543813D-04
        ws(  4) = 0.2364054555687543D-04
        ws(  5) = 0.3004132562029067D-04
        ws(  6) = 0.3651329747998323D-04
        ws(  7) = 0.4307430454547667D-04
        ws(  8) = 0.4974376268944456D-04
        ws(  9) = 0.5654285507860220D-04
        ws( 10) = 0.6349473101922370D-04
        ws( 11) = 0.7062471156796531D-04
        ws( 12) = 0.7796051100889985D-04
        ws( 13) = 0.8553248481629629D-04
        ws( 14) = 0.9337391510025300D-04
        ws( 15) = 0.1015213447154703D-03
        ws( 16) = 0.1100149715889581D-03
        ws( 17) = 0.1188991156095719D-03
        ws( 18) = 0.1282227717676804D-03
        ws( 19) = 0.1380402652546561D-03
        ws( 20) = 0.1484120270439061D-03
        ws( 21) = 0.1594055122120766D-03
        ws( 22) = 0.1710962880974878D-03
        ws( 23) = 0.1835693255661078D-03
        ws( 24) = 0.1969205344854276D-03
        ws( 25) = 0.2112585944180704D-03
        ws( 26) = 0.2267071441147226D-03
        ws( 27) = 0.2434074093709798D-03
        ws( 28) = 0.2615213692304280D-03
        ws( 29) = 0.2812355867230848D-03
        ws( 30) = 0.3027658641373556D-03
        ws( 31) = 0.3263629266773996D-03
        ws( 32) = 0.3523193955447730D-03
        ws( 33) = 0.3809783864882924D-03
        ws( 34) = 0.4127441687767159D-03
        ws( 35) = 0.4480954507527848D-03
        ws( 36) = 0.4876020331379457D-03
        ws( 37) = 0.5319458060681585D-03
        ws( 38) = 0.5819473826487573D-03
        ws( 39) = 0.6386000916106027D-03
        ws( 40) = 0.7031136378255881D-03
        ws( 41) = 0.7769705426966937D-03
        ws( 42) = 0.8619995816697557D-03
        ws( 43) = 0.9604719612998143D-03
        ws( 44) = 0.1075228084552413D-02
        ws( 45) = 0.1209845654612421D-02
        ws( 46) = 0.1368863829052968D-02
        ws( 47) = 0.1558083431119143D-02
        ws( 48) = 0.1784969964752100D-02
        ws( 49) = 0.2059193762621675D-02
        ws( 50) = 0.2393347017871604D-02
        ws( 51) = 0.2803870302328747D-02
        ws( 52) = 0.3312169351016701D-02
        ws( 53) = 0.3945715009491784D-02
        ws( 54) = 0.4738364346173934D-02
        ws( 55) = 0.5727773554708268D-02
        ws( 56) = 0.6945303318872378D-02
        ws( 57) = 0.8392259377175556D-02
        ws( 58) = 0.1000404324513893D-01
        ws( 59) = 0.1162963071589617D-01
        ws( 60) = 0.1307161116608561D-01
        ws( 61) = 0.1418026700487142D-01
        ws( 62) = 0.1491661578597416D-01
        ws( 63) = 0.1533376056949938D-01
        ws( 64) = 0.1552021743573439D-01
        ws( 65) = 0.1555882441253267D-01
        ws( 66) = 0.1551195136351702D-01
        ws( 67) = 0.1542172932010490D-01
        ws( 68) = 0.1531498680435367D-01
        ws( 69) = 0.1520820524596453D-01
        ws( 70) = 0.1511096126689698D-01
        ws( 71) = 0.1502873889897814D-01
        ws( 72) = 0.1495885488297402D-01
        ws( 73) = 0.1493450505326229D-01
        ws( 74) = 0.1475116988859955D-01
        ws( 75) = 0.1225000702367528D-01
        endif
        if( idomain .eq.   41 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.2000000000000000D-01
        rk1r = 0.3455751918948772D+02
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  79
        err = 0.8725919138357997D-13
        xs(  1) = 0.1564596042067245D-05
        xs(  2) = 0.8246825254161610D-05
        xs(  3) = 0.2028123107602870D-04
        xs(  4) = 0.3769229135116069D-04
        xs(  5) = 0.6051244759234165D-04
        xs(  6) = 0.8878484334009417D-04
        xs(  7) = 0.1225643343943600D-03
        xs(  8) = 0.1619184892290955D-03
        xs(  9) = 0.2069286970534788D-03
        xs( 10) = 0.2576913923235526D-03
        xs( 11) = 0.3143193941215917D-03
        xs( 12) = 0.3769433618777208D-03
        xs( 13) = 0.4457133746665777D-03
        xs( 14) = 0.5208006476166080D-03
        xs( 15) = 0.6023994052490568D-03
        xs( 16) = 0.6907289377040756D-03
        xs( 17) = 0.7860358718984209D-03
        xs( 18) = 0.8885966958903818D-03
        xs( 19) = 0.9987205813685050D-03
        xs( 20) = 0.1116752556543706D-02
        xs( 21) = 0.1243077090160445D-02
        xs( 22) = 0.1378122157244179D-02
        xs( 23) = 0.1522363869014752D-02
        xs( 24) = 0.1676331763635983D-02
        xs( 25) = 0.1840614871757351D-02
        xs( 26) = 0.2015868691884676D-02
        xs( 27) = 0.2202823236421516D-02
        xs( 28) = 0.2402292340915309D-02
        xs( 29) = 0.2615184468095490D-02
        xs( 30) = 0.2842515286581805D-02
        xs( 31) = 0.3085422364077216D-02
        xs( 32) = 0.3345182389550940D-02
        xs( 33) = 0.3623231432388762D-02
        xs( 34) = 0.3921188863996575D-02
        xs( 35) = 0.4240885715770353D-02
        xs( 36) = 0.4584398435765022D-02
        xs( 37) = 0.4954089246823207D-02
        xs( 38) = 0.5352654617376275D-02
        xs( 39) = 0.5783183754061779D-02
        xs( 40) = 0.6249229541648239D-02
        xs( 41) = 0.6754895029735850D-02
        xs( 42) = 0.7304939450855407D-02
        xs( 43) = 0.7904908924370830D-02
        xs( 44) = 0.8561298556467587D-02
        xs( 45) = 0.9281754729411663D-02
        xs( 46) = 0.1007532917990623D-01
        xs( 47) = 0.1095280027274193D-01
        xs( 48) = 0.1192708207005408D-01
        xs( 49) = 0.1301374892442590D-01
        xs( 50) = 0.1423171315033638D-01
        xs( 51) = 0.1560410690881344D-01
        xs( 52) = 0.1715943818604346D-01
        xs( 53) = 0.1893311640384663D-01
        xs( 54) = 0.2096947749213732D-01
        xs( 55) = 0.2332448143387810D-01
        xs( 56) = 0.2606930131881134D-01
        xs( 57) = 0.2929504451678822D-01
        xs( 58) = 0.3311875201409143D-01
        xs( 59) = 0.3769034605987773D-01
        xs( 60) = 0.4319869493420895D-01
        xs( 61) = 0.4987131538720440D-01
        xs( 62) = 0.5795601893404773D-01
        xs( 63) = 0.6766917722235705D-01
        xs( 64) = 0.7911022162541101D-01
        xs( 65) = 0.9218477263569279D-01
        xs( 66) = 0.1066054420299298D+00
        xs( 67) = 0.1219843929716245D+00
        xs( 68) = 0.1379478301799950D+00
        xs( 69) = 0.1542035230062003D+00
        xs( 70) = 0.1705534260408195D+00
        xs( 71) = 0.1868774166810459D+00
        xs( 72) = 0.2031106526655819D+00
        xs( 73) = 0.2192244019099196D+00
        xs( 74) = 0.2352122882280269D+00
        xs( 75) = 0.2510802331211274D+00
        xs( 76) = 0.2668374266294425D+00
        xs( 77) = 0.2824947631806206D+00
        xs( 78) = 0.2979337943793975D+00
        xs( 79) = 0.3126087995108073D+00
        ws(  1) = 0.4015607400350836D-05
        ws(  2) = 0.9354522265396112D-05
        ws(  3) = 0.1471815682614406D-04
        ws(  4) = 0.2010934625754111D-04
        ws(  5) = 0.2553814121634256D-04
        ws(  6) = 0.3101577636413476D-04
        ws(  7) = 0.3655444869220628D-04
        ws(  8) = 0.4216740542996261D-04
        ws(  9) = 0.4786906030792532D-04
        ws( 10) = 0.5367510916765245D-04
        ws( 11) = 0.5960264471077064D-04
        ws( 12) = 0.6567027542102404D-04
        ws( 13) = 0.7189825485094568D-04
        ws( 14) = 0.7830862760846324D-04
        ws( 15) = 0.8492539825147007D-04
        ws( 16) = 0.9177472917860430D-04
        ws( 17) = 0.9888517363570971D-04
        ws( 18) = 0.1062879502254183D-03
        ws( 19) = 0.1140172658665079D-03
        ws( 20) = 0.1221106950408170D-03
        ws( 21) = 0.1306096244273167D-03
        ws( 22) = 0.1395597737007958D-03
        ws( 23) = 0.1490118054282819D-03
        ws( 24) = 0.1590220397135562D-03
        ws( 25) = 0.1696532926349818D-03
        ws( 26) = 0.1809758617472620D-03
        ws( 27) = 0.1930686871788317D-03
        ws( 28) = 0.2060207234218099D-03
        ws( 29) = 0.2199325651348497D-03
        ws( 30) = 0.2349183806186000D-03
        ws( 31) = 0.2511082196917296D-03
        ws( 32) = 0.2686507792869408D-03
        ws( 33) = 0.2877167312611065D-03
        ws( 34) = 0.3085027440798000D-03
        ws( 35) = 0.3312363650712548D-03
        ws( 36) = 0.3561819753778073D-03
        ws( 37) = 0.3836480889802809D-03
        ws( 38) = 0.4139963448639896D-03
        ws( 39) = 0.4476526438996306D-03
        ws( 40) = 0.4851210180269984D-03
        ws( 41) = 0.5270010009432616D-03
        ws( 42) = 0.5740095135112806D-03
        ws( 43) = 0.6270086069592991D-03
        ws( 44) = 0.6870408557811907D-03
        ws( 45) = 0.7553748066265171D-03
        ws( 46) = 0.8335637356433087D-03
        ws( 47) = 0.9235221384511768D-03
        ws( 48) = 0.1027626006806914D-02
        ws( 49) = 0.1148845219922979D-02
        ws( 50) = 0.1290919549734254D-02
        ws( 51) = 0.1458594176660326D-02
        ws( 52) = 0.1657936606491598D-02
        ws( 53) = 0.1896764719112231D-02
        ws( 54) = 0.2185224911859141D-02
        ws( 55) = 0.2536566939496635D-02
        ws( 56) = 0.2968156978694166D-02
        ws( 57) = 0.3502716941983596D-02
        ws( 58) = 0.4169572310964075D-02
        ws( 59) = 0.5005070961393244D-02
        ws( 60) = 0.6049808658264449D-02
        ws( 61) = 0.7337579773613934D-02
        ws( 62) = 0.8869416419592107D-02
        ws( 63) = 0.1057496255694036D-01
        ws( 64) = 0.1229143744403715D-01
        ws( 65) = 0.1380800549666384D-01
        ws( 66) = 0.1496659340623498D-01
        ws( 67) = 0.1572788556119000D-01
        ws( 68) = 0.1615015220355341D-01
        ws( 69) = 0.1632855210818661D-01
        ws( 70) = 0.1635163135708652D-01
        ws( 71) = 0.1628586370387548D-01
        ws( 72) = 0.1617603367421138D-01
        ws( 73) = 0.1605046697952493D-01
        ws( 74) = 0.1592633401599993D-01
        ws( 75) = 0.1581358832638034D-01
        ws( 76) = 0.1570213122644258D-01
        ws( 77) = 0.1559966765811747D-01
        ws( 78) = 0.1543274499977957D-01
        ws( 79) = 0.1226848311957477D-01
        endif
        if( idomain .eq.   42 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.2000000000000000D-01
        rk1r = 0.3769911184307752D+02
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  83
        err = 0.9020312627720559D-13
        xs(  1) = 0.1348363216542886D-05
        xs(  2) = 0.7106616445695258D-05
        xs(  3) = 0.1747506166497800D-04
        xs(  4) = 0.3247145333821919D-04
        xs(  5) = 0.5211881737866597D-04
        xs(  6) = 0.7644769834358369D-04
        xs(  7) = 0.1054968874871936D-03
        xs(  8) = 0.1393141147813640D-03
        xs(  9) = 0.1779568074453193D-03
        xs( 10) = 0.2214929225424277D-03
        xs( 11) = 0.2700018506800999D-03
        xs( 12) = 0.3235753888253225D-03
        xs( 13) = 0.3823187835580581D-03
        xs( 14) = 0.4463518499057050D-03
        xs( 15) = 0.5158101747243119D-03
        xs( 16) = 0.5908464172617601D-03
        xs( 17) = 0.6716317230454265D-03
        xs( 18) = 0.7583572706512481D-03
        xs( 19) = 0.8512359743483122D-03
        xs( 20) = 0.9505043692172639D-03
        xs( 21) = 0.1056424709274663D-02
        xs( 22) = 0.1169287313575513D-02
        xs( 23) = 0.1289413200404449D-02
        xs( 24) = 0.1417157055713841D-02
        xs( 25) = 0.1552910589162905D-02
        xs( 26) = 0.1697106339733207D-02
        xs( 27) = 0.1850222003271119D-02
        xs( 28) = 0.2012785366835105D-02
        xs( 29) = 0.2185379949893886D-02
        xs( 30) = 0.2368651470836363D-02
        xs( 31) = 0.2563315279674334D-02
        xs( 32) = 0.2770164925198315D-02
        xs( 33) = 0.2990082058394114D-02
        xs( 34) = 0.3224047915179349D-02
        xs( 35) = 0.3473156672440624D-02
        xs( 36) = 0.3738631034466902D-02
        xs( 37) = 0.4021840485442743D-02
        xs( 38) = 0.4324322741913324D-02
        xs( 39) = 0.4647809062580111D-02
        xs( 40) = 0.4994254228659220D-02
        xs( 41) = 0.5365872205883622D-02
        xs( 42) = 0.5765178751701531D-02
        xs( 43) = 0.6195042555212980D-02
        xs( 44) = 0.6658746915578454D-02
        xs( 45) = 0.7160064507687748D-02
        xs( 46) = 0.7703348493518236D-02
        xs( 47) = 0.8293644171001823D-02
        xs( 48) = 0.8936826588225213D-02
        xs( 49) = 0.9639771199009151D-02
        xs( 50) = 0.1041056684970402D-01
        xs( 51) = 0.1125878338247917D-01
        xs( 52) = 0.1219581022389134D-01
        xs( 53) = 0.1323528793568211D-01
        xs( 54) = 0.1439366246162308D-01
        xs( 55) = 0.1569090260020035D-01
        xs( 56) = 0.1715143632673767D-01
        xs( 57) = 0.1880538271124592D-01
        xs( 58) = 0.2069018555864739D-01
        xs( 59) = 0.2285279490522301D-01
        xs( 60) = 0.2535259394575917D-01
        xs( 61) = 0.2826532505645128D-01
        xs( 62) = 0.3168829579238319D-01
        xs( 63) = 0.3574702834216262D-01
        xs( 64) = 0.4060292145338945D-01
        xs( 65) = 0.4645965506704232D-01
        xs( 66) = 0.5356180056290875D-01
        xs( 67) = 0.6217241194826780D-01
        xs( 68) = 0.7251388893344679D-01
        xs( 69) = 0.8467546952703284D-01
        xs( 70) = 0.9853696276834821D-01
        xs( 71) = 0.1137795531882435D+00
        xs( 72) = 0.1299893302980801D+00
        xs( 73) = 0.1467760378561097D+00
        xs( 74) = 0.1638391862311885D+00
        xs( 75) = 0.1809777919483162D+00
        xs( 76) = 0.1980718941248364D+00
        xs( 77) = 0.2150585896846895D+00
        xs( 78) = 0.2319121148410454D+00
        xs( 79) = 0.2486292709606311D+00
        xs( 80) = 0.2652185898903670D+00
        xs( 81) = 0.2816862001519898D+00
        xs( 82) = 0.2979507777614385D+00
        xs( 83) = 0.3135065127469118D+00
        ws(  1) = 0.3460582693549248D-05
        ws(  2) = 0.8060507172599010D-05
        ws(  3) = 0.1267916081703190D-04
        ws(  4) = 0.1731744105187210D-04
        ws(  5) = 0.2198236672738772D-04
        ws(  6) = 0.2668184898900924D-04
        ws(  7) = 0.3142447165411623D-04
        ws(  8) = 0.3621954025102603D-04
        ws(  9) = 0.4107715618707077D-04
        ws( 10) = 0.4600828956446384D-04
        ws( 11) = 0.5102484883008512D-04
        ws( 12) = 0.5613974993119557D-04
        ws( 13) = 0.6136698867930963D-04
        ws( 14) = 0.6672172018774668D-04
        ws( 15) = 0.7222034913921009D-04
        ws( 16) = 0.7788063446544700D-04
        ws( 17) = 0.8372181188366375D-04
        ws( 18) = 0.8976473769335084D-04
        ws( 19) = 0.9603205732847029D-04
        ws( 20) = 0.1025484024056256D-03
        ws( 21) = 0.1093406204246016D-03
        ws( 22) = 0.1164380418770406D-03
        ws( 23) = 0.1238727903191103D-03
        ws( 24) = 0.1316801419873673D-03
        ws( 25) = 0.1398989428163641D-03
        ws( 26) = 0.1485720922964413D-03
        ws( 27) = 0.1577471055496309D-03
        ws( 28) = 0.1674767673814438D-03
        ws( 29) = 0.1778198949874184D-03
        ws( 30) = 0.1888422295910403D-03
        ws( 31) = 0.2006174817346229D-03
        ws( 32) = 0.2132285604605355D-03
        ws( 33) = 0.2267690234942072D-03
        ws( 34) = 0.2413447941463879D-03
        ws( 35) = 0.2570762014774361D-03
        ws( 36) = 0.2741004139505729D-03
        ws( 37) = 0.2925743541818621D-03
        ws( 38) = 0.3126782045895430D-03
        ws( 39) = 0.3346196422271587D-03
        ws( 40) = 0.3586389778429623D-03
        ws( 41) = 0.3850154219083889D-03
        ws( 42) = 0.4140747626074821D-03
        ws( 43) = 0.4461988225185894D-03
        ws( 44) = 0.4818371687006210D-03
        ws( 45) = 0.5215216944626363D-03
        ws( 46) = 0.5658848832446938D-03
        ws( 47) = 0.6156828239587977D-03
        ws( 48) = 0.6718243985061625D-03
        ws( 49) = 0.7354085424468650D-03
        ws( 50) = 0.8077721409871352D-03
        ws( 51) = 0.8905520394246333D-03
        ws( 52) = 0.9857659277378375D-03
        ws( 53) = 0.1095918658678912D-02
        ws( 54) = 0.1224143100391895D-02
        ws( 55) = 0.1374388222418953D-02
        ws( 56) = 0.1551672191318751D-02
        ws( 57) = 0.1762425320646699D-02
        ws( 58) = 0.2014957208662704D-02
        ws( 59) = 0.2320093962193060D-02
        ws( 60) = 0.2692041628135406D-02
        ws( 61) = 0.3149527116190181D-02
        ws( 62) = 0.3717202606210385D-02
        ws( 63) = 0.4427041351118093D-02
        ws( 64) = 0.5318682649611111D-02
        ws( 65) = 0.6435874014674710D-02
        ws( 66) = 0.7813236693098991D-02
        ws( 67) = 0.9446718395806252D-02
        ws( 68) = 0.1125259713109985D-01
        ws( 69) = 0.1305037962080466D-01
        ws( 70) = 0.1461750462165317D-01
        ws( 71) = 0.1579652638066188D-01
        ws( 72) = 0.1655689711721000D-01
        ws( 73) = 0.1696635734810005D-01
        ws( 74) = 0.1712680539911294D-01
        ws( 75) = 0.1713083251136858D-01
        ws( 76) = 0.1704721670996364D-01
        ws( 77) = 0.1692204567913799D-01
        ws( 78) = 0.1678428786777859D-01
        ws( 79) = 0.1665185885072945D-01
        ws( 80) = 0.1652855577839080D-01
        ws( 81) = 0.1645115493510277D-01
        ws( 82) = 0.1620251483241630D-01
        ws( 83) = 0.1391739930960679D-01
        endif
        if( idomain .eq.   43 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.2000000000000000D-01
        rk1r = 0.4084070449666731D+02
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  87
        err = 0.8726502540387912D-13
        xs(  1) = 0.1177135177525118D-05
        xs(  2) = 0.6203808087085100D-05
        xs(  3) = 0.1525354988651543D-04
        xs(  4) = 0.2833942878854398D-04
        xs(  5) = 0.4547797564109163D-04
        xs(  6) = 0.6669108316692833D-04
        xs(  7) = 0.9200656139478080D-04
        xs(  8) = 0.1214586448829617D-03
        xs(  9) = 0.1550885417244486D-03
        xs( 10) = 0.1929450308773712D-03
        xs( 11) = 0.2350851045244523D-03
        xs( 12) = 0.2815746522814481D-03
        xs( 13) = 0.3324891861886404D-03
        xs( 14) = 0.3879146079655616D-03
        xs( 15) = 0.4479480225501387D-03
        xs( 16) = 0.5126986043349429D-03
        xs( 17) = 0.5822885247236220D-03
        xs( 18) = 0.6568539516858368D-03
        xs( 19) = 0.7365461339478799D-03
        xs( 20) = 0.8215325843956208D-03
        xs( 21) = 0.9119983792733926D-03
        xs( 22) = 0.1008147591929296D-02
        xs( 23) = 0.1110204882279877D-02
        xs( 24) = 0.1218417265945371D-02
        xs( 25) = 0.1333056090247695D-02
        xs( 26) = 0.1454419248083938D-02
        xs( 27) = 0.1582833665221318D-02
        xs( 28) = 0.1718658101958714D-02
        xs( 29) = 0.1862286316547671D-02
        xs( 30) = 0.2014150645481784D-02
        xs( 31) = 0.2174726065015576D-02
        xs( 32) = 0.2344534809392059D-02
        xs( 33) = 0.2524151634649094D-02
        xs( 34) = 0.2714209833047611D-02
        xs( 35) = 0.2915408122752698D-02
        xs( 36) = 0.3128518561200152D-02
        xs( 37) = 0.3354395659602708D-02
        xs( 38) = 0.3593986911564190D-02
        xs( 39) = 0.3848344992402499D-02
        xs( 40) = 0.4118641939605846D-02
        xs( 41) = 0.4406185691527119D-02
        xs( 42) = 0.4712439444404445D-02
        xs( 43) = 0.5039044391546694D-02
        xs( 44) = 0.5387846538876773D-02
        xs( 45) = 0.5760928455634453D-02
        xs( 46) = 0.6160647028009461D-02
        xs( 47) = 0.6589678550216032D-02
        xs( 48) = 0.7051072829968464D-02
        xs( 49) = 0.7548318427575966D-02
        xs( 50) = 0.8085421722604198D-02
        xs( 51) = 0.8667003253764433D-02
        xs( 52) = 0.9298415767547709D-02
        xs( 53) = 0.9985889723715799D-02
        xs( 54) = 0.1073671375907336D-01
        xs( 55) = 0.1155945997068970D-01
        xs( 56) = 0.1246426708047691D-01
        xs( 57) = 0.1346319891907733D-01
        xs( 58) = 0.1457070169784400D-01
        xs( 59) = 0.1580419191329085D-01
        xs( 60) = 0.1718481844219812D-01
        xs( 61) = 0.1873845885604915D-01
        xs( 62) = 0.2049703318945239D-01
        xs( 63) = 0.2250025093639138D-01
        xs( 64) = 0.2479795177065643D-01
        xs( 65) = 0.2745325860021476D-01
        xs( 66) = 0.3054682560934216D-01
        xs( 67) = 0.3418249454758689D-01
        xs( 68) = 0.3849453087498126D-01
        xs( 69) = 0.4365590210892435D-01
        xs( 70) = 0.4988490084602611D-01
        xs( 71) = 0.5744255631510226D-01
        xs( 72) = 0.6660616814822053D-01
        xs( 73) = 0.7760300051643709D-01
        xs( 74) = 0.9051113186494253D-01
        xs( 75) = 0.1051838549199017D+00
        xs( 76) = 0.1212703515728496D+00
        xs( 77) = 0.1383303848047273D+00
        xs( 78) = 0.1559575299037851D+00
        xs( 79) = 0.1738437563996007D+00
        xs( 80) = 0.1917860424921341D+00
        xs( 81) = 0.2096655121367532D+00
        xs( 82) = 0.2274220749167114D+00
        xs( 83) = 0.2450333042607169D+00
        xs( 84) = 0.2624998061607450D+00
        xs( 85) = 0.2798226223029250D+00
        xs( 86) = 0.2969466166116267D+00
        xs( 87) = 0.3133507435099667D+00
        ws(  1) = 0.3021085855392618D-05
        ws(  2) = 0.7036039052465436D-05
        ws(  3) = 0.1106546484231420D-04
        ws(  4) = 0.1510903244822725D-04
        ws(  5) = 0.1917170172561329D-04
        ws(  6) = 0.2325913997539232D-04
        ws(  7) = 0.2737751309227624D-04
        ws(  8) = 0.3153351193387344D-04
        ws(  9) = 0.3573440086134093D-04
        ws( 10) = 0.3998806473549491D-04
        ws( 11) = 0.4430305208164449D-04
        ws( 12) = 0.4868861599445436D-04
        ws( 13) = 0.5315475522954444D-04
        ws( 14) = 0.5771225806394380D-04
        ws( 15) = 0.6237275140349638D-04
        ws( 16) = 0.6714875743756800D-04
        ws( 17) = 0.7205375996623618D-04
        ws( 18) = 0.7710228239528105D-04
        ws( 19) = 0.8230997933434469D-04
        ws( 20) = 0.8769374375637677D-04
        ws( 21) = 0.9327183178961599D-04
        ws( 22) = 0.9906400742054105D-04
        ws( 23) = 0.1050917096909175D-03
        ws( 24) = 0.1113782453801246D-03
        ws( 25) = 0.1179490106828646D-03
        ws( 26) = 0.1248317460354732D-03
        ws( 27) = 0.1320568290293578D-03
        ws( 28) = 0.1396576113017085D-03
        ws( 29) = 0.1476708064453086D-03
        ws( 30) = 0.1561369373720451D-03
        ws( 31) = 0.1651008532546950D-03
        ws( 32) = 0.1746123282258613D-03
        ws( 33) = 0.1847267565217039D-03
        ws( 34) = 0.1955059618333634D-03
        ws( 35) = 0.2070191424115522D-03
        ws( 36) = 0.2193439781488634D-03
        ws( 37) = 0.2325679316688982D-03
        ws( 38) = 0.2467897826909156D-03
        ws( 39) = 0.2621214440094765D-03
        ws( 40) = 0.2786901188377305D-03
        ws( 41) = 0.2966408736975077D-03
        ws( 42) = 0.3161397193769578D-03
        ws( 43) = 0.3373773159026877D-03
        ws( 44) = 0.3605734475513444D-03
        ws( 45) = 0.3859824527648173D-03
        ws( 46) = 0.4138998442570089D-03
        ws( 47) = 0.4446704204687013D-03
        ws( 48) = 0.4786982560877795D-03
        ws( 49) = 0.5164590738250392D-03
        ws( 50) = 0.5585156520538665D-03
        ws( 51) = 0.6055371272149467D-03
        ws( 52) = 0.6583233257346277D-03
        ws( 53) = 0.7178356353255656D-03
        ws( 54) = 0.7852364397018287D-03
        ws( 55) = 0.8619398507538149D-03
        ws( 56) = 0.9496774605870022D-03
        ws( 57) = 0.1050584221961625D-02
        ws( 58) = 0.1167311523707423D-02
        ws( 59) = 0.1303177309250367D-02
        ws( 60) = 0.1462367051757741D-02
        ws( 61) = 0.1650205041480394D-02
        ws( 62) = 0.1873523378699609D-02
        ws( 63) = 0.2141166856925166D-02
        ws( 64) = 0.2464685293094785D-02
        ws( 65) = 0.2859277055558093D-02
        ws( 66) = 0.3345042566308041D-02
        ws( 67) = 0.3948529616785625D-02
        ws( 68) = 0.4704243986491549D-02
        ws( 69) = 0.5654887648782265D-02
        ws( 70) = 0.6847007835973380D-02
        ws( 71) = 0.8315624921799342D-02
        ws( 72) = 0.1005127268992277D-01
        ws( 73) = 0.1195689079239182D-01
        ws( 74) = 0.1383457889361994D-01
        ws( 75) = 0.1545022124556570D-01
        ws( 76) = 0.1664716521197311D-01
        ws( 77) = 0.1740411445673026D-01
        ws( 78) = 0.1779881553641891D-01
        ws( 79) = 0.1794020433437199D-01
        ws( 80) = 0.1792500373120014D-01
        ws( 81) = 0.1782426527397191D-01
        ws( 82) = 0.1768533491171211D-01
        ws( 83) = 0.1753687970069977D-01
        ws( 84) = 0.1739713962167931D-01
        ws( 85) = 0.1727321806453575D-01
        ws( 86) = 0.1711029371416742D-01
        ws( 87) = 0.1447930351355624D-01
        endif
        if( idomain .eq.   44 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.2000000000000000D-01
        rk1r = 0.4398229715025710D+02
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  91
        err = 0.9755007366939488D-13
        xs(  1) = 0.1037866831052345D-05
        xs(  2) = 0.5469590065298441D-05
        xs(  3) = 0.1344724350887477D-04
        xs(  4) = 0.2498066044660898D-04
        xs(  5) = 0.4008193516360841D-04
        xs(  6) = 0.5876705396106064D-04
        xs(  7) = 0.8105632996907172D-04
        xs(  8) = 0.1069747851352292D-03
        xs(  9) = 0.1365525595079439D-03
        xs( 10) = 0.1698253539469423D-03
        xs( 11) = 0.2068349032221219D-03
        xs( 12) = 0.2476294760427714D-03
        xs( 13) = 0.2922643999120350D-03
        xs( 14) = 0.3408026104658920D-03
        xs( 15) = 0.3933152267490582D-03
        xs( 16) = 0.4498821555650332D-03
        xs( 17) = 0.5105927295687405D-03
        xs( 18) = 0.5755463851485388D-03
        xs( 19) = 0.6448533873974971D-03
        xs( 20) = 0.7186356106446985D-03
        xs( 21) = 0.7970273841568870D-03
        xs( 22) = 0.8801764137835806D-03
        xs( 23) = 0.9682447915601071D-03
        xs( 24) = 0.1061410106658414D-02
        xs( 25) = 0.1159866672641306D-02
        xs( 26) = 0.1263826887789353D-02
        xs( 27) = 0.1373522747392987D-02
        xs( 28) = 0.1489207529403115D-02
        xs( 29) = 0.1611157677788198D-02
        xs( 30) = 0.1739674911443867D-02
        xs( 31) = 0.1875088590647880D-02
        xs( 32) = 0.2017758377975473D-02
        xs( 33) = 0.2168077236441030D-02
        xs( 34) = 0.2326474814598335D-02
        xs( 35) = 0.2493421276643212D-02
        xs( 36) = 0.2669431645501136D-02
        xs( 37) = 0.2855070738798699D-02
        xs( 38) = 0.3050958791944907D-02
        xs( 39) = 0.3257777879828277D-02
        xs( 40) = 0.3476279269545959D-02
        xs( 41) = 0.3707291861973961D-02
        xs( 42) = 0.3951731910937013D-02
        xs( 43) = 0.4210614246606720D-02
        xs( 44) = 0.4485065276285866D-02
        xs( 45) = 0.4776338093141994D-02
        xs( 46) = 0.5085830094598020D-02
        xs( 47) = 0.5415103600667109D-02
        xs( 48) = 0.5765910073329700D-02
        xs( 49) = 0.6140218677382853D-02
        xs( 50) = 0.6540250099292574D-02
        xs( 51) = 0.6968516764376772D-02
        xs( 52) = 0.7427870878680911D-02
        xs( 53) = 0.7921562089678844D-02
        xs( 54) = 0.8453307035735592D-02
        xs( 55) = 0.9027373673897176D-02
        xs( 56) = 0.9648684088005968D-02
        xs( 57) = 0.1032294055207592D-01
        xs( 58) = 0.1105678105147862D-01
        xs( 59) = 0.1185797237908079D-01
        xs( 60) = 0.1273565151237431D-01
        xs( 61) = 0.1370062950842668D-01
        xs( 62) = 0.1476577701143601D-01
        xs( 63) = 0.1594651721189030D-01
        xs( 64) = 0.1726146154203269D-01
        xs( 65) = 0.1873323673010794D-01
        xs( 66) = 0.2038957079388362D-01
        xs( 67) = 0.2226473258528446D-01
        xs( 68) = 0.2440145787658470D-01
        xs( 69) = 0.2685354837331291D-01
        xs( 70) = 0.2968940001563932D-01
        xs( 71) = 0.3299679361225811D-01
        xs( 72) = 0.3688931224631026D-01
        xs( 73) = 0.4151455499660045D-01
        xs( 74) = 0.4706339389969175D-01
        xs( 75) = 0.5377678377393800D-01
        xs( 76) = 0.6194063630873771D-01
        xs( 77) = 0.7185109609889730D-01
        xs( 78) = 0.8373343741096276D-01
        xs( 79) = 0.9762996329204947D-01
        xs( 80) = 0.1133302204199601D+00
        xs( 81) = 0.1304193716475905D+00
        xs( 82) = 0.1484182886751422D+00
        xs( 83) = 0.1669100073150884D+00
        xs( 84) = 0.1855928095009685D+00
        xs( 85) = 0.2042753214752279D+00
        xs( 86) = 0.2228491971532697D+00
        xs( 87) = 0.2412604604417895D+00
        xs( 88) = 0.2594845610366061D+00
        xs( 89) = 0.2774943672299299D+00
        xs( 90) = 0.2951692236277822D+00
        xs( 91) = 0.3119358958259675D+00
        ws(  1) = 0.2663630307143106D-05
        ws(  2) = 0.6202993810699171D-05
        ws(  3) = 0.9753813398242313D-05
        ws(  4) = 0.1331502311705760D-04
        ws(  5) = 0.1689018428390678D-04
        ws(  6) = 0.2048343255475066D-04
        ws(  7) = 0.2409928296742678D-04
        ws(  8) = 0.2774264331848343D-04
        ws(  9) = 0.3141884767653007D-04
        ws( 10) = 0.3513368865749808D-04
        ws( 11) = 0.3889344592935598D-04
        ws( 12) = 0.4270491181032477D-04
        ws( 13) = 0.4657541562046814D-04
        ws( 14) = 0.5051284860004261D-04
        ws( 15) = 0.5452569114644416D-04
        ws( 16) = 0.5862304398070670D-04
        ws( 17) = 0.6281466469542693D-04
        ws( 18) = 0.6711101099369787D-04
        ws( 19) = 0.7152329182299150D-04
        ws( 20) = 0.7606352755033627D-04
        ws( 21) = 0.8074462032071527D-04
        ws( 22) = 0.8558043579155804D-04
        ws( 23) = 0.9058589754238474D-04
        ws( 24) = 0.9577709562074667D-04
        ws( 25) = 0.1011714109043570D-03
        ws( 26) = 0.1067876572370562D-03
        ws( 27) = 0.1126462436387876D-03
        ws( 28) = 0.1187693593035846D-03
        ws( 29) = 0.1251811845957990D-03
        ws( 30) = 0.1319081318479610D-03
        ws( 31) = 0.1389791204714562D-03
        ws( 32) = 0.1464258917386828D-03
        ws( 33) = 0.1542833696107688D-03
        ws( 34) = 0.1625900752076381D-03
        ws( 35) = 0.1713886039933538D-03
        ws( 36) = 0.1807261765396347D-03
        ws( 37) = 0.1906552759088865D-03
        ws( 38) = 0.2012343873596806D-03
        ws( 39) = 0.2125288593437848D-03
        ws( 40) = 0.2246119087876076D-03
        ws( 41) = 0.2375657986286526D-03
        ws( 42) = 0.2514832217613101D-03
        ws( 43) = 0.2664689332659384D-03
        ws( 44) = 0.2826416824724076D-03
        ws( 45) = 0.3001365085914203D-03
        ws( 46) = 0.3191074790817413D-03
        ws( 47) = 0.3397309695359001D-03
        ws( 48) = 0.3622096089653016D-03
        ws( 49) = 0.3867770466297732D-03
        ws( 50) = 0.4137037382742810D-03
        ws( 51) = 0.4433040039051230D-03
        ws( 52) = 0.4759446802625196D-03
        ws( 53) = 0.5120557847104034D-03
        ws( 54) = 0.5521437313397042D-03
        ws( 55) = 0.5968078058128284D-03
        ws( 56) = 0.6467608284519268D-03
        ws( 57) = 0.7028552374392522D-03
        ws( 58) = 0.7661162372746165D-03
        ws( 59) = 0.8377842273289565D-03
        ws( 60) = 0.9193695174527635D-03
        ws( 61) = 0.1012723448536994D-02
        ws( 62) = 0.1120131607896181D-02
        ws( 63) = 0.1244437071914635D-02
        ws( 64) = 0.1389204830665923D-02
        ws( 65) = 0.1558943199975942D-02
        ws( 66) = 0.1759404738060862D-02
        ws( 67) = 0.1997998761963347D-02
        ws( 68) = 0.2284360769705788D-02
        ws( 69) = 0.2631140639505334D-02
        ws( 70) = 0.3055086471159070D-02
        ws( 71) = 0.3578493212230224D-02
        ws( 72) = 0.4230982692695783D-02
        ws( 73) = 0.5051180304670857D-02
        ws( 74) = 0.6086697821396747D-02
        ws( 75) = 0.7388259157061403D-02
        ws( 76) = 0.8990173311696228D-02
        ws( 77) = 0.1087035576292957D-01
        ws( 78) = 0.1290278499192493D-01
        ws( 79) = 0.1485431050356076D-01
        ws( 80) = 0.1647440414536059D-01
        ws( 81) = 0.1762178834687964D-01
        ws( 82) = 0.1830573595642170D-01
        ws( 83) = 0.1862759382332225D-01
        ws( 84) = 0.1870661869383516D-01
        ws( 85) = 0.1864083317855876D-01
        ws( 86) = 0.1849842678506173D-01
        ws( 87) = 0.1832148687231583D-01
        ws( 88) = 0.1813145814162855D-01
        ws( 89) = 0.1790680098970609D-01
        ws( 90) = 0.1732114386653221D-01
        ws( 91) = 0.1391587126771358D-01
        endif
        if( idomain .eq.   45 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.2000000000000000D-01
        rk1r = 0.4712388980384689D+02
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  96
        err = 0.5116041850444033D-13
        xs(  1) = 0.9157136228910252D-06
        xs(  2) = 0.4825681100825158D-05
        xs(  3) = 0.1186346146627079D-04
        xs(  4) = 0.2203660394743405D-04
        xs(  5) = 0.3535411632911716D-04
        xs(  6) = 0.5182786689451769D-04
        xs(  7) = 0.7147292175916462D-04
        xs(  8) = 0.9430782771666408D-04
        xs(  9) = 0.1203549124410403D-03
        xs( 10) = 0.1496406083190486D-03
        xs( 11) = 0.1821957977068600D-03
        xs( 12) = 0.2180561766036127D-03
        xs( 13) = 0.2572626344924869D-03
        xs( 14) = 0.2998616492461713D-03
        xs( 15) = 0.3459056972043710D-03
        xs( 16) = 0.3954536796877320D-03
        xs( 17) = 0.4485713682682595D-03
        xs( 18) = 0.5053318720588464D-03
        xs( 19) = 0.5658161311220990D-03
        xs( 20) = 0.6301134408518170D-03
        xs( 21) = 0.6983220128765832D-03
        xs( 22) = 0.7705495787047661D-03
        xs( 23) = 0.8469140430056441D-03
        xs( 24) = 0.9275441941338619D-03
        xs( 25) = 0.1012580480285180D-02
        xs( 26) = 0.1102175860551081D-02
        xs( 27) = 0.1196496741149047D-02
        xs( 28) = 0.1295724008276322D-02
        xs( 29) = 0.1400054170402118D-02
        xs( 30) = 0.1509700624414213D-02
        xs( 31) = 0.1624895061914150D-02
        xs( 32) = 0.1745889034160491D-02
        xs( 33) = 0.1872955696750954D-02
        xs( 34) = 0.2006391758181626D-02
        xs( 35) = 0.2146519660009133D-02
        xs( 36) = 0.2293690020571184D-02
        xs( 37) = 0.2448284379215512D-02
        xs( 38) = 0.2610718283897224D-02
        xs( 39) = 0.2781444772012712D-02
        xs( 40) = 0.2960958302670257D-02
        xs( 41) = 0.3149799208529321D-02
        xs( 42) = 0.3348558747214020D-02
        xs( 43) = 0.3557884846544601D-02
        xs( 44) = 0.3778488654960351D-02
        xs( 45) = 0.4011152029185168D-02
        xs( 46) = 0.4256736116237171D-02
        xs( 47) = 0.4516191217342008D-02
        xs( 48) = 0.4790568158488780D-02
        xs( 49) = 0.5081031437930092D-02
        xs( 50) = 0.5388874477000371D-02
        xs( 51) = 0.5715537369931022D-02
        xs( 52) = 0.6062627614389009D-02
        xs( 53) = 0.6431944411805388D-02
        xs( 54) = 0.6825507261115734D-02
        xs( 55) = 0.7245589739072762D-02
        xs( 56) = 0.7694759575044416D-02
        xs( 57) = 0.8175926401760429D-02
        xs( 58) = 0.8692398913945552D-02
        xs( 59) = 0.9247953618556078D-02
        xs( 60) = 0.9846917946443077D-02
        xs( 61) = 0.1049427126075255D-01
        xs( 62) = 0.1119576830423436D-01
        xs( 63) = 0.1195809096183886D-01
        xs( 64) = 0.1278903599681932D-01
        xs( 65) = 0.1369774881784962D-01
        xs( 66) = 0.1469501659324108D-01
        xs( 67) = 0.1579363849381207D-01
        xs( 68) = 0.1700889702177150D-01
        xs( 69) = 0.1835916300339954D-01
        xs( 70) = 0.1986667896164434D-01
        xs( 71) = 0.2155858280408742D-01
        xs( 72) = 0.2346825829453372D-01
        xs( 73) = 0.2563713363190837D-01
        xs( 74) = 0.2811709808833502D-01
        xs( 75) = 0.3097377082527069D-01
        xs( 76) = 0.3429092772414861D-01
        xs( 77) = 0.3817642796933781D-01
        xs( 78) = 0.4276983355886465D-01
        xs( 79) = 0.4825117878056871D-01
        xs( 80) = 0.5484816854628962D-01
        xs( 81) = 0.6283430869004435D-01
        xs( 82) = 0.7250357305848296D-01
        xs( 83) = 0.8410553969879189D-01
        xs( 84) = 0.9774516780987905D-01
        xs( 85) = 0.1132982311101875D+00
        xs( 86) = 0.1304173835369854D+00
        xs( 87) = 0.1486409302068001D+00
        xs( 88) = 0.1675255492182863D+00
        xs( 89) = 0.1867252948596206D+00
        xs( 90) = 0.2060069896778989D+00
        xs( 91) = 0.2252313584939205D+00
        xs( 92) = 0.2443258220954051D+00
        xs( 93) = 0.2632600006876440D+00
        xs( 94) = 0.2820177564570475D+00
        xs( 95) = 0.3005546216940730D+00
        xs( 96) = 0.3183476296997895D+00
        ws(  1) = 0.2350112594491294D-05
        ws(  2) = 0.5472523441468057D-05
        ws(  3) = 0.8604173688850753D-05
        ws(  4) = 0.1174360165710311D-04
        ws(  5) = 0.1489339626700234D-04
        ws(  6) = 0.1805661124989407D-04
        ws(  7) = 0.2123658461298699D-04
        ws(  8) = 0.2443694317675394D-04
        ws(  9) = 0.2766162590792058D-04
        ws( 10) = 0.3091490684076043D-04
        ws( 11) = 0.3420141493472511D-04
        ws( 12) = 0.3752615119116863D-04
        ws( 13) = 0.4089450406712290D-04
        ws( 14) = 0.4431226439386853D-04
        ws( 15) = 0.4778564099594205D-04
        ws( 16) = 0.5132127812108434D-04
        ws( 17) = 0.5492627568021802D-04
        ws( 18) = 0.5860821318492288D-04
        ws( 19) = 0.6237517817362766D-04
        ws( 20) = 0.6623579984622253D-04
        ws( 21) = 0.7019928858477202D-04
        ws( 22) = 0.7427548202766530D-04
        ws( 23) = 0.7847489838594845D-04
        ws( 24) = 0.8280879774327556D-04
        ws( 25) = 0.8728925216461694D-04
        ws( 26) = 0.9192922555295498D-04
        ws( 27) = 0.9674266433852689D-04
        ws( 28) = 0.1017446002637835D-03
        ws( 29) = 0.1069512667414120D-03
        ws( 30) = 0.1123802305173488D-03
        ws( 31) = 0.1180505406715088D-03
        ws( 32) = 0.1239828973439011D-03
        ws( 33) = 0.1301998429927854D-03
        ws( 34) = 0.1367259794869348D-03
        ws( 35) = 0.1435882149221648D-03
        ws( 36) = 0.1508160447514818D-03
        ws( 37) = 0.1584418726537346D-03
        ws( 38) = 0.1665013775660317D-03
        ws( 39) = 0.1750339345085614D-03
        ws( 40) = 0.1840830982827981D-03
        ws( 41) = 0.1936971608826050D-03
        ws( 42) = 0.2039297955958052D-03
        ws( 43) = 0.2148408033827400D-03
        ws( 44) = 0.2264969803131760D-03
        ws( 45) = 0.2389731287727242D-03
        ws( 46) = 0.2523532399990685D-03
        ws( 47) = 0.2667318815223446D-03
        ws( 48) = 0.2822158305685163D-03
        ws( 49) = 0.2989260038448767D-03
        ws( 50) = 0.3169997458838139D-03
        ws( 51) = 0.3365935529590372D-03
        ws( 52) = 0.3578863284086452D-03
        ws( 53) = 0.3810832891897087D-03
        ws( 54) = 0.4064206742355767D-03
        ws( 55) = 0.4341714448114419D-03
        ws( 56) = 0.4646522184231288D-03
        ws( 57) = 0.4982317448172428D-03
        ws( 58) = 0.5353413205079781D-03
        ws( 59) = 0.5764876544021204D-03
        ws( 60) = 0.6222688515916094D-03
        ws( 61) = 0.6733943894362588D-03
        ws( 62) = 0.7307102396969377D-03
        ws( 63) = 0.7952306711725533D-03
        ws( 64) = 0.8681787900049113D-03
        ws( 65) = 0.9510385988215906D-03
        ws( 66) = 0.1045622367821028D-02
        ws( 67) = 0.1154158538310857D-02
        ws( 68) = 0.1279407410400955D-02
        ws( 69) = 0.1424814780378285D-02
        ws( 70) = 0.1594717896191924D-02
        ws( 71) = 0.1794624170990627D-02
        ws( 72) = 0.2031591784853630D-02
        ws( 73) = 0.2314753357648651D-02
        ws( 74) = 0.2656039171430803D-02
        ws( 75) = 0.3071170831603592D-02
        ws( 76) = 0.3580991742937629D-02
        ws( 77) = 0.4213117530544794D-02
        ws( 78) = 0.5003562855767095D-02
        ws( 79) = 0.5997074216892201D-02
        ws( 80) = 0.7242864710943284D-02
        ws( 81) = 0.8779486787179231D-02
        ws( 82) = 0.1060243482499193D-01
        ws( 83) = 0.1262062696132655D-01
        ws( 84) = 0.1463787304082799D-01
        ws( 85) = 0.1640830688551438D-01
        ws( 86) = 0.1775061995336406D-01
        ws( 87) = 0.1862126801600160D-01
        ws( 88) = 0.1909014517317509D-01
        ws( 89) = 0.1927086100827481D-01
        ws( 90) = 0.1926978945096204D-01
        ws( 91) = 0.1916731417644440D-01
        ws( 92) = 0.1901712641853941D-01
        ws( 93) = 0.1885031331980166D-01
        ws( 94) = 0.1867120096761872D-01
        ws( 95) = 0.1831654409691194D-01
        ws( 96) = 0.1631821896386770D-01
        endif
        if( idomain .eq.   46 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.2000000000000000D-01
        rk1r = 0.5026548245743669D+02
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n = 100
        err = 0.6657208296629232D-13
        xs(  1) = 0.8193627647804837D-06
        xs(  2) = 0.4317806095532034D-05
        xs(  3) = 0.1061436966239720D-04
        xs(  4) = 0.1971495872638849D-04
        xs(  5) = 0.3162638581086148D-04
        xs(  6) = 0.4635760388028985D-04
        xs(  7) = 0.6391998142021502D-04
        xs(  8) = 0.8432752388595479D-04
        xs(  9) = 0.1075971063767161D-03
        xs( 10) = 0.1337487235964228D-03
        xs( 11) = 0.1628057554025186D-03
        xs( 12) = 0.1947952453239486D-03
        xs( 13) = 0.2297481898946796D-03
        xs( 14) = 0.2676998374652649D-03
        xs( 15) = 0.3086899960413739D-03
        xs( 16) = 0.3527633505527179D-03
        xs( 17) = 0.3999697907358200D-03
        xs( 18) = 0.4503647515050325D-03
        xs( 19) = 0.5040095682896764D-03
        xs( 20) = 0.5609718503424505D-03
        xs( 21) = 0.6213258754922558D-03
        xs( 22) = 0.6851530102430699D-03
        xs( 23) = 0.7525421595301455D-03
        xs( 24) = 0.8235902508559927D-03
        xs( 25) = 0.8984027579610690D-03
        xs( 26) = 0.9770942696567123D-03
        xs( 27) = 0.1059789109978630D-02
        xs( 28) = 0.1146622016426179D-02
        xs( 29) = 0.1237738883754028D-02
        xs( 30) = 0.1333297581597491D-02
        xs( 31) = 0.1433468855161796D-02
        xs( 32) = 0.1538437319312168D-02
        xs( 33) = 0.1648402557691984D-02
        xs( 34) = 0.1763580340002009D-02
        xs( 35) = 0.1884203972330535D-02
        xs( 36) = 0.2010525797475506D-02
        xs( 37) = 0.2142818864597107D-02
        xs( 38) = 0.2281378790344214D-02
        xs( 39) = 0.2426525836885079D-02
        xs( 40) = 0.2578607236131262D-02
        xs( 41) = 0.2737999793983202D-02
        xs( 42) = 0.2905112813777308D-02
        xs( 43) = 0.3080391384440261D-02
        xs( 44) = 0.3264320086351850D-02
        xs( 45) = 0.3457427176825891D-02
        xs( 46) = 0.3660289327735967D-02
        xs( 47) = 0.3873537000507079D-02
        xs( 48) = 0.4097860558919875D-02
        xs( 49) = 0.4334017238499518D-02
        xs( 50) = 0.4582839113392730D-02
        xs( 51) = 0.4845242228464793D-02
        xs( 52) = 0.5122237096992058D-02
        xs( 53) = 0.5414940804204293D-02
        xs( 54) = 0.5724591005848056D-02
        xs( 55) = 0.6052562171203173D-02
        xs( 56) = 0.6400384494551902D-02
        xs( 57) = 0.6769765991800874D-02
        xs( 58) = 0.7162618414755875D-02
        xs( 59) = 0.7581087760944109D-02
        xs( 60) = 0.8027590340389704D-02
        xs( 61) = 0.8504855593667388D-02
        xs( 62) = 0.9015977152899065D-02
        xs( 63) = 0.9564474019259051D-02
        xs( 64) = 0.1015436422422936D-01
        xs( 65) = 0.1079025398432249D-01
        xs( 66) = 0.1147744620110472D-01
        xs( 67) = 0.1222207327049530D-01
        xs( 68) = 0.1303126064580216D-01
        xs( 69) = 0.1391332958648390D-01
        xs( 70) = 0.1487805021669613D-01
        xs( 71) = 0.1593695969843061D-01
        xs( 72) = 0.1710376540627620D-01
        xs( 73) = 0.1839486007941420D-01
        xs( 74) = 0.1982998591498810D-01
        xs( 75) = 0.2143309877916104D-01
        xs( 76) = 0.2323350410543797D-01
        xs( 77) = 0.2526736545473194D-01
        xs( 78) = 0.2757972899278651D-01
        xs( 79) = 0.3022726674544675D-01
        xs( 80) = 0.3328202040798979D-01
        xs( 81) = 0.3683651347266329D-01
        xs( 82) = 0.4101062890457356D-01
        xs( 83) = 0.4596041136709294D-01
        xs( 84) = 0.5188789287640806D-01
        xs( 85) = 0.5904803014962148D-01
        xs( 86) = 0.6774261633019615D-01
        xs( 87) = 0.7828341494928304D-01
        xs( 88) = 0.9090925674218003D-01
        xs( 89) = 0.1056737208112624D+00
        xs( 90) = 0.1223734631384637D+00
        xs( 91) = 0.1405901651700109D+00
        xs( 92) = 0.1598266772215422D+00
        xs( 93) = 0.1796387272311910D+00
        xs( 94) = 0.1996974734556393D+00
        xs( 95) = 0.2197910425848782D+00
        xs( 96) = 0.2397989686046271D+00
        xs( 97) = 0.2596623127692698D+00
        xs( 98) = 0.2793533638168080D+00
        xs( 99) = 0.2987562844482322D+00
        xs(100) = 0.3175233828977269D+00
        ws(  1) = 0.2102821477912819D-05
        ws(  2) = 0.4896404383576650D-05
        ws(  3) = 0.7697598224342256D-05
        ws(  4) = 0.1050470591444967D-04
        ws(  5) = 0.1331963649045515D-04
        ws(  6) = 0.1614469077898738D-04
        ws(  7) = 0.1898239467079802D-04
        ws(  8) = 0.2183549860555354D-04
        ws(  9) = 0.2470699439419214D-04
        ws( 10) = 0.2760013204092846D-04
        ws( 11) = 0.3051843400065924D-04
        ws( 12) = 0.3346570694994362D-04
        ws( 13) = 0.3644605178696149D-04
        ws( 14) = 0.3946387273686192D-04
        ws( 15) = 0.4252388644342554D-04
        ws( 16) = 0.4563113186842836D-04
        ws( 17) = 0.4879098173506155D-04
        ws( 18) = 0.5200915616139504D-04
        ws( 19) = 0.5529173904675957D-04
        ws( 20) = 0.5864519770555658D-04
        ws( 21) = 0.6207640619334898D-04
        ws( 22) = 0.6559267274081055D-04
        ws( 23) = 0.6920177170262313D-04
        ws( 24) = 0.7291198043990013D-04
        ws( 25) = 0.7673212158565324D-04
        ws( 26) = 0.8067161119199480D-04
        ws( 27) = 0.8474051332487148D-04
        ws( 28) = 0.8894960175749602D-04
        ws( 29) = 0.9331042951713867D-04
        ws( 30) = 0.9783540716342230D-04
        ws( 31) = 0.1025378908219263D-03
        ws( 32) = 0.1074322811667290D-03
        ws( 33) = 0.1125341347443937D-03
        ws( 34) = 0.1178602892642190D-03
        ws( 35) = 0.1234290047508117D-03
        ws( 36) = 0.1292601227740442D-03
        ws( 37) = 0.1353752463462588D-03
        ws( 38) = 0.1417979435191569D-03
        ws( 39) = 0.1485539782366411D-03
        ws( 40) = 0.1556715726228990D-03
        ws( 41) = 0.1631817056267786D-03
        ws( 42) = 0.1711184538315647D-03
        ws( 43) = 0.1795193813048214D-03
        ws( 44) = 0.1884259866454774D-03
        ws( 45) = 0.1978842169362780D-03
        ws( 46) = 0.2079450601892661D-03
        ws( 47) = 0.2186652301602190D-03
        ws( 48) = 0.2301079602020274D-03
        ws( 49) = 0.2423439262543335D-03
        ws( 50) = 0.2554523232832502D-03
        ws( 51) = 0.2695221246986063D-03
        ws( 52) = 0.2846535607445311D-03
        ws( 53) = 0.3009598599231623D-03
        ws( 54) = 0.3185693076076997D-03
        ws( 55) = 0.3376276887002263D-03
        ws( 56) = 0.3583011972476294D-03
        ws( 57) = 0.3807799163239555D-03
        ws( 58) = 0.4052819975460877D-03
        ws( 59) = 0.4320587030520358D-03
        ws( 60) = 0.4614005160021992D-03
        ws( 61) = 0.4936445818599572D-03
        ws( 62) = 0.5291838161996680D-03
        ws( 63) = 0.5684781115877594D-03
        ws( 64) = 0.6120682044468704D-03
        ws( 65) = 0.6605929343256725D-03
        ws( 66) = 0.7148108589773242D-03
        ws( 67) = 0.7756275023117197D-03
        ws( 68) = 0.8441299419426985D-03
        ws( 69) = 0.9216310371353418D-03
        ws( 70) = 0.1009726427148490D-02
        ws( 71) = 0.1110368599264328D-02
        ws( 72) = 0.1225963990859831D-02
        ws( 73) = 0.1359501484996557D-02
        ws( 74) = 0.1514724134247579D-02
        ws( 75) = 0.1696361024475693D-02
        ws( 76) = 0.1910443621546622D-02
        ws( 77) = 0.2164741715573044D-02
        ws( 78) = 0.2469369190232615D-02
        ws( 79) = 0.2837629091130480D-02
        ws( 80) = 0.3287184847191855D-02
        ws( 81) = 0.3841633655499277D-02
        ws( 82) = 0.4532432995833284D-02
        ws( 83) = 0.5400665467241157D-02
        ws( 84) = 0.6496846621646344D-02
        ws( 85) = 0.7874291902214709D-02
        ws( 86) = 0.9568246899040133D-02
        ws( 87) = 0.1155521362000859D-01
        ws( 88) = 0.1370682435169163D-01
        ws( 89) = 0.1578746271236659D-01
        ws( 90) = 0.1753973151252036D-01
        ws( 91) = 0.1880845219079725D-01
        ws( 92) = 0.1958953236900792D-01
        ws( 93) = 0.1997983029831709D-01
        ws( 94) = 0.2010282349317378D-01
        ws( 95) = 0.2006481860142200D-01
        ws( 96) = 0.1994228089182430D-01
        ws( 97) = 0.1978041672281197D-01
        ws( 98) = 0.1961539539611329D-01
        ws( 99) = 0.1912250154047565D-01
        ws(100) = 0.1596768200865957D-01
        endif
        if( idomain .eq.   47 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.4000000000000000D-01
        rk1r = 0.2000000000000000D-01
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  42
        err = 0.3685093796574581D-13
        xs(  1) = 0.1789586405278084D-03
        xs(  2) = 0.9441761095650386D-03
        xs(  3) = 0.2323501004621036D-02
        xs(  4) = 0.4314335421694991D-02
        xs(  5) = 0.6903020996854993D-02
        xs(  6) = 0.1006445798758765D-01
        xs(  7) = 0.1376531144000345D-01
        xs(  8) = 0.1796823481105622D-01
        xs(  9) = 0.2263529652238718D-01
        xs( 10) = 0.2773011006065676D-01
        xs( 11) = 0.3321887778036676D-01
        xs( 12) = 0.3907073256661590D-01
        xs( 13) = 0.4525770009993227D-01
        xs( 14) = 0.5175449287126013D-01
        xs( 15) = 0.5853825422187646D-01
        xs( 16) = 0.6558830932163581D-01
        xs( 17) = 0.7288594463767153D-01
        xs( 18) = 0.8041421954348152D-01
        xs( 19) = 0.8815780622177422D-01
        xs( 20) = 0.9610285205928285D-01
        xs( 21) = 0.1042368592795245D+00
        xs( 22) = 0.1125485780037351D+00
        xs( 23) = 0.1210279102329253D+00
        xs( 24) = 0.1296658236023717D+00
        xs( 25) = 0.1384542741227353D+00
        xs( 26) = 0.1473861382682543D+00
        xs( 27) = 0.1564551545853298D+00
        xs( 28) = 0.1656558742254279D+00
        xs( 29) = 0.1749836267136939D+00
        xs( 30) = 0.1844344756290940D+00
        xs( 31) = 0.1940052476032775D+00
        xs( 32) = 0.2036935250496652D+00
        xs( 33) = 0.2134976474937187D+00
        xs( 34) = 0.2234173097316278D+00
        xs( 35) = 0.2334513231495287D+00
        xs( 36) = 0.2435991650258494D+00
        xs( 37) = 0.2538672089172647D+00
        xs( 38) = 0.2642302880378347D+00
        xs( 39) = 0.2748067988966016D+00
        xs( 40) = 0.2857043262567513D+00
        xs( 41) = 0.2960300146143438D+00
        xs( 42) = 0.3075638290545899D+00
        ws(  1) = 0.4594352291545404D-03
        ws(  2) = 0.1071951168585073D-02
        ws(  3) = 0.1686343114267506D-02
        ws(  4) = 0.2293053808808686D-02
        ws(  5) = 0.2880073038173498D-02
        ws(  6) = 0.3437170379560348D-02
        ws(  7) = 0.3958254124502699D-02
        ws(  8) = 0.4441235904506984D-02
        ws(  9) = 0.4886806698235087D-02
        ws( 10) = 0.5297182522741507D-02
        ws( 11) = 0.5675209518185946D-02
        ws( 12) = 0.6023841368910769D-02
        ws( 13) = 0.6345883503994538D-02
        ws( 14) = 0.6643896790441984D-02
        ws( 15) = 0.6920183785964705D-02
        ws( 16) = 0.7176810620089862D-02
        ws( 17) = 0.7415639227688871D-02
        ws( 18) = 0.7638358228863901D-02
        ws( 19) = 0.7846508355683056D-02
        ws( 20) = 0.8041502132768486D-02
        ws( 21) = 0.8224638920463417D-02
        ws( 22) = 0.8397116965352329D-02
        ws( 23) = 0.8560043401017859D-02
        ws( 24) = 0.8714443896805884D-02
        ws( 25) = 0.8861270865523890D-02
        ws( 26) = 0.9001414272858818D-02
        ws( 27) = 0.9135708750767897D-02
        ws( 28) = 0.9264951843012898D-02
        ws( 29) = 0.9389908968817596D-02
        ws( 30) = 0.9511307424851562D-02
        ws( 31) = 0.9629880465560924D-02
        ws( 32) = 0.9746078388919268D-02
        ws( 33) = 0.9860898873277945D-02
        ws( 34) = 0.9977083695239522D-02
        ws( 35) = 0.1009702186809226D-01
        ws( 36) = 0.1022984935162383D-01
        ws( 37) = 0.1033018134110464D-01
        ws( 38) = 0.1028055597350851D-01
        ws( 39) = 0.1037063888104563D-01
        ws( 40) = 0.1059913240745557D-01
        ws( 41) = 0.1261052777601804D-01
        ws( 42) = 0.1995177889033024D-01
        endif
        if( idomain .eq.   48 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.4000000000000000D-01
        rk1r = 0.4000000000000000D-01
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  42
        err = 0.4057352345074768D-13
        xs(  1) = 0.1751385928842231D-03
        xs(  2) = 0.9250125845145310D-03
        xs(  3) = 0.2280353286586490D-02
        xs(  4) = 0.4243571427008097D-02
        xs(  5) = 0.6806073101324756D-02
        xs(  6) = 0.9946669473504919D-02
        xs(  7) = 0.1363435507821565D-01
        xs(  8) = 0.1783272817888110D-01
        xs(  9) = 0.2250384902397669D-01
        xs( 10) = 0.2761076808778606D-01
        xs( 11) = 0.3311884622142967D-01
        xs( 12) = 0.3899626175929281D-01
        xs( 13) = 0.4521406479096387D-01
        xs( 14) = 0.5174602168672261D-01
        xs( 15) = 0.5856838776581225D-01
        xs( 16) = 0.6565967494171947D-01
        xs( 17) = 0.7300044028570879D-01
        xs( 18) = 0.8057310108967768D-01
        xs( 19) = 0.8836177371902441D-01
        xs( 20) = 0.9635213145688740D-01
        xs( 21) = 0.1045312771043330D+00
        xs( 22) = 0.1128876274394888D+00
        xs( 23) = 0.1214108079015359D+00
        xs( 24) = 0.1300915567551317D+00
        xs( 25) = 0.1389216386760829D+00
        xs( 26) = 0.1478937677867873D+00
        xs( 27) = 0.1570015405879922D+00
        xs( 28) = 0.1662393793360232D+00
        xs( 29) = 0.1756024849308106D+00
        xs( 30) = 0.1850867967744652D+00
        xs( 31) = 0.1946889789226454D+00
        xs( 32) = 0.2044064563540255D+00
        xs( 33) = 0.2142374722751546D+00
        xs( 34) = 0.2241810258935479D+00
        xs( 35) = 0.2342362112789412D+00
        xs( 36) = 0.2444014450696427D+00
        xs( 37) = 0.2546759225206338D+00
        xs( 38) = 0.2650685883678903D+00
        xs( 39) = 0.2756367136625931D+00
        xs( 40) = 0.2864468994206605D+00
        xs( 41) = 0.2971497622601587D+00
        xs( 42) = 0.3076865714825458D+00
        ws(  1) = 0.4497446660803221D-03
        ws(  2) = 0.1051536945359082D-02
        ws(  3) = 0.1659651986970799D-02
        ws(  4) = 0.2265377758269369D-02
        ws(  5) = 0.2856039647138011D-02
        ws(  6) = 0.3419906418133956D-02
        ws(  7) = 0.3949332020217985D-02
        ws(  8) = 0.4441049303183516D-02
        ws(  9) = 0.4895013181415058D-02
        ws( 10) = 0.5313044182984693D-02
        ws( 11) = 0.5697808138135939D-02
        ws( 12) = 0.6052200857004398D-02
        ws( 13) = 0.6379036870510449D-02
        ws( 14) = 0.6680923400566461D-02
        ws( 15) = 0.6960230942475519D-02
        ws( 16) = 0.7219105994731791D-02
        ws( 17) = 0.7459496915307896D-02
        ws( 18) = 0.7683179779529810D-02
        ws( 19) = 0.7891779809811587D-02
        ws( 20) = 0.8086788053644402D-02
        ws( 21) = 0.8269574452442644D-02
        ws( 22) = 0.8441398719521225D-02
        ws( 23) = 0.8603420050553477D-02
        ws( 24) = 0.8756706480414950D-02
        ws( 25) = 0.8902244198690666D-02
        ws( 26) = 0.9040947063365737D-02
        ws( 27) = 0.9173667530873912D-02
        ws( 28) = 0.9301209909606908D-02
        ws( 29) = 0.9424340567748296D-02
        ws( 30) = 0.9543781765642294D-02
        ws( 31) = 0.9660185617878831D-02
        ws( 32) = 0.9774101958901106D-02
        ws( 33) = 0.9886363598800596D-02
        ws( 34) = 0.9999519221703192D-02
        ws( 35) = 0.1011881702704723D-01
        ws( 36) = 0.1024417273851269D-01
        ws( 37) = 0.1033559210207961D-01
        ws( 38) = 0.1029726813815055D-01
        ws( 39) = 0.1019449211910617D-01
        ws( 40) = 0.1079789735345885D-01
        ws( 41) = 0.1371850186482553D-01
        ws( 42) = 0.1744017293160926D-01
        endif
        if( idomain .eq.   49 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.4000000000000000D-01
        rk1r = 0.1000000000000000D+00
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  42
        err = 0.3627225317717414D-13
        xs(  1) = 0.1665367343778880D-03
        xs(  2) = 0.8817503891786146D-03
        xs(  3) = 0.2182433555814135D-02
        xs(  4) = 0.4081508781704702D-02
        xs(  5) = 0.6580747644244024D-02
        xs(  6) = 0.9666613402928204D-02
        xs(  7) = 0.1331229020296601D-01
        xs(  8) = 0.1748272511320021D-01
        xs(  9) = 0.2213954177553958D-01
        xs( 10) = 0.2724446404028421D-01
        xs( 11) = 0.3276121264730518D-01
        xs( 12) = 0.3865632411994884D-01
        xs( 13) = 0.4489934916256678D-01
        xs( 14) = 0.5146274956736590D-01
        xs( 15) = 0.5832167797507561D-01
        xs( 16) = 0.6545373245188307D-01
        xs( 17) = 0.7283872443684591D-01
        xs( 18) = 0.8045847163847826D-01
        xs( 19) = 0.8829661587304347D-01
        xs( 20) = 0.9633846215805285D-01
        xs( 21) = 0.1045708351917473D+00
        xs( 22) = 0.1129819503326251D+00
        xs( 23) = 0.1215612973223700D+00
        xs( 24) = 0.1302995358108235D+00
        xs( 25) = 0.1391884024439415D+00
        xs( 26) = 0.1482206294311527D+00
        xs( 27) = 0.1573898749473819D+00
        xs( 28) = 0.1666906656599145D+00
        xs( 29) = 0.1761183508860075D+00
        xs( 30) = 0.1856690696720295D+00
        xs( 31) = 0.1953397356422054D+00
        xs( 32) = 0.2051280801393728D+00
        xs( 33) = 0.2150327731887839D+00
        xs( 34) = 0.2250533188613030D+00
        xs( 35) = 0.2351893477369603D+00
        xs( 36) = 0.2454397039944923D+00
        xs( 37) = 0.2558037410138321D+00
        xs( 38) = 0.2662972518425049D+00
        xs( 39) = 0.2769976303964202D+00
        xs( 40) = 0.2879520074622472D+00
        xs( 41) = 0.2987066370035199D+00
        xs( 42) = 0.3092096888287034D+00
        ws(  1) = 0.4279112121859321D-03
        ws(  2) = 0.1005288871509254D-02
        ws(  3) = 0.1598399661248096D-02
        ws(  4) = 0.2200117109753656D-02
        ws(  5) = 0.2796060901815683D-02
        ws(  6) = 0.3371109245599414D-02
        ws(  7) = 0.3914317398075704D-02
        ws(  8) = 0.4420099589044371D-02
        ws(  9) = 0.4887124013308193D-02
        ws( 10) = 0.5316661456322740D-02
        ws( 11) = 0.5711255955551819D-02
        ws( 12) = 0.6073894245039071D-02
        ws( 13) = 0.6407570012666084D-02
        ws( 14) = 0.6715093742288499D-02
        ws( 15) = 0.6999033306762474D-02
        ws( 16) = 0.7261714335466680D-02
        ws( 17) = 0.7505242278551514D-02
        ws( 18) = 0.7731528433251957D-02
        ws( 19) = 0.7942313257447754D-02
        ws( 20) = 0.8139185574350028D-02
        ws( 21) = 0.8323598317513782D-02
        ws( 22) = 0.8496881993564930D-02
        ws( 23) = 0.8660256834357734D-02
        ws( 24) = 0.8814844356767998D-02
        ws( 25) = 0.8961678796289743D-02
        ws( 26) = 0.9101718543176875D-02
        ws( 27) = 0.9235859054484905D-02
        ws( 28) = 0.9364947231951857D-02
        ws( 29) = 0.9489795810742670D-02
        ws( 30) = 0.9611179408666763D-02
        ws( 31) = 0.9729792668179908D-02
        ws( 32) = 0.9846279430088686D-02
        ws( 33) = 0.9961668943730463D-02
        ws( 34) = 0.1007865494449409D-01
        ws( 35) = 0.1020240772869283D-01
        ws( 36) = 0.1033044106893732D-01
        ws( 37) = 0.1041936918288291D-01
        ws( 38) = 0.1039036609357122D-01
        ws( 39) = 0.1036800340275581D-01
        ws( 40) = 0.1115626823513964D-01
        ws( 41) = 0.1390575663867953D-01
        ws( 42) = 0.1627811861608702D-01
        endif
        if( idomain .eq.   50 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.4000000000000000D-01
        rk1r = 0.2000000000000000D+00
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  42
        err = 0.3445519971007956D-13
        xs(  1) = 0.1521222819101611D-03
        xs(  2) = 0.8074230746332465D-03
        xs(  3) = 0.2007064297022007D-02
        xs(  4) = 0.3775231987551720D-02
        xs(  5) = 0.6127730069578203D-02
        xs(  6) = 0.9064407597033083D-02
        xs(  7) = 0.1256856264086088D-01
        xs(  8) = 0.1661123860300176D-01
        xs(  9) = 0.2115679478474245D-01
        xs( 10) = 0.2616744218114641D-01
        xs( 11) = 0.3160611592147010D-01
        xs( 12) = 0.3743796068570079D-01
        xs( 13) = 0.4363092308561555D-01
        xs( 14) = 0.5015585835700449D-01
        xs( 15) = 0.5698641137045640D-01
        xs( 16) = 0.6409881387420351D-01
        xs( 17) = 0.7147166539235510D-01
        xs( 18) = 0.7908572466833889D-01
        xs( 19) = 0.8692371931947396D-01
        xs( 20) = 0.9497017378051019D-01
        xs( 21) = 0.1032112535651264D+00
        xs( 22) = 0.1116346240113074D+00
        xs( 23) = 0.1202293223871450D+00
        xs( 24) = 0.1289856428637127D+00
        xs( 25) = 0.1378950343975003D+00
        xs( 26) = 0.1469500116446138D+00
        xs( 27) = 0.1561440795144698D+00
        xs( 28) = 0.1654716717999418D+00
        xs( 29) = 0.1749281039023796D+00
        xs( 30) = 0.1845095408778799D+00
        xs( 31) = 0.1942129864107540D+00
        xs( 32) = 0.2040363299953630D+00
        xs( 33) = 0.2139784573907630D+00
        xs( 34) = 0.2240392157669717D+00
        xs( 35) = 0.2342190298571984D+00
        xs( 36) = 0.2445179462853586D+00
        xs( 37) = 0.2549356837626995D+00
        xs( 38) = 0.2654863339636439D+00
        xs( 39) = 0.2762420041977079D+00
        xs( 40) = 0.2872760770587291D+00
        xs( 41) = 0.2982305502399803D+00
        xs( 42) = 0.3088939872784644D+00
        ws(  1) = 0.3911016015917361D-03
        ws(  2) = 0.9233101296148097D-03
        ws(  3) = 0.1480210448012754D-02
        ws(  4) = 0.2058893024201465D-02
        ws(  5) = 0.2646080925276129D-02
        ws(  6) = 0.3224409062202046D-02
        ws(  7) = 0.3778976585273502D-02
        ws(  8) = 0.4300358532142455D-02
        ws(  9) = 0.4784408729961851D-02
        ws( 10) = 0.5230685108749099D-02
        ws( 11) = 0.5640844261263101D-02
        ws( 12) = 0.6017501860253983D-02
        ws( 13) = 0.6363567781321292D-02
        ws( 14) = 0.6681913766205611D-02
        ws( 15) = 0.6975234592921512D-02
        ws( 16) = 0.7246007158416162D-02
        ws( 17) = 0.7496492172381752D-02
        ws( 18) = 0.7728750511579173D-02
        ws( 19) = 0.7944662121201391D-02
        ws( 20) = 0.8145943404086786D-02
        ws( 21) = 0.8334162514497244D-02
        ws( 22) = 0.8510753170887186D-02
        ws( 23) = 0.8677027665738465D-02
        ws( 24) = 0.8834189673003451D-02
        ws( 25) = 0.8983347126212094D-02
        ws( 26) = 0.9125525367018505D-02
        ws( 27) = 0.9261681783760717D-02
        ws( 28) = 0.9392721852309624D-02
        ws( 29) = 0.9519515847393132D-02
        ws( 30) = 0.9642901675398824D-02
        ws( 31) = 0.9763661046781389D-02
        ws( 32) = 0.9882540802596620D-02
        ws( 33) = 0.1000055302082085D-01
        ws( 34) = 0.1012013018347517D-01
        ws( 35) = 0.1024637311881597D-01
        ws( 36) = 0.1037922631989899D-01
        ws( 37) = 0.1048434506166793D-01
        ws( 38) = 0.1048425846685250D-01
        ws( 39) = 0.1043740489233337D-01
        ws( 40) = 0.1108929598574333D-01
        ws( 41) = 0.1396452216122096D-01
        ws( 42) = 0.1683382214567063D-01
        endif
        if( idomain .eq.   51 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.4000000000000000D-01
        rk1r = 0.4000000000000000D+00
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  42
        err = 0.3829700412657229D-13
        xs(  1) = 0.1347848982728279D-03
        xs(  2) = 0.7173249015357667D-03
        xs(  3) = 0.1791645450559993D-02
        xs(  4) = 0.3392487421767326D-02
        xs(  5) = 0.5550769330175505D-02
        xs(  6) = 0.8282920613318277D-02
        xs(  7) = 0.1158660765184178D-01
        xs(  8) = 0.1544288203116979D-01
        xs(  9) = 0.1982161125840867D-01
        xs( 10) = 0.2468703878329273D-01
        xs( 11) = 0.3000190763389095D-01
        xs( 12) = 0.3572995089866710D-01
        xs( 13) = 0.4183714968049499D-01
        xs( 14) = 0.4829223233709680D-01
        xs( 15) = 0.5506676788286898D-01
        xs( 16) = 0.6213506808764184D-01
        xs( 17) = 0.6947401256198794D-01
        xs( 18) = 0.7706285134720647D-01
        xs( 19) = 0.8488300827381133D-01
        xs( 20) = 0.9291789385718449D-01
        xs( 21) = 0.1011527306324351D+00
        xs( 22) = 0.1095743918823692D+00
        xs( 23) = 0.1181712542112621D+00
        xs( 24) = 0.1269330644108421D+00
        xs( 25) = 0.1358508210261116D+00
        xs( 26) = 0.1449166710060415D+00
        xs( 27) = 0.1541238221572358D+00
        xs( 28) = 0.1634664714200188D+00
        xs( 29) = 0.1729397490034415D+00
        xs( 30) = 0.1825396793972235D+00
        xs( 31) = 0.1922631668013624D+00
        xs( 32) = 0.2021080266554988D+00
        xs( 33) = 0.2120730689596243D+00
        xs( 34) = 0.2221581723192711D+00
        xs( 35) = 0.2323640937116179D+00
        xs( 36) = 0.2426912243432157D+00
        xs( 37) = 0.2531386590931456D+00
        xs( 38) = 0.2637167306260953D+00
        xs( 39) = 0.2744880068186852D+00
        xs( 40) = 0.2855343959565476D+00
        xs( 41) = 0.2965771800130154D+00
        xs( 42) = 0.3073890361099292D+00
        ws(  1) = 0.3467454129086268D-03
        ws(  2) = 0.8229717131727690D-03
        ws(  3) = 0.1331678434810712D-02
        ws(  4) = 0.1875349423417309D-02
        ws(  5) = 0.2444022954691677D-02
        ws(  6) = 0.3019845872992947D-02
        ws(  7) = 0.3584271497028131D-02
        ws(  8) = 0.4123158997570859D-02
        ws(  9) = 0.4628271197046874D-02
        ws( 10) = 0.5096334008189303D-02
        ws( 11) = 0.5527339432775634D-02
        ws( 12) = 0.5923069798291283D-02
        ws( 13) = 0.6286114760688083D-02
        ws( 14) = 0.6619313941969086D-02
        ws( 15) = 0.6925478811755002D-02
        ws( 16) = 0.7207271538725274D-02
        ws( 17) = 0.7467162378545330D-02
        ws( 18) = 0.7707422287712160D-02
        ws( 19) = 0.7930129564763895D-02
        ws( 20) = 0.8137181379777002D-02
        ws( 21) = 0.8330306839260207D-02
        ws( 22) = 0.8511080642396057D-02
        ws( 23) = 0.8680937132771295D-02
        ws( 24) = 0.8841184818613285D-02
        ws( 25) = 0.8993021119679366D-02
        ws( 26) = 0.9137547690963480D-02
        ws( 27) = 0.9275786752019698D-02
        ws( 28) = 0.9408698786071812D-02
        ws( 29) = 0.9537202183256153D-02
        ws( 30) = 0.9662183776484624D-02
        ws( 31) = 0.9784479214534464D-02
        ws( 32) = 0.9904837630263799D-02
        ws( 33) = 0.1002415111756213D-01
        ws( 34) = 0.1014475205021331D-01
        ws( 35) = 0.1027205456300319D-01
        ws( 36) = 0.1040803932306605D-01
        ws( 37) = 0.1052270336355490D-01
        ws( 38) = 0.1053405289108432D-01
        ws( 39) = 0.1046017255639605D-01
        ws( 40) = 0.1099097155705921D-01
        ws( 41) = 0.1382524501742758D-01
        ws( 42) = 0.1712277177716788D-01
        endif
        if( idomain .eq.   52 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.4000000000000000D-01
        rk1r = 0.1000000000000000D+01
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  41
        err = 0.6972987326207909D-13
        xs(  1) = 0.9984410586543265D-04
        xs(  2) = 0.5332471838185510D-03
        xs(  3) = 0.1341063707508625D-02
        xs(  4) = 0.2566562325036756D-02
        xs(  5) = 0.4260451070372709D-02
        xs(  6) = 0.6469550541697526D-02
        xs(  7) = 0.9226467469888179D-02
        xs(  8) = 0.1254414144349075D-01
        xs(  9) = 0.1641625222997264D-01
        xs( 10) = 0.2082156862301013D-01
        xs( 11) = 0.2572946576160862D-01
        xs( 12) = 0.3110471219816676D-01
        xs( 13) = 0.3691086152799001D-01
        xs( 14) = 0.4311235292447468D-01
        xs( 15) = 0.4967567675654108D-01
        xs( 16) = 0.5656994040593030D-01
        xs( 17) = 0.6376707324906337D-01
        xs( 18) = 0.7124182310552298D-01
        xs( 19) = 0.7897163716789379D-01
        xs( 20) = 0.8693648366093831D-01
        xs( 21) = 0.9511864828974656D-01
        xs( 22) = 0.1035025260708785D+00
        xs( 23) = 0.1120744208998844D+00
        xs( 24) = 0.1208223600196878D+00
        xs( 25) = 0.1297359274166422D+00
        xs( 26) = 0.1388061183016738D+00
        xs( 27) = 0.1480252153277487D+00
        xs( 28) = 0.1573866880360921D+00
        xs( 29) = 0.1668851163015364D+00
        xs( 30) = 0.1765161384681631D+00
        xs( 31) = 0.1862764229899531D+00
        xs( 32) = 0.1961636685669181D+00
        xs( 33) = 0.2061766311179821D+00
        xs( 34) = 0.2163151360230097D+00
        xs( 35) = 0.2265802850060793D+00
        xs( 36) = 0.2369754586440883D+00
        xs( 37) = 0.2475099858089688D+00
        xs( 38) = 0.2582054596736782D+00
        xs( 39) = 0.2690622257276652D+00
        xs( 40) = 0.2799470246919281D+00
        xs( 41) = 0.2908325481034979D+00
        ws(  1) = 0.2570612280348157D-03
        ws(  2) = 0.6145041205110805D-03
        ws(  3) = 0.1008477483682153D-02
        ws(  4) = 0.1451171314673317D-02
        ws(  5) = 0.1944592193636352D-02
        ws(  6) = 0.2479134387877354D-02
        ws(  7) = 0.3036843653385108D-02
        ws(  8) = 0.3597371086049286D-02
        ws(  9) = 0.4143215398968611D-02
        ws( 10) = 0.4662232123903797D-02
        ws( 11) = 0.5147634189231039D-02
        ws( 12) = 0.5596750222532641D-02
        ws( 13) = 0.6009603024082665D-02
        ws( 14) = 0.6387785960791780D-02
        ws( 15) = 0.6733709867768822D-02
        ws( 16) = 0.7050139265402638D-02
        ws( 17) = 0.7339919837129540D-02
        ws( 18) = 0.7605824124622484D-02
        ws( 19) = 0.7850468810067264D-02
        ws( 20) = 0.8076275290771987D-02
        ws( 21) = 0.8285456496225273D-02
        ws( 22) = 0.8480019489101450D-02
        ws( 23) = 0.8661777485153913D-02
        ws( 24) = 0.8832367120383230D-02
        ws( 25) = 0.8993268878828894D-02
        ws( 26) = 0.9145828608069130D-02
        ws( 27) = 0.9291279491663175D-02
        ws( 28) = 0.9430764645087686D-02
        ws( 29) = 0.9565359563707432D-02
        ws( 30) = 0.9696102036574764D-02
        ws( 31) = 0.9824045382619048D-02
        ws( 32) = 0.9950355517816145D-02
        ws( 33) = 0.1007627505362473D-01
        ws( 34) = 0.1020246488666389D-01
        ws( 35) = 0.1032727500461635D-01
        ws( 36) = 0.1044632788722770D-01
        ws( 37) = 0.1057057806324481D-01
        ws( 38) = 0.1079123410361921D-01
        ws( 39) = 0.1132172471877610D-01
        ws( 40) = 0.1223607572254104D-01
        ws( 41) = 0.1182363176820812D-01
        endif
        if( idomain .eq.   53 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.4000000000000000D-01
        rk1r = 0.1570796326794897D+01
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  42
        err = 0.6385769795494973D-13
        xs(  1) = 0.7734694465755250D-04
        xs(  2) = 0.4132627267914427D-03
        xs(  3) = 0.1040695546632583D-02
        xs(  4) = 0.1997887147927127D-02
        xs(  5) = 0.3335372690989978D-02
        xs(  6) = 0.5109063613610277D-02
        xs(  7) = 0.7370701057485417D-02
        xs(  8) = 0.1015871092862306D-01
        xs(  9) = 0.1349278619931337D-01
        xs( 10) = 0.1737347958647728D-01
        xs( 11) = 0.2178558894214123D-01
        xs( 12) = 0.2670303872119754D-01
        xs( 13) = 0.3209346990873862D-01
        xs( 14) = 0.3792178780785242D-01
        xs( 15) = 0.4415261222719881D-01
        xs( 16) = 0.5075183659793386D-01
        xs( 17) = 0.5768753950980971D-01
        xs( 18) = 0.6493045160053755D-01
        xs( 19) = 0.7245412764368776D-01
        xs( 20) = 0.8023493008899991D-01
        xs( 21) = 0.8825189883116182D-01
        xs( 22) = 0.9648655938410412D-01
        xs( 23) = 0.1049227049607118D+00
        xs( 24) = 0.1135461755483808D+00
        xs( 25) = 0.1223446481473080D+00
        xs( 26) = 0.1313074460475214D+00
        xs( 27) = 0.1404253712066817D+00
        xs( 28) = 0.1496905612386001D+00
        xs( 29) = 0.1590963711579316D+00
        xs( 30) = 0.1686372809167690D+00
        xs( 31) = 0.1783088286622127D+00
        xs( 32) = 0.1881075669306301D+00
        xs( 33) = 0.1980310250911397D+00
        xs( 34) = 0.2080776781658863D+00
        xs( 35) = 0.2182470416468616D+00
        xs( 36) = 0.2285399830426864D+00
        xs( 37) = 0.2389593814580722D+00
        xs( 38) = 0.2495124833542372D+00
        xs( 39) = 0.2602103735567139D+00
        xs( 40) = 0.2710313615287625D+00
        xs( 41) = 0.2818415604045979D+00
        xs( 42) = 0.2925406472855972D+00
        ws(  1) = 0.1991525809758576D-03
        ws(  2) = 0.4765428432586763D-03
        ws(  3) = 0.7847454346701371D-03
        ws(  4) = 0.1138178089380230D-02
        ws(  5) = 0.1546278640329693D-02
        ws(  6) = 0.2009888277585001D-02
        ws(  7) = 0.2519884412109084D-02
        ws(  8) = 0.3059420668057653D-02
        ws(  9) = 0.3608759361705257D-02
        ws( 10) = 0.4150007931652390D-02
        ws( 11) = 0.4669786782001284D-02
        ws( 12) = 0.5159660530387933D-02
        ws( 13) = 0.5615312463746228D-02
        ws( 14) = 0.6035401255340536D-02
        ws( 15) = 0.6420548448268408D-02
        ws( 16) = 0.6772572628364238D-02
        ws( 17) = 0.7093952348111657D-02
        ws( 18) = 0.7387464744615654D-02
        ws( 19) = 0.7655950042309228D-02
        ws( 20) = 0.7902164777073090D-02
        ws( 21) = 0.8128697312062547D-02
        ws( 22) = 0.8337926380767031D-02
        ws( 23) = 0.8532008287295017D-02
        ws( 24) = 0.8712882228160905D-02
        ws( 25) = 0.8882286264708879D-02
        ws( 26) = 0.9041778902642045D-02
        ws( 27) = 0.9192763360105509D-02
        ws( 28) = 0.9336511797573997D-02
        ws( 29) = 0.9474189288814732D-02
        ws( 30) = 0.9606879336972516D-02
        ws( 31) = 0.9735616442693837D-02
        ws( 32) = 0.9861433734897692D-02
        ws( 33) = 0.9985400932291399D-02
        ws( 34) = 0.1010857072855249D-01
        ws( 35) = 0.1023145927913636D-01
        ws( 36) = 0.1035232714441425D-01
        ws( 37) = 0.1046754651825831D-01
        ws( 38) = 0.1059009785014169D-01
        ws( 39) = 0.1080592190961075D-01
        ws( 40) = 0.1131262028111876D-01
        ws( 41) = 0.1206640383696415D-01
        ws( 42) = 0.1102919874389287D-01
        endif
        if( idomain .eq.   54 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.4000000000000000D-01
        rk1r = 0.3141592653589793D+01
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  44
        err = 0.9363311529868879D-13
        xs(  1) = 0.4463950065763415D-04
        xs(  2) = 0.2379774224016392D-03
        xs(  3) = 0.5973517566164922D-03
        xs(  4) = 0.1143483451409257D-02
        xs(  5) = 0.1907898532935958D-02
        xs(  6) = 0.2934161395523282D-02
        xs(  7) = 0.4278055413472313D-02
        xs(  8) = 0.6005295572026879D-02
        xs(  9) = 0.8185238500600255D-02
        xs( 10) = 0.1088030636652284D-01
        xs( 11) = 0.1413382372905456D-01
        xs( 12) = 0.1796190296800687D-01
        xs( 13) = 0.2235394381827989D-01
        xs( 14) = 0.2728047741428101D-01
        xs( 15) = 0.3270266342193917D-01
        xs( 16) = 0.3857913762124354D-01
        xs( 17) = 0.4486958091701974D-01
        xs( 18) = 0.5153621544783784D-01
        xs( 19) = 0.5854436770829305D-01
        xs( 20) = 0.6586266571546912D-01
        xs( 21) = 0.7346305977234877D-01
        xs( 22) = 0.8132072033804374D-01
        xs( 23) = 0.8941384404525732D-01
        xs( 24) = 0.9772340206992425D-01
        xs( 25) = 0.1062328640800537D+00
        xs( 26) = 0.1149279238410569D+00
        xs( 27) = 0.1237962435711003D+00
        xs( 28) = 0.1328272263841460D+00
        xs( 29) = 0.1420118207943344D+00
        xs( 30) = 0.1513423579374816D+00
        xs( 31) = 0.1608124207110710D+00
        xs( 32) = 0.1704167450063277D+00
        xs( 33) = 0.1801511496526075D+00
        xs( 34) = 0.1900124952733297D+00
        xs( 35) = 0.1999986720055837D+00
        xs( 36) = 0.2101085755305257D+00
        xs( 37) = 0.2203421270134364D+00
        xs( 38) = 0.2307008439177132D+00
        xs( 39) = 0.2411891916412506D+00
        xs( 40) = 0.2518157855762267D+00
        xs( 41) = 0.2625905963106001D+00
        xs( 42) = 0.2734933995691409D+00
        xs( 43) = 0.2843968635863996D+00
        xs( 44) = 0.2951917201992656D+00
        ws(  1) = 0.1148738225518991D-03
        ws(  2) = 0.2737266222691970D-03
        ws(  3) = 0.4484481742527794D-03
        ws(  4) = 0.6490474107854457D-03
        ws(  5) = 0.8870368856242405D-03
        ws(  6) = 0.1174819989858740D-02
        ws(  7) = 0.1524023848540416D-02
        ws(  8) = 0.1942198355736075D-02
        ws(  9) = 0.2428309113167523D-02
        ws( 10) = 0.2969196209136494D-02
        ws( 11) = 0.3540511823350395D-02
        ws( 12) = 0.4113732431133128D-02
        ws( 13) = 0.4665268453921474D-02
        ws( 14) = 0.5181210881419414D-02
        ws( 15) = 0.5656211298844158D-02
        ws( 16) = 0.6089995146105892D-02
        ws( 17) = 0.6484586974473184D-02
        ws( 18) = 0.6842900231960804D-02
        ws( 19) = 0.7168175366858915D-02
        ws( 20) = 0.7463747468379340D-02
        ws( 21) = 0.7732905706386176D-02
        ws( 22) = 0.7978785806232406D-02
        ws( 23) = 0.8204294801810123D-02
        ws( 24) = 0.8412070806608649D-02
        ws( 25) = 0.8604473121586314D-02
        ws( 26) = 0.8783593893400617D-02
        ws( 27) = 0.8951282660676558D-02
        ws( 28) = 0.9109177127888782D-02
        ws( 29) = 0.9258736005445271D-02
        ws( 30) = 0.9401271064278877D-02
        ws( 31) = 0.9537978108422728D-02
        ws( 32) = 0.9669967350852210D-02
        ws( 33) = 0.9798296084168597D-02
        ws( 34) = 0.9924035055226953D-02
        ws( 35) = 0.1004834206274887D-01
        ws( 36) = 0.1017226577471860D-01
        ws( 37) = 0.1029595951706956D-01
        ws( 38) = 0.1041754261381262D-01
        ws( 39) = 0.1053659287245685D-01
        ws( 40) = 0.1067847852943003D-01
        ws( 41) = 0.1094429045331478D-01
        ws( 42) = 0.1145033463281822D-01
        ws( 43) = 0.1182769399095502D-01
        ws( 44) = 0.1031313820829068D-01
        endif
        if( idomain .eq.   55 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.4000000000000000D-01
        rk1r = 0.6283185307179586D+01
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  48
        err = 0.9135101312636110D-13
        xs(  1) = 0.2036345464749682D-04
        xs(  2) = 0.1079872495811993D-03
        xs(  3) = 0.2685122924367008D-03
        xs(  4) = 0.5071355724018262D-03
        xs(  5) = 0.8318243313626515D-03
        xs(  6) = 0.1253933854423947D-02
        xs(  7) = 0.1789042663101809D-02
        xs(  8) = 0.2458071711016680D-02
        xs(  9) = 0.3288723297473365D-02
        xs( 10) = 0.4317223778740562D-02
        xs( 11) = 0.5590221828375728D-02
        xs( 12) = 0.7166416599006307D-02
        xs( 13) = 0.9117002971773733D-02
        xs( 14) = 0.1152334573064174D-01
        xs( 15) = 0.1446977149212916D-01
        xs( 16) = 0.1803005477211774D-01
        xs( 17) = 0.2224974847291342D-01
        xs( 18) = 0.2713250848560905D-01
        xs( 19) = 0.3264019158322985D-01
        xs( 20) = 0.3870742883694797D-01
        xs( 21) = 0.4526051122380925D-01
        xs( 22) = 0.5223075254147369D-01
        xs( 23) = 0.5956012073833381D-01
        xs( 24) = 0.6720176599837435D-01
        xs( 25) = 0.7511841415077219D-01
        xs( 26) = 0.8328033854194036D-01
        xs( 27) = 0.9166358544203285D-01
        xs( 28) = 0.1002486060479917D+00
        xs( 29) = 0.1090192550659766D+00
        xs( 30) = 0.1179620706389653D+00
        xs( 31) = 0.1270657571034380D+00
        xs( 32) = 0.1363208110667805D+00
        xs( 33) = 0.1457192491520105D+00
        xs( 34) = 0.1552544095080466D+00
        xs( 35) = 0.1649208087149289D+00
        xs( 36) = 0.1747140424424820D+00
        xs( 37) = 0.1846307227864934D+00
        xs( 38) = 0.1946684468739729D+00
        xs( 39) = 0.2048257930127226D+00
        xs( 40) = 0.2151023451788769D+00
        xs( 41) = 0.2254988362154647D+00
        xs( 42) = 0.2360176595305603D+00
        xs( 43) = 0.2466636644918726D+00
        xs( 44) = 0.2574434948552727D+00
        xs( 45) = 0.2683561999079320D+00
        xs( 46) = 0.2793739324251847D+00
        xs( 47) = 0.2904316235836861D+00
        xs( 48) = 0.3014384234115357D+00
        ws(  1) = 0.5233782309427110D-04
        ws(  2) = 0.1234121037705819D-03
        ws(  3) = 0.1984951195552977D-03
        ws(  4) = 0.2800693845602675D-03
        ws(  5) = 0.3711868883933637D-03
        ws(  6) = 0.4756100223164630D-03
        ws(  7) = 0.5980704313429465D-03
        ws(  8) = 0.7445753728890785D-03
        ws(  9) = 0.9227329624665531D-03
        ws( 10) = 0.1142013563882824D-02
        ws( 11) = 0.1413754517432354D-02
        ws( 12) = 0.1750534174445230D-02
        ws( 13) = 0.2164314887731536D-02
        ws( 14) = 0.2662653841744281D-02
        ws( 15) = 0.3242808748610152D-02
        ws( 16) = 0.3885607125671080D-02
        ws( 17) = 0.4554390978203139D-02
        ws( 18) = 0.5204498186157596D-02
        ws( 19) = 0.5799631762312940D-02
        ws( 20) = 0.6322332058556588D-02
        ws( 21) = 0.6772299468674453D-02
        ws( 22) = 0.7158509882493528D-02
        ws( 23) = 0.7492448863372481D-02
        ws( 24) = 0.7784664476775190D-02
        ws( 25) = 0.8043707201814403D-02
        ws( 26) = 0.8276171945278295D-02
        ws( 27) = 0.8487080191736459D-02
        ws( 28) = 0.8680281948631418D-02
        ws( 29) = 0.8858780923382150D-02
        ws( 30) = 0.9024973745626896D-02
        ws( 31) = 0.9180819768165958D-02
        ws( 32) = 0.9327960916082220D-02
        ws( 33) = 0.9467807403918433D-02
        ws( 34) = 0.9601600890102292D-02
        ws( 35) = 0.9730462958988955D-02
        ws( 36) = 0.9855436274229129D-02
        ws( 37) = 0.9977524366036272D-02
        ws( 38) = 0.1009773117018147D-01
        ws( 39) = 0.1021706650416945D-01
        ws( 40) = 0.1033640394060649D-01
        ws( 41) = 0.1045617998668184D-01
        ws( 42) = 0.1057668074714815D-01
        ws( 43) = 0.1070298151411300D-01
        ws( 44) = 0.1086054615632238D-01
        ws( 45) = 0.1110310795356750D-01
        ws( 46) = 0.1142482081124779D-01
        ws( 47) = 0.1137600183852225D-01
        ws( 48) = 0.9881071116990076D-02
        endif
        if( idomain .eq.   56 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.4000000000000000D-01
        rk1r = 0.9424777960769379D+01
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  52
        err = 0.7104465047079742D-13
        xs(  1) = 0.1170686940416894D-04
        xs(  2) = 0.6191807981068515D-04
        xs(  3) = 0.1532250261523272D-03
        xs(  4) = 0.2873691435763524D-03
        xs(  5) = 0.4669615331239306D-03
        xs(  6) = 0.6956389940755675D-03
        xs(  7) = 0.9782619491688713D-03
        xs(  8) = 0.1321180392632865D-02
        xs(  9) = 0.1732587953976262D-02
        xs( 10) = 0.2222990608963201D-02
        xs( 11) = 0.2805824982943740D-02
        xs( 12) = 0.3498270310996115D-02
        xs( 13) = 0.4322305825801539D-02
        xs( 14) = 0.5306066539669633D-02
        xs( 15) = 0.6485533975909484D-02
        xs( 16) = 0.7906542371909530D-02
        xs( 17) = 0.9626945178030342D-02
        xs( 18) = 0.1171850546903735D-01
        xs( 19) = 0.1426755532030565D-01
        xs( 20) = 0.1737263883244838D-01
        xs( 21) = 0.2113637434331159D-01
        xs( 22) = 0.2564871633479530D-01
        xs( 23) = 0.3096243054596007D-01
        xs( 24) = 0.3707077093283898D-01
        xs( 25) = 0.4390409527237058D-01
        xs( 26) = 0.5135153087652054D-01
        xs( 27) = 0.5929300231960611D-01
        xs( 28) = 0.6762262914393392D-01
        xs( 29) = 0.7625762730210950D-01
        xs( 30) = 0.8513744178095392D-01
        xs( 31) = 0.9421915823298892D-01
        xs( 32) = 0.1034726524795213D+00
        xs( 33) = 0.1128766991835434D+00
        xs( 34) = 0.1224161812243270D+00
        xs( 35) = 0.1320801911214668D+00
        xs( 36) = 0.1418607718046822D+00
        xs( 37) = 0.1517520922110817D+00
        xs( 38) = 0.1617499128166318D+00
        xs( 39) = 0.1718512443335145D+00
        xs( 40) = 0.1820541374078902D+00
        xs( 41) = 0.1923575645769603D+00
        xs( 42) = 0.2027613720904229D+00
        xs( 43) = 0.2132662873579215D+00
        xs( 44) = 0.2238739805431743D+00
        xs( 45) = 0.2345871578242676D+00
        xs( 46) = 0.2454097105588442D+00
        xs( 47) = 0.2563471228332861D+00
        xs( 48) = 0.2674085457017888D+00
        xs( 49) = 0.2785988755727915D+00
        xs( 50) = 0.2898889796462246D+00
        xs( 51) = 0.3014035151262428D+00
        xs( 52) = 0.3129814632018458D+00
        ws(  1) = 0.3007033122068053D-04
        ws(  2) = 0.7053329737177815D-04
        ws(  3) = 0.1123677708272455D-03
        ws(  4) = 0.1563532258768645D-03
        ws(  5) = 0.2034344280771666D-03
        ws(  6) = 0.2547261779682681D-03
        ws(  7) = 0.3115722260373897D-03
        ws(  8) = 0.3756225368070483D-03
        ws(  9) = 0.4489333820617118D-03
        ws( 10) = 0.5340979582439316D-03
        ws( 11) = 0.6344165047758774D-03
        ws( 12) = 0.7541148618888369D-03
        ws( 13) = 0.8986171409060722D-03
        ws( 14) = 0.1074867456676277D-02
        ws( 15) = 0.1291669401668164D-02
        ws( 16) = 0.1559955985982945D-02
        ws( 17) = 0.1892795012892774D-02
        ws( 18) = 0.2304746734349921D-02
        ws( 19) = 0.2809904525368379D-02
        ws( 20) = 0.3417643496209061D-02
        ws( 21) = 0.4125252160984920D-02
        ws( 22) = 0.4908647013481436D-02
        ws( 23) = 0.5717734850385286D-02
        ws( 24) = 0.6486932896347777D-02
        ws( 25) = 0.7160649083915842D-02
        ws( 26) = 0.7713808565498231D-02
        ws( 27) = 0.8151355048941404D-02
        ws( 28) = 0.8494131341611866D-02
        ws( 29) = 0.8765856759755136D-02
        ws( 30) = 0.8986703036261126D-02
        ws( 31) = 0.9171774088188039D-02
        ws( 32) = 0.9331722758172546D-02
        ws( 33) = 0.9473882143419125D-02
        ws( 34) = 0.9603284522100753D-02
        ws( 35) = 0.9723422486309618D-02
        ws( 36) = 0.9836775694304311D-02
        ws( 37) = 0.9945164052731740D-02
        ws( 38) = 0.1004998250257176D-01
        ws( 39) = 0.1015235832363192D-01
        ws( 40) = 0.1025325889125925D-01
        ws( 41) = 0.1035356757919905D-01
        ws( 42) = 0.1045414656485722D-01
        ws( 43) = 0.1055590170895215D-01
        ws( 44) = 0.1065989937475136D-01
        ws( 45) = 0.1076737692918469D-01
        ws( 46) = 0.1087938922935109D-01
        ws( 47) = 0.1099673522159596D-01
        ws( 48) = 0.1112885916264906D-01
        ws( 49) = 0.1130711735351241D-01
        ws( 50) = 0.1143682767248497D-01
        ws( 51) = 0.1133894397187966D-01
        ws( 52) = 0.1210820321684596D-01
        endif
        if( idomain .eq.   57 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.4000000000000000D-01
        rk1r = 0.1256637061435917D+02
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  56
        err = 0.4860299309130941D-13
        xs(  1) = 0.7663271204518264D-05
        xs(  2) = 0.4047734771211133D-04
        xs(  3) = 0.9992470743662172D-04
        xs(  4) = 0.1867420906992471D-03
        xs(  5) = 0.3020147529946420D-03
        xs(  6) = 0.4472298059140963D-03
        xs(  7) = 0.6243359194386434D-03
        xs(  8) = 0.8358204911140130D-03
        xs(  9) = 0.1084808863018880D-02
        xs( 10) = 0.1375191302583575D-02
        xs( 11) = 0.1711785528020650D-02
        xs( 12) = 0.2100545282632305D-02
        xs( 13) = 0.2548828987131196D-02
        xs( 14) = 0.3065747044707141D-02
        xs( 15) = 0.3662612158998688D-02
        xs( 16) = 0.4353524163156266D-02
        xs( 17) = 0.5156129131279564D-02
        xs( 18) = 0.6092600936715104D-02
        xs( 19) = 0.7190899191395212D-02
        xs( 20) = 0.8486354397710422D-02
        xs( 21) = 0.1002360615555208D-01
        xs( 22) = 0.1185884781893590D-01
        xs( 23) = 0.1406216297057302D-01
        xs( 24) = 0.1671938932514504D-01
        xs( 25) = 0.1993227817237301D-01
        xs( 26) = 0.2381460748568485D-01
        xs( 27) = 0.2848063186895380D-01
        xs( 28) = 0.3402260413045395D-01
        xs( 29) = 0.4048009620624564D-01
        xs( 30) = 0.4781629289983113D-01
        xs( 31) = 0.5592155376248456D-01
        xs( 32) = 0.6464615526777664D-01
        xs( 33) = 0.7383997554604103D-01
        xs( 34) = 0.8337768092466823D-01
        xs( 35) = 0.9316588238123134D-01
        xs( 36) = 0.1031396341020555D+00
        xs( 37) = 0.1132555770862877D+00
        xs( 38) = 0.1234854715402661D+00
        xs( 39) = 0.1338112540705242D+00
        xs( 40) = 0.1442216008218656D+00
        xs( 41) = 0.1547096492661783D+00
        xs( 42) = 0.1652715271625231D+00
        xs( 43) = 0.1759054197007386D+00
        xs( 44) = 0.1866109900474321D+00
        xs( 45) = 0.1973890332043342D+00
        xs( 46) = 0.2082412863437601D+00
        xs( 47) = 0.2191703504442378D+00
        xs( 48) = 0.2301796982515058D+00
        xs( 49) = 0.2412737718208209D+00
        xs( 50) = 0.2524582055718895D+00
        xs( 51) = 0.2637393732463501D+00
        xs( 52) = 0.2751280986449033D+00
        xs( 53) = 0.2866432811033611D+00
        xs( 54) = 0.2982467072684499D+00
        xs( 55) = 0.3099869231521078D+00
        xs( 56) = 0.3216671892071898D+00
        ws(  1) = 0.1967780273438230D-04
        ws(  2) = 0.4603356673238487D-04
        ws(  3) = 0.7298245956249337D-04
        ws(  4) = 0.1008324018055218D-03
        ws(  5) = 0.1299597920388597D-03
        ws(  6) = 0.1607938159901243D-03
        ws(  7) = 0.1938313370489614D-03
        ws(  8) = 0.2296565985796956D-03
        ws(  9) = 0.2689658390745155D-03
        ws( 10) = 0.3125985498500054D-03
        ws( 11) = 0.3615777577632323D-03
        ws( 12) = 0.4171624239373204D-03
        ws( 13) = 0.4809159547863137D-03
        ws( 14) = 0.5547959583531346D-03
        ws( 15) = 0.6412717060494288D-03
        ws( 16) = 0.7434770867914883D-03
        ws( 17) = 0.8654076582196942D-03
        ws( 18) = 0.1012169547600425D-02
        ws( 19) = 0.1190282999650797D-02
        ws( 20) = 0.1408029492314737D-02
        ws( 21) = 0.1675799420692271D-02
        ws( 22) = 0.2006330698029854D-02
        ws( 23) = 0.2414597821372345D-02
        ws( 24) = 0.2916869194225269D-02
        ws( 25) = 0.3528053964255714D-02
        ws( 26) = 0.4256024322973026D-02
        ws( 27) = 0.5091949173657880D-02
        ws( 28) = 0.5999047156345107D-02
        ws( 29) = 0.6909750593698999D-02
        ws( 30) = 0.7743755894416488D-02
        ws( 31) = 0.8441091561078818D-02
        ws( 32) = 0.8982668256234554D-02
        ws( 33) = 0.9383986664286657D-02
        ws( 34) = 0.9675935909524151D-02
        ws( 35) = 0.9889765215812434D-02
        ws( 36) = 0.1005062160077555D-01
        ws( 37) = 0.1017663976577683D-01
        ws( 38) = 0.1028019492548895D-01
        ws( 39) = 0.1036951994281291D-01
        ws( 40) = 0.1045005369833952D-01
        ws( 41) = 0.1052541292760498D-01
        ws( 42) = 0.1059804965170746D-01
        ws( 43) = 0.1066968439423885D-01
        ws( 44) = 0.1074159085397962D-01
        ws( 45) = 0.1081478671551693D-01
        ws( 46) = 0.1089016697825014D-01
        ws( 47) = 0.1096860440438198D-01
        ws( 48) = 0.1105098067075407D-01
        ws( 49) = 0.1113820336270557D-01
        ws( 50) = 0.1123175076545005D-01
        ws( 51) = 0.1133020908738139D-01
        ws( 52) = 0.1143125708776566D-01
        ws( 53) = 0.1161159815250756D-01
        ws( 54) = 0.1175151169331572D-01
        ws( 55) = 0.1226621176581703D-01
        ws( 56) = 0.1132245027020656D-01
        endif
        if( idomain .eq.   58 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.4000000000000000D-01
        rk1r = 0.1570796326794897D+02
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  57
        err = 0.8849446551493004D-13
        xs(  1) = 0.5613408439000682D-05
        xs(  2) = 0.2962860109606653D-04
        xs(  3) = 0.7304734375376241D-04
        xs(  4) = 0.1362527740284916D-03
        xs(  5) = 0.2198025130158585D-03
        xs(  6) = 0.3244547512223331D-03
        xs(  7) = 0.4511937319429974D-03
        xs(  8) = 0.6012615230255866D-03
        xs(  9) = 0.7761976413219320D-03
        xs( 10) = 0.9778882245643097D-03
        xs( 11) = 0.1208627051376036D-02
        xs( 12) = 0.1471191524887920D-02
        xs( 13) = 0.1768937782678575D-02
        xs( 14) = 0.2105920458799422D-02
        xs( 15) = 0.2487044426027960D-02
        xs( 16) = 0.2918258256541629D-02
        xs( 17) = 0.3406802380351957D-02
        xs( 18) = 0.3961529282880763D-02
        xs( 19) = 0.4593318927387069D-02
        xs( 20) = 0.5315620331369993D-02
        xs( 21) = 0.6145160268602810D-02
        xs( 22) = 0.7102872590661686D-02
        xs( 23) = 0.8215116133934318D-02
        xs( 24) = 0.9515263252744866D-02
        xs( 25) = 0.1104574812341417D-01
        xs( 26) = 0.1286064814214670D-01
        xs( 27) = 0.1502879664476202D-01
        xs( 28) = 0.1763721093981884D-01
        xs( 29) = 0.2079409903103932D-01
        xs( 30) = 0.2462957631969260D-01
        xs( 31) = 0.2929014670411343D-01
        xs( 32) = 0.3492053503681652D-01
        xs( 33) = 0.4162758678204772D-01
        xs( 34) = 0.4943366140203770D-01
        xs( 35) = 0.5824889326536152D-01
        xs( 36) = 0.6789176459494173D-01
        xs( 37) = 0.7814735281329604D-01
        xs( 38) = 0.8882156025954804D-01
        xs( 39) = 0.9976631585678818D-01
        xs( 40) = 0.1108802727410139D+00
        xs( 41) = 0.1220989591860652D+00
        xs( 42) = 0.1333836857979803D+00
        xs( 43) = 0.1447126912032527D+00
        xs( 44) = 0.1560749760318452D+00
        xs( 45) = 0.1674662865164862D+00
        xs( 46) = 0.1788865945685826D+00
        xs( 47) = 0.1903385595086180D+00
        xs( 48) = 0.2018266187557244D+00
        xs( 49) = 0.2133564892117063D+00
        xs( 50) = 0.2249348967525990D+00
        xs( 51) = 0.2365695205196872D+00
        xs( 52) = 0.2482695156606748D+00
        xs( 53) = 0.2600424842551207D+00
        xs( 54) = 0.2719077197893436D+00
        xs( 55) = 0.2838520875651118D+00
        xs( 56) = 0.2958498299651430D+00
        xs( 57) = 0.3077052706666557D+00
        ws(  1) = 0.1441172154907170D-04
        ws(  2) = 0.3366565345964726D-04
        ws(  3) = 0.5323474282507953D-04
        ws(  4) = 0.7326869697897541D-04
        ws(  5) = 0.9395672749422557D-04
        ws(  6) = 0.1155112630681602D-03
        ws(  7) = 0.1381730531975336D-03
        ws(  8) = 0.1622183009827967D-03
        ws(  9) = 0.1879672822271986D-03
        ws( 10) = 0.2157949240898065D-03
        ws( 11) = 0.2461440578751739D-03
        ws( 12) = 0.2795422665887290D-03
        ws( 13) = 0.3166235151581469D-03
        ws( 14) = 0.3581561219990358D-03
        ws( 15) = 0.4050791458858480D-03
        ws( 16) = 0.4585499713013107D-03
        ws( 17) = 0.5200068395653849D-03
        ws( 18) = 0.5912513629526055D-03
        ws( 19) = 0.6745577437536443D-03
        ws( 20) = 0.7728175328595140D-03
        ws( 21) = 0.8897312159151286D-03
        ws( 22) = 0.1030060312079107D-02
        ws( 23) = 0.1199954890382815D-02
        ws( 24) = 0.1407368731716690D-02
        ws( 25) = 0.1662561626697257D-02
        ws( 26) = 0.1978651977621216D-02
        ws( 27) = 0.2372093761076652D-02
        ws( 28) = 0.2862748543209227D-02
        ws( 29) = 0.3472789328780925D-02
        ws( 30) = 0.4222867822448723D-02
        ws( 31) = 0.5123006294447319D-02
        ws( 32) = 0.6156433019686358D-02
        ws( 33) = 0.7261953935130884D-02
        ws( 34) = 0.8334844882394448D-02
        ws( 35) = 0.9264267712707736D-02
        ws( 36) = 0.9984688079091478D-02
        ws( 37) = 0.1049374143358424D-01
        ws( 38) = 0.1083002195741992D-01
        ws( 39) = 0.1104278395710651D-01
        ws( 40) = 0.1117457631648632D-01
        ws( 41) = 0.1125649619164887D-01
        ws( 42) = 0.1130943132091953D-01
        ws( 43) = 0.1134681154551836D-01
        ws( 44) = 0.1137708978968671D-01
        ws( 45) = 0.1140555090295551D-01
        ws( 46) = 0.1143552315029662D-01
        ws( 47) = 0.1146916011182287D-01
        ws( 48) = 0.1150794211247004D-01
        ws( 49) = 0.1155300397246416D-01
        ws( 50) = 0.1160536483380033D-01
        ws( 51) = 0.1166560965467465D-01
        ws( 52) = 0.1173466069992656D-01
        ws( 53) = 0.1181634259118693D-01
        ws( 54) = 0.1191362539270977D-01
        ws( 55) = 0.1203336153485561D-01
        ws( 56) = 0.1230880432652330D-01
        ws( 57) = 0.1155390915461068D-01
        endif
        if( idomain .eq.   59 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.4000000000000000D-01
        rk1r = 0.1884955592153876D+02
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  60
        err = 0.9301337850017973D-13
        xs(  1) = 0.4234351867269391D-05
        xs(  2) = 0.2233888826633267D-04
        xs(  3) = 0.5502685768596705D-04
        xs(  4) = 0.1025087477899379D-03
        xs(  5) = 0.1650869788061893D-03
        xs(  6) = 0.2431701683428983D-03
        xs(  7) = 0.3372849207163509D-03
        xs(  8) = 0.4480899650500655D-03
        xs(  9) = 0.5763932684354266D-03
        xs( 10) = 0.7231726214260473D-03
        xs( 11) = 0.8896003605922589D-03
        xs( 12) = 0.1077073131847405D-02
        xs( 13) = 0.1287247891315369D-02
        xs( 14) = 0.1522085700986511D-02
        xs( 15) = 0.1783905330142513D-02
        xs( 16) = 0.2075449257235943D-02
        xs( 17) = 0.2399965430203216D-02
        xs( 18) = 0.2761309152681597D-02
        xs( 19) = 0.3164070809056575D-02
        xs( 20) = 0.3613736944093968D-02
        xs( 21) = 0.4116894637302360D-02
        xs( 22) = 0.4681492378845845D-02
        xs( 23) = 0.5317175055408050D-02
        xs( 24) = 0.6035716568668847D-02
        xs( 25) = 0.6851581500502714D-02
        xs( 26) = 0.7782657625148980D-02
        xs( 27) = 0.8851214397991782D-02
        xs( 28) = 0.1008515887311213D-01
        xs( 29) = 0.1151967866291570D-01
        xs( 30) = 0.1319937729335592D-01
        xs( 31) = 0.1518100878750300D-01
        xs( 32) = 0.1753687540637177D-01
        xs( 33) = 0.2035879119470694D-01
        xs( 34) = 0.2376205938208171D-01
        xs( 35) = 0.2788779153154878D-01
        xs( 36) = 0.3289953723023993D-01
        xs( 37) = 0.3896663303276796D-01
        xs( 38) = 0.4622570757709154D-01
        xs( 39) = 0.5472390620270365D-01
        xs( 40) = 0.6437587114990298D-01
        xs( 41) = 0.7497683680930484D-01
        xs( 42) = 0.8626989289434182D-01
        xs( 43) = 0.9801695400329311D-01
        xs( 44) = 0.1100352582417656D+00
        xs( 45) = 0.1222008369362840D+00
        xs( 46) = 0.1344366837097422D+00
        xs( 47) = 0.1466985637005851D+00
        xs( 48) = 0.1589635479648968D+00
        xs( 49) = 0.1712220451763029D+00
        xs( 50) = 0.1834726566457085D+00
        xs( 51) = 0.1957189931297045D+00
        xs( 52) = 0.2079677551405375D+00
        xs( 53) = 0.2202276856849198D+00
        xs( 54) = 0.2325087958993612D+00
        xs( 55) = 0.2448226683007108D+00
        xs( 56) = 0.2571806782132359D+00
        xs( 57) = 0.2695934768755798D+00
        xs( 58) = 0.2820714129915599D+00
        xs( 59) = 0.2945436709474434D+00
        xs( 60) = 0.3065883891476640D+00
        ws(  1) = 0.1086993959991247D-04
        ws(  2) = 0.2536753484513221D-04
        ws(  3) = 0.4004283230124942D-04
        ws(  4) = 0.5497117120480216D-04
        ws(  5) = 0.7025320102774733D-04
        ws(  6) = 0.8600071085768231D-04
        ws(  7) = 0.1023382979812810D-03
        ws(  8) = 0.1194061103370466D-03
        ws(  9) = 0.1373630516150380D-03
        ws( 10) = 0.1563905505626375D-03
        ws( 11) = 0.1766971057456978D-03
        ws( 12) = 0.1985238709283550D-03
        ws( 13) = 0.2221516044233102D-03
        ws( 14) = 0.2479093843337177D-03
        ws( 15) = 0.2761856013161680D-03
        ws( 16) = 0.3074418928469009D-03
        ws( 17) = 0.3422308925951276D-03
        ws( 18) = 0.3812189551033176D-03
        ws( 19) = 0.4252154065356303D-03
        ws( 20) = 0.4752104035231972D-03
        ws( 21) = 0.5324242033831912D-03
        ws( 22) = 0.5983716243128316D-03
        ws( 23) = 0.6749467830051019D-03
        ws( 24) = 0.7645349286255354D-03
        ws( 25) = 0.8701604251371042D-03
        ws( 26) = 0.9956826819458287D-03
        ws( 27) = 0.1146054912121854D-02
        ws( 28) = 0.1327663320161230D-02
        ws( 29) = 0.1548764796694967D-02
        ws( 30) = 0.1820034709433565D-02
        ws( 31) = 0.2155211524653127D-02
        ws( 32) = 0.2571754283915142D-02
        ws( 33) = 0.3091246945135802D-02
        ws( 34) = 0.3738845773990398D-02
        ws( 35) = 0.4540128817714598D-02
        ws( 36) = 0.5512225285713798D-02
        ws( 37) = 0.6645764991140899D-02
        ws( 38) = 0.7881091470531631D-02
        ws( 39) = 0.9100860961672879D-02
        ws( 40) = 0.1016766310923359D-01
        ws( 41) = 0.1099016562855171D-01
        ws( 42) = 0.1155567603021584D-01
        ws( 43) = 0.1190797892105112D-01
        ws( 44) = 0.1210819603875776D-01
        ws( 45) = 0.1221037370974502D-01
        ws( 46) = 0.1225413913971012D-01
        ws( 47) = 0.1226593009349287D-01
        ws( 48) = 0.1226252370599838D-01
        ws( 49) = 0.1225429079350295D-01
        ws( 50) = 0.1224756979452625D-01
        ws( 51) = 0.1224624781306472D-01
        ws( 52) = 0.1225272183934175D-01
        ws( 53) = 0.1226862671280998D-01
        ws( 54) = 0.1229480196090831D-01
        ws( 55) = 0.1233394455698598D-01
        ws( 56) = 0.1238539085959728D-01
        ws( 57) = 0.1246457064064558D-01
        ws( 58) = 0.1260511478352827D-01
        ws( 59) = 0.1274652427898891D-01
        ws( 60) = 0.1168643736876262D-01
        endif
        if( idomain .eq.   60 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.4000000000000000D-01
        rk1r = 0.2199114857512855D+02
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  64
        err = 0.5981440606293526D-13
        xs(  1) = 0.3297194720673378D-05
        xs(  2) = 0.1738928950280153D-04
        xs(  3) = 0.4281009870954181D-04
        xs(  4) = 0.7968369739541411D-04
        xs(  5) = 0.1281859122199305D-03
        xs(  6) = 0.1885530749572901D-03
        xs(  7) = 0.2610880549383538D-03
        xs(  8) = 0.3461672331109129D-03
        xs(  9) = 0.4442487532718688D-03
        xs( 10) = 0.5558822140041986D-03
        xs( 11) = 0.6817200090364805D-03
        xs( 12) = 0.8225306051154991D-03
        xs( 13) = 0.9792141442883412D-03
        xs( 14) = 0.1152820871318185D-02
        xs( 15) = 0.1344573021928399D-02
        xs( 16) = 0.1555890972033508D-02
        xs( 17) = 0.1788424653440143D-02
        xs( 18) = 0.2044091502590267D-02
        xs( 19) = 0.2325122545278918D-02
        xs( 20) = 0.2634118657670707D-02
        xs( 21) = 0.2974119616751031D-02
        xs( 22) = 0.3348689307897359D-02
        xs( 23) = 0.3762021456316443D-02
        xs( 24) = 0.4219071578086366D-02
        xs( 25) = 0.4725722621815324D-02
        xs( 26) = 0.5288994151754627D-02
        xs( 27) = 0.5917308121715754D-02
        xs( 28) = 0.6620828592984227D-02
        xs( 29) = 0.7411898534995258D-02
        xs( 30) = 0.8305604592119410D-02
        xs( 31) = 0.9320510969924357D-02
        xs( 32) = 0.1047961697009068D-01
        xs( 33) = 0.1181160954475700D-01
        xs( 34) = 0.1335250206823023D-01
        xs( 35) = 0.1514777045837605D-01
        xs( 36) = 0.1725510864701368D-01
        xs( 37) = 0.1974790188117661D-01
        xs( 38) = 0.2271939225761958D-01
        xs( 39) = 0.2628712122126652D-01
        xs( 40) = 0.3059620727774009D-01
        xs( 41) = 0.3581771863235661D-01
        xs( 42) = 0.4213455910336114D-01
        xs( 43) = 0.4970490944323837D-01
        xs( 44) = 0.5860274155277272D-01
        xs( 45) = 0.6876390316657834D-01
        xs( 46) = 0.7998590116875429D-01
        xs( 47) = 0.9199232102188867D-01
        xs( 48) = 0.1045136462563552D+00
        xs( 49) = 0.1173358550787060D+00
        xs( 50) = 0.1303104941667150D+00
        xs( 51) = 0.1433440445624688D+00
        xs( 52) = 0.1563823682070411D+00
        xs( 53) = 0.1693973476863439D+00
        xs( 54) = 0.1823773101443930D+00
        xs( 55) = 0.1953207271551484D+00
        xs( 56) = 0.2082322583526504D+00
        xs( 57) = 0.2211203573356384D+00
        xs( 58) = 0.2339958100736655D+00
        xs( 59) = 0.2468709751027901D+00
        xs( 60) = 0.2597585775102275D+00
        xs( 61) = 0.2726641846064944D+00
        xs( 62) = 0.2856046925244650D+00
        xs( 63) = 0.2984963423480499D+00
        xs( 64) = 0.3108660021259632D+00
        ws(  1) = 0.8463552412513736D-05
        ws(  2) = 0.1973916748387605D-04
        ws(  3) = 0.3112264843150553D-04
        ws(  4) = 0.4265375229112071D-04
        ws(  5) = 0.5438996815109071D-04
        ws(  6) = 0.6639471978026810D-04
        ws(  7) = 0.7873783316766698D-04
        ws(  8) = 0.9149671942911110D-04
        ws(  9) = 0.1047577323332895D-03
        ws( 10) = 0.1186177010367290D-03
        ws( 11) = 0.1331857079649569D-03
        ws( 12) = 0.1485852022460615D-03
        ws( 13) = 0.1649565539785899D-03
        ws( 14) = 0.1824601725866803D-03
        ws( 15) = 0.2012803373440411D-03
        ws( 16) = 0.2216299227985851D-03
        ws( 17) = 0.2437562494814035D-03
        ws( 18) = 0.2679483549185396D-03
        ws( 19) = 0.2945460669015529D-03
        ws( 20) = 0.3239513775216834D-03
        ws( 21) = 0.3566427727317620D-03
        ws( 22) = 0.3931933821301998D-03
        ws( 23) = 0.4342940964947097D-03
        ws( 24) = 0.4807831827324089D-03
        ws( 25) = 0.5336844432721134D-03
        ws( 26) = 0.5942566679319404D-03
        ws( 27) = 0.6640580747258132D-03
        ws( 28) = 0.7450307133443721D-03
        ws( 29) = 0.8396115083749261D-03
        ws( 30) = 0.9508788498193308D-03
        ws( 31) = 0.1082746463542167D-02
        ws( 32) = 0.1240219649830012D-02
        ws( 33) = 0.1429732428132023D-02
        ws( 34) = 0.1659586282042438D-02
        ws( 35) = 0.1940508295233255D-02
        ws( 36) = 0.2286328770161738D-02
        ws( 37) = 0.2714721073420112D-02
        ws( 38) = 0.3247787176083801D-02
        ws( 39) = 0.3911866318983850D-02
        ws( 40) = 0.4735024433233390D-02
        ws( 41) = 0.5739079595491594D-02
        ws( 42) = 0.6922023670982232D-02
        ws( 43) = 0.8232050159448437D-02
        ws( 44) = 0.9552967420976298D-02
        ws( 45) = 0.1073438211990189D-01
        ws( 46) = 0.1166206191861310D-01
        ws( 47) = 0.1230504750356314D-01
        ws( 48) = 0.1270181898185735D-01
        ws( 49) = 0.1291807254136077D-01
        ws( 50) = 0.1301589338515788D-01
        ws( 51) = 0.1304240945162807D-01
        ws( 52) = 0.1302970943716620D-01
        ws( 53) = 0.1299840643212727D-01
        ws( 54) = 0.1296132730655066D-01
        ws( 55) = 0.1292631848732202D-01
        ws( 56) = 0.1289814996886435D-01
        ws( 57) = 0.1287977897694399D-01
        ws( 58) = 0.1287308948271457D-01
        ws( 59) = 0.1288069899320976D-01
        ws( 60) = 0.1291219992125352D-01
        ws( 61) = 0.1295586517725586D-01
        ws( 62) = 0.1300877687851962D-01
        ws( 63) = 0.1318258503207822D-01
        ws( 64) = 0.1173655129188000D-01
        endif
        if( idomain .eq.   61 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.4000000000000000D-01
        rk1r = 0.2513274122871834D+02
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  68
        err = 0.3810518852924658D-13
        xs(  1) = 0.2638776193317452D-05
        xs(  2) = 0.1391375030654964D-04
        xs(  3) = 0.3424014780140494D-04
        xs(  4) = 0.6369521945637901D-04
        xs(  5) = 0.1023868501479525D-03
        xs(  6) = 0.1504594891374095D-03
        xs(  7) = 0.2080975581479039D-03
        xs(  8) = 0.2755292426544101D-03
        xs(  9) = 0.3530308890800231D-03
        xs( 10) = 0.4409320685406466D-03
        xs( 11) = 0.5396213745366508D-03
        xs( 12) = 0.6495530538305131D-03
        xs( 13) = 0.7712546086645837D-03
        xs( 14) = 0.9053355517322160D-03
        xs( 15) = 0.1052497543571823D-02
        xs( 16) = 0.1213546197372816D-02
        xs( 17) = 0.1389404901594715D-02
        xs( 18) = 0.1581131090232034D-02
        xs( 19) = 0.1789935488954852D-02
        xs( 20) = 0.2017204988963421D-02
        xs( 21) = 0.2264529957203401D-02
        xs( 22) = 0.2533736991960825D-02
        xs( 23) = 0.2826928390411289D-02
        xs( 24) = 0.3146529927506980D-02
        xs( 25) = 0.3495348977815607D-02
        xs( 26) = 0.3876645576088747D-02
        xs( 27) = 0.4294219752384408D-02
        xs( 28) = 0.4752519453137134D-02
        xs( 29) = 0.5256774651787431D-02
        xs( 30) = 0.5813164971989992D-02
        xs( 31) = 0.6429030443536560D-02
        xs( 32) = 0.7113138090342906D-02
        xs( 33) = 0.7876021186730487D-02
        xs( 34) = 0.8730413579456886D-02
        xs( 35) = 0.9691808934540429D-02
        xs( 36) = 0.1077918472005569D-01
        xs( 37) = 0.1201594384322184D-01
        xs( 38) = 0.1343114369875898D-01
        xs( 39) = 0.1506110296585317D-01
        xs( 40) = 0.1695149896847433D-01
        xs( 41) = 0.1916008571504621D-01
        xs( 42) = 0.2176015378826960D-01
        xs( 43) = 0.2484476069042182D-01
        xs( 44) = 0.2853143753748669D-01
        xs( 45) = 0.3296618747969417D-01
        xs( 46) = 0.3832351916366769D-01
        xs( 47) = 0.4479554722441970D-01
        xs( 48) = 0.5255989797477287D-01
        xs( 49) = 0.6172209307743580D-01
        xs( 50) = 0.7225349855432235D-01
        xs( 51) = 0.8397279891689119D-01
        xs( 52) = 0.9659755954310452D-01
        xs( 53) = 0.1098300881933750D+00
        xs( 54) = 0.1234209812719731D+00
        xs( 55) = 0.1371906923679446D+00
        xs( 56) = 0.1510231141121899D+00
        xs( 57) = 0.1648496514910050D+00
        xs( 58) = 0.1786339321426525D+00
        xs( 59) = 0.1923602845433955D+00
        xs( 60) = 0.2060259461873739D+00
        xs( 61) = 0.2196360834953624D+00
        xs( 62) = 0.2332006683606578D+00
        xs( 63) = 0.2467325154655250D+00
        xs( 64) = 0.2602462388653506D+00
        xs( 65) = 0.2737496147382867D+00
        xs( 66) = 0.2872645724729395D+00
        xs( 67) = 0.3006763401202612D+00
        xs( 68) = 0.3139392926399743D+00
        ws(  1) = 0.6773112778899645D-05
        ws(  2) = 0.1578967145126328D-04
        ws(  3) = 0.2487562553048217D-04
        ws(  4) = 0.3405243558492748D-04
        ws(  5) = 0.4335484597872281D-04
        ws(  6) = 0.5282110603395482D-04
        ws(  7) = 0.6249298972613226D-04
        ws(  8) = 0.7241635278248589D-04
        ws(  9) = 0.8264177219395456D-04
        ws( 10) = 0.9322524212345382D-04
        ws( 11) = 0.1042289513887141D-03
        ws( 12) = 0.1157221788673107D-03
        ws( 13) = 0.1277823479677570D-03
        ws( 14) = 0.1404962856726094D-03
        ws( 15) = 0.1539617375104981D-03
        ws( 16) = 0.1682891982448015D-03
        ws( 17) = 0.1836041299680617D-03
        ws( 18) = 0.2000496555956389D-03
        ws( 19) = 0.2177898375931679D-03
        ws( 20) = 0.2370136806412208D-03
        ws( 21) = 0.2579400348631203D-03
        ws( 22) = 0.2808236259851735D-03
        ws( 23) = 0.3059625041555424D-03
        ws( 24) = 0.3337072893048197D-03
        ws( 25) = 0.3644727049939763D-03
        ws( 26) = 0.3987520443860530D-03
        ws( 27) = 0.4371354146442230D-03
        ws( 28) = 0.4803328779809913D-03
        ws( 29) = 0.5292039738201032D-03
        ws( 30) = 0.5847956012795804D-03
        ws( 31) = 0.6483909107767518D-03
        ws( 32) = 0.7215727599671079D-03
        ws( 33) = 0.8063065133544268D-03
        ws( 34) = 0.9050486078720626D-03
        ws( 35) = 0.1020889484182839D-02
        ws( 36) = 0.1157742301266667D-02
        ws( 37) = 0.1320592334048686D-02
        ws( 38) = 0.1515825852205141D-02
        ws( 39) = 0.1751660584683538D-02
        ws( 40) = 0.2038699570104031D-02
        ws( 41) = 0.2390618015552389D-02
        ws( 42) = 0.2824946904733683D-02
        ws( 43) = 0.3363781801272863D-02
        ws( 44) = 0.4033888986533401D-02
        ws( 45) = 0.4864849863693396D-02
        ws( 46) = 0.5882347482812888D-02
        ws( 47) = 0.7092318255500849D-02
        ws( 48) = 0.8455142507416243D-02
        ws( 49) = 0.9864874034471996D-02
        ws( 50) = 0.1116674787096840D-01
        ws( 51) = 0.1222318346335605D-01
        ws( 52) = 0.1297562363082791D-01
        ws( 53) = 0.1344755518969444D-01
        ws( 54) = 0.1370446158675719D-01
        ws( 55) = 0.1381589747938659D-01
        ws( 56) = 0.1383777402704623D-01
        ws( 57) = 0.1380942955244497D-01
        ws( 58) = 0.1375664684219522D-01
        ws( 59) = 0.1369567824559901D-01
        ws( 60) = 0.1363656193001093D-01
        ws( 61) = 0.1358546350888729D-01
        ws( 62) = 0.1354623696786347D-01
        ws( 63) = 0.1352108143525420D-01
        ws( 64) = 0.1351387766143072D-01
        ws( 65) = 0.1351625737148594D-01
        ws( 66) = 0.1354814438554634D-01
        ws( 67) = 0.1316249236212836D-01
        ws( 68) = 0.1269291723333336D-01
        endif
        if( idomain .eq.   62 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.4000000000000000D-01
        rk1r = 0.2827433388230814D+02
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  71
        err = 0.9662519745859974D-13
        xs(  1) = 0.2191077814429769D-05
        xs(  2) = 0.1155132984170870D-04
        xs(  3) = 0.2841852081729220D-04
        xs(  4) = 0.5284395007221449D-04
        xs(  5) = 0.8489818281567879D-04
        xs(  6) = 0.1246754734195350D-03
        xs(  7) = 0.1722959397956772D-03
        xs(  8) = 0.2279078945038553D-03
        xs(  9) = 0.2916905030353289D-03
        xs( 10) = 0.3638567959234281D-03
        xs( 11) = 0.4446570563831075D-03
        xs( 12) = 0.5343826198588870D-03
        xs( 13) = 0.6333701409876830D-03
        xs( 14) = 0.7420064042215621D-03
        xs( 15) = 0.8607337763573651D-03
        xs( 16) = 0.9900564230066983D-03
        xs( 17) = 0.1130547437609964D-02
        xs( 18) = 0.1282857062300861D-02
        xs( 19) = 0.1447722216435813D-02
        xs( 20) = 0.1625977592947426D-02
        xs( 21) = 0.1818568637349111D-02
        xs( 22) = 0.2026566792300083D-02
        xs( 23) = 0.2251187476044058D-02
        xs( 24) = 0.2493811370784511D-02
        xs( 25) = 0.2756009733676755D-02
        xs( 26) = 0.3039574617171857D-02
        xs( 27) = 0.3346555108262154D-02
        xs( 28) = 0.3679300982837232D-02
        xs( 29) = 0.4040515542049753D-02
        xs( 30) = 0.4433319879506143D-02
        xs( 31) = 0.4861331458022127D-02
        xs( 32) = 0.5328760702659749D-02
        xs( 33) = 0.5840530411129080D-02
        xs( 34) = 0.6402424237142919D-02
        xs( 35) = 0.7021272445917204D-02
        xs( 36) = 0.7705185751573501D-02
        xs( 37) = 0.8463851569015428D-02
        xs( 38) = 0.9308911785515715D-02
        xs( 39) = 0.1025444764127294D-01
        xs( 40) = 0.1131760612516981D-01
        xs( 41) = 0.1251941425538151D-01
        xs( 42) = 0.1388584372503169D-01
        xs( 43) = 0.1544920971245929D-01
        xs( 44) = 0.1725001481720551D-01
        xs( 45) = 0.1933938077539722D-01
        xs( 46) = 0.2178223918387926D-01
        xs( 47) = 0.2466145156863798D-01
        xs( 48) = 0.2808292004636947D-01
        xs( 49) = 0.3218131787368380D-01
        xs( 50) = 0.3712480316424193D-01
        xs( 51) = 0.4311408200729765D-01
        xs( 52) = 0.5036608820911727D-01
        xs( 53) = 0.5906946667301330D-01
        xs( 54) = 0.6931138297178065D-01
        xs( 55) = 0.8101148562056690D-01
        xs( 56) = 0.9392213536826748D-01
        xs( 57) = 0.1077075414852905D+00
        xs( 58) = 0.1220424274582705D+00
        xs( 59) = 0.1366708724353765D+00
        xs( 60) = 0.1514179043210920D+00
        xs( 61) = 0.1661759155560080D+00
        xs( 62) = 0.1808853255238954D+00
        xs( 63) = 0.1955181485206398D+00
        xs( 64) = 0.2100663207349814D+00
        xs( 65) = 0.2245340853412283D+00
        xs( 66) = 0.2389331627161805D+00
        xs( 67) = 0.2532797017483770D+00
        xs( 68) = 0.2675899600665955D+00
        xs( 69) = 0.2818835725124656D+00
        xs( 70) = 0.2961009511763160D+00
        xs( 71) = 0.3099052675678644D+00
        ws(  1) = 0.5623772926843090D-05
        ws(  2) = 0.1310622239259042D-04
        ws(  3) = 0.2063640540910160D-04
        ws(  4) = 0.2822616999779424D-04
        ws(  5) = 0.3589797004366091D-04
        ws(  6) = 0.4367659215304706D-04
        ws(  7) = 0.5158901509254439D-04
        ws(  8) = 0.5966470508406576D-04
        ws(  9) = 0.6793596069244533D-04
        ws( 10) = 0.7643827575875729D-04
        ws( 11) = 0.8521073013306241D-04
        ws( 12) = 0.9429642598084926D-04
        ws( 13) = 0.1037429897660683D-03
        ws( 14) = 0.1136031612455311D-03
        ws( 15) = 0.1239354922357485D-03
        ws( 16) = 0.1348051801326777D-03
        ws( 17) = 0.1462850645693535D-03
        ws( 18) = 0.1584568205102729D-03
        ws( 19) = 0.1714123878365509D-03
        ws( 20) = 0.1852556864690960D-03
        ws( 21) = 0.2001046778304339D-03
        ws( 22) = 0.2160938486547348D-03
        ws( 23) = 0.2333772127761205D-03
        ws( 24) = 0.2521319518417436D-03
        ws( 25) = 0.2725628486552894D-03
        ws( 26) = 0.2949077094244748D-03
        ws( 27) = 0.3194440267614831D-03
        ws( 28) = 0.3464972082377667D-03
        ws( 29) = 0.3764507915640332D-03
        ws( 30) = 0.4097591952247932D-03
        ws( 31) = 0.4469637238478031D-03
        ws( 32) = 0.4887127762518586D-03
        ws( 33) = 0.5357875124293279D-03
        ws( 34) = 0.5891346534823824D-03
        ws( 35) = 0.6499086570428972D-03
        ws( 36) = 0.7195262872425185D-03
        ws( 37) = 0.7997376615299279D-03
        ws( 38) = 0.8927193136746571D-03
        ws( 39) = 0.1001196804652617D-02
        ws( 40) = 0.1128607119172956D-02
        ws( 41) = 0.1279314705294884D-02
        ws( 42) = 0.1458899704584251D-02
        ws( 43) = 0.1674542591180861D-02
        ws( 44) = 0.1935535168909077D-02
        ws( 45) = 0.2253950265825965D-02
        ws( 46) = 0.2645491039579944D-02
        ws( 47) = 0.3130485357444016D-02
        ws( 48) = 0.3734808634830746D-02
        ws( 49) = 0.4490005879035509D-02
        ws( 50) = 0.5430651517807390D-02
        ws( 51) = 0.6584789139779789D-02
        ws( 52) = 0.7951969745804819D-02
        ws( 53) = 0.9470594628730612D-02
        ws( 54) = 0.1099989060623142D-01
        ws( 55) = 0.1235753693875321D-01
        ws( 56) = 0.1340598720291549D-01
        ws( 57) = 0.1410963116499293D-01
        ws( 58) = 0.1451736116358200D-01
        ws( 59) = 0.1471064094696471D-01
        ws( 60) = 0.1476582871734341D-01
        ws( 61) = 0.1474054013774559D-01
        ws( 62) = 0.1467380701921881D-01
        ws( 63) = 0.1459062285712900D-01
        ws( 64) = 0.1450654129118441D-01
        ws( 65) = 0.1443113246657770D-01
        ws( 66) = 0.1437040862437267D-01
        ws( 67) = 0.1432577214179612D-01
        ws( 68) = 0.1429819362171216D-01
        ws( 69) = 0.1429488552360962D-01
        ws( 70) = 0.1424947204758732D-01
        ws( 71) = 0.1257701208236495D-01
        endif
        if( idomain .eq.   63 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.4000000000000000D-01
        rk1r = 0.3141592653589793D+02
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  75
        err = 0.7533496083266978D-13
        xs(  1) = 0.1837216673015547D-05
        xs(  2) = 0.9684640782517188D-05
        xs(  3) = 0.2382104076347787D-04
        xs(  4) = 0.4428129273072428D-04
        xs(  5) = 0.7111253372591862D-04
        xs(  6) = 0.1043775740272932D-03
        xs(  7) = 0.1441563369626049D-03
        xs(  8) = 0.1905473430200901D-03
        xs(  9) = 0.2436693771455082D-03
        xs( 10) = 0.3036633529481024D-03
        xs( 11) = 0.3706943781714523D-03
        xs( 12) = 0.4449540324534148D-03
        xs( 13) = 0.5266628784090600D-03
        xs( 14) = 0.6160732378992899D-03
        xs( 15) = 0.7134722764111168D-03
        xs( 16) = 0.8191854497922397D-03
        xs( 17) = 0.9335803794613711D-03
        xs( 18) = 0.1057071235143155D-02
        xs( 19) = 0.1190123718768485D-02
        xs( 20) = 0.1333260760167669D-02
        xs( 21) = 0.1487069055416892D-02
        xs( 22) = 0.1652206603183052D-02
        xs( 23) = 0.1829411424355352D-02
        xs( 24) = 0.2019511687135031D-02
        xs( 25) = 0.2223437505427873D-02
        xs( 26) = 0.2442234735190554D-02
        xs( 27) = 0.2677081164326499D-02
        xs( 28) = 0.2929305580689402D-02
        xs( 29) = 0.3200410314787715D-02
        xs( 30) = 0.3492097995506475D-02
        xs( 31) = 0.3806303437296908D-02
        xs( 32) = 0.4145231807372930D-02
        xs( 33) = 0.4511404516889095D-02
        xs( 34) = 0.4907714661455621D-02
        xs( 35) = 0.5337494331430908D-02
        xs( 36) = 0.5804596758791991D-02
        xs( 37) = 0.6313497116184020D-02
        xs( 38) = 0.6869416905015552D-02
        xs( 39) = 0.7478478359508962D-02
        xs( 40) = 0.8147897285511045D-02
        xs( 41) = 0.8886225431210952D-02
        xs( 42) = 0.9703657108310178D-02
        xs( 43) = 0.1061241970377867D-01
        xs( 44) = 0.1162727443945432D-01
        xs( 45) = 0.1276616293079489D-01
        xs( 46) = 0.1405104768583219D-01
        xs( 47) = 0.1550901185664067D-01
        xs( 48) = 0.1717370668851309D-01
        xs( 49) = 0.1908726536529745D-01
        xs( 50) = 0.2130283879828706D-01
        xs( 51) = 0.2388794560585274D-01
        xs( 52) = 0.2692883880283680D-01
        xs( 53) = 0.3053599277346971D-01
        xs( 54) = 0.3485037396430952D-01
        xs( 55) = 0.4004881870299684D-01
        xs( 56) = 0.4634361993830001D-01
        xs( 57) = 0.5396589938143111D-01
        xs( 58) = 0.6311885772289584D-01
        xs( 59) = 0.7389975361166636D-01
        xs( 60) = 0.8622797558334161D-01
        xs( 61) = 0.9984261844714327D-01
        xs( 62) = 0.1143853042947793D+00
        xs( 63) = 0.1295062831160439D+00
        xs( 64) = 0.1449291583278032D+00
        xs( 65) = 0.1604646097317035D+00
        xs( 66) = 0.1759963151631150D+00
        xs( 67) = 0.1914601967954918D+00
        xs( 68) = 0.2068265995898133D+00
        xs( 69) = 0.2220875215625476D+00
        xs( 70) = 0.2372481039870628D+00
        xs( 71) = 0.2523211048731449D+00
        xs( 72) = 0.2673202779065938D+00
        xs( 73) = 0.2822599138231312D+00
        xs( 74) = 0.2970347192804130D+00
        xs( 75) = 0.3112842182145127D+00
        ws(  1) = 0.4715398682479894D-05
        ws(  2) = 0.1098666787102477D-04
        ws(  3) = 0.1729169330728313D-04
        ws(  4) = 0.2363663488067835D-04
        ws(  5) = 0.3003629294457197D-04
        ws(  6) = 0.3650708362671646D-04
        ws(  7) = 0.4306683454862625D-04
        ws(  8) = 0.4973494399371877D-04
        ws(  9) = 0.5653257545945981D-04
        ws( 10) = 0.6348285619017477D-04
        ws( 11) = 0.7061108242059160D-04
        ws( 12) = 0.7794494041016060D-04
        ws( 13) = 0.8551475386721204D-04
        ws( 14) = 0.9335376873919754D-04
        ws( 15) = 0.1014984865264598D-03
        ws( 16) = 0.1099890576486681D-03
        ws( 17) = 0.1188697471741519D-03
        ws( 18) = 0.1281894865595780D-03
        ws( 19) = 0.1380025270580788D-03
        ws( 20) = 0.1483692132523417D-03
        ws( 21) = 0.1593568988889204D-03
        ws( 22) = 0.1710410320067925D-03
        ws( 23) = 0.1835064424989014D-03
        ws( 24) = 0.1968488730404773D-03
        ws( 25) = 0.2111768041843842D-03
        ws( 26) = 0.2266136369336567D-03
        ws( 27) = 0.2433003120116228D-03
        ws( 28) = 0.2613984653708041D-03
        ws( 29) = 0.2810942455625495D-03
        ws( 30) = 0.3026029522346775D-03
        ws( 31) = 0.3261746986638567D-03
        ws( 32) = 0.3521013581378306D-03
        ws( 33) = 0.3807251286427907D-03
        ws( 34) = 0.4124491487473317D-03
        ws( 35) = 0.4477507281592762D-03
        ws( 36) = 0.4871979306421470D-03
        ws( 37) = 0.5314704807532916D-03
        ws( 38) = 0.5813862813546533D-03
        ws( 39) = 0.6379352569660350D-03
        ws( 40) = 0.7023228221131891D-03
        ws( 41) = 0.7760260744973917D-03
        ws( 42) = 0.8608669148548569D-03
        ws( 43) = 0.9591078165638111D-03
        ws( 44) = 0.1073578068850012D-02
        ws( 45) = 0.1207841210316159D-02
        ws( 46) = 0.1366418313933298D-02
        ws( 47) = 0.1555087040421281D-02
        ws( 48) = 0.1781283022336407D-02
        ws( 49) = 0.2054637499664604D-02
        ws( 50) = 0.2387690050447710D-02
        ws( 51) = 0.2796807133262773D-02
        ws( 52) = 0.3303283894870913D-02
        ws( 53) = 0.3934418347511047D-02
        ws( 54) = 0.4723798929823588D-02
        ws( 55) = 0.5708710745534077D-02
        ws( 56) = 0.6920174121484149D-02
        ws( 57) = 0.8359640743975830D-02
        ws( 58) = 0.9963875783108299D-02
        ws( 59) = 0.1158457975954054D-01
        ws( 60) = 0.1302680609736344D-01
        ws( 61) = 0.1414079992607624D-01
        ws( 62) = 0.1488519609057511D-01
        ws( 63) = 0.1531053797879393D-01
        ws( 64) = 0.1550394594879955D-01
        ws( 65) = 0.1554793577420202D-01
        ws( 66) = 0.1550509466961267D-01
        ws( 67) = 0.1541793460999037D-01
        ws( 68) = 0.1531366889588893D-01
        ws( 69) = 0.1520914773060921D-01
        ws( 70) = 0.1511438175931076D-01
        ws( 71) = 0.1503578670821219D-01
        ws( 72) = 0.1497027924044029D-01
        ws( 73) = 0.1495740865804093D-01
        ws( 74) = 0.1485602282422194D-01
        ws( 75) = 0.1259275649437137D-01
        endif
        if( idomain .eq.   64 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.4000000000000000D-01
        rk1r = 0.3455751918948772D+02
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  79
        err = 0.8645205732349117D-13
        xs(  1) = 0.1564772430911117D-05
        xs(  2) = 0.8247752217699993D-05
        xs(  3) = 0.2028349851222039D-04
        xs(  4) = 0.3769647254358654D-04
        xs(  5) = 0.6051909141535739D-04
        xs(  6) = 0.8879446666908627D-04
        xs(  7) = 0.1225774144708198D-03
        xs(  8) = 0.1619354559054255D-03
        xs(  9) = 0.2069499248332854D-03
        xs( 10) = 0.2577171920887847D-03
        xs( 11) = 0.3143500044099873D-03
        xs( 12) = 0.3769789395443389D-03
        xs( 13) = 0.4457539847317235D-03
        xs( 14) = 0.5208462520684885D-03
        xs( 15) = 0.6024498505318172D-03
        xs( 16) = 0.6907839405788839D-03
        xs( 17) = 0.7860950033151411D-03
        xs( 18) = 0.8886593624479333D-03
        xs( 19) = 0.9987860038707479D-03
        xs( 20) = 0.1116819745071651D-02
        xs( 21) = 0.1243144814977228D-02
        xs( 22) = 0.1378188914722199D-02
        xs( 23) = 0.1522427841619324D-02
        xs( 24) = 0.1676390772810160D-02
        xs( 25) = 0.1840666322319960D-02
        xs( 26) = 0.2015909506267718D-02
        xs( 27) = 0.2202849776720980D-02
        xs( 28) = 0.2402300316294819D-02
        xs( 29) = 0.2615168824544531D-02
        xs( 30) = 0.2842470075363768D-02
        xs( 31) = 0.3085340584374561D-02
        xs( 32) = 0.3345055799784382D-02
        xs( 33) = 0.3623050323402690D-02
        xs( 34) = 0.3920941785699000D-02
        xs( 35) = 0.4240559146810813D-02
        xs( 36) = 0.4583976383326203D-02
        xs( 37) = 0.4953552760465517D-02
        xs( 38) = 0.5351981196954385D-02
        xs( 39) = 0.5782346626841596D-02
        xs( 40) = 0.6248196777670275D-02
        xs( 41) = 0.6753628456945080D-02
        xs( 42) = 0.7303393322269155D-02
        xs( 43) = 0.7903028278312248D-02
        xs( 44) = 0.8559017197408777D-02
        xs( 45) = 0.9278992741113887D-02
        xs( 46) = 0.1007198986437144D-01
        xs( 47) = 0.1094876638833364D-01
        xs( 48) = 0.1192221122062018D-01
        xs( 49) = 0.1300786792883660D-01
        xs( 50) = 0.1422461119737744D-01
        xs( 51) = 0.1559552726854619D-01
        xs( 52) = 0.1714906818036850D-01
        xs( 53) = 0.1892057516431269D-01
        xs( 54) = 0.2095430056984742D-01
        xs( 55) = 0.2330610015125239D-01
        xs( 56) = 0.2604701197733404D-01
        xs( 57) = 0.2926795665675140D-01
        xs( 58) = 0.3308569420051664D-01
        xs( 59) = 0.3764969381197876D-01
        xs( 60) = 0.4314808491543384D-01
        xs( 61) = 0.4980727616625194D-01
        xs( 62) = 0.5787376875362871D-01
        xs( 63) = 0.6756317293065088D-01
        xs( 64) = 0.7897596858061939D-01
        xs( 65) = 0.9202121065164653D-01
        xs( 66) = 0.1064158894753060D+00
        xs( 67) = 0.1217751021467929D+00
        xs( 68) = 0.1377256345161903D+00
        xs( 69) = 0.1539742870765287D+00
        xs( 70) = 0.1703216057692317D+00
        xs( 71) = 0.1866462534237096D+00
        xs( 72) = 0.2028825679765035D+00
        xs( 73) = 0.2190014013903297D+00
        xs( 74) = 0.2349963295130136D+00
        xs( 75) = 0.2508737500256711D+00
        xs( 76) = 0.2666439095705443D+00
        xs( 77) = 0.2823225388734571D+00
        xs( 78) = 0.2977789739603477D+00
        xs( 79) = 0.3125107623300483D+00
        ws(  1) = 0.4016059795114411D-05
        ws(  2) = 0.9355569869487770D-05
        ws(  3) = 0.1471978737537783D-04
        ws(  4) = 0.2011153915151669D-04
        ws(  5) = 0.2554086825123304D-04
        ws(  6) = 0.3101900173751383D-04
        ws(  7) = 0.3655812891892866D-04
        ws(  8) = 0.4217148918333341D-04
        ws(  9) = 0.4787348816532321D-04
        ws( 10) = 0.5367981323392774D-04
        ws( 11) = 0.5960754809052197D-04
        ws( 12) = 0.6567529150925717D-04
        ws( 13) = 0.7190328640956018D-04
        ws( 14) = 0.7831356559297215D-04
        ws( 15) = 0.8493012034790791D-04
        ws( 16) = 0.9177909800439823D-04
        ws( 17) = 0.9888903455011960D-04
        ws( 18) = 0.1062911286846425D-03
        ws( 19) = 0.1140195642453454D-03
        ws( 20) = 0.1221118888263357D-03
        ws( 21) = 0.1306094576696271D-03
        ws( 22) = 0.1395579535808754D-03
        ws( 23) = 0.1490079957716998D-03
        ws( 24) = 0.1590158532404900D-03
        ws( 25) = 0.1696442816891918D-03
        ws( 26) = 0.1809635071874316D-03
        ws( 27) = 0.1930523850419612D-03
        ws( 28) = 0.2059997688762971D-03
        ws( 29) = 0.2199061331260234D-03
        ws( 30) = 0.2348855024655138D-03
        ws( 31) = 0.2510677547137330D-03
        ws( 32) = 0.2686013803121011D-03
        ws( 33) = 0.2876568025843010D-03
        ws( 34) = 0.3084303900812188D-03
        ws( 35) = 0.3311493272579538D-03
        ws( 36) = 0.3560775550494172D-03
        ws( 37) = 0.3835230520189113D-03
        ws( 38) = 0.4138468042769253D-03
        ws( 39) = 0.4474739146678522D-03
        ws( 40) = 0.4849074374999969D-03
        ws( 41) = 0.5267457064402328D-03
        ws( 42) = 0.5737041669263876D-03
        ws( 43) = 0.6266430540426756D-03
        ws( 44) = 0.6866027054337706D-03
        ws( 45) = 0.7548489131651126D-03
        ws( 46) = 0.8329315647877152D-03
        ws( 47) = 0.9227609960774870D-03
        ws( 48) = 0.1026708108471487D-02
        ws( 49) = 0.1147736578187228D-02
        ws( 50) = 0.1289578652270874D-02
        ws( 51) = 0.1456970410741239D-02
        ws( 52) = 0.1655968326535268D-02
        ws( 53) = 0.1894376682929444D-02
        ws( 54) = 0.2182324366895495D-02
        ws( 55) = 0.2533036583958016D-02
        ws( 56) = 0.2963840759855784D-02
        ws( 57) = 0.3497390571380244D-02
        ws( 58) = 0.4162885277227525D-02
        ws( 59) = 0.4996447879246583D-02
        ws( 60) = 0.6038329723697436D-02
        ws( 61) = 0.7321969677514997D-02
        ws( 62) = 0.8848453594229961D-02
        ws( 63) = 0.1054857746956713D-01
        ws( 64) = 0.1226192443613115D-01
        ws( 65) = 0.1377967837120392D-01
        ws( 66) = 0.1494344331449494D-01
        ws( 67) = 0.1571163801783974D-01
        ws( 68) = 0.1614040836345929D-01
        ws( 69) = 0.1632397050229415D-01
        ws( 70) = 0.1635083918238443D-01
        ws( 71) = 0.1628783329145604D-01
        ws( 72) = 0.1618015143681291D-01
        ws( 73) = 0.1605652225620308D-01
        ws( 74) = 0.1593448342520245D-01
        ws( 75) = 0.1582442964485706D-01
        ws( 76) = 0.1571864015419252D-01
        ws( 77) = 0.1563350953784727D-01
        ws( 78) = 0.1552593979278233D-01
        ws( 79) = 0.1236840398008512D-01
        endif
        if( idomain .eq.   65 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.4000000000000000D-01
        rk1r = 0.3769911184307752D+02
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  83
        err = 0.8510971108414681D-13
        xs(  1) = 0.1347719808647931D-05
        xs(  2) = 0.7103230212579041D-05
        xs(  3) = 0.1746675618800598D-04
        xs(  4) = 0.3245607585142214D-04
        xs(  5) = 0.5209424757596613D-04
        xs(  6) = 0.7641185322405046D-04
        xs(  7) = 0.1054477225252951D-03
        xs(  8) = 0.1392496212584864D-03
        xs(  9) = 0.1778750059581087D-03
        xs( 10) = 0.2213918528759195D-03
        xs( 11) = 0.2698795583479899D-03
        xs( 12) = 0.3234299086307037D-03
        xs( 13) = 0.3821481205223389D-03
        xs( 14) = 0.4461539578631299D-03
        xs( 15) = 0.5155829327977308D-03
        xs( 16) = 0.5905876043339719D-03
        xs( 17) = 0.6713389902289541D-03
        xs( 18) = 0.7580281116440536D-03
        xs( 19) = 0.8508676934470365D-03
        xs( 20) = 0.9500940466438047D-03
        xs( 21) = 0.1055969163354975D-02
        xs( 22) = 0.1168783059188554D-02
        xs( 23) = 0.1288856402990174D-02
        xs( 24) = 0.1416543479986997D-02
        xs( 25) = 0.1552235541518239D-02
        xs( 26) = 0.1696364603140644D-02
        xs( 27) = 0.1849407763238438D-02
        xs( 28) = 0.2011892126751188D-02
        xs( 29) = 0.2184400433746181D-02
        xs( 30) = 0.2367577510907964D-02
        xs( 31) = 0.2562137686351727D-02
        xs( 32) = 0.2768873335439054D-02
        xs( 33) = 0.2988664758687607D-02
        xs( 34) = 0.3222491633949605D-02
        xs( 35) = 0.3471446335744468D-02
        xs( 36) = 0.3736749477480055D-02
        xs( 37) = 0.4019768110529646D-02
        xs( 38) = 0.4322037111955353D-02
        xs( 39) = 0.4645284415576137D-02
        xs( 40) = 0.4991460896264931D-02
        xs( 41) = 0.5362775914330265D-02
        xs( 42) = 0.5761739778185532D-02
        xs( 43) = 0.6191214706053436D-02
        xs( 44) = 0.6654476283785886D-02
        xs( 45) = 0.7155287956530367D-02
        xs( 46) = 0.7697991798500974D-02
        xs( 47) = 0.8287619734453661D-02
        xs( 48) = 0.8930030617175552D-02
        xs( 49) = 0.9632080206547829D-02
        xs( 50) = 0.1040183330025634D-01
        xs( 51) = 0.1124883024911192D-01
        xs( 52) = 0.1218442415603900D-01
        xs( 53) = 0.1322221064091753D-01
        xs( 54) = 0.1437857977252865D-01
        xs( 55) = 0.1567343050416982D-01
        xs( 56) = 0.1713110293937833D-01
        xs( 57) = 0.1878160468720706D-01
        xs( 58) = 0.2066223658272653D-01
        xs( 59) = 0.2281976233602436D-01
        xs( 60) = 0.2531331668810778D-01
        xs( 61) = 0.2821830003014998D-01
        xs( 62) = 0.3163153008579043D-01
        xs( 63) = 0.3567779841257414D-01
        xs( 64) = 0.4051738706241067D-01
        xs( 65) = 0.4635230271272240D-01
        xs( 66) = 0.5342486641172884D-01
        xs( 67) = 0.6199588949245765D-01
        xs( 68) = 0.7228722414974861D-01
        xs( 69) = 0.8439144396764525D-01
        xs( 70) = 0.9819576622287861D-01
        xs( 71) = 0.1133894433248643D+00
        xs( 72) = 0.1295632195330320D+00
        xs( 73) = 0.1463271878000678D+00
        xs( 74) = 0.1633786942517523D+00
        xs( 75) = 0.1805140336998173D+00
        xs( 76) = 0.1976109983795910D+00
        xs( 77) = 0.2146052305045191D+00
        xs( 78) = 0.2314703505004320D+00
        xs( 79) = 0.2482034658163538D+00
        xs( 80) = 0.2648152443614459D+00
        xs( 81) = 0.2813160820756769D+00
        xs( 82) = 0.2976343787012786D+00
        xs( 83) = 0.3133132619820824D+00
        ws(  1) = 0.3458931943308261D-05
        ws(  2) = 0.8056673207381099D-05
        ws(  3) = 0.1267316036045722D-04
        ws(  4) = 0.1730930295668174D-04
        ws(  5) = 0.2197212646966056D-04
        ws(  6) = 0.2666954509011417D-04
        ws(  7) = 0.3141014190024242D-04
        ws(  8) = 0.3620321782967878D-04
        ws(  9) = 0.4105886593348291D-04
        ws( 10) = 0.4598804446387403D-04
        ws( 11) = 0.5100264685810887D-04
        ws( 12) = 0.5611557125324716D-04
        ws( 13) = 0.6134079317893084D-04
        ws( 14) = 0.6669344525565353D-04
        ws( 15) = 0.7218990762969952D-04
        ws( 16) = 0.7784791271245594D-04
        ws( 17) = 0.8368666766229233D-04
        ws( 18) = 0.8972699801089119D-04
        ws( 19) = 0.9599151592915367D-04
        ws( 20) = 0.1025048168731105D-03
        ws( 21) = 0.1092937087638387D-03
        ws( 22) = 0.1163874784512840D-03
        ws( 23) = 0.1238182010074016D-03
        ws( 24) = 0.1316210984119146D-03
        ws( 25) = 0.1398349554669524D-03
        ws( 26) = 0.1485026023492699D-03
        ws( 27) = 0.1576714751395960D-03
        ws( 28) = 0.1673942680379871D-03
        ws( 29) = 0.1777296938826879D-03
        ws( 30) = 0.1887433731722584D-03
        ws( 31) = 0.2005088762165261D-03
        ws( 32) = 0.2131089485340138D-03
        ws( 33) = 0.2266369564571993D-03
        ws( 34) = 0.2411985984752564D-03
        ws( 35) = 0.2569139386208259D-03
        ws( 36) = 0.2739198318300036D-03
        ws( 37) = 0.2923728285069878D-03
        ws( 38) = 0.3124526676186372D-03
        ws( 39) = 0.3343664959966002D-03
        ws( 40) = 0.3583539881149490D-03
        ws( 41) = 0.3846935880959457D-03
        ws( 42) = 0.4137101576655143D-03
        ws( 43) = 0.4457843951553715D-03
        ws( 44) = 0.4813644981576361D-03
        ws( 45) = 0.5209806853833062D-03
        ws( 46) = 0.5652633846150897D-03
        ws( 47) = 0.6149661514918660D-03
        ws( 48) = 0.6709947337922045D-03
        ws( 49) = 0.7344441741964205D-03
        ws( 50) = 0.8066465029772252D-03
        ws( 51) = 0.8892324851153656D-03
        ws( 52) = 0.9842121609040147D-03
        ws( 53) = 0.1094080709131065D-02
        ws( 54) = 0.1221958686925950D-02
        ws( 55) = 0.1371779267527431D-02
        ws( 56) = 0.1548540115243156D-02
        ws( 57) = 0.1758644485876629D-02
        ws( 58) = 0.2010365385366915D-02
        ws( 59) = 0.2314477689629830D-02
        ws( 60) = 0.2685112392582615D-02
        ws( 61) = 0.3140880680646272D-02
        ws( 62) = 0.3706248353621169D-02
        ws( 63) = 0.4412884223869476D-02
        ws( 64) = 0.5299953427647413D-02
        ws( 65) = 0.6410584193012783D-02
        ws( 66) = 0.7778960279151857D-02
        ws( 67) = 0.9401683375797644D-02
        ws( 68) = 0.1119789381961034D-01
        ws( 69) = 0.1299166207322668D-01
        ws( 70) = 0.1456330520040834D-01
        ws( 71) = 0.1575368663181136D-01
        ws( 72) = 0.1652775571051209D-01
        ws( 73) = 0.1694962471575772D-01
        ws( 74) = 0.1711978439007780D-01
        ws( 75) = 0.1713094255977282D-01
        ws( 76) = 0.1705258894016342D-01
        ws( 77) = 0.1693164032007032D-01
        ws( 78) = 0.1679790775440819D-01
        ws( 79) = 0.1667033458800738D-01
        ws( 80) = 0.1655519791500478D-01
        ws( 81) = 0.1650621624841025D-01
        ws( 82) = 0.1632517969272289D-01
        ws( 83) = 0.1438514964149274D-01
        endif
        if( idomain .eq.   66 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.4000000000000000D-01
        rk1r = 0.4084070449666731D+02
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  87
        err = 0.7878428444708057D-13
        xs(  1) = 0.1177018426933961D-05
        xs(  2) = 0.6203192135095294D-05
        xs(  3) = 0.1525203249387797D-04
        xs(  4) = 0.2833660150107555D-04
        xs(  5) = 0.4547342066899021D-04
        xs(  6) = 0.6668436950163906D-04
        xs(  7) = 0.9199724021376187D-04
        xs(  8) = 0.1214462442156663D-03
        xs(  9) = 0.1550725603869282D-03
        xs( 10) = 0.1929249317115603D-03
        xs( 11) = 0.2350603069918333D-03
        xs( 12) = 0.2815445244587512D-03
        xs( 13) = 0.3324530361976173D-03
        xs( 14) = 0.3878716748429851D-03
        xs( 15) = 0.4478974665315503D-03
        xs( 16) = 0.5126394964894246D-03
        xs( 17) = 0.5822198358392793D-03
        xs( 18) = 0.6567745402681129D-03
        xs( 19) = 0.7364547331556888D-03
        xs( 20) = 0.8214277877032502D-03
        xs( 21) = 0.9118786246082251D-03
        xs( 22) = 0.1008011143995251D-02
        xs( 23) = 0.1110049812732350D-02
        xs( 24) = 0.1218241431033377D-02
        xs( 25) = 0.1332857105480674D-02
        xs( 26) = 0.1454194459411794D-02
        xs( 27) = 0.1582580116133835D-02
        xs( 28) = 0.1718372495811335D-02
        xs( 29) = 0.1861964973300644D-02
        xs( 30) = 0.2013789451894379D-02
        xs( 31) = 0.2174320417160451D-02
        xs( 32) = 0.2344079546139916D-02
        xs( 33) = 0.2523640960511530D-02
        xs( 34) = 0.2713637228445386D-02
        xs( 35) = 0.2914766239383467D-02
        xs( 36) = 0.3127799099696238D-02
        xs( 37) = 0.3353589226073100D-02
        xs( 38) = 0.3593082848876978D-02
        xs( 39) = 0.3847331181147370D-02
        xs( 40) = 0.4117504562533997D-02
        xs( 41) = 0.4404908953837050D-02
        xs( 42) = 0.4711005240447689D-02
        xs( 43) = 0.5037431906265908D-02
        xs( 44) = 0.5386031769426459D-02
        xs( 45) = 0.5758883634998615D-02
        xs( 46) = 0.6158339927793389D-02
        xs( 47) = 0.6587071633853247D-02
        xs( 48) = 0.7048122219954576D-02
        xs( 49) = 0.7544972640502423D-02
        xs( 50) = 0.8081620113029731D-02
        xs( 51) = 0.8662674091428334D-02
        xs( 52) = 0.9293473850896829D-02
        xs( 53) = 0.9980233404603099D-02
        xs( 54) = 0.1073022121670016D-01
        xs( 55) = 0.1155198452463572D-01
        xs( 56) = 0.1245563126932981D-01
        xs( 57) = 0.1345318698783928D-01
        xs( 58) = 0.1455905002726579D-01
        xs( 59) = 0.1579057677803629D-01
        xs( 60) = 0.1716884028746649D-01
        xs( 61) = 0.1871962200827904D-01
        xs( 62) = 0.2047471951513317D-01
        xs( 63) = 0.2247368532290605D-01
        xs( 64) = 0.2476615617131375D-01
        xs( 65) = 0.2741498918625736D-01
        xs( 66) = 0.3050048309715748D-01
        xs( 67) = 0.3412598896738581D-01
        xs( 68) = 0.3842506715868741D-01
        xs( 69) = 0.4356963787190882D-01
        xs( 70) = 0.4977645287900532D-01
        xs( 71) = 0.5730451857597071D-01
        xs( 72) = 0.6642929563385154D-01
        xs( 73) = 0.7737820046498660D-01
        xs( 74) = 0.9023359029543990D-01
        xs( 75) = 0.1048568726457280D+00
        xs( 76) = 0.1209051476567187D+00
        xs( 77) = 0.1379417976214161D+00
        xs( 78) = 0.1555594516274855D+00
        xs( 79) = 0.1734469560399548D+00
        xs( 80) = 0.1913981282089569D+00
        xs( 81) = 0.2092918423697920D+00
        xs( 82) = 0.2270668756007622D+00
        xs( 83) = 0.2447007924967180D+00
        xs( 84) = 0.2621955679668978D+00
        xs( 85) = 0.2795564945507167D+00
        xs( 86) = 0.2967484723910341D+00
        xs( 87) = 0.3132838993714717D+00
        ws(  1) = 0.3020786145085599D-05
        ws(  2) = 0.7035339559522345D-05
        ws(  3) = 0.1106436044120549D-04
        ws(  4) = 0.1510751551498844D-04
        ws(  5) = 0.1916976109836158D-04
        ws(  6) = 0.2325676025967784D-04
        ws(  7) = 0.2737467393078989D-04
        ws(  8) = 0.3153018726552782D-04
        ws(  9) = 0.3573055820430516D-04
        ws( 10) = 0.3998366451580193D-04
        ws( 11) = 0.4429804701296518D-04
        ws( 12) = 0.4868295049973230D-04
        ws( 13) = 0.5314836488313456D-04
        ws( 14) = 0.5770506902443389D-04
        ws( 15) = 0.6236467980230461D-04
        ws( 16) = 0.6713970868610222D-04
        ws( 17) = 0.7204362794389157D-04
        ws( 18) = 0.7709094848092223D-04
        ws( 19) = 0.8229731124430594D-04
        ws( 20) = 0.8767959415170628D-04
        ws( 21) = 0.9325603661380582D-04
        ws( 22) = 0.9904638392591789D-04
        ws( 23) = 0.1050720541069399D-03
        ws( 24) = 0.1113563301698237D-03
        ws( 25) = 0.1179245813242983D-03
        ws( 26) = 0.1248045172530480D-03
        ws( 27) = 0.1320264803848154D-03
        ws( 28) = 0.1396237820359243D-03
        ws( 29) = 0.1476330894391232D-03
        ws( 30) = 0.1560948720662469D-03
        ws( 31) = 0.1650539173346672D-03
        ws( 32) = 0.1745599278339823D-03
        ws( 33) = 0.1846682147081338D-03
        ws( 34) = 0.1954405048908522D-03
        ws( 35) = 0.2069458836593503D-03
        ws( 36) = 0.2192618986299722D-03
        ws( 37) = 0.2324758570988888D-03
        ws( 38) = 0.2466863558379873D-03
        ws( 39) = 0.2620050914851576D-03
        ws( 40) = 0.2785590110241646D-03
        ws( 41) = 0.2964928762145182D-03
        ws( 42) = 0.3159723340801511D-03
        ws( 43) = 0.3371876088758662D-03
        ws( 44) = 0.3603579608771490D-03
        ws( 45) = 0.3857370959799611D-03
        ws( 46) = 0.4136197602625000D-03
        ws( 47) = 0.4443498191868304D-03
        ws( 48) = 0.4783302072305607D-03
        ws( 49) = 0.5160352476178155D-03
        ws( 50) = 0.5580259934513196D-03
        ws( 51) = 0.6049694448061298D-03
        ws( 52) = 0.6576627708141077D-03
        ws( 53) = 0.7170640390801505D-03
        ws( 54) = 0.7843314665335060D-03
        ws( 55) = 0.8608739126572475D-03
        ws( 56) = 0.9484163201916335D-03
        ws( 57) = 0.1049085188858974D-02
        ws( 58) = 0.1165521117839870D-02
        ws( 59) = 0.1301028222702464D-02
        ws( 60) = 0.1459774178987155D-02
        ws( 61) = 0.1647060251992285D-02
        ws( 62) = 0.1869688537717033D-02
        ws( 63) = 0.2136464268972242D-02
        ws( 64) = 0.2458884039500810D-02
        ws( 65) = 0.2852072160559779D-02
        ws( 66) = 0.3336020756169863D-02
        ws( 67) = 0.3937109918126443D-02
        ws( 68) = 0.4689575736664028D-02
        ws( 69) = 0.5635699076653159D-02
        ws( 70) = 0.6821482466804480D-02
        ws( 71) = 0.8281632869232702D-02
        ws( 72) = 0.1000757691355199D-01
        ws( 73) = 0.1190544365967428D-01
        ws( 74) = 0.1378197420686095D-01
        ws( 75) = 0.1540534529043085D-01
        ws( 76) = 0.1661620002737525D-01
        ws( 77) = 0.1738810698820103D-01
        ws( 78) = 0.1779528304816375D-01
        ws( 79) = 0.1794575127236224D-01
        ws( 80) = 0.1793685015964025D-01
        ws( 81) = 0.1784071578622681D-01
        ws( 82) = 0.1770584597530815D-01
        ws( 83) = 0.1756220193519849D-01
        ws( 84) = 0.1743002643211130D-01
        ws( 85) = 0.1731262683083226D-01
        ws( 86) = 0.1721003756325474D-01
        ws( 87) = 0.1493253724567093D-01
        endif
        if( idomain .eq.   67 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.4000000000000000D-01
        rk1r = 0.4398229715025710D+02
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  91
        err = 0.9270224245712172D-13
        xs(  1) = 0.1037747832814261D-05
        xs(  2) = 0.5468963313890560D-05
        xs(  3) = 0.1344570422338292D-04
        xs(  4) = 0.2497780511893401D-04
        xs(  5) = 0.4007736205267964D-04
        xs(  6) = 0.5876036307948103D-04
        xs(  7) = 0.8104712263080641D-04
        xs(  8) = 0.1069626630211207D-03
        xs(  9) = 0.1365371232157932D-03
        xs( 10) = 0.1698062010093502D-03
        xs( 11) = 0.2068116255893947D-03
        xs( 12) = 0.2476016570380272D-03
        xs( 13) = 0.2922316106706573D-03
        xs( 14) = 0.3407644058717471D-03
        xs( 15) = 0.3932711408758609D-03
        xs( 16) = 0.4498316966236017D-03
        xs( 17) = 0.5105353743503325D-03
        xs( 18) = 0.5754815729416518D-03
        xs( 19) = 0.6447805133409598D-03
        xs( 20) = 0.7185540184638783D-03
        xs( 21) = 0.7969363582125211D-03
        xs( 22) = 0.8800751703440286D-03
        xs( 23) = 0.9681324691875027D-03
        xs( 24) = 0.1061285755576851D-02
        xs( 25) = 0.1159729242930301D-02
        xs( 26) = 0.1263675216217706D-02
        xs( 27) = 0.1373355542676016D-02
        xs( 28) = 0.1489023355628970D-02
        xs( 29) = 0.1610954935715516D-02
        xs( 30) = 0.1739451817321848D-02
        xs( 31) = 0.1874843152149303D-02
        xs( 32) = 0.2017488366761033D-02
        xs( 33) = 0.2167780156787209D-02
        xs( 34) = 0.2326147867417596D-02
        xs( 35) = 0.2493061318100748D-02
        xs( 36) = 0.2669035139281985D-02
        xs( 37) = 0.2854633700896670D-02
        xs( 38) = 0.3050476726623133D-02
        xs( 39) = 0.3257245705130831D-02
        xs( 40) = 0.3475691230409253D-02
        xs( 41) = 0.3706641428580577D-02
        xs( 42) = 0.3951011659454646D-02
        xs( 43) = 0.4209815718837047D-02
        xs( 44) = 0.4484178813981787D-02
        xs( 45) = 0.4775352641798272D-02
        xs( 46) = 0.5084732970329520D-02
        xs( 47) = 0.5413880212295972D-02
        xs( 48) = 0.5764543589924988D-02
        xs( 49) = 0.6138689629124623D-02
        xs( 50) = 0.6538535896526659D-02
        xs( 51) = 0.6966591115902605D-02
        xs( 52) = 0.7425703085432401D-02
        xs( 53) = 0.7919116183701395D-02
        xs( 54) = 0.8450540726316630D-02
        xs( 55) = 0.9024237052327098D-02
        xs( 56) = 0.9645118029011994D-02
        xs( 57) = 0.1031887473253395D-01
        xs( 58) = 0.1105213148432241D-01
        xs( 59) = 0.1185263833074974D-01
        xs( 60) = 0.1272951163351719D-01
        xs( 61) = 0.1369353695707558D-01
        xs( 62) = 0.1475755328175665D-01
        xs( 63) = 0.1593694429493997D-01
        xs( 64) = 0.1725027193072741D-01
        xs( 65) = 0.1872010062837280D-01
        xs( 66) = 0.2037407968132682D-01
        xs( 67) = 0.2224637798603955D-01
        xs( 68) = 0.2437960369719490D-01
        xs( 69) = 0.2682739429234852D-01
        xs( 70) = 0.2965793159207733D-01
        xs( 71) = 0.3295871078728083D-01
        xs( 72) = 0.3684291905986989D-01
        xs( 73) = 0.4145757481819447D-01
        xs( 74) = 0.4699264346646045D-01
        xs( 75) = 0.5368762397535200D-01
        xs( 76) = 0.6182624749880170D-01
        xs( 77) = 0.7170210424064925D-01
        xs( 78) = 0.8353905096648109D-01
        xs( 79) = 0.9738138150439866D-01
        xs( 80) = 0.1130246854911657D+00
        xs( 81) = 0.1300614636996205D+00
        xs( 82) = 0.1480175512711606D+00
        xs( 83) = 0.1664774501026644D+00
        xs( 84) = 0.1851386030761860D+00
        xs( 85) = 0.2038080312341040D+00
        xs( 86) = 0.2223759869322629D+00
        xs( 87) = 0.2407878023363790D+00
        xs( 88) = 0.2590193709931230D+00
        xs( 89) = 0.2770464302976728D+00
        xs( 90) = 0.2947656399377610D+00
        xs( 91) = 0.3115947029271702D+00
        ws(  1) = 0.2663324947353383D-05
        ws(  2) = 0.6202283537416963D-05
        ws(  3) = 0.9752698835324235D-05
        ws(  4) = 0.1331350589699762D-04
        ws(  5) = 0.1688826623700580D-04
        ws(  6) = 0.2048111528531547D-04
        ws(  7) = 0.2409656739326810D-04
        ws(  8) = 0.2773952916935484D-04
        ws(  9) = 0.3141533296764644D-04
        ws( 10) = 0.3512976915392430D-04
        ws( 11) = 0.3888911461338989D-04
        ws( 12) = 0.4270015835934521D-04
        ws( 13) = 0.4657022589782393D-04
        ws( 14) = 0.5050720415700380D-04
        ws( 15) = 0.5451956872926296D-04
        ws( 16) = 0.5861641503356674D-04
        ws( 17) = 0.6280749484751099D-04
        ws( 18) = 0.6710325951661828D-04
        ws( 19) = 0.7151491104327175D-04
        ws( 20) = 0.7605446220027943D-04
        ws( 21) = 0.8073480680966648D-04
        ws( 22) = 0.8556980137810435D-04
        ws( 23) = 0.9057435938623947D-04
        ws( 24) = 0.9576455969079566D-04
        ws( 25) = 0.1011577707164913D-03
        ws( 26) = 0.1067727923918039D-03
        ws( 27) = 0.1126300181242213D-03
        ws( 28) = 0.1187516195233674D-03
        ws( 29) = 0.1251617570753152D-03
        ws( 30) = 0.1318868205629756D-03
        ws( 31) = 0.1389557037333414D-03
        ws( 32) = 0.1464001185575349D-03
        ws( 33) = 0.1542549554421872D-03
        ws( 34) = 0.1625586969699011D-03
        ws( 35) = 0.1713538942183951D-03
        ws( 36) = 0.1806877164925140D-03
        ws( 37) = 0.1906125874751719D-03
        ws( 38) = 0.2011869234564391D-03
        ws( 39) = 0.2124759925558506D-03
        ws( 40) = 0.2245529178635056D-03
        ws( 41) = 0.2374998523866081D-03
        ws( 42) = 0.2514093598509962D-03
        ws( 43) = 0.2663860430994789D-03
        ws( 44) = 0.2825484714720501D-03
        ws( 45) = 0.3000314706912656D-03
        ws( 46) = 0.3189888541537517D-03
        ws( 47) = 0.3395966940706140D-03
        ws( 48) = 0.3620572559030807D-03
        ws( 49) = 0.3866037516805396D-03
        ws( 50) = 0.4135061093457885D-03
        ws( 51) = 0.4430780093323161D-03
        ws( 52) = 0.4756855103282282D-03
        ws( 53) = 0.5117576793850329D-03
        ws( 54) = 0.5517997651302999D-03
        ws( 55) = 0.5964096179514658D-03
        ws( 56) = 0.6462982831674069D-03
        ws( 57) = 0.7023159944875854D-03
        ws( 58) = 0.7654852069090341D-03
        ws( 59) = 0.8370428760164084D-03
        ws( 60) = 0.9184949803137953D-03
        ws( 61) = 0.1011687390908718D-02
        ws( 62) = 0.1118898760590507D-02
        ws( 63) = 0.1242963341101593D-02
        ws( 64) = 0.1387434851320611D-02
        ws( 65) = 0.1556807156594578D-02
        ws( 66) = 0.1756814205822050D-02
        ws( 67) = 0.1994841196483695D-02
        ws( 68) = 0.2280492016398414D-02
        ws( 69) = 0.2626374244064087D-02
        ws( 70) = 0.3049177183332249D-02
        ws( 71) = 0.3571108876216600D-02
        ws( 72) = 0.4221651797826334D-02
        ws( 73) = 0.5039190026738944D-02
        ws( 74) = 0.6070909013895336D-02
        ws( 75) = 0.7366861992543677D-02
        ws( 76) = 0.8960661345430086D-02
        ws( 77) = 0.1083038079647411D-01
        ws( 78) = 0.1285228498128612D-01
        ws( 79) = 0.1479748089132677D-01
        ws( 80) = 0.1641862275358432D-01
        ws( 81) = 0.1757366733898327D-01
        ws( 82) = 0.1826841656789527D-01
        ws( 83) = 0.1860110624928704D-01
        ws( 84) = 0.1868952487578001D-01
        ws( 85) = 0.1863151618928392D-01
        ws( 86) = 0.1849573946358778D-01
        ws( 87) = 0.1832511874733026D-01
        ws( 88) = 0.1814245161314530D-01
        ws( 89) = 0.1792514638371708D-01
        ws( 90) = 0.1739486012880361D-01
        ws( 91) = 0.1427265635609253D-01
        endif
        if( idomain .eq.   68 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.4000000000000000D-01
        rk1r = 0.4712388980384689D+02
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  96
        err = 0.4930994961897494D-13
        xs(  1) = 0.9156194928012314D-06
        xs(  2) = 0.4825184908881811D-05
        xs(  3) = 0.1186224098870528D-04
        xs(  4) = 0.2203433508827585D-04
        xs(  5) = 0.3535047230290720D-04
        xs(  6) = 0.5182251708069747D-04
        xs(  7) = 0.7146553029760910D-04
        xs(  8) = 0.9429805181991926D-04
        xs(  9) = 0.1203424004006608D-03
        xs( 10) = 0.1496249971904490D-03
        xs( 11) = 0.1821767106629369D-03
        xs( 12) = 0.2180332199510754D-03
        xs( 13) = 0.2572353943462072D-03
        xs( 14) = 0.2998296878560659D-03
        xs( 15) = 0.3458685489265743D-03
        xs( 16) = 0.3954108465873720D-03
        xs( 17) = 0.4485223153352543D-03
        xs( 18) = 0.5052760220110210D-03
        xs( 19) = 0.5657528587617297D-03
        xs( 20) = 0.6300420669325517D-03
        xs( 21) = 0.6982417974275904D-03
        xs( 22) = 0.7704597137478894D-03
        xs( 23) = 0.8468136445891932D-03
        xs( 24) = 0.9274322935932647D-03
        xs( 25) = 0.1012456014625824D-02
        xs( 26) = 0.1102037661831991D-02
        xs( 27) = 0.1196343524727174D-02
        xs( 28) = 0.1295554359749762D-02
        xs( 29) = 0.1399866531065903D-02
        xs( 30) = 0.1509493275013895D-02
        xs( 31) = 0.1624666104449390D-02
        xs( 32) = 0.1745636371452357D-02
        xs( 33) = 0.1872677009441639D-02
        xs( 34) = 0.2006084478782390D-02
        xs( 35) = 0.2146180943550013D-02
        xs( 36) = 0.2293316711332452D-02
        xs( 37) = 0.2447872972933771D-02
        xs( 38) = 0.2610264884735601D-02
        xs( 39) = 0.2780945043461573D-02
        xs( 40) = 0.2960407411398029D-02
        xs( 41) = 0.3149191760027452D-02
        xs( 42) = 0.3347888711869590D-02
        xs( 43) = 0.3557145474521183D-02
        xs( 44) = 0.3777672377962989D-02
        xs( 45) = 0.4010250346817264D-02
        xs( 46) = 0.4255739464211645D-02
        xs( 47) = 0.4515088814268325D-02
        xs( 48) = 0.4789347827299712D-02
        xs( 49) = 0.5079679397210073D-02
        xs( 50) = 0.5387375096497054D-02
        xs( 51) = 0.5713872883331247D-02
        xs( 52) = 0.6060777780967104D-02
        xs( 53) = 0.6429886116740638D-02
        xs( 54) = 0.6823214042045753D-02
        xs( 55) = 0.7243031223700728D-02
        xs( 56) = 0.7691900811227053D-02
        xs( 57) = 0.8172727057320207D-02
        xs( 58) = 0.8688812318291871D-02
        xs( 59) = 0.9243925611849606D-02
        xs( 60) = 0.9842385494241003D-02
        xs( 61) = 0.1048916078254234D-01
        xs( 62) = 0.1118999365268911D-01
        xs( 63) = 0.1195155097569741D-01
        xs( 64) = 0.1278161153373910D-01
        xs( 65) = 0.1368929915423498D-01
        xs( 66) = 0.1468537505594465D-01
        xs( 67) = 0.1578260716401675D-01
        xs( 68) = 0.1699624032474415D-01
        xs( 69) = 0.1834459996922813D-01
        xs( 70) = 0.1984987390924329D-01
        xs( 71) = 0.2153913415323836D-01
        xs( 72) = 0.2344568511568517D-01
        xs( 73) = 0.2561085931203615D-01
        xs( 74) = 0.2808642990520812D-01
        xs( 75) = 0.3093787280558040D-01
        xs( 76) = 0.3424878101179236D-01
        xs( 77) = 0.3812676662149881D-01
        xs( 78) = 0.4271103277863056D-01
        xs( 79) = 0.4818105985515431D-01
        xs( 80) = 0.5476369461470032D-01
        xs( 81) = 0.6273125309658346D-01
        xs( 82) = 0.7237652054809478D-01
        xs( 83) = 0.8394881619774831D-01
        xs( 84) = 0.9755485342390530D-01
        xs( 85) = 0.1130741575672114D+00
        xs( 86) = 0.1301634081240783D+00
        xs( 87) = 0.1483632279971017D+00
        xs( 88) = 0.1672304618712687D+00
        xs( 89) = 0.1864180580546381D+00
        xs( 90) = 0.2056914401648716D+00
        xs( 91) = 0.2249101723263977D+00
        xs( 92) = 0.2440009354150802D+00
        xs( 93) = 0.2629330211688618D+00
        xs( 94) = 0.2816915343489483D+00
        xs( 95) = 0.3002344387845759D+00
        xs( 96) = 0.3180495634372193D+00
        ws(  1) = 0.2349871000699116D-05
        ws(  2) = 0.5471960541280351D-05
        ws(  3) = 0.8603287720545784D-05
        ws(  4) = 0.1174239041818992D-04
        ws(  5) = 0.1489185653689153D-04
        ws(  6) = 0.1805473853625879D-04
        ws(  7) = 0.2123437288171296D-04
        ws(  8) = 0.2443438455619000D-04
        ws(  9) = 0.2765871037405458D-04
        ws( 10) = 0.3091162189005773D-04
        ws( 11) = 0.3419774524944727D-04
        ws( 12) = 0.3752207829969624D-04
        ws( 13) = 0.4089000599953574D-04
        ws( 14) = 0.4430731533096639D-04
        ws( 15) = 0.4778021090806014D-04
        ws( 16) = 0.5131533239149635D-04
        ws( 17) = 0.5491977470658752D-04
        ws( 18) = 0.5860111195112452D-04
        ws( 19) = 0.6236742578325359D-04
        ws( 20) = 0.6622733900814616D-04
        ws( 21) = 0.7019005504019647D-04
        ws( 22) = 0.7426540390706754D-04
        ws( 23) = 0.7846389548317508D-04
        ws( 24) = 0.8279678069269087D-04
        ws( 25) = 0.8727612150556265D-04
        ws( 26) = 0.9191487066382068D-04
        ws( 27) = 0.9672696222034341D-04
        ws( 28) = 0.1017274141503740D-03
        ws( 29) = 0.1069324445096722D-03
        ws( 30) = 0.1123596028670670D-03
        ws( 31) = 0.1180279190391423D-03
        ws( 32) = 0.1239580715087560D-03
        ws( 33) = 0.1301725783268763D-03
        ws( 34) = 0.1366960137912292D-03
        ws( 35) = 0.1435552547816513D-03
        ws( 36) = 0.1507797613291343D-03
        ws( 37) = 0.1584018968286286D-03
        ws( 38) = 0.1664572943029965D-03
        ws( 39) = 0.1749852763251744D-03
        ws( 40) = 0.1840293376534515D-03
        ws( 41) = 0.1936377013877486D-03
        ws( 42) = 0.2038639615860157D-03
        ws( 43) = 0.2147678278805479D-03
        ws( 44) = 0.2264159908183546D-03
        ws( 45) = 0.2388831305668955D-03
        ws( 46) = 0.2522530964598519D-03
        ws( 47) = 0.2666202908517870D-03
        ws( 48) = 0.2820912982110244D-03
        ws( 49) = 0.2987868097097798D-03
        ws( 50) = 0.3168439052900292D-03
        ws( 51) = 0.3364187699747286D-03
        ws( 52) = 0.3576899399557602D-03
        ws( 53) = 0.3808621979077108D-03
        ws( 54) = 0.4061712676334749D-03
        ws( 55) = 0.4338894976607609D-03
        ws( 56) = 0.4643327746322718D-03
        ws( 57) = 0.4978689741493725D-03
        ws( 58) = 0.5349283444268927D-03
        ws( 59) = 0.5760163340181334D-03
        ws( 60) = 0.6217295290943646D-03
        ws( 61) = 0.6727755725150765D-03
        ws( 62) = 0.7299982162467072D-03
        ws( 63) = 0.7944090390811565D-03
        ws( 64) = 0.8672278840866125D-03
        ws( 65) = 0.9499347941459121D-03
        ws( 66) = 0.1044337236022803D-02
        ws( 67) = 0.1152657831200664D-02
        ws( 68) = 0.1277649843360561D-02
        ws( 69) = 0.1422750585605107D-02
        ws( 70) = 0.1592287108546975D-02
        ws( 71) = 0.1791754583697549D-02
        ws( 72) = 0.2028196434067779D-02
        ws( 73) = 0.2310727179869239D-02
        ws( 74) = 0.2651253941404314D-02
        ws( 75) = 0.3065466291542503D-02
        ws( 76) = 0.3574158472256953D-02
        ws( 77) = 0.4204863103212690D-02
        ws( 78) = 0.4993448122841856D-02
        ws( 79) = 0.5984410807410704D-02
        ws( 80) = 0.7226615147203767D-02
        ws( 81) = 0.8758358593782108D-02
        ws( 82) = 0.1057550432766222D-01
        ws( 83) = 0.1258850568046432D-01
        ws( 84) = 0.1460347091222972D-01
        ws( 85) = 0.1637590043608080D-01
        ws( 86) = 0.1772361497346501D-01
        ws( 87) = 0.1860082877276957D-01
        ws( 88) = 0.1907561236385489D-01
        ws( 89) = 0.1926085340280223D-01
        ws( 90) = 0.1926297350503942D-01
        ws( 91) = 0.1916271720881131D-01
        ws( 92) = 0.1901426062472465D-01
        ws( 93) = 0.1884899081798469D-01
        ws( 94) = 0.1867075332612776D-01
        ws( 95) = 0.1833936593228926D-01
        ws( 96) = 0.1643558653381826D-01
        endif
        if( idomain .eq.   69 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.4000000000000000D-01
        rk1r = 0.5026548245743669D+02
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n = 100
        err = 0.6323360952771307D-13
        xs(  1) = 0.8192994832802957D-06
        xs(  2) = 0.4317472968122672D-05
        xs(  3) = 0.1061355224374586D-04
        xs(  4) = 0.1971344433913219D-04
        xs(  5) = 0.3162396415074374D-04
        xs(  6) = 0.4635406720883122D-04
        xs(  7) = 0.6391512435603957D-04
        xs(  8) = 0.8432114275839592D-04
        xs(  9) = 0.1075889981226789D-03
        xs( 10) = 0.1337386842012779D-03
        xs( 11) = 0.1627935779025039D-03
        xs( 12) = 0.1947807173996219D-03
        xs( 13) = 0.2297310910919211D-03
        xs( 14) = 0.2676799360823183D-03
        xs( 15) = 0.3086670457180306D-03
        xs( 16) = 0.3527370865918374D-03
        xs( 17) = 0.3999399261788592D-03
        xs( 18) = 0.4503309729730389D-03
        xs( 19) = 0.5039715315900208D-03
        xs( 20) = 0.5609291758300167D-03
        xs( 21) = 0.6212781431622382D-03
        xs( 22) = 0.6850997545211523D-03
        xs( 23) = 0.7524828637146756D-03
        xs( 24) = 0.8235243411557310D-03
        xs( 25) = 0.8983295970609866D-03
        xs( 26) = 0.9770131497328655D-03
        xs( 27) = 0.1059699245071035D-02
        xs( 28) = 0.1146522534065458D-02
        xs( 29) = 0.1237628815723006D-02
        xs( 30) = 0.1333175853692402D-02
        xs( 31) = 0.1433334275798826D-02
        xs( 32) = 0.1538288566803111D-02
        xs( 33) = 0.1648238165987173D-02
        xs( 34) = 0.1763398682668624D-02
        xs( 35) = 0.1884003244498963D-02
        xs( 36) = 0.2010303995444611D-02
        xs( 37) = 0.2142573762739654D-02
        xs( 38) = 0.2281107914894877D-02
        xs( 39) = 0.2426226436123351D-02
        xs( 40) = 0.2578276246388058D-02
        xs( 41) = 0.2737633800799994D-02
        xs( 42) = 0.2904708007426858D-02
        xs( 43) = 0.3079943508874031D-02
        xs( 44) = 0.3263824380465688D-02
        xs( 45) = 0.3456878306725850D-02
        xs( 46) = 0.3659681308431909D-02
        xs( 47) = 0.3872863105152488D-02
        xs( 48) = 0.4097113213339119D-02
        xs( 49) = 0.4333187898281973D-02
        xs( 50) = 0.4581918120265820D-02
        xs( 51) = 0.4844218641958607D-02
        xs( 52) = 0.5121098496542477D-02
        xs( 53) = 0.5413673055766291D-02
        xs( 54) = 0.5723177985749528D-02
        xs( 55) = 0.6050985438290057D-02
        xs( 56) = 0.6398622899562928D-02
        xs( 57) = 0.6767795210242203D-02
        xs( 58) = 0.7160410386160977D-02
        xs( 59) = 0.7578610013089438D-02
        xs( 60) = 0.8024805171512177D-02
        xs( 61) = 0.8501719078619109D-02
        xs( 62) = 0.9012437929979139D-02
        xs( 63) = 0.9560471802506828D-02
        xs( 64) = 0.1014982797033642D-01
        xs( 65) = 0.1078509962277876D-01
        xs( 66) = 0.1147157380903414D-01
        xs( 67) = 0.1221536353749940D-01
        xs( 68) = 0.1302357042573009D-01
        xs( 69) = 0.1390448626773970D-01
        xs( 70) = 0.1486784455384951D-01
        xs( 71) = 0.1592513662585243D-01
        xs( 72) = 0.1709001218489847D-01
        xs( 73) = 0.1837879088846418D-01
        xs( 74) = 0.1981112165643183D-01
        xs( 75) = 0.2141084035475442D-01
        xs( 76) = 0.2320709664986842D-01
        xs( 77) = 0.2523584976658061D-01
        xs( 78) = 0.2754187430871063D-01
        xs( 79) = 0.3018147525896768D-01
        xs( 80) = 0.3322618696305443D-01
        xs( 81) = 0.3676781081690320D-01
        xs( 82) = 0.4092516590146805D-01
        xs( 83) = 0.4585267823150870D-01
        xs( 84) = 0.5174988647995277D-01
        xs( 85) = 0.5886804349108999D-01
        xs( 86) = 0.6750411329962741D-01
        xs( 87) = 0.7796535651788856D-01
        xs( 88) = 0.9048995852773253D-01
        xs( 89) = 0.1051386537382136D+00
        xs( 90) = 0.1217227107397640D+00
        xs( 91) = 0.1398391485560097D+00
        xs( 92) = 0.1589995752564599D+00
        xs( 93) = 0.1787604599781363D+00
        xs( 94) = 0.1987889463991774D+00
        xs( 95) = 0.2188679599949454D+00
        xs( 96) = 0.2388726333170580D+00
        xs( 97) = 0.2587411138690689D+00
        xs( 98) = 0.2784452132099952D+00
        xs( 99) = 0.2978707081129221D+00
        xs(100) = 0.3166760513581905D+00
        ws(  1) = 0.2102659111619354D-05
        ws(  2) = 0.4896027098743354D-05
        ws(  3) = 0.7697007233694806D-05
        ws(  4) = 0.1050390336946756D-04
        ws(  5) = 0.1331862492403634D-04
        ws(  6) = 0.1614347272291890D-04
        ws(  7) = 0.1898097223421215D-04
        ws(  8) = 0.2183387302427432D-04
        ws(  9) = 0.2470516557126242D-04
        ws( 10) = 0.2759809809695288D-04
        ws( 11) = 0.3051619084849392D-04
        ws( 12) = 0.3346324790326550D-04
        ws( 13) = 0.3644336720711961D-04
        ws( 14) = 0.3946094971769223D-04
        ws( 15) = 0.4252070852972229D-04
        ws( 16) = 0.4562767880070579D-04
        ws( 17) = 0.4878722921109825D-04
        ws( 18) = 0.5200507560374443D-04
        ws( 19) = 0.5528729736478438D-04
        ws( 20) = 0.5864035704037760D-04
        ws( 21) = 0.6207112363421591D-04
        ws( 22) = 0.6558690000163505D-04
        ws( 23) = 0.6919545474760153D-04
        ws( 24) = 0.7290505904719345D-04
        ws( 25) = 0.7672452883790163D-04
        ws( 26) = 0.8066327288194693D-04
        ws( 27) = 0.8473134726356858D-04
        ws( 28) = 0.8893951697120925D-04
        ws( 29) = 0.9329932531758417D-04
        ws( 30) = 0.9782317207362208D-04
        ws( 31) = 0.1025244013373727D-03
        ws( 32) = 0.1074174003281915D-03
        ws( 33) = 0.1125177104946656D-03
        ws( 34) = 0.1178421525562336D-03
        ws( 35) = 0.1234089673686946D-03
        ws( 36) = 0.1292379748216221D-03
        ws( 37) = 0.1353507533491049D-03
        ws( 38) = 0.1417708430760477D-03
        ws( 39) = 0.1485239761440463D-03
        ws( 40) = 0.1556383383812676D-03
        ws( 41) = 0.1631448672194292D-03
        ws( 42) = 0.1710775916450793D-03
        ws( 43) = 0.1794740210332073D-03
        ws( 44) = 0.1883755909877327D-03
        ws( 45) = 0.1978281758569052D-03
        ws( 46) = 0.2078826794619930D-03
        ws( 47) = 0.2185957178541174D-03
        ws( 48) = 0.2300304106936668D-03
        ws( 49) = 0.2422573012552210D-03
        ws( 50) = 0.2553554292542303D-03
        ws( 51) = 0.2694135858750385D-03
        ws( 52) = 0.2845317868098534D-03
        ws( 53) = 0.3008230071333143D-03
        ws( 54) = 0.3184152318693862D-03
        ws( 55) = 0.3374538887251893D-03
        ws( 56) = 0.3581047454156035D-03
        ws( 57) = 0.3805573742588709D-03
        ws( 58) = 0.4050293125957812D-03
        ws( 59) = 0.4317710808056234D-03
        ws( 60) = 0.4610722625993665D-03
        ws( 61) = 0.4932689080347069D-03
        ws( 62) = 0.5287525926131024D-03
        ws( 63) = 0.5679815618341235D-03
        ws( 64) = 0.6114945178892044D-03
        ws( 65) = 0.6599277752405204D-03
        ws( 66) = 0.7140367408199982D-03
        ws( 67) = 0.7747229854762417D-03
        ws( 68) = 0.8430685990782040D-03
        ws( 69) = 0.9203801102539238D-03
        ws( 70) = 0.1008245073016891D-02
        ws( 71) = 0.1108605580145953D-02
        ws( 72) = 0.1223854610712747D-02
        ws( 73) = 0.1356963486801690D-02
        ws( 74) = 0.1511652145110599D-02
        ws( 75) = 0.1692618929399451D-02
        ws( 76) = 0.1905853900896655D-02
        ws( 77) = 0.2159070166174654D-02
        ws( 78) = 0.2462302291683798D-02
        ws( 79) = 0.2828739013792752D-02
        ws( 80) = 0.3275872690936034D-02
        ws( 81) = 0.3827033543265786D-02
        ws( 82) = 0.4513248089054437D-02
        ws( 83) = 0.5374901059834450D-02
        ws( 84) = 0.6461448223389715D-02
        ws( 85) = 0.7824903459853748D-02
        ws( 86) = 0.9499790159071922D-02
        ws( 87) = 0.1146437250171826D-01
        ws( 88) = 0.1359637522905938D-01
        ws( 89) = 0.1566893990940131D-01
        ws( 90) = 0.1742958205209365D-01
        ws( 91) = 0.1871955044227342D-01
        ws( 92) = 0.1952631944032616D-01
        ws( 93) = 0.1993998016966003D-01
        ws( 94) = 0.2008125439372628D-01
        ws( 95) = 0.2005651815184589D-01
        ws( 96) = 0.1994359678571320D-01
        ws( 97) = 0.1978960810616384D-01
        ws( 98) = 0.1963439270156218D-01
        ws( 99) = 0.1917994522099316D-01
        ws(100) = 0.1608198555861854D-01
        endif
        if( idomain .eq.   70 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.1000000000000000D+00
        rk1r = 0.2000000000000000D-01
        rk1i = 0.2000000000000000D+00
        iquadtype =  2
        n =  41
        err = 0.9504840548484236D-13
        xs(  1) = 0.1844771616249997D-03
        xs(  2) = 0.9731873950298014D-03
        xs(  3) = 0.2394289631629207D-02
        xs(  4) = 0.4443810294907338D-02
        xs(  5) = 0.7105691515158100D-02
        xs(  6) = 0.1035186245653189D-01
        xs(  7) = 0.1414604147426860D-01
        xs(  8) = 0.1844835165181137D-01
        xs(  9) = 0.2321887298125751D-01
        xs( 10) = 0.2841972824375489D-01
        xs( 11) = 0.3401601837643921D-01
        xs( 12) = 0.3997605473840467D-01
        xs( 13) = 0.4627123633967983D-01
        xs( 14) = 0.5287578690981209D-01
        xs( 15) = 0.5976646466601623D-01
        xs( 16) = 0.6692229408603831D-01
        xs( 17) = 0.7432433461721571D-01
        xs( 18) = 0.8195548537971949D-01
        xs( 19) = 0.8980031938303104D-01
        xs( 20) = 0.9784494031257009D-01
        xs( 21) = 0.1060768563653503D+00
        xs( 22) = 0.1144848675588320D+00
        xs( 23) = 0.1230589642784117D+00
        xs( 24) = 0.1317902365342447D+00
        xs( 25) = 0.1406707925669803D+00
        xs( 26) = 0.1496936902186753D+00
        xs( 27) = 0.1588528738597025D+00
        xs( 28) = 0.1681431341042789D+00
        xs( 29) = 0.1775600525678532D+00
        xs( 30) = 0.1870999965912294D+00
        xs( 31) = 0.1967601647106906D+00
        xs( 32) = 0.2065383872835835D+00
        xs( 33) = 0.2164342437997710D+00
        xs( 34) = 0.2264472451294041D+00
        xs( 35) = 0.2365745916744261D+00
        xs( 36) = 0.2468233732714817D+00
        xs( 37) = 0.2571546192985121D+00
        xs( 38) = 0.2676512417045832D+00
        xs( 39) = 0.2787350683269230D+00
        xs( 40) = 0.2891152414752761D+00
        xs( 41) = 0.3000707956321837D+00
        ws(  1) = 0.4735926347699897D-03
        ws(  2) = 0.1104723559064023D-02
        ws(  3) = 0.1736897495906148D-02
        ws(  4) = 0.2359463243713897D-02
        ws(  5) = 0.2959548863324833D-02
        ws(  6) = 0.3526664746478743D-02
        ws(  7) = 0.4054987358940574D-02
        ws(  8) = 0.4542945881816042D-02
        ws(  9) = 0.4991769459111668D-02
        ws( 10) = 0.5404121517001334D-02
        ws( 11) = 0.5783179850102904D-02
        ws( 12) = 0.6132130676952789D-02
        ws( 13) = 0.6453941423549663D-02
        ws( 14) = 0.6751290585215592D-02
        ws( 15) = 0.7026572855480078D-02
        ws( 16) = 0.7281932463210086D-02
        ws( 17) = 0.7519301198616983D-02
        ws( 18) = 0.7740431534925245D-02
        ws( 19) = 0.7946922517366345D-02
        ws( 20) = 0.8140239241099802D-02
        ws( 21) = 0.8321727882869364D-02
        ws( 22) = 0.8492627713355358D-02
        ws( 23) = 0.8654082202273476D-02
        ws( 24) = 0.8807148394707061D-02
        ws( 25) = 0.8952807857210468D-02
        ws( 26) = 0.9091976668949880D-02
        ws( 27) = 0.9225517290511083D-02
        ws( 28) = 0.9354269199736321D-02
        ws( 29) = 0.9479007281802964D-02
        ws( 30) = 0.9600551819848219D-02
        ws( 31) = 0.9719369236558681D-02
        ws( 32) = 0.9835897319031780D-02
        ws( 33) = 0.9952840370348272D-02
        ws( 34) = 0.1007210929177592D-01
        ws( 35) = 0.1021047704390066D-01
        ws( 36) = 0.1035540536207838D-01
        ws( 37) = 0.1030344243668159D-01
        ws( 38) = 0.1020735718451949D-01
        ws( 39) = 0.1025329205645178D-01
        ws( 40) = 0.1181369454836276D-01
        ws( 41) = 0.2272337373944522D-01
        endif
        if( idomain .eq.   71 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.1000000000000000D+00
        rk1r = 0.4000000000000000D-01
        rk1i = 0.2000000000000000D+00
        iquadtype =  2
        n =  42
        err = 0.3810899971517151D-13
        xs(  1) = 0.1749777150705965D-03
        xs(  2) = 0.9242649848265418D-03
        xs(  3) = 0.2278925247577224D-02
        xs(  4) = 0.4241880390096550D-02
        xs(  5) = 0.6805024847018496D-02
        xs(  6) = 0.9947493976883501D-02
        xs(  7) = 0.1363840138989254D-01
        xs(  8) = 0.1784129875652313D-01
        xs(  9) = 0.2251809988286310D-01
        xs( 10) = 0.2763166480835326D-01
        xs( 11) = 0.3314715574575006D-01
        xs( 12) = 0.3903256344035760D-01
        xs( 13) = 0.4525877049228433D-01
        xs( 14) = 0.5179939948002396D-01
        xs( 15) = 0.5863058639977793D-01
        xs( 16) = 0.6573074747164140D-01
        xs( 17) = 0.7308036581321149D-01
        xs( 18) = 0.8066180390666162D-01
        xs( 19) = 0.8845913945057456D-01
        xs( 20) = 0.9645802007148931D-01
        xs( 21) = 0.1046455328855505D+00
        xs( 22) = 0.1130100861558488D+00
        xs( 23) = 0.1215413014932009D+00
        xs( 24) = 0.1302299158495644D+00
        xs( 25) = 0.1390676931802016D+00
        xs( 26) = 0.1480473458319010D+00
        xs( 27) = 0.1571624657329855D+00
        xs( 28) = 0.1664074657461984D+00
        xs( 29) = 0.1757775318769682D+00
        xs( 30) = 0.1852685785759550D+00
        xs( 31) = 0.1948772312522781D+00
        xs( 32) = 0.2046008686775290D+00
        xs( 33) = 0.2144376605161780D+00
        xs( 34) = 0.2243865221221656D+00
        xs( 35) = 0.2344461399540678D+00
        xs( 36) = 0.2446140209182864D+00
        xs( 37) = 0.2548912539727457D+00
        xs( 38) = 0.2652902731805844D+00
        xs( 39) = 0.2758614383748388D+00
        xs( 40) = 0.2866579769383375D+00
        xs( 41) = 0.2972912859157694D+00
        xs( 42) = 0.3077292368362724D+00
        ws(  1) = 0.4493435137568897D-03
        ws(  2) = 0.1050825639541615D-02
        ws(  3) = 0.1659090890115323D-02
        ws(  4) = 0.2265496774926504D-02
        ws(  5) = 0.2857260833322356D-02
        ws(  6) = 0.3422449783621012D-02
        ws(  7) = 0.3953223321954795D-02
        ws(  8) = 0.4446181177990107D-02
        ws(  9) = 0.4901209546288658D-02
        ws( 10) = 0.5320106130741706D-02
        ws( 11) = 0.5705540393533194D-02
        ws( 12) = 0.6060424946103096D-02
        ws( 13) = 0.6387596846358921D-02
        ws( 14) = 0.6689687736645582D-02
        ws( 15) = 0.6969092371088738D-02
        ws( 16) = 0.7227980076408741D-02
        ws( 17) = 0.7468319744549510D-02
        ws( 18) = 0.7691905137547208D-02
        ws( 19) = 0.7900376055603783D-02
        ws( 20) = 0.8095235006444764D-02
        ws( 21) = 0.8277860455619138D-02
        ws( 22) = 0.8449517986881353D-02
        ws( 23) = 0.8611370349590777D-02
        ws( 24) = 0.8764487085413913D-02
        ws( 25) = 0.8909854107059488D-02
        ws( 26) = 0.9048383472883550D-02
        ws( 27) = 0.9180923846462338D-02
        ws( 28) = 0.9308274363666685D-02
        ws( 29) = 0.9431194790284475D-02
        ws( 30) = 0.9550390182605452D-02
        ws( 31) = 0.9666495445628172D-02
        ws( 32) = 0.9780047914734243D-02
        ws( 33) = 0.9891943117902698D-02
        ws( 34) = 0.1000491706356186D-01
        ws( 35) = 0.1012335062627042D-01
        ws( 36) = 0.1024533729835986D-01
        ws( 37) = 0.1033161118436919D-01
        ws( 38) = 0.1028989996044475D-01
        ws( 39) = 0.1021691883666876D-01
        ws( 40) = 0.1089321255748809D-01
        ws( 41) = 0.1360983680658421D-01
        ws( 42) = 0.1699287001541571D-01
        endif
        if( idomain .eq.   72 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.1000000000000000D+00
        rk1r = 0.1000000000000000D+00
        rk1i = 0.2000000000000000D+00
        iquadtype =  2
        n =  42
        err = 0.3363716844927930D-13
        xs(  1) = 0.1668490898657383D-03
        xs(  2) = 0.8834026686568135D-03
        xs(  3) = 0.2186494583898275D-02
        xs(  4) = 0.4088965624744683D-02
        xs(  5) = 0.6592386841061713D-02
        xs(  6) = 0.9682931157509794D-02
        xs(  7) = 0.1333346376492124D-01
        xs(  8) = 0.1750863487680405D-01
        xs(  9) = 0.2216982044472549D-01
        xs( 10) = 0.2727855506925649D-01
        xs( 11) = 0.3279842820913228D-01
        xs( 12) = 0.3869589776962993D-01
        xs( 13) = 0.4494048087961041D-01
        xs( 14) = 0.5150464227759234D-01
        xs( 15) = 0.5836356556734622D-01
        xs( 16) = 0.6549489991414750D-01
        xs( 17) = 0.7287852110706154D-01
        xs( 18) = 0.8049631874965738D-01
        xs( 19) = 0.8833200961391774D-01
        xs( 20) = 0.9637097341079502D-01
        xs( 21) = 0.1046001069859613D+00
        xs( 22) = 0.1130076938940520D+00
        xs( 23) = 0.1215832874353300D+00
        xs( 24) = 0.1303176060667691D+00
        xs( 25) = 0.1392024407908075D+00
        xs( 26) = 0.1482305744516812D+00
        xs( 27) = 0.1573957130825325D+00
        xs( 28) = 0.1666924295724754D+00
        xs( 29) = 0.1761161196929680D+00
        xs( 30) = 0.1856629717606785D+00
        xs( 31) = 0.1953299555336805D+00
        xs( 32) = 0.2051148646796941D+00
        xs( 33) = 0.2150164383343189D+00
        xs( 34) = 0.2250343027535209D+00
        xs( 35) = 0.2351681930494663D+00
        xs( 36) = 0.2454169557374613D+00
        xs( 37) = 0.2557807532539831D+00
        xs( 38) = 0.2662768613751747D+00
        xs( 39) = 0.2769810135281870D+00
        xs( 40) = 0.2879398100562463D+00
        xs( 41) = 0.2987285779125430D+00
        xs( 42) = 0.3092856538151162D+00
        ws(  1) = 0.4287138715900334D-03
        ws(  2) = 0.1007167717310516D-02
        ws(  3) = 0.1601325390729279D-02
        ws(  4) = 0.2203948989185761D-02
        ws(  5) = 0.2800544203734722D-02
        ws(  6) = 0.3375929032431588D-02
        ws(  7) = 0.3919159320449339D-02
        ws(  8) = 0.4424688654135265D-02
        ws(  9) = 0.4891241236651088D-02
        ws( 10) = 0.5320147166235966D-02
        ws( 11) = 0.5714006338509071D-02
        ws( 12) = 0.6075854586014753D-02
        ws( 13) = 0.6408726440646109D-02
        ws( 14) = 0.6715464593384242D-02
        ws( 15) = 0.6998660851444463D-02
        ws( 16) = 0.7260657350956796D-02
        ws( 17) = 0.7503569736084771D-02
        ws( 18) = 0.7729314405321533D-02
        ws( 19) = 0.7939633031250603D-02
        ws( 20) = 0.8136112871653067D-02
        ws( 21) = 0.8320203480755158D-02
        ws( 22) = 0.8493230960809568D-02
        ws( 23) = 0.8656410768789497D-02
        ws( 24) = 0.8810859748679033D-02
        ws( 25) = 0.8957607978067151D-02
        ws( 26) = 0.9097610627569421D-02
        ws( 27) = 0.9231760980273887D-02
        ws( 28) = 0.9360905222139155D-02
        ws( 29) = 0.9485856845526656D-02
        ws( 30) = 0.9607392209275638D-02
        ws( 31) = 0.9726210866482001D-02
        ws( 32) = 0.9842972145304649D-02
        ws( 33) = 0.9958798647366899D-02
        ws( 34) = 0.1007653154859073D-01
        ws( 35) = 0.1020088091870416D-01
        ws( 36) = 0.1032801055972798D-01
        ws( 37) = 0.1041472318547863D-01
        ws( 38) = 0.1038906744574236D-01
        ws( 39) = 0.1039799841234909D-01
        ws( 40) = 0.1125281369521853D-01
        ws( 41) = 0.1396922093096578D-01
        ws( 42) = 0.1590995473337271D-01
        endif
        if( idomain .eq.   73 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.1000000000000000D+00
        rk1r = 0.2000000000000000D+00
        rk1i = 0.2000000000000000D+00
        iquadtype =  2
        n =  42
        err = 0.3326782153560401D-13
        xs(  1) = 0.1520496458552111D-03
        xs(  2) = 0.8069812947963975D-03
        xs(  3) = 0.2005738933788827D-02
        xs(  4) = 0.3772226444101161D-02
        xs(  5) = 0.6122031895241647D-02
        xs(  6) = 0.9054959750117759D-02
        xs(  7) = 0.1255443819495748D-01
        xs(  8) = 0.1659174340120289D-01
        xs(  9) = 0.2113148716739835D-01
        xs( 10) = 0.2613609682666820D-01
        xs( 11) = 0.3156866375553245D-01
        xs( 12) = 0.3739442762183740D-01
        xs( 13) = 0.4358137978060728D-01
        xs( 14) = 0.5010038519359354D-01
        xs( 15) = 0.5692507791561308D-01
        xs( 16) = 0.6403166961531442D-01
        xs( 17) = 0.7139873792887351D-01
        xs( 18) = 0.7900702199552084D-01
        xs( 19) = 0.8683923375120625D-01
        xs( 20) = 0.9487988598917579D-01
        xs( 21) = 0.1031151359584207D+00
        xs( 22) = 0.1115326431569300D+00
        xs( 23) = 0.1201214404881478D+00
        xs( 24) = 0.1288718184107878D+00
        xs( 25) = 0.1377752221730387D+00
        xs( 26) = 0.1468241622911710D+00
        xs( 27) = 0.1560121387340271D+00
        xs( 28) = 0.1653335793569286D+00
        xs( 29) = 0.1747837926801084D+00
        xs( 30) = 0.1843589363215366D+00
        xs( 31) = 0.1940560058954412D+00
        xs( 32) = 0.2038728815585374D+00
        xs( 33) = 0.2138084490986250D+00
        xs( 34) = 0.2238625623727050D+00
        xs( 35) = 0.2340355640422183D+00
        xs( 36) = 0.2443273506512645D+00
        xs( 37) = 0.2547379504827480D+00
        xs( 38) = 0.2652826824715708D+00
        xs( 39) = 0.2760348809667398D+00
        xs( 40) = 0.2870638721018093D+00
        xs( 41) = 0.2980130488610068D+00
        xs( 42) = 0.3086864243556544D+00
        ws(  1) = 0.3909082791754790D-03
        ws(  2) = 0.9227288693636967D-03
        ws(  3) = 0.1478974920923420D-02
        ws(  4) = 0.2056730267912058D-02
        ws(  5) = 0.2642851029669526D-02
        ws(  6) = 0.3220162683805477D-02
        ws(  7) = 0.3773910030731825D-02
        ws(  8) = 0.4294726591198507D-02
        ws(  9) = 0.4778452268340426D-02
        ws( 10) = 0.5224592130480040D-02
        ws( 11) = 0.5634739245369719D-02
        ws( 12) = 0.6011452272115230D-02
        ws( 13) = 0.6357598261367697D-02
        ws( 14) = 0.6676021577572770D-02
        ws( 15) = 0.6969402729185909D-02
        ws( 16) = 0.7240213700212017D-02
        ws( 17) = 0.7490715929026515D-02
        ws( 18) = 0.7722973722544928D-02
        ws( 19) = 0.7938871191196382D-02
        ws( 20) = 0.8140128526890359D-02
        ws( 21) = 0.8328316803864706D-02
        ws( 22) = 0.8504871673582989D-02
        ws( 23) = 0.8671106468245085D-02
        ws( 24) = 0.8828225148555552D-02
        ws( 25) = 0.8977335404784336D-02
        ws( 26) = 0.9119461972701340D-02
        ws( 27) = 0.9255561362103121D-02
        ws( 28) = 0.9386538178718191D-02
        ws( 29) = 0.9513261701329342D-02
        ws( 30) = 0.9636567825489896D-02
        ws( 31) = 0.9757232713122678D-02
        ws( 32) = 0.9876006193463053D-02
        ws( 33) = 0.9993961888544131D-02
        ws( 34) = 0.1011361618739711D-01
        ws( 35) = 0.1023986773125793D-01
        ws( 36) = 0.1037171251453793D-01
        ws( 37) = 0.1047351555375361D-01
        ws( 38) = 0.1047158510607426D-01
        ws( 39) = 0.1044465105947936D-01
        ws( 40) = 0.1115164513831924D-01
        ws( 41) = 0.1400780479846144D-01
        ws( 42) = 0.1657224630522540D-01
        endif
        if( idomain .eq.   74 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.1000000000000000D+00
        rk1r = 0.4000000000000000D+00
        rk1i = 0.2000000000000000D+00
        iquadtype =  2
        n =  42
        err = 0.3510391873963281D-13
        xs(  1) = 0.1357327725470442D-03
        xs(  2) = 0.7222801194832733D-03
        xs(  3) = 0.1803634497499338D-02
        xs(  4) = 0.3414182100986377D-02
        xs(  5) = 0.5584256136242176D-02
        xs(  6) = 0.8329514701708424D-02
        xs(  7) = 0.1164680961531826D-01
        xs(  8) = 0.1551649482766607D-01
        xs(  9) = 0.1990794528195256D-01
        xs( 10) = 0.2478511674665767D-01
        xs( 11) = 0.3011061949657972D-01
        xs( 12) = 0.3584815104773573D-01
        xs( 13) = 0.4196371019175927D-01
        xs( 14) = 0.4842606982675445D-01
        xs( 15) = 0.5520685687434187D-01
        xs( 16) = 0.6228044803354565D-01
        xs( 17) = 0.6962379162270813D-01
        xs( 18) = 0.7721620802827078D-01
        xs( 19) = 0.8503919135104138D-01
        xs( 20) = 0.9307622092788638D-01
        xs( 21) = 0.1013125856828396D+00
        xs( 22) = 0.1097352222817926D+00
        xs( 23) = 0.1183325675256239D+00
        xs( 24) = 0.1270944253533672D+00
        xs( 25) = 0.1360118488716639D+00
        xs( 26) = 0.1450770377000053D+00
        xs( 27) = 0.1542832513400365D+00
        xs( 28) = 0.1636247388162875D+00
        xs( 29) = 0.1730966845785097D+00
        xs( 30) = 0.1826951714976417D+00
        xs( 31) = 0.1924171685089001D+00
        xs( 32) = 0.2022605747885581D+00
        xs( 33) = 0.2122243178986275D+00
        xs( 34) = 0.2223083719775931D+00
        xs( 35) = 0.2325135026104401D+00
        xs( 36) = 0.2428402083301138D+00
        xs( 37) = 0.2532884306871669D+00
        xs( 38) = 0.2638716216113352D+00
        xs( 39) = 0.2746579781504121D+00
        xs( 40) = 0.2857223575729960D+00
        xs( 41) = 0.2967536737744878D+00
        xs( 42) = 0.3075429517397350D+00
        ws(  1) = 0.3491736638618216D-03
        ws(  2) = 0.8285333366323943D-03
        ws(  3) = 0.1340126138470965D-02
        ws(  4) = 0.1886214764272131D-02
        ws(  5) = 0.2456610683715319D-02
        ws(  6) = 0.3033334026407729D-02
        ws(  7) = 0.3597881329396087D-02
        ws(  8) = 0.4136288857339622D-02
        ws(  9) = 0.4640536785290847D-02
        ws( 10) = 0.5107535185359953D-02
        ws( 11) = 0.5537400861808792D-02
        ws( 12) = 0.5931988316555762D-02
        ws( 13) = 0.6293924600158199D-02
        ws( 14) = 0.6626067806632289D-02
        ws( 15) = 0.6931238821894166D-02
        ws( 16) = 0.7212104923149798D-02
        ws( 17) = 0.7471138976439052D-02
        ws( 18) = 0.7710612665368663D-02
        ws( 19) = 0.7932603465995733D-02
        ws( 20) = 0.8139006539616640D-02
        ws( 21) = 0.8331548205193129D-02
        ws( 22) = 0.8511800006673091D-02
        ws( 23) = 0.8681193119169449D-02
        ws( 24) = 0.8841033170397260D-02
        ws( 25) = 0.8992515309766035D-02
        ws( 26) = 0.9136739709981049D-02
        ws( 27) = 0.9274728358263713D-02
        ws( 28) = 0.9407443209151878D-02
        ws( 29) = 0.9535805637307425D-02
        ws( 30) = 0.9660704421464515D-02
        ws( 31) = 0.9782978118884912D-02
        ws( 32) = 0.9903410014578761D-02
        ws( 33) = 0.1002297862696331D-01
        ws( 34) = 0.1014409087627584D-01
        ws( 35) = 0.1027205144757706D-01
        ws( 36) = 0.1040790694733828D-01
        ws( 37) = 0.1052013305014291D-01
        ws( 38) = 0.1053109428586533D-01
        ws( 39) = 0.1048021900806652D-01
        ws( 40) = 0.1107916373499843D-01
        ws( 41) = 0.1391988537168644D-01
        ws( 42) = 0.1690564976238076D-01
        endif
        if( idomain .eq.   75 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.1000000000000000D+00
        rk1r = 0.1000000000000000D+01
        rk1i = 0.2000000000000000D+00
        iquadtype =  2
        n =  41
        err = 0.5584909078141959D-13
        xs(  1) = 0.9959428925964039D-04
        xs(  2) = 0.5319931022505065D-03
        xs(  3) = 0.1338264903609318D-02
        xs(  4) = 0.2562142877441152D-02
        xs(  5) = 0.4254979269518690D-02
        xs(  6) = 0.6464285361337949D-02
        xs(  7) = 0.9223213441996060D-02
        xs(  8) = 0.1254495507174345D-01
        xs(  9) = 0.1642311033074359D-01
        xs( 10) = 0.2083610330692763D-01
        xs( 11) = 0.2575281926707699D-01
        xs( 12) = 0.3113750739148888D-01
        xs( 13) = 0.3695324960740409D-01
        xs( 14) = 0.4316409530734739D-01
        xs( 15) = 0.4973623141373937D-01
        xs( 16) = 0.5663853894085640D-01
        xs( 17) = 0.6384278563181484D-01
        xs( 18) = 0.7132361129404000D-01
        xs( 19) = 0.7905839938504620D-01
        xs( 20) = 0.8702709042659432D-01
        xs( 21) = 0.9521197078332677D-01
        xs( 22) = 0.1035974573388144D+00
        xs( 23) = 0.1121698906065662D+00
        xs( 24) = 0.1209173437191758D+00
        xs( 25) = 0.1298294513424120D+00
        xs( 26) = 0.1388972608948896D+00
        xs( 27) = 0.1481131064311591D+00
        xs( 28) = 0.1574705064714623D+00
        xs( 29) = 0.1669640872027810D+00
        xs( 30) = 0.1765895296715893D+00
        xs( 31) = 0.1863435385643649D+00
        xs( 32) = 0.1962238361203604D+00
        xs( 33) = 0.2062292271774548D+00
        xs( 34) = 0.2163597582289121D+00
        xs( 35) = 0.2266167869732221D+00
        xs( 36) = 0.2370027772584834D+00
        xs( 37) = 0.2475241730184448D+00
        xs( 38) = 0.2582028590336930D+00
        xs( 39) = 0.2690559325600263D+00
        xs( 40) = 0.2799887123887079D+00
        xs( 41) = 0.2910256115794730D+00
        ws(  1) = 0.2564271172027516D-03
        ws(  2) = 0.6131703655004786D-03
        ws(  3) = 0.1006799687122500D-02
        ws(  4) = 0.1449717511918925D-02
        ws(  5) = 0.1944059894629635D-02
        ws(  6) = 0.2480173500588030D-02
        ws(  7) = 0.3039869446476298D-02
        ws(  8) = 0.3602466073961294D-02
        ws(  9) = 0.4150149758212238D-02
        ws( 10) = 0.4670567273979806D-02
        ws( 11) = 0.5156848828799218D-02
        ws( 12) = 0.5606339815994102D-02
        ws( 13) = 0.6019134206536536D-02
        ws( 14) = 0.6396912990355895D-02
        ws( 15) = 0.6742169873723709D-02
        ws( 16) = 0.7057740261443795D-02
        ws( 17) = 0.7346528688355321D-02
        ws( 18) = 0.7611356398334125D-02
        ws( 19) = 0.7854880104327886D-02
        ws( 20) = 0.8079553323595437D-02
        ws( 21) = 0.8287613673456044D-02
        ws( 22) = 0.8481086051931585D-02
        ws( 23) = 0.8661795513589123D-02
        ws( 24) = 0.8831385577081147D-02
        ws( 25) = 0.8991339683511615D-02
        ws( 26) = 0.9143003899303519D-02
        ws( 27) = 0.9287609172744555D-02
        ws( 28) = 0.9426295574284730D-02
        ws( 29) = 0.9560138020066670D-02
        ws( 30) = 0.9690178829498752D-02
        ws( 31) = 0.9817465598679163D-02
        ws( 32) = 0.9943086101800098D-02
        ws( 33) = 0.1006816619105697D-01
        ws( 34) = 0.1019364861737442D-01
        ws( 35) = 0.1031933503615454D-01
        ws( 36) = 0.1044270226279733D-01
        ws( 37) = 0.1056831675048688D-01
        ws( 38) = 0.1075459941522568D-01
        ws( 39) = 0.1119500950918064D-01
        ws( 40) = 0.1223276817614196D-01
        ws( 41) = 0.1265023208895447D-01
        endif
        if( idomain .eq.   76 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.1000000000000000D+00
        rk1r = 0.1570796326794897D+01
        rk1i = 0.2000000000000000D+00
        iquadtype =  2
        n =  42
        err = 0.5592455245487793D-13
        xs(  1) = 0.7722644614264156D-04
        xs(  2) = 0.4126288596251606D-03
        xs(  3) = 0.1039159500056305D-02
        xs(  4) = 0.1995160371818845D-02
        xs(  5) = 0.3331421414255878D-02
        xs(  6) = 0.5104282706396213D-02
        xs(  7) = 0.7365981805314983D-02
        xs(  8) = 0.1015532783517609D-01
        xs(  9) = 0.1349218611668970D-01
        xs( 10) = 0.1737709956524822D-01
        xs( 11) = 0.2179473090601826D-01
        xs( 12) = 0.2671878079851764D-01
        xs( 13) = 0.3211661166453428D-01
        xs( 14) = 0.3795283467215149D-01
        xs( 15) = 0.4419179738073045D-01
        xs( 16) = 0.5079916986279527D-01
        xs( 17) = 0.5774286817125035D-01
        xs( 18) = 0.6499351963298668D-01
        xs( 19) = 0.7252462531019344D-01
        xs( 20) = 0.8031253143932020D-01
        xs( 21) = 0.8833628808728498D-01
        xs( 22) = 0.9657744853747646D-01
        xs( 23) = 0.1050198449722513D+00
        xs( 24) = 0.1136493631115518D+00
        xs( 25) = 0.1224537294966842D+00
        xs( 26) = 0.1314223189244782D+00
        xs( 27) = 0.1405459857649595D+00
        xs( 28) = 0.1498169206937524D+00
        xs( 29) = 0.1592285327618806D+00
        xs( 30) = 0.1687753574563241D+00
        xs( 31) = 0.1784529904442463D+00
        xs( 32) = 0.1882580475103759D+00
        xs( 33) = 0.1981881349069286D+00
        xs( 34) = 0.2082418085701852D+00
        xs( 35) = 0.2184186857811644D+00
        xs( 36) = 0.2287198870852418D+00
        xs( 37) = 0.2391485488969782D+00
        xs( 38) = 0.2497117041790388D+00
        xs( 39) = 0.2604209707335160D+00
        xs( 40) = 0.2712561494400542D+00
        xs( 41) = 0.2820743815313507D+00
        xs( 42) = 0.2927726328612748D+00
        ws(  1) = 0.1988432975610951D-03
        ws(  2) = 0.4758275942765904D-03
        ws(  3) = 0.7836716187678956D-03
        ws(  4) = 0.1136912351782920D-02
        ws(  5) = 0.1545168689643513D-02
        ws(  6) = 0.2009425238502245D-02
        ws(  7) = 0.2520536376177691D-02
        ws(  8) = 0.3061468899507953D-02
        ws(  9) = 0.3612274476373707D-02
        ws( 10) = 0.4154909891745400D-02
        ws( 11) = 0.4675890939350193D-02
        ws( 12) = 0.5166709497391781D-02
        ws( 13) = 0.5623013184354392D-02
        ws( 14) = 0.6043464914620733D-02
        ws( 15) = 0.6428723947048659D-02
        ws( 16) = 0.6780666304296002D-02
        ws( 17) = 0.7101832421399060D-02
        ws( 18) = 0.7395054671234325D-02
        ws( 19) = 0.7663216869536973D-02
        ws( 20) = 0.7909107159211936D-02
        ws( 21) = 0.8135335475641667D-02
        ws( 22) = 0.8344294579210791D-02
        ws( 23) = 0.8538149473525460D-02
        ws( 24) = 0.8718844427418951D-02
        ws( 25) = 0.8888120248384280D-02
        ws( 26) = 0.9047536756994833D-02
        ws( 27) = 0.9198497748903283D-02
        ws( 28) = 0.9342275982192366D-02
        ws( 29) = 0.9480037774027190D-02
        ws( 30) = 0.9612869610852916D-02
        ws( 31) = 0.9741812024538643D-02
        ws( 32) = 0.9867908033193540D-02
        ws( 33) = 0.9992213762545190D-02
        ws( 34) = 0.1011570415685412D-01
        ws( 35) = 0.1023897209131146D-01
        ws( 36) = 0.1036101670872344D-01
        ws( 37) = 0.1047937632097695D-01
        ws( 38) = 0.1060646431616606D-01
        ws( 39) = 0.1081982483234347D-01
        ws( 40) = 0.1129653324449452D-01
        ws( 41) = 0.1201124158808879D-01
        ws( 42) = 0.1106710294644531D-01
        endif
        if( idomain .eq.   77 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.1000000000000000D+00
        rk1r = 0.3141592653589793D+01
        rk1i = 0.2000000000000000D+00
        iquadtype =  2
        n =  44
        err = 0.7798107333142617D-13
        xs(  1) = 0.4460600555201289D-04
        xs(  2) = 0.2378022603792291D-03
        xs(  3) = 0.5969350699120180D-03
        xs(  4) = 0.1142784147684479D-02
        xs(  5) = 0.1907056341628799D-02
        xs(  6) = 0.2933762719879861D-02
        xs(  7) = 0.4279628213851050D-02
        xs(  8) = 0.6012071366348098D-02
        xs(  9) = 0.8203018648382724D-02
        xs( 10) = 0.1091793059781578D-01
        xs( 11) = 0.1420260379127220D-01
        xs( 12) = 0.1807391045996349D-01
        xs( 13) = 0.2251992052811088D-01
        xs( 14) = 0.2750832490241778D-01
        xs( 15) = 0.3299683611009943D-01
        xs( 16) = 0.3894073716264395D-01
        xs( 17) = 0.4529687822700817D-01
        xs( 18) = 0.5202539001956835D-01
        xs( 19) = 0.5909028591558758D-01
        xs( 20) = 0.6645956099071813D-01
        xs( 21) = 0.7410504419466703D-01
        xs( 22) = 0.8200211971434905D-01
        xs( 23) = 0.9012938554082774D-01
        xs( 24) = 0.9846829529998544D-01
        xs( 25) = 0.1070028134499019D+00
        xs( 26) = 0.1157191011044189D+00
        xs( 27) = 0.1246052403721120D+00
        xs( 28) = 0.1336509990772971D+00
        xs( 29) = 0.1428476344622590D+00
        xs( 30) = 0.1521877330000071D+00
        xs( 31) = 0.1616650828440278D+00
        xs( 32) = 0.1712745779334845D+00
        xs( 33) = 0.1810121507582869D+00
        xs( 34) = 0.1908747256671322D+00
        xs( 35) = 0.2008601912798850D+00
        xs( 36) = 0.2109673941205103D+00
        xs( 37) = 0.2211961762449615D+00
        xs( 38) = 0.2315479171357973D+00
        xs( 39) = 0.2420267392269526D+00
        xs( 40) = 0.2526391830094634D+00
        xs( 41) = 0.2633878026016150D+00
        xs( 42) = 0.2742491410663269D+00
        xs( 43) = 0.2851214007165096D+00
        xs( 44) = 0.2959127017817536D+00
        ws(  1) = 0.1147879449598785D-03
        ws(  2) = 0.2735307395062676D-03
        ws(  3) = 0.4481695998899281D-03
        ws(  4) = 0.6487885545396635D-03
        ws(  5) = 0.8870805269340908D-03
        ws(  6) = 0.1175815393814953D-02
        ws(  7) = 0.1527252638329347D-02
        ws(  8) = 0.1949809895266271D-02
        ws(  9) = 0.2443231265167463D-02
        ws( 10) = 0.2994396031970608D-02
        ws( 11) = 0.3577757119255061D-02
        ws( 12) = 0.4162708616431171D-02
        ws( 13) = 0.4723740914968532D-02
        ws( 14) = 0.5245893814674147D-02
        ws( 15) = 0.5723613042719802D-02
        ws( 16) = 0.6156971735776540D-02
        ws( 17) = 0.6548656796301153D-02
        ws( 18) = 0.6902367891494708D-02
        ws( 19) = 0.7222092455821276D-02
        ws( 20) = 0.7511767318121690D-02
        ws( 21) = 0.7775102253049949D-02
        ws( 22) = 0.8015487825052372D-02
        ws( 23) = 0.8235958552649006D-02
        ws( 24) = 0.8439193629481060D-02
        ws( 25) = 0.8627540784146714D-02
        ws( 26) = 0.8803052115674625D-02
        ws( 27) = 0.8967524312131703D-02
        ws( 28) = 0.9122538687306969D-02
        ws( 29) = 0.9269498894650169D-02
        ws( 30) = 0.9409664983270546D-02
        ws( 31) = 0.9544183993517658D-02
        ws( 32) = 0.9674121188664925D-02
        ws( 33) = 0.9800491853115000D-02
        ws( 34) = 0.9924313486757033D-02
        ws( 35) = 0.1004666898226650D-01
        ws( 36) = 0.1016849477187022D-01
        ws( 37) = 0.1028973106596286D-01
        ws( 38) = 0.1040858398317983D-01
        ws( 39) = 0.1052609277376390D-01
        ws( 40) = 0.1066804654634132D-01
        ws( 41) = 0.1092802913816454D-01
        ws( 42) = 0.1140595744843659D-01
        ws( 43) = 0.1170426391762519D-01
        ws( 44) = 0.1001188600149663D-01
        endif
        if( idomain .eq.   78 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.1000000000000000D+00
        rk1r = 0.6283185307179586D+01
        rk1i = 0.2000000000000000D+00
        iquadtype =  2
        n =  48
        err = 0.6703702469982176D-13
        xs(  1) = 0.2037362586293324D-04
        xs(  2) = 0.1080408790498082D-03
        xs(  3) = 0.2686444652813320D-03
        xs(  4) = 0.5073828873075400D-03
        xs(  5) = 0.8322277771448257D-03
        xs(  6) = 0.1254544944467652D-02
        xs(  7) = 0.1789935437828423D-02
        xs(  8) = 0.2459365204971046D-02
        xs(  9) = 0.3290622133188897D-02
        xs( 10) = 0.4320088301198939D-02
        xs( 11) = 0.5594680900393337D-02
        xs( 12) = 0.7173527235485051D-02
        xs( 13) = 0.9128423375494334D-02
        xs( 14) = 0.1154140408152574D-01
        xs( 15) = 0.1449721749043876D-01
        xs( 16) = 0.1806934840548657D-01
        xs( 17) = 0.2230216242786960D-01
        xs( 18) = 0.2719775125731968D-01
        xs( 19) = 0.3271688790026188D-01
        xs( 20) = 0.3879393463753781D-01
        xs( 21) = 0.4535542621549659D-01
        xs( 22) = 0.5233302440351245D-01
        xs( 23) = 0.5966894690491102D-01
        xs( 24) = 0.6731646811960529D-01
        xs( 25) = 0.7523835308879215D-01
        xs( 26) = 0.8340487607581729D-01
        xs( 27) = 0.9179207903990919D-01
        xs( 28) = 0.1003804217732403D+00
        xs( 29) = 0.1091537877581303D+00
        xs( 30) = 0.1180987649208859D+00
        xs( 31) = 0.1272041260863863D+00
        xs( 32) = 0.1364604517378830D+00
        xs( 33) = 0.1458598546356758D+00
        xs( 34) = 0.1553957789426280D+00
        xs( 35) = 0.1650628559248260D+00
        xs( 36) = 0.1748568046518627D+00
        xs( 37) = 0.1847743704990782D+00
        xs( 38) = 0.1948132980087684D+00
        xs( 39) = 0.2049723363253920D+00
        xs( 40) = 0.2152512738217734D+00
        xs( 41) = 0.2256510926781400D+00
        xs( 42) = 0.2361745015681500D+00
        xs( 43) = 0.2468268360795339D+00
        xs( 44) = 0.2576154370359988D+00
        xs( 45) = 0.2685410748480888D+00
        xs( 46) = 0.2795802561490004D+00
        xs( 47) = 0.2906764310867615D+00
        xs( 48) = 0.3017480590037828D+00
        ws(  1) = 0.5236392822804871D-04
        ws(  2) = 0.1234729843810329D-03
        ws(  3) = 0.1985915488011065D-03
        ws(  4) = 0.2802039195175742D-03
        ws(  5) = 0.3713662760669882D-03
        ws(  6) = 0.4758495106127388D-03
        ws(  7) = 0.5984015190780032D-03
        ws(  8) = 0.7450595030171554D-03
        ws(  9) = 0.9234847446385517D-03
        ws( 10) = 0.1143237048428350D-02
        ws( 11) = 0.1415791061697297D-02
        ws( 12) = 0.1753902398140383D-02
        ws( 13) = 0.2169683181062732D-02
        ws( 14) = 0.2670640513150667D-02
        ws( 15) = 0.3253553730134726D-02
        ws( 16) = 0.3898349872551409D-02
        ws( 17) = 0.4567611025097929D-02
        ws( 18) = 0.5216749465197073D-02
        ws( 19) = 0.5810249584204148D-02
        ws( 20) = 0.6331381347501981D-02
        ws( 21) = 0.6780129712452600D-02
        ws( 22) = 0.7165435168863300D-02
        ws( 23) = 0.7498652075932460D-02
        ws( 24) = 0.7790218893519424D-02
        ws( 25) = 0.8048626022022136D-02
        ws( 26) = 0.8280449307391836D-02
        ws( 27) = 0.8490716279812160D-02
        ws( 28) = 0.8683294905549857D-02
        ws( 29) = 0.8861210240959353D-02
        ws( 30) = 0.9026879081257957D-02
        ws( 31) = 0.9182277868423081D-02
        ws( 32) = 0.9329062256186234D-02
        ws( 33) = 0.9468653362809032D-02
        ws( 34) = 0.9602301886010004D-02
        ws( 35) = 0.9731138045679948D-02
        ws( 36) = 0.9856213942849294D-02
        ws( 37) = 0.9978544587459176D-02
        ws( 38) = 0.1009914936576224D-01
        ws( 39) = 0.1021905820392803D-01
        ws( 40) = 0.1033917064320566D-01
        ws( 41) = 0.1045999266427408D-01
        ws( 42) = 0.1058210610085649D-01
        ws( 43) = 0.1071158193377040D-01
        ws( 44) = 0.1087493992990898D-01
        ws( 45) = 0.1112272978287477D-01
        ws( 46) = 0.1143406868761638D-01
        ws( 47) = 0.1136933076723540D-01
        ws( 48) = 0.9892185351050591D-02
        endif
        if( idomain .eq.   79 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.1000000000000000D+00
        rk1r = 0.9424777960769379D+01
        rk1i = 0.2000000000000000D+00
        iquadtype =  2
        n =  51
        err = 0.9261873301848095D-13
        xs(  1) = 0.1187963965344629D-04
        xs(  2) = 0.6283629353294415D-04
        xs(  3) = 0.1555173275747742D-03
        xs(  4) = 0.2917241147314743D-03
        xs(  5) = 0.4741612208487942D-03
        xs(  6) = 0.7066015062820782D-03
        xs(  7) = 0.9940972105132275D-03
        xs(  8) = 0.1343264979366263D-02
        xs(  9) = 0.1762667450050182D-02
        xs( 10) = 0.2263321682004124D-02
        xs( 11) = 0.2859374886701285D-02
        xs( 12) = 0.3568999376921220D-02
        xs( 13) = 0.4415569172031386D-02
        xs( 14) = 0.5429184315409920D-02
        xs( 15) = 0.6648591838010860D-02
        xs( 16) = 0.8123485151089653D-02
        xs( 17) = 0.9916989638220439D-02
        xs( 18) = 0.1210776237544318D-01
        xs( 19) = 0.1479040852284617D-01
        xs( 20) = 0.1807176512397350D-01
        xs( 21) = 0.2205945101280430D-01
        xs( 22) = 0.2683993592391489D-01
        xs( 23) = 0.3245003678604752D-01
        xs( 24) = 0.3885747310324155D-01
        xs( 25) = 0.4596797012942874D-01
        xs( 26) = 0.5365644932928129D-01
        xs( 27) = 0.6180033432755724D-01
        xs( 28) = 0.7029837688232018D-01
        xs( 29) = 0.7907474850073488D-01
        xs( 30) = 0.8807548019913870D-01
        xs( 31) = 0.9726294986135382D-01
        xs( 32) = 0.1066109842066299D+00
        xs( 33) = 0.1161012148625652D+00
        xs( 34) = 0.1257205723811621D+00
        xs( 35) = 0.1354596257167225D+00
        xs( 36) = 0.1453115010953632D+00
        xs( 37) = 0.1552711847113355D+00
        xs( 38) = 0.1653350770453548D+00
        xs( 39) = 0.1755007132817779D+00
        xs( 40) = 0.1857665964049520D+00
        xs( 41) = 0.1961321079749807D+00
        xs( 42) = 0.2065974825816900D+00
        xs( 43) = 0.2171638169514406D+00
        xs( 44) = 0.2278331392815892D+00
        xs( 45) = 0.2386085697888739D+00
        xs( 46) = 0.2494943365774340D+00
        xs( 47) = 0.2604955434343785D+00
        xs( 48) = 0.2716148017590020D+00
        xs( 49) = 0.2828363618350494D+00
        xs( 50) = 0.2941637890803126D+00
        xs( 51) = 0.3052341087267946D+00
        ws(  1) = 0.3051460966845352D-04
        ws(  2) = 0.7158550229341484D-04
        ws(  3) = 0.1140736169213987D-03
        ws(  4) = 0.1587881502997353D-03
        ws(  5) = 0.2067113982553963D-03
        ws(  6) = 0.2590065140648344D-03
        ws(  7) = 0.3170813802012645D-03
        ws(  8) = 0.3826728855722029D-03
        ws(  9) = 0.4579570939612857D-03
        ws( 10) = 0.5456944735754217D-03
        ws( 11) = 0.6494212089891740D-03
        ws( 12) = 0.7736981704942530D-03
        ws( 13) = 0.9244260734633619D-03
        ws( 14) = 0.1109223348717048D-02
        ws( 15) = 0.1337831280432419D-02
        ws( 16) = 0.1622438353101201D-02
        ws( 17) = 0.1977667471111298D-02
        ws( 18) = 0.2419698312540016D-02
        ws( 19) = 0.2963582011228240D-02
        ws( 20) = 0.3617439029791600D-02
        ws( 21) = 0.4372860023515934D-02
        ws( 22) = 0.5194624401814566D-02
        ws( 23) = 0.6020073365936160D-02
        ws( 24) = 0.6778499921074122D-02
        ws( 25) = 0.7421048932143018D-02
        ws( 26) = 0.7935171530524199D-02
        ws( 27) = 0.8335676091982129D-02
        ws( 28) = 0.8647844067115848D-02
        ws( 29) = 0.8896001653058804D-02
        ws( 30) = 0.9099274071277280D-02
        ws( 31) = 0.9271363289617902D-02
        ws( 32) = 0.9421685012580184D-02
        ws( 33) = 0.9556625091871747D-02
        ws( 34) = 0.9680535660828360D-02
        ws( 35) = 0.9796436670255300D-02
        ws( 36) = 0.9906485612056953D-02
        ws( 37) = 0.1001228623247980D-01
        ws( 38) = 0.1011509101753778D-01
        ws( 39) = 0.1021593640045264D-01
        ws( 40) = 0.1031573349498362D-01
        ws( 41) = 0.1041532918414496D-01
        ws( 42) = 0.1051556111961539D-01
        ws( 43) = 0.1061729783163489D-01
        ws( 44) = 0.1072156249334904D-01
        ws( 45) = 0.1082963024065825D-01
        ws( 46) = 0.1094371807185582D-01
        ws( 47) = 0.1107399166240214D-01
        ws( 48) = 0.1123442331890521D-01
        ws( 49) = 0.1140020128346452D-01
        ws( 50) = 0.1154012841530763D-01
        ws( 51) = 0.1054341838242425D-01
        endif
        if( idomain .eq.   80 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.1000000000000000D+00
        rk1r = 0.1256637061435917D+02
        rk1i = 0.2000000000000000D+00
        iquadtype =  2
        n =  55
        err = 0.8119802696352097D-13
        xs(  1) = 0.7746993981626855D-05
        xs(  2) = 0.4092077536842623D-04
        xs(  3) = 0.1010248201164823D-03
        xs(  4) = 0.1888130912769960D-03
        xs(  5) = 0.3053971643960336D-03
        xs(  6) = 0.4523015711124450D-03
        xs(  7) = 0.6315261863848166D-03
        xs(  8) = 0.8456270740898291D-03
        xs(  9) = 0.1097820711324958D-02
        xs( 10) = 0.1392117803486643D-02
        xs( 11) = 0.1733495196309500D-02
        xs( 12) = 0.2128117444238181D-02
        xs( 13) = 0.2583623595916455D-02
        xs( 14) = 0.3109499992995582D-02
        xs( 15) = 0.3717566655093908D-02
        xs( 16) = 0.4422613357627590D-02
        xs( 17) = 0.5243231668559464D-02
        xs( 18) = 0.6202899946121749D-02
        xs( 19) = 0.7331386445740815D-02
        xs( 20) = 0.8666533528121821D-02
        xs( 21) = 0.1025645651873998D-01
        xs( 22) = 0.1216209897249560D-01
        xs( 23) = 0.1445986345530215D-01
        xs( 24) = 0.1724356009839496D-01
        xs( 25) = 0.2062400315891575D-01
        xs( 26) = 0.2472314908173628D-01
        xs( 27) = 0.2965839895267327D-01
        xs( 28) = 0.3551451384322772D-01
        xs( 29) = 0.4231010340330846D-01
        xs( 30) = 0.4997940352625460D-01
        xs( 31) = 0.5838787439076168D-01
        xs( 32) = 0.6737342893683174D-01
        xs( 33) = 0.7678555048394770D-01
        xs( 34) = 0.8650503484944604D-01
        xs( 35) = 0.9644634145374735D-01
        xs( 36) = 0.1065516441844439D+00
        xs( 37) = 0.1167832418399280D+00
        xs( 38) = 0.1271171456816621D+00
        xs( 39) = 0.1375384306574107D+00
        xs( 40) = 0.1480381022304240D+00
        xs( 41) = 0.1586110637757183D+00
        xs( 42) = 0.1692548278051408D+00
        xs( 43) = 0.1799687150946344D+00
        xs( 44) = 0.1907533726523200D+00
        xs( 45) = 0.2016105009300019D+00
        xs( 46) = 0.2125427314216326D+00
        xs( 47) = 0.2235536027384780D+00
        xs( 48) = 0.2346476331457294D+00
        xs( 49) = 0.2458304068426159D+00
        xs( 50) = 0.2571088052469626D+00
        xs( 51) = 0.2684943860386335D+00
        xs( 52) = 0.2799927329892645D+00
        xs( 53) = 0.2916139431197367D+00
        xs( 54) = 0.3033180362596513D+00
        xs( 55) = 0.3151643190231766D+00
        ws(  1) = 0.1989292292632494D-04
        ws(  2) = 0.4653955847727496D-04
        ws(  3) = 0.7379267687877346D-04
        ws(  4) = 0.1019683150298483D-03
        ws(  5) = 0.1314528929584585D-03
        ws(  6) = 0.1626878963355513D-03
        ws(  7) = 0.1961856222861148D-03
        ws(  8) = 0.2325500223559180D-03
        ws(  9) = 0.2725028649650062D-03
        ws( 10) = 0.3169171374032324D-03
        ws( 11) = 0.3668603431235175D-03
        ws( 12) = 0.4236511791254472D-03
        ws( 13) = 0.4889341600222352D-03
        ws( 14) = 0.5647781458999614D-03
        ws( 15) = 0.6538064100355884D-03
        ws( 16) = 0.7593676649852424D-03
        ws( 17) = 0.8857587910636171D-03
        ws( 18) = 0.1038509505500535D-02
        ws( 19) = 0.1224733815441102D-02
        ws( 20) = 0.1453536409109256D-02
        ws( 21) = 0.1736421353512663D-02
        ws( 22) = 0.2087561111561319D-02
        ws( 23) = 0.2523602302136683D-02
        ws( 24) = 0.3062346343257672D-02
        ws( 25) = 0.3719117949381772D-02
        ws( 26) = 0.4499221773666280D-02
        ws( 27) = 0.5386019293312562D-02
        ws( 28) = 0.6329674713286778D-02
        ws( 29) = 0.7250260436864514D-02
        ws( 30) = 0.8065146092665692D-02
        ws( 31) = 0.8724085617555973D-02
        ws( 32) = 0.9221620282698715D-02
        ws( 33) = 0.9582741733787835D-02
        ws( 34) = 0.9842085259586164D-02
        ws( 35) = 0.1003102261934820D-01
        ws( 36) = 0.1017340701936173D-01
        ws( 37) = 0.1028586682177836D-01
        ws( 38) = 0.1037950451744211D-01
        ws( 39) = 0.1046159938122865D-01
        ws( 40) = 0.1053691523016743D-01
        ws( 41) = 0.1060860618400014D-01
        ws( 42) = 0.1067881596385346D-01
        ws( 43) = 0.1074906934043103D-01
        ws( 44) = 0.1082052912518252D-01
        ws( 45) = 0.1089416955038520D-01
        ws( 46) = 0.1097090674083091D-01
        ws( 47) = 0.1105168447230493D-01
        ws( 48) = 0.1113773285803037D-01
        ws( 49) = 0.1122989015324097D-01
        ws( 50) = 0.1132599439092611D-01
        ws( 51) = 0.1143833659094705D-01
        ws( 52) = 0.1157719370380053D-01
        ws( 53) = 0.1172728975444476D-01
        ws( 54) = 0.1203434454066999D-01
        ws( 55) = 0.1206119829081978D-01
        endif
        if( idomain .eq.   81 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.1000000000000000D+00
        rk1r = 0.1570796326794897D+02
        rk1i = 0.2000000000000000D+00
        iquadtype =  2
        n =  57
        err = 0.8879094943865514D-13
        xs(  1) = 0.5617353343603992D-05
        xs(  2) = 0.2964943369300049D-04
        xs(  3) = 0.7309875340135227D-04
        xs(  4) = 0.1363488011627798D-03
        xs(  5) = 0.2199577211198165D-03
        xs(  6) = 0.3246844344189508D-03
        xs(  7) = 0.4515141669746318D-03
        xs(  8) = 0.6016902813396255D-03
        xs(  9) = 0.7767539806334754D-03
        xs( 10) = 0.9785935841805412D-03
        xs( 11) = 0.1209505683083102D-02
        xs( 12) = 0.1472271302736884D-02
        xs( 13) = 0.1770251252440430D-02
        xs( 14) = 0.2107506213957427D-02
        xs( 15) = 0.2488948936267776D-02
        xs( 16) = 0.2920538333738317D-02
        xs( 17) = 0.3409528557322987D-02
        xs( 18) = 0.3964790520103246D-02
        xs( 19) = 0.4597229282615784D-02
        xs( 20) = 0.5320328575771601D-02
        xs( 21) = 0.6150863989370534D-02
        xs( 22) = 0.7109839205070154D-02
        xs( 23) = 0.8223714622126847D-02
        xs( 24) = 0.9526012476983356D-02
        xs( 25) = 0.1105939035640849D-01
        xs( 26) = 0.1287825916378091D-01
        xs( 27) = 0.1505194360706574D-01
        xs( 28) = 0.1766815824278472D-01
        xs( 29) = 0.2083602429497446D-01
        xs( 30) = 0.2468667124684299D-01
        xs( 31) = 0.2936734716137202D-01
        xs( 32) = 0.3502258694635224D-01
        xs( 33) = 0.4175754838262506D-01
        xs( 34) = 0.4959181329509409D-01
        xs( 35) = 0.5843316927972940D-01
        xs( 36) = 0.6809930621123678D-01
        xs( 37) = 0.7837572517870235D-01
        xs( 38) = 0.8906904814123244D-01
        xs( 39) = 0.1000317128100177D+00
        xs( 40) = 0.1111626095124904D+00
        xs( 41) = 0.1223973252774164D+00
        xs( 42) = 0.1336971402593484D+00
        xs( 43) = 0.1450402265505850D+00
        xs( 44) = 0.1564155078252649D+00
        xs( 45) = 0.1678186532529872D+00
        xs( 46) = 0.1792495602798009D+00
        xs( 47) = 0.1907108162150256D+00
        xs( 48) = 0.2022067877602085D+00
        xs( 49) = 0.2137431137731589D+00
        xs( 50) = 0.2253264287995363D+00
        xs( 51) = 0.2369644661587913D+00
        xs( 52) = 0.2486663183640365D+00
        xs( 53) = 0.2604395214874764D+00
        xs( 54) = 0.2723022767739997D+00
        xs( 55) = 0.2842484327723262D+00
        xs( 56) = 0.2962383423206114D+00
        xs( 57) = 0.3081966354610656D+00
        ws(  1) = 0.1442185080284166D-04
        ws(  2) = 0.3368933963752050D-04
        ws(  3) = 0.5327226843277960D-04
        ws(  4) = 0.7332049298455218D-04
        ws(  5) = 0.9402341447075344D-04
        ws(  6) = 0.1155936890530442D-03
        ws(  7) = 0.1382723453534579D-03
        ws(  8) = 0.1623359347242911D-03
        ws(  9) = 0.1881051718467707D-03
        ws( 10) = 0.2159555408849116D-03
        ws( 11) = 0.2463305850385682D-03
        ws( 12) = 0.2797588049772624D-03
        ws( 13) = 0.3168753611420935D-03
        ws( 14) = 0.3584501490907766D-03
        ws( 15) = 0.4054243377649075D-03
        ws( 16) = 0.4589581785314560D-03
        ws( 17) = 0.5204938712454619D-03
        ws( 18) = 0.5918385868238520D-03
        ws( 19) = 0.6752744687275933D-03
        ws( 20) = 0.7737046102550076D-03
        ws( 21) = 0.8908465558185514D-03
        ws( 22) = 0.1031487416909507D-02
        ws( 23) = 0.1201816100774693D-02
        ws( 24) = 0.1409845621455345D-02
        ws( 25) = 0.1665925523208308D-02
        ws( 26) = 0.1983306673100088D-02
        ws( 27) = 0.2378626783693135D-02
        ws( 28) = 0.2871969972392740D-02
        ws( 29) = 0.3485698768128959D-02
        ws( 30) = 0.4240433602200744D-02
        ws( 31) = 0.5145631928766372D-02
        ws( 32) = 0.6183223375168381D-02
        ws( 33) = 0.7290489796456048D-02
        ws( 34) = 0.8362276223579327D-02
        ws( 35) = 0.9288961662261131D-02
        ws( 36) = 0.1000661403580487D-01
        ws( 37) = 0.1051360496897270D-01
        ws( 38) = 0.1084847441148938D-01
        ws( 39) = 0.1106018728925053D-01
        ws( 40) = 0.1119106088675267D-01
        ws( 41) = 0.1127206433148406D-01
        ws( 42) = 0.1132402842772012D-01
        ws( 43) = 0.1136036320416038D-01
        ws( 44) = 0.1138951807910135D-01
        ws( 45) = 0.1141678007724681D-01
        ws( 46) = 0.1144548008964166D-01
        ws( 47) = 0.1147777262953990D-01
        ws( 48) = 0.1151514082187060D-01
        ws( 49) = 0.1155872775892472D-01
        ws( 50) = 0.1160939104655926D-01
        ws( 51) = 0.1166770883355389D-01
        ws( 52) = 0.1173556171517152D-01
        ws( 53) = 0.1181513002357642D-01
        ws( 54) = 0.1191509598803523D-01
        ws( 55) = 0.1201200102483667D-01
        ws( 56) = 0.1227729756924377D-01
        ws( 57) = 0.1216494514931638D-01
        endif
        if( idomain .eq.   82 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.1000000000000000D+00
        rk1r = 0.1884955592153876D+02
        rk1i = 0.2000000000000000D+00
        iquadtype =  2
        n =  60
        err = 0.9445736812519146D-13
        xs(  1) = 0.4232983379218435D-05
        xs(  2) = 0.2233169782634449D-04
        xs(  3) = 0.5500927213102789D-04
        xs(  4) = 0.1024763163638254D-03
        xs(  5) = 0.1650354084357754D-03
        xs(  6) = 0.2430953362608499D-03
        xs(  7) = 0.3371828638567261D-03
        xs(  8) = 0.4479568459319894D-03
        xs(  9) = 0.5762253183003363D-03
        xs( 10) = 0.7229660618501109D-03
        xs( 11) = 0.8893513046826680D-03
        xs( 12) = 0.1076777465628297D-02
        xs( 13) = 0.1286901135225214D-02
        xs( 14) = 0.1521682850755905D-02
        xs( 15) = 0.1783440675930051D-02
        xs( 16) = 0.2074916180069717D-02
        xs( 17) = 0.2399356175959290D-02
        xs( 18) = 0.2760614586764801D-02
        xs( 19) = 0.3163280160858453D-02
        xs( 20) = 0.3612837561225761D-02
        xs( 21) = 0.4115871788892113D-02
        xs( 22) = 0.4680329180289643D-02
        xs( 23) = 0.5315852642497511D-02
        xs( 24) = 0.6034214740159281D-02
        xs( 25) = 0.6849880193830952D-02
        xs( 26) = 0.7780739813937798D-02
        xs( 27) = 0.8849071322789552D-02
        xs( 28) = 0.1008279892697125D-01
        xs( 29) = 0.1151714162432437D-01
        xs( 30) = 0.1319675548175558D-01
        xs( 31) = 0.1517847488412761D-01
        xs( 32) = 0.1753471031167761D-01
        xs( 33) = 0.2035738907061050D-01
        xs( 34) = 0.2376185425252185D-01
        xs( 35) = 0.2788900259514713D-01
        xs( 36) = 0.3290161399413464D-01
        xs( 37) = 0.3896744330680500D-01
        xs( 38) = 0.4622101703751756D-01
        xs( 39) = 0.5470815145958495D-01
        xs( 40) = 0.6434438022235502D-01
        xs( 41) = 0.7492777907283066D-01
        xs( 42) = 0.8620434409554240D-01
        xs( 43) = 0.9793760451358190D-01
        xs( 44) = 0.1099451343636700D+00
        xs( 45) = 0.1221026218863708D+00
        xs( 46) = 0.1343325277274620D+00
        xs( 47) = 0.1465901325537928D+00
        xs( 48) = 0.1588521474965490D+00
        xs( 49) = 0.1711087514891461D+00
        xs( 50) = 0.1833584315544378D+00
        xs( 51) = 0.1956047859557098D+00
        xs( 52) = 0.2078546059138512D+00
        xs( 53) = 0.2201168331298930D+00
        xs( 54) = 0.2324018409158676D+00
        xs( 55) = 0.2447218665749139D+00
        xs( 56) = 0.2570898786419360D+00
        xs( 57) = 0.2695167379049048D+00
        xs( 58) = 0.2820163006439015D+00
        xs( 59) = 0.2945396566489828D+00
        xs( 60) = 0.3066713447357887D+00
        ws(  1) = 0.1086642993018061D-04
        ws(  2) = 0.2535941007455275D-04
        ws(  3) = 0.4003018770076220D-04
        ws(  4) = 0.5495415070775654D-04
        ws(  5) = 0.7023197241090059D-04
        ws(  6) = 0.8597544306267269D-04
        ws(  7) = 0.1023091375321392D-03
        ws(  8) = 0.1193731580814059D-03
        ws(  9) = 0.1373263405647613D-03
        ws( 10) = 0.1563500249815206D-03
        ws( 11) = 0.1766526011421616D-03
        ws( 12) = 0.1984750943245280D-03
        ws( 13) = 0.2220981141963307D-03
        ws( 14) = 0.2478505690652422D-03
        ws( 15) = 0.2761206574800845D-03
        ws( 16) = 0.3073698019183767D-03
        ws( 17) = 0.3421503994848239D-03
        ws( 18) = 0.3811285520799364D-03
        ws( 19) = 0.4251133306240626D-03
        ws( 20) = 0.4750946617835896D-03
        ws( 21) = 0.5322926511366284D-03
        ws( 22) = 0.5982221388629762D-03
        ws( 23) = 0.6747776035443799D-03
        ws( 24) = 0.7643452770734369D-03
        ws( 25) = 0.8699515885221742D-03
        ws( 26) = 0.9954598274196059D-03
        ws( 27) = 0.1145830008441796D-02
        ws( 28) = 0.1327459594166798D-02
        ws( 29) = 0.1548622970459805D-02
        ws( 30) = 0.1820020347217310D-02
        ws( 31) = 0.2155420043431961D-02
        ws( 32) = 0.2572303441693536D-02
        ws( 33) = 0.3092233298948725D-02
        ws( 34) = 0.3740222886049232D-02
        ws( 35) = 0.4541461374321397D-02
        ws( 36) = 0.5512357422725213D-02
        ws( 37) = 0.6642726161829433D-02
        ws( 38) = 0.7872876650676550D-02
        ws( 39) = 0.9087100541996381D-02
        ws( 40) = 0.1015046349955893D-01
        ws( 41) = 0.1097274041889442D-01
        ws( 42) = 0.1154038514861078D-01
        ws( 43) = 0.1189571269849283D-01
        ws( 44) = 0.1209884801280479D-01
        ws( 45) = 0.1220344687802821D-01
        ws( 46) = 0.1224910232150777D-01
        ws( 47) = 0.1226235664423629D-01
        ws( 48) = 0.1226012054059043D-01
        ws( 49) = 0.1225288842102887D-01
        ws( 50) = 0.1224710746175901D-01
        ws( 51) = 0.1224675894871388D-01
        ws( 52) = 0.1225434704572006D-01
        ws( 53) = 0.1227161809718586D-01
        ws( 54) = 0.1229952650266938D-01
        ws( 55) = 0.1234124454051824D-01
        ws( 56) = 0.1239814456565613D-01
        ws( 57) = 0.1249004985318475D-01
        ws( 58) = 0.1264936105030171D-01
        ws( 59) = 0.1283190548896971D-01
        ws( 60) = 0.1216070993855917D-01
        endif
        if( idomain .eq.   83 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.1000000000000000D+00
        rk1r = 0.2199114857512855D+02
        rk1i = 0.2000000000000000D+00
        iquadtype =  2
        n =  64
        err = 0.6155277645413056D-13
        xs(  1) = 0.3299606715820818D-05
        xs(  2) = 0.1740200774613008D-04
        xs(  3) = 0.4284139715601935D-04
        xs(  4) = 0.7974191763906675D-04
        xs(  5) = 0.1282794833380050D-03
        xs(  6) = 0.1886905326330232D-03
        xs(  7) = 0.2612780572635419D-03
        xs(  8) = 0.3464185737714829D-03
        xs(  9) = 0.4445703733496505D-03
        xs( 10) = 0.5562832136483793D-03
        xs( 11) = 0.6822096599624817D-03
        xs( 12) = 0.8231183643827670D-03
        xs( 13) = 0.9799096691841304D-03
        xs( 14) = 0.1153634034497711D-02
        xs( 15) = 0.1345513925263949D-02
        xs( 16) = 0.1556969956905098D-02
        xs( 17) = 0.1789652304434176D-02
        xs( 18) = 0.2045478640725118D-02
        xs( 19) = 0.2326680205914012D-02
        xs( 20) = 0.2635858047163953D-02
        xs( 21) = 0.2976052040737165D-02
        xs( 22) = 0.3350826062881117D-02
        xs( 23) = 0.3764373675384025D-02
        xs( 24) = 0.4221650021497604D-02
        xs( 25) = 0.4728537405121467D-02
        xs( 26) = 0.5292054409849190D-02
        xs( 27) = 0.5920621620316902D-02
        xs( 28) = 0.6624401325341057D-02
        xs( 29) = 0.7415734390691486D-02
        xs( 30) = 0.8309705271381508D-02
        xs( 31) = 0.9324876460676609D-02
        xs( 32) = 0.1048424712563817D-01
        xs( 33) = 0.1181650759271503D-01
        xs( 34) = 0.1335768114218055D-01
        xs( 35) = 0.1515326406517177D-01
        xs( 36) = 0.1726098416055451D-01
        xs( 37) = 0.1975426966441406D-01
        xs( 38) = 0.2272638542388773D-01
        xs( 39) = 0.2629478192264165D-01
        xs( 40) = 0.3060414847240596D-01
        xs( 41) = 0.3582437412247426D-01
        xs( 42) = 0.4213597129372973D-01
        xs( 43) = 0.4969365485225587D-01
        xs( 44) = 0.5856851648405044D-01
        xs( 45) = 0.6869671435123824D-01
        xs( 46) = 0.7987991484465308D-01
        xs( 47) = 0.9184719768526679D-01
        xs( 48) = 0.1043330312710400D+00
        xs( 49) = 0.1171250809671771D+00
        xs( 50) = 0.1300749776349146D+00
        xs( 51) = 0.1430885705990942D+00
        xs( 52) = 0.1561109319433551D+00
        xs( 53) = 0.1691132463502991D+00
        xs( 54) = 0.1820833158471147D+00
        xs( 55) = 0.1950192717234089D+00
        xs( 56) = 0.2079256142787994D+00
        xs( 57) = 0.2208108215076109D+00
        xs( 58) = 0.2336859334598329D+00
        xs( 59) = 0.2465638002979888D+00
        xs( 60) = 0.2594577008137376D+00
        xs( 61) = 0.2723775211792703D+00
        xs( 62) = 0.2853477021216554D+00
        xs( 63) = 0.2982882700710906D+00
        xs( 64) = 0.3107688255984448D+00
        ws(  1) = 0.8469743470543803D-05
        ws(  2) = 0.1975360073536309D-04
        ws(  3) = 0.3114538660410163D-04
        ws(  4) = 0.4268487234024506D-04
        ws(  5) = 0.5442956767733102D-04
        ws(  6) = 0.6644291381542662D-04
        ws(  7) = 0.7879475105350469D-04
        ws(  8) = 0.9156250278144614D-04
        ws(  9) = 0.1048325343115702D-03
        ws( 10) = 0.1187016867627905D-03
        ws( 11) = 0.1332790556731510D-03
        ws( 12) = 0.1486881045857694D-03
        ws( 13) = 0.1650692188103973D-03
        ws( 14) = 0.1825828225826894D-03
        ws( 15) = 0.2014132076858980D-03
        ws( 16) = 0.2217732562354735D-03
        ws( 17) = 0.2439102879473971D-03
        ws( 18) = 0.2681133268090055D-03
        ws( 19) = 0.2947221689813980D-03
        ws( 20) = 0.3241387503133710D-03
        ws( 21) = 0.3568414681683809D-03
        ws( 22) = 0.3934033223748061D-03
        ws( 23) = 0.4345150233336843D-03
        ws( 24) = 0.4810145982260292D-03
        ws( 25) = 0.5339255450604028D-03
        ws( 26) = 0.5945062878819699D-03
        ws( 27) = 0.6643146393737027D-03
        ws( 28) = 0.7452922618386310D-03
        ws( 29) = 0.8398758328101973D-03
        ws( 30) = 0.9511438695139543D-03
        ws( 31) = 0.1083011012954815D-02
        ws( 32) = 0.1240484941996536D-02
        ws( 33) = 0.1430004502921664D-02
        ws( 34) = 0.1659879591324528D-02
        ws( 35) = 0.1940849731566062D-02
        ws( 36) = 0.2286758713088494D-02
        ws( 37) = 0.2715280852597648D-02
        ws( 38) = 0.3248466548309425D-02
        ws( 39) = 0.3912457504635175D-02
        ws( 40) = 0.4734806917470656D-02
        ws( 41) = 0.5736327867934934D-02
        ws( 42) = 0.6913683057647201D-02
        ws( 43) = 0.8214524646078629D-02
        ws( 44) = 0.9524587959512483D-02
        ws( 45) = 0.1069757918843516D-01
        ws( 46) = 0.1162223968773482D-01
        ws( 47) = 0.1226727004981734D-01
        ws( 48) = 0.1266887915569562D-01
        ws( 49) = 0.1289069235732400D-01
        ws( 50) = 0.1299367438147929D-01
        ws( 51) = 0.1302457816616274D-01
        ws( 52) = 0.1301549868415434D-01
        ws( 53) = 0.1298719949099329D-01
        ws( 54) = 0.1295269113308090D-01
        ws( 55) = 0.1292000332805069D-01
        ws( 56) = 0.1289408448046240D-01
        ws( 57) = 0.1287810675734072D-01
        ws( 58) = 0.1287429146189536D-01
        ws( 59) = 0.1288558262082741D-01
        ws( 60) = 0.1292050827270942D-01
        ws( 61) = 0.1296464456391720D-01
        ws( 62) = 0.1304556825252554D-01
        ws( 63) = 0.1324502308459265D-01
        ws( 64) = 0.1224017756139424D-01
        endif
        if( idomain .eq.   84 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.1000000000000000D+00
        rk1r = 0.2513274122871834D+02
        rk1i = 0.2000000000000000D+00
        iquadtype =  2
        n =  67
        err = 0.9592705146387045D-13
        xs(  1) = 0.2664803208827055D-05
        xs(  2) = 0.1405098332505451D-04
        xs(  3) = 0.3457786044890483D-04
        xs(  4) = 0.6432347757575713D-04
        xs(  5) = 0.1033968971737909D-03
        xs(  6) = 0.1519442603556224D-03
        xs(  7) = 0.2101523134838336D-03
        xs(  8) = 0.2782523331037624D-03
        xs(  9) = 0.3565246721998177D-03
        xs( 10) = 0.4453039888238728D-03
        xs( 11) = 0.5449852268237977D-03
        xs( 12) = 0.6560304524063164D-03
        xs( 13) = 0.7789766913690035D-03
        xs( 14) = 0.9144449573293385D-03
        xs( 15) = 0.1063150711956076D-02
        xs( 16) = 0.1225916056342727D-02
        xs( 17) = 0.1403684021546230D-02
        xs( 18) = 0.1597535410191773D-02
        xs( 19) = 0.1808708745261558D-02
        xs( 20) = 0.2038624013497149D-02
        xs( 21) = 0.2288911057922702D-02
        xs( 22) = 0.2561443688127166D-02
        xs( 23) = 0.2858380853030287D-02
        xs( 24) = 0.3182216578761497D-02
        xs( 25) = 0.3535840840700355D-02
        xs( 26) = 0.3922614149770973D-02
        xs( 27) = 0.4346459437851202D-02
        xs( 28) = 0.4811975892701353D-02
        xs( 29) = 0.5324580811021562D-02
        xs( 30) = 0.5890687435303607D-02
        xs( 31) = 0.6517929289505605D-02
        xs( 32) = 0.7215444968252587D-02
        xs( 33) = 0.7994241989162839D-02
        xs( 34) = 0.8867664626670546D-02
        xs( 35) = 0.9851999187887223D-02
        xs( 36) = 0.1096726170095016D-01
        xs( 37) = 0.1223822831550318D-01
        xs( 38) = 0.1369578864177642D-01
        xs( 39) = 0.1537872688057847D-01
        xs( 40) = 0.1733606264045631D-01
        xs( 41) = 0.1963010353026390D-01
        xs( 42) = 0.2234034645764354D-01
        xs( 43) = 0.2556823491199538D-01
        xs( 44) = 0.2944233177729031D-01
        xs( 45) = 0.3412223940584428D-01
        xs( 46) = 0.3979681876329610D-01
        xs( 47) = 0.4666771437586058D-01
        xs( 48) = 0.5490685222779994D-01
        xs( 49) = 0.6458872891367275D-01
        xs( 50) = 0.7563175907051692D-01
        xs( 51) = 0.8780214754671425D-01
        xs( 52) = 0.1007887335555196D+00
        xs( 53) = 0.1142929103982206D+00
        xs( 54) = 0.1280808334197794D+00
        xs( 55) = 0.1419927803836164D+00
        xs( 56) = 0.1559301919086113D+00
        xs( 57) = 0.1698378737852190D+00
        xs( 58) = 0.1836890058239975D+00
        xs( 59) = 0.1974745212421286D+00
        xs( 60) = 0.2111961634477909D+00
        xs( 61) = 0.2248621439455122D+00
        xs( 62) = 0.2384843364749664D+00
        xs( 63) = 0.2520750925482933D+00
        xs( 64) = 0.2656473097458098D+00
        xs( 65) = 0.2791921092310709D+00
        xs( 66) = 0.2927341066007665D+00
        xs( 67) = 0.3054755651357327D+00
        ws(  1) = 0.6839917612645008D-05
        ws(  2) = 0.1594540457405249D-04
        ws(  3) = 0.2512097914466795D-04
        ws(  4) = 0.3438836737571878D-04
        ws(  5) = 0.4378277201350421D-04
        ws(  6) = 0.5334301359442215D-04
        ws(  7) = 0.6311156309576132D-04
        ws(  8) = 0.7313511465735274D-04
        ws(  9) = 0.8346524044272950D-04
        ws( 10) = 0.9415910318060148D-04
        ws( 11) = 0.1052802536843670D-03
        ws( 12) = 0.1168995518807133D-03
        ws( 13) = 0.1290962546850870D-03
        ws( 14) = 0.1419593185278570D-03
        ws( 15) = 0.1555889704668764D-03
        ws( 16) = 0.1700986107693091D-03
        ws( 17) = 0.1856171225514766D-03
        ws( 18) = 0.2022916815293955D-03
        ws( 19) = 0.2202911823785210D-03
        ws( 20) = 0.2398104292617327D-03
        ws( 21) = 0.2610752789862465D-03
        ws( 22) = 0.2843489790525857D-03
        ws( 23) = 0.3099400137848819D-03
        ws( 24) = 0.3382118655695542D-03
        ws( 25) = 0.3695952229735567D-03
        ws( 26) = 0.4046033341609237D-03
        ws( 27) = 0.4438514277868858D-03
        ws( 28) = 0.4880814254379391D-03
        ws( 29) = 0.5381935787746346D-03
        ws( 30) = 0.5952872209583387D-03
        ws( 31) = 0.6607135807993405D-03
        ws( 32) = 0.7361446442344497D-03
        ws( 33) = 0.8236634609503970D-03
        ws( 34) = 0.9258832121545592D-03
        ws( 35) = 0.1046104930639318D-02
        ws( 36) = 0.1188527146381988D-02
        ws( 37) = 0.1358524981197266D-02
        ws( 38) = 0.1563021064236783D-02
        ws( 39) = 0.1810974835116254D-02
        ws( 40) = 0.2114016389817834D-02
        ws( 41) = 0.2487234816686784D-02
        ws( 42) = 0.2950068717158867D-02
        ws( 43) = 0.3527060353507432D-02
        ws( 44) = 0.4247741955287867D-02
        ws( 45) = 0.5143792293332182D-02
        ws( 46) = 0.6239671932146914D-02
        ws( 47) = 0.7531985432813928D-02
        ws( 48) = 0.8959847101225814D-02
        ws( 49) = 0.1039027844589886D-01
        ws( 50) = 0.1165539425970978D-01
        ws( 51) = 0.1263187779714934D-01
        ws( 52) = 0.1329066031766450D-01
        ws( 53) = 0.1367862492202476D-01
        ws( 54) = 0.1387085950492919D-01
        ws( 55) = 0.1393692042571192D-01
        ws( 56) = 0.1392895534725860D-01
        ws( 57) = 0.1388211217334860D-01
        ws( 58) = 0.1381875113726261D-01
        ws( 59) = 0.1375263895299785D-01
        ws( 60) = 0.1369206233468508D-01
        ws( 61) = 0.1364195490335413D-01
        ws( 62) = 0.1360619991028444D-01
        ws( 63) = 0.1358540841337729D-01
        ws( 64) = 0.1357315320866736D-01
        ws( 65) = 0.1358330276128509D-01
        ws( 66) = 0.1352377182559860D-01
        ws( 67) = 0.1219278076298236D-01
        endif
        if( idomain .eq.   85 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.1000000000000000D+00
        rk1r = 0.2827433388230814D+02
        rk1i = 0.2000000000000000D+00
        iquadtype =  2
        n =  71
        err = 0.8045922160681624D-13
        xs(  1) = 0.2190958061325843D-05
        xs(  2) = 0.1155070231003805D-04
        xs(  3) = 0.2841699284753915D-04
        xs(  4) = 0.5284114755808563D-04
        xs(  5) = 0.8489375099031510D-04
        xs(  6) = 0.1246690700913769D-03
        xs(  7) = 0.1722872202408714D-03
        xs(  8) = 0.2278964877454138D-03
        xs(  9) = 0.2916759797070343D-03
        xs( 10) = 0.3638386281547390D-03
        xs( 11) = 0.4446345701348091D-03
        xs( 12) = 0.5343549399169159D-03
        xs( 13) = 0.6333361284324347D-03
        xs( 14) = 0.7419645856805711D-03
        xs( 15) = 0.8606822637569505D-03
        xs( 16) = 0.9899928218810297D-03
        xs( 17) = 0.1130468741302207D-02
        xs( 18) = 0.1282759528580065D-02
        xs( 19) = 0.1447601222117732D-02
        xs( 20) = 0.1625827460994626D-02
        xs( 21) = 0.1818382429566465D-02
        xs( 22) = 0.2026336059048688D-02
        xs( 23) = 0.2250901952259356D-02
        xs( 24) = 0.2493458604862476D-02
        xs( 25) = 0.2755574632305910D-02
        xs( 26) = 0.3039038884706082D-02
        xs( 27) = 0.3345896553450266D-02
        xs( 28) = 0.3678492658259955D-02
        xs( 29) = 0.4039524671960967D-02
        xs( 30) = 0.4432106519285419D-02
        xs( 31) = 0.4859846812298120D-02
        xs( 32) = 0.5326945008326940D-02
        xs( 33) = 0.5838310264692296D-02
        xs( 34) = 0.6399709211593386D-02
        xs( 35) = 0.7017950799005429D-02
        xs( 36) = 0.7701118973195920D-02
        xs( 37) = 0.8458867449031777D-02
        xs( 38) = 0.9302795603884572D-02
        xs( 39) = 0.1024693099023548D-01
        xs( 40) = 0.1130835276934090D-01
        xs( 41) = 0.1250800231818962D-01
        xs( 42) = 0.1387174334108492D-01
        xs( 43) = 0.1543175503098901D-01
        xs( 44) = 0.1722836864536707D-01
        xs( 45) = 0.1931248856093529D-01
        xs( 46) = 0.2174876486562250D-01
        xs( 47) = 0.2461967770807581D-01
        xs( 48) = 0.2803057306826743D-01
        xs( 49) = 0.3211524234063406D-01
        xs( 50) = 0.3704037468215355D-01
        xs( 51) = 0.4300431266646707D-01
        xs( 52) = 0.5022076796745654D-01
        xs( 53) = 0.5887549723900313D-01
        xs( 54) = 0.6905577707278972D-01
        xs( 55) = 0.8068649342879923D-01
        xs( 56) = 0.9352873288115544D-01
        xs( 57) = 0.1072542877503125D+00
        xs( 58) = 0.1215413438576192D+00
        xs( 59) = 0.1361337899898369D+00
        xs( 60) = 0.1508546982203078D+00
        xs( 61) = 0.1655941912834356D+00
        xs( 62) = 0.1802907694118657D+00
        xs( 63) = 0.1949150521786204D+00
        xs( 64) = 0.2094580855925017D+00
        xs( 65) = 0.2239236762547027D+00
        xs( 66) = 0.2383235330979757D+00
        xs( 67) = 0.2526745498663856D+00
        xs( 68) = 0.2669935965931007D+00
        xs( 69) = 0.2813085554507175D+00
        xs( 70) = 0.2955517190318102D+00
        xs( 71) = 0.3095130643757598D+00
        ws(  1) = 0.5623466003054054D-05
        ws(  2) = 0.1310551560548214D-04
        ws(  3) = 0.2063531452499806D-04
        ws(  4) = 0.2822471514237258D-04
        ws(  5) = 0.3589616851306416D-04
        ws(  6) = 0.4367445040070872D-04
        ws(  7) = 0.5158652015688987D-04
        ws(  8) = 0.5966181601386628D-04
        ws(  9) = 0.6793260033082303D-04
        ws( 10) = 0.7643432299955961D-04
        ws( 11) = 0.8520601252808072D-04
        ws( 12) = 0.9429071238308822D-04
        ws( 13) = 0.1037359825519184D-03
        ws( 14) = 0.1135944875603219D-03
        ws( 15) = 0.1239246936366354D-03
        ws( 16) = 0.1347916999403137D-03
        ws( 17) = 0.1462682321658343D-03
        ws( 18) = 0.1584358317176429D-03
        ws( 19) = 0.1713862803618341D-03
        ws( 20) = 0.1852233091927521D-03
        ws( 21) = 0.2000646524283096D-03
        ws( 22) = 0.2160445216590777D-03
        ws( 23) = 0.2333165956722656D-03
        ws( 24) = 0.2520576461304072D-03
        ws( 25) = 0.2724719519397074D-03
        ws( 26) = 0.2947966974481700D-03
        ws( 27) = 0.3193086048480578D-03
        ws( 28) = 0.3463321236677167D-03
        ws( 29) = 0.3762495959383845D-03
        ws( 30) = 0.4095139426500114D-03
        ws( 31) = 0.4466645866406886D-03
        ws( 32) = 0.4883475545817444D-03
        ws( 33) = 0.5353410076542984D-03
        ws( 34) = 0.5885878666821262D-03
        ws( 35) = 0.6492377642799512D-03
        ws( 36) = 0.7187013314757012D-03
        ws( 37) = 0.7987208883196784D-03
        ws( 38) = 0.8914630647302865D-03
        ws( 39) = 0.9996408710759579D-03
        ws( 40) = 0.1126675444675139D-02
        ws( 41) = 0.1276911311881435D-02
        ws( 42) = 0.1455903659708468D-02
        ws( 43) = 0.1670801653010466D-02
        ws( 44) = 0.1930857180222493D-02
        ws( 45) = 0.2248089797640998D-02
        ws( 46) = 0.2638124894438930D-02
        ws( 47) = 0.3121162132139446D-02
        ws( 48) = 0.3722843059189243D-02
        ws( 49) = 0.4474275453980747D-02
        ws( 50) = 0.5409283753980499D-02
        ws( 51) = 0.6554920114196609D-02
        ws( 52) = 0.7910206337304895D-02
        ws( 53) = 0.9415031839676033D-02
        ws( 54) = 0.1093308215717953D-01
        ws( 55) = 0.1228711981627492D-01
        ws( 56) = 0.1334090141478824D-01
        ws( 57) = 0.1405557647185035D-01
        ws( 58) = 0.1447568826493343D-01
        ws( 59) = 0.1467996568873665D-01
        ws( 60) = 0.1474386827084969D-01
        ws( 61) = 0.1472514227375935D-01
        ws( 62) = 0.1466330998140862D-01
        ws( 63) = 0.1458389482311027D-01
        ws( 64) = 0.1450291937010414D-01
        ws( 65) = 0.1443038950456334D-01
        ws( 66) = 0.1437278497798380D-01
        ws( 67) = 0.1433211474170863D-01
        ws( 68) = 0.1431211950051177D-01
        ws( 69) = 0.1432682924677856D-01
        ws( 70) = 0.1428662186496077D-01
        ws( 71) = 0.1305669475526004D-01
        endif
        if( idomain .eq.   86 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.1000000000000000D+00
        rk1r = 0.3141592653589793D+02
        rk1i = 0.2000000000000000D+00
        iquadtype =  2
        n =  75
        err = 0.6248078570990374D-13
        xs(  1) = 0.1836736437060073D-05
        xs(  2) = 0.9682104556234786D-05
        xs(  3) = 0.2381478138258966D-04
        xs(  4) = 0.4426959969049904D-04
        xs(  5) = 0.7109363297406081D-04
        xs(  6) = 0.1043496049848093D-03
        xs(  7) = 0.1441173267980480D-03
        xs(  8) = 0.1904951777098267D-03
        xs(  9) = 0.2436017688268087D-03
        xs( 10) = 0.3035778030467746D-03
        xs( 11) = 0.3705881357267071D-03
        xs( 12) = 0.4448240469638512D-03
        xs( 13) = 0.5265057463842539D-03
        xs( 14) = 0.6158851421211449D-03
        xs( 15) = 0.7132489166863588D-03
        xs( 16) = 0.8189219637081110D-03
        xs( 17) = 0.9332712513334210D-03
        xs( 18) = 0.1056710190955922D-02
        xs( 19) = 0.1189703604441590D-02
        xs( 20) = 0.1332773399911356D-02
        xs( 21) = 0.1486505086246557D-02
        xs( 22) = 0.1651555280809133D-02
        xs( 23) = 0.1828660394611349D-02
        xs( 24) = 0.2018646715799275D-02
        xs( 25) = 0.2222442157666100D-02
        xs( 26) = 0.2441089993808868D-02
        xs( 27) = 0.2675764973465429D-02
        xs( 28) = 0.2927792298363822D-02
        xs( 29) = 0.3198670053594786D-02
        xs( 30) = 0.3490095825638296D-02
        xs( 31) = 0.3803998419383407D-02
        xs( 32) = 0.4142575814221270D-02
        xs( 33) = 0.4508340792322622D-02
        xs( 34) = 0.4904176050455285D-02
        xs( 35) = 0.5333401097675335D-02
        xs( 36) = 0.5799853882192645D-02
        xs( 37) = 0.6307990932402107D-02
        xs( 38) = 0.6863010908926496D-02
        xs( 39) = 0.7471007942035516D-02
        xs( 40) = 0.8139163103900008D-02
        xs( 41) = 0.8875985020695042D-02
        xs( 42) = 0.9691614219505306D-02
        xs( 43) = 0.1059821068198016D-01
        xs( 44) = 0.1161045072812659D-01
        xs( 45) = 0.1274616844574614D-01
        xs( 46) = 0.1402718930230992D-01
        xs( 47) = 0.1548042045003576D-01
        xs( 48) = 0.1713928481204839D-01
        xs( 49) = 0.1904561521106444D-01
        xs( 50) = 0.2125215953248158D-01
        xs( 51) = 0.2382588057071752D-01
        xs( 52) = 0.2685223745640294D-01
        xs( 53) = 0.3044052721091551D-01
        xs( 54) = 0.3472992247294751D-01
        xs( 55) = 0.3989454417618380D-01
        xs( 56) = 0.4614286978899422D-01
        xs( 57) = 0.5370167195197812D-01
        xs( 58) = 0.6277152561263878D-01
        xs( 59) = 0.7345256932493480D-01
        xs( 60) = 0.8567455136240627D-01
        xs( 61) = 0.9919062162005597D-01
        xs( 62) = 0.1136530393491637D+00
        xs( 63) = 0.1287156743871332D+00
        xs( 64) = 0.1441002961376026D+00
        xs( 65) = 0.1596135062412319D+00
        xs( 66) = 0.1751348705211168D+00
        xs( 67) = 0.1905970732284274D+00
        xs( 68) = 0.2059682660004311D+00
        xs( 69) = 0.2212392196458224D+00
        xs( 70) = 0.2364147729268249D+00
        xs( 71) = 0.2515082519606974D+00
        xs( 72) = 0.2665358376322775D+00
        xs( 73) = 0.2815188998920119D+00
        xs( 74) = 0.2963685986337222D+00
        xs( 75) = 0.3107649286462544D+00
        ws(  1) = 0.4714165571877820D-05
        ws(  2) = 0.1098378403306142D-04
        ws(  3) = 0.1728712370084056D-04
        ws(  4) = 0.2363032661698435D-04
        ws(  5) = 0.3002817140936732D-04
        ws(  6) = 0.3649704992548198D-04
        ws(  7) = 0.4305476253541805D-04
        ws(  8) = 0.4972067681261740D-04
        ws(  9) = 0.5651592158492199D-04
        ws( 10) = 0.6346358492600567D-04
        ws( 11) = 0.7058891877896806D-04
        ws( 12) = 0.7791955925161877D-04
        ws( 13) = 0.8548577314183256D-04
        ws( 14) = 0.9332074162788480D-04
        ws( 15) = 0.1014608922371795D-03
        ws( 16) = 0.1099462905729358D-03
        ws( 17) = 0.1188211040503060D-03
        ws( 18) = 0.1281341512175738D-03
        ws( 19) = 0.1379395522311989D-03
        ws( 20) = 0.1482974988291664D-03
        ws( 21) = 0.1592751658378375D-03
        ws( 22) = 0.1709477910274803D-03
        ws( 23) = 0.1833999562303630D-03
        ws( 24) = 0.1967271103705347D-03
        ws( 25) = 0.2110373848440639D-03
        ws( 26) = 0.2264537640995002D-03
        ws( 27) = 0.2431166900510483D-03
        ws( 28) = 0.2611871991120857D-03
        ws( 29) = 0.2808507165019658D-03
        ws( 30) = 0.3023216658438807D-03
        ws( 31) = 0.3258490953422666D-03
        ws( 32) = 0.3517235782548190D-03
        ws( 33) = 0.3802857193771825D-03
        ws( 34) = 0.4119366968562623D-03
        ws( 35) = 0.4471513981182391D-03
        ws( 36) = 0.4864948814313565D-03
        ws( 37) = 0.5306431264157085D-03
        ws( 38) = 0.5804093496457293D-03
        ws( 39) = 0.6367775859811676D-03
        ws( 40) = 0.7009458153323770D-03
        ws( 41) = 0.7743817081239433D-03
        ws( 42) = 0.8588951542518061D-03
        ws( 43) = 0.9567332452091966D-03
        ws( 44) = 0.1070705452839736D-02
        ws( 45) = 0.1204349593189763D-02
        ws( 46) = 0.1362153018100942D-02
        ws( 47) = 0.1549848554892983D-02
        ws( 48) = 0.1774810999155075D-02
        ws( 49) = 0.2046586596099065D-02
        ws( 50) = 0.2377591453963943D-02
        ws( 51) = 0.2784004222176610D-02
        ws( 52) = 0.3286821824655434D-02
        ws( 53) = 0.3912858462322644D-02
        ws( 54) = 0.4694938778671568D-02
        ws( 55) = 0.5669282246709824D-02
        ws( 56) = 0.6865889841202634D-02
        ws( 57) = 0.8286461228199331D-02
        ws( 58) = 0.9871279165948495D-02
        ws( 59) = 0.1147926815359709D-01
        ws( 60) = 0.1292212146467876D-01
        ws( 61) = 0.1405017517939028D-01
        ws( 62) = 0.1481585000457305D-01
        ws( 63) = 0.1526283090827802D-01
        ws( 64) = 0.1547442969715643D-01
        ws( 65) = 0.1553227064749954D-01
        ws( 66) = 0.1549953649385706D-01
        ws( 67) = 0.1541977355975568D-01
        ws( 68) = 0.1532121108362687D-01
        ws( 69) = 0.1522159106791158D-01
        ws( 70) = 0.1513186081048976D-01
        ws( 71) = 0.1505992338005182D-01
        ws( 72) = 0.1500333708405419D-01
        ws( 73) = 0.1500106551917480D-01
        ws( 74) = 0.1504581308328041D-01
        ws( 75) = 0.1310769472601962D-01
        endif
        if( idomain .eq.   87 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.1000000000000000D+00
        rk1r = 0.3455751918948772D+02
        rk1i = 0.2000000000000000D+00
        iquadtype =  2
        n =  79
        err = 0.7606504298241038D-13
        xs(  1) = 0.1564493282843444D-05
        xs(  2) = 0.8246281343131628D-05
        xs(  3) = 0.2027988305456398D-04
        xs(  4) = 0.3768975688189220D-04
        xs(  5) = 0.6050831380133597D-04
        xs(  6) = 0.8877865277473956D-04
        xs(  7) = 0.1225555677423334D-03
        xs(  8) = 0.1619065445197061D-03
        xs(  9) = 0.2069128652034256D-03
        xs( 10) = 0.2576708289790223D-03
        xs( 11) = 0.3142930877753298D-03
        xs( 12) = 0.3769100982053557D-03
        xs( 13) = 0.4456716969392308D-03
        xs( 14) = 0.5207488129169131D-03
        xs( 15) = 0.6023353360545087D-03
        xs( 16) = 0.6906501682120898D-03
        xs( 17) = 0.7859394882552901D-03
        xs( 18) = 0.8884792692516370D-03
        xs( 19) = 0.9985780924577305D-03
        xs( 20) = 0.1116580310084253D-02
        xs( 21) = 0.1242869617220303D-02
        xs( 22) = 0.1377873103146051D-02
        xs( 23) = 0.1522065864005572D-02
        xs( 24) = 0.1675976272963534D-02
        xs( 25) = 0.1840192021142795D-02
        xs( 26) = 0.2015367063579794D-02
        xs( 27) = 0.2202229630062952D-02
        xs( 28) = 0.2401591492191037D-02
        xs( 29) = 0.2614358716766552D-02
        xs( 30) = 0.2841544183586930D-02
        xs( 31) = 0.3084282205204034D-02
        xs( 32) = 0.3343845660378281D-02
        xs( 33) = 0.3621666145756038D-02
        xs( 34) = 0.3919357766970907D-02
        xs( 35) = 0.4238745337750375D-02
        xs( 36) = 0.4581897942720193D-02
        xs( 37) = 0.4951169058395843D-02
        xs( 38) = 0.5349244733270043D-02
        xs( 39) = 0.5779201723318354D-02
        xs( 40) = 0.6244577992482305D-02
        xs( 41) = 0.6749458657860911D-02
        xs( 42) = 0.7298581339858955D-02
        xs( 43) = 0.7897466041753100D-02
        xs( 44) = 0.8552576232342726D-02
        xs( 45) = 0.9271519880314633D-02
        xs( 46) = 0.1006330198600515D-01
        xs( 47) = 0.1093864395046465D-01
        xs( 48) = 0.1191039029882073D-01
        xs( 49) = 0.1299403037494112D-01
        xs( 50) = 0.1420837239711322D-01
        xs( 51) = 0.1557642073038433D-01
        xs( 52) = 0.1712652571974599D-01
        xs( 53) = 0.1889390049915378D-01
        xs( 54) = 0.2092263216443480D-01
        xs( 55) = 0.2326835499525792D-01
        xs( 56) = 0.2600179345294501D-01
        xs( 57) = 0.2921339307316009D-01
        xs( 58) = 0.3301914617036543D-01
        xs( 59) = 0.3756723279592066D-01
        xs( 60) = 0.4304364314497778D-01
        xs( 61) = 0.4967153860629105D-01
        xs( 62) = 0.5769346834308127D-01
        xs( 63) = 0.6732238399526516D-01
        xs( 64) = 0.7866084891953459D-01
        xs( 65) = 0.9162651495475535D-01
        xs( 66) = 0.1059480472316094D+00
        xs( 67) = 0.1212490895770490D+00
        xs( 68) = 0.1371589883022898D+00
        xs( 69) = 0.1533827180449627D+00
        xs( 70) = 0.1697173954017877D+00
        xs( 71) = 0.1860384322276087D+00
        xs( 72) = 0.2022777656904479D+00
        xs( 73) = 0.2184048028656719D+00
        xs( 74) = 0.2344125780022159D+00
        xs( 75) = 0.2503082188615098D+00
        xs( 76) = 0.2661031418299123D+00
        xs( 77) = 0.2818274255904877D+00
        xs( 78) = 0.2973297591750991D+00
        xs( 79) = 0.3121721945513037D+00
        ws(  1) = 0.4015343407266807D-05
        ws(  2) = 0.9353902073929291D-05
        ws(  3) = 0.1471716561525112D-04
        ws(  4) = 0.2010795953056490D-04
        ws(  5) = 0.2553632192442649D-04
        ws(  6) = 0.3101347185638353D-04
        ws(  7) = 0.3655158731136075D-04
        ws(  8) = 0.4216389290577070D-04
        ws(  9) = 0.4786477606770494D-04
        ws( 10) = 0.5366990262281162D-04
        ws( 11) = 0.5959633151437686D-04
        ws( 12) = 0.6566263363401155D-04
        ws( 13) = 0.7188902090667177D-04
        ws( 14) = 0.7829749192765153D-04
        ws( 15) = 0.8491200033027378D-04
        ws( 16) = 0.9175865194859624D-04
        ws( 17) = 0.9886593687263336D-04
        ws( 18) = 0.1062650027599372D-03
        ws( 19) = 0.1139899763217537D-03
        ws( 20) = 0.1220783407851516D-03
        ws( 21) = 0.1305713783834395D-03
        ws( 22) = 0.1395146885910639D-03
        ws( 23) = 0.1489587949575626D-03
        ws( 24) = 0.1589598560912488D-03
        ws( 25) = 0.1695804997120660D-03
        ws( 26) = 0.1808908028866532D-03
        ws( 27) = 0.1929694467804213D-03
        ws( 28) = 0.2059050807776348D-03
        ws( 29) = 0.2197979389832998D-03
        ws( 30) = 0.2347617623837617D-03
        ws( 31) = 0.2509260929162484D-03
        ws( 32) = 0.2684390221693446D-03
        ws( 33) = 0.2874704984618946D-03
        ws( 34) = 0.3082163230265838D-03
        ws( 35) = 0.3309030008256003D-03
        ws( 36) = 0.3557936566675056D-03
        ws( 37) = 0.3831952861832651D-03
        ws( 38) = 0.4134676884703179D-03
        ws( 39) = 0.4470345291818867D-03
        ws( 40) = 0.4843971182111994D-03
        ws( 41) = 0.5261516669722889D-03
        ws( 42) = 0.5730110334081842D-03
        ws( 43) = 0.6258322917090888D-03
        ws( 44) = 0.6856519113743753D-03
        ws( 45) = 0.7537309432430331D-03
        ws( 46) = 0.8316134543042017D-03
        ws( 47) = 0.9212026214728110D-03
        ws( 48) = 0.1024860517401867D-02
        ws( 49) = 0.1145539879170335D-02
        ws( 50) = 0.1286959283692113D-02
        ws( 51) = 0.1453837460202032D-02
        ws( 52) = 0.1652208252714640D-02
        ws( 53) = 0.1889845104319840D-02
        ws( 54) = 0.2176832113558095D-02
        ws( 55) = 0.2526324156132490D-02
        ws( 56) = 0.2955529361052526D-02
        ws( 57) = 0.3486887661953389D-02
        ws( 58) = 0.4149210199728851D-02
        ws( 59) = 0.4977946079345078D-02
        ws( 60) = 0.6012324841811778D-02
        ws( 61) = 0.7284691918607075D-02
        ws( 62) = 0.8796096879185146D-02
        ws( 63) = 0.1048026235749376D-01
        ws( 64) = 0.1218307489034328D-01
        ws( 65) = 0.1370144534341714D-01
        ws( 66) = 0.1487685671960932D-01
        ws( 67) = 0.1566227315726886D-01
        ws( 68) = 0.1610815011938708D-01
        ws( 69) = 0.1630578238510845D-01
        ws( 70) = 0.1634319325811842D-01
        ws( 71) = 0.1628785693464892D-01
        ws( 72) = 0.1618592967685045D-01
        ws( 73) = 0.1606710510331031D-01
        ws( 74) = 0.1594976078769697D-01
        ws( 75) = 0.1584584055383865D-01
        ws( 76) = 0.1575021196591425D-01
        ws( 77) = 0.1569450155447335D-01
        ws( 78) = 0.1577668289529968D-01
        ws( 79) = 0.1280495363414963D-01
        endif
        if( idomain .eq.   88 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.1000000000000000D+00
        rk1r = 0.3769911184307752D+02
        rk1i = 0.2000000000000000D+00
        iquadtype =  2
        n =  83
        err = 0.6837430492488616D-13
        xs(  1) = 0.1346871948892686D-05
        xs(  2) = 0.7098767268811332D-05
        xs(  3) = 0.1745580679221735D-04
        xs(  4) = 0.3243579495796720D-04
        xs(  5) = 0.5206182585368133D-04
        xs(  6) = 0.7636452116080864D-04
        xs(  7) = 0.1053827496006210D-03
        xs(  8) = 0.1391643099448278D-03
        xs(  9) = 0.1777666805460685D-03
        xs( 10) = 0.2212578433435864D-03
        xs( 11) = 0.2697171796415670D-03
        xs( 12) = 0.3232364357854538D-03
        xs( 13) = 0.3819207600382567D-03
        xs( 14) = 0.4458898156744699D-03
        xs( 15) = 0.5152789790570786D-03
        xs( 16) = 0.5902406350858764D-03
        xs( 17) = 0.6709455858876651D-03
        xs( 18) = 0.7575845920228080D-03
        xs( 19) = 0.8503700689166633D-03
        xs( 20) = 0.9495379648266683D-03
        xs( 21) = 0.1055349850584038D-02
        xs( 22) = 0.1168095255776025D-02
        xs( 23) = 0.1288094291149466D-02
        xs( 24) = 0.1415700603027776D-02
        xs( 25) = 0.1551304712677975D-02
        xs( 26) = 0.1695337802116564D-02
        xs( 27) = 0.1848276018128519D-02
        xs( 28) = 0.2010645378686839D-02
        xs( 29) = 0.2183027380984396D-02
        xs( 30) = 0.2366065428525011D-02
        xs( 31) = 0.2560472216916418D-02
        xs( 32) = 0.2767038245107403D-02
        xs( 33) = 0.2986641652009474D-02
        xs( 34) = 0.3220259619257724D-02
        xs( 35) = 0.3468981631238685D-02
        xs( 36) = 0.3734024945937431D-02
        xs( 37) = 0.4016752707852260D-02
        xs( 38) = 0.4318695231369110D-02
        xs( 39) = 0.4641575105029161D-02
        xs( 40) = 0.4987336921203706D-02
        xs( 41) = 0.5358182631239476D-02
        xs( 42) = 0.5756613775653507D-02
        xs( 43) = 0.6185482159121512D-02
        xs( 44) = 0.6648050953232091D-02
        xs( 45) = 0.7148068746544561D-02
        xs( 46) = 0.7689859762592563D-02
        xs( 47) = 0.8278434388540930D-02
        xs( 48) = 0.8919625378007714D-02
        xs( 49) = 0.9620256719096863D-02
        xs( 50) = 0.1038835434379150D-01
        xs( 51) = 0.1123341080954687D-01
        xs( 52) = 0.1216672010774527D-01
        xs( 53) = 0.1320180427115113D-01
        xs( 54) = 0.1435496106565058D-01
        xs( 55) = 0.1564597260921380D-01
        xs( 56) = 0.1709902944163478D-01
        xs( 57) = 0.1874394494510310D-01
        xs( 58) = 0.2061776300364841D-01
        xs( 59) = 0.2276689914714648D-01
        xs( 60) = 0.2525000182382593D-01
        xs( 61) = 0.2814176728147232D-01
        xs( 62) = 0.3153795358915125D-01
        xs( 63) = 0.3556170430433380D-01
        xs( 64) = 0.4037070480517121D-01
        xs( 65) = 0.4616298423344579D-01
        xs( 66) = 0.5317537125656005D-01
        xs( 67) = 0.6166282078545881D-01
        xs( 68) = 0.7184459480940068D-01
        xs( 69) = 0.8381906033141744D-01
        xs( 70) = 0.9748896471571196D-01
        xs( 71) = 0.1125622375737202D+00
        xs( 72) = 0.1286421296792984D+00
        xs( 73) = 0.1453417005253341D+00
        xs( 74) = 0.1623547345260263D+00
        xs( 75) = 0.1794717529445277D+00
        xs( 76) = 0.1965652224884132D+00
        xs( 77) = 0.2135669054271969D+00
        xs( 78) = 0.2304482015563157D+00
        xs( 79) = 0.2472056970883996D+00
        xs( 80) = 0.2638528338044041D+00
        xs( 81) = 0.2804067536752763D+00
        xs( 82) = 0.2968065270605509D+00
        xs( 83) = 0.3126487953765809D+00
        ws(  1) = 0.3456756565679905D-05
        ws(  2) = 0.8051619203255686D-05
        ws(  3) = 0.1266524601149825D-04
        ws(  4) = 0.1729856034013199D-04
        ws(  5) = 0.2195859414740192D-04
        ws(  6) = 0.2665326331591137D-04
        ws(  7) = 0.3139114753721941D-04
        ws(  8) = 0.3618153913404254D-04
        ws(  9) = 0.4103451745689281D-04
        ws( 10) = 0.4596102226385055D-04
        ws( 11) = 0.5097292412036310D-04
        ws( 12) = 0.5608309434727466D-04
        ws( 13) = 0.6130547809902159D-04
        ws( 14) = 0.6665517434758419D-04
        ws( 15) = 0.7214852646864371D-04
        ws( 16) = 0.7780322697731245D-04
        ws( 17) = 0.8363843984164978D-04
        ws( 18) = 0.8967494377187858D-04
        ws( 19) = 0.9593529997864314D-04
        ws( 20) = 0.1024440481378934D-03
        ws( 21) = 0.1092279347099105D-03
        ws( 22) = 0.1163161783504035D-03
        ws( 23) = 0.1237407779399841D-03
        ws( 24) = 0.1315368697677606D-03
        ws( 25) = 0.1397431416678223D-03
        ws( 26) = 0.1484023134681488D-03
        ws( 27) = 0.1575616950288078D-03
        ws( 28) = 0.1672738354990137D-03
        ws( 29) = 0.1775972803114624D-03
        ws( 30) = 0.1885974559901626D-03
        ws( 31) = 0.2003477072432240D-03
        ws( 32) = 0.2129305162664165D-03
        ws( 33) = 0.2264389409789078D-03
        ws( 34) = 0.2409783174203876D-03
        ws( 35) = 0.2566682822387820D-03
        ws( 36) = 0.2736451847216210D-03
        ws( 37) = 0.2920649750005004D-03
        ws( 38) = 0.3121066769888011D-03
        ws( 39) = 0.3339765827549897D-03
        ws( 40) = 0.3579133413497468D-03
        ws( 41) = 0.3841941622313570D-03
        ws( 42) = 0.4131424149314306D-03
        ws( 43) = 0.4451369873504021D-03
        ws( 44) = 0.4806238717444273D-03
        ws( 45) = 0.5201305892703807D-03
        ws( 46) = 0.5642842537344566D-03
        ws( 47) = 0.6138343308468497D-03
        ws( 48) = 0.6696814960815904D-03
        ws( 49) = 0.7329144679507426D-03
        ws( 50) = 0.8048573449930386D-03
        ws( 51) = 0.8871308768728354D-03
        ws( 52) = 0.9817323567132795D-03
        ws( 53) = 0.1091140581683982D-02
        ws( 54) = 0.1218454801131691D-02
        ws( 55) = 0.1367580043434452D-02
        ws( 56) = 0.1543476053986142D-02
        ws( 57) = 0.1752493690570131D-02
        ws( 58) = 0.2002831225370467D-02
        ws( 59) = 0.2305152852031897D-02
        ws( 60) = 0.2673418724102637D-02
        ws( 61) = 0.3125965748761642D-02
        ws( 62) = 0.3686807174800736D-02
        ws( 63) = 0.4386865319950026D-02
        ws( 64) = 0.5264137703258541D-02
        ws( 65) = 0.6360196747903458D-02
        ws( 66) = 0.7707957068357653D-02
        ws( 67) = 0.9305007874285644D-02
        ws( 68) = 0.1107637547801315D-01
        ws( 69) = 0.1285638562373019D-01
        ws( 70) = 0.1443304212472181D-01
        ws( 71) = 0.1564527997407740D-01
        ws( 72) = 0.1644882227360656D-01
        ws( 73) = 0.1689909106106503D-01
        ws( 74) = 0.1709236765608204D-01
        ws( 75) = 0.1712081583792310D-01
        ws( 76) = 0.1705508424240238D-01
        ws( 77) = 0.1694369874644336D-01
        ws( 78) = 0.1681810691000344D-01
        ws( 79) = 0.1669892582286377D-01
        ws( 80) = 0.1659612164447356D-01
        ws( 81) = 0.1659708210171067D-01
        ws( 82) = 0.1654356251021945D-01
        ws( 83) = 0.1516668682532576D-01
        endif
        if( idomain .eq.   89 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.1000000000000000D+00
        rk1r = 0.4084070449666731D+02
        rk1i = 0.2000000000000000D+00
        iquadtype =  2
        n =  87
        err = 0.6192699603823637D-13
        xs(  1) = 0.1176879829626294D-05
        xs(  2) = 0.6202462451087950D-05
        xs(  3) = 0.1525024153342476D-04
        xs(  4) = 0.2833328163221596D-04
        xs(  5) = 0.4546810644870486D-04
        xs(  6) = 0.6667659536937877D-04
        xs(  7) = 0.9198653618347082D-04
        xs(  8) = 0.1214321295174934D-03
        xs(  9) = 0.1550545351408837D-03
        xs( 10) = 0.1929024668145654D-03
        xs( 11) = 0.2350328324522010D-03
        xs( 12) = 0.2815114164191148D-03
        xs( 13) = 0.3324136028563374D-03
        xs( 14) = 0.3878251414256517D-03
        xs( 15) = 0.4478429593891642D-03
        xs( 16) = 0.5125760263173889D-03
        xs( 17) = 0.5821462799281809D-03
        xs( 18) = 0.6566896236174756D-03
        xs( 19) = 0.7363570082069780D-03
        xs( 20) = 0.8213156123780301D-03
        xs( 21) = 0.9117501382697325D-03
        xs( 22) = 0.1007864240884014D-02
        xs( 23) = 0.1109882112355526D-02
        xs( 24) = 0.1218050244909554D-02
        xs( 25) = 0.1332639399552973D-02
        xs( 26) = 0.1453946811338025D-02
        xs( 27) = 0.1582298666538436D-02
        xs( 28) = 0.1718052892434661D-02
        xs( 29) = 0.1861602306800791D-02
        xs( 30) = 0.2013378181837817D-02
        xs( 31) = 0.2173854286471666D-02
        xs( 32) = 0.2343551481956147D-02
        xs( 33) = 0.2523042958993517D-02
        xs( 34) = 0.2712960220611892D-02
        xs( 35) = 0.2913999934445734D-02
        xs( 36) = 0.3126931801642257D-02
        xs( 37) = 0.3352607618357304D-02
        xs( 38) = 0.3591971740967319D-02
        xs( 39) = 0.3846073209314808D-02
        xs( 40) = 0.4116079835571587D-02
        xs( 41) = 0.4403294632280192D-02
        xs( 42) = 0.4709175035221586D-02
        xs( 43) = 0.5035355479367886D-02
        xs( 44) = 0.5383674015074278D-02
        xs( 45) = 0.5756203814401372D-02
        xs( 46) = 0.6155290624019554D-02
        xs( 47) = 0.6583597484779007D-02
        xs( 48) = 0.7044158376447942D-02
        xs( 49) = 0.7540442883157946D-02
        xs( 50) = 0.8076434543018977D-02
        xs( 51) = 0.8656726288216720D-02
        xs( 52) = 0.9286637360170911D-02
        xs( 53) = 0.9972357381755829D-02
        xs( 54) = 0.1072112500199642D-01
        xs( 55) = 0.1154145086218242D-01
        xs( 56) = 0.1244339779838086D-01
        xs( 57) = 0.1343893552493501D-01
        xs( 58) = 0.1454239301097549D-01
        xs( 59) = 0.1577104004815507D-01
        xs( 60) = 0.1714584108815870D-01
        xs( 61) = 0.1869244068371241D-01
        xs( 62) = 0.2044246269044439D-01
        xs( 63) = 0.2243523718210806D-01
        xs( 64) = 0.2472011220766367D-01
        xs( 65) = 0.2735956232535270D-01
        xs( 66) = 0.3043336301841598D-01
        xs( 67) = 0.3404411793289949D-01
        xs( 68) = 0.3832426662048736D-01
        xs( 69) = 0.4344399051950654D-01
        xs( 70) = 0.4961738402197280D-01
        xs( 71) = 0.5709983104694830D-01
        xs( 72) = 0.6616323087996487D-01
        xs( 73) = 0.7703442333023404D-01
        xs( 74) = 0.8980174706925462D-01
        xs( 75) = 0.1043390318113254D+00
        xs( 76) = 0.1203162135132106D+00
        xs( 77) = 0.1373033952715190D+00
        xs( 78) = 0.1548929002102931D+00
        xs( 79) = 0.1727695690689594D+00
        xs( 80) = 0.1907227677307943D+00
        xs( 81) = 0.2086280556390844D+00
        xs( 82) = 0.2264224979572241D+00
        xs( 83) = 0.2440836639998438D+00
        xs( 84) = 0.2616158342762057D+00
        xs( 85) = 0.2790320326565986D+00
        xs( 86) = 0.2963252510962088D+00
        xs( 87) = 0.3131066890280096D+00
        ws(  1) = 0.3020430527523380D-05
        ws(  2) = 0.7034513027903811D-05
        ws(  3) = 0.1106306488719546D-04
        ws(  4) = 0.1510575364783742D-04
        ws(  5) = 0.1916753427673003D-04
        ws(  6) = 0.2325406655427782D-04
        ws(  7) = 0.2737150607586880D-04
        ws(  8) = 0.3152653062956347D-04
        ws(  9) = 0.3572638889990162D-04
        ws( 10) = 0.3997894772531797D-04
        ws( 11) = 0.4429273555877626D-04
        ws( 12) = 0.4867698364551745D-04
        ws( 13) = 0.5314166731962342D-04
        ws( 14) = 0.5769754997119258D-04
        ws( 15) = 0.6235623214545437D-04
        ws( 16) = 0.6713020806828973D-04
        ws( 17) = 0.7203293172458060D-04
        ws( 18) = 0.7707889448956679D-04
        ws( 19) = 0.8228371625398026D-04
        ws( 20) = 0.8766425200455732D-04
        ws( 21) = 0.9323871593121284D-04
        ws( 22) = 0.9902682533465898D-04
        ws( 23) = 0.1050499669075459D-03
        ws( 24) = 0.1113313883643966D-03
        ws( 25) = 0.1178964189080354D-03
        ws( 26) = 0.1247727226562319D-03
        ws( 27) = 0.1319905899296299D-03
        ws( 28) = 0.1395832722444071D-03
        ws( 29) = 0.1475873679939274D-03
        ws( 30) = 0.1560432671833432D-03
        ws( 31) = 0.1649956652548403D-03
        ws( 32) = 0.1744941580759626D-03
        ws( 33) = 0.1845939326472888D-03
        ws( 34) = 0.1953565711298706D-03
        ws( 35) = 0.2068509895369482D-03
        ws( 36) = 0.2191545370634344D-03
        ws( 37) = 0.2323542877693346D-03
        ws( 38) = 0.2465485634931648D-03
        ws( 39) = 0.2618487358399271D-03
        ws( 40) = 0.2783813663684747D-03
        ws( 41) = 0.2962907583691819D-03
        ws( 42) = 0.3157420117454851D-03
        ws( 43) = 0.3369246956606338D-03
        ws( 44) = 0.3600572833276633D-03
        ws( 45) = 0.3853925316890218D-03
        ws( 46) = 0.4132240385483523D-03
        ws( 47) = 0.4438942747811445D-03
        ws( 48) = 0.4778044747702365D-03
        ws( 49) = 0.5154268813149469D-03
        ws( 50) = 0.5573199918776635D-03
        ws( 51) = 0.6041476549731276D-03
        ws( 52) = 0.6567031382243917D-03
        ws( 53) = 0.7159396606459746D-03
        ws( 54) = 0.7830093904314637D-03
        ws( 55) = 0.8593136122607755D-03
        ws( 56) = 0.9465677466359790D-03
        ws( 57) = 0.1046886275949062D-02
        ws( 58) = 0.1162894569488669D-02
        ws( 59) = 0.1297877348205337D-02
        ws( 60) = 0.1455977437258676D-02
        ws( 61) = 0.1642463983519638D-02
        ws( 62) = 0.1864097014786716D-02
        ws( 63) = 0.2129625485001762D-02
        ws( 64) = 0.2450468156701975D-02
        ws( 65) = 0.2841636361989460D-02
        ws( 66) = 0.3322947945541625D-02
        ws( 67) = 0.3920498107048256D-02
        ws( 68) = 0.4668044351126147D-02
        ws( 69) = 0.5607096734634520D-02
        ws( 70) = 0.6782623875619009D-02
        ws( 71) = 0.8228609914665020D-02
        ws( 72) = 0.9937677070334557D-02
        ws( 73) = 0.1182090827460768D-01
        ws( 74) = 0.1369256514802828D-01
        ws( 75) = 0.1532502698280552D-01
        ws( 76) = 0.1655546003119831D-01
        ws( 77) = 0.1734979117974728D-01
        ws( 78) = 0.1777657593195852D-01
        ws( 79) = 0.1794202051720053D-01
        ws( 80) = 0.1794407423295243D-01
        ws( 81) = 0.1785635350008108D-01
        ws( 82) = 0.1772907970053543D-01
        ws( 83) = 0.1759427653212299D-01
        ws( 84) = 0.1747553318224352D-01
        ws( 85) = 0.1737119189614282D-01
        ws( 86) = 0.1737011006119879D-01
        ws( 87) = 0.1579637054013405D-01
        endif
        if( idomain .eq.   90 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.1000000000000000D+00
        rk1r = 0.4398229715025710D+02
        rk1i = 0.2000000000000000D+00
        iquadtype =  2
        n =  91
        err = 0.8351373260340222D-13
        xs(  1) = 0.1037498710541098D-05
        xs(  2) = 0.5467653890333719D-05
        xs(  3) = 0.1344250003198627D-04
        xs(  4) = 0.2497189237881767D-04
        xs(  5) = 0.4006795567587506D-04
        xs(  6) = 0.5874671260009824D-04
        xs(  7) = 0.8102851604624688D-04
        xs(  8) = 0.1069384283956007D-03
        xs(  9) = 0.1365066280049477D-03
        xs( 10) = 0.1697688491717056D-03
        xs( 11) = 0.2067668526328602D-03
        xs( 12) = 0.2475489232021882D-03
        xs( 13) = 0.2921703924690997D-03
        xs( 14) = 0.3406941862165395D-03
        xs( 15) = 0.3931913979838730D-03
        xs( 16) = 0.4497418918671850D-03
        xs( 17) = 0.5104349391682365D-03
        xs( 18) = 0.5753698948741953D-03
        xs( 19) = 0.6446569211995377D-03
        xs( 20) = 0.7184177665908468D-03
        xs( 21) = 0.7967866097343065D-03
        xs( 22) = 0.8799109792680292D-03
        xs( 23) = 0.9679527611414226D-03
        xs( 24) = 0.1061089306936418D-02
        xs( 25) = 0.1159514658026381D-02
        xs( 26) = 0.1263440902254880D-02
        xs( 27) = 0.1373099681929584D-02
        xs( 28) = 0.1488743874413753D-02
        xs( 29) = 0.1610649469534976D-02
        xs( 30) = 0.1739117671506843D-02
        xs( 31) = 0.1874477257178429D-02
        xs( 32) = 0.2017087227314721D-02
        xs( 33) = 0.2167339793420115D-02
        xs( 34) = 0.2325663749531986D-02
        xs( 35) = 0.2492528286659632D-02
        xs( 36) = 0.2668447317404863D-02
        xs( 37) = 0.2853984390120808D-02
        xs( 38) = 0.3049758286174094D-02
        xs( 39) = 0.3256449411008416D-02
        xs( 40) = 0.3474807110434985D-02
        xs( 41) = 0.3705658068739815D-02
        xs( 42) = 0.3949915975861605D-02
        xs( 43) = 0.4208592688404953D-02
        xs( 44) = 0.4482811155328812D-02
        xs( 45) = 0.4773820435982145D-02
        xs( 46) = 0.5083013208572907D-02
        xs( 47) = 0.5411946254803159D-02
        xs( 48) = 0.5762364516020315D-02
        xs( 49) = 0.6136229454026757D-02
        xs( 50) = 0.6535752623802986D-02
        xs( 51) = 0.6963435586612651D-02
        xs( 52) = 0.7422117574623608D-02
        xs( 53) = 0.7915032681531309D-02
        xs( 54) = 0.8445878823658963D-02
        xs( 55) = 0.9018901327932255D-02
        xs( 56) = 0.9638994805304257D-02
        xs( 57) = 0.1031182802739055D-01
        xs( 58) = 0.1104399793314622D-01
        xs( 59) = 0.1184322078175627D-01
        xs( 60) = 0.1271857102209436D-01
        xs( 61) = 0.1368078193151243D-01
        xs( 62) = 0.1474262686608961D-01
        xs( 63) = 0.1591940660917515D-01
        xs( 64) = 0.1722957760158941D-01
        xs( 65) = 0.1869556894175212D-01
        xs( 66) = 0.2034485461804973D-01
        xs( 67) = 0.2221137379374814D-01
        xs( 68) = 0.2433742908503429D-01
        xs( 69) = 0.2677624367734221D-01
        xs( 70) = 0.2959542302044228D-01
        xs( 71) = 0.3288163324377055D-01
        xs( 72) = 0.3674682027112040D-01
        xs( 73) = 0.4133606782050386D-01
        xs( 74) = 0.4683624906895368D-01
        xs( 75) = 0.5348200379390879D-01
        xs( 76) = 0.6155016553517513D-01
        xs( 77) = 0.7132684573274352D-01
        xs( 78) = 0.8303263639408098D-01
        xs( 79) = 0.9671934692152596D-01
        xs( 80) = 0.1122021073460204D+00
        xs( 81) = 0.1290961523575401D+00
        xs( 82) = 0.1469420228277773D+00
        xs( 83) = 0.1653276515172259D+00
        xs( 84) = 0.1839466503456378D+00
        xs( 85) = 0.2025999972028496D+00
        xs( 86) = 0.2211727749709805D+00
        xs( 87) = 0.2396074704935769D+00
        xs( 88) = 0.2578807883872384D+00
        xs( 89) = 0.2759756243531080D+00
        xs( 90) = 0.2938291272328510D+00
        xs( 91) = 0.3108569861098021D+00
        ws(  1) = 0.2662685984685725D-05
        ws(  2) = 0.6200803352422757D-05
        ws(  3) = 0.9750392986828170D-05
        ws(  4) = 0.1331039946175671D-04
        ws(  5) = 0.1688439120414389D-04
        ws(  6) = 0.2047650856115303D-04
        ws(  7) = 0.2409126862312166D-04
        ws(  8) = 0.2773357845990025D-04
        ws(  9) = 0.3140876862480674D-04
        ws( 10) = 0.3512262553252035D-04
        ws( 11) = 0.3888142014628617D-04
        ws( 12) = 0.4269193380374815D-04
        ws( 13) = 0.4656148280860972D-04
        ws( 14) = 0.5049794357386613D-04
        ws( 15) = 0.5450978004695830D-04
        ws( 16) = 0.5860607501254618D-04
        ws( 17) = 0.6279656671506683D-04
        ws( 18) = 0.6709169210522194D-04
        ws( 19) = 0.7150263791188546D-04
        ws( 20) = 0.7604140068493800D-04
        ws( 21) = 0.8072085695063843D-04
        ws( 22) = 0.8555484467167816D-04
        ws( 23) = 0.9055825730904551D-04
        ws( 24) = 0.9574715194312749D-04
        ws( 25) = 0.1011388731279909D-03
        ws( 26) = 0.1067521944278808D-03
        ws( 27) = 0.1126074799242786D-03
        ws( 28) = 0.1187268683920755D-03
        ws( 29) = 0.1251344833355041D-03
        ws( 30) = 0.1318566726625191D-03
        ws( 31) = 0.1389222824782493D-03
        ws( 32) = 0.1463629703185283D-03
        ws( 33) = 0.1542135641512022D-03
        ws( 34) = 0.1625124746850841D-03
        ws( 35) = 0.1713021699894858D-03
        ws( 36) = 0.1806297232009482D-03
        ws( 37) = 0.1905474462521570D-03
        ws( 38) = 0.2011136251941937D-03
        ws( 39) = 0.2123933759176797D-03
        ws( 40) = 0.2244596430619536D-03
        ws( 41) = 0.2373943698278993D-03
        ws( 42) = 0.2512898725298161D-03
        ws( 43) = 0.2662504613571677D-03
        ws( 44) = 0.2823943583887915D-03
        ws( 45) = 0.2998559759484052D-03
        ws( 46) = 0.3187886336456246D-03
        ws( 47) = 0.3393678118343237D-03
        ws( 48) = 0.3617950640177783D-03
        ws( 49) = 0.3863027426017582D-03
        ws( 50) = 0.4131597336009345D-03
        ws( 51) = 0.4426784494912219D-03
        ws( 52) = 0.4752233995217081D-03
        ws( 53) = 0.5112217491586865D-03
        ws( 54) = 0.5511764027904064D-03
        ws( 55) = 0.5956823073719798D-03
        ws( 56) = 0.6454468946911976D-03
        ws( 57) = 0.7013158782328921D-03
        ws( 58) = 0.7643060282706605D-03
        ws( 59) = 0.8356471105917789D-03
        ws( 60) = 0.9168359551285336D-03
        ws( 61) = 0.1009706715253831D-02
        ws( 62) = 0.1116522925853493D-02
        ws( 63) = 0.1240099172327410D-02
        ws( 64) = 0.1383963341788959D-02
        ws( 65) = 0.1552574968971527D-02
        ws( 66) = 0.1751621697217636D-02
        ws( 67) = 0.1988425053636245D-02
        ws( 68) = 0.2272499121982470D-02
        ws( 69) = 0.2616320509438748D-02
        ws( 70) = 0.3036379359626596D-02
        ws( 71) = 0.3554566392154622D-02
        ws( 72) = 0.4199837037659143D-02
        ws( 73) = 0.5009684037352956D-02
        ws( 74) = 0.6029838242112673D-02
        ws( 75) = 0.7308312641906511D-02
        ws( 76) = 0.8876959036753349D-02
        ws( 77) = 0.1071505624537421D-01
        ws( 78) = 0.1270651069097372D-01
        ws( 79) = 0.1463544319269064D-01
        ws( 80) = 0.1626358256819300D-01
        ws( 81) = 0.1744573952733593D-01
        ws( 82) = 0.1817639610614014D-01
        ws( 83) = 0.1854385748215657D-01
        ws( 84) = 0.1866140874459205D-01
        ws( 85) = 0.1862658690950474D-01
        ws( 86) = 0.1850977011944977D-01
        ws( 87) = 0.1835644959543920D-01
        ws( 88) = 0.1819383679233125D-01
        ws( 89) = 0.1800084886715787D-01
        ws( 90) = 0.1763438176880787D-01
        ws( 91) = 0.1521459063714274D-01
        endif
        if( idomain .eq.   91 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.1000000000000000D+00
        rk1r = 0.4712388980384689D+02
        rk1i = 0.2000000000000000D+00
        iquadtype =  2
        n =  95
        err = 0.9412856279858984D-13
        xs(  1) = 0.9228429737901746D-06
        xs(  2) = 0.4863235099330122D-05
        xs(  3) = 0.1195571151642041D-04
        xs(  4) = 0.2220776901138720D-04
        xs(  5) = 0.3562833286120215D-04
        xs(  6) = 0.5222917775165919D-04
        xs(  7) = 0.7202527734210209D-04
        xs(  8) = 0.9503509988982008D-04
        xs(  9) = 0.1212809217916638D-03
        xs( 10) = 0.1507891648929583D-03
        xs( 11) = 0.1835907549738392D-03
        xs( 12) = 0.2197214981325198D-03
        xs( 13) = 0.2592224726641879D-03
        xs( 14) = 0.3021404352921190D-03
        xs( 15) = 0.3485282419124195D-03
        xs( 16) = 0.3984452842444471D-03
        xs( 17) = 0.4519579448890117D-03
        xs( 18) = 0.5091400742764877D-03
        xs( 19) = 0.5700734938488189D-03
        xs( 20) = 0.6348485305873982D-03
        xs( 21) = 0.7035645887043611D-03
        xs( 22) = 0.7763307649918470D-03
        xs( 23) = 0.8532665150069880D-03
        xs( 24) = 0.9345023779936367D-03
        xs( 25) = 0.1020180769238353D-02
        xs( 26) = 0.1110456849459926D-02
        xs( 27) = 0.1205499481871075D-02
        xs( 28) = 0.1305492288761617D-02
        xs( 29) = 0.1410634820869891D-02
        xs( 30) = 0.1521143854473355D-02
        xs( 31) = 0.1637254833085501D-02
        xs( 32) = 0.1759223472946397D-02
        xs( 33) = 0.1887327554201323D-02
        xs( 34) = 0.2021868922849739D-02
        xs( 35) = 0.2163175732303899D-02
        xs( 36) = 0.2311604957831715D-02
        xs( 37) = 0.2467545222402766D-02
        xs( 38) = 0.2631419978668941D-02
        xs( 39) = 0.2803691099189039D-02
        xs( 40) = 0.2984862935790693D-02
        xs( 41) = 0.3175486919448059D-02
        xs( 42) = 0.3376166784610170D-02
        xs( 43) = 0.3587564516996126D-02
        xs( 44) = 0.3810407142049247D-02
        xs( 45) = 0.4045494493224727D-02
        xs( 46) = 0.4293708125968463D-02
        xs( 47) = 0.4556021575757016D-02
        xs( 48) = 0.4833512198343912D-02
        xs( 49) = 0.5127374879218395D-02
        xs( 50) = 0.5438937959566230D-02
        xs( 51) = 0.5769681800732387D-02
        xs( 52) = 0.6121260502216734D-02
        xs( 53) = 0.6495527404640914D-02
        xs( 54) = 0.6894565155533708D-02
        xs( 55) = 0.7320721300911383D-02
        xs( 56) = 0.7776650601035171D-02
        xs( 57) = 0.8265365569820951D-02
        xs( 58) = 0.8790297124867001D-02
        xs( 59) = 0.9355367736970382D-02
        xs( 60) = 0.9965080122545255D-02
        xs( 61) = 0.1062462538207333D-01
        xs( 62) = 0.1134001562549459D-01
        xs( 63) = 0.1211824764323094D-01
        xs( 64) = 0.1296750622325772D-01
        xs( 65) = 0.1389741848560777D-01
        xs( 66) = 0.1491937440116281D-01
        xs( 67) = 0.1604693391078514D-01
        xs( 68) = 0.1729634839194596D-01
        xs( 69) = 0.1868723455960992D-01
        xs( 70) = 0.2024345360319973D-01
        xs( 71) = 0.2199426945871309D-01
        xs( 72) = 0.2397589046519806D-01
        xs( 73) = 0.2623354207916613D-01
        xs( 74) = 0.2882427894102788D-01
        xs( 75) = 0.3182082327972177D-01
        xs( 76) = 0.3531679765887789D-01
        xs( 77) = 0.3943372836417378D-01
        xs( 78) = 0.4432988669649724D-01
        xs( 79) = 0.5020979469715381D-01
        xs( 80) = 0.5732992517201078D-01
        xs( 81) = 0.6598978586470665D-01
        xs( 82) = 0.7649061133159732D-01
        xs( 83) = 0.8904862024151211D-01
        xs( 84) = 0.1036851878773031D+00
        xs( 85) = 0.1201679679034874D+00
        xs( 86) = 0.1380677918362669D+00
        xs( 87) = 0.1568981761701319D+00
        xs( 88) = 0.1762383617701924D+00
        xs( 89) = 0.1957855582352446D+00
        xs( 90) = 0.2153510555347093D+00
        xs( 91) = 0.2348343227519457D+00
        xs( 92) = 0.2541969641471432D+00
        xs( 93) = 0.2734350460347244D+00
        xs( 94) = 0.2925508775305100D+00
        xs( 95) = 0.3113897487513835D+00
        ws(  1) = 0.2368407645606877D-05
        ws(  2) = 0.5515088022639714D-05
        ws(  3) = 0.8670991421456545D-05
        ws(  4) = 0.1183459998018434D-04
        ws(  5) = 0.1500848508111120D-04
        ws(  6) = 0.1819569546286702D-04
        ws(  7) = 0.2139957653880397D-04
        ws(  8) = 0.2462377565963423D-04
        ws(  9) = 0.2787226580192005D-04
        ws( 10) = 0.3114936841847215D-04
        ws( 11) = 0.3445977289228052D-04
        ws( 12) = 0.3780855303751458D-04
        ws( 13) = 0.4120118180398716D-04
        ws( 14) = 0.4464354549639547D-04
        ws( 15) = 0.4814195878813418D-04
        ws( 16) = 0.5170318170396841D-04
        ws( 17) = 0.5533443961605209D-04
        ws( 18) = 0.5904344717095631D-04
        ws( 19) = 0.6283843695787578D-04
        ws( 20) = 0.6672819364922545D-04
        ws( 21) = 0.7072209429909435D-04
        ws( 22) = 0.7483015547403528D-04
        ws( 23) = 0.7906308791375242D-04
        ws( 24) = 0.8343235947607957D-04
        ws( 25) = 0.8795026721025652D-04
        ws( 26) = 0.9263001952344410D-04
        ws( 27) = 0.9748582955973334D-04
        ws( 28) = 0.1025330210996381D-03
        ws( 29) = 0.1077881485137269D-03
        ws( 30) = 0.1132691325725472D-03
        ws( 31) = 0.1189954142316083D-03
        ws( 32) = 0.1249881288836449D-03
        ws( 33) = 0.1312703040123800D-03
        ws( 34) = 0.1378670837037749D-03
        ws( 35) = 0.1448059840911420D-03
        ws( 36) = 0.1521171845499241D-03
        ws( 37) = 0.1598338603413988D-03
        ws( 38) = 0.1679925634638484D-03
        ws( 39) = 0.1766336597485101D-03
        ws( 40) = 0.1858018317795501D-03
        ws( 41) = 0.1955466590909695D-03
        ws( 42) = 0.2059232893750512D-03
        ws( 43) = 0.2169932172252332D-03
        ws( 44) = 0.2288251903600082D-03
        ws( 45) = 0.2414962674947184D-03
        ws( 46) = 0.2550930572469291D-03
        ws( 47) = 0.2697131739526778D-03
        ws( 48) = 0.2854669543675458D-03
        ws( 49) = 0.3024794893884415D-03
        ws( 50) = 0.3208930377231296D-03
        ws( 51) = 0.3408699046465606D-03
        ws( 52) = 0.3625958896024458D-03
        ws( 53) = 0.3862844328019759D-03
        ws( 54) = 0.4121816249267656D-03
        ws( 55) = 0.4405722879967316D-03
        ws( 56) = 0.4717873926979226D-03
        ws( 57) = 0.5062131524809472D-03
        ws( 58) = 0.5443022337219452D-03
        ws( 59) = 0.5865876527672460D-03
        ws( 60) = 0.6337001067853152D-03
        ws( 61) = 0.6863897229377907D-03
        ws( 62) = 0.7455535337015238D-03
        ws( 63) = 0.8122704297404403D-03
        ws( 64) = 0.8878459561431881D-03
        ws( 65) = 0.9738701766202754D-03
        ws( 66) = 0.1072293042514518D-02
        ws( 67) = 0.1185523431210877D-02
        ws( 68) = 0.1316560503674750D-02
        ws( 69) = 0.1469169635098828D-02
        ws( 70) = 0.1648120425121112D-02
        ws( 71) = 0.1859511951749088D-02
        ws( 72) = 0.2111221448538403D-02
        ws( 73) = 0.2413527807159032D-02
        ws( 74) = 0.2779980071292269D-02
        ws( 75) = 0.3228596129410692D-02
        ws( 76) = 0.3783457653387907D-02
        ws( 77) = 0.4476614614722373D-02
        ws( 78) = 0.5349669315155888D-02
        ws( 79) = 0.6452994907057671D-02
        ws( 80) = 0.7837827387856759D-02
        ws( 81) = 0.9533584765742106D-02
        ws( 82) = 0.1150613552839571D-01
        ws( 83) = 0.1361463439190420D-01
        ws( 84) = 0.1561873188401022D-01
        ws( 85) = 0.1727267513831975D-01
        ws( 86) = 0.1844370777237696D-01
        ws( 87) = 0.1914612715383114D-01
        ws( 88) = 0.1948393604044273D-01
        ws( 89) = 0.1957947874923567D-01
        ws( 90) = 0.1953519417857675D-01
        ws( 91) = 0.1942535387936707D-01
        ws( 92) = 0.1930217083720870D-01
        ws( 93) = 0.1922471633678575D-01
        ws( 94) = 0.1898054349066291D-01
        ws( 95) = 0.1879731856626709D-01
        endif
        if( idomain .eq.   92 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.1000000000000000D+00
        rk1r = 0.5026548245743669D+02
        rk1i = 0.2000000000000000D+00
        iquadtype =  2
        n = 101
        err = 0.3946561042926922D-13
        xs(  1) = 0.6217085220839170D-06
        xs(  2) = 0.3371563302058534D-05
        xs(  3) = 0.8575104846568083D-05
        xs(  4) = 0.1641598276966732D-04
        xs(  5) = 0.2698742805904822D-04
        xs(  6) = 0.4033520857402123D-04
        xs(  7) = 0.5648628976482311D-04
        xs(  8) = 0.7546131626537194D-04
        xs(  9) = 0.9727977263512886D-04
        xs( 10) = 0.1219622803776548D-03
        xs( 11) = 0.1495317665498873D-03
        xs( 12) = 0.1800141661100668D-03
        xs( 13) = 0.2134389213655581D-03
        xs( 14) = 0.2498393895484969D-03
        xs( 15) = 0.2892532084351095D-03
        xs( 16) = 0.3317226441863881D-03
        xs( 17) = 0.3772949343188037D-03
        xs( 18) = 0.4260226336681756D-03
        xs( 19) = 0.4779639689593955D-03
        xs( 20) = 0.5331832066452651D-03
        xs( 21) = 0.5917510383528218D-03
        xs( 22) = 0.6537449882614459D-03
        xs( 23) = 0.7192498468876588D-03
        xs( 24) = 0.7883581360009463D-03
        xs( 25) = 0.8611706097166973D-03
        xs( 26) = 0.9377967972000318D-03
        xs( 27) = 0.1018355592871460D-02
        xs( 28) = 0.1102975900541326D-02
        xs( 29) = 0.1191797338527639D-02
        xs( 30) = 0.1284971013546384D-02
        xs( 31) = 0.1382660372022323D-02
        xs( 32) = 0.1485042138472304D-02
        xs( 33) = 0.1592307351785377D-02
        xs( 34) = 0.1704662511592392D-02
        xs( 35) = 0.1822330848514746D-02
        xs( 36) = 0.1945553733945610D-02
        xs( 37) = 0.2074592247193649D-02
        xs( 38) = 0.2209728920363585D-02
        xs( 39) = 0.2351269684325954D-02
        xs( 40) = 0.2499546042619563D-02
        xs( 41) = 0.2654917504230809D-02
        xs( 42) = 0.2817774311020354D-02
        xs( 43) = 0.2988540501261810D-02
        xs( 44) = 0.3167677357491897D-02
        xs( 45) = 0.3355687294858314D-02
        xs( 46) = 0.3553118255650604D-02
        xs( 47) = 0.3760568687030556D-02
        xs( 48) = 0.3978693192537502D-02
        xs( 49) = 0.4208208964222407D-02
        xs( 50) = 0.4449903121873971D-02
        xs( 51) = 0.4704641109506328D-02
        xs( 52) = 0.4973376328042719D-02
        xs( 53) = 0.5257161218166594D-02
        xs( 54) = 0.5557160050158926D-02
        xs( 55) = 0.5874663730156560D-02
        xs( 56) = 0.6211106997158302D-02
        xs( 57) = 0.6568088465497226D-02
        xs( 58) = 0.6947394067559518D-02
        xs( 59) = 0.7351024576684905D-02
        xs( 60) = 0.7781228047523959D-02
        xs( 61) = 0.8240538209989974D-02
        xs( 62) = 0.8731820105691511D-02
        xs( 63) = 0.9258324578853236D-02
        xs( 64) = 0.9823753649367568D-02
        xs( 65) = 0.1043233933371606D-01
        xs( 66) = 0.1108893918088037D-01
        xs( 67) = 0.1179915271113610D-01
        xs( 68) = 0.1256946416353419D-01
        xs( 69) = 0.1340741858161593D-01
        xs( 70) = 0.1432184044974936D-01
        xs( 71) = 0.1532310705250251D-01
        xs( 72) = 0.1642349277964723D-01
        xs( 73) = 0.1763760619215590D-01
        xs( 74) = 0.1898294945772604D-01
        xs( 75) = 0.2048064071600733D-01
        xs( 76) = 0.2215635543140160D-01
        xs( 77) = 0.2404156480425739D-01
        xs( 78) = 0.2617518048194130D-01
        xs( 79) = 0.2860575819747211D-01
        xs( 80) = 0.3139447045581132D-01
        xs( 81) = 0.3461912486284780D-01
        xs( 82) = 0.3837954982313243D-01
        xs( 83) = 0.4280458870041921D-01
        xs( 84) = 0.4806045250982863D-01
        xs( 85) = 0.5435865859734033D-01
        xs( 86) = 0.6195828483810834D-01
        xs( 87) = 0.7115154426310534D-01
        xs( 88) = 0.8221743632418924D-01
        xs( 89) = 0.9533699808173840D-01
        xs( 90) = 0.1104974801506852D+00
        xs( 91) = 0.1274514775839204D+00
        xs( 92) = 0.1457784110942931D+00
        xs( 93) = 0.1650118656025643D+00
        xs( 94) = 0.1847484950706325D+00
        xs( 95) = 0.2046946293164199D+00
        xs( 96) = 0.2246633065196895D+00
        xs( 97) = 0.2445507696414717D+00
        xs( 98) = 0.2643101800953677D+00
        xs( 99) = 0.2839246680751161D+00
        xs(100) = 0.3033821292737909D+00
        xs(101) = 0.3219443496176016D+00
        ws(  1) = 0.1608362818974090D-05
        ws(  2) = 0.3937061851290744D-05
        ws(  3) = 0.6500515937698513D-05
        ws(  4) = 0.9195907081974617D-05
        ws(  5) = 0.1195415887800809D-04
        ws(  6) = 0.1474571090736279D-04
        ws(  7) = 0.1755981560972235D-04
        ws(  8) = 0.2039345006009837D-04
        ws(  9) = 0.2324688147187209D-04
        ws( 10) = 0.2612194402946261D-04
        ws( 11) = 0.2902134271788178D-04
        ws( 12) = 0.3194835676763690D-04
        ws( 13) = 0.3490670724095812D-04
        ws( 14) = 0.3790049631883717D-04
        ws( 15) = 0.4093418011610663D-04
        ws( 16) = 0.4401255855269627D-04
        ws( 17) = 0.4714077495282178D-04
        ws( 18) = 0.5032432207964047D-04
        ws( 19) = 0.5356905316439610D-04
        ws( 20) = 0.5688119736616568D-04
        ws( 21) = 0.6026737952698516D-04
        ws( 22) = 0.6373464430640758D-04
        ws( 23) = 0.6729048490229539D-04
        ws( 24) = 0.7094287664577565D-04
        ws( 25) = 0.7470031582508318D-04
        ws( 26) = 0.7857186415951847D-04
        ws( 27) = 0.8256719941826240D-04
        ws( 28) = 0.8669667276349809D-04
        ws( 29) = 0.9097137349619322D-04
        ws( 30) = 0.9540320199806324D-04
        ws( 31) = 0.1000049517975601D-03
        ws( 32) = 0.1047904018438119D-03
        ws( 33) = 0.1097744202538087D-03
        ws( 34) = 0.1149730810097406D-03
        ws( 35) = 0.1204037953297739D-03
        ws( 36) = 0.1260854597241206D-03
        ws( 37) = 0.1320386230869208D-03
        ws( 38) = 0.1382856755730581D-03
        ws( 39) = 0.1448510624799852D-03
        ws( 40) = 0.1517615269128357D-03
        ws( 41) = 0.1590463856750562D-03
        ws( 42) = 0.1667378436186474D-03
        ws( 43) = 0.1748713526369256D-03
        ws( 44) = 0.1834860226215126D-03
        ws( 45) = 0.1926250930786555D-03
        ws( 46) = 0.2023364757609043D-03
        ws( 47) = 0.2126733806861455D-03
        ws( 48) = 0.2236950403713630D-03
        ws( 49) = 0.2354675501120023D-03
        ws( 50) = 0.2480648458218067D-03
        ws( 51) = 0.2615698454902295D-03
        ws( 52) = 0.2760757859311017D-03
        ws( 53) = 0.2916877934776733D-03
        ws( 54) = 0.3085247359879780D-03
        ws( 55) = 0.3267214144436180D-03
        ws( 56) = 0.3464311661763445D-03
        ws( 57) = 0.3678289691614419D-03
        ws( 58) = 0.3911151589597158D-03
        ws( 59) = 0.4165198982081986D-03
        ws( 60) = 0.4443085749835433D-03
        ws( 61) = 0.4747883534811171D-03
        ws( 62) = 0.5083161617870640D-03
        ws( 63) = 0.5453084818630740D-03
        ws( 64) = 0.5862534128361222D-03
        ws( 65) = 0.6317256194242563D-03
        ws( 66) = 0.6824049656786702D-03
        ws( 67) = 0.7390998882118446D-03
        ws( 68) = 0.8027769084613952D-03
        ws( 69) = 0.8745981571346862D-03
        ws( 70) = 0.9559694392327871D-03
        ws( 71) = 0.1048602282742573D-02
        ws( 72) = 0.1154594702593654D-02
        ws( 73) = 0.1276537241890619D-02
        ws( 74) = 0.1417653472270472D-02
        ws( 75) = 0.1581987903386823D-02
        ws( 76) = 0.1774659673045232D-02
        ws( 77) = 0.2002208115205740D-02
        ws( 78) = 0.2273066980072406D-02
        ws( 79) = 0.2598217700346544D-02
        ws( 80) = 0.2992085700963135D-02
        ws( 81) = 0.3473744391229190D-02
        ws( 82) = 0.4068436789613914D-02
        ws( 83) = 0.4809199072193002D-02
        ws( 84) = 0.5737717773970150D-02
        ws( 85) = 0.6902073542171327D-02
        ws( 86) = 0.8346626048945651D-02
        ws( 87) = 0.1008786286616275D-01
        ws( 88) = 0.1207587474682996D-01
        ws( 89) = 0.1416195754156467D-01
        ws( 90) = 0.1611664088480797D-01
        ws( 91) = 0.1771888496734752D-01
        ws( 92) = 0.1885532470364616D-01
        ws( 93) = 0.1954363648646914D-01
        ws( 94) = 0.1988080533765915D-01
        ws( 95) = 0.1998074059720323D-01
        ws( 96) = 0.1993976116984671D-01
        ws( 97) = 0.1982746483724882D-01
        ws( 98) = 0.1969112297287912D-01
        ws( 99) = 0.1951831131479090D-01
        ws(100) = 0.1948972604637121D-01
        ws(101) = 0.1689753925055496D-01
        endif
        if( idomain .eq.   93 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.2000000000000000D+00
        rk1r = 0.2000000000000000D-01
        rk1i = 0.4000000000000000D+00
        iquadtype =  2
        n =  43
        err = 0.6179705727333060D-13
        xs(  1) = 0.1775467882659724D-03
        xs(  2) = 0.9366435499439642D-03
        xs(  3) = 0.2304699589244959D-02
        xs(  4) = 0.4279025351491030D-02
        xs(  5) = 0.6846227959526249D-02
        xs(  6) = 0.9981783609667002D-02
        xs(  7) = 0.1365307177778447D-01
        xs(  8) = 0.1782344971045300D-01
        xs(  9) = 0.2245560319760722D-01
        xs( 10) = 0.2751365742019742D-01
        xs( 11) = 0.3296422892763840D-01
        xs( 12) = 0.3877678388159233D-01
        xs( 13) = 0.4492361683541513D-01
        xs( 14) = 0.5137965852202898D-01
        xs( 15) = 0.5812223055392127D-01
        xs( 16) = 0.6513080427843371D-01
        xs( 17) = 0.7238678583780848D-01
        xs( 18) = 0.7987333161266291D-01
        xs( 19) = 0.8757519070168163D-01
        xs( 20) = 0.9547856907499756D-01
        xs( 21) = 0.1035710104644350D+00
        xs( 22) = 0.1118412904126961D+00
        xs( 23) = 0.1202793210450324D+00
        xs( 24) = 0.1288760655566591D+00
        xs( 25) = 0.1376234611771121D+00
        xs( 26) = 0.1465143522210913D+00
        xs( 27) = 0.1555424286728338D+00
        xs( 28) = 0.1647021843683493D+00
        xs( 29) = 0.1739888604490983D+00
        xs( 30) = 0.1833984588463345D+00
        xs( 31) = 0.1929276655920531D+00
        xs( 32) = 0.2025738494336737D+00
        xs( 33) = 0.2123353790892922D+00
        xs( 34) = 0.2222099541514327D+00
        xs( 35) = 0.2322004046078076D+00
        xs( 36) = 0.2423050548551254D+00
        xs( 37) = 0.2525243502189537D+00
        xs( 38) = 0.2628953497321709D+00
        xs( 39) = 0.2732445487617375D+00
        xs( 40) = 0.2838001460027393D+00
        xs( 41) = 0.2949940143397291D+00
        xs( 42) = 0.3050597883490866D+00
        xs( 43) = 0.3177794709606363D+00
        ws(  1) = 0.4557999051445856D-03
        ws(  2) = 0.1063295584743387D-02
        ws(  3) = 0.1672442143524244D-02
        ws(  4) = 0.2273982904618860D-02
        ws(  5) = 0.2856277265329138D-02
        ws(  6) = 0.3409325122672910D-02
        ws(  7) = 0.3927087309338112D-02
        ws(  8) = 0.4407414982083923D-02
        ws(  9) = 0.4850896274253577D-02
        ws( 10) = 0.5259643053570830D-02
        ws( 11) = 0.5636411828675619D-02
        ws( 12) = 0.5984083976099123D-02
        ws( 13) = 0.6305407934737168D-02
        ws( 14) = 0.6602899772085870D-02
        ws( 15) = 0.6878826437913694D-02
        ws( 16) = 0.7135225100827886D-02
        ws( 17) = 0.7373933359740004D-02
        ws( 18) = 0.7596618624651918D-02
        ws( 19) = 0.7804802525083699D-02
        ws( 20) = 0.7999879936183075D-02
        ws( 21) = 0.8183133693457939D-02
        ws( 22) = 0.8355746312825357D-02
        ws( 23) = 0.8518810102115732D-02
        ws( 24) = 0.8673336104064957D-02
        ws( 25) = 0.8820263526114301D-02
        ws( 26) = 0.8960467911541134D-02
        ws( 27) = 0.9094770181797851D-02
        ws( 28) = 0.9223949935366897D-02
        ws( 29) = 0.9348725034723625D-02
        ws( 30) = 0.9469891632829677D-02
        ws( 31) = 0.9588020739763631D-02
        ws( 32) = 0.9704338605962906D-02
        ws( 33) = 0.9818974759411651D-02
        ws( 34) = 0.9931468807036983D-02
        ws( 35) = 0.1004578552595933D-01
        ws( 36) = 0.1014358183767506D-01
        ws( 37) = 0.1029568291666919D-01
        ws( 38) = 0.1051033022506947D-01
        ws( 39) = 0.1053907949348625D-01
        ws( 40) = 0.1070547903044392D-01
        ws( 41) = 0.8471077783942836D-02
        ws( 42) = 0.9582752919550111D-02
        ws( 43) = 0.3143816280912967D-01
        endif
        if( idomain .eq.   94 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.2000000000000000D+00
        rk1r = 0.4000000000000000D-01
        rk1i = 0.4000000000000000D+00
        iquadtype =  2
        n =  41
        err = 0.9472842672534321D-13
        xs(  1) = 0.1817198709789233D-03
        xs(  2) = 0.9593113332471238D-03
        xs(  3) = 0.2362816824048199D-02
        xs(  4) = 0.4391466344512844D-02
        xs(  5) = 0.7032255827264221D-02
        xs(  6) = 0.1025926763025932D-01
        xs(  7) = 0.1403730695491511D-01
        xs(  8) = 0.1832675491399128D-01
        xs(  9) = 0.2308746811550049D-01
        xs( 10) = 0.2828114464337343D-01
        xs( 11) = 0.3387242644202603D-01
        xs( 12) = 0.3982920638132770D-01
        xs( 13) = 0.4612252488260523D-01
        xs( 14) = 0.5272630134582760D-01
        xs( 15) = 0.5961703178535824D-01
        xs( 16) = 0.6677351048497994D-01
        xs( 17) = 0.7417659278286205D-01
        xs( 18) = 0.8180899723348491D-01
        xs( 19) = 0.8965513906147780D-01
        xs( 20) = 0.9770098661458675D-01
        xs( 21) = 0.1059339345411081D+00
        xs( 22) = 0.1143426898231323D+00
        xs( 23) = 0.1229171685718864D+00
        xs( 24) = 0.1316484029115041D+00
        xs( 25) = 0.1405284579838195D+00
        xs( 26) = 0.1495503593547996D+00
        xs( 27) = 0.1587080312220195D+00
        xs( 28) = 0.1679962489387069D+00
        xs( 29) = 0.1774105910560004D+00
        xs( 30) = 0.1869474139509182D+00
        xs( 31) = 0.1966039207558176D+00
        xs( 32) = 0.2063781474129954D+00
        xs( 33) = 0.2162691758799051D+00
        xs( 34) = 0.2262767614290847D+00
        xs( 35) = 0.2363995444669808D+00
        xs( 36) = 0.2466371140419032D+00
        xs( 37) = 0.2569858836034828D+00
        xs( 38) = 0.2674781700666902D+00
        xs( 39) = 0.2782975842038280D+00
        xs( 40) = 0.2891908333347294D+00
        xs( 41) = 0.2998659849979504D+00
        ws(  1) = 0.4665933460451851D-03
        ws(  2) = 0.1089873810245869D-02
        ws(  3) = 0.1717107735898066D-02
        ws(  4) = 0.2338032776522725D-02
        ws(  5) = 0.2939156878882560D-02
        ws(  6) = 0.3508914843404838D-02
        ws(  7) = 0.4040494677598403D-02
        ws(  8) = 0.4531672150212188D-02
        ws(  9) = 0.4983353438170553D-02
        ws( 10) = 0.5398102418707707D-02
        ws( 11) = 0.5779112282557696D-02
        ws( 12) = 0.6129625771524438D-02
        ws( 13) = 0.6452669628233480D-02
        ws( 14) = 0.6750970638663310D-02
        ws( 15) = 0.7026959898954687D-02
        ws( 16) = 0.7282809998969826D-02
        ws( 17) = 0.7520477111125087D-02
        ws( 18) = 0.7741736705984829D-02
        ws( 19) = 0.7948210447733891D-02
        ws( 20) = 0.8141385657270255D-02
        ws( 21) = 0.8322629727592861D-02
        ws( 22) = 0.8493201732655532D-02
        ws( 23) = 0.8654262610091950D-02
        ws( 24) = 0.8806885097126845D-02
        ws( 25) = 0.8952063586358829D-02
        ws( 26) = 0.9090724769706370D-02
        ws( 27) = 0.9223743282021305D-02
        ws( 28) = 0.9351961127678127D-02
        ws( 29) = 0.9476170602288479D-02
        ws( 30) = 0.9597130685920777D-02
        ws( 31) = 0.9715450677498834D-02
        ws( 32) = 0.9831579528039957D-02
        ws( 33) = 0.9947503662162953D-02
        ws( 34) = 0.1006876681178159D-01
        ws( 35) = 0.1020601277678144D-01
        ws( 36) = 0.1034225229623855D-01
        ws( 37) = 0.1032474527848989D-01
        ws( 38) = 0.1002679939276619D-01
        ws( 39) = 0.1020330946349558D-01
        ws( 40) = 0.1348781411071747D-01
        ws( 41) = 0.2045497671163703D-01
        endif
        if( idomain .eq.   95 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.2000000000000000D+00
        rk1r = 0.1000000000000000D+00
        rk1i = 0.4000000000000000D+00
        iquadtype =  2
        n =  41
        err = 0.8680091177381778D-13
        xs(  1) = 0.1710833963369538D-03
        xs(  2) = 0.9058082537046315D-03
        xs(  3) = 0.2241706683286883D-02
        xs(  4) = 0.4191063648753940D-02
        xs(  5) = 0.6753858145957512D-02
        xs(  6) = 0.9913922877335094D-02
        xs(  7) = 0.1364161238091046D-01
        xs(  8) = 0.1789932561760662D-01
        xs(  9) = 0.2264660324298987D-01
        xs( 10) = 0.2784353769035384D-01
        xs( 11) = 0.3345258514785587D-01
        xs( 12) = 0.3943929930107134D-01
        xs( 13) = 0.4577246675883439D-01
        xs( 14) = 0.5242396250006803D-01
        xs( 15) = 0.5936850225466961D-01
        xs( 16) = 0.6658337686261623D-01
        xs( 17) = 0.7404820280836683D-01
        xs( 18) = 0.8174469854255713D-01
        xs( 19) = 0.8965648617480786D-01
        xs( 20) = 0.9776891520778706D-01
        xs( 21) = 0.1060689049747769D+00
        xs( 22) = 0.1145448033780730D+00
        xs( 23) = 0.1231862603564526D+00
        xs( 24) = 0.1319841152770489D+00
        xs( 25) = 0.1409302979480279D+00
        xs( 26) = 0.1500177429258090D+00
        xs( 27) = 0.1592403170283834D+00
        xs( 28) = 0.1685927616508540D+00
        xs( 29) = 0.1780706419591413D+00
        xs( 30) = 0.1876703057309649D+00
        xs( 31) = 0.1973889307175910D+00
        xs( 32) = 0.2072245943096591D+00
        xs( 33) = 0.2171763843963533D+00
        xs( 34) = 0.2272437602338765D+00
        xs( 35) = 0.2374246221619838D+00
        xs( 36) = 0.2477172840740488D+00
        xs( 37) = 0.2581249217153116D+00
        xs( 38) = 0.2687025493205025D+00
        xs( 39) = 0.2795959593529960D+00
        xs( 40) = 0.2903542382116062D+00
        xs( 41) = 0.3009395106975487D+00
        ws(  1) = 0.4395943651441299D-03
        ws(  2) = 0.1032669720596689D-02
        ws(  3) = 0.1641350286030323D-02
        ws(  4) = 0.2257424642541010D-02
        ws(  5) = 0.2865414228333112D-02
        ws(  6) = 0.3449674017138653D-02
        ws(  7) = 0.3999350623984920D-02
        ws(  8) = 0.4509276402522263D-02
        ws(  9) = 0.4978598794728725D-02
        ws( 10) = 0.5409001743415352D-02
        ws( 11) = 0.5803350604693972D-02
        ws( 12) = 0.6164878278544760D-02
        ws( 13) = 0.6496773446494011D-02
        ws( 14) = 0.6802008489658271D-02
        ws( 15) = 0.7083290334664749D-02
        ws( 16) = 0.7343065352941179D-02
        ws( 17) = 0.7583542909815505D-02
        ws( 18) = 0.7806721840618665D-02
        ws( 19) = 0.8014414295752999D-02
        ws( 20) = 0.8208266006438559D-02
        ws( 21) = 0.8389773603383235D-02
        ws( 22) = 0.8560300065955291D-02
        ws( 23) = 0.8721088863189301D-02
        ws( 24) = 0.8873277631706514D-02
        ws( 25) = 0.9017911215738568D-02
        ws( 26) = 0.9155955144606990D-02
        ws( 27) = 0.9288312222870108D-02
        ws( 28) = 0.9415844362287484D-02
        ws( 29) = 0.9539363396503893D-02
        ws( 30) = 0.9659608972475678D-02
        ws( 31) = 0.9777185327581350D-02
        ws( 32) = 0.9892636328007420D-02
        ws( 33) = 0.1000801008766128D-01
        ws( 34) = 0.1012913699532666D-01
        ws( 35) = 0.1026438248062771D-01
        ws( 36) = 0.1038941251368393D-01
        ws( 37) = 0.1036209393118408D-01
        ws( 38) = 0.1011472023067624D-01
        ws( 39) = 0.1042037565964550D-01
        ws( 40) = 0.1346915483166917D-01
        ws( 41) = 0.1965071780863220D-01
        endif
        if( idomain .eq.   96 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.2000000000000000D+00
        rk1r = 0.2000000000000000D+00
        rk1i = 0.4000000000000000D+00
        iquadtype =  2
        n =  41
        err = 0.8575496197266157D-13
        xs(  1) = 0.1615406177865519D-03
        xs(  2) = 0.8568666347007699D-03
        xs(  3) = 0.2127285692755372D-02
        xs(  4) = 0.3993594268263015D-02
        xs(  5) = 0.6465646669865818D-02
        xs(  6) = 0.9535955830904497D-02
        xs(  7) = 0.1318082754920621D-01
        xs(  8) = 0.1736580767166147D-01
        xs(  9) = 0.2205152865844160D-01
        xs( 10) = 0.2719797252549692D-01
        xs( 11) = 0.3276690489531060D-01
        xs( 12) = 0.3872296824252986D-01
        xs( 13) = 0.4503399366413689D-01
        xs( 14) = 0.5167093234674355D-01
        xs( 15) = 0.5860763810302334D-01
        xs( 16) = 0.6582061394472451D-01
        xs( 17) = 0.7328876830483182D-01
        xs( 18) = 0.8099319400664390D-01
        xs( 19) = 0.8891697024098723D-01
        xs( 20) = 0.9704498441726608D-01
        xs( 21) = 0.1053637709797634D+00
        xs( 22) = 0.1138613654425333D+00
        xs( 23) = 0.1225271728115423D+00
        xs( 24) = 0.1313518502243714D+00
        xs( 25) = 0.1403272040708675D+00
        xs( 26) = 0.1494461015471634D+00
        xs( 27) = 0.1587023977204790D+00
        xs( 28) = 0.1680908777630267D+00
        xs( 29) = 0.1776072118188878D+00
        xs( 30) = 0.1872479240224698D+00
        xs( 31) = 0.1970104219398158D+00
        xs( 32) = 0.2068931490078436D+00
        xs( 33) = 0.2168956627131668D+00
        xs( 34) = 0.2270180628978742D+00
        xs( 35) = 0.2372597167837269D+00
        xs( 36) = 0.2476179378287089D+00
        xs( 37) = 0.2580976539685851D+00
        xs( 38) = 0.2687704928892039D+00
        xs( 39) = 0.2797707668763202D+00
        xs( 40) = 0.2906960427728171D+00
        xs( 41) = 0.3013560027870753D+00
        ws(  1) = 0.4152569456625726D-03
        ws(  2) = 0.9790526822322397D-03
        ws(  3) = 0.1565464889764676D-02
        ws(  4) = 0.2168906289946745D-02
        ws(  5) = 0.2773921559832815D-02
        ws(  6) = 0.3362646641537050D-02
        ws(  7) = 0.3921252542071680D-02
        ws(  8) = 0.4442075287846296D-02
        ws(  9) = 0.4922657871854706D-02
        ws( 10) = 0.5363840648547797D-02
        ws( 11) = 0.5768126922990174D-02
        ws( 12) = 0.6138639956494561D-02
        ws( 13) = 0.6478573290187595D-02
        ws( 14) = 0.6790950695963433D-02
        ws( 15) = 0.7078548738578063D-02
        ws( 16) = 0.7343891364617866D-02
        ws( 17) = 0.7589269451123645D-02
        ws( 18) = 0.7816764780379576D-02
        ws( 19) = 0.8028271606603262D-02
        ws( 20) = 0.8225514915105396D-02
        ws( 21) = 0.8410066308272426D-02
        ws( 22) = 0.8583358736508090D-02
        ws( 23) = 0.8746700649079288D-02
        ws( 24) = 0.8901290289371450D-02
        ws( 25) = 0.9048229775272918D-02
        ws( 26) = 0.9188539964341064D-02
        ws( 27) = 0.9323178954370912D-02
        ws( 28) = 0.9453063299699613D-02
        ws( 29) = 0.9579076767397285D-02
        ws( 30) = 0.9702031449805453D-02
        ws( 31) = 0.9822603228724833D-02
        ws( 32) = 0.9941491001718849D-02
        ws( 33) = 0.1006066883407588D-01
        ws( 34) = 0.1018663658949360D-01
        ws( 35) = 0.1032755770298110D-01
        ws( 36) = 0.1045438540107588D-01
        ws( 37) = 0.1044269577288528D-01
        ws( 38) = 0.1023818644833581D-01
        ws( 39) = 0.1059238781954920D-01
        ws( 40) = 0.1376432918566548D-01
        ws( 41) = 0.1914574585450525D-01
        endif
        if( idomain .eq.   97 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.2000000000000000D+00
        rk1r = 0.4000000000000000D+00
        rk1i = 0.4000000000000000D+00
        iquadtype =  2
        n =  42
        err = 0.3508394629617001D-13
        xs(  1) = 0.1351747396940827D-03
        xs(  2) = 0.7193729851940220D-03
        xs(  3) = 0.1796689958831367D-02
        xs(  4) = 0.3401952397958011D-02
        xs(  5) = 0.5566142875747911D-02
        xs(  6) = 0.8305533864769891D-02
        xs(  7) = 0.1161732855629982D-01
        xs(  8) = 0.1548192580115825D-01
        xs(  9) = 0.1986854535692679D-01
        xs( 10) = 0.2474092098649668D-01
        xs( 11) = 0.3006146032894114D-01
        xs( 12) = 0.3579371000033872D-01
        xs( 13) = 0.4190356998305471D-01
        xs( 14) = 0.4835975552488622D-01
        xs( 15) = 0.5513386564809191D-01
        xs( 16) = 0.6220027009834025D-01
        xs( 17) = 0.6953592465625275D-01
        xs( 18) = 0.7712016641012119D-01
        xs( 19) = 0.8493451106932749D-01
        xs( 20) = 0.9296246088974126D-01
        xs( 21) = 0.1011893262067240D+00
        xs( 22) = 0.1096020615420935D+00
        xs( 23) = 0.1181891166500565D+00
        xs( 24) = 0.1269403026913070D+00
        xs( 25) = 0.1358466738346638D+00
        xs( 26) = 0.1449004244283859D+00
        xs( 27) = 0.1540948021508857D+00
        xs( 28) = 0.1634240376606224D+00
        xs( 29) = 0.1728832905907566D+00
        xs( 30) = 0.1824686121875641D+00
        xs( 31) = 0.1921769316805965D+00
        xs( 32) = 0.2020061067708892D+00
        xs( 33) = 0.2119550415029572D+00
        xs( 34) = 0.2220236425717192D+00
        xs( 35) = 0.2322123888823219D+00
        xs( 36) = 0.2425214914648449D+00
        xs( 37) = 0.2529515184111212D+00
        xs( 38) = 0.2635184929192314D+00
        xs( 39) = 0.2742938041346466D+00
        xs( 40) = 0.2853344624246517D+00
        xs( 41) = 0.2963228641266923D+00
        xs( 42) = 0.3071743785657425D+00
        ws(  1) = 0.3477447090167710D-03
        ws(  2) = 0.8252907274074210D-03
        ws(  3) = 0.1335368165630362D-02
        ws(  4) = 0.1880515351337211D-02
        ws(  5) = 0.2450649658486847D-02
        ws(  6) = 0.3027619025064782D-02
        ws(  7) = 0.3592601240650215D-02
        ws(  8) = 0.4131364751035229D-02
        ws(  9) = 0.4635760661323458D-02
        ws( 10) = 0.5102685390851049D-02
        ws( 11) = 0.5532298737318029D-02
        ws( 12) = 0.5926510419726798D-02
        ws( 13) = 0.6287994761516610D-02
        ws( 14) = 0.6619644953906730D-02
        ws( 15) = 0.6924306773285418D-02
        ws( 16) = 0.7204664882679868D-02
        ws( 17) = 0.7463203810149024D-02
        ws( 18) = 0.7702202189863651D-02
        ws( 19) = 0.7923740480992141D-02
        ws( 20) = 0.8129713614048828D-02
        ws( 21) = 0.8321845252760845D-02
        ws( 22) = 0.8501702606033527D-02
        ws( 23) = 0.8670711462950922D-02
        ws( 24) = 0.8830171431491517D-02
        ws( 25) = 0.8981271396348418D-02
        ws( 26) = 0.9125105096352608D-02
        ws( 27) = 0.9262688030750508D-02
        ws( 28) = 0.9394976058092435D-02
        ws( 29) = 0.9522884184323722D-02
        ws( 30) = 0.9647290763587850D-02
        ws( 31) = 0.9769015784129018D-02
        ws( 32) = 0.9888844968888373D-02
        ws( 33) = 0.1000784988297949D-01
        ws( 34) = 0.1012857758773880D-01
        ws( 35) = 0.1025619974510425D-01
        ws( 36) = 0.1039020189183357D-01
        ws( 37) = 0.1049494366648288D-01
        ws( 38) = 0.1049653086888876D-01
        ws( 39) = 0.1047275523827428D-01
        ws( 40) = 0.1116991626007407D-01
        ws( 41) = 0.1403981684176901D-01
        ws( 42) = 0.1663123402611087D-01
        endif
        if( idomain .eq.   98 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.2000000000000000D+00
        rk1r = 0.1000000000000000D+01
        rk1i = 0.4000000000000000D+00
        iquadtype =  2
        n =  42
        err = 0.8371973359657415D-13
        xs(  1) = 0.9758545789659557D-04
        xs(  2) = 0.5212587664357110D-03
        xs(  3) = 0.1311292651917922D-02
        xs(  4) = 0.2510775426168398D-02
        xs(  5) = 0.4170693398077498D-02
        xs(  6) = 0.6338819184975731D-02
        xs(  7) = 0.9049274182028480D-02
        xs(  8) = 0.1231670628917358D-01
        xs(  9) = 0.1613630167441961D-01
        xs( 10) = 0.2048790438878540D-01
        xs( 11) = 0.2534151878529579D-01
        xs( 12) = 0.3066221884562795D-01
        xs( 13) = 0.3641368978216318D-01
        xs( 14) = 0.4256043854277408D-01
        xs( 15) = 0.4906901504044755D-01
        xs( 16) = 0.5590859406514291D-01
        xs( 17) = 0.6305117688497827D-01
        xs( 18) = 0.7047157888830605D-01
        xs( 19) = 0.7814730293344382D-01
        xs( 20) = 0.8605835640715509D-01
        xs( 21) = 0.9418704562187939D-01
        xs( 22) = 0.1025177671912282D+00
        xs( 23) = 0.1110368079467651D+00
        xs( 24) = 0.1197321600297921D+00
        xs( 25) = 0.1285933550155040D+00
        xs( 26) = 0.1376113187948478D+00
        xs( 27) = 0.1467782484894277D+00
        xs( 28) = 0.1560875120978203D+00
        xs( 29) = 0.1655335700035537D+00
        xs( 30) = 0.1751119200150379D+00
        xs( 31) = 0.1848190583887728D+00
        xs( 32) = 0.1946525022853815D+00
        xs( 33) = 0.2046109253553973D+00
        xs( 34) = 0.2146942258877077D+00
        xs( 35) = 0.2249036190722475D+00
        xs( 36) = 0.2352407167101457D+00
        xs( 37) = 0.2457033728372166D+00
        xs( 38) = 0.2562977713232407D+00
        xs( 39) = 0.2670957144096039D+00
        xs( 40) = 0.2781901344995022D+00
        xs( 41) = 0.2893044417893279D+00
        xs( 42) = 0.3004226674554108D+00
        ws(  1) = 0.2512540485852339D-03
        ws(  2) = 0.6007980671689270D-03
        ws(  3) = 0.9865816362446941D-03
        ws(  4) = 0.1421077717782354D-02
        ws(  5) = 0.1906904989233807D-02
        ws(  6) = 0.2435133464321823D-02
        ws(  7) = 0.2988212526839695D-02
        ws(  8) = 0.3545773470370611D-02
        ws(  9) = 0.4089961440497792D-02
        ws( 10) = 0.4608161263176053D-02
        ws( 11) = 0.5093187808510638D-02
        ws( 12) = 0.5542123932554809D-02
        ws( 13) = 0.5954882941875779D-02
        ws( 14) = 0.6333030478762824D-02
        ws( 15) = 0.6678982005628352D-02
        ws( 16) = 0.6995510021486291D-02
        ws( 17) = 0.7285460425017803D-02
        ws( 18) = 0.7551597183152287D-02
        ws( 19) = 0.7796522276384229D-02
        ws( 20) = 0.8022639227801540D-02
        ws( 21) = 0.8232141986492395D-02
        ws( 22) = 0.8427018707804665D-02
        ws( 23) = 0.8609064247909148D-02
        ws( 24) = 0.8779897625394750D-02
        ws( 25) = 0.8940982218378073D-02
        ws( 26) = 0.9093646738039692D-02
        ws( 27) = 0.9239107806529921D-02
        ws( 28) = 0.9378492894703277D-02
        ws( 29) = 0.9512869607158483D-02
        ws( 30) = 0.9643273240738756D-02
        ws( 31) = 0.9770692862124859D-02
        ws( 32) = 0.9896024610255421D-02
        ws( 33) = 0.1002001309781178D-01
        ws( 34) = 0.1014423233186100D-01
        ws( 35) = 0.1027492158367288D-01
        ws( 36) = 0.1041998983922858D-01
        ws( 37) = 0.1055808502820831D-01
        ws( 38) = 0.1060635257193984D-01
        ws( 39) = 0.1052602727072127D-01
        ws( 40) = 0.1083058172264520D-01
        ws( 41) = 0.1336860264009815D-01
        ws( 42) = 0.1767243604678157D-01
        endif
        if( idomain .eq.   99 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.2000000000000000D+00
        rk1r = 0.1570796326794897D+01
        rk1i = 0.4000000000000000D+00
        iquadtype =  2
        n =  42
        err = 0.3862206895623595D-13
        xs(  1) = 0.7691663236079552D-04
        xs(  2) = 0.4110660679554729D-03
        xs(  3) = 0.1035668224018775D-02
        xs(  4) = 0.1989774445723927D-02
        xs(  5) = 0.3325432101291266D-02
        xs(  6) = 0.5100687211665915D-02
        xs(  7) = 0.7369299037526149D-02
        xs(  8) = 0.1017045184141602D-01
        xs(  9) = 0.1352281106072387D-01
        xs( 10) = 0.1742475980250381D-01
        xs( 11) = 0.2185888785534685D-01
        xs( 12) = 0.2679754802783706D-01
        xs( 13) = 0.3220754096090930D-01
        xs( 14) = 0.3805346518019852D-01
        xs( 15) = 0.4429993654174916D-01
        xs( 16) = 0.5091298839117059D-01
        xs( 17) = 0.5786089857043477D-01
        xs( 18) = 0.6511461755716218D-01
        xs( 19) = 0.7264792369432094D-01
        xs( 20) = 0.8043739932185569D-01
        xs( 21) = 0.8846229749272085D-01
        xs( 22) = 0.9670434947694760D-01
        xs( 23) = 0.1051475476424125D+00
        xs( 24) = 0.1137779263124235D+00
        xs( 25) = 0.1225833544940684D+00
        xs( 26) = 0.1315533484645422D+00
        xs( 27) = 0.1406789081984815D+00
        xs( 28) = 0.1499523798604193D+00
        xs( 29) = 0.1593673451921522D+00
        xs( 30) = 0.1689185383949028D+00
        xs( 31) = 0.1786017878870134D+00
        xs( 32) = 0.1884139919682997D+00
        xs( 33) = 0.1983531508910460D+00
        xs( 34) = 0.2084183864927819D+00
        xs( 35) = 0.2186100471828971D+00
        xs( 36) = 0.2289301990805168D+00
        xs( 37) = 0.2393824771602709D+00
        xs( 38) = 0.2499735181130605D+00
        xs( 39) = 0.2607250926186232D+00
        xs( 40) = 0.2716621394442074D+00
        xs( 41) = 0.2826812533639061D+00
        xs( 42) = 0.2936364882825922D+00
        ws(  1) = 0.1980557593959023D-03
        ws(  2) = 0.4741579270512652D-03
        ws(  3) = 0.7815994473223452D-03
        ws(  4) = 0.1135405516078380D-02
        ws(  5) = 0.1545763907626287D-02
        ws(  6) = 0.2013889915641004D-02
        ws(  7) = 0.2529968537889574D-02
        ws(  8) = 0.3075438005867883D-02
        ws(  9) = 0.3628927377612457D-02
        ws( 10) = 0.4171971264338525D-02
        ws( 11) = 0.4691598211133709D-02
        ws( 12) = 0.5180133773617902D-02
        ws( 13) = 0.5633915645042256D-02
        ws( 14) = 0.6052012680058738D-02
        ws( 15) = 0.6435255554418194D-02
        ws( 16) = 0.6785554276232745D-02
        ws( 17) = 0.7105422128723698D-02
        ws( 18) = 0.7397646130489851D-02
        ws( 19) = 0.7665065539724992D-02
        ws( 20) = 0.7910431179973086D-02
        ws( 21) = 0.8136324046297416D-02
        ws( 22) = 0.8345115669437308D-02
        ws( 23) = 0.8538956515760083D-02
        ws( 24) = 0.8719782100065677D-02
        ws( 25) = 0.8889329704536150D-02
        ws( 26) = 0.9049160681178363D-02
        ws( 27) = 0.9200685384815626D-02
        ws( 28) = 0.9345189464165122D-02
        ws( 29) = 0.9483861430756454D-02
        ws( 30) = 0.9617823374966796D-02
        ws( 31) = 0.9748161576512329D-02
        ws( 32) = 0.9875969984517464D-02
        ws( 33) = 0.1000233502659403D-01
        ws( 34) = 0.1012821765168970D-01
        ws( 35) = 0.1025491836232143D-01
        ws( 36) = 0.1038454282214981D-01
        ws( 37) = 0.1051720185943284D-01
        ws( 38) = 0.1065258013648665D-01
        ws( 39) = 0.1082635263064596D-01
        ws( 40) = 0.1122075676885030D-01
        ws( 41) = 0.1219000087902833D-01
        ws( 42) = 0.1234144293255501D-01
        endif
        if( idomain .eq.  100 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.2000000000000000D+00
        rk1r = 0.3141592653589793D+01
        rk1i = 0.4000000000000000D+00
        iquadtype =  2
        n =  44
        err = 0.5852778665732046D-13
        xs(  1) = 0.4471565590826097D-04
        xs(  2) = 0.2384294568937631D-03
        xs(  3) = 0.5987072750654048D-03
        xs(  4) = 0.1146745475022753D-02
        xs(  5) = 0.1914963102862219D-02
        xs(  6) = 0.2948480233383284D-02
        xs(  7) = 0.4305568518407715D-02
        xs(  8) = 0.6055424786604062D-02
        xs(  9) = 0.8271279606658572D-02
        xs( 10) = 0.1101824585646724D-01
        xs( 11) = 0.1433928444539363D-01
        xs( 12) = 0.1824660342105995D-01
        xs( 13) = 0.2272375278771120D-01
        xs( 14) = 0.2773567633447025D-01
        xs( 15) = 0.3323940675530233D-01
        xs( 16) = 0.3919101193447447D-01
        xs( 17) = 0.4554882910766257D-01
        xs( 18) = 0.5227460862590832D-01
        xs( 19) = 0.5933379549672708D-01
        xs( 20) = 0.6669550372763813D-01
        xs( 21) = 0.7433236443252331D-01
        xs( 22) = 0.8222029990474015D-01
        xs( 23) = 0.9033824998829314D-01
        xs( 24) = 0.9866787556020581D-01
        xs( 25) = 0.1071932616763814D+00
        xs( 26) = 0.1159006372911959D+00
        xs( 27) = 0.1247781219718623D+00
        xs( 28) = 0.1338155046385188D+00
        xs( 29) = 0.1430040556513204D+00
        xs( 30) = 0.1523363719601197D+00
        xs( 31) = 0.1618062529069612D+00
        xs( 32) = 0.1714086058267856D+00
        xs( 33) = 0.1811393855687791D+00
        xs( 34) = 0.1909955503620478D+00
        xs( 35) = 0.2009750263976385D+00
        xs( 36) = 0.2110767440666000D+00
        xs( 37) = 0.2213007352189950D+00
        xs( 38) = 0.2316487737840778D+00
        xs( 39) = 0.2421252592557865D+00
        xs( 40) = 0.2527349182225552D+00
        xs( 41) = 0.2634762262870116D+00
        xs( 42) = 0.2743375198310565D+00
        xs( 43) = 0.2852734044216838D+00
        xs( 44) = 0.2963056178426205D+00
        ws(  1) = 0.1150748756562420D-03
        ws(  2) = 0.2743124195194552D-03
        ws(  3) = 0.4497459437363079D-03
        ws(  4) = 0.6517073089956555D-03
        ws(  5) = 0.8922363510584702D-03
        ws(  6) = 0.1184541566162282D-02
        ws(  7) = 0.1541279959338763D-02
        ws(  8) = 0.1970847789032519D-02
        ws(  9) = 0.2471968165487968D-02
        ws( 10) = 0.3029283909773912D-02
        ws( 11) = 0.3614784487246019D-02
        ws( 12) = 0.4196922763711647D-02
        ws( 13) = 0.4751344369484219D-02
        ws( 14) = 0.5265227437423673D-02
        ws( 15) = 0.5734862105586443D-02
        ws( 16) = 0.6161388320153467D-02
        ws( 17) = 0.6547867556226313D-02
        ws( 18) = 0.6897933075777677D-02
        ws( 19) = 0.7215295621739659D-02
        ws( 20) = 0.7503563181363610D-02
        ws( 21) = 0.7766149898579879D-02
        ws( 22) = 0.8006216017412394D-02
        ws( 23) = 0.8226632617768232D-02
        ws( 24) = 0.8429970730105410D-02
        ws( 25) = 0.8618510556671394D-02
        ws( 26) = 0.8794264284893232D-02
        ws( 27) = 0.8959006372453702D-02
        ws( 28) = 0.9114306672318327D-02
        ws( 29) = 0.9261563751188214D-02
        ws( 30) = 0.9402037152771669D-02
        ws( 31) = 0.9536875690444114D-02
        ws( 32) = 0.9667150428296484D-02
        ws( 33) = 0.9793891363178688D-02
        ws( 34) = 0.9918116444207732D-02
        ws( 35) = 0.1004088035810058D-01
        ws( 36) = 0.1016312811455657D-01
        ws( 37) = 0.1028501412667020D-01
        ws( 38) = 0.1040611676965112D-01
        ws( 39) = 0.1052916642473012D-01
        ws( 40) = 0.1067387059216596D-01
        ws( 41) = 0.1090641644531276D-01
        ws( 42) = 0.1131929397412006D-01
        ws( 43) = 0.1171688670451021D-01
        ws( 44) = 0.1065800192392396D-01
        endif
        if( idomain .eq.  101 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.2000000000000000D+00
        rk1r = 0.6283185307179586D+01
        rk1i = 0.4000000000000000D+00
        iquadtype =  2
        n =  48
        err = 0.6369738876919374D-13
        xs(  1) = 0.2055107794825248D-04
        xs(  2) = 0.1089876594435175D-03
        xs(  3) = 0.2710252644477875D-03
        xs(  4) = 0.5119558225879747D-03
        xs(  5) = 0.8399032810532588D-03
        xs(  6) = 0.1266467081311759D-02
        xs(  7) = 0.1807597183157437D-02
        xs(  8) = 0.2484774037339894D-02
        xs(  9) = 0.3326537568376041D-02
        xs( 10) = 0.4370355555551547D-02
        xs( 11) = 0.5664674803008452D-02
        xs( 12) = 0.7270674452120756D-02
        xs( 13) = 0.9262647162745410D-02
        xs( 14) = 0.1172509704079648D-01
        xs( 15) = 0.1474407591814578D-01
        xs( 16) = 0.1839150983811624D-01
        xs( 17) = 0.2270619188280873D-01
        xs( 18) = 0.2768168980721878D-01
        xs( 19) = 0.3327055138068674D-01
        xs( 20) = 0.3940212899398603D-01
        xs( 21) = 0.4600175469396296D-01
        xs( 22) = 0.5300250686997646D-01
        xs( 23) = 0.6034915601454776D-01
        xs( 24) = 0.6799766713854989D-01
        xs( 25) = 0.7591316785448515D-01
        xs( 26) = 0.8406783521682142D-01
        xs( 27) = 0.9243917856178344D-01
        xs( 28) = 0.1010087668053535D+00
        xs( 29) = 0.1097613167923286D+00
        xs( 30) = 0.1186840447123688D+00
        xs( 31) = 0.1277662019141950D+00
        xs( 32) = 0.1369987393383966D+00
        xs( 33) = 0.1463740631693485D+00
        xs( 34) = 0.1558858570788311D+00
        xs( 35) = 0.1655289555067912D+00
        xs( 36) = 0.1752992591046550D+00
        xs( 37) = 0.1851936851663053D+00
        xs( 38) = 0.1952101481237829D+00
        xs( 39) = 0.2053475817316154D+00
        xs( 40) = 0.2156060183539586D+00
        xs( 41) = 0.2259867563642542D+00
        xs( 42) = 0.2364927347299570D+00
        xs( 43) = 0.2471294876698428D+00
        xs( 44) = 0.2579046656436274D+00
        xs( 45) = 0.2688217481982303D+00
        xs( 46) = 0.2798795692949844D+00
        xs( 47) = 0.2910643002217769D+00
        xs( 48) = 0.3023907352175603D+00
        ws(  1) = 0.5282065700215392D-04
        ws(  2) = 0.1245631514214351D-03
        ws(  3) = 0.2003847441437989D-03
        ws(  4) = 0.2828200184380314D-03
        ws(  5) = 0.3749936983218039D-03
        ws(  6) = 0.4807726811877364D-03
        ws(  7) = 0.6050421264250978D-03
        ws(  8) = 0.7540367918010801D-03
        ws(  9) = 0.9356996817519213D-03
        ws( 10) = 0.1159979106788251D-02
        ws( 11) = 0.1438844982395955D-02
        ws( 12) = 0.1785578269010229D-02
        ws( 13) = 0.2212590897570628D-02
        ws( 14) = 0.2726919342506388D-02
        ws( 15) = 0.3323370406357328D-02
        ws( 16) = 0.3978193403668906D-02
        ws( 17) = 0.4650020875310554D-02
        ws( 18) = 0.5292732529578800D-02
        ws( 19) = 0.5872873949335021D-02
        ws( 20) = 0.6377642349685031D-02
        ws( 21) = 0.6810399504820318D-02
        ws( 22) = 0.7181915332460268D-02
        ws( 23) = 0.7504080831430430D-02
        ws( 24) = 0.7787165480176931D-02
        ws( 25) = 0.8039227420162522D-02
        ws( 26) = 0.8266379834454590D-02
        ws( 27) = 0.8473249959111804D-02
        ws( 28) = 0.8663389957580203D-02
        ws( 29) = 0.8839586986167143D-02
        ws( 30) = 0.9004082919127326D-02
        ws( 31) = 0.9158727339672046D-02
        ws( 32) = 0.9305084852145772D-02
        ws( 33) = 0.9444512233368714D-02
        ws( 34) = 0.9578215709414965D-02
        ws( 35) = 0.9707297149946019D-02
        ws( 36) = 0.9832794074081977D-02
        ws( 37) = 0.9955716612908757D-02
        ws( 38) = 0.1007708397221860D-01
        ws( 39) = 0.1019794066581414D-01
        ws( 40) = 0.1031925146220772D-01
        ws( 41) = 0.1044153555885617D-01
        ws( 42) = 0.1056563202852025D-01
        ws( 43) = 0.1069897278677649D-01
        ws( 44) = 0.1086913627787249D-01
        ws( 45) = 0.1112874754687027D-01
        ws( 46) = 0.1145682807879285D-01
        ws( 47) = 0.1134488386927250D-01
        ws( 48) = 0.9929614529159980D-02
        endif
        if( idomain .eq.  102 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.2000000000000000D+00
        rk1r = 0.9424777960769379D+01
        rk1i = 0.4000000000000000D+00
        iquadtype =  2
        n =  51
        err = 0.8391914339359507D-13
        xs(  1) = 0.1190358401721039D-04
        xs(  2) = 0.6296253012926675D-04
        xs(  3) = 0.1558279277180119D-03
        xs(  4) = 0.2923018624536618D-03
        xs(  5) = 0.4750901072298381D-03
        xs(  6) = 0.7079675144485322D-03
        xs(  7) = 0.9959894552730539D-03
        xs(  8) = 0.1345777323774625D-02
        xs(  9) = 0.1765900803945277D-02
        xs( 10) = 0.2267387358098191D-02
        xs( 11) = 0.2864399709931216D-02
        xs( 12) = 0.3575133797926553D-02
        xs( 13) = 0.4423000517669949D-02
        xs( 14) = 0.5438158506987718D-02
        xs( 15) = 0.6659447933259148D-02
        xs( 16) = 0.8136705949968712D-02
        xs( 17) = 0.9933262806183760D-02
        xs( 18) = 0.1212801865103275D-01
        xs( 19) = 0.1481574398736860D-01
        xs( 20) = 0.1810308424088185D-01
        xs( 21) = 0.2209672445993886D-01
        xs( 22) = 0.2688139894762206D-01
        xs( 23) = 0.3249227713007796D-01
        xs( 24) = 0.3889696737946764D-01
        xs( 25) = 0.4600292056283082D-01
        xs( 26) = 0.5368730597667499D-01
        xs( 27) = 0.6182901363627985D-01
        xs( 28) = 0.7032722878908665D-01
        xs( 29) = 0.7910590791758600D-01
        xs( 30) = 0.8811062785322679D-01
        xs( 31) = 0.9730330527844393D-01
        xs( 32) = 0.1066573894593339D+00
        xs( 33) = 0.1161542392927739D+00
        xs( 34) = 0.1257806131011402D+00
        xs( 35) = 0.1355269980535056D+00
        xs( 36) = 0.1453865196094386D+00
        xs( 37) = 0.1553542368359819D+00
        xs( 38) = 0.1654266920435525D+00
        xs( 39) = 0.1756016295324537D+00
        xs( 40) = 0.1858778313708526D+00
        xs( 41) = 0.1962550394034419D+00
        xs( 42) = 0.2067339548219234D+00
        xs( 43) = 0.2173162667201593D+00
        xs( 44) = 0.2280047307627689D+00
        xs( 45) = 0.2388034979235601D+00
        xs( 46) = 0.2497184693724499D+00
        xs( 47) = 0.2607581484725530D+00
        xs( 48) = 0.2719320822318818D+00
        xs( 49) = 0.2832378929253951D+00
        xs( 50) = 0.2946663410094599D+00
        xs( 51) = 0.3058465082861664D+00
        ws(  1) = 0.3057606698300897D-04
        ws(  2) = 0.7172873706619011D-04
        ws(  3) = 0.1142992219805410D-03
        ws(  4) = 0.1590970370719129D-03
        ws(  5) = 0.2071051149826839D-03
        ws(  6) = 0.2594875550854853D-03
        ws(  7) = 0.3176535927582261D-03
        ws(  8) = 0.3833420298779734D-03
        ws(  9) = 0.4587316744999073D-03
        ws( 10) = 0.5465870748192247D-03
        ws( 11) = 0.6504507569983820D-03
        ws( 12) = 0.7748938260169494D-03
        ws( 13) = 0.9258338185201086D-03
        ws( 14) = 0.1110916534196124D-02
        ws( 15) = 0.1339925624554524D-02
        ws( 16) = 0.1625107799065834D-02
        ws( 17) = 0.1981144992828321D-02
        ws( 18) = 0.2424219222228527D-02
        ws( 19) = 0.2969194964467838D-02
        ws( 20) = 0.3623640832057545D-02
        ws( 21) = 0.4378262393521432D-02
        ws( 22) = 0.5197296810922200D-02
        ws( 23) = 0.6018930318901834D-02
        ws( 24) = 0.6774466070903305D-02
        ws( 25) = 0.7416394152195383D-02
        ws( 26) = 0.7931885533524212D-02
        ws( 27) = 0.8334671623564773D-02
        ws( 28) = 0.8649150722965531D-02
        ws( 29) = 0.8899230618450514D-02
        ws( 30) = 0.9103943387756656D-02
        ws( 31) = 0.9277046342598828D-02
        ws( 32) = 0.9428056286426116D-02
        ws( 33) = 0.9563463648019828D-02
        ws( 34) = 0.9687716207771849D-02
        ws( 35) = 0.9803919336736943D-02
        ws( 36) = 0.9914307502530513D-02
        ws( 37) = 0.1002055534440969D-01
        ws( 38) = 0.1012398307358277D-01
        ws( 39) = 0.1022569401294699D-01
        ws( 40) = 0.1032666955363699D-01
        ws( 41) = 0.1042784441561697D-01
        ws( 42) = 0.1053019639773294D-01
        ws( 43) = 0.1063478459051823D-01
        ws( 44) = 0.1074294181636689D-01
        ws( 45) = 0.1085624623797334D-01
        ws( 46) = 0.1097653619572822D-01
        ws( 47) = 0.1111069035742522D-01
        ws( 48) = 0.1127967982238901D-01
        ws( 49) = 0.1155148744603638D-01
        ws( 50) = 0.1174973860806908D-01
        ws( 51) = 0.1027093697645631D-01
        endif
        if( idomain .eq.  103 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.2000000000000000D+00
        rk1r = 0.1256637061435917D+02
        rk1i = 0.4000000000000000D+00
        iquadtype =  2
        n =  55
        err = 0.3905083427502489D-13
        xs(  1) = 0.7772279519113059D-05
        xs(  2) = 0.4105473368288582D-04
        xs(  3) = 0.1013572946554775D-03
        xs(  4) = 0.1894392302550596D-03
        xs(  5) = 0.3064199930374555D-03
        xs(  6) = 0.4538349536215687D-03
        xs(  7) = 0.6336983405724982D-03
        xs(  8) = 0.8485848896455449D-03
        xs(  9) = 0.1101735202114105D-02
        xs( 10) = 0.1397191130552428D-02
        xs( 11) = 0.1739969850181055D-02
        xs( 12) = 0.2136288396390622D-02
        xs( 13) = 0.2593854551785319D-02
        xs( 14) = 0.3122245346310751D-02
        xs( 15) = 0.3733401412825318D-02
        xs( 16) = 0.4442274244774290D-02
        xs( 17) = 0.5267673891096899D-02
        xs( 18) = 0.6233375669150054D-02
        xs( 19) = 0.7369552642674418D-02
        xs( 20) = 0.8714597432195785D-02
        xs( 21) = 0.1031736355164596D-01
        xs( 22) = 0.1223975373147343D-01
        xs( 23) = 0.1455933463842601D-01
        xs( 24) = 0.1737113216362926D-01
        xs( 25) = 0.2078678640765728D-01
        xs( 26) = 0.2492781153580422D-01
        xs( 27) = 0.2990872528943632D-01
        xs( 28) = 0.3580839307071244D-01
        xs( 29) = 0.4263794346598537D-01
        xs( 30) = 0.5032587202549404D-01
        xs( 31) = 0.5873611597301868D-01
        xs( 32) = 0.6770879091478910D-01
        xs( 33) = 0.7709710572380274D-01
        xs( 34) = 0.8678536432394961D-01
        xs( 35) = 0.9669067059734338D-01
        xs( 36) = 0.1067570027190793D+00
        xs( 37) = 0.1169478532702290D+00
        xs( 38) = 0.1272400354602919D+00
        xs( 39) = 0.1376191874230127D+00
        xs( 40) = 0.1480767332218595D+00
        xs( 41) = 0.1586079048769232D+00
        xs( 42) = 0.1692104852970771D+00
        xs( 43) = 0.1798840271011042D+00
        xs( 44) = 0.1906293854978921D+00
        xs( 45) = 0.2014484604513176D+00
        xs( 46) = 0.2123440918265983D+00
        xs( 47) = 0.2233200595059780D+00
        xs( 48) = 0.2343811735768977D+00
        xs( 49) = 0.2455334463055977D+00
        xs( 50) = 0.2567854095413106D+00
        xs( 51) = 0.2681497927064264D+00
        xs( 52) = 0.2796304724007250D+00
        xs( 53) = 0.2912858154079927D+00
        xs( 54) = 0.3028869908502174D+00
        xs( 55) = 0.3150445359194694D+00
        ws(  1) = 0.1995789687708975D-04
        ws(  2) = 0.4669246494157703D-04
        ws(  3) = 0.7403768026487184D-04
        ws(  4) = 0.1023119473208386D-03
        ws(  5) = 0.1319044374412833D-03
        ws(  6) = 0.1632598386437241D-03
        ws(  7) = 0.1968943166604674D-03
        ws(  8) = 0.2334166455877164D-03
        ws(  9) = 0.2735547479222563D-03
        ws( 10) = 0.3181895998453374D-03
        ws( 11) = 0.3683992138479784D-03
        ws( 12) = 0.4255162671667576D-03
        ws( 13) = 0.4912040634965564D-03
        ws( 14) = 0.5675569562118359D-03
        ws( 15) = 0.6572331044350941D-03
        ws( 16) = 0.7636292851406480D-03
        ws( 17) = 0.8911088477294123D-03
        ws( 18) = 0.1045293285682760D-02
        ws( 19) = 0.1233421956553176D-02
        ws( 20) = 0.1464766077975268D-02
        ws( 21) = 0.1751037873100625D-02
        ws( 22) = 0.2106636241635165D-02
        ws( 23) = 0.2548369548614409D-02
        ws( 24) = 0.3093933233470668D-02
        ws( 25) = 0.3757901343762924D-02
        ws( 26) = 0.4543730035118290D-02
        ws( 27) = 0.5431833190624768D-02
        ws( 28) = 0.6369655908139330D-02
        ws( 29) = 0.7277196135972538D-02
        ws( 30) = 0.8075226391393370D-02
        ws( 31) = 0.8717961645128617D-02
        ws( 32) = 0.9202635964193613D-02
        ws( 33) = 0.9554706556764101D-02
        ws( 34) = 0.9808108095004825D-02
        ws( 35) = 0.9993295548584432D-02
        ws( 36) = 0.1013338810332133D-01
        ws( 37) = 0.1024452266946897D-01
        ws( 38) = 0.1033749771389711D-01
        ws( 39) = 0.1041940905905262D-01
        ws( 40) = 0.1049490826388652D-01
        ws( 41) = 0.1056707801832442D-01
        ws( 42) = 0.1063801494016450D-01
        ws( 43) = 0.1070921318118616D-01
        ws( 44) = 0.1078182085899502D-01
        ws( 45) = 0.1085681342298789D-01
        ws( 46) = 0.1093512776629625D-01
        ws( 47) = 0.1101775944039603D-01
        ws( 48) = 0.1110600117223082D-01
        ws( 49) = 0.1120000082825350D-01
        ws( 50) = 0.1129685223350761D-01
        ws( 51) = 0.1142178704211850D-01
        ws( 52) = 0.1154409241590778D-01
        ws( 53) = 0.1182634809905538D-01
        ws( 54) = 0.1213297829186884D-01
        ws( 55) = 0.1372593442464280D-01
        endif
        if( idomain .eq.  104 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.2000000000000000D+00
        rk1r = 0.1570796326794897D+02
        rk1i = 0.4000000000000000D+00
        iquadtype =  2
        n =  57
        err = 0.9403943466544026D-13
        xs(  1) = 0.5616639989407496D-05
        xs(  2) = 0.2964555309975307D-04
        xs(  3) = 0.7308867106428302D-04
        xs(  4) = 0.1363285936710669D-03
        xs(  5) = 0.2199221263452788D-03
        xs(  6) = 0.3246263345627085D-03
        xs(  7) = 0.4514239767186871D-03
        xs(  8) = 0.6015552044604632D-03
        xs(  9) = 0.7765570868115897D-03
        xs( 10) = 0.9783126417170801D-03
        xs( 11) = 0.1209111661267351D-02
        xs( 12) = 0.1471726427409163D-02
        xs( 13) = 0.1769506456490692D-02
        xs( 14) = 0.2106497766220901D-02
        xs( 15) = 0.2487593950595735D-02
        xs( 16) = 0.2918728745146495D-02
        xs( 17) = 0.3407122990314221D-02
        xs( 18) = 0.3961603246402711D-02
        xs( 19) = 0.4593015145332104D-02
        xs( 20) = 0.5314762308569975D-02
        xs( 21) = 0.6143511733874624D-02
        xs( 22) = 0.7100119158931332D-02
        xs( 23) = 0.8210842528151064D-02
        xs( 24) = 0.9508925898474884D-02
        xs( 25) = 0.1103664297775749D-01
        xs( 26) = 0.1284787188227886D-01
        xs( 27) = 0.1501119157755832D-01
        xs( 28) = 0.1761326181848914D-01
        xs( 29) = 0.2076170536571377D-01
        xs( 30) = 0.2458557665097854D-01
        xs( 31) = 0.2922953964154505D-01
        xs( 32) = 0.3483578499104895D-01
        xs( 33) = 0.4150926374615764D-01
        xs( 34) = 0.4927374068190794D-01
        xs( 35) = 0.5804547276413557D-01
        xs( 36) = 0.6765112670322947D-01
        xs( 37) = 0.7788157408136220D-01
        xs( 38) = 0.8854434784549063D-01
        xs( 39) = 0.9949004518731197D-01
        xs( 40) = 0.1106148617595554D+00
        xs( 41) = 0.1218518929494532D+00
        xs( 42) = 0.1331604795195369D+00
        xs( 43) = 0.1445174119272901D+00
        xs( 44) = 0.1559106867924306D+00
        xs( 45) = 0.1673353910504849D+00
        xs( 46) = 0.1787911006030243D+00
        xs( 47) = 0.1902802880594018D+00
        xs( 48) = 0.2018073908277006D+00
        xs( 49) = 0.2133783097438157D+00
        xs( 50) = 0.2250001777061048D+00
        xs( 51) = 0.2366815076109373D+00
        xs( 52) = 0.2484330891025790D+00
        xs( 53) = 0.2602662778334411D+00
        xs( 54) = 0.2721992220562296D+00
        xs( 55) = 0.2842440268619511D+00
        xs( 56) = 0.2963796824133418D+00
        xs( 57) = 0.3085097145560446D+00
        ws(  1) = 0.1442000624389446D-04
        ws(  2) = 0.3368476847001993D-04
        ws(  3) = 0.5326428876238045D-04
        ws(  4) = 0.7330800032298517D-04
        ws(  5) = 0.9400482485019724D-04
        ws(  6) = 0.1155668594220729D-03
        ws(  7) = 0.1382344619932716D-03
        ws(  8) = 0.1622833598388417D-03
        ws(  9) = 0.1880332347187782D-03
        ws( 10) = 0.2158582549102148D-03
        ws( 11) = 0.2462002650155274D-03
        ws( 12) = 0.2795855493206678D-03
        ws( 13) = 0.3166463499411174D-03
        ws( 14) = 0.3581486893917670D-03
        ws( 15) = 0.4050285597184869D-03
        ws( 16) = 0.4584392467475227D-03
        ws( 17) = 0.5198135202433782D-03
        ws( 18) = 0.5909457116266330D-03
        ws( 19) = 0.6741003931798793D-03
        ws( 20) = 0.7721565056075712D-03
        ws( 21) = 0.8887982751355918D-03
        ws( 22) = 0.1028766721259115D-02
        ws( 23) = 0.1198186827015462D-02
        ws( 24) = 0.1404982648978606D-02
        ws( 25) = 0.1659379136584313D-02
        ws( 26) = 0.1974450536988546D-02
        ws( 27) = 0.2366579918652528D-02
        ws( 28) = 0.2855480916326372D-02
        ws( 29) = 0.3462997036089388D-02
        ws( 30) = 0.4209142507033898D-02
        ws( 31) = 0.5103073647779913D-02
        ws( 32) = 0.6127712823147898D-02
        ws( 33) = 0.7223728225566412D-02
        ws( 34) = 0.8290947102018525D-02
        ws( 35) = 0.9222618933911460D-02
        ws( 36) = 0.9952896318125527D-02
        ws( 37) = 0.1047549585999110D-01
        ws( 38) = 0.1082514468738685D-01
        ws( 39) = 0.1104911637411390D-01
        ws( 40) = 0.1118955141996874D-01
        ws( 41) = 0.1127788186185070D-01
        ws( 42) = 0.1133552572493619D-01
        ws( 43) = 0.1137640550398243D-01
        ws( 44) = 0.1140936733546614D-01
        ws( 45) = 0.1143999606382963D-01
        ws( 46) = 0.1147185205511808D-01
        ws( 47) = 0.1150728291753533D-01
        ws( 48) = 0.1154794992295819D-01
        ws( 49) = 0.1159516335859285D-01
        ws( 50) = 0.1165013072940129D-01
        ws( 51) = 0.1171356961963324D-01
        ws( 52) = 0.1178742640924461D-01
        ws( 53) = 0.1187704711408201D-01
        ws( 54) = 0.1200753249467825D-01
        ws( 55) = 0.1217990033244341D-01
        ws( 56) = 0.1262632534620338D-01
        ws( 57) = 0.1375010787449223D-01
        endif
        if( idomain .eq.  105 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.2000000000000000D+00
        rk1r = 0.1884955592153876D+02
        rk1i = 0.4000000000000000D+00
        iquadtype =  2
        n =  60
        err = 0.9456699422330667D-13
        xs(  1) = 0.4236156060751681D-05
        xs(  2) = 0.2234849482757009D-04
        xs(  3) = 0.5505090595458880D-04
        xs(  4) = 0.1025545548183642D-03
        xs(  5) = 0.1651627978765924D-03
        xs(  6) = 0.2432854150600463D-03
        xs(  7) = 0.3374503630623129D-03
        xs(  8) = 0.4483178802946039D-03
        xs(  9) = 0.5766975733322360D-03
        xs( 10) = 0.7235689841582494D-03
        xs( 11) = 0.8901063036778575D-03
        xs( 12) = 0.1077708135010319D-02
        xs( 13) = 0.1288033502569991D-02
        xs( 14) = 0.1523045663263375D-02
        xs( 15) = 0.1785065730054460D-02
        xs( 16) = 0.2076838702393558D-02
        xs( 17) = 0.2401615262235897D-02
        xs( 18) = 0.2763253705351877D-02
        xs( 19) = 0.3166347725378123D-02
        xs( 20) = 0.3616387574371224D-02
        xs( 21) = 0.4119964553134334D-02
        xs( 22) = 0.4685032058241971D-02
        xs( 23) = 0.5321240822274802D-02
        xs( 24) = 0.6040371902847214D-02
        xs( 25) = 0.6856898855468709D-02
        xs( 26) = 0.7788720844977683D-02
        xs( 27) = 0.8858121562183878D-02
        xs( 28) = 0.1009302453167947D-01
        xs( 29) = 0.1152863202610270D-01
        xs( 30) = 0.1320954690187765D-01
        xs( 31) = 0.1519247007994204D-01
        xs( 32) = 0.1754950727283606D-01
        xs( 33) = 0.2037192996859655D-01
        xs( 34) = 0.2377375208733061D-01
        xs( 35) = 0.2789338987048543D-01
        xs( 36) = 0.3288956000921333D-01
        xs( 37) = 0.3892470001054596D-01
        xs( 38) = 0.4612898072266236D-01
        xs( 39) = 0.5454881381404939D-01
        xs( 40) = 0.6410752634528638D-01
        xs( 41) = 0.7461487612027211D-01
        xs( 42) = 0.8582619659833363D-01
        xs( 43) = 0.9750891306350792D-01
        xs( 44) = 0.1094801630799204D+00
        xs( 45) = 0.1216132524042522D+00
        xs( 46) = 0.1338279748275536D+00
        xs( 47) = 0.1460773770143258D+00
        xs( 48) = 0.1583365365534136D+00
        xs( 49) = 0.1705945506342642D+00
        xs( 50) = 0.1828492804077994D+00
        xs( 51) = 0.1951040701087072D+00
        xs( 52) = 0.2073658216814236D+00
        xs( 53) = 0.2196438903307656D+00
        xs( 54) = 0.2319496440300209D+00
        xs( 55) = 0.2442967405170512D+00
        xs( 56) = 0.2567019023276244D+00
        xs( 57) = 0.2691778400862996D+00
        xs( 58) = 0.2817607539304432D+00
        xs( 59) = 0.2945123310998607D+00
        xs( 60) = 0.3067774370096490D+00
        ws(  1) = 0.1087458124109399D-04
        ws(  2) = 0.2537856664201351D-04
        ws(  3) = 0.4006079712081870D-04
        ws(  4) = 0.5499688052029554D-04
        ws(  5) = 0.7028771012975827D-04
        ws(  6) = 0.8604528300611403D-04
        ws(  7) = 0.1023943690884244D-03
        ws(  8) = 0.1194752585801973D-03
        ws(  9) = 0.1374469747313567D-03
        ws( 10) = 0.1564910521715313D-03
        ws( 11) = 0.1768160909053552D-03
        ws( 12) = 0.1986633503775208D-03
        ws( 13) = 0.2223137066073005D-03
        ws( 14) = 0.2480963743336811D-03
        ws( 15) = 0.2763999061625666D-03
        ws( 16) = 0.3076861334203868D-03
        ws( 17) = 0.3425079234956391D-03
        ws( 18) = 0.3815319157016234D-03
        ws( 19) = 0.4255677892361657D-03
        ws( 20) = 0.4756061494989488D-03
        ws( 21) = 0.5328678420959768D-03
        ws( 22) = 0.5988684809364344D-03
        ws( 23) = 0.6755032854602385D-03
        ws( 24) = 0.7651590459185753D-03
        ws( 25) = 0.8708622389848362D-03
        ws( 26) = 0.9964749756018799D-03
        ws( 27) = 0.1146953306959026D-02
        ws( 28) = 0.1328684552362623D-02
        ws( 29) = 0.1549919413291228D-02
        ws( 30) = 0.1821305116339146D-02
        ws( 31) = 0.2156494883439944D-02
        ws( 32) = 0.2572728106542221D-02
        ws( 33) = 0.3091083284019575D-02
        ws( 34) = 0.3735682169830473D-02
        ws( 35) = 0.4530301599225055D-02
        ws( 36) = 0.5489712717900405D-02
        ws( 37) = 0.6603190439641211D-02
        ws( 38) = 0.7813874529165220D-02
        ws( 39) = 0.9012861975714126D-02
        ws( 40) = 0.1007174028741538D-01
        ws( 41) = 0.1090097434451251D-01
        ws( 42) = 0.1148228338337891D-01
        ws( 43) = 0.1185260933585174D-01
        ws( 44) = 0.1206896704958223D-01
        ws( 45) = 0.1218407619337576D-01
        ws( 46) = 0.1223773185399117D-01
        ws( 47) = 0.1225705084810653D-01
        ws( 48) = 0.1225953725957944D-01
        ws( 49) = 0.1225618824672103D-01
        ws( 50) = 0.1225386307043687D-01
        ws( 51) = 0.1225689422129716D-01
        ws( 52) = 0.1226811816457987D-01
        ws( 53) = 0.1228976180123667D-01
        ws( 54) = 0.1232323292463517D-01
        ws( 55) = 0.1237283113528562D-01
        ws( 56) = 0.1244158990119701D-01
        ws( 57) = 0.1254602709612725D-01
        ws( 58) = 0.1270994476040503D-01
        ws( 59) = 0.1325991407555617D-01
        ws( 60) = 0.1370594745998160D-01
        endif
        if( idomain .eq.  106 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.2000000000000000D+00
        rk1r = 0.2199114857512855D+02
        rk1i = 0.4000000000000000D+00
        iquadtype =  2
        n =  64
        err = 0.5516874678225186D-13
        xs(  1) = 0.3300160688343020D-05
        xs(  2) = 0.1740489466131869D-04
        xs(  3) = 0.4284834804775421D-04
        xs(  4) = 0.7975442493705508D-04
        xs(  5) = 0.1282986694242883D-03
        xs(  6) = 0.1887169950139308D-03
        xs(  7) = 0.2613116846177051D-03
        xs(  8) = 0.3464583281489191D-03
        xs(  9) = 0.4446140332622930D-03
        xs( 10) = 0.5563270711375181D-03
        xs( 11) = 0.6822481620096444D-03
        xs( 12) = 0.8231436852942149D-03
        xs( 13) = 0.9799111957964179D-03
        xs( 14) = 0.1153597740057419D-02
        xs( 15) = 0.1345421600288296D-02
        xs( 16) = 0.1556798255683442D-02
        xs( 17) = 0.1789371553286004D-02
        xs( 18) = 0.2045051337572836D-02
        xs( 19) = 0.2326059118613410D-02
        xs( 20) = 0.2634983788218769D-02
        xs( 21) = 0.2974849955509474D-02
        xs( 22) = 0.3349202212971230D-02
        xs( 23) = 0.3762209622490545D-02
        xs( 24) = 0.4218796011179569D-02
        xs( 25) = 0.4724803402066440D-02
        xs( 26) = 0.5287198228453886D-02
        xs( 27) = 0.5914333100125440D-02
        xs( 28) = 0.6616281080878122D-02
        xs( 29) = 0.7405265060407397D-02
        xs( 30) = 0.8296212310367661D-02
        xs( 31) = 0.9307474224657454D-02
        xs( 32) = 0.1046176404977920D-01
        xs( 33) = 0.1178738129177103D-01
        xs( 34) = 0.1331980957541084D-01
        xs( 35) = 0.1510379132629757D-01
        xs( 36) = 0.1719598691901364D-01
        xs( 37) = 0.1966828980832940D-01
        xs( 38) = 0.2261172415860704D-01
        xs( 39) = 0.2614044067836919D-01
        xs( 40) = 0.3039433164568553D-01
        xs( 41) = 0.3553674566298858D-01
        xs( 42) = 0.4174073111556601D-01
        xs( 43) = 0.4915597428092393D-01
        xs( 44) = 0.5785698848194847D-01
        xs( 45) = 0.6779566516754033D-01
        xs( 46) = 0.7879666346170854D-01
        xs( 47) = 0.9060801618890549D-01
        xs( 48) = 0.1029723217177598D+00
        xs( 49) = 0.1156760351058344D+00
        xs( 50) = 0.1285650732976685D+00
        xs( 51) = 0.1415387970255475D+00
        xs( 52) = 0.1545367380532948D+00
        xs( 53) = 0.1675259229804700D+00
        xs( 54) = 0.1804912670397672D+00
        xs( 55) = 0.1934290343321590D+00
        xs( 56) = 0.2063426549686468D+00
        xs( 57) = 0.2192401766780473D+00
        xs( 58) = 0.2321328098520960D+00
        xs( 59) = 0.2450342146084928D+00
        xs( 60) = 0.2579589916300685D+00
        xs( 61) = 0.2709259658119491D+00
        xs( 62) = 0.2839677363644545D+00
        xs( 63) = 0.2970305412670655D+00
        xs( 64) = 0.3096954329348767D+00
        ws(  1) = 0.8471161526415282D-05
        ws(  2) = 0.1975682889740496D-04
        ws(  3) = 0.3115024685810869D-04
        ws(  4) = 0.4269106362421848D-04
        ws(  5) = 0.5443664697757982D-04
        ws(  6) = 0.6645026952933296D-04
        ws(  7) = 0.7880157149585449D-04
        ws(  8) = 0.9156773988984624D-04
        ws(  9) = 0.1048348614471955D-03
        ws( 10) = 0.1186994484093134D-03
        ws( 11) = 0.1332702058023073D-03
        ws( 12) = 0.1486701294445773D-03
        ws( 13) = 0.1650390387826017D-03
        ws( 14) = 0.1825366664269819D-03
        ws( 15) = 0.2013464506648123D-03
        ws( 16) = 0.2216802111958357D-03
        ws( 17) = 0.2437839350186993D-03
        ws( 18) = 0.2679449626838223D-03
        ws( 19) = 0.2945009502299977D-03
        ws( 20) = 0.3238510961540165D-03
        ws( 21) = 0.3564702755471022D-03
        ws( 22) = 0.3929269286380561D-03
        ws( 23) = 0.4339058270703477D-03
        ws( 24) = 0.4802372138876147D-03
        ws( 25) = 0.5329343171513680D-03
        ws( 26) = 0.5932419189895921D-03
        ws( 27) = 0.6626995828104691D-03
        ws( 28) = 0.7432243784485096D-03
        ws( 29) = 0.8372195879929304D-03
        ws( 30) = 0.9477180112262079D-03
        ws( 31) = 0.1078571158413322D-02
        ws( 32) = 0.1234698695112004D-02
        ws( 33) = 0.1422415418053245D-02
        ws( 34) = 0.1649854108654751D-02
        ws( 35) = 0.1927497455341888D-02
        ws( 36) = 0.2268810074219417D-02
        ws( 37) = 0.2690896705981355D-02
        ws( 38) = 0.3214945717685529D-02
        ws( 39) = 0.3865824919329146D-02
        ws( 40) = 0.4669388739269967D-02
        ws( 41) = 0.5644825198580782D-02
        ws( 42) = 0.6789012174750308D-02
        ws( 43) = 0.8054797454986357D-02
        ws( 44) = 0.9339332991551326D-02
        ws( 45) = 0.1050784771322096D-01
        ws( 46) = 0.1145084719433158D-01
        ws( 47) = 0.1212811548869295D-01
        ws( 48) = 0.1256468396850011D-01
        ws( 49) = 0.1281719955270857D-01
        ws( 50) = 0.1294434240570681D-01
        ws( 51) = 0.1299324288902553D-01
        ws( 52) = 0.1299730306109281D-01
        ws( 53) = 0.1297865958464043D-01
        ws( 54) = 0.1295147204994257D-01
        ws( 55) = 0.1292466884206988D-01
        ws( 56) = 0.1290390679441051D-01
        ws( 57) = 0.1289297001023826D-01
        ws( 58) = 0.1289467567599184D-01
        ws( 59) = 0.1291208456644267D-01
        ws( 60) = 0.1295056774302962D-01
        ws( 61) = 0.1300446688093729D-01
        ws( 62) = 0.1312840190582512D-01
        ws( 63) = 0.1342268746645867D-01
        ws( 64) = 0.1315286865882376D-01
        endif
        if( idomain .eq.  107 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.2000000000000000D+00
        rk1r = 0.2513274122871834D+02
        rk1i = 0.4000000000000000D+00
        iquadtype =  2
        n =  67
        err = 0.7624876004892518D-13
        xs(  1) = 0.2663513217798978D-05
        xs(  2) = 0.1404416340866500D-04
        xs(  3) = 0.3456099678710186D-04
        xs(  4) = 0.6429188717976175D-04
        xs(  5) = 0.1033456460624948D-03
        xs(  6) = 0.1518680690920347D-03
        xs(  7) = 0.2100454477081998D-03
        xs(  8) = 0.2781084750596179D-03
        xs(  9) = 0.3563367689492430D-03
        xs( 10) = 0.4450640725487567D-03
        xs( 11) = 0.5446842020904364D-03
        xs( 12) = 0.6556578443886607D-03
        xs( 13) = 0.7785203476721294D-03
        xs( 14) = 0.9138906941413300D-03
        xs( 15) = 0.1062481892695571D-02
        xs( 16) = 0.1225113087646964D-02
        xs( 17) = 0.1402723747196477D-02
        xs( 18) = 0.1596390378159403D-02
        xs( 19) = 0.1807346316137396D-02
        xs( 20) = 0.2037005269665113D-02
        xs( 21) = 0.2286989461305408D-02
        xs( 22) = 0.2559163419281236D-02
        xs( 23) = 0.2855674744596059D-02
        xs( 24) = 0.3179003530129088D-02
        xs( 25) = 0.3532022565981242D-02
        xs( 26) = 0.3918071064642699D-02
        xs( 27) = 0.4341045428240275D-02
        xs( 28) = 0.4805511623529665D-02
        xs( 29) = 0.5316845117821851D-02
        xs( 30) = 0.5881406183256085D-02
        xs( 31) = 0.6506760865833664D-02
        xs( 32) = 0.7201961269286955D-02
        xs( 33) = 0.7977903334343228D-02
        xs( 34) = 0.8847786419225370D-02
        xs( 35) = 0.9827707251705826D-02
        xs( 36) = 0.1093743189856088D-01
        xs( 37) = 0.1220140402053760D-01
        xs( 38) = 0.1365006640734108D-01
        xs( 39) = 0.1532159529549402D-01
        xs( 40) = 0.1726417019933277D-01
        xs( 41) = 0.1953891538801883D-01
        xs( 42) = 0.2222362288688638D-01
        xs( 43) = 0.2541722360480701D-01
        xs( 44) = 0.2924452673290252D-01
        xs( 45) = 0.3385960387898589D-01
        xs( 46) = 0.3944375050553468D-01
        xs( 47) = 0.4619016770780146D-01
        xs( 48) = 0.5426572504239352D-01
        xs( 49) = 0.6375015279132538D-01
        xs( 50) = 0.7458063062680804D-01
        xs( 51) = 0.8654843655128953D-01
        xs( 52) = 0.9936123086368215D-01
        xs( 53) = 0.1127270418689475D+00
        xs( 54) = 0.1264093350068395D+00
        xs( 55) = 0.1402417997211207D+00
        xs( 56) = 0.1541190490822723D+00
        xs( 57) = 0.1679803041998981D+00
        xs( 58) = 0.1817946549985351D+00
        xs( 59) = 0.1955502359509060D+00
        xs( 60) = 0.2092470027910920D+00
        xs( 61) = 0.2228921898071952D+00
        xs( 62) = 0.2364973871718997D+00
        xs( 63) = 0.2500756096413537D+00
        xs( 64) = 0.2636409493465431D+00
        xs( 65) = 0.2771950315271963D+00
        xs( 66) = 0.2907876498661478D+00
        xs( 67) = 0.3036046843179923D+00
        ws(  1) = 0.6836604460745227D-05
        ws(  2) = 0.1593763982675480D-04
        ws(  3) = 0.2510862849511143D-04
        ws(  4) = 0.3437122291729102D-04
        ws(  5) = 0.4376053771386812D-04
        ws(  6) = 0.5331529208526151D-04
        ws(  7) = 0.6307783873591811D-04
        ws(  8) = 0.7309473241398284D-04
        ws(  9) = 0.8341738034176051D-04
        ws( 10) = 0.9410274994405576D-04
        ws( 11) = 0.1052141608745050D-03
        ws( 12) = 0.1168221994489809D-03
        ws( 13) = 0.1290057983061090D-03
        ws( 14) = 0.1418535284972971D-03
        ws( 15) = 0.1554651572438317D-03
        ws( 16) = 0.1699535334108713D-03
        ws( 17) = 0.1854468752562920D-03
        ws( 18) = 0.2020915521897361D-03
        ws( 19) = 0.2200554753218845D-03
        ws( 20) = 0.2395322420901378D-03
        ws( 21) = 0.2607462203923872D-03
        ws( 22) = 0.2839588104346068D-03
        ws( 23) = 0.3094761920203879D-03
        ws( 24) = 0.3376589569299915D-03
        ws( 25) = 0.3689341481382999D-03
        ws( 26) = 0.4038103906148495D-03
        ws( 27) = 0.4428970171157063D-03
        ws( 28) = 0.4869283871217394D-03
        ws( 29) = 0.5367949960427873D-03
        ws( 30) = 0.5935835137582293D-03
        ws( 31) = 0.6586286293967545D-03
        ws( 32) = 0.7335805843955283D-03
        ws( 33) = 0.8204936420570781D-03
        ws( 34) = 0.9219425865668898D-03
        ws( 35) = 0.1041176800263221D-02
        ws( 36) = 0.1182324647491938D-02
        ws( 37) = 0.1350664784374019D-02
        ws( 38) = 0.1552985201681709D-02
        ws( 39) = 0.1798053770013857D-02
        ws( 40) = 0.2097221391541017D-02
        ws( 41) = 0.2465158916335577D-02
        ws( 42) = 0.2920662235829012D-02
        ws( 43) = 0.3487275382076220D-02
        ws( 44) = 0.4193024557489841D-02
        ws( 45) = 0.5067573559669281D-02
        ws( 46) = 0.6133548226013196D-02
        ws( 47) = 0.7388177960585042D-02
        ws( 48) = 0.8777287418276198D-02
        ws( 49) = 0.1018120277312849D-01
        ws( 50) = 0.1144379267864445D-01
        ws( 51) = 0.1244155265317037D-01
        ws( 52) = 0.1313443967786361D-01
        ws( 53) = 0.1355756483771278D-01
        ws( 54) = 0.1377950123788379D-01
        ws( 55) = 0.1386815439101876D-01
        ws( 56) = 0.1387646404940866D-01
        ws( 57) = 0.1384107332154130D-01
        ws( 58) = 0.1378576858045618D-01
        ws( 59) = 0.1372546141440268D-01
        ws( 60) = 0.1366931449409131D-01
        ws( 61) = 0.1362291889059105D-01
        ws( 62) = 0.1359104695391118D-01
        ws( 63) = 0.1357479900754291D-01
        ws( 64) = 0.1356495181107163D-01
        ws( 65) = 0.1357978043761386D-01
        ws( 66) = 0.1371551539556017D-01
        ws( 67) = 0.1280688991160053D-01
        endif
        if( idomain .eq.  108 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.2000000000000000D+00
        rk1r = 0.2827433388230814D+02
        rk1i = 0.4000000000000000D+00
        iquadtype =  2
        n =  71
        err = 0.5716777974095047D-13
        xs(  1) = 0.2190621154984194D-05
        xs(  2) = 0.1154891768266245D-04
        xs(  3) = 0.2841256374390703D-04
        xs(  4) = 0.5283280351015247D-04
        xs(  5) = 0.8488010577801218D-04
        xs(  6) = 0.1246485694055636D-03
        xs(  7) = 0.1722580778103533D-03
        xs(  8) = 0.2278566089481714D-03
        xs(  9) = 0.2916228720460388D-03
        xs( 10) = 0.3637692980454467D-03
        xs( 11) = 0.4445454051900833D-03
        xs( 12) = 0.5342415753542804D-03
        xs( 13) = 0.6331932954197510D-03
        xs( 14) = 0.7417859384286407D-03
        xs( 15) = 0.8604601809903337D-03
        xs( 16) = 0.9897181769712841D-03
        xs( 17) = 0.1130130633798290D-02
        xs( 18) = 0.1282344968053884D-02
        xs( 19) = 0.1447094753062040D-02
        xs( 20) = 0.1625210714836448D-02
        xs( 21) = 0.1817633586523915D-02
        xs( 22) = 0.2025429198347989D-02
        xs( 23) = 0.2249806263865887D-02
        xs( 24) = 0.2492137429004805D-02
        xs( 25) = 0.2753984284215068D-02
        xs( 26) = 0.3037127210528297D-02
        xs( 27) = 0.3343601148390049D-02
        xs( 28) = 0.3675738658553234D-02
        xs( 29) = 0.4036222006757991D-02
        xs( 30) = 0.4428146474887768D-02
        xs( 31) = 0.4855097716636996D-02
        xs( 32) = 0.5321246784214014D-02
        xs( 33) = 0.5831467520815382D-02
        xs( 34) = 0.6391482432835896D-02
        xs( 35) = 0.7008045051480580D-02
        xs( 36) = 0.7689169338318797D-02
        xs( 37) = 0.8444420120724929D-02
        xs( 38) = 0.9285283185703666D-02
        xs( 39) = 0.1022563995304576D-01
        xs( 40) = 0.1128238017018738D-01
        xs( 41) = 0.1247619755053827D-01
        xs( 42) = 0.1383262854150787D-01
        xs( 43) = 0.1538341415531098D-01
        xs( 44) = 0.1716828889946847D-01
        xs( 45) = 0.1923732647531765D-01
        xs( 46) = 0.2165398867849913D-01
        xs( 47) = 0.2449900170999669D-01
        xs( 48) = 0.2787504386619338D-01
        xs( 49) = 0.3191177913071200D-01
        xs( 50) = 0.3676960883247737D-01
        xs( 51) = 0.4263802956588000D-01
        xs( 52) = 0.4972063849219075D-01
        xs( 53) = 0.5819685729897333D-01
        xs( 54) = 0.6815976386932285D-01
        xs( 55) = 0.7955648027062612D-01
        xs( 56) = 0.9217857088988694D-01
        xs( 57) = 0.1057212149158089D+00
        xs( 58) = 0.1198709671237334D+00
        xs( 59) = 0.1343681783871351D+00
        xs( 60) = 0.1490272829656577D+00
        xs( 61) = 0.1637294434214098D+00
        xs( 62) = 0.1784058587406367D+00
        xs( 63) = 0.1930218522110836D+00
        xs( 64) = 0.2075649079878051D+00
        xs( 65) = 0.2220366346574258D+00
        xs( 66) = 0.2364476466111475D+00
        xs( 67) = 0.2508146814062068D+00
        xs( 68) = 0.2651564574330932D+00
        xs( 69) = 0.2794991653396124D+00
        xs( 70) = 0.2938086006840022D+00
        xs( 71) = 0.3079257006715222D+00
        ws(  1) = 0.5622600321307870D-05
        ws(  2) = 0.1310347878484262D-04
        ws(  3) = 0.2063205027767853D-04
        ws(  4) = 0.2822013037797171D-04
        ws(  5) = 0.3589012312742721D-04
        ws(  6) = 0.4366674638849953D-04
        ws(  7) = 0.5157688950697577D-04
        ws(  8) = 0.5964990784533341D-04
        ws(  9) = 0.6791796749761559D-04
        ws( 10) = 0.7641640806508954D-04
        ws( 11) = 0.8518413269107627D-04
        ws( 12) = 0.9426404266074448D-04
        ws( 13) = 0.1037035363051571D-03
        ws( 14) = 0.1135550932661795D-03
        ws( 15) = 0.1238769666483321D-03
        ws( 16) = 0.1347340077948651D-03
        ws( 17) = 0.1461986517695922D-03
        ws( 18) = 0.1583520964297161D-03
        ws( 19) = 0.1712857145724782D-03
        ws( 20) = 0.1851027474236885D-03
        ws( 21) = 0.1999203392218928D-03
        ws( 22) = 0.2158719875216654D-03
        ws( 23) = 0.2331105030207760D-03
        ws( 24) = 0.2518115974659739D-03
        ws( 25) = 0.2721782502074207D-03
        ws( 26) = 0.2944460455591565D-03
        ws( 27) = 0.3188897273999554D-03
        ws( 28) = 0.3458312886647144D-03
        ws( 29) = 0.3756500073308548D-03
        ws( 30) = 0.4087949651404438D-03
        ws( 31) = 0.4458007515561759D-03
        ws( 32) = 0.4873072784113779D-03
        ws( 33) = 0.5340849312812657D-03
        ws( 34) = 0.5870666906954699D-03
        ws( 35) = 0.6473894099739660D-03
        ws( 36) = 0.7164471918302861D-03
        ws( 37) = 0.7959608380569038D-03
        ws( 38) = 0.8880687557353200D-03
        ws( 39) = 0.9954466176925083D-03
        ws( 40) = 0.1121465644453230D-02
        ws( 41) = 0.1270402740279047D-02
        ws( 42) = 0.1447719905892797D-02
        ws( 43) = 0.1660435005717840D-02
        ws( 44) = 0.1917609619713563D-02
        ws( 45) = 0.2230977961740737D-02
        ws( 46) = 0.2615721835421092D-02
        ws( 47) = 0.3091330043686430D-02
        ws( 48) = 0.3682293355562839D-02
        ws( 49) = 0.4417918976466726D-02
        ws( 50) = 0.5329545244946772D-02
        ws( 51) = 0.6441856042065950D-02
        ws( 52) = 0.7754363392368890D-02
        ws( 53) = 0.9214719506506833D-02
        ws( 54) = 0.1070250508687981D-01
        ws( 55) = 0.1205507969316998D-01
        ws( 56) = 0.1313668062975163D-01
        ws( 57) = 0.1389529381840958D-01
        ws( 58) = 0.1436064594834039D-01
        ws( 59) = 0.1460301897117657D-01
        ws( 60) = 0.1469568485472436D-01
        ws( 61) = 0.1469744037310160D-01
        ws( 62) = 0.1464980941188973D-01
        ws( 63) = 0.1458023166861302D-01
        ws( 64) = 0.1450627245113025D-01
        ws( 65) = 0.1443909343330737D-01
        ws( 66) = 0.1438640559965381D-01
        ws( 67) = 0.1435078860680850D-01
        ws( 68) = 0.1434335004954257D-01
        ws( 69) = 0.1435843739675718D-01
        ws( 70) = 0.1431587701706586D-01
        ws( 71) = 0.1384660926151819D-01
        endif
        if( idomain .eq.  109 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.2000000000000000D+00
        rk1r = 0.3141592653589793D+02
        rk1i = 0.4000000000000000D+00
        iquadtype =  2
        n =  75
        err = 0.4949583082638074D-13
        xs(  1) = 0.1835487160149592D-05
        xs(  2) = 0.9675511185044494D-05
        xs(  3) = 0.2379852833724223D-04
        xs(  4) = 0.4423929036573438D-04
        xs(  5) = 0.7104475346118795D-04
        xs(  6) = 0.1042774826655801D-03
        xs(  7) = 0.1440170841518472D-03
        xs(  8) = 0.1903616802526811D-03
        xs(  9) = 0.2434295659715553D-03
        xs( 10) = 0.3033610606350408D-03
        xs( 11) = 0.3703205589360429D-03
        xs( 12) = 0.4444987922037964D-03
        xs( 13) = 0.5261153206410017D-03
        xs( 14) = 0.6154212879754784D-03
        xs( 15) = 0.7127024809018063D-03
        xs( 16) = 0.8182827468554952D-03
        xs( 17) = 0.9325278353727403D-03
        xs( 18) = 0.1055849741021624D-02
        xs( 19) = 0.1188711640251450D-02
        xs( 20) = 0.1331633531213037D-02
        xs( 21) = 0.1485198705489676D-02
        xs( 22) = 0.1650061204731786D-02
        xs( 23) = 0.1826954444590100D-02
        xs( 24) = 0.2016701224541594D-02
        xs( 25) = 0.2220225387009464D-02
        xs( 26) = 0.2438565444882971D-02
        xs( 27) = 0.2672890566080583D-02
        xs( 28) = 0.2924519390960223D-02
        xs( 29) = 0.3194942268096538D-02
        xs( 30) = 0.3485847632674775D-02
        xs( 31) = 0.3799153428001384D-02
        xs( 32) = 0.4137044695662147D-02
        xs( 33) = 0.4502018748671923D-02
        xs( 34) = 0.4896939714627689D-02
        xs( 35) = 0.5325104719427480D-02
        xs( 36) = 0.5790324613112974D-02
        xs( 37) = 0.6297022967564005D-02
        xs( 38) = 0.6850358169088485D-02
        xs( 39) = 0.7456374880693396D-02
        xs( 40) = 0.8122193087467155D-02
        xs( 41) = 0.8856245541460294D-02
        xs( 42) = 0.9668577934599283D-02
        xs( 43) = 0.1057123088673683D-01
        xs( 44) = 0.1157872930112999D-01
        xs( 45) = 0.1270871342828022D-01
        xs( 46) = 0.1398275788783457D-01
        xs( 47) = 0.1542744087742369D-01
        xs( 48) = 0.1707574676926303D-01
        xs( 49) = 0.1896891154248657D-01
        xs( 50) = 0.2115884990729016D-01
        xs( 51) = 0.2371132629060126D-01
        xs( 52) = 0.2671002036818208D-01
        xs( 53) = 0.3026151284197055D-01
        xs( 54) = 0.3450078099449395D-01
        xs( 55) = 0.3959561327508056D-01
        xs( 56) = 0.4574573995536058D-01
        xs( 57) = 0.5316826382609940D-01
        xs( 58) = 0.6205839924681018D-01
        xs( 59) = 0.7252359089107857D-01
        xs( 60) = 0.8451758768509501D-01
        xs( 61) = 0.9782545651944362D-01
        xs( 62) = 0.1121232339511097D+00
        xs( 63) = 0.1270722807186887D+00
        xs( 64) = 0.1423892495271709D+00
        xs( 65) = 0.1578706118015691D+00
        xs( 66) = 0.1733860255765469D+00
        xs( 67) = 0.1888605733587808D+00
        xs( 68) = 0.2042574130992117D+00
        xs( 69) = 0.2195646369249214D+00
        xs( 70) = 0.2347865353592411D+00
        xs( 71) = 0.2499377287616687D+00
        xs( 72) = 0.2650411547515778D+00
        xs( 73) = 0.2801256742646681D+00
        xs( 74) = 0.2951432483089649D+00
        xs( 75) = 0.3101159616540403D+00
        ws(  1) = 0.4710958271288368D-05
        ws(  2) = 0.1097629304665809D-04
        ws(  3) = 0.1727528203673847D-04
        ws(  4) = 0.2361403624002276D-04
        ws(  5) = 0.3000729503718662D-04
        ws(  6) = 0.3647140663217899D-04
        ws(  7) = 0.4302412246546156D-04
        ws(  8) = 0.4968475471552194D-04
        ws(  9) = 0.5647436911747824D-04
        ws( 10) = 0.6341598168630060D-04
        ws( 11) = 0.7053476200810994D-04
        ws( 12) = 0.7785825208447292D-04
        ws( 13) = 0.8541661121449122D-04
        ws( 14) = 0.9324289776228984D-04
        ws( 15) = 0.1013733988253312D-03
        ws( 16) = 0.1098480191748423D-03
        ws( 17) = 0.1187107415985709D-03
        ws( 18) = 0.1280101720824338D-03
        ws( 19) = 0.1378001852356703D-03
        ws( 20) = 0.1481406881057442D-03
        ws( 21) = 0.1590985241741313D-03
        ws( 22) = 0.1707485440443132D-03
        ws( 23) = 0.1831748753541578D-03
        ws( 24) = 0.1964724320791295D-03
        ws( 25) = 0.2107487130527912D-03
        ws( 26) = 0.2261259517731930D-03
        ws( 27) = 0.2427436951284357D-03
        ws( 28) = 0.2607619085450168D-03
        ws( 29) = 0.2803647305548541D-03
        ws( 30) = 0.3017650326514375D-03
        ws( 31) = 0.3252099829250352D-03
        ws( 32) = 0.3509878675282838D-03
        ws( 33) = 0.3794364968602844D-03
        ws( 34) = 0.4109536193804323D-03
        ws( 35) = 0.4460098932748707D-03
        ws( 36) = 0.4851651359498035D-03
        ws( 37) = 0.5290887989293382D-03
        ws( 38) = 0.5785859225968308D-03
        ws( 39) = 0.6346302410094734D-03
        ws( 40) = 0.6984066731108730D-03
        ws( 41) = 0.7713662103259629D-03
        ws( 42) = 0.8552972705415773D-03
        ws( 43) = 0.9524190417185075D-03
        ws( 44) = 0.1065504324602760D-02
        ws( 45) = 0.1198042075357475D-02
        ws( 46) = 0.1354453425656519D-02
        ws( 47) = 0.1540379523532053D-02
        ws( 48) = 0.1763064868097528D-02
        ws( 49) = 0.2031864676422782D-02
        ws( 50) = 0.2358905199866529D-02
        ws( 51) = 0.2759910374926856D-02
        ws( 52) = 0.3255146424449172D-02
        ws( 53) = 0.3870251991679491D-02
        ws( 54) = 0.4636243472460660D-02
        ws( 55) = 0.5586921843978010D-02
        ws( 56) = 0.6750154850221607D-02
        ws( 57) = 0.8128587593970621D-02
        ws( 58) = 0.9670837168115178D-02
        ws( 59) = 0.1125216707863432D-01
        ws( 60) = 0.1269888874005202D-01
        ws( 61) = 0.1386111156850013D-01
        ws( 62) = 0.1467679350362761D-01
        ws( 63) = 0.1517371596210999D-01
        ws( 64) = 0.1542646326252379D-01
        ws( 65) = 0.1551485964663862D-01
        ws( 66) = 0.1550377801688763D-01
        ws( 67) = 0.1543939979893966D-01
        ws( 68) = 0.1535244403539865D-01
        ws( 69) = 0.1526279581065047D-01
        ws( 70) = 0.1518337167506465D-01
        ws( 71) = 0.1512413126918486D-01
        ws( 72) = 0.1508786870256073D-01
        ws( 73) = 0.1508770278893167D-01
        ws( 74) = 0.1519535969524024D-01
        ws( 75) = 0.1476032144207314D-01
        endif
        if( idomain .eq.  110 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.2000000000000000D+00
        rk1r = 0.3455751918948772D+02
        rk1i = 0.4000000000000000D+00
        iquadtype =  2
        n =  79
        err = 0.5977491710441341D-13
        xs(  1) = 0.1562211650683691D-05
        xs(  2) = 0.8234277192382159D-05
        xs(  3) = 0.2025045744684411D-04
        xs(  4) = 0.3763531987953278D-04
        xs(  5) = 0.6042142274110455D-04
        xs(  6) = 0.8865203258316231D-04
        xs(  7) = 0.1223821138754877D-03
        xs(  8) = 0.1616793079093655D-03
        xs(  9) = 0.2066250195457669D-03
        xs( 10) = 0.2573156215229848D-03
        xs( 11) = 0.3138637752688461D-03
        xs( 12) = 0.3763998698328504D-03
        xs( 13) = 0.4450735859797097D-03
        xs( 14) = 0.5200555985356594D-03
        xs( 15) = 0.6015394361818103D-03
        xs( 16) = 0.6897435239190501D-03
        xs( 17) = 0.7849134394539996D-03
        xs( 18) = 0.8873244209526209D-03
        xs( 19) = 0.9972841702237556D-03
        xs( 20) = 0.1115136002725618D-02
        xs( 21) = 0.1241262404171528D-02
        xs( 22) = 0.1376089063328338D-02
        xs( 23) = 0.1520089462288073D-02
        xs( 24) = 0.1673790119558391D-02
        xs( 25) = 0.1837776598367286D-02
        xs( 26) = 0.2012700413350443D-02
        xs( 27) = 0.2199286994199505D-02
        xs( 28) = 0.2398344896040524D-02
        xs( 29) = 0.2610776484732007D-02
        xs( 30) = 0.2837590372766269D-02
        xs( 31) = 0.3079915940391203D-02
        xs( 32) = 0.3339020349996065D-02
        xs( 33) = 0.3616328553680173D-02
        xs( 34) = 0.3913446909409879D-02
        xs( 35) = 0.4232191167028958D-02
        xs( 36) = 0.4574619770533297D-02
        xs( 37) = 0.4943073659264726D-02
        xs( 38) = 0.5340224053755631D-02
        xs( 39) = 0.5769130102956980D-02
        xs( 40) = 0.6233308776935387D-02
        xs( 41) = 0.6736820051363819D-02
        xs( 42) = 0.7284371299798288D-02
        xs( 43) = 0.7881445958873799D-02
        xs( 44) = 0.8534463059403271D-02
        xs( 45) = 0.9250976260382408D-02
        xs( 46) = 0.1003992377396105D-01
        xs( 47) = 0.1091194429324041D-01
        xs( 48) = 0.1187977910066951D-01
        xs( 49) = 0.1295878745338877D-01
        xs( 50) = 0.1416761180869960D-01
        xs( 51) = 0.1552904238668143D-01
        xs( 52) = 0.1707114810309717D-01
        xs( 53) = 0.1882876423049813D-01
        xs( 54) = 0.2084545686885422D-01
        xs( 55) = 0.2317611854797045D-01
        xs( 56) = 0.2589037832506410D-01
        xs( 57) = 0.2907700180154569D-01
        xs( 58) = 0.3284932158240501D-01
        xs( 59) = 0.3735124720789366D-01
        xs( 60) = 0.4276205651991320D-01
        xs( 61) = 0.4929521107166559D-01
        xs( 62) = 0.5718181656315520D-01
        xs( 63) = 0.6662695806153095D-01
        xs( 64) = 0.7773798252180006D-01
        xs( 65) = 0.9045517421787336D-01
        xs( 66) = 0.1045397653567675D+00
        xs( 67) = 0.1196416134957095D+00
        xs( 68) = 0.1354006160079976D+00
        xs( 69) = 0.1515191857453081D+00
        xs( 70) = 0.1677858799927431D+00
        xs( 71) = 0.1840668701998185D+00
        xs( 72) = 0.2002865534136386D+00
        xs( 73) = 0.2164090956235544D+00
        xs( 74) = 0.2324244844571763D+00
        xs( 75) = 0.2483395479379348D+00
        xs( 76) = 0.2641678224333219D+00
        xs( 77) = 0.2799520910415847D+00
        xs( 78) = 0.2955917457325021D+00
        xs( 79) = 0.3106695323215728D+00
        ws(  1) = 0.4009490031432474D-05
        ws(  2) = 0.9340316263709854D-05
        ws(  3) = 0.1469592716919134D-04
        ws(  4) = 0.2007920000458747D-04
        ws(  5) = 0.2550020155725239D-04
        ws(  6) = 0.3097016268489617D-04
        ws(  7) = 0.3650125534121544D-04
        ws(  8) = 0.4210668012585800D-04
        ws(  9) = 0.4780078325953953D-04
        ws( 10) = 0.5359917363392145D-04
        ws( 11) = 0.5951883932899826D-04
        ws( 12) = 0.6557826826643123D-04
        ws( 13) = 0.7179757889517267D-04
        ws( 14) = 0.7819866703017025D-04
        ws( 15) = 0.8480537491150984D-04
        ws( 16) = 0.9164368848947376D-04
        ws( 17) = 0.9874196901031055D-04
        ws( 18) = 0.1061312252633914D-03
        ws( 19) = 0.1138454334101117D-03
        ws( 20) = 0.1219219121917802D-03
        ws( 21) = 0.1304017625491605D-03
        ws( 22) = 0.1393303823277663D-03
        ws( 23) = 0.1487580688531451D-03
        ws( 24) = 0.1587407248226629D-03
        ws( 25) = 0.1693406862892610D-03
        ws( 26) = 0.1806276956590955D-03
        ws( 27) = 0.1926800477903070D-03
        ws( 28) = 0.2055859437274779D-03
        ws( 29) = 0.2194450946831433D-03
        ws( 30) = 0.2343706290346255D-03
        ws( 31) = 0.2504913679406590D-03
        ws( 32) = 0.2679545514801506D-03
        ws( 33) = 0.2869291180156480D-03
        ws( 34) = 0.3076096661695148D-03
        ws( 35) = 0.3302212632178157D-03
        ws( 36) = 0.3550253083400412D-03
        ws( 37) = 0.3823267173736627D-03
        ws( 38) = 0.4124827720605878D-03
        ws( 39) = 0.4459140774931454D-03
        ws( 40) = 0.4831182051168467D-03
        ws( 41) = 0.5246867770759113D-03
        ws( 42) = 0.5713269873362397D-03
        ws( 43) = 0.6238888787859852D-03
        ws( 44) = 0.6834001354807976D-03
        ws( 45) = 0.7511107503597065D-03
        ws( 46) = 0.8285507540282593D-03
        ws( 47) = 0.9176053275464095D-03
        ws( 48) = 0.1020613192443265D-02
        ws( 49) = 0.1140496337114082D-02
        ws( 50) = 0.1280932107097907D-02
        ws( 51) = 0.1446582690795061D-02
        ws( 52) = 0.1643402247787591D-02
        ws( 53) = 0.1879048211313475D-02
        ws( 54) = 0.2163429444392816D-02
        ws( 55) = 0.2509425641334700D-02
        ws( 56) = 0.2933796909376735D-02
        ws( 57) = 0.3458235019374463D-02
        ws( 58) = 0.4110299187734332D-02
        ws( 59) = 0.4923428901284478D-02
        ws( 60) = 0.5934009291010329D-02
        ws( 61) = 0.7171531969867864D-02
        ws( 62) = 0.8637126348401011D-02
        ws( 63) = 0.1027236349752804D-01
        ws( 64) = 0.1194000897248279D-01
        ws( 65) = 0.1345331195440705D-01
        ws( 66) = 0.1465564276152141D-01
        ws( 67) = 0.1548678959866740D-01
        ws( 68) = 0.1598127963539782D-01
        ws( 69) = 0.1622081687956987D-01
        ws( 70) = 0.1629061669857917D-01
        ws( 71) = 0.1625907684140397D-01
        ws( 72) = 0.1617454301315895D-01
        ws( 73) = 0.1606904294947359D-01
        ws( 74) = 0.1596298197789394D-01
        ws( 75) = 0.1587014434343873D-01
        ws( 76) = 0.1579252974897432D-01
        ws( 77) = 0.1576939040571919D-01
        ws( 78) = 0.1599942137796139D-01
        ws( 79) = 0.1494886100988811D-01
        endif
        if( idomain .eq.  111 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.2000000000000000D+00
        rk1r = 0.3769911184307752D+02
        rk1i = 0.4000000000000000D+00
        iquadtype =  2
        n =  83
        err = 0.5091269394445015D-13
        xs(  1) = 0.1346354733697706D-05
        xs(  2) = 0.7096040766352598D-05
        xs(  3) = 0.1744909995881076D-04
        xs(  4) = 0.3242332521448166D-04
        xs(  5) = 0.5204179302961544D-04
        xs(  6) = 0.7633509857793995D-04
        xs(  7) = 0.1053420724244265D-03
        xs(  8) = 0.1391104604709421D-03
        xs(  9) = 0.1776976701585920D-03
        xs( 10) = 0.2211715909755364D-03
        xs( 11) = 0.2696114866406227D-03
        xs( 12) = 0.3231089571270579D-03
        xs( 13) = 0.3817689718278323D-03
        xs( 14) = 0.4457109788408102D-03
        xs( 15) = 0.5150700990631556D-03
        xs( 16) = 0.5899984173765708D-03
        xs( 17) = 0.6706663866615637D-03
        xs( 18) = 0.7572643637613723D-03
        xs( 19) = 0.8500042999310133D-03
        xs( 20) = 0.9491216118898552D-03
        xs( 21) = 0.1054877263502409D-02
        xs( 22) = 0.1167560092512319D-02
        xs( 23) = 0.1287489421835392D-02
        xs( 24) = 0.1415018000885517D-02
        xs( 25) = 0.1550535329496524D-02
        xs( 26) = 0.1694471425485070D-02
        xs( 27) = 0.1847301107096876D-02
        xs( 28) = 0.2009548873881365D-02
        xs( 29) = 0.2181794484425426D-02
        xs( 30) = 0.2364679347439412D-02
        xs( 31) = 0.2558913864667614D-02
        xs( 32) = 0.2765285890923023D-02
        xs( 33) = 0.2984670509402259D-02
        xs( 34) = 0.3218041360818207D-02
        xs( 35) = 0.3466483814711608D-02
        xs( 36) = 0.3731210333027236D-02
        xs( 37) = 0.4013578452836985D-02
        xs( 38) = 0.4315111911077586D-02
        xs( 39) = 0.4637525554705933D-02
        xs( 40) = 0.4982754831790155D-02
        xs( 41) = 0.5352990852011415D-02
        xs( 42) = 0.5750722251128412D-02
        xs( 43) = 0.6178785409513184D-02
        xs( 44) = 0.6640424981852684D-02
        xs( 45) = 0.7139367223135859D-02
        xs( 46) = 0.7679909285297076D-02
        xs( 47) = 0.8267028564285564D-02
        xs( 48) = 0.8906517374303220D-02
        xs( 49) = 0.9605149818814572D-02
        xs( 50) = 0.1037088986159311D-01
        xs( 51) = 0.1121315247780792D-01
        xs( 52) = 0.1214313366816516D-01
        xs( 53) = 0.1317423044490295D-01
        xs( 54) = 0.1432257919993245D-01
        xs( 55) = 0.1560775090416815D-01
        xs( 56) = 0.1705365538319471D-01
        xs( 57) = 0.1868972575127810D-01
        xs( 58) = 0.2055247934767917D-01
        xs( 59) = 0.2268758400796444D-01
        xs( 60) = 0.2515259627445812D-01
        xs( 61) = 0.2802057036691087D-01
        xs( 62) = 0.3138472714181089D-01
        xs( 63) = 0.3536421786231003D-01
        xs( 64) = 0.4011046192993546D-01
        xs( 65) = 0.4581205688138702D-01
        xs( 66) = 0.5269314746661905D-01
        xs( 67) = 0.6099555433137504D-01
        xs( 68) = 0.7093295863758034D-01
        xs( 69) = 0.8261669243069915D-01
        xs( 70) = 0.9598414932521313D-01
        xs( 71) = 0.1107857205481466D+00
        xs( 72) = 0.1266540507235885D+00
        xs( 73) = 0.1432097294456754D+00
        xs( 74) = 0.1601383105802213D+00
        xs( 75) = 0.1772164182388270D+00
        xs( 76) = 0.1943034841290563D+00
        xs( 77) = 0.2113215377031564D+00
        xs( 78) = 0.2282358109433961D+00
        xs( 79) = 0.2450403265485714D+00
        xs( 80) = 0.2617484611013600D+00
        xs( 81) = 0.2783943411738868D+00
        xs( 82) = 0.2949028553557987D+00
        xs( 83) = 0.3110364588166558D+00
        ws(  1) = 0.3455429075373553D-05
        ws(  2) = 0.8048526018076990D-05
        ws(  3) = 0.1266037670616510D-04
        ws(  4) = 0.1729190093428352D-04
        ws(  5) = 0.2195012301952563D-04
        ws(  6) = 0.2664294861810411D-04
        ws(  7) = 0.3137894429243512D-04
        ws(  8) = 0.3616738602333256D-04
        ws(  9) = 0.4101833339191475D-04
        ws( 10) = 0.4594270283100169D-04
        ws( 11) = 0.5095233795380229D-04
        ws( 12) = 0.5606007945055890D-04
        ws( 13) = 0.6127983809502896D-04
        ws( 14) = 0.6662667459820506D-04
        ws( 15) = 0.7211688997204575D-04
        ws( 16) = 0.7776812992239420D-04
        ws( 17) = 0.8359950667603847D-04
        ws( 18) = 0.8963174161983090D-04
        ws( 19) = 0.9588733222636217D-04
        ws( 20) = 0.1023907469835521D-03
        ws( 21) = 0.1091686524517740D-03
        ws( 22) = 0.1162501771565155D-03
        ws( 23) = 0.1236672178045846D-03
        ws( 24) = 0.1314547943107173D-03
        ws( 25) = 0.1396514613712026D-03
        ws( 26) = 0.1482997858653750D-03
        ws( 27) = 0.1574469012634029D-03
        ws( 28) = 0.1671451525464129D-03
        ws( 29) = 0.1774528480027951D-03
        ws( 30) = 0.1884351377841575D-03
        ws( 31) = 0.2001650434500671D-03
        ws( 32) = 0.2127246681232145D-03
        ws( 33) = 0.2262066235931703D-03
        ws( 34) = 0.2407157191114401D-03
        ws( 35) = 0.2563709671894066D-03
        ws( 36) = 0.2733079750610762D-03
        ws( 37) = 0.2916818074233862D-03
        ws( 38) = 0.3116704276985006D-03
        ws( 39) = 0.3334788528067559D-03
        ws( 40) = 0.3573441922224668D-03
        ws( 41) = 0.3835417884833724D-03
        ws( 42) = 0.4123927368382896D-03
        ws( 43) = 0.4442731410863127D-03
        ws( 44) = 0.4796255674135537D-03
        ws( 45) = 0.5189732971001042D-03
        ws( 46) = 0.5629381647888979D-03
        ws( 47) = 0.6122630188520787D-03
        ws( 48) = 0.6678401784630248D-03
        ws( 49) = 0.7307477223623123D-03
        ws( 50) = 0.8022960749773375D-03
        ws( 51) = 0.8840882243797372D-03
        ws( 52) = 0.9780981089806615D-03
        ws( 53) = 0.1086773378897059D-02
        ws( 54) = 0.1213171055055120D-02
        ws( 55) = 0.1361137810150243D-02
        ws( 56) = 0.1535550955470446D-02
        ws( 57) = 0.1742641963407476D-02
        ws( 58) = 0.1990431384309151D-02
        ws( 59) = 0.2289311041564957D-02
        ws( 60) = 0.2652811600306362D-02
        ws( 61) = 0.3098576434187807D-02
        ws( 62) = 0.3649485941609434D-02
        ws( 63) = 0.4334638895613198D-02
        ws( 64) = 0.5189285847856843D-02
        ws( 65) = 0.6251526468136756D-02
        ws( 66) = 0.7551709928975447D-02
        ws( 67) = 0.9090026548404221D-02
        ws( 68) = 0.1080469278771542D-01
        ws( 69) = 0.1255263902178031D-01
        ws( 70) = 0.1413938012478445D-01
        ws( 71) = 0.1540058726987121D-01
        ws( 72) = 0.1627150886039537D-01
        ws( 73) = 0.1678706206307391D-01
        ws( 74) = 0.1703306727066194D-01
        ws( 75) = 0.1710008747209280D-01
        ws( 76) = 0.1706139149383494D-01
        ws( 77) = 0.1696915989192242D-01
        ws( 78) = 0.1685825064504873D-01
        ws( 79) = 0.1675184613706074D-01
        ws( 80) = 0.1666519087482166D-01
        ws( 81) = 0.1669294895387469D-01
        ws( 82) = 0.1682525736475507D-01
        ws( 83) = 0.1606623859068325D-01
        endif
        if( idomain .eq.  112 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.2000000000000000D+00
        rk1r = 0.4084070449666731D+02
        rk1i = 0.4000000000000000D+00
        iquadtype =  2
        n =  87
        err = 0.4418992338295337D-13
        xs(  1) = 0.1177311126433924D-05
        xs(  2) = 0.6204738704900612D-05
        xs(  3) = 0.1525585194766402D-04
        xs(  4) = 0.2834373993107871D-04
        xs(  5) = 0.4548495701527537D-04
        xs(  6) = 0.6670141642570778D-04
        xs(  7) = 0.9202093918629795D-04
        xs(  8) = 0.1214777548375989D-03
        xs(  9) = 0.1551130444683242D-03
        xs( 10) = 0.1929755329599884D-03
        xs( 11) = 0.2351221273133240D-03
        xs( 12) = 0.2816185978676932D-03
        xs( 13) = 0.3325403012019156D-03
        xs( 14) = 0.3879729459599531D-03
        xs( 15) = 0.4480134053388986D-03
        xs( 16) = 0.5127705823570032D-03
        xs( 17) = 0.5823663362433022D-03
        xs( 18) = 0.6569364803726898D-03
        xs( 19) = 0.7366318641601610D-03
        xs( 20) = 0.8216195532954380D-03
        xs( 21) = 0.9120841247265752D-03
        xs( 22) = 0.1008229094978167D-02
        xs( 23) = 0.1110278502810749D-02
        xs( 24) = 0.1218478669992809D-02
        xs( 25) = 0.1333100167172205D-02
        xs( 26) = 0.1454440015616363D-02
        xs( 27) = 0.1582824160072866D-02
        xs( 28) = 0.1718610253336260D-02
        xs( 29) = 0.1862190799473629D-02
        xs( 30) = 0.2013996710278024D-02
        xs( 31) = 0.2174501338648759D-02
        xs( 32) = 0.2344225063565974D-02
        xs( 33) = 0.2523740514534034D-02
        xs( 34) = 0.2713678539314097D-02
        xs( 35) = 0.2914735038073438D-02
        xs( 36) = 0.3127678810531797D-02
        xs( 37) = 0.3353360591270110D-02
        xs( 38) = 0.3592723483335768D-02
        xs( 39) = 0.3846815043222836D-02
        xs( 40) = 0.4116801323260967D-02
        xs( 41) = 0.4403983243026691D-02
        xs( 42) = 0.4709815742970135D-02
        xs( 43) = 0.5035930275409813D-02
        xs( 44) = 0.5384161316101861D-02
        xs( 45) = 0.5756577741234280D-02
        xs( 46) = 0.6155520119831924D-02
        xs( 47) = 0.6583645233317704D-02
        xs( 48) = 0.7043979469912432D-02
        xs( 49) = 0.7539983175288431D-02
        xs( 50) = 0.8075628604355074D-02
        xs( 51) = 0.8655494855829674D-02
        xs( 52) = 0.9284884141111591D-02
        xs( 53) = 0.9969965024585239D-02
        xs( 54) = 0.1071794998894700D-01
        xs( 55) = 0.1153731698775889D-01
        xs( 56) = 0.1243808777581957D-01
        xs( 57) = 0.1343218007878890D-01
        xs( 58) = 0.1453385653594943D-01
        xs( 59) = 0.1576030147706663D-01
        xs( 60) = 0.1713236789788779D-01
        xs( 61) = 0.1867555275537993D-01
        xs( 62) = 0.2042128059933046D-01
        xs( 63) = 0.2240860557703054D-01
        xs( 64) = 0.2468648156515409D-01
        xs( 65) = 0.2731679822578803D-01
        xs( 66) = 0.3037842507080765D-01
        xs( 67) = 0.3397250100519721D-01
        xs( 68) = 0.3822901732288772D-01
        xs( 69) = 0.4331402465310360D-01
        xs( 70) = 0.4943487633657955D-01
        xs( 71) = 0.5683702852664578D-01
        xs( 72) = 0.6578070416741315D-01
        xs( 73) = 0.7648496278004512D-01
        xs( 74) = 0.8904316601365821D-01
        xs( 75) = 0.1033512583201131D+00
        xs( 76) = 0.1191100239625066D+00
        xs( 77) = 0.1359138717300298D+00
        xs( 78) = 0.1533648669707294D+00
        xs( 79) = 0.1711458012386310D+00
        xs( 80) = 0.1890387734546992D+00
        xs( 81) = 0.2069116866388748D+00
        xs( 82) = 0.2246958465515389D+00
        xs( 83) = 0.2423659457230630D+00
        xs( 84) = 0.2599270102694083D+00
        xs( 85) = 0.2774008013004045D+00
        xs( 86) = 0.2948013606610984D+00
        xs( 87) = 0.3119520177838744D+00
        ws(  1) = 0.3021537809694333D-05
        ws(  2) = 0.7037099070183200D-05
        ws(  3) = 0.1106715124378270D-04
        ws(  4) = 0.1511136822654119D-04
        ws(  5) = 0.1917470993771172D-04
        ws(  6) = 0.2326283747473034D-04
        ws(  7) = 0.2738190392252775D-04
        ws(  8) = 0.3153858101430251D-04
        ws(  9) = 0.3574010841380234D-04
        ws( 10) = 0.3999434171296939D-04
        ws( 11) = 0.4430979667154166D-04
        ws( 12) = 0.4869569111218901D-04
        ws( 13) = 0.5316198680341578D-04
        ws( 14) = 0.5771943384429230D-04
        ws( 15) = 0.6237962000167175D-04
        ws( 16) = 0.6715502730335855D-04
        ws( 17) = 0.7205909803436864D-04
        ws( 18) = 0.7710631216200381D-04
        ws( 19) = 0.8231227815565235D-04
        ws( 20) = 0.8769383918415508D-04
        ws( 21) = 0.9326919677765081D-04
        ws( 22) = 0.9905805423678524D-04
        ws( 23) = 0.1050817823649197D-03
        ws( 24) = 0.1113636104951030D-03
        ws( 25) = 0.1179288462901429D-03
        ws( 26) = 0.1248051284246217D-03
        ws( 27) = 0.1320227170297134D-03
        ws( 28) = 0.1396148277183048D-03
        ws( 29) = 0.1476180161425035D-03
        ws( 30) = 0.1560726214080775D-03
        ws( 31) = 0.1650232783352289D-03
        ws( 32) = 0.1745195105792497D-03
        ws( 33) = 0.1846164190948918D-03
        ws( 34) = 0.1953754834552259D-03
        ws( 35) = 0.2068654972587902D-03
        ws( 36) = 0.2191636634599679D-03
        ws( 37) = 0.2323568811652510D-03
        ws( 38) = 0.2465432625537787D-03
        ws( 39) = 0.2618339274894864D-03
        ws( 40) = 0.2783551346006472D-03
        ws( 41) = 0.2962508217694394D-03
        ws( 42) = 0.3156856469722325D-03
        ws( 43) = 0.3368486433943815D-03
        ws( 44) = 0.3599576322418340D-03
        ws( 45) = 0.3852645747526118D-03
        ws( 46) = 0.4130620943449398D-03
        ws( 47) = 0.4436914643822084D-03
        ws( 48) = 0.4775524418502236D-03
        ws( 49) = 0.5151154393815646D-03
        ws( 50) = 0.5569366773106990D-03
        ws( 51) = 0.6036771574782479D-03
        ws( 52) = 0.6561265704141713D-03
        ws( 53) = 0.7152336144499723D-03
        ws( 54) = 0.7821447076950529D-03
        ws( 55) = 0.8582537666302675D-03
        ws( 56) = 0.9452666874419406D-03
        ws( 57) = 0.1045285511227802D-02
        ws( 58) = 0.1160919144438607D-02
        ws( 59) = 0.1295430169448351D-02
        ws( 60) = 0.1452931029152349D-02
        ws( 61) = 0.1638648096699578D-02
        ws( 62) = 0.1859279250722423D-02
        ws( 63) = 0.2123479673354598D-02
        ws( 64) = 0.2442520470154236D-02
        ws( 65) = 0.2831169907675058D-02
        ws( 66) = 0.3308829408821316D-02
        ws( 67) = 0.3900862247036542D-02
        ws( 68) = 0.4639743551182335D-02
        ws( 69) = 0.5564854449053799D-02
        ws( 70) = 0.6718110657091482D-02
        ws( 71) = 0.8130493720242611D-02
        ws( 72) = 0.9794878583721156D-02
        ws( 73) = 0.1163057682565204D-01
        ws( 74) = 0.1346849664747037D-01
        ws( 75) = 0.1509615240793355D-01
        ws( 76) = 0.1635169377286262D-01
        ws( 77) = 0.1718844345186645D-01
        ws( 78) = 0.1766043948467206D-01
        ws( 79) = 0.1786539541366743D-01
        ws( 80) = 0.1789893634910054D-01
        ws( 81) = 0.1783578913460066D-01
        ws( 82) = 0.1772861055177102D-01
        ws( 83) = 0.1761258128765644D-01
        ws( 84) = 0.1751637436380543D-01
        ws( 85) = 0.1744411991068348D-01
        ws( 86) = 0.1753891687901265D-01
        ws( 87) = 0.1691767571958834D-01
        endif
        if( idomain .eq.  113 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.2000000000000000D+00
        rk1r = 0.4398229715025710D+02
        rk1i = 0.4000000000000000D+00
        iquadtype =  2
        n =  91
        err = 0.6862058803330526D-13
        xs(  1) = 0.1037220746156569D-05
        xs(  2) = 0.5466193140265403D-05
        xs(  3) = 0.1343892667741844D-04
        xs(  4) = 0.2496530119224091D-04
        xs(  5) = 0.4005747503631580D-04
        xs(  6) = 0.5873151058442519D-04
        xs(  7) = 0.8100780345599640D-04
        xs(  8) = 0.1069114584615801D-03
        xs(  9) = 0.1364726926733555D-03
        xs( 10) = 0.1697272720326846D-03
        xs( 11) = 0.2067169786756007D-03
        xs( 12) = 0.2474901056614727D-03
        xs( 13) = 0.2921019770655922D-03
        xs( 14) = 0.3406154930910847D-03
        xs( 15) = 0.3931017015913526D-03
        xs( 16) = 0.4496403990360603D-03
        xs( 17) = 0.5103207654555535D-03
        xs( 18) = 0.5752420392592609D-03
        xs( 19) = 0.6445142390676716D-03
        xs( 20) = 0.7182589408648814D-03
        xs( 21) = 0.7966101199174406D-03
        xs( 22) = 0.8797150680673236D-03
        xs( 23) = 0.9677353982456237D-03
        xs( 24) = 0.1060848149422925D-02
        xs( 25) = 0.1159247006767144D-02
        xs( 26) = 0.1263143653576501D-02
        xs( 27) = 0.1372769273654888D-02
        xs( 28) = 0.1488376225265716D-02
        xs( 29) = 0.1610239910713940D-02
        xs( 30) = 0.1738660869052050D-02
        xs( 31) = 0.1873967123487372D-02
        xs( 32) = 0.2016516819909888D-02
        xs( 33) = 0.2166701198711466D-02
        xs( 34) = 0.2324947948911500D-02
        xs( 35) = 0.2491725001765268D-02
        xs( 36) = 0.2667544830784922D-02
        xs( 37) = 0.2852969336790081D-02
        xs( 38) = 0.3048615410648956D-02
        xs( 39) = 0.3255161283298234D-02
        xs( 40) = 0.3473353793100580D-02
        xs( 41) = 0.3704016725441189D-02
        xs( 42) = 0.3948060409722363D-02
        xs( 43) = 0.4206492795913065D-02
        xs( 44) = 0.4480432278231203D-02
        xs( 45) = 0.4771122589535441D-02
        xs( 46) = 0.5079950159346287D-02
        xs( 47) = 0.5408464414678624D-02
        xs( 48) = 0.5758401610694851D-02
        xs( 49) = 0.6131712913634574D-02
        xs( 50) = 0.6530597629517411D-02
        xs( 51) = 0.6957542689261581D-02
        xs( 52) = 0.7415369778113842D-02
        xs( 53) = 0.7907291853373266D-02
        xs( 54) = 0.8436981254555756D-02
        xs( 55) = 0.9008652208645574D-02
        xs( 56) = 0.9627161316758226D-02
        xs( 57) = 0.1029813064190781D-01
        xs( 58) = 0.1102809939019898D-01
        xs( 59) = 0.1182471201491559D-01
        xs( 60) = 0.1269695305124308D-01
        xs( 61) = 0.1365544235941530D-01
        xs( 62) = 0.1471280907384206D-01
        xs( 63) = 0.1588416893887190D-01
        xs( 64) = 0.1718773859520017D-01
        xs( 65) = 0.1864563281648616D-01
        xs( 66) = 0.2028490815599684D-01
        xs( 67) = 0.2213894091884461D-01
        xs( 68) = 0.2424926117230833D-01
        xs( 69) = 0.2666800951634709D-01
        xs( 70) = 0.2946123783622438D-01
        xs( 71) = 0.3271332421328379D-01
        xs( 72) = 0.3653275913025372D-01
        xs( 73) = 0.4105931661056483D-01
        xs( 74) = 0.4647173691738450D-01
        xs( 75) = 0.5299274933189942D-01
        xs( 76) = 0.6088379637394419D-01
        xs( 77) = 0.7041639273807852D-01
        xs( 78) = 0.8180804455448552D-01
        xs( 79) = 0.9513191388079079D-01
        xs( 80) = 0.1102495492503567D+00
        xs( 81) = 0.1268273822648855D+00
        xs( 82) = 0.1444374287261575D+00
        xs( 83) = 0.1626727203717078D+00
        xs( 84) = 0.1812153636095515D+00
        xs( 85) = 0.1998503038029062D+00
        xs( 86) = 0.2184492776089611D+00
        xs( 87) = 0.2369471860088229D+00
        xs( 88) = 0.2553220082600298D+00
        xs( 89) = 0.2735686840542567D+00
        xs( 90) = 0.2916923258956069D+00
        xs( 91) = 0.3092496007970207D+00
        ws(  1) = 0.2661973077825936D-05
        ws(  2) = 0.6199152480104295D-05
        ws(  3) = 0.9747822817025044D-05
        ws(  4) = 0.1330693961400242D-04
        ws(  5) = 0.1688007881354985D-04
        ws(  6) = 0.2047138537608906D-04
        ws(  7) = 0.2408537778793446D-04
        ws(  8) = 0.2772696111636640D-04
        ws(  9) = 0.3140146050027157D-04
        ws( 10) = 0.3511465365727031D-04
        ws( 11) = 0.3887279980275512D-04
        ws( 12) = 0.4268266576636048D-04
        ws( 13) = 0.4655155089097197D-04
        ws( 14) = 0.5048731246366912D-04
        ws( 15) = 0.5449839338015611D-04
        ws( 16) = 0.5859385361770610D-04
        ws( 17) = 0.6278340694544224D-04
        ws( 18) = 0.6707746416866029D-04
        ws( 19) = 0.7148718410542240D-04
        ws( 20) = 0.7602453344002521D-04
        ws( 21) = 0.8070235659492034D-04
        ws( 22) = 0.8553445681259781D-04
        ws( 23) = 0.9053568974246253D-04
        ws( 24) = 0.9572207098554054D-04
        ws( 25) = 0.1011108992631605D-03
        ws( 26) = 0.1067208971473576D-03
        ws( 27) = 0.1125723716254997D-03
        ws( 28) = 0.1186873971767651D-03
        ws( 29) = 0.1250900245246642D-03
        ws( 30) = 0.1318065188106254D-03
        ws( 31) = 0.1388656316275446D-03
        ws( 32) = 0.1462989121828773D-03
        ws( 33) = 0.1541410638553017D-03
        ws( 34) = 0.1624303536065517D-03
        ws( 35) = 0.1712090831549856D-03
        ws( 36) = 0.1805241325681049D-03
        ws( 37) = 0.1904275890611907D-03
        ws( 38) = 0.2009774763900679D-03
        ws( 39) = 0.2122386034138597D-03
        ws( 40) = 0.2242835543307619D-03
        ws( 41) = 0.2371938479412784D-03
        ws( 42) = 0.2510612993197124D-03
        ws( 43) = 0.2659896247870278D-03
        ws( 44) = 0.2820963404911246D-03
        ws( 45) = 0.2995150167437204D-03
        ws( 46) = 0.3183979652424112D-03
        ws( 47) = 0.3389194553431752D-03
        ws( 48) = 0.3612795798716831D-03
        ws( 49) = 0.3857089221994399D-03
        ws( 50) = 0.4124742166737701D-03
        ws( 51) = 0.4418852469209329D-03
        ws( 52) = 0.4743032950981043D-03
        ws( 53) = 0.5101515453607311D-03
        ws( 54) = 0.5499279642577567D-03
        ws( 55) = 0.5942213400649995D-03
        ws( 56) = 0.6437313770352429D-03
        ws( 57) = 0.6992940300756624D-03
        ws( 58) = 0.7619136602232771D-03
        ws( 59) = 0.8328041339032324D-03
        ws( 60) = 0.9134417407658097D-03
        ws( 61) = 0.1005633854252579D-02
        ws( 62) = 0.1111608734785698D-02
        ws( 63) = 0.1234133963133385D-02
        ws( 64) = 0.1376673956629110D-02
        ws( 65) = 0.1543601230440044D-02
        ws( 66) = 0.1740481991705054D-02
        ws( 67) = 0.1974464792188231D-02
        ws( 68) = 0.2254811463031885D-02
        ws( 69) = 0.2593620977350693D-02
        ws( 70) = 0.3006802497108287D-02
        ws( 71) = 0.3515330945933515D-02
        ws( 72) = 0.4146699920493970D-02
        ws( 73) = 0.4936104009518482D-02
        ws( 74) = 0.5925913206731000D-02
        ws( 75) = 0.7160125388571225D-02
        ws( 76) = 0.8668298887851717D-02
        ws( 77) = 0.1043477743243511D-01
        ws( 78) = 0.1236202580397348D-01
        ws( 79) = 0.1426237143178260D-01
        ws( 80) = 0.1591541574912206D-01
        ws( 81) = 0.1716682622137489D-01
        ws( 82) = 0.1798430482942033D-01
        ws( 83) = 0.1843314032846987D-01
        ws( 84) = 0.1861662709399018D-01
        ws( 85) = 0.1863229278989367D-01
        ws( 86) = 0.1855517208280728D-01
        ws( 87) = 0.1843722943225302D-01
        ws( 88) = 0.1831719915243295D-01
        ws( 89) = 0.1818957767035370D-01
        ws( 90) = 0.1812747667350866D-01
        ws( 91) = 0.1723560022181030D-01
        endif
        if( idomain .eq.  114 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.2000000000000000D+00
        rk1r = 0.4712388980384689D+02
        rk1i = 0.4000000000000000D+00
        iquadtype =  2
        n =  95
        err = 0.7420391342777688D-13
        xs(  1) = 0.9232941680096252D-06
        xs(  2) = 0.4865609297224364D-05
        xs(  3) = 0.1196153268306516D-04
        xs(  4) = 0.2221854040882040D-04
        xs(  5) = 0.3564552732022553D-04
        xs(  6) = 0.5225422904706305D-04
        xs(  7) = 0.7205957222423730D-04
        xs(  8) = 0.9507997078784278D-04
        xs(  9) = 0.1213376401999566D-03
        xs( 10) = 0.1508589354153070D-03
        xs( 11) = 0.1836747099608868D-03
        xs( 12) = 0.2198206928127531D-03
        xs( 13) = 0.2593378806394296D-03
        xs( 14) = 0.3022729442458258D-03
        xs( 15) = 0.3486786493626938D-03
        xs( 16) = 0.3986142931625544D-03
        xs( 17) = 0.4521461589969307D-03
        xs( 18) = 0.5093479928320235D-03
        xs( 19) = 0.5703015057224646D-03
        xs( 20) = 0.6350969074300104D-03
        xs( 21) = 0.7038334769974586D-03
        xs( 22) = 0.7766201767617456D-03
        xs( 23) = 0.8535763169691580D-03
        xs( 24) = 0.9348322788735529D-03
        xs( 25) = 0.1020530304988786D-02
        xs( 26) = 0.1110825366061243D-02
        xs( 27) = 0.1205886115359536D-02
        xs( 28) = 0.1305895942079615D-02
        xs( 29) = 0.1411054137070147D-02
        xs( 30) = 0.1521577185734482D-02
        xs( 31) = 0.1637700204906629D-02
        xs( 32) = 0.1759678542781249D-02
        xs( 33) = 0.1887789563663665D-02
        xs( 34) = 0.2022334642468126D-02
        xs( 35) = 0.2163641397619280D-02
        xs( 36) = 0.2312066195409938D-02
        xs( 37) = 0.2467996964067244D-02
        xs( 38) = 0.2631856361937107D-02
        xs( 39) = 0.2804105351506761D-02
        xs( 40) = 0.2985247239686129D-02
        xs( 41) = 0.3175832255151115D-02
        xs( 42) = 0.3376462745980256D-02
        xs( 43) = 0.3587799095738928D-02
        xs( 44) = 0.3810566474142496D-02
        xs( 45) = 0.4045562560161685D-02
        xs( 46) = 0.4293666401803104D-02
        xs( 47) = 0.4555848608910079D-02
        xs( 48) = 0.4833183114597063D-02
        xs( 49) = 0.5126860789141876D-02
        xs( 50) = 0.5438205249609192D-02
        xs( 51) = 0.5768691282108269D-02
        xs( 52) = 0.6119966385215767D-02
        xs( 53) = 0.6493876057665895D-02
        xs( 54) = 0.6892493597398169D-02
        xs( 55) = 0.7318155360981567D-02
        xs( 56) = 0.7773502663552376D-02
        xs( 57) = 0.8261531794737898D-02
        xs( 58) = 0.8785654005706439D-02
        xs( 59) = 0.9349767813672789D-02
        xs( 60) = 0.9958346609911857D-02
        xs( 61) = 0.1061654539633302D-01
        xs( 62) = 0.1133033158411776D-01
        xs( 63) = 0.1210664626372069D-01
        xs( 64) = 0.1295360433621013D-01
        xs( 65) = 0.1388074457686383D-01
        xs( 66) = 0.1489934436226077D-01
        xs( 67) = 0.1602281883479067D-01
        xs( 68) = 0.1726723128753541D-01
        xs( 69) = 0.1865195137873588D-01
        xs( 70) = 0.2020051166324382D-01
        xs( 71) = 0.2194173262769262D-01
        xs( 72) = 0.2391121437891086D-01
        xs( 73) = 0.2615333240801868D-01
        xs( 74) = 0.2872392820491606D-01
        xs( 75) = 0.3169395173577399D-01
        xs( 76) = 0.3515437426562848D-01
        xs( 77) = 0.3922267533146977D-01
        xs( 78) = 0.4405090065662122D-01
        xs( 79) = 0.4983417246396596D-01
        xs( 80) = 0.5681571442669714D-01
        xs( 81) = 0.6527921741246250D-01
        xs( 82) = 0.7551365701413673D-01
        xs( 83) = 0.8773877218741723D-01
        xs( 84) = 0.1020062371036153D+00
        xs( 85) = 0.1181351420777048D+00
        xs( 86) = 0.1357441165353591D+00
        xs( 87) = 0.1543692870917987D+00
        xs( 88) = 0.1735868946302173D+00
        xs( 89) = 0.1930783272525908D+00
        xs( 90) = 0.2126377360891563D+00
        xs( 91) = 0.2321517550182626D+00
        xs( 92) = 0.2515758204099684D+00
        xs( 93) = 0.2709078642783375D+00
        xs( 94) = 0.2902081124876800D+00
        xs( 95) = 0.3093704984955839D+00
        ws(  1) = 0.2369565199444654D-05
        ws(  2) = 0.5517775525993840D-05
        ws(  3) = 0.8675194339917005D-05
        ws(  4) = 0.1184029243910236D-04
        ws(  5) = 0.1501563222537662D-04
        ws(  6) = 0.1820425414270626D-04
        ws(  7) = 0.2140949596741416D-04
        ws(  8) = 0.2463499809595058D-04
        ws(  9) = 0.2788472722773876D-04
        ws( 10) = 0.3116299917027644D-04
        ws( 11) = 0.3447449821005094D-04
        ws( 12) = 0.3782429349808692D-04
        ws( 13) = 0.4121785361293389D-04
        ws( 14) = 0.4466106061904550D-04
        ws( 15) = 0.4816022490615139D-04
        ws( 16) = 0.5172210198859859D-04
        ws( 17) = 0.5535391231214211D-04
        ws( 18) = 0.5906336498735159D-04
        ws( 19) = 0.6285868625969251D-04
        ws( 20) = 0.6674865344602088D-04
        ws( 21) = 0.7074263502018359D-04
        ws( 22) = 0.7485063751840270D-04
        ws( 23) = 0.7908335995724319D-04
        ws( 24) = 0.8345225651281616D-04
        ws( 25) = 0.8796960829856459D-04
        ws( 26) = 0.9264860519903848D-04
        ws( 27) = 0.9750343887004217D-04
        ws( 28) = 0.1025494082030563D-03
        ws( 29) = 0.1078030387759005D-03
        ws( 30) = 0.1132822180779058D-03
        ws( 31) = 0.1190063486121296D-03
        ws( 32) = 0.1249965213476545D-03
        ws( 33) = 0.1312757124329093D-03
        ws( 34) = 0.1378690065981883D-03
        ws( 35) = 0.1448038512904360D-03
        ws( 36) = 0.1521103463149236D-03
        ws( 37) = 0.1598215746334952D-03
        ws( 38) = 0.1679739810171837D-03
        ws( 39) = 0.1766078065152454D-03
        ws( 40) = 0.1857675882280247D-03
        ws( 41) = 0.1955027357219968D-03
        ws( 42) = 0.2058681976792117D-03
        ws( 43) = 0.2169252351277207D-03
        ws( 44) = 0.2287423209761914D-03
        ws( 45) = 0.2413961897407561D-03
        ws( 46) = 0.2549730664967423D-03
        ws( 47) = 0.2695701104831765D-03
        ws( 48) = 0.2852971167622645D-03
        ws( 49) = 0.3022785293356410D-03
        ws( 50) = 0.3206558316988811D-03
        ws( 51) = 0.3405903967454026D-03
        ws( 52) = 0.3622668981815129D-03
        ws( 53) = 0.3858974115029717D-03
        ws( 54) = 0.4117263658708434D-03
        ws( 55) = 0.4400365512600465D-03
        ws( 56) = 0.4711564412304837D-03
        ws( 57) = 0.5054691649587490D-03
        ws( 58) = 0.5434235587162866D-03
        ws( 59) = 0.5855478550892950D-03
        ws( 60) = 0.6324667394605185D-03
        ws( 61) = 0.6849227337826879D-03
        ws( 62) = 0.7438031806530527D-03
        ws( 63) = 0.8101745288759653D-03
        ws( 64) = 0.8853262128503082D-03
        ws( 65) = 0.9708272411567340D-03
        ws( 66) = 0.1068599765882233D-02
        ws( 67) = 0.1181015542399571D-02
        ws( 68) = 0.1311023527821732D-02
        ws( 69) = 0.1462320225682030D-02
        ws( 70) = 0.1639579217714380D-02
        ws( 71) = 0.1848763247811831D-02
        ws( 72) = 0.2097551936915669D-02
        ws( 73) = 0.2395931107617141D-02
        ws( 74) = 0.2757004417887378D-02
        ws( 75) = 0.3198096684370868D-02
        ws( 76) = 0.3742192000632564D-02
        ws( 77) = 0.4419600970974836D-02
        ws( 78) = 0.5269265201117158D-02
        ws( 79) = 0.6337904814639410D-02
        ws( 80) = 0.7673008696263625D-02
        ws( 81) = 0.9303425688693388D-02
        ws( 82) = 0.1120387877620870D-01
        ws( 83) = 0.1325623162675956D-01
        ws( 84) = 0.1524798612975169D-01
        ws( 85) = 0.1694405126928551D-01
        ws( 86) = 0.1819437527285871D-01
        ws( 87) = 0.1898427735786616D-01
        ws( 88) = 0.1939779401281639D-01
        ws( 89) = 0.1955114992852155D-01
        ws( 90) = 0.1954917621977333D-01
        ws( 91) = 0.1947188378246613D-01
        ws( 92) = 0.1937865961976107D-01
        ws( 93) = 0.1932714124238228D-01
        ws( 94) = 0.1924099613794486D-01
        ws( 95) = 0.2048877012280942D-01
        endif
        if( idomain .eq.  115 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.2000000000000000D+00
        rk1r = 0.5026548245743669D+02
        rk1i = 0.4000000000000000D+00
        iquadtype =  2
        n = 100
        err = 0.4679436936312358D-13
        xs(  1) = 0.8198522931320974D-06
        xs(  2) = 0.4320388180036434D-05
        xs(  3) = 0.1062072756226012D-04
        xs(  4) = 0.1972679472235955D-04
        xs(  5) = 0.3164542660586501D-04
        xs(  6) = 0.4638560472847538D-04
        xs(  7) = 0.6395872807649104D-04
        xs(  8) = 0.8437883218177871D-04
        xs(  9) = 0.1076628194321559D-03
        xs( 10) = 0.1338307068232938D-03
        xs( 11) = 0.1629058895584069D-03
        xs( 12) = 0.1949154179414539D-03
        xs( 13) = 0.2298902854357262D-03
        xs( 14) = 0.2678657265416928D-03
        xs( 15) = 0.3088815240075720D-03
        xs( 16) = 0.3529823257218250D-03
        xs( 17) = 0.4002179724057843D-03
        xs( 18) = 0.4506438379112375D-03
        xs( 19) = 0.5043211845318995D-03
        xs( 20) = 0.5613175362690028D-03
        xs( 21) = 0.6217070734651045D-03
        xs( 22) = 0.6855710526551197D-03
        xs( 23) = 0.7529982558992743D-03
        xs( 24) = 0.8240854742788241D-03
        xs( 25) = 0.8989380306713617D-03
        xs( 26) = 0.9776703473968636D-03
        xs( 27) = 0.1060406564856356D-02
        xs( 28) = 0.1147281217890013D-02
        xs( 29) = 0.1238439977278902D-02
        xs( 30) = 0.1334040464623424D-02
        xs( 31) = 0.1434253149772617D-02
        xs( 32) = 0.1539262341074870D-02
        xs( 33) = 0.1649267279998620D-02
        xs( 34) = 0.1764483353162107D-02
        xs( 35) = 0.1885143436549752D-02
        xs( 36) = 0.2011499388722099D-02
        xs( 37) = 0.2143823712197292D-02
        xs( 38) = 0.2282411404955398D-02
        xs( 39) = 0.2427582027265919D-02
        xs( 40) = 0.2579682012851785D-02
        xs( 41) = 0.2739087257887171D-02
        xs( 42) = 0.2906206026611043D-02
        xs( 43) = 0.3081482218582634D-02
        xs( 44) = 0.3265399050001413D-02
        xs( 45) = 0.3458483210300615D-02
        xs( 46) = 0.3661309565691455D-02
        xs( 47) = 0.3874506493845411D-02
        xs( 48) = 0.4098761948900532D-02
        xs( 49) = 0.4334830374021049D-02
        xs( 50) = 0.4583540600520646D-02
        xs( 51) = 0.4845804898950278D-02
        xs( 52) = 0.5122629379646369D-02
        xs( 53) = 0.5415125979424848D-02
        xs( 54) = 0.5724526319151758D-02
        xs( 55) = 0.6052197776079317D-02
        xs( 56) = 0.6399662187999951D-02
        xs( 57) = 0.6768617697176051D-02
        xs( 58) = 0.7160964355503385D-02
        xs( 59) = 0.7578834254789415D-02
        xs( 60) = 0.8024627125696886D-02
        xs( 61) = 0.8501052576810775D-02
        xs( 62) = 0.9011180436067049D-02
        xs( 63) = 0.9558501030035327D-02
        xs( 64) = 0.1014699771874245D-01
        xs( 65) = 0.1078123463083056D-01
        xs( 66) = 0.1146646336520683D-01
        xs( 67) = 0.1220875350910447D-01
        xs( 68) = 0.1301515326366900D-01
        xs( 69) = 0.1389388840034610D-01
        xs( 70) = 0.1485461038383156D-01
        xs( 71) = 0.1590870806075881D-01
        xs( 72) = 0.1706970221721983D-01
        xs( 73) = 0.1835374911624801D-01
        xs( 74) = 0.1978028865507213D-01
        xs( 75) = 0.2137288620777451D-01
        xs( 76) = 0.2316033620430039D-01
        xs( 77) = 0.2517812227518447D-01
        xs( 78) = 0.2747036599828621D-01
        xs( 79) = 0.3009244586566584D-01
        xs( 80) = 0.3311452729274446D-01
        xs( 81) = 0.3662629348284554D-01
        xs( 82) = 0.4074313566316760D-01
        xs( 83) = 0.4561375682282285D-01
        xs( 84) = 0.5142813532818174D-01
        xs( 85) = 0.5842236377278284D-01
        xs( 86) = 0.6687246778306169D-01
        xs( 87) = 0.7706436253540708D-01
        xs( 88) = 0.8922857030528340D-01
        xs( 89) = 0.1034487353176758D+00
        xs( 90) = 0.1195913007786449D+00
        xs( 91) = 0.1373168037519953D+00
        xs( 92) = 0.1561784530543904D+00
        xs( 93) = 0.1757426103040595D+00
        xs( 94) = 0.1956652848264288D+00
        xs( 95) = 0.2157119460920046D+00
        xs( 96) = 0.2357435477767209D+00
        xs( 97) = 0.2556925774446521D+00
        xs( 98) = 0.2755414083392753D+00
        xs( 99) = 0.2952249240385229D+00
        xs(100) = 0.3146716789564780D+00
        ws(  1) = 0.2104078086096810D-05
        ws(  2) = 0.4899335820586348D-05
        ws(  3) = 0.7702221548858073D-05
        ws(  4) = 0.1051104288075480D-04
        ws(  5) = 0.1332771391789345D-04
        ws(  6) = 0.1615453858138037D-04
        ws(  7) = 0.1899404353708406D-04
        ws(  8) = 0.2184897760353167D-04
        ws(  9) = 0.2472232866337506D-04
        ws( 10) = 0.2761734069937435D-04
        ws( 11) = 0.3053752835064087D-04
        ws( 12) = 0.3348668902689358D-04
        ws( 13) = 0.3646891325907981D-04
        ws( 14) = 0.3948859413204393D-04
        ws( 15) = 0.4255043665724567D-04
        ws( 16) = 0.4565946789228739D-04
        ws( 17) = 0.4882104853609363D-04
        ws( 18) = 0.5204088664414934D-04
        ws( 19) = 0.5532505402932283D-04
        ws( 20) = 0.5868000584794725D-04
        ws( 21) = 0.6211260382232906D-04
        ws( 22) = 0.6563014352164350D-04
        ws( 23) = 0.6924038611390939D-04
        ws( 24) = 0.7295159501190325D-04
        ws( 25) = 0.7677257786516914D-04
        ws( 26) = 0.8071273439766865D-04
        ws( 27) = 0.8478211065586783D-04
        ws( 28) = 0.8899146031543176D-04
        ws( 29) = 0.9335231379630438D-04
        ws( 30) = 0.9787705605748074D-04
        ws( 31) = 0.1025790140862400D-03
        ws( 32) = 0.1074725552642440D-03
        ws( 33) = 0.1125731979892382D-03
        ws( 34) = 0.1178977361604776D-03
        ws( 35) = 0.1234643794039549D-03
        ws( 36) = 0.1292929112284696D-03
        ws( 37) = 0.1354048676736166D-03
        ws( 38) = 0.1418237394475537D-03
        ws( 39) = 0.1485752010693050D-03
        ws( 40) = 0.1556873711446487D-03
        ws( 41) = 0.1631911086359601D-03
        ws( 42) = 0.1711203508613984D-03
        ws( 43) = 0.1795125000083245D-03
        ws( 44) = 0.1884088662085035D-03
        ws( 45) = 0.1978551767486898D-03
        ws( 46) = 0.2079021628391127D-03
        ws( 47) = 0.2186062376116406D-03
        ws( 48) = 0.2300302817654905D-03
        ws( 49) = 0.2422445566437982D-03
        ws( 50) = 0.2553277686648120D-03
        ws( 51) = 0.2693683141458536D-03
        ws( 52) = 0.2844657399027594D-03
        ws( 53) = 0.3007324629122941D-03
        ws( 54) = 0.3182958022148880D-03
        ws( 55) = 0.3373003886751334D-03
        ws( 56) = 0.3579110339279850D-03
        ws( 57) = 0.3803161597965338D-03
        ws( 58) = 0.4047319149415711D-03
        ws( 59) = 0.4314071382057801D-03
        ws( 60) = 0.4606293703438237D-03
        ws( 61) = 0.4927321706803252D-03
        ws( 62) = 0.5281040669490740D-03
        ws( 63) = 0.5671995609374575D-03
        ws( 64) = 0.6105527376312733D-03
        ws( 65) = 0.6587941925163976D-03
        ws( 66) = 0.7126722163301600D-03
        ws( 67) = 0.7730794811467036D-03
        ws( 68) = 0.8410868882714756D-03
        ws( 69) = 0.9179868129426012D-03
        ws( 70) = 0.1005348780290423D-02
        ws( 71) = 0.1105091728966934D-02
        ws( 72) = 0.1219578606500271D-02
        ws( 73) = 0.1351741302688895D-02
        ws( 74) = 0.1505247165951564D-02
        ws( 75) = 0.1684722984583257D-02
        ws( 76) = 0.1896058895413566D-02
        ws( 77) = 0.2146823767590369D-02
        ws( 78) = 0.2446835307624873D-02
        ws( 79) = 0.2808940522050482D-02
        ws( 80) = 0.3250066505890909D-02
        ws( 81) = 0.3792569065058860D-02
        ws( 82) = 0.4465759000972191D-02
        ws( 83) = 0.5307047544759824D-02
        ws( 84) = 0.6361128801096775D-02
        ws( 85) = 0.7673798008214380D-02
        ws( 86) = 0.9275160827205973D-02
        ws( 87) = 0.1114869463009900D-01
        ws( 88) = 0.1319501473117951D-01
        ws( 89) = 0.1522289257475918D-01
        ws( 90) = 0.1700382197150037D-01
        ws( 91) = 0.1837052801369726D-01
        ws( 92) = 0.1927920621815245D-01
        ws( 93) = 0.1979151657728272D-01
        ws( 94) = 0.2001502977955411D-01
        ws( 95) = 0.2005560069231284D-01
        ws( 96) = 0.1999744335466718D-01
        ws( 97) = 0.1989939128836693D-01
        ws( 98) = 0.1982858106914763D-01
        ws( 99) = 0.1959256823901171D-01
        ws(100) = 0.1809329037352973D-01
        endif
        if( idomain .eq.  116 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.4000000000000000D+00
        rk1r = 0.2000000000000000D-01
        rk1i = 0.1000000000000000D+01
        iquadtype =  2
        n =  41
        err = 0.5541427777709135D-13
        xs(  1) = 0.1872202462046796D-03
        xs(  2) = 0.9876763966646127D-03
        xs(  3) = 0.2429862970970382D-02
        xs(  4) = 0.4509225891800755D-02
        xs(  5) = 0.7208412850639384D-02
        xs(  6) = 0.1049759352979697D-01
        xs(  7) = 0.1433863885087231D-01
        xs(  8) = 0.1868999015482125D-01
        xs(  9) = 0.2351030330203540D-01
        xs( 10) = 0.2876053202396605D-01
        xs( 11) = 0.3440483038432711D-01
        xs( 12) = 0.4041075306515898D-01
        xs( 13) = 0.4674910909542627D-01
        xs( 14) = 0.5339368136728174D-01
        xs( 15) = 0.6032092053126422D-01
        xs( 16) = 0.6750965988598551D-01
        xs( 17) = 0.7494086554699736D-01
        xs( 18) = 0.8259742166310638D-01
        xs( 19) = 0.9046394541039411D-01
        xs( 20) = 0.9852662594591667D-01
        xs( 21) = 0.1067730824944916D+00
        xs( 22) = 0.1151922383630303D+00
        xs( 23) = 0.1237742084414374D+00
        xs( 24) = 0.1325101994880148D+00
        xs( 25) = 0.1413924218277928D+00
        xs( 26) = 0.1504140121390898D+00
        xs( 27) = 0.1595689711080353D+00
        xs( 28) = 0.1688520992719251D+00
        xs( 29) = 0.1782589776349164D+00
        xs( 30) = 0.1877859242620649D+00
        xs( 31) = 0.1974299677834772D+00
        xs( 32) = 0.2071887395724114D+00
        xs( 33) = 0.2170606475062439D+00
        xs( 34) = 0.2270461181858113D+00
        xs( 35) = 0.2371437136322241D+00
        xs( 36) = 0.2473541266189838D+00
        xs( 37) = 0.2577002616685162D+00
        xs( 38) = 0.2681154300043415D+00
        xs( 39) = 0.2784492496395935D+00
        xs( 40) = 0.2899698382542292D+00
        xs( 41) = 0.3113028583675380D+00
        ws(  1) = 0.4806385844779319D-03
        ws(  2) = 0.1121176219907050D-02
        ws(  3) = 0.1762519691518995D-02
        ws(  4) = 0.2393304743124219D-02
        ws(  5) = 0.3000018654138126D-02
        ws(  6) = 0.3571902277628947D-02
        ws(  7) = 0.4103200817427229D-02
        ws(  8) = 0.4592577522662414D-02
        ws(  9) = 0.5041527229194996D-02
        ws( 10) = 0.5452953398646441D-02
        ws( 11) = 0.5830238693435828D-02
        ws( 12) = 0.6176746422396527D-02
        ws( 13) = 0.6495601321235017D-02
        ws( 14) = 0.6789623110112443D-02
        ws( 15) = 0.7061331594067169D-02
        ws( 16) = 0.7312978366872919D-02
        ws( 17) = 0.7546583381677679D-02
        ws( 18) = 0.7763967718375481D-02
        ws( 19) = 0.7966780330131118D-02
        ws( 20) = 0.8156519377741579D-02
        ws( 21) = 0.8334549471047767D-02
        ws( 22) = 0.8502116374129049D-02
        ws( 23) = 0.8660359680806914D-02
        ws( 24) = 0.8810325577884430D-02
        ws( 25) = 0.8952976278846338D-02
        ws( 26) = 0.9089205627191878D-02
        ws( 27) = 0.9219847461498856D-02
        ws( 28) = 0.9345675174913344D-02
        ws( 29) = 0.9467447794998415D-02
        ws( 30) = 0.9585869276389844D-02
        ws( 31) = 0.9701928573535058D-02
        ws( 32) = 0.9816124410801876D-02
        ws( 33) = 0.9928446768602210D-02
        ws( 34) = 0.1003774869111849D-01
        ws( 35) = 0.1014788946894623D-01
        ws( 36) = 0.1028437181281751D-01
        ws( 37) = 0.1043163118069629D-01
        ws( 38) = 0.1040880121573541D-01
        ws( 39) = 0.1091194850910761D-01
        ws( 40) = 0.1156404901538895D-01
        ws( 41) = 0.3797158368795131D-01
        endif
        if( idomain .eq.  117 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.4000000000000000D+00
        rk1r = 0.4000000000000000D-01
        rk1i = 0.1000000000000000D+01
        iquadtype =  2
        n =  41
        err = 0.9302681546691245D-13
        xs(  1) = 0.1799096692947674D-03
        xs(  2) = 0.9502654854614989D-03
        xs(  3) = 0.2342637678048327D-02
        xs(  4) = 0.4358960475582781D-02
        xs(  5) = 0.6989071993774986D-02
        xs(  6) = 0.1020932414567011D-01
        xs(  7) = 0.1398588986650733D-01
        xs(  8) = 0.1827964594674804D-01
        xs(  9) = 0.2305027605707579D-01
        xs( 10) = 0.2825886756893923D-01
        xs( 11) = 0.3386921046761497D-01
        xs( 12) = 0.3984825425323840D-01
        xs( 13) = 0.4616611133857230D-01
        xs( 14) = 0.5279585817957347D-01
        xs( 15) = 0.5971327153981863D-01
        xs( 16) = 0.6689656418186833D-01
        xs( 17) = 0.7432614405518966D-01
        xs( 18) = 0.8198440191319470D-01
        xs( 19) = 0.8985552487410234D-01
        xs( 20) = 0.9792533167821284D-01
        xs( 21) = 0.1061811259064450D+00
        xs( 22) = 0.1146115644982709D+00
        xs( 23) = 0.1232065399073310D+00
        xs( 24) = 0.1319570749866048D+00
        xs( 25) = 0.1408552300421043D+00
        xs( 26) = 0.1498940221165146D+00
        xs( 27) = 0.1590673563347930D+00
        xs( 28) = 0.1683699628806144D+00
        xs( 29) = 0.1777973592610937D+00
        xs( 30) = 0.1873458106795571D+00
        xs( 31) = 0.1970123259888846D+00
        xs( 32) = 0.2067947777391532D+00
        xs( 33) = 0.2166920560314048D+00
        xs( 34) = 0.2267032923574950D+00
        xs( 35) = 0.2368229652812375D+00
        xs( 36) = 0.2470483384858487D+00
        xs( 37) = 0.2574002991973687D+00
        xs( 38) = 0.2679262551623861D+00
        xs( 39) = 0.2787631478314298D+00
        xs( 40) = 0.2893919778472616D+00
        xs( 41) = 0.2993860277214957D+00
        ws(  1) = 0.4620049636917357D-03
        ws(  2) = 0.1080292805678958D-02
        ws(  3) = 0.1704887269275460D-02
        ws(  4) = 0.2326086159171427D-02
        ws(  5) = 0.2930131152167532D-02
        ws(  6) = 0.3504648193953338D-02
        ws(  7) = 0.4041892986115992D-02
        ws(  8) = 0.4538857286964941D-02
        ws(  9) = 0.4995897042362950D-02
        ws( 10) = 0.5415244305165481D-02
        ws( 11) = 0.5799933602907978D-02
        ws( 12) = 0.6153176327882273D-02
        ws( 13) = 0.6478055120987044D-02
        ws( 14) = 0.6777405809255681D-02
        ws( 15) = 0.7053793725804695D-02
        ws( 16) = 0.7309529748261137D-02
        ws( 17) = 0.7546698220523284D-02
        ws( 18) = 0.7767184752948925D-02
        ws( 19) = 0.7972700065280225D-02
        ws( 20) = 0.8164799654938179D-02
        ws( 21) = 0.8344900238380464D-02
        ws( 22) = 0.8514294125230984D-02
        ws( 23) = 0.8674162196878462D-02
        ws( 24) = 0.8825586267004155D-02
        ws( 25) = 0.8969560403540352D-02
        ws( 26) = 0.9107005559163805D-02
        ws( 27) = 0.9238781906760619D-02
        ws( 28) = 0.9365703624651190D-02
        ws( 29) = 0.9488541756563365D-02
        ws( 30) = 0.9607921419890779D-02
        ws( 31) = 0.9724378401922130D-02
        ws( 32) = 0.9838698128449815D-02
        ws( 33) = 0.9953673899195466D-02
        ws( 34) = 0.1007492589701222D-01
        ws( 35) = 0.1020394176844572D-01
        ws( 36) = 0.1030893712904180D-01
        ws( 37) = 0.1022737267058038D-01
        ws( 38) = 0.9987751636228691D-02
        ws( 39) = 0.1092061214479891D-01
        ws( 40) = 0.1397668919504013D-01
        ws( 41) = 0.1689730826220464D-01
        endif
        if( idomain .eq.  118 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.4000000000000000D+00
        rk1r = 0.1000000000000000D+00
        rk1i = 0.1000000000000000D+01
        iquadtype =  2
        n =  41
        err = 0.7341064608528518D-13
        xs(  1) = 0.1716378185826807D-03
        xs(  2) = 0.9086777641163082D-03
        xs(  3) = 0.2248512862650069D-02
        xs(  4) = 0.4202991520490015D-02
        xs(  5) = 0.6771435645789465D-02
        xs(  6) = 0.9936889437471246D-02
        xs(  7) = 0.1366892920592851D-01
        xs(  8) = 0.1792930580637145D-01
        xs(  9) = 0.2267710021742335D-01
        xs( 10) = 0.2787213749588721D-01
        xs( 11) = 0.3347677277986266D-01
        xs( 12) = 0.3945658929256069D-01
        xs( 13) = 0.4578049888001121D-01
        xs( 14) = 0.5242056735439846D-01
        xs( 15) = 0.5935174229332838D-01
        xs( 16) = 0.6655156798971923D-01
        xs( 17) = 0.7399992118582085D-01
        xs( 18) = 0.8167877664029895D-01
        xs( 19) = 0.8957200155285838D-01
        xs( 20) = 0.9766517492128381D-01
        xs( 21) = 0.1059454279431109D+00
        xs( 22) = 0.1144013024673684D+00
        xs( 23) = 0.1230226255800059D+00
        xs( 24) = 0.1318003990734666D+00
        xs( 25) = 0.1407267032715857D+00
        xs( 26) = 0.1497946149581735D+00
        xs( 27) = 0.1589981394998536D+00
        xs( 28) = 0.1683321549966433D+00
        xs( 29) = 0.1777923698844463D+00
        xs( 30) = 0.1873753173296988D+00
        xs( 31) = 0.1970783525538062D+00
        xs( 32) = 0.2068997520435309D+00
        xs( 33) = 0.2168389356334173D+00
        xs( 34) = 0.2268955313285163D+00
        xs( 35) = 0.2370679943188299D+00
        xs( 36) = 0.2473547991080803D+00
        xs( 37) = 0.2577613121133380D+00
        xs( 38) = 0.2683642358999259D+00
        xs( 39) = 0.2792846682102080D+00
        xs( 40) = 0.2900520160733574D+00
        xs( 41) = 0.3007088706559918D+00
        ws(  1) = 0.4410114812160602D-03
        ws(  2) = 0.1035848611772306D-02
        ws(  3) = 0.1645972058170069D-02
        ws(  4) = 0.2262935150719776D-02
        ws(  5) = 0.2871068980465983D-02
        ws(  6) = 0.3454665588734311D-02
        ws(  7) = 0.4002950625555833D-02
        ws(  8) = 0.4510926518453345D-02
        ws(  9) = 0.4977938169107834D-02
        ws( 10) = 0.5405851808882735D-02
        ws( 11) = 0.5797681704462404D-02
        ws( 12) = 0.6156773273292870D-02
        ws( 13) = 0.6486394925238664D-02
        ws( 14) = 0.6789571440530056D-02
        ws( 15) = 0.7069040239992886D-02
        ws( 16) = 0.7327261178775163D-02
        ws( 17) = 0.7566444422651455D-02
        ws( 18) = 0.7788580688097233D-02
        ws( 19) = 0.7995468289034233D-02
        ws( 20) = 0.8188735997013611D-02
        ws( 21) = 0.8369862433576396D-02
        ws( 22) = 0.8540192988623869D-02
        ws( 23) = 0.8700955252514917D-02
        ws( 24) = 0.8853273292397946D-02
        ws( 25) = 0.8998181797763767D-02
        ws( 26) = 0.9136640736126583D-02
        ws( 27) = 0.9269553094820616D-02
        ws( 28) = 0.9397777360587544D-02
        ws( 29) = 0.9522135733634956D-02
        ws( 30) = 0.9643375304337497D-02
        ws( 31) = 0.9762073785599307D-02
        ws( 32) = 0.9879187191089558D-02
        ws( 33) = 0.9997409881517146D-02
        ws( 34) = 0.1012232817915514D-01
        ws( 35) = 0.1025738062322294D-01
        ws( 36) = 0.1036096282978427D-01
        ws( 37) = 0.1030958683868744D-01
        ws( 38) = 0.1019512560923768D-01
        ws( 39) = 0.1092714077880550D-01
        ws( 40) = 0.1396323765711905D-01
        ws( 41) = 0.1745184997058506D-01
        endif
        if( idomain .eq.  119 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.4000000000000000D+00
        rk1r = 0.2000000000000000D+00
        rk1i = 0.1000000000000000D+01
        iquadtype =  2
        n =  41
        err = 0.6388614282929485D-13
        xs(  1) = 0.1587944662915318D-03
        xs(  2) = 0.8426326025759530D-03
        xs(  3) = 0.2093415904714915D-02
        xs(  4) = 0.3933802375532911D-02
        xs(  5) = 0.6376116796501558D-02
        xs(  6) = 0.9415331165822776D-02
        xs(  7) = 0.1302964210619981D-01
        xs(  8) = 0.1718569530422943D-01
        xs(  9) = 0.2184450438992214D-01
        xs( 10) = 0.2696592001215745D-01
        xs( 11) = 0.3251128385728792D-01
        xs( 12) = 0.3844470188553560D-01
        xs( 13) = 0.4473348118090785D-01
        xs( 14) = 0.5134813399457953D-01
        xs( 15) = 0.5826219042067597D-01
        xs( 16) = 0.6545194563823779D-01
        xs( 17) = 0.7289619989307453D-01
        xs( 18) = 0.8057601431663949D-01
        xs( 19) = 0.8847448947851937D-01
        xs( 20) = 0.9657656706783763D-01
        xs( 21) = 0.1048688531092158D+00
        xs( 22) = 0.1133394608505106D+00
        xs( 23) = 0.1219778719149028D+00
        xs( 24) = 0.1307748145537576D+00
        xs( 25) = 0.1397221585283187D+00
        xs( 26) = 0.1488128261793629D+00
        xs( 27) = 0.1580407199099720D+00
        xs( 28) = 0.1674006641787222D+00
        xs( 29) = 0.1768883639394893D+00
        xs( 30) = 0.1865003992583191D+00
        xs( 31) = 0.1962342126733988D+00
        xs( 32) = 0.2060882555200161D+00
        xs( 33) = 0.2160622015708463D+00
        xs( 34) = 0.2261560342451519D+00
        xs( 35) = 0.2363696731631642D+00
        xs( 36) = 0.2467022005482504D+00
        xs( 37) = 0.2571548970967575D+00
        xs( 38) = 0.2678000718718807D+00
        xs( 39) = 0.2787664220878898D+00
        xs( 40) = 0.2897161270418142D+00
        xs( 41) = 0.3006686300305616D+00
        ws(  1) = 0.4082353177675537D-03
        ws(  2) = 0.9632537546980102D-03
        ws(  3) = 0.1542307574453742D-02
        ws(  4) = 0.2140642698829468D-02
        ws(  5) = 0.2743129023873253D-02
        ws(  6) = 0.3331568233805894D-02
        ws(  7) = 0.3891391043794771D-02
        ws(  8) = 0.4414142744237397D-02
        ws(  9) = 0.4896740939122594D-02
        ws( 10) = 0.5339627408501049D-02
        ws( 11) = 0.5745111618845129D-02
        ws( 12) = 0.6116276103260773D-02
        ws( 13) = 0.6456371264943308D-02
        ws( 14) = 0.6768527049826187D-02
        ws( 15) = 0.7055639380347813D-02
        ws( 16) = 0.7320341844926467D-02
        ws( 17) = 0.7565013876976818D-02
        ws( 18) = 0.7791801699996752D-02
        ws( 19) = 0.8002641846402746D-02
        ws( 20) = 0.8199283613924359D-02
        ws( 21) = 0.8383309648288354D-02
        ws( 22) = 0.8556154816464849D-02
        ws( 23) = 0.8719123859939519D-02
        ws( 24) = 0.8873407955702420D-02
        ws( 25) = 0.9020101186722161D-02
        ws( 26) = 0.9160216812142602D-02
        ws( 27) = 0.9294706547324364D-02
        ws( 28) = 0.9424475887391882D-02
        ws( 29) = 0.9550404484972437D-02
        ws( 30) = 0.9673304626483132D-02
        ws( 31) = 0.9793811104366033D-02
        ws( 32) = 0.9912949048298319D-02
        ws( 33) = 0.1003323022132862D-01
        ws( 34) = 0.1016002751457627D-01
        ws( 35) = 0.1029720444801285D-01
        ws( 36) = 0.1040756835745545D-01
        ws( 37) = 0.1039326499544457D-01
        ws( 38) = 0.1030852329630811D-01
        ws( 39) = 0.1081336774746937D-01
        ws( 40) = 0.1377895707873889D-01
        ws( 41) = 0.1849704594289832D-01
        endif
        if( idomain .eq.  120 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.4000000000000000D+00
        rk1r = 0.4000000000000000D+00
        rk1i = 0.1000000000000000D+01
        iquadtype =  2
        n =  41
        err = 0.8393857744239773D-13
        xs(  1) = 0.1375001682209414D-03
        xs(  2) = 0.7322350210923840D-03
        xs(  3) = 0.1830620204418037D-02
        xs(  4) = 0.3469792594440848D-02
        xs(  5) = 0.5681935479884065D-02
        xs(  6) = 0.8482706260772971D-02
        xs(  7) = 0.1186718027397257D-01
        xs(  8) = 0.1581293127029131D-01
        xs(  9) = 0.2028636554904092D-01
        xs( 10) = 0.2524878372560148D-01
        xs( 11) = 0.3066064187474388D-01
        xs( 12) = 0.3648398856350392D-01
        xs( 13) = 0.4268361194515046D-01
        xs( 14) = 0.4922743312309122D-01
        xs( 15) = 0.5608651521483910D-01
        xs( 16) = 0.6323490039290403D-01
        xs( 17) = 0.7064938314479410D-01
        xs( 18) = 0.7830926988053276D-01
        xs( 19) = 0.8619614606989626D-01
        xs( 20) = 0.9429365899622782D-01
        xs( 21) = 0.1025873188221374D+00
        xs( 22) = 0.1110643186555871D+00
        xs( 23) = 0.1197133736605232D+00
        xs( 24) = 0.1285245789252433D+00
        xs( 25) = 0.1374892863119973D+00
        xs( 26) = 0.1465999994411471D+00
        xs( 27) = 0.1558502876581512D+00
        xs( 28) = 0.1652347188204423D+00
        xs( 29) = 0.1747488079544465D+00
        xs( 30) = 0.1843889879679121D+00
        xs( 31) = 0.1941526282754334D+00
        xs( 32) = 0.2040381960991688D+00
        xs( 33) = 0.2140453236911351D+00
        xs( 34) = 0.2241742949690584D+00
        xs( 35) = 0.2344249885913503D+00
        xs( 36) = 0.2447948528476778D+00
        xs( 37) = 0.2552922510394445D+00
        xs( 38) = 0.2659973516180792D+00
        xs( 39) = 0.2769953020602597D+00
        xs( 40) = 0.2879196891052216D+00
        xs( 41) = 0.2989433144649549D+00
        ws(  1) = 0.3537857131552928D-03
        ws(  2) = 0.8406825244510519D-03
        ws(  3) = 0.1362523800973603D-02
        ws(  4) = 0.1921392362773428D-02
        ws(  5) = 0.2505568315958663D-02
        ws(  6) = 0.3095090018496954D-02
        ws(  7) = 0.3670005752188525D-02
        ws(  8) = 0.4215792976891296D-02
        ws(  9) = 0.4724555036301270D-02
        ws( 10) = 0.5193651526388319D-02
        ws( 11) = 0.5623721740610999D-02
        ws( 12) = 0.6017097306218051D-02
        ws( 13) = 0.6376803304659755D-02
        ws( 14) = 0.6706019192650454D-02
        ws( 15) = 0.7007822573355290D-02
        ws( 16) = 0.7285084248420333D-02
        ws( 17) = 0.7540436221183699D-02
        ws( 18) = 0.7776271788763785D-02
        ws( 19) = 0.7994758454131393D-02
        ws( 20) = 0.8197855421966233D-02
        ws( 21) = 0.8387332416759067D-02
        ws( 22) = 0.8564788816760845D-02
        ws( 23) = 0.8731672504806167D-02
        ws( 24) = 0.8889298609957371D-02
        ws( 25) = 0.9038868025376868D-02
        ws( 26) = 0.9181485532522361D-02
        ws( 27) = 0.9318182573673525D-02
        ws( 28) = 0.9449938906569316D-02
        ws( 29) = 0.9577694195575880D-02
        ws( 30) = 0.9702313544119745D-02
        ws( 31) = 0.9824557988879986D-02
        ws( 32) = 0.9945333696645057D-02
        ws( 33) = 0.1006667939165713D-01
        ws( 34) = 0.1019451904114799D-01
        ws( 35) = 0.1033535432560804D-01
        ws( 36) = 0.1046045123515278D-01
        ws( 37) = 0.1046627642989339D-01
        ws( 38) = 0.1031516821989157D-01
        ws( 39) = 0.1065945027876632D-01
        ws( 40) = 0.1376751238885137D-01
        ws( 41) = 0.1909512544686111D-01
        endif
        if( idomain .eq.  121 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.4000000000000000D+00
        rk1r = 0.1000000000000000D+01
        rk1i = 0.1000000000000000D+01
        iquadtype =  2
        n =  42
        err = 0.8404738141567393D-13
        xs(  1) = 0.9828113080499898D-04
        xs(  2) = 0.5249810246437354D-03
        xs(  3) = 0.1320726516792325D-02
        xs(  4) = 0.2529135195072160D-02
        xs(  5) = 0.4201889211926371D-02
        xs(  6) = 0.6387206845587634D-02
        xs(  7) = 0.9118863151626484D-02
        xs(  8) = 0.1241015021413850D-01
        xs(  9) = 0.1625420333267280D-01
        xs( 10) = 0.2062871078760355D-01
        xs( 11) = 0.2550190548853849D-01
        xs( 12) = 0.3083769526765021D-01
        xs( 13) = 0.3659919650710593D-01
        xs( 14) = 0.4275081665818281D-01
        xs( 15) = 0.4925931760347092D-01
        xs( 16) = 0.5609425904753299D-01
        xs( 17) = 0.6322809802636575D-01
        xs( 18) = 0.7063611032566804D-01
        xs( 19) = 0.7829622598793423D-01
        xs( 20) = 0.8618882828695305D-01
        xs( 21) = 0.9429654243353014D-01
        xs( 22) = 0.1026040282387070D+00
        xs( 23) = 0.1110977846201450D+00
        xs( 24) = 0.1197659705144068D+00
        xs( 25) = 0.1285982445777305D+00
        xs( 26) = 0.1375856253383959D+00
        xs( 27) = 0.1467203725680760D+00
        xs( 28) = 0.1559958895601294D+00
        xs( 29) = 0.1654066483942930D+00
        xs( 30) = 0.1749481357230200D+00
        xs( 31) = 0.1846168236086437D+00
        xs( 32) = 0.1944101922664000D+00
        xs( 33) = 0.2043268443630893D+00
        xs( 34) = 0.2143667607263764D+00
        xs( 35) = 0.2245311508243976D+00
        xs( 36) = 0.2348197525518202D+00
        xs( 37) = 0.2452287119799506D+00
        xs( 38) = 0.2557713822253706D+00
        xs( 39) = 0.2665276764985422D+00
        xs( 40) = 0.2775742090848576D+00
        xs( 41) = 0.2887396476635317D+00
        xs( 42) = 0.3001485428524707D+00
        ws(  1) = 0.2530454434719896D-03
        ws(  2) = 0.6051024427491277D-03
        ws(  3) = 0.9937898497733623D-03
        ws(  4) = 0.1431844695917424D-02
        ws(  5) = 0.1921894757900603D-02
        ws(  6) = 0.2454473903866117D-02
        ws(  7) = 0.3011042677203981D-02
        ws(  8) = 0.3570300533543958D-02
        ws(  9) = 0.4113982023854610D-02
        ws( 10) = 0.4629651399001837D-02
        ws( 11) = 0.5110664349499374D-02
        ws( 12) = 0.5554734377313136D-02
        ws( 13) = 0.5962319263301105D-02
        ws( 14) = 0.6335374609595661D-02
        ws( 15) = 0.6676552618360015D-02
        ws( 16) = 0.6988741292520719D-02
        ws( 17) = 0.7274818814298217D-02
        ws( 18) = 0.7537530866888514D-02
        ws( 19) = 0.7779434557236371D-02
        ws( 20) = 0.8002877716048098D-02
        ws( 21) = 0.8209997145440399D-02
        ws( 22) = 0.8402727266044898D-02
        ws( 23) = 0.8582814660956600D-02
        ws( 24) = 0.8751835969382692D-02
        ws( 25) = 0.8911217387872074D-02
        ws( 26) = 0.9062255639535308D-02
        ws( 27) = 0.9206138856457534D-02
        ws( 28) = 0.9343970746742022D-02
        ws( 29) = 0.9476799643080727D-02
        ws( 30) = 0.9605633933278223D-02
        ws( 31) = 0.9731416365921909D-02
        ws( 32) = 0.9854945316506781D-02
        ws( 33) = 0.9977120705574091D-02
        ws( 34) = 0.1010063249058773D-01
        ws( 35) = 0.1023209172259994D-01
        ws( 36) = 0.1037423675144619D-01
        ws( 37) = 0.1049386218160424D-01
        ws( 38) = 0.1049922002490332D-01
        ws( 39) = 0.1040235720471268D-01
        ws( 40) = 0.1097309177718202D-01
        ws( 41) = 0.1426289222890162D-01
        ws( 42) = 0.1792276813960914D-01
        endif
        if( idomain .eq.  122 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.4000000000000000D+00
        rk1r = 0.1570796326794897D+01
        rk1i = 0.1000000000000000D+01
        iquadtype =  2
        n =  43
        err = 0.3670235739095246D-13
        xs(  1) = 0.7602196665202989D-04
        xs(  2) = 0.4064288463879930D-03
        xs(  3) = 0.1024675991111365D-02
        xs(  4) = 0.1970707324816142D-02
        xs(  5) = 0.3298274737699394D-02
        xs(  6) = 0.5067909772398382D-02
        xs(  7) = 0.7335896671652709D-02
        xs(  8) = 0.1014270499191431D-01
        xs(  9) = 0.1350614836063032D-01
        xs( 10) = 0.1742183473269926D-01
        xs( 11) = 0.2186872166015303D-01
        xs( 12) = 0.2681579076287867D-01
        xs( 13) = 0.3222738575976820D-01
        xs( 14) = 0.3806672123645661D-01
        xs( 15) = 0.4429796125287237D-01
        xs( 16) = 0.5088736594013255D-01
        xs( 17) = 0.5780386345645897D-01
        xs( 18) = 0.6501927043058156D-01
        xs( 19) = 0.7250829882643157D-01
        xs( 20) = 0.8024843709102523D-01
        xs( 21) = 0.8821976294330930D-01
        xs( 22) = 0.9640472539228601D-01
        xs( 23) = 0.1047879201793450D+00
        xs( 24) = 0.1133558736546360D+00
        xs( 25) = 0.1220968438155257D+00
        xs( 26) = 0.1310006432696408D+00
        xs( 27) = 0.1400584861662057D+00
        xs( 28) = 0.1492628599534195D+00
        xs( 29) = 0.1586074223686920D+00
        xs( 30) = 0.1680869230283872D+00
        xs( 31) = 0.1776971497201966D+00
        xs( 32) = 0.1874349074609491D+00
        xs( 33) = 0.1972980612610655D+00
        xs( 34) = 0.2072856254957167D+00
        xs( 35) = 0.2173977994099059D+00
        xs( 36) = 0.2276358781195849D+00
        xs( 37) = 0.2380015314268743D+00
        xs( 38) = 0.2484966701416330D+00
        xs( 39) = 0.2591369024591575D+00
        xs( 40) = 0.2699852448057654D+00
        xs( 41) = 0.2811041772181748D+00
        xs( 42) = 0.2923129326979284D+00
        xs( 43) = 0.3035879381984182D+00
        ws(  1) = 0.1957679062681503D-03
        ws(  2) = 0.4690150412749342D-03
        ws(  3) = 0.7741756261234118D-03
        ws(  4) = 0.1126962868334918D-02
        ws(  5) = 0.1538452929772645D-02
        ws(  6) = 0.2010405592583326D-02
        ws(  7) = 0.2532434356780774D-02
        ws(  8) = 0.3084136781974583D-02
        ws(  9) = 0.3641914277887434D-02
        ws( 10) = 0.4185834338823453D-02
        ws( 11) = 0.4702680214166819D-02
        ws( 12) = 0.5185458059385579D-02
        ws( 13) = 0.5631567639455398D-02
        ws( 14) = 0.6041112382055759D-02
        ws( 15) = 0.6415735315979009D-02
        ws( 16) = 0.6757892059056685D-02
        ws( 17) = 0.7070405832621411D-02
        ws( 18) = 0.7356195556417418D-02
        ws( 19) = 0.7618112517296426D-02
        ws( 20) = 0.7858847320867246D-02
        ws( 21) = 0.8080882995293255D-02
        ws( 22) = 0.8286478145164210D-02
        ws( 23) = 0.8477669145596880D-02
        ws( 24) = 0.8656283774891719D-02
        ws( 25) = 0.8823961256833015D-02
        ws( 26) = 0.8982175509512804D-02
        ws( 27) = 0.9132259522341627D-02
        ws( 28) = 0.9275431024232565D-02
        ws( 29) = 0.9412819177645667D-02
        ws( 30) = 0.9545489899231352D-02
        ws( 31) = 0.9674461887112646D-02
        ws( 32) = 0.9800713506891792D-02
        ws( 33) = 0.9925219346370834D-02
        ws( 34) = 0.1004913471555218D-01
        ws( 35) = 0.1017467027036530D-01
        ws( 36) = 0.1030640354312799D-01
        ws( 37) = 0.1044602921554316D-01
        ws( 38) = 0.1056985433773203D-01
        ws( 39) = 0.1061465398106251D-01
        ws( 40) = 0.1061514593621850D-01
        ws( 41) = 0.1121573068430134D-01
        ws( 42) = 0.1394145451316621D-01
        ws( 43) = 0.1639078803460462D-01
        endif
        if( idomain .eq.  123 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.4000000000000000D+00
        rk1r = 0.3141592653589793D+01
        rk1i = 0.1000000000000000D+01
        iquadtype =  2
        n =  45
        err = 0.7094948593378550D-13
        xs(  1) = 0.4391306808141444D-04
        xs(  2) = 0.2340681923815879D-03
        xs(  3) = 0.5873698713191428D-03
        xs(  4) = 0.1123898989861974D-02
        xs(  5) = 0.1874194929490249D-02
        xs(  6) = 0.2880515969528609D-02
        xs(  7) = 0.4197208549114466D-02
        xs(  8) = 0.5888844818083475D-02
        xs(  9) = 0.8024562253903611D-02
        xs( 10) = 0.1066813932245731D-01
        xs( 11) = 0.1386619529348184D-01
        xs( 12) = 0.1763965532990664D-01
        xs( 13) = 0.2198271426214067D-01
        xs( 14) = 0.2686879317779467D-01
        xs( 15) = 0.3225921404855185D-01
        xs( 16) = 0.3811066406875238D-01
        xs( 17) = 0.4438000561806342D-01
        xs( 18) = 0.5102678410254485D-01
        xs( 19) = 0.5801427969422106D-01
        xs( 20) = 0.6530977971940767D-01
        xs( 21) = 0.7288447121777265D-01
        xs( 22) = 0.8071316085325578D-01
        xs( 23) = 0.8877392657261191D-01
        xs( 24) = 0.9704775523658353D-01
        xs( 25) = 0.1055181952637842D+00
        xs( 26) = 0.1141710394303910D+00
        xs( 27) = 0.1229940447124418D+00
        xs( 28) = 0.1319766910999144D+00
        xs( 29) = 0.1411099784294339D+00
        xs( 30) = 0.1503862596291919D+00
        xs( 31) = 0.1597991066831866D+00
        xs( 32) = 0.1693432078435891D+00
        xs( 33) = 0.1790142972648967D+00
        xs( 34) = 0.1888091148103455D+00
        xs( 35) = 0.1987254012230747D+00
        xs( 36) = 0.2087619815495413D+00
        xs( 37) = 0.2189189133910205D+00
        xs( 38) = 0.2291970034237951D+00
        xs( 39) = 0.2395977196996092D+00
        xs( 40) = 0.2501240100153098D+00
        xs( 41) = 0.2607805446990184D+00
        xs( 42) = 0.2716121159622992D+00
        xs( 43) = 0.2827334286043676D+00
        xs( 44) = 0.2939666464962964D+00
        xs( 45) = 0.3052396581645598D+00
        ws(  1) = 0.1130003715451279D-03
        ws(  2) = 0.2691784484085564D-03
        ws(  3) = 0.4407452668083592D-03
        ws(  4) = 0.6373805009491079D-03
        ws(  5) = 0.8702449044147389D-03
        ws(  6) = 0.1151481706578397D-02
        ws(  7) = 0.1492757817017005D-02
        ws(  8) = 0.1902208531268021D-02
        ws(  9) = 0.2380066739399064D-02
        ws( 10) = 0.2915011691530414D-02
        ws( 11) = 0.3484603251555637D-02
        ws( 12) = 0.4061237662741911D-02
        ws( 13) = 0.4620295606985350D-02
        ws( 14) = 0.5145288549188154D-02
        ws( 15) = 0.5628255661483930D-02
        ws( 16) = 0.6067415229929407D-02
        ws( 17) = 0.6464509531003787D-02
        ws( 18) = 0.6822923832393870D-02
        ws( 19) = 0.7146617485614920D-02
        ws( 20) = 0.7439585301782688D-02
        ws( 21) = 0.7705604731667545D-02
        ws( 22) = 0.7948126968280058D-02
        ws( 23) = 0.8170241436762000D-02
        ws( 24) = 0.8374679261581752D-02
        ws( 25) = 0.8563837596806418D-02
        ws( 26) = 0.8739814257658147D-02
        ws( 27) = 0.8904446380303133D-02
        ws( 28) = 0.9059349140581777D-02
        ws( 29) = 0.9205953018024014D-02
        ws( 30) = 0.9345538954361425D-02
        ws( 31) = 0.9479270486995255D-02
        ws( 32) = 0.9608228121892035D-02
        ws( 33) = 0.9733434261851566D-02
        ws( 34) = 0.9855839608939761D-02
        ws( 35) = 0.9976331403193643D-02
        ws( 36) = 0.1009613859837925D-01
        ws( 37) = 0.1021763815865902D-01
        ws( 38) = 0.1034383785498609D-01
        ws( 39) = 0.1047352371184610D-01
        ws( 40) = 0.1058281891907219D-01
        ws( 41) = 0.1063524327246375D-01
        ws( 42) = 0.1076435712615998D-01
        ws( 43) = 0.1143810671044407D-01
        ws( 44) = 0.1310662376714954D-01
        ws( 45) = 0.1467091666800942D-01
        endif
        if( idomain .eq.  124 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.4000000000000000D+00
        rk1r = 0.6283185307179586D+01
        rk1i = 0.1000000000000000D+01
        iquadtype =  2
        n =  50
        err = 0.2589730338016822D-13
        xs(  1) = 0.1973868371039406D-04
        xs(  2) = 0.1046519002270105D-03
        xs(  3) = 0.2601172392419410D-03
        xs(  4) = 0.4909929537766692D-03
        xs(  5) = 0.8047042123902586D-03
        xs(  6) = 0.1211796931491466D-02
        xs(  7) = 0.1726683336099219D-02
        xs(  8) = 0.2368639440461031D-02
        xs(  9) = 0.3163085451967177D-02
        xs( 10) = 0.4143134229684142D-02
        xs( 11) = 0.5351274214548136D-02
        xs( 12) = 0.6840801422488814D-02
        xs( 13) = 0.8676175188211663D-02
        xs( 14) = 0.1093090188390775D-01
        xs( 15) = 0.1368126093255197D-01
        xs( 16) = 0.1699512767226066D-01
        xs( 17) = 0.2091814237094179D-01
        xs( 18) = 0.2546315540995946D-01
        xs( 19) = 0.3060900233432704D-01
        xs( 20) = 0.3630917315635629D-01
        xs( 21) = 0.4250483881208926D-01
        xs( 22) = 0.4913595585724571D-01
        xs( 23) = 0.5614775422404638D-01
        xs( 24) = 0.6349319454768249D-01
        xs( 25) = 0.7113305647604323D-01
        xs( 26) = 0.7903501371620369D-01
        xs( 27) = 0.8717245772411407D-01
        xs( 28) = 0.9552340177545658D-01
        xs( 29) = 0.1040695696634919D+00
        xs( 30) = 0.1127956752887929D+00
        xs( 31) = 0.1216888660515431D+00
        xs( 32) = 0.1307382969659010D+00
        xs( 33) = 0.1399348062106586D+00
        xs( 34) = 0.1492706688257994D+00
        xs( 35) = 0.1587394112961620D+00
        xs( 36) = 0.1683356742635681D+00
        xs( 37) = 0.1780551150849479D+00
        xs( 38) = 0.1878943460304970D+00
        xs( 39) = 0.1978509111818004D+00
        xs( 40) = 0.2079233058559922D+00
        xs( 41) = 0.2181109674236351D+00
        xs( 42) = 0.2284142316292926D+00
        xs( 43) = 0.2388342401512890D+00
        xs( 44) = 0.2493734039306530D+00
        xs( 45) = 0.2600405370907086D+00
        xs( 46) = 0.2708542502377751D+00
        xs( 47) = 0.2818275900032287D+00
        xs( 48) = 0.2929635562324407D+00
        xs( 49) = 0.3040448638979312D+00
        xs( 50) = 0.3149885528392643D+00
        ws(  1) = 0.5072955284852861D-04
        ws(  2) = 0.1195690088915078D-03
        ws(  3) = 0.1921631131972713D-03
        ws(  4) = 0.2708169609523401D-03
        ws(  5) = 0.3583508954568284D-03
        ws(  6) = 0.4582200402255858D-03
        ws(  7) = 0.5747440899661840D-03
        ws(  8) = 0.7133787463971720D-03
        ws(  9) = 0.8810032004431077D-03
        ws( 10) = 0.1086150006273681D-02
        ws( 11) = 0.1339003317990522D-02
        ws( 12) = 0.1650825110627391D-02
        ws( 13) = 0.2032275298996398D-02
        ws( 14) = 0.2490082373717777D-02
        ws( 15) = 0.3022194440345135D-02
        ws( 16) = 0.3613339067742915D-02
        ws( 17) = 0.4234854187026001D-02
        ws( 18) = 0.4851483896743584D-02
        ws( 19) = 0.5432224234548505D-02
        ws( 20) = 0.5958121533620807D-02
        ws( 21) = 0.6423096896400465D-02
        ws( 22) = 0.6829972378876441D-02
        ws( 23) = 0.7185786270815336D-02
        ws( 24) = 0.7498574788300277D-02
        ws( 25) = 0.7775781662517797D-02
        ws( 26) = 0.8023716524552200D-02
        ws( 27) = 0.8247522216940441D-02
        ws( 28) = 0.8451331784137874D-02
        ws( 29) = 0.8638465504279599D-02
        ws( 30) = 0.8811610678155427D-02
        ws( 31) = 0.8972968706232183D-02
        ws( 32) = 0.9124370195205615D-02
        ws( 33) = 0.9267363747728123D-02
        ws( 34) = 0.9403284656209463D-02
        ws( 35) = 0.9533309169717476D-02
        ws( 36) = 0.9658497324266289D-02
        ws( 37) = 0.9779826923095408D-02
        ws( 38) = 0.9898217521552653D-02
        ws( 39) = 0.1001457193225110D-01
        ws( 40) = 0.1012989014070546D-01
        ws( 41) = 0.1024553491017958D-01
        ws( 42) = 0.1036345974657274D-01
        ws( 43) = 0.1048361156663531D-01
        ws( 44) = 0.1059799738089796D-01
        ws( 45) = 0.1069411510498304D-01
        ws( 46) = 0.1078918514107817D-01
        ws( 47) = 0.1106697113017843D-01
        ws( 48) = 0.1191054062202172D-01
        ws( 49) = 0.1280657128996655D-01
        ws( 50) = 0.1165030883884933D-01
        endif
        if( idomain .eq.  125 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.4000000000000000D+00
        rk1r = 0.9424777960769379D+01
        rk1i = 0.1000000000000000D+01
        iquadtype =  2
        n =  52
        err = 0.6060654399806031D-13
        xs(  1) = 0.1176411260810036D-04
        xs(  2) = 0.6222117974181082D-04
        xs(  3) = 0.1539765892241668D-03
        xs(  4) = 0.2887827656437474D-03
        xs(  5) = 0.4692675732115653D-03
        xs(  6) = 0.6990920843819099D-03
        xs(  7) = 0.9831514886027128D-03
        xs(  8) = 0.1327846011970142D-02
        xs(  9) = 0.1741442963554006D-02
        xs( 10) = 0.2234558020824674D-02
        xs( 11) = 0.2820793116830604D-02
        xs( 12) = 0.3517578480906509D-02
        xs( 13) = 0.4347275022284540D-02
        xs( 14) = 0.5338593892957509D-02
        xs( 15) = 0.6528367819899560D-02
        xs( 16) = 0.7963632469905120D-02
        xs( 17) = 0.9703787530051381D-02
        xs( 18) = 0.1182221666534393D-01
        xs( 19) = 0.1440606962613575D-01
        xs( 20) = 0.1755204109549037D-01
        xs( 21) = 0.2135558820879390D-01
        xs( 22) = 0.2589271694406992D-01
        xs( 23) = 0.3119871515981428D-01
        xs( 24) = 0.3725454514226553D-01
        xs( 25) = 0.4399093731735858D-01
        xs( 26) = 0.5130886158349657D-01
        xs( 27) = 0.5910396279116318D-01
        xs( 28) = 0.6728351522979628D-01
        xs( 29) = 0.7577313890188191D-01
        xs( 30) = 0.8451653807109900D-01
        xs( 31) = 0.9347229394580468D-01
        xs( 32) = 0.1026102013087330D+00
        xs( 33) = 0.1119081665267923D+00
        xs( 34) = 0.1213498820841797D+00
        xs( 35) = 0.1309231826463720D+00
        xs( 36) = 0.1406189163114852D+00
        xs( 37) = 0.1504301809992244D+00
        xs( 38) = 0.1603518128271314D+00
        xs( 39) = 0.1703800485799707D+00
        xs( 40) = 0.1805123103669276D+00
        xs( 41) = 0.1907470816442523D+00
        xs( 42) = 0.2010838580115294D+00
        xs( 43) = 0.2115231578643288D+00
        xs( 44) = 0.2220665276039800D+00
        xs( 45) = 0.2327166457845454D+00
        xs( 46) = 0.2434776187420367D+00
        xs( 47) = 0.2543563525076458D+00
        xs( 48) = 0.2653679519898183D+00
        xs( 49) = 0.2765351615202770D+00
        xs( 50) = 0.2878825223686591D+00
        xs( 51) = 0.2993522352675183D+00
        xs( 52) = 0.3106595029402279D+00
        ws(  1) = 0.3021740503862504D-04
        ws(  2) = 0.7087904259179313D-04
        ws(  3) = 0.1129207630843195D-03
        ws(  4) = 0.1571271184340813D-03
        ws(  5) = 0.2044493689659371D-03
        ws(  6) = 0.2560110514487718D-03
        ws(  7) = 0.3131684933971826D-03
        ws(  8) = 0.3775905052513492D-03
        ws(  9) = 0.4513621596180650D-03
        ws( 10) = 0.5371210461456419D-03
        ws( 11) = 0.6382359543199855D-03
        ws( 12) = 0.7590380345060053D-03
        ws( 13) = 0.9051106605191801D-03
        ws( 14) = 0.1083630709812887D-02
        ws( 15) = 0.1303719047828323D-02
        ws( 16) = 0.1576680228456005D-02
        ws( 17) = 0.1915858872497920D-02
        ws( 18) = 0.2335587838300371D-02
        ws( 19) = 0.2848409813967244D-02
        ws( 20) = 0.3459755562758680D-02
        ws( 21) = 0.4160389255009240D-02
        ws( 22) = 0.4920006094052636D-02
        ws( 23) = 0.5688746072903929D-02
        ws( 24) = 0.6410991580281276D-02
        ws( 25) = 0.7044849773331527D-02
        ws( 26) = 0.7573319086280556D-02
        ws( 27) = 0.8001327342582956D-02
        ws( 28) = 0.8345395601878171D-02
        ws( 29) = 0.8624528325799137D-02
        ws( 30) = 0.8855430048744941D-02
        ws( 31) = 0.9051099517117477D-02
        ws( 32) = 0.9221071383008919D-02
        ws( 33) = 0.9372168104654107D-02
        ws( 34) = 0.9509253891372582D-02
        ws( 35) = 0.9635834356454922D-02
        ws( 36) = 0.9754491019468734D-02
        ws( 37) = 0.9867183520552533D-02
        ws( 38) = 0.9975457238224718D-02
        ws( 39) = 0.1008058728086958D-01
        ws( 40) = 0.1018367956589145D-01
        ws( 41) = 0.1028574939740615D-01
        ws( 42) = 0.1038782214024921D-01
        ws( 43) = 0.1049109163639792D-01
        ws( 44) = 0.1059695778558830D-01
        ws( 45) = 0.1070625886542227D-01
        ws( 46) = 0.1081737218506885D-01
        ws( 47) = 0.1092775443061933D-01
        ws( 48) = 0.1104607398273311D-01
        ws( 49) = 0.1120987057231035D-01
        ws( 50) = 0.1164398672068258D-01
        ws( 51) = 0.1290577238905681D-01
        ws( 52) = 0.1292562301975351D-01
        endif
        if( idomain .eq.  126 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.4000000000000000D+00
        rk1r = 0.1256637061435917D+02
        rk1i = 0.1000000000000000D+01
        iquadtype =  2
        n =  55
        err = 0.3933361251904222D-13
        xs(  1) = 0.7771141068788209D-05
        xs(  2) = 0.4104814023161667D-04
        xs(  3) = 0.1013383587556616D-03
        xs(  4) = 0.1893963288401979D-03
        xs(  5) = 0.3063337947002824D-03
        xs(  6) = 0.4536745218954730D-03
        xs(  7) = 0.6334160229357026D-03
        xs(  8) = 0.8481096277163147D-03
        xs(  9) = 0.1100963762661246D-02
        xs( 10) = 0.1395976550187243D-02
        xs( 11) = 0.1738106096728638D-02
        xs( 12) = 0.2133489854982990D-02
        xs( 13) = 0.2589728407900999D-02
        xs( 14) = 0.3116254208346444D-02
        xs( 15) = 0.3724812517378362D-02
        xs( 16) = 0.4430090205327695D-02
        xs( 17) = 0.5250537996493363D-02
        xs( 18) = 0.6209441847990520D-02
        xs( 19) = 0.7336305595154253D-02
        xs( 20) = 0.8668600321126891D-02
        xs( 21) = 0.1025389527215369D-01
        xs( 22) = 0.1215226843760652D-01
        xs( 23) = 0.1443862617603485D-01
        xs( 24) = 0.1720402899332526D-01
        xs( 25) = 0.2055423842598784D-01
        xs( 26) = 0.2460265357854494D-01
        xs( 27) = 0.2945460698024355D-01
        xs( 28) = 0.3518287914241058D-01
        xs( 29) = 0.4180187478378202D-01
        xs( 30) = 0.4925548768740315D-01
        xs( 31) = 0.5742970695535968D-01
        xs( 32) = 0.6618381105085931D-01
        xs( 33) = 0.7538174154057480D-01
        xs( 34) = 0.8491055045169509D-01
        xs( 35) = 0.9468523273473191D-01
        xs( 36) = 0.1046456488584327D+00
        xs( 37) = 0.1147508544361023D+00
        xs( 38) = 0.1249736622099347D+00
        xs( 39) = 0.1352963791059435D+00
        xs( 40) = 0.1457077643538112D+00
        xs( 41) = 0.1562009645936462D+00
        xs( 42) = 0.1667721539198042D+00
        xs( 43) = 0.1774196598057091D+00
        xs( 44) = 0.1881434204115548D+00
        xs( 45) = 0.1989446676428752D+00
        xs( 46) = 0.2098257799682171D+00
        xs( 47) = 0.2207902515181444D+00
        xs( 48) = 0.2318427362954191D+00
        xs( 49) = 0.2429895747337734D+00
        xs( 50) = 0.2542403103429125D+00
        xs( 51) = 0.2656062292056409D+00
        xs( 52) = 0.2771175703501323D+00
        xs( 53) = 0.2887656915808355D+00
        xs( 54) = 0.3004397727982572D+00
        xs( 55) = 0.3124128980223081D+00
        ws(  1) = 0.1995490829402039D-04
        ws(  2) = 0.4668414517179832D-04
        ws(  3) = 0.7402053692543808D-04
        ws(  4) = 0.1022798902474848D-03
        ws(  5) = 0.1318479865608062D-03
        ws(  6) = 0.1631650627300242D-03
        ws(  7) = 0.1967414539412894D-03
        ws(  8) = 0.2331783030040523D-03
        ws(  9) = 0.2731935092280416D-03
        ws( 10) = 0.3176547969167503D-03
        ws( 11) = 0.3676225234961854D-03
        ws( 12) = 0.4244056753368067D-03
        ws( 13) = 0.4896355745914583D-03
        ws( 14) = 0.5653631980760458D-03
        ws( 15) = 0.6541876613176398D-03
        ws( 16) = 0.7594251313606056D-03
        ws( 17) = 0.8853285437811227D-03
        ws( 18) = 0.1037367371912819D-02
        ws( 19) = 0.1222569602235905D-02
        ws( 20) = 0.1449907102709738D-02
        ws( 21) = 0.1730655140635260D-02
        ws( 22) = 0.2078549358515315D-02
        ws( 23) = 0.2509360124190165D-02
        ws( 24) = 0.3039181754106148D-02
        ws( 25) = 0.3680396032378444D-02
        ws( 26) = 0.4434414624701234D-02
        ws( 27) = 0.5282093708028243D-02
        ws( 28) = 0.6177087562449748D-02
        ws( 29) = 0.7051325383813536D-02
        ws( 30) = 0.7836325312098628D-02
        ws( 31) = 0.8488102819907625D-02
        ws( 32) = 0.8997123592884364D-02
        ws( 33) = 0.9379848751922567D-02
        ws( 34) = 0.9663666078574964D-02
        ws( 35) = 0.9875776046315701D-02
        ws( 36) = 0.1003832458696851D-01
        ws( 37) = 0.1016762629180575D-01
        ws( 38) = 0.1027509045307854D-01
        ws( 39) = 0.1036850364909185D-01
        ws( 40) = 0.1045314677503763D-01
        ws( 41) = 0.1053263008244144D-01
        ws( 42) = 0.1060947743805726D-01
        ws( 43) = 0.1068552474706346D-01
        ws( 44) = 0.1076219952435446D-01
        ws( 45) = 0.1084072108588650D-01
        ws( 46) = 0.1092222503849456D-01
        ws( 47) = 0.1100784855405532D-01
        ws( 48) = 0.1109855388253908D-01
        ws( 49) = 0.1119456563313790D-01
        ws( 50) = 0.1129563143992749D-01
        ws( 51) = 0.1141134403445591D-01
        ws( 52) = 0.1158656457350836D-01
        ws( 53) = 0.1205363980041080D-01
        ws( 54) = 0.1247745688412799D-01
        ws( 55) = 0.1331664397649044D-01
        endif
        if( idomain .eq.  127 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.4000000000000000D+00
        rk1r = 0.1570796326794897D+02
        rk1i = 0.1000000000000000D+01
        iquadtype =  2
        n =  58
        err = 0.6463846003172635D-13
        xs(  1) = 0.5565595284245738D-05
        xs(  2) = 0.2937639241016177D-04
        xs(  3) = 0.7242615316204949D-04
        xs(  4) = 0.1350953839798216D-03
        xs(  5) = 0.2179371787753109D-03
        xs(  6) = 0.3217024110763077D-03
        xs(  7) = 0.4473642123114622D-03
        xs(  8) = 0.5961485892712982D-03
        xs(  9) = 0.7695727205241452D-03
        xs( 10) = 0.9694925646784840D-03
        xs( 11) = 0.1198161976696602D-02
        xs( 12) = 0.1458306296531174D-02
        xs( 13) = 0.1753214366186338D-02
        xs( 14) = 0.2086854222121933D-02
        xs( 15) = 0.2464019411917078D-02
        xs( 16) = 0.2890515149830144D-02
        xs( 17) = 0.3373396555792297D-02
        xs( 18) = 0.3921275270949713D-02
        xs( 19) = 0.4544716114582089D-02
        xs( 20) = 0.5256752462577017D-02
        xs( 21) = 0.6073557915999809D-02
        xs( 22) = 0.7015322453944431D-02
        xs( 23) = 0.8107392491173079D-02
        xs( 24) = 0.9381742562016789D-02
        xs( 25) = 0.1087884293341265D-01
        xs( 26) = 0.1264995264335117D-01
        xs( 27) = 0.1475976084501436D-01
        xs( 28) = 0.1728904564539273D-01
        xs( 29) = 0.2033649995168134D-01
        xs( 30) = 0.2401796424024331D-01
        xs( 31) = 0.2846008284176424D-01
        xs( 32) = 0.3378469943287600D-01
        xs( 33) = 0.4008243613581167D-01
        xs( 34) = 0.4738150868219448D-01
        xs( 35) = 0.5562798214771443D-01
        xs( 36) = 0.6469365827927245D-01
        xs( 37) = 0.7441005424552154D-01
        xs( 38) = 0.8460826160720381D-01
        xs( 39) = 0.9514557357997890D-01
        xs( 40) = 0.1059145081253604D+00
        xs( 41) = 0.1168402213807806D+00
        xs( 42) = 0.1278734614740238D+00
        xs( 43) = 0.1389833288445007D+00
        xs( 44) = 0.1501514549089603D+00
        xs( 45) = 0.1613678172428260D+00
        xs( 46) = 0.1726279095316733D+00
        xs( 47) = 0.1839309014166059D+00
        xs( 48) = 0.1952784840674400D+00
        xs( 49) = 0.2066741833391268D+00
        xs( 50) = 0.2181230113289677D+00
        xs( 51) = 0.2296313663300682D+00
        xs( 52) = 0.2412071347810368D+00
        xs( 53) = 0.2528614031865450D+00
        xs( 54) = 0.2646052926266225D+00
        xs( 55) = 0.2764520968008705D+00
        xs( 56) = 0.2884073040821742D+00
        xs( 57) = 0.3006155852377261D+00
        xs( 58) = 0.3124319779180964D+00
        ws(  1) = 0.1428898608144942D-04
        ws(  2) = 0.3337929104541181D-04
        ws(  3) = 0.5278271961556708D-04
        ws(  4) = 0.7264758109123177D-04
        ws(  5) = 0.9316075225454735D-04
        ws(  6) = 0.1145313937056258D-03
        ws(  7) = 0.1369959087340114D-03
        ws(  8) = 0.1608249199662511D-03
        ws(  9) = 0.1863316906743075D-03
        ws( 10) = 0.2138824229539533D-03
        ws( 11) = 0.2439091031223998D-03
        ws( 12) = 0.2769257649988331D-03
        ws( 13) = 0.3135492967507896D-03
        ws( 14) = 0.3545262658776381D-03
        ws( 15) = 0.4007677170426165D-03
        ws( 16) = 0.4533945527725053D-03
        ws( 17) = 0.5137969892485805D-03
        ws( 18) = 0.5837127433350990D-03
        ws( 19) = 0.6653300931245682D-03
        ws( 20) = 0.7614237427897830D-03
        ws( 21) = 0.8755333247795045D-03
        ws( 22) = 0.1012195789642048D-02
        ws( 23) = 0.1177242343197745D-02
        ws( 24) = 0.1378164496820471D-02
        ws( 25) = 0.1624534712157762D-02
        ws( 26) = 0.1928420058231274D-02
        ws( 27) = 0.2304624913979696D-02
        ws( 28) = 0.2770399102730211D-02
        ws( 29) = 0.3343912201465371D-02
        ws( 30) = 0.4040377610911296D-02
        ws( 31) = 0.4864619557524414D-02
        ws( 32) = 0.5800279751523617D-02
        ws( 33) = 0.6800273591472514D-02
        ws( 34) = 0.7788748229967769D-02
        ws( 35) = 0.8682206921080786D-02
        ws( 36) = 0.9420348732764525D-02
        ws( 37) = 0.9983840950683278D-02
        ws( 38) = 0.1038865758492294D-01
        ws( 39) = 0.1066811417104156D-01
        ws( 40) = 0.1085740817189394D-01
        ws( 41) = 0.1098593361318117D-01
        ws( 42) = 0.1107549383631097D-01
        ws( 43) = 0.1114124837653018D-01
        ws( 44) = 0.1119337947343609D-01
        ws( 45) = 0.1123862378397222D-01
        ws( 46) = 0.1128144134523978D-01
        ws( 47) = 0.1132484192564532D-01
        ws( 48) = 0.1137094734873889D-01
        ws( 49) = 0.1142134211899187D-01
        ws( 50) = 0.1147732795454324D-01
        ws( 51) = 0.1154000800516512D-01
        ws( 52) = 0.1161040674223496D-01
        ws( 53) = 0.1169369634773686D-01
        ws( 54) = 0.1180247433985378D-01
        ws( 55) = 0.1196162133635461D-01
        ws( 56) = 0.1204978321385529D-01
        ws( 57) = 0.1282679869866960D-01
        ws( 58) = 0.1461791571076364D-01
        endif
        if( idomain .eq.  128 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.4000000000000000D+00
        rk1r = 0.1884955592153876D+02
        rk1i = 0.1000000000000000D+01
        iquadtype =  2
        n =  62
        err = 0.2905344459862385D-13
        xs(  1) = 0.4159516487871323D-05
        xs(  2) = 0.2194389109515556D-04
        xs(  3) = 0.5405294892731472D-04
        xs(  4) = 0.1006917180719075D-03
        xs(  5) = 0.1621541790092088D-03
        xs(  6) = 0.2388366869755044D-03
        xs(  7) = 0.3312488303654570D-03
        xs(  8) = 0.4400264749420917D-03
        xs(  9) = 0.5659476001223756D-03
        xs( 10) = 0.7099513832126069D-03
        xs( 11) = 0.8731611263285258D-03
        xs( 12) = 0.1056911828047321D-02
        xs( 13) = 0.1262783458778933D-02
        xs( 14) = 0.1492641315271947D-02
        xs( 15) = 0.1748685226309369D-02
        xs( 16) = 0.2033509888391468D-02
        xs( 17) = 0.2350179267553966D-02
        xs( 18) = 0.2702318865577036D-02
        xs( 19) = 0.3094230787965094D-02
        xs( 20) = 0.3531038063591571D-02
        xs( 21) = 0.4018866679725195D-02
        xs( 22) = 0.4565076478979650D-02
        xs( 23) = 0.5178555630995960D-02
        xs( 24) = 0.5870098102892950D-02
        xs( 25) = 0.6652889698370941D-02
        xs( 26) = 0.7543136067180374D-02
        xs( 27) = 0.8560875642407009D-02
        xs( 28) = 0.9731031154931055D-02
        xs( 29) = 0.1108476307668762D-01
        xs( 30) = 0.1266119146410890D-01
        xs( 31) = 0.1450953625722975D-01
        xs( 32) = 0.1669166246645413D-01
        xs( 33) = 0.1928485111682839D-01
        xs( 34) = 0.2238425219877993D-01
        xs( 35) = 0.2610377328159687D-01
        xs( 36) = 0.3057302540631464D-01
        xs( 37) = 0.3592669969155082D-01
        xs( 38) = 0.4228287665977993D-01
        xs( 39) = 0.4971127501782914D-01
        xs( 40) = 0.5820259132150318D-01
        xs( 41) = 0.6765819685397845D-01
        xs( 42) = 0.7791153271544544D-01
        xs( 43) = 0.8877033142414328D-01
        xs( 44) = 0.1000559724757294D+00
        xs( 45) = 0.1116250010869064D+00
        xs( 46) = 0.1233733280382419D+00
        xs( 47) = 0.1352308288135493D+00
        xs( 48) = 0.1471530979640328D+00
        xs( 49) = 0.1591138488991925D+00
        xs( 50) = 0.1710990669582041D+00
        xs( 51) = 0.1831029049935901D+00
        xs( 52) = 0.1951249619864409D+00
        xs( 53) = 0.2071685611245003D+00
        xs( 54) = 0.2192397583784034D+00
        xs( 55) = 0.2313468111273630D+00
        xs( 56) = 0.2435002192862101D+00
        xs( 57) = 0.2557130972657409D+00
        xs( 58) = 0.2680018313194016D+00
        xs( 59) = 0.2803836018904517D+00
        xs( 60) = 0.2928911204460966D+00
        xs( 61) = 0.3056634181272280D+00
        xs( 62) = 0.3182693562738272D+00
        ws(  1) = 0.1067780945082502D-04
        ws(  2) = 0.2491870726345384D-04
        ws(  3) = 0.3933294562957112D-04
        ws(  4) = 0.5399342241471657D-04
        ws(  5) = 0.6899738140878073D-04
        ws(  6) = 0.8445234954177244D-04
        ws(  7) = 0.1004776519544959D-03
        ws(  8) = 0.1172069837592497D-03
        ws(  9) = 0.1347914159282755D-03
        ws( 10) = 0.1534029102424100D-03
        ws( 11) = 0.1732385244063697D-03
        ws( 12) = 0.1945255390340132D-03
        ws( 13) = 0.2175277904926179D-03
        ws( 14) = 0.2425535619400599D-03
        ws( 15) = 0.2699654784564483D-03
        ws( 16) = 0.3001929805533100D-03
        ws( 17) = 0.3337481254295568D-03
        ws( 18) = 0.3712457027629169D-03
        ws( 19) = 0.4134289724341053D-03
        ws( 20) = 0.4612027629932307D-03
        ws( 21) = 0.5156762475252402D-03
        ws( 22) = 0.5782184816155221D-03
        ws( 23) = 0.6505307950901132D-03
        ws( 24) = 0.7347414175601631D-03
        ws( 25) = 0.8335292939707929D-03
        ws( 26) = 0.9502858102197688D-03
        ws( 27) = 0.1089324736355703D-02
        ws( 28) = 0.1256151139326691D-02
        ws( 29) = 0.1457797046934244D-02
        ws( 30) = 0.1703220280043582D-02
        ws( 31) = 0.2003732798397745D-02
        ws( 32) = 0.2373356132928740D-02
        ws( 33) = 0.2828859155074880D-02
        ws( 34) = 0.3388969479679893D-02
        ws( 35) = 0.4071841500893140D-02
        ws( 36) = 0.4889472196354459D-02
        ws( 37) = 0.5838112065383167D-02
        ws( 38) = 0.6886426212678125D-02
        ws( 39) = 0.7969026927306781D-02
        ws( 40) = 0.8996780096446236D-02
        ws( 41) = 0.9885899560845244D-02
        ws( 42) = 0.1058803375956034D-01
        ws( 43) = 0.1109944101242303D-01
        ws( 44) = 0.1144788385553144D-01
        ws( 45) = 0.1167293184308602D-01
        ws( 46) = 0.1181217981799505D-01
        ws( 47) = 0.1189554958857787D-01
        ws( 48) = 0.1194470475871848D-01
        ws( 49) = 0.1197452894055893D-01
        ws( 50) = 0.1199497783288782D-01
        ws( 51) = 0.1201265898557625D-01
        ws( 52) = 0.1203202003230240D-01
        ws( 53) = 0.1205617966261823D-01
        ws( 54) = 0.1208749539539075D-01
        ws( 55) = 0.1212811414910685D-01
        ws( 56) = 0.1218043645773456D-01
        ws( 57) = 0.1225005990971719D-01
        ws( 58) = 0.1233712232095985D-01
        ws( 59) = 0.1247972558523170D-01
        ws( 60) = 0.1263105416265514D-01
        ws( 61) = 0.1291073586676592D-01
        ws( 62) = 0.1496349054923624D-01
        endif
        if( idomain .eq.  129 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.4000000000000000D+00
        rk1r = 0.2199114857512855D+02
        rk1i = 0.1000000000000000D+01
        iquadtype =  2
        n =  64
        err = 0.5876741005913521D-13
        xs(  1) = 0.3287007502808462D-05
        xs(  2) = 0.1733552001687184D-04
        xs(  3) = 0.4267752386280223D-04
        xs(  4) = 0.7943633454834941D-04
        xs(  5) = 0.1277865746338199D-03
        xs(  6) = 0.1879627838997984D-03
        xs(  7) = 0.2602652950610619D-03
        xs(  8) = 0.3450670314501995D-03
        xs(  9) = 0.4428215628074562D-03
        xs( 10) = 0.5540725797754038D-03
        xs( 11) = 0.6794649876553243D-03
        xs( 12) = 0.8197578972219971D-03
        xs( 13) = 0.9758398841564695D-03
        xs( 14) = 0.1148746998225752D-02
        xs( 15) = 0.1339684133358445D-02
        xs( 16) = 0.1550050527992976D-02
        xs( 17) = 0.1781470362172272D-02
        xs( 18) = 0.2035829667866075D-02
        xs( 19) = 0.2315321090315244D-02
        xs( 20) = 0.2622498455083590D-02
        xs( 21) = 0.2960343640296085D-02
        xs( 22) = 0.3332348969637630D-02
        xs( 23) = 0.3742619287669599D-02
        xs( 24) = 0.4195999134188051D-02
        xs( 25) = 0.4698232105966197D-02
        xs( 26) = 0.5256161726745558D-02
        xs( 27) = 0.5877986132333728D-02
        xs( 28) = 0.6573582868944838D-02
        xs( 29) = 0.7354925417361220D-02
        xs( 30) = 0.8236620067931600D-02
        xs( 31) = 0.9236600861326737D-02
        xs( 32) = 0.1037703170436192D-01
        xs( 33) = 0.1168547814599178D-01
        xs( 34) = 0.1319642485329782D-01
        xs( 35) = 0.1495322320720444D-01
        xs( 36) = 0.1701054330049859D-01
        xs( 37) = 0.1943734559163365D-01
        xs( 38) = 0.2232021520823953D-01
        xs( 39) = 0.2576649206458569D-01
        xs( 40) = 0.2990578044432747D-01
        xs( 41) = 0.3488693750264496D-01
        xs( 42) = 0.4086580952664241D-01
        xs( 43) = 0.4797877858734110D-01
        xs( 44) = 0.5630296347259972D-01
        xs( 45) = 0.6581780174131965D-01
        xs( 46) = 0.7639380325953395D-01
        xs( 47) = 0.8782253658741535D-01
        xs( 48) = 0.9987130628973330D-01
        xs( 49) = 0.1123308682833877D+00
        xs( 50) = 0.1250388125472871D+00
        xs( 51) = 0.1378816610698755D+00
        xs( 52) = 0.1507863955913996D+00
        xs( 53) = 0.1637096620781313D+00
        xs( 54) = 0.1766284597749742D+00
        xs( 55) = 0.1895332785927791D+00
        xs( 56) = 0.2024234600239273D+00
        xs( 57) = 0.2153042471814634D+00
        xs( 58) = 0.2281849741126612D+00
        xs( 59) = 0.2410788010631608D+00
        xs( 60) = 0.2540006671608532D+00
        xs( 61) = 0.2669686904239323D+00
        xs( 62) = 0.2799977197040658D+00
        xs( 63) = 0.2932580444541572D+00
        xs( 64) = 0.3059391061812056D+00
        ws(  1) = 0.8437398181873879D-05
        ws(  2) = 0.1967807097441741D-04
        ws(  3) = 0.3102601059081817D-04
        ws(  4) = 0.4252061571636195D-04
        ws(  5) = 0.5421885919850904D-04
        ws(  6) = 0.6618350196298038D-04
        ws(  7) = 0.7848354032665863D-04
        ws(  8) = 0.9119536996741397D-04
        ws(  9) = 0.1044041236139643D-03
        ws( 10) = 0.1182051789039300D-03
        ws( 11) = 0.1327059021321306D-03
        ws( 12) = 0.1480277142391852D-03
        ws( 13) = 0.1643085802396607D-03
        ws( 14) = 0.1817060408283045D-03
        ws( 15) = 0.2004009287604149D-03
        ws( 16) = 0.2206019456344863D-03
        ws( 17) = 0.2425513199673630D-03
        ws( 18) = 0.2665318287270934D-03
        ws( 19) = 0.2928755467942841D-03
        ws( 20) = 0.3219747990010243D-03
        ws( 21) = 0.3542959368505287D-03
        ws( 22) = 0.3903967596780331D-03
        ws( 23) = 0.4309486655540659D-03
        ws( 24) = 0.4767649746865798D-03
        ws( 25) = 0.5288373496929801D-03
        ws( 26) = 0.5883828853143127D-03
        ws( 27) = 0.6569053088173652D-03
        ws( 28) = 0.7362748854684590D-03
        ws( 29) = 0.8288331267912989D-03
        ws( 30) = 0.9375302943409870D-03
        ws( 31) = 0.1066105929902970D-02
        ws( 32) = 0.1219324930287978D-02
        ws( 33) = 0.1403283131529146D-02
        ws( 34) = 0.1625794723570728D-02
        ws( 35) = 0.1896863852771997D-02
        ws( 36) = 0.2229212992665406D-02
        ws( 37) = 0.2638767177504652D-02
        ws( 38) = 0.3144830226919010D-02
        ws( 39) = 0.3769362723793174D-02
        ws( 40) = 0.4534213831370470D-02
        ws( 41) = 0.5454513262950027D-02
        ws( 42) = 0.6526659244635603D-02
        ws( 43) = 0.7712844798740822D-02
        ws( 44) = 0.8932330062037554D-02
        ws( 45) = 0.1007521712570431D-01
        ws( 46) = 0.1104104497826727D-01
        ws( 47) = 0.1177680123323246D-01
        ws( 48) = 0.1228548887215973D-01
        ws( 49) = 0.1260656147930651D-01
        ws( 50) = 0.1279057517132846D-01
        ws( 51) = 0.1288314031644679D-01
        ws( 52) = 0.1291925980862898D-01
        ws( 53) = 0.1292355279701023D-01
        ws( 54) = 0.1291253186024621D-01
        ws( 55) = 0.1289703679997341D-01
        ws( 56) = 0.1288420373627201D-01
        ws( 57) = 0.1287893366709331D-01
        ws( 58) = 0.1288481889112399D-01
        ws( 59) = 0.1290542238032279D-01
        ws( 60) = 0.1295132756308757D-01
        ws( 61) = 0.1302742900701860D-01
        ws( 62) = 0.1300311964427867D-01
        ws( 63) = 0.1368756446180508D-01
        ws( 64) = 0.1454212431809698D-01
        endif
        if( idomain .eq.  130 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.4000000000000000D+00
        rk1r = 0.2513274122871834D+02
        rk1i = 0.1000000000000000D+01
        iquadtype =  2
        n =  67
        err = 0.8000417764072877D-13
        xs(  1) = 0.2674513701488563D-05
        xs(  2) = 0.1410222258027543D-04
        xs(  3) = 0.3470411438386446D-04
        xs(  4) = 0.6455874283396204D-04
        xs(  5) = 0.1037758415042581D-03
        xs(  6) = 0.1525023571365596D-03
        xs(  7) = 0.2109259391214842D-03
        xs(  8) = 0.2792788325318855D-03
        xs(  9) = 0.3578424024072514D-03
        xs( 10) = 0.4469523521508721D-03
        xs( 11) = 0.5470047054885319D-03
        xs( 12) = 0.6584626539505466D-03
        xs( 13) = 0.7818644120774844D-03
        xs( 14) = 0.9178322677207513D-03
        xs( 15) = 0.1067083065529477D-02
        xs( 16) = 0.1230440420062446D-02
        xs( 17) = 0.1408849024056239D-02
        xs( 18) = 0.1603391501326442D-02
        xs( 19) = 0.1815308357813234D-02
        xs( 20) = 0.2046021715068551D-02
        xs( 21) = 0.2297163676581061D-02
        xs( 22) = 0.2570610389890486D-02
        xs( 23) = 0.2868523141131654D-02
        xs( 24) = 0.3193398172980174D-02
        xs( 25) = 0.3548127378070841D-02
        xs( 26) = 0.3936072623020585D-02
        xs( 27) = 0.4361157250789366D-02
        xs( 28) = 0.4827979355774991D-02
        xs( 29) = 0.5341952814334914D-02
        xs( 30) = 0.5909483902028728D-02
        xs( 31) = 0.6538193797915925D-02
        xs( 32) = 0.7237200579552579D-02
        xs( 33) = 0.8017478730292000D-02
        xs( 34) = 0.8892320068174319D-02
        xs( 35) = 0.9877927783671489D-02
        xs( 36) = 0.1099418537084459D-01
        xs( 37) = 0.1226565491479111D-01
        xs( 38) = 0.1372287410242438D-01
        xs( 39) = 0.1540403641415038D-01
        xs( 40) = 0.1735714809830161D-01
        xs( 41) = 0.1964274326024372D-01
        xs( 42) = 0.2233716903392153D-01
        xs( 43) = 0.2553624969358256D-01
        xs( 44) = 0.2935865153533701D-01
        xs( 45) = 0.3394725437730811D-01
        xs( 46) = 0.3946507074181499D-01
        xs( 47) = 0.4608017874287988D-01
        xs( 48) = 0.5393430637319581D-01
        xs( 49) = 0.6309732675535466D-01
        xs( 50) = 0.7352656343436514D-01
        xs( 51) = 0.8506063732155585D-01
        xs( 52) = 0.9745968230895319D-01
        xs( 53) = 0.1104679361838293D+00
        xs( 54) = 0.1238631070750077D+00
        xs( 55) = 0.1374773514540548D+00
        xs( 56) = 0.1511963458802093D+00
        xs( 57) = 0.1649486911103309D+00
        xs( 58) = 0.1786939547839354D+00
        xs( 59) = 0.1924128190419400D+00
        xs( 60) = 0.2061000151400521D+00
        xs( 61) = 0.2197596929348149D+00
        xs( 62) = 0.2334027804573689D+00
        xs( 63) = 0.2470449523109884D+00
        xs( 64) = 0.2606989165066014D+00
        xs( 65) = 0.2743995688489196D+00
        xs( 66) = 0.2883053147257923D+00
        xs( 67) = 0.3015646779784648D+00
        ws(  1) = 0.6864846512570324D-05
        ws(  2) = 0.1600360414994610D-04
        ws(  3) = 0.2521289334107742D-04
        ws(  4) = 0.3451458825612528D-04
        ws(  5) = 0.4394404418986808D-04
        ws(  6) = 0.5354019736569028D-04
        ws(  7) = 0.6334559882948704D-04
        ws(  8) = 0.7340699535003327D-04
        ws(  9) = 0.8377599550892131D-04
        ws( 10) = 0.9450979414471348D-04
        ws( 11) = 0.1056719806429107D-03
        ws( 12) = 0.1173334684301324D-03
        ws( 13) = 0.1295735884424738D-03
        ws( 14) = 0.1424813942648795D-03
        ws( 15) = 0.1561572330368790D-03
        ws( 16) = 0.1707146452442031D-03
        ws( 17) = 0.1862826691440019D-03
        ws( 18) = 0.2030086428348813D-03
        ws( 19) = 0.2210616201321941D-03
        ws( 20) = 0.2406365470755959D-03
        ws( 21) = 0.2619593862813741D-03
        ws( 22) = 0.2852934294626995D-03
        ws( 23) = 0.3109471083944215D-03
        ws( 24) = 0.3392837070225122D-03
        ws( 25) = 0.3707335000279654D-03
        ws( 26) = 0.4058090065114197D-03
        ws( 27) = 0.4451242659873276D-03
        ws( 28) = 0.4894193372878544D-03
        ws( 29) = 0.5395916159732019D-03
        ws( 30) = 0.5967360983383556D-03
        ws( 31) = 0.6621974374192226D-03
        ws( 32) = 0.7376375987814960D-03
        ws( 33) = 0.8251242035010433D-03
        ws( 34) = 0.9272463171747387D-03
        ws( 35) = 0.1047266556198738D-02
        ws( 36) = 0.1189320884998463D-02
        ws( 37) = 0.1358680044224382D-02
        ws( 38) = 0.1562088175083236D-02
        ws( 39) = 0.1808192314612925D-02
        ws( 40) = 0.2108064967896553D-02
        ws( 41) = 0.2475787400558408D-02
        ws( 42) = 0.2928975073273640D-02
        ws( 43) = 0.3488933139868599D-02
        ws( 44) = 0.4179738076204928D-02
        ws( 45) = 0.5024871688569992D-02
        ws( 46) = 0.6039298046084382D-02
        ws( 47) = 0.7215343474282303D-02
        ws( 48) = 0.8505320876770793D-02
        ws( 49) = 0.9813749083775082D-02
        ws( 50) = 0.1101708658925941D-01
        ws( 51) = 0.1200993887737440D-01
        ws( 52) = 0.1274466698108845D-01
        ws( 53) = 0.1323446628454858D-01
        ws( 54) = 0.1352794984881294D-01
        ws( 55) = 0.1368168119458336D-01
        ws( 56) = 0.1374461413651478D-01
        ws( 57) = 0.1375350248943298D-01
        ws( 58) = 0.1373392127524034D-01
        ws( 59) = 0.1370301389056497D-01
        ws( 60) = 0.1367215456342757D-01
        ws( 61) = 0.1364913396714307D-01
        ws( 62) = 0.1363960837093359D-01
        ws( 63) = 0.1365373384407671D-01
        ws( 64) = 0.1368546393417843D-01
        ws( 65) = 0.1361791001507698D-01
        ws( 66) = 0.1443955590956444D-01
        ws( 67) = 0.1415672562560492D-01
        endif
        if( idomain .eq.  131 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.4000000000000000D+00
        rk1r = 0.2827433388230814D+02
        rk1i = 0.1000000000000000D+01
        iquadtype =  2
        n =  71
        err = 0.5318326950172893D-13
        xs(  1) = 0.2200802508719708D-05
        xs(  2) = 0.1160258609853215D-04
        xs(  3) = 0.2854456374319405D-04
        xs(  4) = 0.5307815731412600D-04
        xs(  5) = 0.8527406545313722D-04
        xs(  6) = 0.1252266821713657D-03
        xs(  7) = 0.1730562565479598D-03
        xs(  8) = 0.2289112130019319D-03
        xs(  9) = 0.2929708051357719D-03
        xs( 10) = 0.3654481301722280D-03
        xs( 11) = 0.4465935246782151D-03
        xs( 12) = 0.5366983760583181D-03
        xs( 13) = 0.6360994030058336D-03
        xs( 14) = 0.7451834787893474D-03
        xs( 15) = 0.8643930934341173D-03
        xs( 16) = 0.9942325749021865D-03
        xs( 17) = 0.1135275216159404D-02
        xs( 18) = 0.1288171485804307D-02
        xs( 19) = 0.1453658536340056D-02
        xs( 20) = 0.1632571268192618D-02
        xs( 21) = 0.1825855261670232D-02
        xs( 22) = 0.2034581956272041D-02
        xs( 23) = 0.2259966540935829D-02
        xs( 24) = 0.2503389124893833D-02
        xs( 25) = 0.2766419893167405D-02
        xs( 26) = 0.3050849121733174D-02
        xs( 27) = 0.3358723146063003D-02
        xs( 28) = 0.3692387657718348D-02
        xs( 29) = 0.4054540066512062D-02
        xs( 30) = 0.4448293136675567D-02
        xs( 31) = 0.4877252719833794D-02
        xs( 32) = 0.5345613213213815D-02
        xs( 33) = 0.5858275433264643D-02
        xs( 34) = 0.6420993000876465D-02
        xs( 35) = 0.7040555204383726D-02
        xs( 36) = 0.7725016802653678D-02
        xs( 37) = 0.8483988570765919D-02
        xs( 38) = 0.9329006863809573D-02
        xs( 39) = 0.1027400645204760D-01
        xs( 40) = 0.1133592881730623D-01
        xs( 41) = 0.1253550849023628D-01
        xs( 42) = 0.1389829323762518D-01
        xs( 43) = 0.1545596985219903D-01
        xs( 44) = 0.1724808431768127D-01
        xs( 45) = 0.1932425773249967D-01
        xs( 46) = 0.2174699296832603D-01
        xs( 47) = 0.2459510654637997D-01
        xs( 48) = 0.2796762762278745D-01
        xs( 49) = 0.3198752337419912D-01
        xs( 50) = 0.3680357221867571D-01
        xs( 51) = 0.4258686103199510D-01
        xs( 52) = 0.4951613130966990D-01
        xs( 53) = 0.5774605693543426D-01
        xs( 54) = 0.6735979997072986D-01
        xs( 55) = 0.7832413517133745D-01
        xs( 56) = 0.9047819550720546D-01
        xs( 57) = 0.1035712813503410D+00
        xs( 58) = 0.1173282087854925D+00
        xs( 59) = 0.1315046368710338D+00
        xs( 60) = 0.1459132230807003D+00
        xs( 61) = 0.1604251420157758D+00
        xs( 62) = 0.1749596885842103D+00
        xs( 63) = 0.1894714708704481D+00
        xs( 64) = 0.2039395561912167D+00
        xs( 65) = 0.2183595420719941D+00
        xs( 66) = 0.2327381602446882D+00
        xs( 67) = 0.2470935645772098D+00
        xs( 68) = 0.2614431294077347D+00
        xs( 69) = 0.2758069819659886D+00
        xs( 70) = 0.2902823784967492D+00
        xs( 71) = 0.3049495126370939D+00
        ws(  1) = 0.5648731647944324D-05
        ws(  2) = 0.1316436065404972D-04
        ws(  3) = 0.2072785990899378D-04
        ws(  4) = 0.2835106658852803D-04
        ws(  5) = 0.3605644777733609D-04
        ws(  6) = 0.4386878869510655D-04
        ws(  7) = 0.5181505326928006D-04
        ws(  8) = 0.5992468504276032D-04
        ws(  9) = 0.6822995891394058D-04
        ws( 10) = 0.7676635052120366D-04
        ws( 11) = 0.8557293189271341D-04
        ws( 12) = 0.9469281048960666D-04
        ws( 13) = 0.1041736315320656D-03
        ws( 14) = 0.1140681650343423D-03
        ws( 15) = 0.1244350005519189D-03
        ws( 16) = 0.1353393748747729D-03
        ws( 17) = 0.1468541612121351D-03
        ws( 18) = 0.1590610531660637D-03
        ws( 19) = 0.1720519833404669D-03
        ws( 20) = 0.1859308251894175D-03
        ws( 21) = 0.2008154381901436D-03
        ws( 22) = 0.2168401313174254D-03
        ws( 23) = 0.2341586390220267D-03
        ws( 24) = 0.2529477287244441D-03
        ws( 25) = 0.2734115909175222D-03
        ws( 26) = 0.2957872046107676D-03
        ws( 27) = 0.3203509251419177D-03
        ws( 28) = 0.3474266125143971D-03
        ws( 29) = 0.3773957121011454D-03
        ws( 30) = 0.4107098235592609D-03
        ws( 31) = 0.4479064587350175D-03
        ws( 32) = 0.4896289097355104D-03
        ws( 33) = 0.5366514440448781D-03
        ws( 34) = 0.5899114416027412D-03
        ws( 35) = 0.6505506257174820D-03
        ws( 36) = 0.7199682642450389D-03
        ws( 37) = 0.7998901929059379D-03
        ws( 38) = 0.8924588168421177D-03
        ws( 39) = 0.1000350966026936D-02
        ws( 40) = 0.1126932686647237D-02
        ws( 41) = 0.1276462736380587D-02
        ws( 42) = 0.1454359468711486D-02
        ws( 43) = 0.1667548070401036D-02
        ws( 44) = 0.1924904394873523D-02
        ws( 45) = 0.2237802111709234D-02
        ws( 46) = 0.2620738152980625D-02
        ws( 47) = 0.3091928128600778D-02
        ws( 48) = 0.3673569252118192D-02
        ws( 49) = 0.4391062730948126D-02
        ws( 50) = 0.5269776621184114D-02
        ws( 51) = 0.6327117982277762D-02
        ws( 52) = 0.7558035802151166D-02
        ws( 53) = 0.8916511686094628D-02
        ws( 54) = 0.1030567411725782D-01
        ws( 55) = 0.1159549197110807D-01
        ws( 56) = 0.1266964867470927D-01
        ws( 57) = 0.1346969094752080D-01
        ws( 58) = 0.1400302380173889D-01
        ws( 59) = 0.1431861817071275D-01
        ws( 60) = 0.1447727957422744D-01
        ws( 61) = 0.1453332987158418D-01
        ws( 62) = 0.1452838220000466D-01
        ws( 63) = 0.1449182302730272D-01
        ws( 64) = 0.1444370741091932D-01
        ws( 65) = 0.1439774825062325D-01
        ws( 66) = 0.1436272371161319D-01
        ws( 67) = 0.1434530338053728D-01
        ws( 68) = 0.1439344338305429D-01
        ws( 69) = 0.1435434909855931D-01
        ws( 70) = 0.1404974112424932D-01
        ws( 71) = 0.1754877696150204D-01
        endif
        if( idomain .eq.  132 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.4000000000000000D+00
        rk1r = 0.3141592653589793D+02
        rk1i = 0.1000000000000000D+01
        iquadtype =  2
        n =  75
        err = 0.8181889236713941D-13
        xs(  1) = 0.1840289386071361D-05
        xs(  2) = 0.9700906372983684D-05
        xs(  3) = 0.2386134471599522D-04
        xs(  4) = 0.4435698501666793D-04
        xs(  5) = 0.7123564287409496D-04
        xs(  6) = 0.1045609443030454D-03
        xs(  7) = 0.1444137204572183D-03
        xs(  8) = 0.1908934462637261D-03
        xs(  9) = 0.2441198657954310D-03
        xs( 10) = 0.3042348207069160D-03
        xs( 11) = 0.3714042874290102D-03
        xs( 12) = 0.4458206343449369D-03
        xs( 13) = 0.5277051192802683D-03
        xs( 14) = 0.6173106578517035D-03
        xs( 15) = 0.7149249039343596D-03
        xs( 16) = 0.8208736946853400D-03
        xs( 17) = 0.9355249244394980D-03
        xs( 18) = 0.1059292924787231D-02
        xs( 19) = 0.1192643442810268D-02
        xs( 20) = 0.1336099326472507D-02
        xs( 21) = 0.1490247046355580D-02
        xs( 22) = 0.1655744207268975D-02
        xs( 23) = 0.1833328232933682D-02
        xs( 24) = 0.2023826443388558D-02
        xs( 25) = 0.2228167789813118D-02
        xs( 26) = 0.2447396567394217D-02
        xs( 27) = 0.2682688496619499D-02
        xs( 28) = 0.2935369650740525D-02
        xs( 29) = 0.3206938817026457D-02
        xs( 30) = 0.3499094018242472D-02
        xs( 31) = 0.3813764096971500D-02
        xs( 32) = 0.4153146490093174D-02
        xs( 33) = 0.4519752608730259D-02
        xs( 34) = 0.4916462609999281D-02
        xs( 35) = 0.5346591827403102D-02
        xs( 36) = 0.5813971752268600D-02
        xs( 37) = 0.6323049277363379D-02
        xs( 38) = 0.6879008990927741D-02
        xs( 39) = 0.7487924733411111D-02
        xs( 40) = 0.8156948520622299D-02
        xs( 41) = 0.8894547459158015D-02
        xs( 42) = 0.9710802653203340D-02
        xs( 43) = 0.1061778861967888D-01
        xs( 44) = 0.1163005777321458D-01
        xs( 45) = 0.1276526258840873D-01
        xs( 46) = 0.1404495863093619D-01
        xs( 47) = 0.1549564524241125D-01
        xs( 48) = 0.1715011730606620D-01
        xs( 49) = 0.1904921988817506D-01
        xs( 50) = 0.2124411271763405D-01
        xs( 51) = 0.2379914972453633D-01
        xs( 52) = 0.2679542628640588D-01
        xs( 53) = 0.3033486581144195D-01
        xs( 54) = 0.3454424604770534D-01
        xs( 55) = 0.3957752303870776D-01
        xs( 56) = 0.4561290624713920D-01
        xs( 57) = 0.5283870842251891D-01
        xs( 58) = 0.6142150074188191D-01
        xs( 59) = 0.7145697147864773D-01
        xs( 60) = 0.8292107521153710D-01
        xs( 61) = 0.9565379278499613D-01
        xs( 62) = 0.1093946593469512D+00
        xs( 63) = 0.1238508925677958D+00
        xs( 64) = 0.1387583747463638D+00
        xs( 65) = 0.1539125050279927D+00
        xs( 66) = 0.1691718277720310D+00
        xs( 67) = 0.1844477463104807D+00
        xs( 68) = 0.1996909509525364D+00
        xs( 69) = 0.2148797163206299D+00
        xs( 70) = 0.2300112719684495D+00
        xs( 71) = 0.2450972936260133D+00
        xs( 72) = 0.2601582564769209D+00
        xs( 73) = 0.2752160621784799D+00
        xs( 74) = 0.2903666209686174D+00
        xs( 75) = 0.3056216458641899D+00
        ws(  1) = 0.4723292937097438D-05
        ws(  2) = 0.1100521501403850D-04
        ws(  3) = 0.1732130711142737D-04
        ws(  4) = 0.2367791150396561D-04
        ws(  5) = 0.3008998676660229D-04
        ws(  6) = 0.3657406413132775D-04
        ws(  7) = 0.4314804025983088D-04
        ws(  8) = 0.4983133823438465D-04
        ws(  9) = 0.5664510717723586D-04
        ws( 10) = 0.6361242781266386D-04
        ws( 11) = 0.7075852547645178D-04
        ws( 12) = 0.7811099861859225D-04
        ws( 13) = 0.8570007263831987D-04
        ws( 14) = 0.9355888955270991D-04
        ws( 15) = 0.1017238444239388D-03
        ws( 16) = 0.1102349800172668D-03
        ws( 17) = 0.1191364520437889D-03
        ws( 18) = 0.1284770787147501D-03
        ws( 19) = 0.1383109903264977D-03
        ws( 20) = 0.1486983973349388D-03
        ws( 21) = 0.1597064990076634D-03
        ws( 22) = 0.1714105594417973D-03
        ws( 23) = 0.1838951837383547D-03
        ws( 24) = 0.1972558347427845D-03
        ws( 25) = 0.2116006404112410D-03
        ws( 26) = 0.2270525540956076D-03
        ws( 27) = 0.2437519455909535D-03
        ws( 28) = 0.2618597206347533D-03
        ws( 29) = 0.2815610919852560D-03
        ws( 30) = 0.3030701579732630D-03
        ws( 31) = 0.3266354868426773D-03
        ws( 32) = 0.3525469603991769D-03
        ws( 33) = 0.3811442026991059D-03
        ws( 34) = 0.4128270144672767D-03
        ws( 35) = 0.4480683594330504D-03
        ws( 36) = 0.4874306154674289D-03
        ws( 37) = 0.5315860258649039D-03
        ws( 38) = 0.5813425842534556D-03
        ws( 39) = 0.6376769876410384D-03
        ws( 40) = 0.7017768329234769D-03
        ws( 41) = 0.7750949622840905D-03
        ws( 42) = 0.8594198471714685D-03
        ws( 43) = 0.9569672204656492D-03
        ws( 44) = 0.1070499915763423D-02
        ws( 45) = 0.1203485138074392D-02
        ws( 46) = 0.1360301193762767D-02
        ws( 47) = 0.1546508859120335D-02
        ws( 48) = 0.1769205305727318D-02
        ws( 49) = 0.2037478658106031D-02
        ws( 50) = 0.2362973334750299D-02
        ws( 51) = 0.2760547257374128D-02
        ws( 52) = 0.3248922457885663D-02
        ws( 53) = 0.3851039396038632D-02
        ws( 54) = 0.4593414460534068D-02
        ws( 55) = 0.5503058628977501D-02
        ws( 56) = 0.6599619582678425D-02
        ws( 57) = 0.7880606666026165D-02
        ws( 58) = 0.9301830513903996D-02
        ws( 59) = 0.1076543460785323D-01
        ws( 60) = 0.1213545548347981D-01
        ws( 61) = 0.1328531869560805D-01
        ws( 62) = 0.1414654395452881D-01
        ws( 63) = 0.1472140441707617D-01
        ws( 64) = 0.1505943644920306D-01
        ws( 65) = 0.1522544534307622D-01
        ws( 66) = 0.1527867072483489D-01
        ws( 67) = 0.1526515031907692D-01
        ws( 68) = 0.1521777897004121D-01
        ws( 69) = 0.1515939165061719D-01
        ws( 70) = 0.1510518872571541D-01
        ws( 71) = 0.1507259831280681D-01
        ws( 72) = 0.1506111168924578D-01
        ws( 73) = 0.1503768422825219D-01
        ws( 74) = 0.1532855419415268D-01
        ws( 75) = 0.1719847295739569D-01
        endif
        if( idomain .eq.  133 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.4000000000000000D+00
        rk1r = 0.3455751918948772D+02
        rk1i = 0.1000000000000000D+01
        iquadtype =  2
        n =  79
        err = 0.5346973322156958D-13
        xs(  1) = 0.1567610615870905D-05
        xs(  2) = 0.8262743022457519D-05
        xs(  3) = 0.2032049899784631D-04
        xs(  4) = 0.3776558319781801D-04
        xs(  5) = 0.6063073287161623D-04
        xs(  6) = 0.8895943627622217D-04
        xs(  7) = 0.1228069164643006D-03
        xs(  8) = 0.1622411046220369D-03
        xs(  9) = 0.2073437228439742D-03
        xs( 10) = 0.2582114867596916D-03
        xs( 11) = 0.3149574273112812D-03
        xs( 12) = 0.3777123333503879D-03
        xs( 13) = 0.4466263219044175D-03
        xs( 14) = 0.5218705488415421D-03
        xs( 15) = 0.6036390786788136D-03
        xs( 16) = 0.6921509382925582D-03
        xs( 17) = 0.7876523853548008D-03
        xs( 18) = 0.8904194285893991D-03
        xs( 19) = 0.1000760643643161D-02
        xs( 20) = 0.1119020335780258D-02
        xs( 21) = 0.1245582109058499D-02
        xs( 22) = 0.1380872911507008D-02
        xs( 23) = 0.1525367637527525D-02
        xs( 24) = 0.1679594382790673D-02
        xs( 25) = 0.1844140463896264D-02
        xs( 26) = 0.2019659335746490D-02
        xs( 27) = 0.2206878564846728D-02
        xs( 28) = 0.2406609047731031D-02
        xs( 29) = 0.2619755701834970D-02
        xs( 30) = 0.2847329903220421D-02
        xs( 31) = 0.3090464003914693D-02
        xs( 32) = 0.3350428334246689D-02
        xs( 33) = 0.3628651186305262D-02
        xs( 34) = 0.3926742388530053D-02
        xs( 35) = 0.4246521225031420D-02
        xs( 36) = 0.4590049635132180D-02
        xs( 37) = 0.4959671860191532D-02
        xs( 38) = 0.5358062001079170D-02
        xs( 39) = 0.5788281330788147D-02
        xs( 40) = 0.6253847699496355D-02
        xs( 41) = 0.6758820010074639D-02
        xs( 42) = 0.7307901579442167D-02
        xs( 43) = 0.7906567301553022D-02
        xs( 44) = 0.8561220981211690D-02
        xs( 45) = 0.9279391137040276D-02
        xs( 46) = 0.1006997614368921D-01
        xs( 47) = 0.1094355302404548D-01
        xs( 48) = 0.1191276881566997D-01
        xs( 49) = 0.1299283962228374D-01
        xs( 50) = 0.1420219072936740D-01
        xs( 51) = 0.1556328211115428D-01
        xs( 52) = 0.1710367786913359D-01
        xs( 53) = 0.1885743586328848D-01
        xs( 54) = 0.2086691405780722D-01
        xs( 55) = 0.2318510853661961D-01
        xs( 56) = 0.2587864175460500D-01
        xs( 57) = 0.2903147475239226D-01
        xs( 58) = 0.3274924379363312D-01
        xs( 59) = 0.3716364724958739D-01
        xs( 60) = 0.4243522282014106D-01
        xs( 61) = 0.4875082733351771D-01
        xs( 62) = 0.5630948925796334D-01
        xs( 63) = 0.6528957759664256D-01
        xs( 64) = 0.7579705280296629D-01
        xs( 65) = 0.8781254295991102D-01
        xs( 66) = 0.1011716959819450D+00
        xs( 67) = 0.1156008776475093D+00
        xs( 68) = 0.1307892555507158D+00
        xs( 69) = 0.1464546985339069D+00
        xs( 70) = 0.1623779110318156D+00
        xs( 71) = 0.1784071829519916D+00
        xs( 72) = 0.1944478420035271D+00
        xs( 73) = 0.2104479313779735D+00
        xs( 74) = 0.2263855964900079D+00
        xs( 75) = 0.2422612052113292D+00
        xs( 76) = 0.2580869393720953D+00
        xs( 77) = 0.2739048856528595D+00
        xs( 78) = 0.2897200773173545D+00
        xs( 79) = 0.3053490431376632D+00
        ws(  1) = 0.4023347696116601D-05
        ws(  2) = 0.9372617243297209D-05
        ws(  3) = 0.1474679987876131D-04
        ws(  4) = 0.2014880072360463D-04
        ws(  5) = 0.2558873151760679D-04
        ws(  6) = 0.3107786304222029D-04
        ws(  7) = 0.3662840115906503D-04
        ws(  8) = 0.4225357545683203D-04
        ws(  9) = 0.4796775823220270D-04
        ws( 10) = 0.5378658406239997D-04
        ws( 11) = 0.5972706904189328D-04
        ws( 12) = 0.6580773407444491D-04
        ws( 13) = 0.7204873790711340D-04
        ws( 14) = 0.7847202589811899D-04
        ws( 15) = 0.8510150053668760D-04
        ws( 16) = 0.9196321973586400D-04
        ws( 17) = 0.9908562903292996D-04
        ws( 18) = 0.1064998341406508D-03
        ws( 19) = 0.1142399208560945D-03
        ws( 20) = 0.1223433302005671D-03
        ws( 21) = 0.1308512978797567D-03
        ws( 22) = 0.1398093687684730D-03
        ws( 23) = 0.1492679992047352D-03
        ws( 24) = 0.1592832625064301D-03
        ws( 25) = 0.1699176764144325D-03
        ws( 26) = 0.1812411752675524D-03
        ws( 27) = 0.1933322548229709D-03
        ws( 28) = 0.2062793240095098D-03
        ws( 29) = 0.2201823058777867D-03
        ws( 30) = 0.2351545400309073D-03
        ws( 31) = 0.2513250514622459D-03
        ws( 32) = 0.2688412667526449D-03
        ws( 33) = 0.2878722789903586D-03
        ws( 34) = 0.3086127889052980D-03
        ws( 35) = 0.3312878833218741D-03
        ws( 36) = 0.3561588554962503D-03
        ws( 37) = 0.3835303283977568D-03
        ws( 38) = 0.4137590158056535D-03
        ws( 39) = 0.4472645530317497D-03
        ws( 40) = 0.4845429570736918D-03
        ws( 41) = 0.5261834458320976D-03
        ws( 42) = 0.5728895725054805D-03
        ws( 43) = 0.6255059346761858D-03
        ws( 44) = 0.6850521256561294D-03
        ws( 45) = 0.7527661463476096D-03
        ws( 46) = 0.8301602402931745D-03
        ws( 47) = 0.9190931209002705D-03
        ws( 48) = 0.1021863915269764D-02
        ws( 49) = 0.1141334958338646D-02
        ws( 50) = 0.1281092941251376D-02
        ws( 51) = 0.1445660908716552D-02
        ws( 52) = 0.1640777089754115D-02
        ws( 53) = 0.1873759890838508D-02
        ws( 54) = 0.2153979594738496D-02
        ws( 55) = 0.2493451106493992D-02
        ws( 56) = 0.2907535425546911D-02
        ws( 57) = 0.3415659952632108D-02
        ws( 58) = 0.4041773188744762D-02
        ws( 59) = 0.4813816477228822D-02
        ws( 60) = 0.5760693514523896D-02
        ws( 61) = 0.6904227911862005D-02
        ws( 62) = 0.8243727209399213D-02
        ws( 63) = 0.9735087337903117D-02
        ws( 64) = 0.1127703145040374D-01
        ws( 65) = 0.1272590713954052D-01
        ws( 66) = 0.1394546850184138D-01
        ws( 67) = 0.1485992711903270D-01
        ws( 68) = 0.1546925292419349D-01
        ws( 69) = 0.1582504418519981D-01
        ws( 70) = 0.1599630067193771D-01
        ws( 71) = 0.1604671185848684D-01
        ws( 72) = 0.1602615144422287D-01
        ws( 73) = 0.1597059400317189D-01
        ws( 74) = 0.1590512744756019D-01
        ws( 75) = 0.1584635791449953D-01
        ws( 76) = 0.1581536867956000D-01
        ws( 77) = 0.1582714675269915D-01
        ws( 78) = 0.1602913097223279D-01
        ws( 79) = 0.1756700800451916D-01
        endif
        if( idomain .eq.  134 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.4000000000000000D+00
        rk1r = 0.3769911184307752D+02
        rk1i = 0.1000000000000000D+01
        iquadtype =  2
        n =  83
        err = 0.5442152675743791D-13
        xs(  1) = 0.1353974544593872D-05
        xs(  2) = 0.7136182397982156D-05
        xs(  3) = 0.1754772422057509D-04
        xs(  4) = 0.3260636314149562D-04
        xs(  5) = 0.5233512178229221D-04
        xs(  6) = 0.7676453435789245D-04
        xs(  7) = 0.1059333731059186D-03
        xs(  8) = 0.1398893389006568D-03
        xs(  9) = 0.1786898194420244D-03
        xs( 10) = 0.2224027228275732D-03
        xs( 11) = 0.2711073835393034D-03
        xs( 12) = 0.3248955386751289D-03
        xs( 13) = 0.3838723754437250D-03
        xs( 14) = 0.4481576546973344D-03
        xs( 15) = 0.5178869190823205D-03
        xs( 16) = 0.5932127980747590D-03
        xs( 17) = 0.6743064257142776D-03
        xs( 18) = 0.7613589903094337D-03
        xs( 19) = 0.8545834388667342D-03
        xs( 20) = 0.9542163626293635D-03
        xs( 21) = 0.1060520094058233D-02
        xs( 22) = 0.1173785050020689D-02
        xs( 23) = 0.1294332361061217D-02
        xs( 24) = 0.1422516832623427D-02
        xs( 25) = 0.1558730291210533D-02
        xs( 26) = 0.1703405376986297D-02
        xs( 27) = 0.1857019854554475D-02
        xs( 28) = 0.2020101526003758D-02
        xs( 29) = 0.2193233845245697D-02
        xs( 30) = 0.2377062350798578D-02
        xs( 31) = 0.2572302056221115D-02
        xs( 32) = 0.2779745964306020D-02
        xs( 33) = 0.3000274904080903D-02
        xs( 34) = 0.3234868930125896D-02
        xs( 35) = 0.3484620573607906D-02
        xs( 36) = 0.3750750296194544D-02
        xs( 37) = 0.4034624574791992D-02
        xs( 38) = 0.4337777140922102D-02
        xs( 39) = 0.4661934018813301D-02
        xs( 40) = 0.5009043157849389D-02
        xs( 41) = 0.5381309646996107D-02
        xs( 42) = 0.5781237743224123D-02
        xs( 43) = 0.6211681258714973D-02
        xs( 44) = 0.6675904254055060D-02
        xs( 45) = 0.7177654505256022D-02
        xs( 46) = 0.7721252889763250D-02
        xs( 47) = 0.8311702722789810D-02
        xs( 48) = 0.8954824241280185D-02
        xs( 49) = 0.9657420975410998D-02
        xs( 50) = 0.1042748679936259D-01
        xs( 51) = 0.1127446519558373D-01
        xs( 52) = 0.1220957594784934D-01
        xs( 53) = 0.1324622943394102D-01
        xs( 54) = 0.1440055536659415D-01
        xs( 55) = 0.1569208180897530D-01
        xs( 56) = 0.1714461226315312D-01
        xs( 57) = 0.1878736430397002D-01
        xs( 58) = 0.2065645296988449D-01
        xs( 59) = 0.2279682495717351D-01
        xs( 60) = 0.2526477074796029D-01
        xs( 61) = 0.2813114623991035D-01
        xs( 62) = 0.3148538403602318D-01
        xs( 63) = 0.3544017402891451D-01
        xs( 64) = 0.4013614752132269D-01
        xs( 65) = 0.4574468083486112D-01
        xs( 66) = 0.5246473832899789D-01
        xs( 67) = 0.6050693623174701D-01
        xs( 68) = 0.7005746175761875D-01
        xs( 69) = 0.8122214873064909D-01
        xs( 70) = 0.9397074790231971D-01
        xs( 71) = 0.1081189151939452D+00
        xs( 72) = 0.1233698831344598D+00
        xs( 73) = 0.1393927303796206D+00
        xs( 74) = 0.1558913167655902D+00
        xs( 75) = 0.1726384362199898D+00
        xs( 76) = 0.1894792933710193D+00
        xs( 77) = 0.2063196725760764D+00
        xs( 78) = 0.2231108115023889D+00
        xs( 79) = 0.2398368057068936D+00
        xs( 80) = 0.2565056686672898D+00
        xs( 81) = 0.2731531245769422D+00
        xs( 82) = 0.2897757029446020D+00
        xs( 83) = 0.3064534453240527D+00
        ws(  1) = 0.3474983200057571D-05
        ws(  2) = 0.8094029204766088D-05
        ws(  3) = 0.1273183274174266D-04
        ws(  4) = 0.1738926306994105D-04
        ws(  5) = 0.2207333221922706D-04
        ws(  6) = 0.2679194357403644D-04
        ws(  7) = 0.3155367143453554D-04
        ws(  8) = 0.3636781086890479D-04
        ws(  9) = 0.4124445312447508D-04
        ws( 10) = 0.4619455979202968D-04
        ws( 11) = 0.5123003370086902D-04
        ws( 12) = 0.5636378906716109D-04
        ws( 13) = 0.6160982450549915D-04
        ws( 14) = 0.6698330272987491D-04
        ws( 15) = 0.7250064070309649D-04
        ws( 16) = 0.7817961384740686D-04
        ws( 17) = 0.8403947780527225D-04
        ws( 18) = 0.9010111119917314D-04
        ws( 19) = 0.9638718292211642D-04
        ws( 20) = 0.1029223477214051D-03
        ws( 21) = 0.1097334742351472D-03
        ws( 22) = 0.1168499102190896D-03
        ws( 23) = 0.1243037904789814D-03
        ws( 24) = 0.1321303940225976D-03
        ws( 25) = 0.1403685581984369D-03
        ws( 26) = 0.1490611591374938D-03
        ws( 27) = 0.1582556697187369D-03
        ws( 28) = 0.1680048086148840D-03
        ws( 29) = 0.1783672968412777D-03
        ws( 30) = 0.1894087417586766D-03
        ws( 31) = 0.2012026728350579D-03
        ws( 32) = 0.2138317588684476D-03
        ws( 33) = 0.2273892430909781D-03
        ws( 34) = 0.2419806409730196D-03
        ws( 35) = 0.2577257560942547D-03
        ws( 36) = 0.2747610827616762D-03
        ws( 37) = 0.2932426809305776D-03
        ws( 38) = 0.3133496304911824D-03
        ws( 39) = 0.3352881995213626D-03
        ws( 40) = 0.3592968965477273D-03
        ws( 41) = 0.3856526227107104D-03
        ws( 42) = 0.4146781993702760D-03
        ws( 43) = 0.4467516246657440D-03
        ws( 44) = 0.4823175150721188D-03
        ws( 45) = 0.5219013235260876D-03
        ws( 46) = 0.5661271058065744D-03
        ws( 47) = 0.6157398475423378D-03
        ws( 48) = 0.6716336873845711D-03
        ws( 49) = 0.7348878078986563D-03
        ws( 50) = 0.8068123562137629D-03
        ws( 51) = 0.8890075583350895D-03
        ws( 52) = 0.9834402809269917D-03
        ws( 53) = 0.1092543772106827D-02
        ws( 54) = 0.1219348301687403D-02
        ws( 55) = 0.1367653052846244D-02
        ws( 56) = 0.1542252980699445D-02
        ws( 57) = 0.1749238345194666D-02
        ws( 58) = 0.1996388565737355D-02
        ws( 59) = 0.2293683704725132D-02
        ws( 60) = 0.2653950177191472D-02
        ws( 61) = 0.3093626906961656D-02
        ws( 62) = 0.3633548206039386D-02
        ws( 63) = 0.4299414264046218D-02
        ws( 64) = 0.5121131262412853D-02
        ws( 65) = 0.6129340976287761D-02
        ws( 66) = 0.7346472624828906D-02
        ws( 67) = 0.8769932620843588D-02
        ws( 68) = 0.1034979153181385D-01
        ws( 69) = 0.1197491113875969D-01
        ws( 70) = 0.1349080118570733D-01
        ws( 71) = 0.1475463512987599D-01
        ws( 72) = 0.1569093589949315D-01
        ws( 73) = 0.1630485272599679D-01
        ws( 74) = 0.1665443710879765D-01
        ws( 75) = 0.1681422933292990D-01
        ws( 76) = 0.1685205131546949D-01
        ws( 77) = 0.1682076594625169D-01
        ws( 78) = 0.1675893085336307D-01
        ws( 79) = 0.1669403697540869D-01
        ws( 80) = 0.1664874084122572D-01
        ws( 81) = 0.1666862664624606D-01
        ws( 82) = 0.1692063314998332D-01
        ws( 83) = 0.1798822520909221D-01
        endif
        if( idomain .eq.  135 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.4000000000000000D+00
        rk1r = 0.4084070449666731D+02
        rk1i = 0.1000000000000000D+01
        iquadtype =  2
        n =  87
        err = 0.5804864825194533D-13
        xs(  1) = 0.1181129051699418D-05
        xs(  2) = 0.6224853163618074D-05
        xs(  3) = 0.1530527728016423D-04
        xs(  4) = 0.2843548423703260D-04
        xs(  5) = 0.4563201235939153D-04
        xs(  6) = 0.6691675602996362D-04
        xs(  7) = 0.9231751770482639D-04
        xs(  8) = 0.1218685120538376D-03
        xs(  9) = 0.1556109130119342D-03
        xs( 10) = 0.1935934505536919D-03
        xs( 11) = 0.2358730538843616D-03
        xs( 12) = 0.2825155376557966D-03
        xs( 13) = 0.3335963298012357D-03
        xs( 14) = 0.3892012420709910D-03
        xs( 15) = 0.4494272868919846D-03
        xs( 16) = 0.5143835466047012D-03
        xs( 17) = 0.5841921034009317D-03
        xs( 18) = 0.6589890404044235D-03
        xs( 19) = 0.7389255263510151D-03
        xs( 20) = 0.8241689983052365D-03
        xs( 21) = 0.9149044588799251D-03
        xs( 22) = 0.1011335906596045D-02
        xs( 23) = 0.1113687920427567D-02
        xs( 24) = 0.1222207422322495D-02
        xs( 25) = 0.1337165644683243D-02
        xs( 26) = 0.1458860333545023D-02
        xs( 27) = 0.1587618222640724D-02
        xs( 28) = 0.1723797818836987D-02
        xs( 29) = 0.1867792545747037D-02
        xs( 30) = 0.2020034299885225D-02
        xs( 31) = 0.2180997482787039D-02
        xs( 32) = 0.2351203583395611D-02
        xs( 33) = 0.2531226398105417D-02
        xs( 34) = 0.2721697991646625D-02
        xs( 35) = 0.2923315521100534D-02
        xs( 36) = 0.3136849068524949D-02
        xs( 37) = 0.3363150655903750D-02
        xs( 38) = 0.3603164650638321D-02
        xs( 39) = 0.3857939812120561D-02
        xs( 40) = 0.4128643282045378D-02
        xs( 41) = 0.4416576885571759D-02
        xs( 42) = 0.4723196190485400D-02
        xs( 43) = 0.5050132871375906D-02
        xs( 44) = 0.5399221051009762D-02
        xs( 45) = 0.5772528448722840D-02
        xs( 46) = 0.6172393365206290D-02
        xs( 47) = 0.6601468786963643D-02
        xs( 48) = 0.7062775218498601D-02
        xs( 49) = 0.7559764268051153D-02
        xs( 50) = 0.8096395553067900D-02
        xs( 51) = 0.8677230194603418D-02
        xs( 52) = 0.9307545089861169D-02
        xs( 53) = 0.9993473363178332D-02
        xs( 54) = 0.1074217799953163D-01
        xs( 55) = 0.1156206780065043D-01
        xs( 56) = 0.1246306766431281D-01
        xs( 57) = 0.1345695903691964D-01
        xs( 58) = 0.1455781158989665D-01
        xs( 59) = 0.1578253421132120D-01
        xs( 60) = 0.1715158292831056D-01
        xs( 61) = 0.1868987618197993D-01
        xs( 62) = 0.2042798483258343D-01
        xs( 63) = 0.2240368597905940D-01
        xs( 64) = 0.2466399546348207D-01
        xs( 65) = 0.2726781918353857D-01
        xs( 66) = 0.3028937279503390D-01
        xs( 67) = 0.3382247112191064D-01
        xs( 68) = 0.3798557965996093D-01
        xs( 69) = 0.4292693136718748D-01
        xs( 70) = 0.4882767382763500D-01
        xs( 71) = 0.5589858189070257D-01
        xs( 72) = 0.6436281823878170D-01
        xs( 73) = 0.7441659195051625D-01
        xs( 74) = 0.8616830569355576D-01
        xs( 75) = 0.9957923752184544D-01
        xs( 76) = 0.1144471908599558D+00
        xs( 77) = 0.1304544947181614D+00
        xs( 78) = 0.1472523526328679D+00
        xs( 79) = 0.1645324359315019D+00
        xs( 80) = 0.1820609096079630D+00
        xs( 81) = 0.1996808253228571D+00
        xs( 82) = 0.2172993939656748D+00
        xs( 83) = 0.2348725585542773D+00
        xs( 84) = 0.2523931544994811D+00
        xs( 85) = 0.2698837799875783D+00
        xs( 86) = 0.2873511771678475D+00
        xs( 87) = 0.3051821203725288D+00
        ws(  1) = 0.3031335613487043D-05
        ws(  2) = 0.7059902065108990D-05
        ws(  3) = 0.1110296843717571D-04
        ws(  4) = 0.1516018624325747D-04
        ws(  5) = 0.1923651080863661D-04
        ws(  6) = 0.2333760197264187D-04
        ws(  7) = 0.2746961470745627D-04
        ws(  8) = 0.3163922635656228D-04
        ws(  9) = 0.3585368649355583D-04
        ws( 10) = 0.4012086535040808D-04
        ws( 11) = 0.4444929829156515D-04
        ws( 12) = 0.4884822773992721D-04
        ws( 13) = 0.5332764490949063D-04
        ws( 14) = 0.5789833390043768D-04
        ws( 15) = 0.6257192065757373D-04
        ws( 16) = 0.6736092914481868D-04
        ws( 17) = 0.7227884692462248D-04
        ws( 18) = 0.7734020219887353D-04
        ws( 19) = 0.8256065429568197D-04
        ws( 20) = 0.8795709959220998D-04
        ws( 21) = 0.9354779495805201D-04
        ws( 22) = 0.9935250099185475D-04
        ws( 23) = 0.1053926476107631D-03
        ws( 24) = 0.1116915249433023D-03
        ws( 25) = 0.1182745029789699D-03
        ws( 26) = 0.1251692840537587D-03
        ws( 27) = 0.1324061930173851D-03
        ws( 28) = 0.1400185108583952D-03
        ws( 29) = 0.1480428586881336D-03
        ws( 30) = 0.1565196403447233D-03
        ws( 31) = 0.1654935535264026D-03
        ws( 32) = 0.1750141813646443D-03
        ws( 33) = 0.1851366787874644D-03
        ws( 34) = 0.1959225710092210D-03
        ws( 35) = 0.2074406851517590D-03
        ws( 36) = 0.2197682405288710D-03
        ws( 37) = 0.2329921287351835D-03
        ws( 38) = 0.2472104216620198D-03
        ws( 39) = 0.2625341542891378D-03
        ws( 40) = 0.2790894400601042D-03
        ws( 41) = 0.2970199904750332D-03
        ws( 42) = 0.3164901280536552D-03
        ws( 43) = 0.3376884041448319D-03
        ws( 44) = 0.3608319616267936D-03
        ws( 45) = 0.3861718192992802D-03
        ws( 46) = 0.4139993023238677D-03
        ws( 47) = 0.4446539048922862D-03
        ws( 48) = 0.4785329521588707D-03
        ws( 49) = 0.5161035348080521D-03
        ws( 50) = 0.5579173302302355D-03
        ws( 51) = 0.6046291113271896D-03
        ws( 52) = 0.6570199941658510D-03
        ws( 53) = 0.7160268122165796D-03
        ws( 54) = 0.7827794600015491D-03
        ws( 55) = 0.8586486670573551D-03
        ws( 56) = 0.9453075059720771D-03
        ws( 57) = 0.1044811089551454D-02
        ws( 58) = 0.1159700484102983D-02
        ws( 59) = 0.1293139000482256D-02
        ws( 60) = 0.1449091883846348D-02
        ws( 61) = 0.1632564142936447D-02
        ws( 62) = 0.1849915804574646D-02
        ws( 63) = 0.2109278648559895D-02
        ws( 64) = 0.2421101271475758D-02
        ws( 65) = 0.2798843836201790D-02
        ws( 66) = 0.3259813631108347D-02
        ws( 67) = 0.3826037622463303D-02
        ws( 68) = 0.4524822286047379D-02
        ws( 69) = 0.5388108681033168D-02
        ws( 70) = 0.6448769714321581D-02
        ws( 71) = 0.7730890097475050D-02
        ws( 72) = 0.9231352083846713D-02
        ws( 73) = 0.1089536900919455D-01
        ws( 74) = 0.1260194601343436D-01
        ws( 75) = 0.1418533534173142D-01
        ws( 76) = 0.1549607960689803D-01
        ws( 77) = 0.1645914291096015D-01
        ws( 78) = 0.1708464283741048D-01
        ws( 79) = 0.1743655666655974D-01
        ws( 80) = 0.1759447323787915D-01
        ws( 81) = 0.1763016779894738D-01
        ws( 82) = 0.1759979788204347D-01
        ws( 83) = 0.1754520817217752D-01
        ws( 84) = 0.1750436259283033D-01
        ws( 85) = 0.1748259817634705D-01
        ws( 86) = 0.1756688770665238D-01
        ws( 87) = 0.1977971705305008D-01
        endif
        if( idomain .eq.  136 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.4000000000000000D+00
        rk1r = 0.4398229715025710D+02
        rk1i = 0.1000000000000000D+01
        iquadtype =  2
        n =  91
        err = 0.7978229198223132D-13
        xs(  1) = 0.1042361875308890D-05
        xs(  2) = 0.5493276797647158D-05
        xs(  3) = 0.1350546785182938D-04
        xs(  4) = 0.2508879220422354D-04
        xs(  5) = 0.4025536555724150D-04
        xs(  6) = 0.5902119647770214D-04
        xs(  7) = 0.8140661892033509D-04
        xs(  8) = 0.1074366716870397D-03
        xs(  9) = 0.1371415056395914D-03
        xs( 10) = 0.1705568250779678D-03
        xs( 11) = 0.2077243603691761D-03
        xs( 12) = 0.2486923683756664D-03
        xs( 13) = 0.2935161584929168D-03
        xs( 14) = 0.3422586438042397D-03
        xs( 15) = 0.3949909186148311D-03
        xs( 16) = 0.4517928652964248D-03
        xs( 17) = 0.5127537949076639D-03
        xs( 18) = 0.5779731274481042D-03
        xs( 19) = 0.6475611188771378D-03
        xs( 20) = 0.7216396432211584D-03
        xs( 21) = 0.8003430392503074D-03
        xs( 22) = 0.8838190323820165D-03
        xs( 23) = 0.9722297437162294D-03
        xs( 24) = 0.1065752799481099D-02
        xs( 25) = 0.1164582555723709D-02
        xs( 26) = 0.1268931454875278D-02
        xs( 27) = 0.1379031532915335D-02
        xs( 28) = 0.1495136098321294D-02
        xs( 29) = 0.1617521606894246D-02
        xs( 30) = 0.1746489759986061D-02
        xs( 31) = 0.1882369857719519D-02
        xs( 32) = 0.2025521443615717D-02
        xs( 33) = 0.2176337282770106D-02
        xs( 34) = 0.2335246722530627D-02
        xs( 35) = 0.2502719492750526D-02
        xs( 36) = 0.2679270012386537D-02
        xs( 37) = 0.2865462280826396D-02
        xs( 38) = 0.3061915446274678D-02
        xs( 39) = 0.3269310160321809D-02
        xs( 40) = 0.3488395848114071D-02
        xs( 41) = 0.3719999048145776D-02
        xs( 42) = 0.3965033005630125D-02
        xs( 43) = 0.4224508739965244D-02
        xs( 44) = 0.4499547851636936D-02
        xs( 45) = 0.4791397389085661D-02
        xs( 46) = 0.5101447164293720D-02
        xs( 47) = 0.5431249990572166D-02
        xs( 48) = 0.5782545421724490D-02
        xs( 49) = 0.6157287704245665D-02
        xs( 50) = 0.6557678821088892D-02
        xs( 51) = 0.6986207716810961D-02
        xs( 52) = 0.7445697062803515D-02
        xs( 53) = 0.7939359265432598D-02
        xs( 54) = 0.8470863862778196D-02
        xs( 55) = 0.9044419028932367D-02
        xs( 56) = 0.9664870651360041D-02
        xs( 57) = 0.1033782342497642D-01
        xs( 58) = 0.1106978969619357D-01
        xs( 59) = 0.1186837350119058D-01
        xs( 60) = 0.1274249952682306D-01
        xs( 61) = 0.1370269979041699D-01
        xs( 62) = 0.1476147497772586D-01
        xs( 63) = 0.1593375299951425D-01
        xs( 64) = 0.1723747497693006D-01
        xs( 65) = 0.1869434927715130D-01
        xs( 66) = 0.2033082832045113D-01
        xs( 67) = 0.2217938170208129D-01
        xs( 68) = 0.2428016348328094D-01
        xs( 69) = 0.2668320063134089D-01
        xs( 70) = 0.2945125824098209D-01
        xs( 71) = 0.3266354726200051D-01
        xs( 72) = 0.3642038141557041D-01
        xs( 73) = 0.4084863805175241D-01
        xs( 74) = 0.4610717651763115D-01
        xs( 75) = 0.5238981272481686D-01
        xs( 76) = 0.5992073043880543D-01
        xs( 77) = 0.6893405022490896D-01
        xs( 78) = 0.7962936824375087D-01
        xs( 79) = 0.9210607736264817D-01
        xs( 80) = 0.1063039986322775D+00
        xs( 81) = 0.1219937790993719D+00
        xs( 82) = 0.1388338872815076D+00
        xs( 83) = 0.1564599721865946D+00
        xs( 84) = 0.1745563390432151D+00
        xs( 85) = 0.1928875546454723D+00
        xs( 86) = 0.2112985770804686D+00
        xs( 87) = 0.2297005349902796D+00
        xs( 88) = 0.2480558234525017D+00
        xs( 89) = 0.2663462177841600D+00
        xs( 90) = 0.2846332660478407D+00
        xs( 91) = 0.3025493226091532D+00
        ws(  1) = 0.2675166343741102D-05
        ws(  2) = 0.6229853380880317D-05
        ws(  3) = 0.9796032478923013D-05
        ws(  4) = 0.1337262244214508D-04
        ws(  5) = 0.1696318598454361D-04
        ws(  6) = 0.2057185861429747D-04
        ws(  7) = 0.2420315262130995D-04
        ws(  8) = 0.2786197069040951D-04
        ws(  9) = 0.3155364004549534D-04
        ws( 10) = 0.3528394554660640D-04
        ws( 11) = 0.3905915907774145D-04
        ws( 12) = 0.4288606598494803D-04
        ws( 13) = 0.4677199014490871D-04
        ws( 14) = 0.5072481942521486D-04
        ws( 15) = 0.5475303326158263D-04
        ws( 16) = 0.5886573395749075D-04
        ws( 17) = 0.6307268316776034D-04
        ws( 18) = 0.6738434489380213D-04
        ws( 19) = 0.7181193621606339D-04
        ws( 20) = 0.7636748693023491D-04
        ws( 21) = 0.8106390924525986D-04
        ws( 22) = 0.8591507874594936D-04
        ws( 23) = 0.9093592792179802D-04
        ws( 24) = 0.9614255371747034D-04
        ws( 25) = 0.1015523407704872D-03
        ws( 26) = 0.1071841022705644D-03
        ws( 27) = 0.1130582407073079D-03
        ws( 28) = 0.1191969311759258D-03
        ws( 29) = 0.1256243303946332D-03
        ws( 30) = 0.1323668151655808D-03
        ws( 31) = 0.1394532547012898D-03
        ws( 32) = 0.1469153220643123D-03
        ws( 33) = 0.1547878509564662D-03
        ws( 34) = 0.1631092452825223D-03
        ws( 35) = 0.1719219503466472D-03
        ws( 36) = 0.1812729962753479D-03
        ws( 37) = 0.1912146263687524D-03
        ws( 38) = 0.2018050256546695D-03
        ws( 39) = 0.2131091680694926D-03
        ws( 40) = 0.2251998045630244D-03
        ws( 41) = 0.2381586192058419D-03
        ws( 42) = 0.2520775863055401D-03
        ws( 43) = 0.2670605689170174D-03
        ws( 44) = 0.2832252083590950D-03
        ws( 45) = 0.3007051659407855D-03
        ws( 46) = 0.3196527927220619D-03
        ws( 47) = 0.3402423216731084D-03
        ws( 48) = 0.3626737002234954D-03
        ws( 49) = 0.3871772114309008D-03
        ws( 50) = 0.4140190709435494D-03
        ws( 51) = 0.4435082373213785D-03
        ws( 52) = 0.4760047388517923D-03
        ws( 53) = 0.5119299058422051D-03
        ws( 54) = 0.5517790103670115D-03
        ws( 55) = 0.5961369651038064D-03
        ws( 56) = 0.6456979323378039D-03
        ws( 57) = 0.7012899615167190D-03
        ws( 58) = 0.7639061343141780D-03
        ws( 59) = 0.8347441852482009D-03
        ws( 60) = 0.9152572328621717D-03
        ws( 61) = 0.1007219170189840D-02
        ws( 62) = 0.1112809518397323D-02
        ws( 63) = 0.1234724273181630D-02
        ws( 64) = 0.1376321635572684D-02
        ws( 65) = 0.1541814713687664D-02
        ws( 66) = 0.1736527485677446D-02
        ws( 67) = 0.1967235523003751D-02
        ws( 68) = 0.2242618530714244D-02
        ws( 69) = 0.2573855139864742D-02
        ws( 70) = 0.2975384107983494D-02
        ws( 71) = 0.3465820194509864D-02
        ws( 72) = 0.4068898832311911D-02
        ws( 73) = 0.4814029615126693D-02
        ws( 74) = 0.5735405836813521D-02
        ws( 75) = 0.6867547243889608D-02
        ws( 76) = 0.8234048339692494D-02
        ws( 77) = 0.9827018598324286D-02
        ws( 78) = 0.1158129793531553D-01
        ws( 79) = 0.1336230556003902D-01
        ws( 80) = 0.1499426004191987D-01
        ws( 81) = 0.1632674738906127D-01
        ws( 82) = 0.1729150231382900D-01
        ws( 83) = 0.1790755610039265D-01
        ws( 84) = 0.1824598489005670D-01
        ws( 85) = 0.1839087618600099D-01
        ws( 86) = 0.1841659773763087D-01
        ws( 87) = 0.1838083014472214D-01
        ws( 88) = 0.1833189981443579D-01
        ws( 89) = 0.1827927663876688D-01
        ws( 90) = 0.1833108904860063D-01
        ws( 91) = 0.1827292514395554D-01
        endif
        if( idomain .eq.  137 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.4000000000000000D+00
        rk1r = 0.4712388980384689D+02
        rk1i = 0.1000000000000000D+01
        iquadtype =  2
        n =  95
        err = 0.9917534436739575D-13
        xs(  1) = 0.9255283061807598D-06
        xs(  2) = 0.4877398159840691D-05
        xs(  3) = 0.1199058101823836D-04
        xs(  4) = 0.2227267291999144D-04
        xs(  5) = 0.3573272966951737D-04
        xs(  6) = 0.5238268487406092D-04
        xs(  7) = 0.7223769262514438D-04
        xs(  8) = 0.9531641591911280D-04
        xs(  9) = 0.1216413335185478D-03
        xs( 10) = 0.1512390716060234D-03
        xs( 11) = 0.1841407579383000D-03
        xs( 12) = 0.2203823953414855D-03
        xs( 13) = 0.2600052521208168D-03
        xs( 14) = 0.3030562681095621D-03
        xs( 15) = 0.3495884763200226D-03
        xs( 16) = 0.3996614413596573D-03
        xs( 17) = 0.4533417168831020D-03
        xs( 18) = 0.5107033253476778D-03
        xs( 19) = 0.5718282642300019D-03
        xs( 20) = 0.6368070436619536D-03
        xs( 21) = 0.7057392611823583D-03
        xs( 22) = 0.7787342200069876D-03
        xs( 23) = 0.8559115979271912D-03
        xs( 24) = 0.9374021746894989D-03
        xs( 25) = 0.1023348626518142D-02
        xs( 26) = 0.1113906397351916D-02
        xs( 27) = 0.1209244657409066D-02
        xs( 28) = 0.1309547360902633D-02
        xs( 29) = 0.1415014416140092D-02
        xs( 30) = 0.1525862982895076D-02
        xs( 31) = 0.1642328913880560D-02
        xs( 32) = 0.1764668359433996D-02
        xs( 33) = 0.1893159557207570D-02
        xs( 34) = 0.2028104831813648D-02
        xs( 35) = 0.2169832833094718D-02
        xs( 36) = 0.2318701046074551D-02
        xs( 37) = 0.2475098610831969D-02
        xs( 38) = 0.2639449496677063D-02
        xs( 39) = 0.2812216082293883D-02
        xs( 40) = 0.2993903202179254D-02
        xs( 41) = 0.3185062730043424D-02
        xs( 42) = 0.3386298782203488D-02
        xs( 43) = 0.3598273638838549D-02
        xs( 44) = 0.3821714498839152D-02
        xs( 45) = 0.4057421205561606D-02
        xs( 46) = 0.4306275106958109D-02
        xs( 47) = 0.4569249245385692D-02
        xs( 48) = 0.4847420111278889D-02
        xs( 49) = 0.5141981242558482D-02
        xs( 50) = 0.5454259010378482D-02
        xs( 51) = 0.5785731004454020D-02
        xs( 52) = 0.6138047521468625D-02
        xs( 53) = 0.6513056772724549D-02
        xs( 54) = 0.6912834568518775D-02
        xs( 55) = 0.7339719414887432D-02
        xs( 56) = 0.7796354184142287D-02
        xs( 57) = 0.8285735808303871D-02
        xs( 58) = 0.8811274813170794D-02
        xs( 59) = 0.9376866985885942D-02
        xs( 60) = 0.9986980084947602D-02
        xs( 61) = 0.1064675930550959D-01
        xs( 62) = 0.1136215626851317D-01
        xs( 63) = 0.1214008769776543D-01
        xs( 64) = 0.1298863180630299D-01
        xs( 65) = 0.1391727290156041D-01
        xs( 66) = 0.1493720807429083D-01
        xs( 67) = 0.1606173438888910D-01
        xs( 68) = 0.1730674120274703D-01
        xs( 69) = 0.1869134074403858D-01
        xs( 70) = 0.2023868172561888D-01
        xs( 71) = 0.2197700666092375D-01
        xs( 72) = 0.2394103491110833D-01
        xs( 73) = 0.2617378125640830D-01
        xs( 74) = 0.2872895313867244D-01
        xs( 75) = 0.3167410213135345D-01
        xs( 76) = 0.3509471402353916D-01
        xs( 77) = 0.3909934384671846D-01
        xs( 78) = 0.4382558414035787D-01
        xs( 79) = 0.4944578763766299D-01
        xs( 80) = 0.5616959242388826D-01
        xs( 81) = 0.6423718663874135D-01
        xs( 82) = 0.7389412151648442D-01
        xs( 83) = 0.8534006608350463D-01
        xs( 84) = 0.9865817843812304D-01
        xs( 85) = 0.1137582048535850D+00
        xs( 86) = 0.1303774233516904D+00
        xs( 87) = 0.1481490307081659D+00
        xs( 88) = 0.1666964115974199D+00
        xs( 89) = 0.1857030632910898D+00
        xs( 90) = 0.2049407642526699D+00
        xs( 91) = 0.2242677686897911D+00
        xs( 92) = 0.2436159047881714D+00
        xs( 93) = 0.2629743414230149D+00
        xs( 94) = 0.2824046580754052D+00
        xs( 95) = 0.3022031950662455D+00
        ws(  1) = 0.2375300704047774D-05
        ws(  2) = 0.5531165847472280D-05
        ws(  3) = 0.8696342755624087D-05
        ws(  4) = 0.1186933930042708D-04
        ws(  5) = 0.1505275816583032D-04
        ws(  6) = 0.1824967320018675D-04
        ws(  7) = 0.2146344769178490D-04
        ws(  8) = 0.2469773982173196D-04
        ws(  9) = 0.2795652716369310D-04
        ws( 10) = 0.3124413073989113D-04
        ws( 11) = 0.3456523588578745D-04
        ws( 12) = 0.3792491020390777D-04
        ws( 13) = 0.4132861963559075D-04
        ws( 14) = 0.4478224387580190D-04
        ws( 15) = 0.4829209236332020D-04
        ws( 16) = 0.5186492200573072D-04
        ws( 17) = 0.5550795769226266D-04
        ws( 18) = 0.5922891653596887D-04
        ws( 19) = 0.6303603668670826D-04
        ws( 20) = 0.6693811147941733D-04
        ws( 21) = 0.7094452963437971D-04
        ws( 22) = 0.7506532221102518D-04
        ws( 23) = 0.7931121703449705D-04
        ws( 24) = 0.8369370136541713D-04
        ws( 25) = 0.8822509366698857D-04
        ws( 26) = 0.9291862543975470D-04
        ws( 27) = 0.9778853424372676D-04
        ws( 28) = 0.1028501692117291D-03
        ws( 29) = 0.1081201105795803D-03
        ws( 30) = 0.1136163050228322D-03
        ws( 31) = 0.1193582189020573D-03
        ws( 32) = 0.1253670118874193D-03
        ws( 33) = 0.1316657338690133D-03
        ws( 34) = 0.1382795485750439D-03
        ws( 35) = 0.1452359879317116D-03
        ws( 36) = 0.1525652419272841D-03
        ws( 37) = 0.1603004896131735D-03
        ws( 38) = 0.1684782779178270D-03
        ws( 39) = 0.1771389562053241D-03
        ws( 40) = 0.1863271760257285D-03
        ws( 41) = 0.1960924673419667D-03
        ws( 42) = 0.2064899047523158D-03
        ws( 43) = 0.2175808799573128D-03
        ws( 44) = 0.2294340000633456D-03
        ws( 45) = 0.2421261354309041D-03
        ws( 46) = 0.2557436458605150D-03
        ws( 47) = 0.2703838202157588D-03
        ws( 48) = 0.2861565724386605D-03
        ws( 49) = 0.3031864467474137D-03
        ws( 50) = 0.3216149971608086D-03
        ws( 51) = 0.3416036220991105D-03
        ws( 52) = 0.3633369546166191D-03
        ws( 53) = 0.3870269340734043D-03
        ws( 54) = 0.4129177174306893D-03
        ws( 55) = 0.4412916300877018D-03
        ws( 56) = 0.4724764102617427D-03
        ws( 57) = 0.5068540714211651D-03
        ws( 58) = 0.5448717997448769D-03
        ws( 59) = 0.5870554255679516D-03
        ws( 60) = 0.6340261697587579D-03
        ws( 61) = 0.6865215824235641D-03
        ws( 62) = 0.7454218824638468D-03
        ws( 63) = 0.8117833006732356D-03
        ws( 64) = 0.8868805660319960D-03
        ws( 65) = 0.9722614108467983D-03
        ws( 66) = 0.1069816984340041D-02
        ws( 67) = 0.1181873466403836D-02
        ws( 68) = 0.1311312114701683D-02
        ws( 69) = 0.1461727657431138D-02
        ws( 70) = 0.1637638599374690D-02
        ws( 71) = 0.1844767862124638D-02
        ws( 72) = 0.2090418239019599D-02
        ws( 73) = 0.2383973634830992D-02
        ws( 74) = 0.2737560893879504D-02
        ws( 75) = 0.3166898838184574D-02
        ws( 76) = 0.3692315814943058D-02
        ws( 77) = 0.4339774092650248D-02
        ws( 78) = 0.5141375697794710D-02
        ws( 79) = 0.6134059866186053D-02
        ws( 80) = 0.7353977401687410D-02
        ws( 81) = 0.8822998800341590D-02
        ws( 82) = 0.1052540971842818D-01
        ws( 83) = 0.1238141675207421D-01
        ws( 84) = 0.1423978337570215D-01
        ws( 85) = 0.1591521965276427D-01
        ws( 86) = 0.1726037226743182D-01
        ws( 87) = 0.1821887114013441D-01
        ws( 88) = 0.1882271096680909D-01
        ws( 89) = 0.1915263205891460D-01
        ws( 90) = 0.1929935240330421D-01
        ws( 91) = 0.1934375869943795D-01
        ws( 92) = 0.1935295067121631D-01
        ws( 93) = 0.1938950980829363D-01
        ws( 94) = 0.1941122304947851D-01
        ws( 95) = 0.2196663745419127D-01
        endif
        if( idomain .eq.  138 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.4000000000000000D+00
        rk1r = 0.5026548245743669D+02
        rk1i = 0.1000000000000000D+01
        iquadtype =  2
        n =  99
        err = 0.9818562951300871D-13
        xs(  1) = 0.8286554056875639D-06
        xs(  2) = 0.4366764568861409D-05
        xs(  3) = 0.1073467441337714D-04
        xs(  4) = 0.1993828055737450D-04
        xs(  5) = 0.3198436342794368D-04
        xs(  6) = 0.4688183698881197D-04
        xs(  7) = 0.6464202914686082D-04
        xs(  8) = 0.8527890863235785D-04
        xs(  9) = 0.1088093239765882D-03
        xs( 10) = 0.1352532606998903D-03
        xs( 11) = 0.1646341149244926D-03
        xs( 12) = 0.1969789806525110D-03
        xs( 13) = 0.2323189483894794D-03
        xs( 14) = 0.2706894136053001D-03
        xs( 15) = 0.3121303944237787D-03
        xs( 16) = 0.3566868588130408D-03
        xs( 17) = 0.4044090623654730D-03
        xs( 18) = 0.4553528984879785D-03
        xs( 19) = 0.5095802634691612D-03
        xs( 20) = 0.5671594394573899D-03
        xs( 21) = 0.6281654988879197D-03
        xs( 22) = 0.6926807343566665D-03
        xs( 23) = 0.7607951183739755D-03
        xs( 24) = 0.8326067978644947D-03
        xs( 25) = 0.9082226287296154D-03
        xs( 26) = 0.9877587562771959D-03
        xs( 27) = 0.1071341247868601D-02
        xs( 28) = 0.1159106784754460D-02
        xs( 29) = 0.1251203420787640D-02
        xs( 30) = 0.1347791416534451D-02
        xs( 31) = 0.1449044158275465D-02
        xs( 32) = 0.1555149172519245D-02
        xs( 33) = 0.1666309247973466D-02
        xs( 34) = 0.1782743678460498D-02
        xs( 35) = 0.1904689642065848D-02
        xs( 36) = 0.2032403733912543D-02
        xs( 37) = 0.2166163672415353D-02
        xs( 38) = 0.2306270201749520D-02
        xs( 39) = 0.2453049216646125D-02
        xs( 40) = 0.2606854139592145D-02
        xs( 41) = 0.2768068585180452D-02
        xs( 42) = 0.2937109351859190D-02
        xs( 43) = 0.3114429787837194D-02
        xs( 44) = 0.3300523585615118D-02
        xs( 45) = 0.3495929068780335D-02
        xs( 46) = 0.3701234045633201D-02
        xs( 47) = 0.3917081317282151D-02
        xs( 48) = 0.4144174943524843D-02
        xs( 49) = 0.4383287388706809D-02
        xs( 50) = 0.4635267692546540D-02
        xs( 51) = 0.4901050838555992D-02
        xs( 52) = 0.5181668526320804D-02
        xs( 53) = 0.5478261594996343D-02
        xs( 54) = 0.5792094395784833D-02
        xs( 55) = 0.6124571473258173D-02
        xs( 56) = 0.6477256992228823D-02
        xs( 57) = 0.6851897442386768D-02
        xs( 58) = 0.7250448272214665D-02
        xs( 59) = 0.7675105253430025D-02
        xs( 60) = 0.8128341566127163D-02
        xs( 61) = 0.8612951834438699D-02
        xs( 62) = 0.9132104648242195D-02
        xs( 63) = 0.9689405498700454D-02
        xs( 64) = 0.1028897256182375D-01
        xs( 65) = 0.1093552842218070D-01
        xs( 66) = 0.1163451168936021D-01
        xs( 67) = 0.1239221359296396D-01
        xs( 68) = 0.1321594614489132D-01
        xs( 69) = 0.1411425046582671D-01
        xs( 70) = 0.1509715657604870D-01
        xs( 71) = 0.1617650961692202D-01
        xs( 72) = 0.1736638247828607D-01
        xs( 73) = 0.1868360169514302D-01
        xs( 74) = 0.2014842299890296D-01
        xs( 75) = 0.2178540610531666D-01
        xs( 76) = 0.2362455656731982D-01
        xs( 77) = 0.2570282742705875D-01
        xs( 78) = 0.2806610627560349D-01
        xs( 79) = 0.3077185333492973D-01
        xs( 80) = 0.3389259465666500D-01
        xs( 81) = 0.3752047910444643D-01
        xs( 82) = 0.4177298605563746D-01
        xs( 83) = 0.4679941111889285D-01
        xs( 84) = 0.5278658567911526D-01
        xs( 85) = 0.5995998011189507D-01
        xs( 86) = 0.6857300442461109D-01
        xs( 87) = 0.7887501646032948D-01
        xs( 88) = 0.9105304942969802D-01
        xs( 89) = 0.1051602313100355D+00
        xs( 90) = 0.1210684200746555D+00
        xs( 91) = 0.1384837279689246D+00
        xs( 92) = 0.1570233305326240D+00
        xs( 93) = 0.1763080902971387D+00
        xs( 94) = 0.1960260874442827D+00
        xs( 95) = 0.2159553185382818D+00
        xs( 96) = 0.2359578290029568D+00
        xs( 97) = 0.2559719224484707D+00
        xs( 98) = 0.2759357876552536D+00
        xs( 99) = 0.2954639563632693D+00
        ws(  1) = 0.2126668947800850D-05
        ws(  2) = 0.4951907955755117D-05
        ws(  3) = 0.7784784350490980D-05
        ws(  4) = 0.1062354846639140D-04
        ws(  5) = 0.1347009892946341D-04
        ws(  6) = 0.1632673247014079D-04
        ws(  7) = 0.1919597599001502D-04
        ws(  8) = 0.2208058677718326D-04
        ws(  9) = 0.2498357026415375D-04
        ws( 10) = 0.2790819774254825D-04
        ws( 11) = 0.3085802139299925D-04
        ws( 12) = 0.3383688667150793D-04
        ws( 13) = 0.3684894275326469D-04
        ws( 14) = 0.3989865191513341D-04
        ws( 15) = 0.4299079875788281D-04
        ws( 16) = 0.4613050012210182D-04
        ws( 17) = 0.4932321647337287D-04
        ws( 18) = 0.5257476544521577D-04
        ws( 19) = 0.5589133814428674D-04
        ws( 20) = 0.5927951875071070D-04
        ws( 21) = 0.6274630789201566D-04
        ws( 22) = 0.6629915023483640D-04
        ws( 23) = 0.6994596672498681D-04
        ws( 24) = 0.7369519191421785D-04
        ws( 25) = 0.7755581683976839D-04
        ws( 26) = 0.8153743796994868D-04
        ws( 27) = 0.8565031279631943D-04
        ws( 28) = 0.8990542273822744D-04
        ws( 29) = 0.9431454413105016D-04
        ws( 30) = 0.9889032819578753D-04
        ws( 31) = 0.1036463910368294D-03
        ws( 32) = 0.1085974148896960D-03
        ws( 33) = 0.1137592620446037D-03
        ws( 34) = 0.1191491031112438D-03
        ws( 35) = 0.1247855615696597D-03
        ws( 36) = 0.1306888768803188D-03
        ws( 37) = 0.1368810888125852D-03
        ws( 38) = 0.1433862461066625D-03
        ws( 39) = 0.1502306431239810D-03
        ws( 40) = 0.1574430887818978D-03
        ws( 41) = 0.1650552128334355D-03
        ws( 42) = 0.1731018154674856D-03
        ws( 43) = 0.1816212673020796D-03
        ws( 44) = 0.1906559681655326D-03
        ws( 45) = 0.2002528746581129D-03
        ws( 46) = 0.2104641084237241D-03
        ws( 47) = 0.2213476594194461D-03
        ws( 48) = 0.2329682013517776D-03
        ws( 49) = 0.2453980399797351D-03
        ws( 50) = 0.2587182193323310D-03
        ws( 51) = 0.2730198162636226D-03
        ws( 52) = 0.2884054604349845D-03
        ws( 53) = 0.3049911251268512D-03
        ws( 54) = 0.3229082446888002D-03
        ws( 55) = 0.3423062275219646D-03
        ws( 56) = 0.3633554500281423D-03
        ws( 57) = 0.3862508379651784D-03
        ws( 58) = 0.4112161684601295D-03
        ws( 59) = 0.4385092603474535D-03
        ws( 60) = 0.4684282649191986D-03
        ws( 61) = 0.5013193268276377D-03
        ws( 62) = 0.5375859601969774D-03
        ws( 63) = 0.5777005839640210D-03
        ws( 64) = 0.6222187914012768D-03
        ws( 65) = 0.6717971031517881D-03
        ws( 66) = 0.7272151869679297D-03
        ws( 67) = 0.7894038433121618D-03
        ws( 68) = 0.8594804859222842D-03
        ws( 69) = 0.9387944357998691D-03
        ws( 70) = 0.1028985160684583D-02
        ws( 71) = 0.1132057722955934D-02
        ws( 72) = 0.1250481279156246D-02
        ws( 73) = 0.1387318688839191D-02
        ws( 74) = 0.1546398391280209D-02
        ws( 75) = 0.1732544015300723D-02
        ws( 76) = 0.1951883024907320D-02
        ws( 77) = 0.2212263153861492D-02
        ws( 78) = 0.2523813565307018D-02
        ws( 79) = 0.2899692606601135D-02
        ws( 80) = 0.3357052438123108D-02
        ws( 81) = 0.3918185057310941D-02
        ws( 82) = 0.4611607488371807D-02
        ws( 83) = 0.5472345600814492D-02
        ws( 84) = 0.6539735223966730D-02
        ws( 85) = 0.7849803753115938D-02
        ws( 86) = 0.9418801471608623D-02
        ws( 87) = 0.1121768666926065D-01
        ws( 88) = 0.1314813794655231D-01
        ws( 89) = 0.1504460917447894D-01
        ws( 90) = 0.1672137412549010D-01
        ws( 91) = 0.1804377161184251D-01
        ws( 92) = 0.1897116359810669D-01
        ws( 93) = 0.1954602723912545D-01
        ws( 94) = 0.1985308133553777D-01
        ws( 95) = 0.1998316381734572D-01
        ws( 96) = 0.2001176615561187D-01
        ws( 97) = 0.2000386141214966D-01
        ws( 98) = 0.2020409421105313D-01
        ws( 99) = 0.1920723997343988D-01
        endif
        if( idomain .eq.  139 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.1000000000000000D+01
        rk1r = 0.2000000000000000D-01
        rk1i = 0.1570796326794897D+01
        iquadtype =  2
        n =  41
        err = 0.4530805005800247D-13
        xs(  1) = 0.1788937076752264D-03
        xs(  2) = 0.9460558070711860D-03
        xs(  3) = 0.2336817718826696D-02
        xs(  4) = 0.4358286389909175D-02
        xs(  5) = 0.7004536290245685D-02
        xs(  6) = 0.1025386834581968D-01
        xs(  7) = 0.1407209109337939D-01
        xs(  8) = 0.1841817231446804D-01
        xs(  9) = 0.2324920327467102D-01
        xs( 10) = 0.2852360725193248D-01
        xs( 11) = 0.3420277233769553D-01
        xs( 12) = 0.4025164903709085D-01
        xs( 13) = 0.4663878461897395D-01
        xs( 14) = 0.5333609941794853D-01
        xs( 15) = 0.6031857254176264D-01
        xs( 16) = 0.6756391757450900D-01
        xs( 17) = 0.7505228149383000D-01
        xs( 18) = 0.8276597692821602D-01
        xs( 19) = 0.9068924798224835D-01
        xs( 20) = 0.9880806630241078D-01
        xs( 21) = 0.1071099535797924D+00
        xs( 22) = 0.1155838267007524D+00
        xs( 23) = 0.1242198632631874D+00
        xs( 24) = 0.1330093840743404D+00
        xs( 25) = 0.1419447530310497D+00
        xs( 26) = 0.1510192889581517D+00
        xs( 27) = 0.1602271964009063D+00
        xs( 28) = 0.1695635037150842D+00
        xs( 29) = 0.1790239958001548D+00
        xs( 30) = 0.1886052643529508D+00
        xs( 31) = 0.1983044284125328D+00
        xs( 32) = 0.2081192695545837D+00
        xs( 33) = 0.2180487687991043D+00
        xs( 34) = 0.2280896421146368D+00
        xs( 35) = 0.2382509190235442D+00
        xs( 36) = 0.2485267150753899D+00
        xs( 37) = 0.2588370147655344D+00
        xs( 38) = 0.2693416684318238D+00
        xs( 39) = 0.2794508933236211D+00
        xs( 40) = 0.2900218069306646D+00
        xs( 41) = 0.3050681157524757D+00
        ws(  1) = 0.4595331913677385D-03
        ws(  2) = 0.1077058426281073D-02
        ws(  3) = 0.1705803771803617D-02
        ws(  4) = 0.2336191139745215D-02
        ws(  5) = 0.2952626470624223D-02
        ws(  6) = 0.3540237251732972D-02
        ws(  7) = 0.4089284710027762D-02
        ws(  8) = 0.4595673609058751D-02
        ws(  9) = 0.5059433083120094D-02
        ws( 10) = 0.5482930740048336D-02
        ws( 11) = 0.5869557984862787D-02
        ws( 12) = 0.6222957397069835D-02
        ws( 13) = 0.6546639236920775D-02
        ws( 14) = 0.6843825687064355D-02
        ws( 15) = 0.7117411195346289D-02
        ws( 16) = 0.7369974493546645D-02
        ws( 17) = 0.7603809343001826D-02
        ws( 18) = 0.7820958932819169D-02
        ws( 19) = 0.8023248066815642D-02
        ws( 20) = 0.8212311441497469D-02
        ws( 21) = 0.8389618158319744D-02
        ws( 22) = 0.8556492931950717D-02
        ws( 23) = 0.8714135200185937D-02
        ws( 24) = 0.8863635226858412D-02
        ws( 25) = 0.9005991257819829D-02
        ws( 26) = 0.9142117311359355D-02
        ws( 27) = 0.9272870349602226D-02
        ws( 28) = 0.9399023358089228D-02
        ws( 29) = 0.9521360478452296D-02
        ws( 30) = 0.9640718184576545D-02
        ws( 31) = 0.9757505772672686D-02
        ws( 32) = 0.9872847993332982D-02
        ws( 33) = 0.9984986244795522D-02
        ws( 34) = 0.1009143748630309D-01
        ws( 35) = 0.1022071095509652D-01
        ws( 36) = 0.1032490291872373D-01
        ws( 37) = 0.1048782179957783D-01
        ws( 38) = 0.1064201534655959D-01
        ws( 39) = 0.8678947104725679D-02
        ws( 40) = 0.1056060309512647D-01
        ws( 41) = 0.3063618869961076D-01
        endif
        if( idomain .eq.  140 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.1000000000000000D+01
        rk1r = 0.4000000000000000D-01
        rk1i = 0.1570796326794897D+01
        iquadtype =  2
        n =  40
        err = 0.5382962833651687D-13
        xs(  1) = 0.1837742505648613D-03
        xs(  2) = 0.9720291364399720D-03
        xs(  3) = 0.2401395427870819D-02
        xs(  4) = 0.4478965354352898D-02
        xs(  5) = 0.7197453769721330D-02
        xs(  6) = 0.1053264319269146D-01
        xs(  7) = 0.1444736495535475D-01
        xs(  8) = 0.1889777967273615D-01
        xs(  9) = 0.2383864982669078D-01
        xs( 10) = 0.2922659255065906D-01
        xs( 11) = 0.3502163053181816D-01
        xs( 12) = 0.4118768086217999D-01
        xs( 13) = 0.4769249865128793D-01
        xs( 14) = 0.5450739083869279D-01
        xs( 15) = 0.6160686288218878D-01
        xs( 16) = 0.6896827057415719D-01
        xs( 17) = 0.7657150321376598D-01
        xs( 18) = 0.8439870388324025D-01
        xs( 19) = 0.9243402488330407D-01
        xs( 20) = 0.1006634143884976D+00
        xs( 21) = 0.1090744304154880D+00
        xs( 22) = 0.1176560790341642D+00
        xs( 23) = 0.1263986742611945D+00
        xs( 24) = 0.1352937179783395D+00
        xs( 25) = 0.1443337986573142D+00
        xs( 26) = 0.1535125077588857D+00
        xs( 27) = 0.1628243727652468D+00
        xs( 28) = 0.1722648026893645D+00
        xs( 29) = 0.1818300824016991D+00
        xs( 30) = 0.1915173329012716D+00
        xs( 31) = 0.2013246402350483D+00
        xs( 32) = 0.2112513871888298D+00
        xs( 33) = 0.2212966721243926D+00
        xs( 34) = 0.2314594151927649D+00
        xs( 35) = 0.2417405700008796D+00
        xs( 36) = 0.2521425182054157D+00
        xs( 37) = 0.2627350718495881D+00
        xs( 38) = 0.2736004524769432D+00
        xs( 39) = 0.2843493325311851D+00
        xs( 40) = 0.2953197842145761D+00
        ws(  1) = 0.4720919741267395D-03
        ws(  2) = 0.1106818403063768D-02
        ws(  3) = 0.1753262747772579D-02
        ws(  4) = 0.2400703742297668D-02
        ws(  5) = 0.3032157847462754D-02
        ws(  6) = 0.3631913397352588D-02
        ws(  7) = 0.4190133837846583D-02
        ws(  8) = 0.4703102977239807D-02
        ws(  9) = 0.5171382680140957D-02
        ws( 10) = 0.5597832978238707D-02
        ws( 11) = 0.5986230830538543D-02
        ws( 12) = 0.6340500812608015D-02
        ws( 13) = 0.6664358631975074D-02
        ws( 14) = 0.6961182508334701D-02
        ws( 15) = 0.7233992833533160D-02
        ws( 16) = 0.7485475422729226D-02
        ws( 17) = 0.7718017769889627D-02
        ws( 18) = 0.7933745830914465D-02
        ws( 19) = 0.8134557286736356D-02
        ws( 20) = 0.8322150748362456D-02
        ws( 21) = 0.8498051336711001D-02
        ws( 22) = 0.8663633653525481D-02
        ws( 23) = 0.8820142170395683D-02
        ws( 24) = 0.8968710946912565D-02
        ws( 25) = 0.9110381487168147D-02
        ws( 26) = 0.9246124021846205D-02
        ws( 27) = 0.9376851947320958D-02
        ws( 28) = 0.9503439662441432D-02
        ws( 29) = 0.9626695257199940D-02
        ws( 30) = 0.9747189899665111D-02
        ws( 31) = 0.9866048120691657D-02
        ws( 32) = 0.9985880028141240D-02
        ws( 33) = 0.1011086366705461D-01
        ws( 34) = 0.1024461425750006D-01
        ws( 35) = 0.1035035952988637D-01
        ws( 36) = 0.1034077297295707D-01
        ws( 37) = 0.1029360903941950D-01
        ws( 38) = 0.1067128929561676D-01
        ws( 39) = 0.1317875024660245D-01
        ws( 40) = 0.1915700680161773D-01
        endif
        if( idomain .eq.  141 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.1000000000000000D+01
        rk1r = 0.1000000000000000D+00
        rk1i = 0.1570796326794897D+01
        iquadtype =  2
        n =  40
        err = 0.6170253315282138D-13
        xs(  1) = 0.1696054578810824D-03
        xs(  2) = 0.8995624718950959D-03
        xs(  3) = 0.2232746290487866D-02
        xs(  4) = 0.4189627361616959D-02
        xs(  5) = 0.6778082002001976D-02
        xs(  6) = 0.9986923973272832D-02
        xs(  7) = 0.1378765033324661D-01
        xs(  8) = 0.1814068017132569D-01
        xs(  9) = 0.2300180026707747D-01
        xs( 10) = 0.2832675170853585D-01
        xs( 11) = 0.3407378614973273D-01
        xs( 12) = 0.4020477062293322D-01
        xs( 13) = 0.4668545656314472D-01
        xs( 14) = 0.5348534038192605D-01
        xs( 15) = 0.6057735928825166D-01
        xs( 16) = 0.6793754394260215D-01
        xs( 17) = 0.7554468139603004D-01
        xs( 18) = 0.8338000800521649D-01
        xs( 19) = 0.9142693699877912D-01
        xs( 20) = 0.9967081958254101D-01
        xs( 21) = 0.1080987366831503D+00
        xs( 22) = 0.1166993184064338D+00
        xs( 23) = 0.1254625885220628D+00
        xs( 24) = 0.1343798320584988D+00
        xs( 25) = 0.1434434844286092D+00
        xs( 26) = 0.1526470414115739D+00
        xs( 27) = 0.1619849866096224D+00
        xs( 28) = 0.1714527381239049D+00
        xs( 29) = 0.1810466388656755D+00
        xs( 30) = 0.1907639301704459D+00
        xs( 31) = 0.2006028868535102D+00
        xs( 32) = 0.2105630582744941D+00
        xs( 33) = 0.2206442987906543D+00
        xs( 34) = 0.2308465432266093D+00
        xs( 35) = 0.2411689448286789D+00
        xs( 36) = 0.2516119155462180D+00
        xs( 37) = 0.2622472565052557D+00
        xs( 38) = 0.2731964368674792D+00
        xs( 39) = 0.2841543790085581D+00
        xs( 40) = 0.2951872366106629D+00
        ws(  1) = 0.4359809033505327D-03
        ws(  2) = 0.1027699736983742D-02
        ws(  3) = 0.1642308382486133D-02
        ws(  4) = 0.2272878914099014D-02
        ws(  5) = 0.2902125220610759D-02
        ws(  6) = 0.3510693023538860D-02
        ws(  7) = 0.4084050879101040D-02
        ws(  8) = 0.4614563610312963D-02
        ws(  9) = 0.5100259141647696D-02
        ws( 10) = 0.5542668802314575D-02
        ws( 11) = 0.5945041105424580D-02
        ws( 12) = 0.6311222622717798D-02
        ws( 13) = 0.6645070663595988D-02
        ws( 14) = 0.6950192411929837D-02
        ws( 15) = 0.7229856168366453D-02
        ws( 16) = 0.7486982774945673D-02
        ws( 17) = 0.7724169395119088D-02
        ws( 18) = 0.7943723334852269D-02
        ws( 19) = 0.8147696646032380D-02
        ws( 20) = 0.8337918338775997D-02
        ws( 21) = 0.8516023483665881D-02
        ws( 22) = 0.8683479551346665D-02
        ws( 23) = 0.8841610133746859D-02
        ws( 24) = 0.8991617256497686D-02
        ws( 25) = 0.9134602553636550D-02
        ws( 26) = 0.9271590680773559D-02
        ws( 27) = 0.9403546461115853D-02
        ws( 28) = 0.9531399255834076D-02
        ws( 29) = 0.9656005539872548D-02
        ws( 30) = 0.9778026800496473D-02
        ws( 31) = 0.9898537820855690D-02
        ws( 32) = 0.1002008064066380D-01
        ws( 33) = 0.1014804223125121D-01
        ws( 34) = 0.1028685952810355D-01
        ws( 35) = 0.1039773819766563D-01
        ws( 36) = 0.1037875376868630D-01
        ws( 37) = 0.1029527780874688D-01
        ws( 38) = 0.1083501495789828D-01
        ws( 39) = 0.1383142635504325D-01
        ws( 40) = 0.1843611011989982D-01
        endif
        if( idomain .eq.  142 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.1000000000000000D+01
        rk1r = 0.2000000000000000D+00
        rk1i = 0.1570796326794897D+01
        iquadtype =  2
        n =  40
        err = 0.5628101933364275D-13
        xs(  1) = 0.1611881673698428D-03
        xs(  2) = 0.8556725875320344D-03
        xs(  3) = 0.2127359224863599D-02
        xs(  4) = 0.4001739695167974D-02
        xs(  5) = 0.6494404371880160D-02
        xs(  6) = 0.9602847949052659D-02
        xs(  7) = 0.1330613234797886D-01
        xs(  8) = 0.1756996685229091D-01
        xs(  9) = 0.2235309569055402D-01
        xs( 10) = 0.2761240674104977D-01
        xs( 11) = 0.3330610537081595D-01
        xs( 12) = 0.3939531670557382D-01
        xs( 13) = 0.4584469760185510D-01
        xs( 14) = 0.5262251626227169D-01
        xs( 15) = 0.5970048110840955D-01
        xs( 16) = 0.6705346962373102D-01
        xs( 17) = 0.7465923052692913D-01
        xs( 18) = 0.8249809235885844D-01
        xs( 19) = 0.9055269225888836D-01
        xs( 20) = 0.9880773001130472D-01
        xs( 21) = 0.1072497486165755D+00
        xs( 22) = 0.1158669411463030D+00
        xs( 23) = 0.1246489828831635D+00
        xs( 24) = 0.1335868877430514D+00
        xs( 25) = 0.1426728880608983D+00
        xs( 26) = 0.1519003374037904D+00
        xs( 27) = 0.1612636324484118D+00
        xs( 28) = 0.1707581592104957D+00
        xs( 29) = 0.1803802822791197D+00
        xs( 30) = 0.1901273166203692D+00
        xs( 31) = 0.1999976584520439D+00
        xs( 32) = 0.2099910203066709D+00
        xs( 33) = 0.2201079010373342D+00
        xs( 34) = 0.2303493829058906D+00
        xs( 35) = 0.2407134478955096D+00
        xs( 36) = 0.2511973765993708D+00
        xs( 37) = 0.2618687082183601D+00
        xs( 38) = 0.2728720353391277D+00
        xs( 39) = 0.2840645149830755D+00
        xs( 40) = 0.2953544673471044D+00
        ws(  1) = 0.4144268098685921D-03
        ws(  2) = 0.9786396116650805D-03
        ws(  3) = 0.1569212639334429D-02
        ws(  4) = 0.2182291690960747D-02
        ws(  5) = 0.2802617661752283D-02
        ws(  6) = 0.3410684011905672D-02
        ws(  7) = 0.3990057051453170D-02
        ws(  8) = 0.4530649761444292D-02
        ws(  9) = 0.5028370858999478D-02
        ws( 10) = 0.5483260265464939D-02
        ws( 11) = 0.5897648745795181D-02
        ws( 12) = 0.6274882719690513D-02
        ws( 13) = 0.6618593628474877D-02
        ws( 14) = 0.6932333108757646D-02
        ws( 15) = 0.7219414532100697D-02
        ws( 16) = 0.7482858837664784D-02
        ws( 17) = 0.7725388923531071D-02
        ws( 18) = 0.7949445031145773D-02
        ws( 19) = 0.8157208385442455D-02
        ws( 20) = 0.8350627496791571D-02
        ws( 21) = 0.8531444700821940D-02
        ws( 22) = 0.8701222039451322D-02
        ws( 23) = 0.8861365853285740D-02
        ws( 24) = 0.9013150538870978D-02
        ws( 25) = 0.9157741880036733D-02
        ws( 26) = 0.9296221666328834D-02
        ws( 27) = 0.9429607519684307D-02
        ws( 28) = 0.9558885707915930D-02
        ws( 29) = 0.9684975025820799D-02
        ws( 30) = 0.9808615527578481D-02
        ws( 31) = 0.9930886837683542D-02
        ws( 32) = 0.1005424139407329D-01
        ws( 33) = 0.1018440335229801D-01
        ws( 34) = 0.1032559812698629D-01
        ws( 35) = 0.1044058491622404D-01
        ws( 36) = 0.1043835755132626D-01
        ws( 37) = 0.1036743744040351D-01
        ws( 38) = 0.1087882638742430D-01
        ws( 39) = 0.1397957367124989D-01
        ws( 40) = 0.1871243372172108D-01
        endif
        if( idomain .eq.  143 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.1000000000000000D+01
        rk1r = 0.4000000000000000D+00
        rk1i = 0.1570796326794897D+01
        iquadtype =  2
        n =  40
        err = 0.6278908662842998D-13
        xs(  1) = 0.1407703673145580D-03
        xs(  2) = 0.7499451429915298D-03
        xs(  3) = 0.1876235965416289D-02
        xs(  4) = 0.3559816090731305D-02
        xs(  5) = 0.5836258799953669D-02
        xs(  6) = 0.8723634593620072D-02
        xs(  7) = 0.1221737804352949D-01
        xs(  8) = 0.1629321140726887D-01
        xs(  9) = 0.2091412841685922D-01
        xs( 10) = 0.2603734201391598D-01
        xs( 11) = 0.3161924540712246D-01
        xs( 12) = 0.3761825369193918D-01
        xs( 13) = 0.4399612295506160D-01
        xs( 14) = 0.5071837609879116D-01
        xs( 15) = 0.5775427275486235D-01
        xs( 16) = 0.6507657495456352D-01
        xs( 17) = 0.7266123796556204D-01
        xs( 18) = 0.8048708795861684D-01
        xs( 19) = 0.8853551413093950D-01
        xs( 20) = 0.9679018677319889D-01
        xs( 21) = 0.1052368053158112D+00
        xs( 22) = 0.1138628770723776D+00
        xs( 23) = 0.1226575257651481D+00
        xs( 24) = 0.1316113288249804D+00
        xs( 25) = 0.1407161817634128D+00
        xs( 26) = 0.1499651887160750D+00
        xs( 27) = 0.1593525781538726D+00
        xs( 28) = 0.1688736461710072D+00
        xs( 29) = 0.1785247215185594D+00
        xs( 30) = 0.1883031659699027D+00
        xs( 31) = 0.1982075703352959D+00
        xs( 32) = 0.2082378717776204D+00
        xs( 33) = 0.2183949365025691D+00
        xs( 34) = 0.2286799339311349D+00
        xs( 35) = 0.2390912905146464D+00
        xs( 36) = 0.2496345175998151D+00
        xs( 37) = 0.2603805377881772D+00
        xs( 38) = 0.2714499160218192D+00
        xs( 39) = 0.2827064139102540D+00
        xs( 40) = 0.2940696368539283D+00
        ws(  1) = 0.3622328913681888D-03
        ws(  2) = 0.8614316380113133D-03
        ws(  3) = 0.1398105581781185D-02
        ws(  4) = 0.1975215497168464D-02
        ws(  5) = 0.2580766916254854D-02
        ws(  6) = 0.3193163432980451D-02
        ws(  7) = 0.3790150142598238D-02
        ws(  8) = 0.4355228749908640D-02
        ws(  9) = 0.4879391602689063D-02
        ws( 10) = 0.5359722122424035D-02
        ws( 11) = 0.5797133426581152D-02
        ws( 12) = 0.6194503087208973D-02
        ws( 13) = 0.6555490327711936D-02
        ws( 14) = 0.6883896756606838D-02
        ws( 15) = 0.7183362180751040D-02
        ws( 16) = 0.7457240194687602D-02
        ws( 17) = 0.7708562012020521D-02
        ws( 18) = 0.7940040880598950D-02
        ws( 19) = 0.8154094043572339D-02
        ws( 20) = 0.8352871488788972D-02
        ws( 21) = 0.8538286676340654D-02
        ws( 22) = 0.8712046897745872D-02
        ws( 23) = 0.8875682453621617D-02
        ws( 24) = 0.9030574566178529D-02
        ws( 25) = 0.9177981839189681D-02
        ws( 26) = 0.9319068180439281D-02
        ws( 27) = 0.9454931937531372D-02
        ws( 28) = 0.9586631913849418D-02
        ws( 29) = 0.9715149538486925D-02
        ws( 30) = 0.9841383015620432D-02
        ws( 31) = 0.9966441613750049D-02
        ws( 32) = 0.1009238500179246D-01
        ws( 33) = 0.1022467996857683D-01
        ws( 34) = 0.1036890599711608D-01
        ws( 35) = 0.1049951779889304D-01
        ws( 36) = 0.1053533371883256D-01
        ws( 37) = 0.1045054385093584D-01
        ws( 38) = 0.1080273768599112D-01
        ws( 39) = 0.1384427604297269D-01
        ws( 40) = 0.1913747982279716D-01
        endif
        if( idomain .eq.  144 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.1000000000000000D+01
        rk1r = 0.1000000000000000D+01
        rk1i = 0.1570796326794897D+01
        iquadtype =  2
        n =  41
        err = 0.4333620417936921D-13
        xs(  1) = 0.1045566366439842D-03
        xs(  2) = 0.5588188227706060D-03
        xs(  3) = 0.1407100230116552D-02
        xs(  4) = 0.2697222236614004D-02
        xs(  5) = 0.4484954032361640D-02
        xs(  6) = 0.6820572035343619D-02
        xs(  7) = 0.9736367397926188D-02
        xs(  8) = 0.1324042966363990D-01
        xs(  9) = 0.1731824807045779D-01
        xs( 10) = 0.2193926699878517D-01
        xs( 11) = 0.2706431442583224D-01
        xs( 12) = 0.3265140977677202D-01
        xs( 13) = 0.3865938920433640D-01
        xs( 14) = 0.4504978974934961D-01
        xs( 15) = 0.5178762942317237D-01
        xs( 16) = 0.5884157818668081D-01
        xs( 17) = 0.6618382685260946D-01
        xs( 18) = 0.7378982342643500D-01
        xs( 19) = 0.8163796451173679D-01
        xs( 20) = 0.8970928514138508D-01
        xs( 21) = 0.9798716752855768D-01
        xs( 22) = 0.1064570775413281D+00
        xs( 23) = 0.1151063319300357D+00
        xs( 24) = 0.1239238963948264D+00
        xs( 25) = 0.1329002132344257D+00
        xs( 26) = 0.1420270577958538D+00
        xs( 27) = 0.1512974209781511D+00
        xs( 28) = 0.1607054168851568D+00
        xs( 29) = 0.1702462167178744D+00
        xs( 30) = 0.1799160181461141D+00
        xs( 31) = 0.1897120531826125D+00
        xs( 32) = 0.1996325707880578D+00
        xs( 33) = 0.2096770369762320D+00
        xs( 34) = 0.2198467992784810D+00
        xs( 35) = 0.2301430771461405D+00
        xs( 36) = 0.2405616396901845D+00
        xs( 37) = 0.2511051894633432D+00
        xs( 38) = 0.2618219988696956D+00
        xs( 39) = 0.2727996935772208D+00
        xs( 40) = 0.2841387316876984D+00
        xs( 41) = 0.2959292612294543D+00
        ws(  1) = 0.2692403599959735D-03
        ws(  2) = 0.6445263185767606D-03
        ws(  3) = 0.1060163178999251D-02
        ws(  4) = 0.1529613284286108D-02
        ws(  5) = 0.2054452688377512D-02
        ws(  6) = 0.2622272728722168D-02
        ws(  7) = 0.3210631021722865D-02
        ws(  8) = 0.3794954817748138D-02
        ws(  9) = 0.4355459662363192D-02
        ws( 10) = 0.4879951868147092D-02
        ws( 11) = 0.5363087185833632D-02
        ws( 12) = 0.5804213102926812D-02
        ws( 13) = 0.6205323439546410D-02
        ws( 14) = 0.6569645174662049D-02
        ws( 15) = 0.6900815065229261D-02
        ws( 16) = 0.7202452185597201D-02
        ws( 17) = 0.7477958385828950D-02
        ws( 18) = 0.7730439410274618D-02
        ws( 19) = 0.7962686805327418D-02
        ws( 20) = 0.8177189218017840D-02
        ws( 21) = 0.8376157076061647D-02
        ws( 22) = 0.8561552443281432D-02
        ws( 23) = 0.8735120215827279D-02
        ws( 24) = 0.8898418232118902D-02
        ws( 25) = 0.9052846390471625D-02
        ws( 26) = 0.9199674748950252D-02
        ws( 27) = 0.9340069884694014D-02
        ws( 28) = 0.9475123760654585D-02
        ws( 29) = 0.9605875280992361D-02
        ws( 30) = 0.9733315101363382D-02
        ws( 31) = 0.9858321214101353D-02
        ws( 32) = 0.9981768063075399D-02
        ws( 33) = 0.1010609160214578D-01
        ws( 34) = 0.1023695282977996D-01
        ws( 35) = 0.1037510115752809D-01
        ws( 36) = 0.1049388387568993D-01
        ws( 37) = 0.1052892547445905D-01
        ws( 38) = 0.1047616072214567D-01
        ws( 39) = 0.1093954018160350D-01
        ws( 40) = 0.1394091346910756D-01
        ws( 41) = 0.1771680805447962D-01
        endif
        if( idomain .eq.  145 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.1000000000000000D+01
        rk1r = 0.1570796326794897D+01
        rk1i = 0.1570796326794897D+01
        iquadtype =  2
        n =  40
        err = 0.7309700373895672D-13
        xs(  1) = 0.8401170065220442D-04
        xs(  2) = 0.4493503130551566D-03
        xs(  3) = 0.1133719432517602D-02
        xs(  4) = 0.2182244249572662D-02
        xs(  5) = 0.3654849985556493D-02
        xs(  6) = 0.5617526921165493D-02
        xs(  7) = 0.8129439888571765D-02
        xs(  8) = 0.1123014891707161D-01
        xs(  9) = 0.1493256302735538D-01
        xs( 10) = 0.1922404566622080D-01
        xs( 11) = 0.2407326331188353D-01
        xs( 12) = 0.2943846027412002D-01
        xs( 13) = 0.3527420300909077D-01
        xs( 14) = 0.4153573963158057D-01
        xs( 15) = 0.4818134311011314D-01
        xs( 16) = 0.5517331894815427D-01
        xs( 17) = 0.6247824618705935D-01
        xs( 18) = 0.7006682375120207D-01
        xs( 19) = 0.7791353797599215D-01
        xs( 20) = 0.8599626829512030D-01
        xs( 21) = 0.9429589142643077D-01
        xs( 22) = 0.1027959132901133D+00
        xs( 23) = 0.1114821413819679D+00
        xs( 24) = 0.1203424013890219D+00
        xs( 25) = 0.1293662977470327D+00
        xs( 26) = 0.1385450165808989D+00
        xs( 27) = 0.1478711665902025D+00
        xs( 28) = 0.1573386579535841D+00
        xs( 29) = 0.1669426239138942D+00
        xs( 30) = 0.1766793691698040D+00
        xs( 31) = 0.1865463064223486D+00
        xs( 32) = 0.1965420209969386D+00
        xs( 33) = 0.2066668634665789D+00
        xs( 34) = 0.2169230660051225D+00
        xs( 35) = 0.2273119989189271D+00
        xs( 36) = 0.2378343633072087D+00
        xs( 37) = 0.2485067267109289D+00
        xs( 38) = 0.2593822173936430D+00
        xs( 39) = 0.2705319933782819D+00
        xs( 40) = 0.2819875862423719D+00
        ws(  1) = 0.2163668036481398D-03
        ws(  2) = 0.5188239153720302D-03
        ws(  3) = 0.8574903557359541D-03
        ws(  4) = 0.1249693904949839D-02
        ws(  5) = 0.1706741724034694D-02
        ws(  6) = 0.2228701743842901D-02
        ws(  7) = 0.2801841515678274D-02
        ws(  8) = 0.3401702255671055D-02
        ws(  9) = 0.4000893923040812D-02
        ws( 10) = 0.4576703991809593D-02
        ws( 11) = 0.5114658062525994D-02
        ws( 12) = 0.5608092208758905D-02
        ws( 13) = 0.6055897330281740D-02
        ws( 14) = 0.6460205986041153D-02
        ws( 15) = 0.6824715400940195D-02
        ws( 16) = 0.7153669165852754D-02
        ws( 17) = 0.7451307602238778D-02
        ws( 18) = 0.7721601954224420D-02
        ws( 19) = 0.7968146396235552D-02
        ws( 20) = 0.8194133193814302D-02
        ws( 21) = 0.8402369523499421D-02
        ws( 22) = 0.8595313484734421D-02
        ws( 23) = 0.8775117597053196D-02
        ws( 24) = 0.8943673158167935D-02
        ws( 25) = 0.9102653684662051D-02
        ws( 26) = 0.9253554782563679D-02
        ws( 27) = 0.9397729796468886D-02
        ws( 28) = 0.9536433406291135D-02
        ws( 29) = 0.9670872894777935D-02
        ws( 30) = 0.9802222485820673D-02
        ws( 31) = 0.9931572566945993D-02
        ws( 32) = 0.1006016261019111D-01
        ws( 33) = 0.1018986948257121D-01
        ws( 34) = 0.1032135272304247D-01
        ws( 35) = 0.1044953270406173D-01
        ws( 36) = 0.1057194138574784D-01
        ws( 37) = 0.1074537846346608D-01
        ws( 38) = 0.1123987319280032D-01
        ws( 39) = 0.1252819413703277D-01
        ws( 40) = 0.1278843736262582D-01
        endif
        if( idomain .eq.  146 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.1000000000000000D+01
        rk1r = 0.3141592653589793D+01
        rk1i = 0.1570796326794897D+01
        iquadtype =  2
        n =  43
        err = 0.2494148648349428D-13
        xs(  1) = 0.4608767772913845D-04
        xs(  2) = 0.2457677783910337D-03
        xs(  3) = 0.6172229452494348D-03
        xs(  4) = 0.1182394154639620D-02
        xs(  5) = 0.1974693021901622D-02
        xs(  6) = 0.3040288317647230D-02
        xs(  7) = 0.4438166188209395D-02
        xs(  8) = 0.6237373588558465D-02
        xs(  9) = 0.8509890625610731D-02
        xs( 10) = 0.1131932225515381D-01
        xs( 11) = 0.1470887017681290D-01
        xs( 12) = 0.1869403348839146D-01
        xs( 13) = 0.2326322383869111D-01
        xs( 14) = 0.2838465573830779D-01
        xs( 15) = 0.3401519511025110D-01
        xs( 16) = 0.4010777610576344D-01
        xs( 17) = 0.4661622977507032D-01
        xs( 18) = 0.5349784525372153D-01
        xs( 19) = 0.6071441847480085D-01
        xs( 20) = 0.6823244122616538D-01
        xs( 21) = 0.7602285972067935D-01
        xs( 22) = 0.8406065005527802D-01
        xs( 23) = 0.9232434249188252D-01
        xs( 24) = 0.1007955604075109D+00
        xs( 25) = 0.1094586037303524D+00
        xs( 26) = 0.1183000877218333D+00
        xs( 27) = 0.1273086384374183D+00
        xs( 28) = 0.1364746420500077D+00
        xs( 29) = 0.1457900432835280D+00
        xs( 30) = 0.1552481899148666D+00
        xs( 31) = 0.1648437200528365D+00
        xs( 32) = 0.1745724834850990D+00
        xs( 33) = 0.1844315141701650D+00
        xs( 34) = 0.1944190798229651D+00
        xs( 35) = 0.2045347434855524D+00
        xs( 36) = 0.2147794591862220D+00
        xs( 37) = 0.2251559245719899D+00
        xs( 38) = 0.2356687368129027D+00
        xs( 39) = 0.2463277265337632D+00
        xs( 40) = 0.2571626021913026D+00
        xs( 41) = 0.2682032395649413D+00
        xs( 42) = 0.2793672233149814D+00
        xs( 43) = 0.2906380528969063D+00
        ws(  1) = 0.1186083977085957D-03
        ws(  2) = 0.2827852729940480D-03
        ws(  3) = 0.4637527048606353D-03
        ws(  4) = 0.6721349892401978D-03
        ws(  5) = 0.9201524567729699D-03
        ws(  6) = 0.1220910669245209D-02
        ws(  7) = 0.1586471276778763D-02
        ws(  8) = 0.2024137339196769D-02
        ws(  9) = 0.2531713163848235D-02
        ws( 10) = 0.3094480967003272D-02
        ws( 11) = 0.3687182667832887D-02
        ws( 12) = 0.4281085668130880D-02
        ws( 13) = 0.4851841472984320D-02
        ws( 14) = 0.5383707412800661D-02
        ws( 15) = 0.5869447768414762D-02
        ws( 16) = 0.6307978703154610D-02
        ws( 17) = 0.6701794261272568D-02
        ws( 18) = 0.7055067196673811D-02
        ws( 19) = 0.7372499127866337D-02
        ws( 20) = 0.7658711447566262D-02
        ws( 21) = 0.7917962965430654D-02
        ws( 22) = 0.8154047162810847D-02
        ws( 23) = 0.8370281903096402D-02
        ws( 24) = 0.8569543265738352D-02
        ws( 25) = 0.8754317660293377D-02
        ws( 26) = 0.8926758870412161D-02
        ws( 27) = 0.9088743710965920D-02
        ws( 28) = 0.9241923573144593D-02
        ws( 29) = 0.9387771288288353D-02
        ws( 30) = 0.9527627432644037D-02
        ws( 31) = 0.9662740824437939D-02
        ws( 32) = 0.9794304876504458D-02
        ws( 33) = 0.9923517632521609D-02
        ws( 34) = 0.1005160488175108D-01
        ws( 35) = 0.1017977666786493D-01
        ws( 36) = 0.1030947410903424D-01
        ws( 37) = 0.1044242428841326D-01
        ws( 38) = 0.1057968022883924D-01
        ws( 39) = 0.1073474598878561D-01
        ws( 40) = 0.1097717692412227D-01
        ws( 41) = 0.1143065442613183D-01
        ws( 42) = 0.1201675501233569D-01
        ws( 43) = 0.1106307233444586D-01
        endif
        if( idomain .eq.  147 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.1000000000000000D+01
        rk1r = 0.6283185307179586D+01
        rk1i = 0.1570796326794897D+01
        iquadtype =  2
        n =  47
        err = 0.5293979733831744D-13
        xs(  1) = 0.2118996920350296D-04
        xs(  2) = 0.1123871803067266D-03
        xs(  3) = 0.2795296125172371D-03
        xs(  4) = 0.5281575551346803D-03
        xs(  5) = 0.8667741294600664D-03
        xs(  6) = 0.1307509386173572D-02
        xs(  7) = 0.1867011109396936D-02
        xs(  8) = 0.2567619089240909D-02
        xs(  9) = 0.3438830032473657D-02
        xs( 10) = 0.4518970953443522D-02
        xs( 11) = 0.5856798673859658D-02
        xs( 12) = 0.7512374325393303D-02
        xs( 13) = 0.9556042209824067D-02
        xs( 14) = 0.1206395303786295D-01
        xs( 15) = 0.1510904414006690D-01
        xs( 16) = 0.1874853723601978D-01
        xs( 17) = 0.2301225504521885D-01
        xs( 18) = 0.2789740018289167D-01
        xs( 19) = 0.3337234370651248D-01
        xs( 20) = 0.3938670096409438D-01
        xs( 21) = 0.4588243697786167D-01
        xs( 22) = 0.5280222670652975D-01
        xs( 23) = 0.6009410843096276D-01
        xs( 24) = 0.6771322772466321D-01
        xs( 25) = 0.7562187373531785D-01
        xs( 26) = 0.8378873842192532D-01
        xs( 27) = 0.9218794415124996D-01
        xs( 28) = 0.1007981015922358D+00
        xs( 29) = 0.1096014977404225D+00
        xs( 30) = 0.1185834351598817D+00
        xs( 31) = 0.1277317110885307D+00
        xs( 32) = 0.1370362152400354D+00
        xs( 33) = 0.1464886246989740D+00
        xs( 34) = 0.1560821786185565D+00
        xs( 35) = 0.1658115195161127D+00
        xs( 36) = 0.1756725896786493D+00
        xs( 37) = 0.1856625860894196D+00
        xs( 38) = 0.1957799865760214D+00
        xs( 39) = 0.2060246541833437D+00
        xs( 40) = 0.2163979409699825D+00
        xs( 41) = 0.2269028718145940D+00
        xs( 42) = 0.2375456097031691D+00
        xs( 43) = 0.2483377732005018D+00
        xs( 44) = 0.2592966694630751D+00
        xs( 45) = 0.2704427212312754D+00
        xs( 46) = 0.2817630674263277D+00
        xs( 47) = 0.2932563375213422D+00
        ws(  1) = 0.5446402655299421D-04
        ws(  2) = 0.1284643344085782D-03
        ws(  3) = 0.2067342485956142D-03
        ws(  4) = 0.2919281274402742D-03
        ws(  5) = 0.3873119558718041D-03
        ws(  6) = 0.4969136541794929D-03
        ws(  7) = 0.6257885230243089D-03
        ws(  8) = 0.7803150627593407D-03
        ws(  9) = 0.9684665282658533D-03
        ws( 10) = 0.1199924075339851D-02
        ws( 11) = 0.1485754544029016D-02
        ws( 12) = 0.1837192073990836D-02
        ws( 13) = 0.2262987655688207D-02
        ws( 14) = 0.2765209561094362D-02
        ws( 15) = 0.3334720002750032D-02
        ws( 16) = 0.3949330878597990D-02
        ws( 17) = 0.4577567392585772D-02
        ws( 18) = 0.5187268980049260D-02
        ws( 19) = 0.5754026113502044D-02
        ws( 20) = 0.6264874892067545D-02
        ws( 21) = 0.6716967902150787D-02
        ws( 22) = 0.7113925307903936D-02
        ws( 23) = 0.7462364030814738D-02
        ws( 24) = 0.7769603005764069D-02
        ws( 25) = 0.8042487788109627D-02
        ws( 26) = 0.8286944553075468D-02
        ws( 27) = 0.8507915582098421D-02
        ws( 28) = 0.8709458108486792D-02
        ws( 29) = 0.8894893247989488D-02
        ws( 30) = 0.9066954473883186D-02
        ws( 31) = 0.9227917425114879D-02
        ws( 32) = 0.9379707379369454D-02
        ws( 33) = 0.9523986714192530D-02
        ws( 34) = 0.9662228749329279D-02
        ws( 35) = 0.9795778921129905D-02
        ws( 36) = 0.9925907995070827D-02
        ws( 37) = 0.1005386520800540D-01
        ws( 38) = 0.1018093821692967D-01
        ws( 39) = 0.1030850539750341D-01
        ws( 40) = 0.1043792966009716D-01
        ws( 41) = 0.1057084247965116D-01
        ws( 42) = 0.1071209578570521D-01
        ws( 43) = 0.1087830974743106D-01
        ws( 44) = 0.1112267514714153D-01
        ws( 45) = 0.1151680448604584D-01
        ws( 46) = 0.1184112051060123D-01
        ws( 47) = 0.1069469250203075D-01
        endif
        if( idomain .eq.  148 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.1000000000000000D+01
        rk1r = 0.9424777960769379D+01
        rk1i = 0.1570796326794897D+01
        iquadtype =  2
        n =  51
        err = 0.3130720911362415D-13
        xs(  1) = 0.1216809094262556D-04
        xs(  2) = 0.6436214543085831D-04
        xs(  3) = 0.1592944835814332D-03
        xs(  4) = 0.2988122939912597D-03
        xs(  5) = 0.4856906148431934D-03
        xs(  6) = 0.7238030100213032D-03
        xs(  7) = 0.1018339185767528D-02
        xs(  8) = 0.1376097540674343D-02
        xs(  9) = 0.1805874666093840D-02
        xs( 10) = 0.2318980625427751D-02
        xs( 11) = 0.2929917109165041D-02
        xs( 12) = 0.3657263011663640D-02
        xs( 13) = 0.4524814284869047D-02
        xs( 14) = 0.5563012342094633D-02
        xs( 15) = 0.6810647664766169D-02
        xs( 16) = 0.8316705437317625D-02
        xs( 17) = 0.1014197055991543D-01
        xs( 18) = 0.1235957185739280D-01
        xs( 19) = 0.1505304812906653D-01
        xs( 20) = 0.1831008712521158D-01
        xs( 21) = 0.2221067777110568D-01
        xs( 22) = 0.2681107435966786D-01
        xs( 23) = 0.3212922029010239D-01
        xs( 24) = 0.3813938611724823D-01
        xs( 25) = 0.4477970439068812D-01
        xs( 26) = 0.5196839461391597D-01
        xs( 27) = 0.5962035899663620D-01
        xs( 28) = 0.6765836952041045D-01
        xs( 29) = 0.7601793406609966D-01
        xs( 30) = 0.8464776955840678D-01
        xs( 31) = 0.9350815035342919D-01
        xs( 32) = 0.1025686515394579D+00
        xs( 33) = 0.1118060279857548D+00
        xs( 34) = 0.1212024835114163D+00
        xs( 35) = 0.1307443528898037D+00
        xs( 36) = 0.1404211351961797D+00
        xs( 37) = 0.1502248009459299D+00
        xs( 38) = 0.1601493045795539D+00
        xs( 39) = 0.1701902521304954D+00
        xs( 40) = 0.1803446862572718D+00
        xs( 41) = 0.1906109636256028D+00
        xs( 42) = 0.2009887230256582D+00
        xs( 43) = 0.2114789645576686D+00
        xs( 44) = 0.2220842098788192D+00
        xs( 45) = 0.2328084325170533D+00
        xs( 46) = 0.2436572271945602D+00
        xs( 47) = 0.2546408839098698D+00
        xs( 48) = 0.2657818516823425D+00
        xs( 49) = 0.2771262320342079D+00
        xs( 50) = 0.2887170620290403D+00
        xs( 51) = 0.3005414753562692D+00
        ws(  1) = 0.3125555033796019D-04
        ws(  2) = 0.7332399688397933D-04
        ws(  3) = 0.1168452666607488D-03
        ws(  4) = 0.1626502030875181D-03
        ws(  5) = 0.2117484496231811D-03
        ws(  6) = 0.2653364666640825D-03
        ws(  7) = 0.3248625277425875D-03
        ws(  8) = 0.3921117811384695D-03
        ws(  9) = 0.4693162854206346D-03
        ws( 10) = 0.5592979388014567D-03
        ws( 11) = 0.6656526077703071D-03
        ws( 12) = 0.7929813776691104D-03
        ws( 13) = 0.9471660776182484D-03
        ws( 14) = 0.1135663524368320D-02
        ws( 15) = 0.1367742698344596D-02
        ws( 16) = 0.1654491196857780D-02
        ws( 17) = 0.2008254649005325D-02
        ws( 18) = 0.2440971516807120D-02
        ws( 19) = 0.2960795503330193D-02
        ws( 20) = 0.3566895401661194D-02
        ws( 21) = 0.4243926067147343D-02
        ws( 22) = 0.4959957922172894D-02
        ws( 23) = 0.5671908079460818D-02
        ws( 24) = 0.6337818749177305D-02
        ws( 25) = 0.6928896542883522D-02
        ws( 26) = 0.7434113505541398D-02
        ws( 27) = 0.7856868520489025D-02
        ws( 28) = 0.8208401728122653D-02
        ws( 29) = 0.8502211280836221D-02
        ws( 30) = 0.8750878000321569D-02
        ws( 31) = 0.8964848623222395D-02
        ws( 32) = 0.9152308406413600D-02
        ws( 33) = 0.9319500247272261D-02
        ws( 34) = 0.9471149169156364D-02
        ws( 35) = 0.9610850791361071D-02
        ws( 36) = 0.9741383630810544D-02
        ws( 37) = 0.9864946111913415D-02
        ws( 38) = 0.9983333392570643D-02
        ws( 39) = 0.1009807187361530D-01
        ws( 40) = 0.1021051785285895D-01
        ws( 41) = 0.1032194907929481D-01
        ws( 42) = 0.1043368465430076D-01
        ws( 43) = 0.1054726937321690D-01
        ws( 44) = 0.1066439213624784D-01
        ws( 45) = 0.1078606676045756D-01
        ws( 46) = 0.1091382870551720D-01
        ws( 47) = 0.1105527654265636D-01
        ws( 48) = 0.1124016066271440D-01
        ws( 49) = 0.1155009512899809D-01
        ws( 50) = 0.1204446081475596D-01
        ws( 51) = 0.1234261291406754D-01
        endif
        if( idomain .eq.  149 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.1000000000000000D+01
        rk1r = 0.1256637061435917D+02
        rk1i = 0.1570796326794897D+01
        iquadtype =  2
        n =  55
        err = 0.4854160907697993D-13
        xs(  1) = 0.7962025364107195D-05
        xs(  2) = 0.4205685475338276D-04
        xs(  3) = 0.1038307924987516D-03
        xs(  4) = 0.1940611735466059D-03
        xs(  5) = 0.3138949869713739D-03
        xs(  6) = 0.4649068091569370D-03
        xs(  7) = 0.6491642278247715D-03
        xs(  8) = 0.8693124751319040D-03
        xs(  9) = 0.1128683335964919D-02
        xs( 10) = 0.1431434740016379D-02
        xs( 11) = 0.1782729795981632D-02
        xs( 12) = 0.2188967107871516D-02
        xs( 13) = 0.2658078173664456D-02
        xs( 14) = 0.3199912704091123D-02
        xs( 15) = 0.3826738938602892D-02
        xs( 16) = 0.4553893313267588D-02
        xs( 17) = 0.5400621246370413D-02
        xs( 18) = 0.6391155759984139D-02
        xs( 19) = 0.7556077004630675D-02
        xs( 20) = 0.8933970381575645D-02
        xs( 21) = 0.1057332826577167D-01
        xs( 22) = 0.1253447568003544D-01
        xs( 23) = 0.1489097962022936D-01
        xs( 24) = 0.1772947175751362D-01
        xs( 25) = 0.2114614658886937D-01
        xs( 26) = 0.2523784017655690D-01
        xs( 27) = 0.3008661514723094D-01
        xs( 28) = 0.3574034179470641D-01
        xs( 29) = 0.4219691721202395D-01
        xs( 30) = 0.4940150569327992D-01
        xs( 31) = 0.5725987834620973D-01
        xs( 32) = 0.6566080418557418D-01
        xs( 33) = 0.7449650018786654D-01
        xs( 34) = 0.8367474152360968D-01
        xs( 35) = 0.9312271417131510D-01
        xs( 36) = 0.1027857830809928D+00
        xs( 37) = 0.1126242147386966D+00
        xs( 38) = 0.1226096594917275D+00
        xs( 39) = 0.1327221533660144D+00
        xs( 40) = 0.1429478177552626D+00
        xs( 41) = 0.1532771923863818D+00
        xs( 42) = 0.1637040699191833D+00
        xs( 43) = 0.1742247059811633D+00
        xs( 44) = 0.1848373034964755D+00
        xs( 45) = 0.1955417055575404D+00
        xs( 46) = 0.2063392580543761D+00
        xs( 47) = 0.2172327988343529D+00
        xs( 48) = 0.2282268056286422D+00
        xs( 49) = 0.2393277937046806D+00
        xs( 50) = 0.2505454863824804D+00
        xs( 51) = 0.2618941928526249D+00
        xs( 52) = 0.2734008447625434D+00
        xs( 53) = 0.2851068381921290D+00
        xs( 54) = 0.2971010631134741D+00
        xs( 55) = 0.3092273121803077D+00
        ws(  1) = 0.2044511341697541D-04
        ws(  2) = 0.4783199653909430D-04
        ws(  3) = 0.7584386516621674D-04
        ws(  4) = 0.1048072085655639D-03
        ws(  5) = 0.1351217705374133D-03
        ws(  6) = 0.1672450723547591D-03
        ws(  7) = 0.2017088368397126D-03
        ws(  8) = 0.2391406492982369D-03
        ws(  9) = 0.2802911045913785D-03
        ws( 10) = 0.3260684202101602D-03
        ws( 11) = 0.3775832181971859D-03
        ws( 12) = 0.4362069639424199D-03
        ws( 13) = 0.5036485291335952D-03
        ws( 14) = 0.5820545106796128D-03
        ws( 15) = 0.6741401321052483D-03
        ws( 16) = 0.7833583202004196D-03
        ws( 17) = 0.9141137837625424D-03
        ws( 18) = 0.1072024203665421D-02
        ws( 19) = 0.1264217029077413D-02
        ws( 20) = 0.1499618496131701D-02
        ws( 21) = 0.1789125485864267D-02
        ws( 22) = 0.2145429254957654D-02
        ws( 23) = 0.2582070104486555D-02
        ws( 24) = 0.3111091572278757D-02
        ws( 25) = 0.3738659251594458D-02
        ws( 26) = 0.4458748113627812D-02
        ws( 27) = 0.5247069622349759D-02
        ws( 28) = 0.6060088711725482D-02
        ws( 29) = 0.6843680431481805D-02
        ws( 30) = 0.7549388082967974D-02
        ws( 31) = 0.8148462193767020D-02
        ws( 32) = 0.8635225869333112D-02
        ws( 33) = 0.9020740052964013D-02
        ws( 34) = 0.9323635045755401D-02
        ws( 35) = 0.9563263177812573D-02
        ws( 36) = 0.9756312619283607D-02
        ws( 37) = 0.9915876016841850D-02
        ws( 38) = 0.1005172428540528D-01
        ws( 39) = 0.1017097781652931D-01
        ws( 40) = 0.1027879336576149D-01
        ws( 41) = 0.1037893412588397D-01
        ws( 42) = 0.1047420468680186D-01
        ws( 43) = 0.1056677132021944D-01
        ws( 44) = 0.1065839880662058D-01
        ws( 45) = 0.1075064484421932D-01
        ws( 46) = 0.1084501207190548D-01
        ws( 47) = 0.1094299832387927D-01
        ws( 48) = 0.1104612210750635D-01
        ws( 49) = 0.1115624781214764D-01
        ws( 50) = 0.1127656024080491D-01
        ws( 51) = 0.1141411330458838D-01
        ws( 52) = 0.1160857060530307D-01
        ws( 53) = 0.1190421738185215D-01
        ws( 54) = 0.1252405560381030D-01
        ws( 55) = 0.1437190496180360D-01
        endif
        if( idomain .eq.  150 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.1000000000000000D+01
        rk1r = 0.1570796326794897D+02
        rk1i = 0.1570796326794897D+01
        iquadtype =  2
        n =  57
        err = 0.7003479170038005D-13
        xs(  1) = 0.5741383222716608D-05
        xs(  2) = 0.3030429984335276D-04
        xs(  3) = 0.7471425959313035D-04
        xs(  4) = 0.1393649084361911D-03
        xs(  5) = 0.2248294666335709D-03
        xs(  6) = 0.3318877728005374D-03
        xs(  7) = 0.4615528353348029D-03
        xs(  8) = 0.6151039460487528D-03
        xs(  9) = 0.7941279646006869D-03
        xs( 10) = 0.1000570520480480D-02
        xs( 11) = 0.1236799506962154D-02
        xs( 12) = 0.1505684084218675D-02
        xs( 13) = 0.1810693487873622D-02
        xs( 14) = 0.2156021335108980D-02
        xs( 15) = 0.2546742951535727D-02
        xs( 16) = 0.2989015666011325D-02
        xs( 17) = 0.3490335237789341D-02
        xs( 18) = 0.4059865831664236D-02
        xs( 19) = 0.4708866502162683D-02
        xs( 20) = 0.5451244196903238D-02
        xs( 21) = 0.6304271821586782D-02
        xs( 22) = 0.7289519258275327D-02
        xs( 23) = 0.8434053176819511D-02
        xs( 24) = 0.9771962388353966D-02
        xs( 25) = 0.1134624666763221D-01
        xs( 26) = 0.1321104220943745D-01
        xs( 27) = 0.1543399683528247D-01
        xs( 28) = 0.1809827196276214D-01
        xs( 29) = 0.2130303878179932D-01
        xs( 30) = 0.2516044085197002D-01
        xs( 31) = 0.2978619261021869D-01
        xs( 32) = 0.3528154297826226D-01
        xs( 33) = 0.4170828523687993D-01
        xs( 34) = 0.4906588775630838D-01
        xs( 35) = 0.5728445669601979D-01
        xs( 36) = 0.6624046158936348D-01
        xs( 37) = 0.7578707477609967D-01
        xs( 38) = 0.8578305774735079D-01
        xs( 39) = 0.9610988645116297D-01
        xs( 40) = 0.1066767973052025D+00
        xs( 41) = 0.1174184764071147D+00
        xs( 42) = 0.1282899654714214D+00
        xs( 43) = 0.1392614317006230D+00
        xs( 44) = 0.1503138475054721D+00
        xs( 45) = 0.1614357702446799D+00
        xs( 46) = 0.1726210783368370D+00
        xs( 47) = 0.1838674451253423D+00
        xs( 48) = 0.1951753435767686D+00
        xs( 49) = 0.2065474407159899D+00
        xs( 50) = 0.2179884530624334D+00
        xs( 51) = 0.2295048989542671D+00
        xs( 52) = 0.2411049744575459D+00
        xs( 53) = 0.2528018115469395D+00
        xs( 54) = 0.2646072363007461D+00
        xs( 55) = 0.2765411575008167D+00
        xs( 56) = 0.2887151080909496D+00
        xs( 57) = 0.3005917099084870D+00
        ws(  1) = 0.1474030601128353D-04
        ws(  2) = 0.3443373707409575D-04
        ws(  3) = 0.5445081914795963D-04
        ws(  4) = 0.7494564345946675D-04
        ws(  5) = 0.9611300980659670D-04
        ws(  6) = 0.1181718885866878D-03
        ws(  7) = 0.1413707677539161D-03
        ws(  8) = 0.1659950824948098D-03
        ws(  9) = 0.1923761755276100D-03
        ws( 10) = 0.2209022784985265D-03
        ws( 11) = 0.2520322544005296D-03
        ws( 12) = 0.2863130519615638D-03
        ws( 13) = 0.3244020928029522D-03
        ws( 14) = 0.3670961819580373D-03
        ws( 15) = 0.4153690395359405D-03
        ws( 16) = 0.4704202370972534D-03
        ws( 17) = 0.5337392300116432D-03
        ws( 18) = 0.6071893414473508D-03
        ws( 19) = 0.6931179707630751D-03
        ws( 20) = 0.7945008546398276D-03
        ws( 21) = 0.9151295202379349D-03
        ws( 22) = 0.1059851149104557D-02
        ws( 23) = 0.1234866647580279D-02
        ws( 24) = 0.1448080936374855D-02
        ws( 25) = 0.1709469601161324D-02
        ws( 26) = 0.2031360193596249D-02
        ws( 27) = 0.2428396227395778D-02
        ws( 28) = 0.2916725996555445D-02
        ws( 29) = 0.3511648089790849D-02
        ws( 30) = 0.4222744473565576D-02
        ws( 31) = 0.5046072605575014D-02
        ws( 32) = 0.5955346409735216D-02
        ws( 33) = 0.6898188040389902D-02
        ws( 34) = 0.7805082688706322D-02
        ws( 35) = 0.8610915772124089D-02
        ws( 36) = 0.9276115368381663D-02
        ws( 37) = 0.9793287935503050D-02
        ws( 38) = 0.1017885339817574D-01
        ws( 39) = 0.1045972667943539D-01
        ws( 40) = 0.1066330032302859D-01
        ws( 41) = 0.1081265415457696D-01
        ws( 42) = 0.1092542406466227D-01
        ws( 43) = 0.1101439031640483D-01
        ws( 44) = 0.1108857140480809D-01
        ws( 45) = 0.1115427879310921D-01
        ws( 46) = 0.1121596517190303D-01
        ws( 47) = 0.1127686811603736D-01
        ws( 48) = 0.1133945263927897D-01
        ws( 49) = 0.1140554523966840D-01
        ws( 50) = 0.1147703927141716D-01
        ws( 51) = 0.1155705522048192D-01
        ws( 52) = 0.1164390572802673D-01
        ws( 53) = 0.1174573249267960D-01
        ws( 54) = 0.1185832826304430D-01
        ws( 55) = 0.1202930381702941D-01
        ws( 56) = 0.1275814631804393D-01
        ws( 57) = 0.1457490474174447D-01
        endif
        if( idomain .eq.  151 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.1000000000000000D+01
        rk1r = 0.1884955592153876D+02
        rk1i = 0.1570796326794897D+01
        iquadtype =  2
        n =  60
        err = 0.7310057994970814D-13
        xs(  1) = 0.4341592585667917D-05
        xs(  2) = 0.2290484900363758D-04
        xs(  3) = 0.5642187199857291D-04
        xs(  4) = 0.1051099923691558D-03
        xs(  5) = 0.1692816747921972D-03
        xs(  6) = 0.2493593667621928D-03
        xs(  7) = 0.3458878837406490D-03
        xs(  8) = 0.4595492817040139D-03
        xs(  9) = 0.5911808658994523D-03
        xs( 10) = 0.7417968558022917D-03
        xs( 11) = 0.9126144037279335D-03
        xs( 12) = 0.1105084917895527D-02
        xs( 13) = 0.1320931951957904D-02
        xs( 14) = 0.1562197305674087D-02
        xs( 15) = 0.1831297462117590D-02
        xs( 16) = 0.2131093103601221D-02
        xs( 17) = 0.2464975252622046D-02
        xs( 18) = 0.2836972643795614D-02
        xs( 19) = 0.3251886338418001D-02
        xs( 20) = 0.3715459464495432D-02
        xs( 21) = 0.4234592457925738D-02
        xs( 22) = 0.4817617493780953D-02
        xs( 23) = 0.5474650171297826D-02
        xs( 24) = 0.6218042215840722D-02
        xs( 25) = 0.7062966206079540D-02
        xs( 26) = 0.8028172131280372D-02
        xs( 27) = 0.9136965326810107D-02
        xs( 28) = 0.1041846394001922D-01
        xs( 29) = 0.1190919616938485D-01
        xs( 30) = 0.1365508086224199D-01
        xs( 31) = 0.1571377402472500D-01
        xs( 32) = 0.1815720906631620D-01
        xs( 33) = 0.2107382626067863D-01
        xs( 34) = 0.2456936644416918D-01
        xs( 35) = 0.2876414901208165D-01
        xs( 36) = 0.3378378877391535D-01
        xs( 37) = 0.3974058717443886D-01
        xs( 38) = 0.4670658596337444D-01
        xs( 39) = 0.5468711005771281D-01
        xs( 40) = 0.6360980191196730D-01
        xs( 41) = 0.7333881562593531D-01
        xs( 42) = 0.8370766477067015D-01
        xs( 43) = 0.9455314520001666D-01
        xs( 44) = 0.1057370084223446D+00
        xs( 45) = 0.1171533755798474D+00
        xs( 46) = 0.1287267858499181D+00
        xs( 47) = 0.1404063750036821D+00
        xs( 48) = 0.1521596051938099D+00
        xs( 49) = 0.1639669955038536D+00
        xs( 50) = 0.1758181774561409D+00
        xs( 51) = 0.1877091325759551D+00
        xs( 52) = 0.1996403920207997D+00
        xs( 53) = 0.2116158346122893D+00
        xs( 54) = 0.2236423966281508D+00
        xs( 55) = 0.2357295598737885D+00
        xs( 56) = 0.2478907936999342D+00
        xs( 57) = 0.2601386981186576D+00
        xs( 58) = 0.2725048250020127D+00
        xs( 59) = 0.2850545116348437D+00
        xs( 60) = 0.2974963105113978D+00
        ws(  1) = 0.1114525798916110D-04
        ws(  2) = 0.2601050627417952D-04
        ws(  3) = 0.4105908948133569D-04
        ws(  4) = 0.5636904036633907D-04
        ws(  5) = 0.7204452983665032D-04
        ws(  6) = 0.8820140990748054D-04
        ws(  7) = 0.1049690010753360D-03
        ws(  8) = 0.1224929862801914D-03
        ws(  9) = 0.1409387872887020D-03
        ws( 10) = 0.1604955321624212D-03
        ws( 11) = 0.1813808374443398D-03
        ws( 12) = 0.2038466864958336D-03
        ws( 13) = 0.2281867474244798D-03
        ws( 14) = 0.2547455569318028D-03
        ws( 15) = 0.2839301114896305D-03
        ws( 16) = 0.3162245664929261D-03
        ws( 17) = 0.3522089622670673D-03
        ws( 18) = 0.3925831923439801D-03
        ws( 19) = 0.4381978297225287D-03
        ws( 20) = 0.4900939637082356D-03
        ws( 21) = 0.5495549135345621D-03
        ws( 22) = 0.6181736195244974D-03
        ws( 23) = 0.6979407052535019D-03
        ws( 24) = 0.7913596558652792D-03
        ws( 25) = 0.9015971644863951D-03
        ws( 26) = 0.1032678100679978D-02
        ws( 27) = 0.1189734814002068D-02
        ws( 28) = 0.1379317428531560D-02
        ws( 29) = 0.1609760720632719D-02
        ws( 30) = 0.1891574576878621D-02
        ws( 31) = 0.2237760967551721D-02
        ws( 32) = 0.2663831053536636D-02
        ws( 33) = 0.3187064536564778D-02
        ws( 34) = 0.3824215771604413D-02
        ws( 35) = 0.4586595501453489D-02
        ws( 36) = 0.5471871118038996D-02
        ws( 37) = 0.6454214750453532D-02
        ws( 38) = 0.7478882128777429D-02
        ws( 39) = 0.8469851789028432D-02
        ws( 40) = 0.9352293545883865D-02
        ws( 41) = 0.1007738617814851D-01
        ws( 42) = 0.1063274819559758D-01
        ws( 43) = 0.1103506220331164D-01
        ws( 44) = 0.1131506427739236D-01
        ws( 45) = 0.1150519818639886D-01
        ws( 46) = 0.1163325250799758D-01
        ws( 47) = 0.1172059133380300D-01
        ws( 48) = 0.1178268842589950D-01
        ws( 49) = 0.1183041006696090D-01
        ws( 50) = 0.1187131721734932D-01
        ws( 51) = 0.1191069686444111D-01
        ws( 52) = 0.1195240293725910D-01
        ws( 53) = 0.1199953855634150D-01
        ws( 54) = 0.1205472430513848D-01
        ws( 55) = 0.1212053505989559D-01
        ws( 56) = 0.1220216402732956D-01
        ws( 57) = 0.1231168155922932D-01
        ws( 58) = 0.1249779593322077D-01
        ws( 59) = 0.1324222087289746D-01
        ws( 60) = 0.1461349591180218D-01
        endif
        if( idomain .eq.  152 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.1000000000000000D+01
        rk1r = 0.2199114857512855D+02
        rk1i = 0.1570796326794897D+01
        iquadtype =  2
        n =  64
        err = 0.4898343971678840D-13
        xs(  1) = 0.3366382150953758D-05
        xs(  2) = 0.1775421009295418D-04
        xs(  3) = 0.4370861723774021D-04
        xs(  4) = 0.8135652227904727D-04
        xs(  5) = 0.1308778525534577D-03
        xs(  6) = 0.1925145532093241D-03
        xs(  7) = 0.2665768429217751D-03
        xs(  8) = 0.3534504573984434D-03
        xs(  9) = 0.4536052249775839D-03
        xs( 10) = 0.5676051430566116D-03
        xs( 11) = 0.6961201696737230D-03
        xs( 12) = 0.8399400288012991D-03
        xs( 13) = 0.9999904297146873D-03
        xs( 14) = 0.1177352219716657D-02
        xs( 15) = 0.1373284130666477D-02
        xs( 16) = 0.1589249951650784D-02
        xs( 17) = 0.1826951174362002D-02
        xs( 18) = 0.2088366429617915D-02
        xs( 19) = 0.2375799382975114D-02
        xs( 20) = 0.2691937210880914D-02
        xs( 21) = 0.3039922371159085D-02
        xs( 22) = 0.3423441159358183D-02
        xs( 23) = 0.3846833567812792D-02
        xs( 24) = 0.4315230320261674D-02
        xs( 25) = 0.4834724751826900D-02
        xs( 26) = 0.5412589586615714D-02
        xs( 27) = 0.6057551818050991D-02
        xs( 28) = 0.6780143046707805D-02
        xs( 29) = 0.7593148031408983D-02
        xs( 30) = 0.8512181094637887D-02
        xs( 31) = 0.9556428473451452D-02
        xs( 32) = 0.1074960434176015D-01
        xs( 33) = 0.1212117753079751D-01
        xs( 34) = 0.1370793086349782D-01
        xs( 35) = 0.1555590599883880D-01
        xs( 36) = 0.1772274342827318D-01
        xs( 37) = 0.2028030934580368D-01
        xs( 38) = 0.2331723531645818D-01
        xs( 39) = 0.2694047118117763D-01
        xs( 40) = 0.3127406025618142D-01
        xs( 41) = 0.3645220199881898D-01
        xs( 42) = 0.4260314414479821D-01
        xs( 43) = 0.4982269826700864D-01
        xs( 44) = 0.5814326760331341D-01
        xs( 45) = 0.6751322770173665D-01
        xs( 46) = 0.7780176873837846D-01
        xs( 47) = 0.8882961051350298D-01
        xs( 48) = 0.1004088633621212D+00
        xs( 49) = 0.1123734005691434D+00
        xs( 50) = 0.1245926569865864D+00
        xs( 51) = 0.1369723873650254D+00
        xs( 52) = 0.1494489648543497D+00
        xs( 53) = 0.1619820834448560D+00
        xs( 54) = 0.1745482356647605D+00
        xs( 55) = 0.1871356965482680D+00
        xs( 56) = 0.1997409774608284D+00
        xs( 57) = 0.2123664603606375D+00
        xs( 58) = 0.2250191229871685D+00
        xs( 59) = 0.2377096146738209D+00
        xs( 60) = 0.2504531392248802D+00
        xs( 61) = 0.2632674774893026D+00
        xs( 62) = 0.2761809945945762D+00
        xs( 63) = 0.2891663250439254D+00
        xs( 64) = 0.3022301918503029D+00
        ws(  1) = 0.8641152463989541D-05
        ws(  2) = 0.2015344177046469D-04
        ws(  3) = 0.3177603304330207D-04
        ws(  4) = 0.4354966051914649D-04
        ws(  5) = 0.5553322272489005D-04
        ws(  6) = 0.6779176145732787D-04
        ws(  7) = 0.8039696468528826D-04
        ws(  8) = 0.9342840155029707D-04
        ws(  9) = 0.1069749373526101D-03
        ws( 10) = 0.1211363293370328D-03
        ws( 11) = 0.1360250754642143D-03
        ws( 12) = 0.1517686100186194D-03
        ws( 13) = 0.1685119558816801D-03
        ws( 14) = 0.1864209623569035D-03
        ws( 15) = 0.2056862834096250D-03
        ws( 16) = 0.2265282871630594D-03
        ws( 17) = 0.2492031367989026D-03
        ws( 18) = 0.2740103497587917D-03
        ws( 19) = 0.3013022317384694D-03
        ws( 20) = 0.3314957017297434D-03
        ws( 21) = 0.3650871842441304D-03
        ws( 22) = 0.4026714583315799D-03
        ws( 23) = 0.4449656381658691D-03
        ws( 24) = 0.4928398406731542D-03
        ws( 25) = 0.5473566026267744D-03
        ws( 26) = 0.6098217804732979D-03
        ws( 27) = 0.6818505432325442D-03
        ws( 28) = 0.7654531906119077D-03
        ws( 29) = 0.8631469069551818D-03
        ws( 30) = 0.9781011291463261D-03
        ws( 31) = 0.1114325697670139D-02
        ws( 32) = 0.1276911660057062D-02
        ws( 33) = 0.1472332824635873D-02
        ws( 34) = 0.1708808248262326D-02
        ws( 35) = 0.1996704200617829D-02
        ws( 36) = 0.2348904043425851D-02
        ws( 37) = 0.2780969723497526D-02
        ws( 38) = 0.3310720483976528D-02
        ws( 39) = 0.3956531485104942D-02
        ws( 40) = 0.4733276558861118D-02
        ws( 41) = 0.5644835423686173D-02
        ws( 42) = 0.6673572569007830D-02
        ws( 43) = 0.7771323753381237D-02
        ws( 44) = 0.8861132776342434D-02
        ws( 45) = 0.9856425811521970D-02
        ws( 46) = 0.1069006105930784D-01
        ws( 47) = 0.1133378586553956D-01
        ws( 48) = 0.1179681428111939D-01
        ws( 49) = 0.1211050415125003D-01
        ws( 50) = 0.1231240783260375D-01
        ws( 51) = 0.1243657533493578D-01
        ws( 52) = 0.1250997192939608D-01
        ws( 53) = 0.1255242988055936D-01
        ws( 54) = 0.1257797489104605D-01
        ws( 55) = 0.1259639931643883D-01
        ws( 56) = 0.1261458723065451D-01
        ws( 57) = 0.1263755877282054D-01
        ws( 58) = 0.1266947910760435D-01
        ws( 59) = 0.1271414452566901D-01
        ws( 60) = 0.1277885046354728D-01
        ws( 61) = 0.1287348333069584D-01
        ws( 62) = 0.1305561773722515D-01
        ws( 63) = 0.1338160544419112D-01
        ws( 64) = 0.1405945583767333D-01
        endif
        if( idomain .eq.  153 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.1000000000000000D+01
        rk1r = 0.2513274122871834D+02
        rk1i = 0.1570796326794897D+01
        iquadtype =  2
        n =  67
        err = 0.8366213306383389D-13
        xs(  1) = 0.2730554434863862D-05
        xs(  2) = 0.1439758265567156D-04
        xs(  3) = 0.3543039606771396D-04
        xs(  4) = 0.6590836056611895D-04
        xs(  5) = 0.1059424421186283D-03
        xs(  6) = 0.1556815031513693D-03
        xs(  7) = 0.2153160266679106D-03
        xs(  8) = 0.2850822685562790D-03
        xs(  9) = 0.3652670637468060D-03
        xs( 10) = 0.4562133462321003D-03
        xs( 11) = 0.5583264526318261D-03
        xs( 12) = 0.6720813151433222D-03
        xs( 13) = 0.7980306936254970D-03
        xs( 14) = 0.9368146453122282D-03
        xs( 15) = 0.1089171484916259D-02
        xs( 16) = 0.1255950549911903D-02
        xs( 17) = 0.1438127158953530D-02
        xs( 18) = 0.1636820240134307D-02
        xs( 19) = 0.1853313215753224D-02
        xs( 20) = 0.2089078868567813D-02
        xs( 21) = 0.2345809090288153D-02
        xs( 22) = 0.2625450638135390D-02
        xs( 23) = 0.2930248315160173D-02
        xs( 24) = 0.3262797365244379D-02
        xs( 25) = 0.3626107361693576D-02
        xs( 26) = 0.4023680505767789D-02
        xs( 27) = 0.4459608087695616D-02
        xs( 28) = 0.4938689963867582D-02
        xs( 29) = 0.5466583358718537D-02
        xs( 30) = 0.6049989226432750D-02
        xs( 31) = 0.6696886961509071D-02
        xs( 32) = 0.7416831628627005D-02
        xs( 33) = 0.8221332339157682D-02
        xs( 34) = 0.9124336219206433D-02
        xs( 35) = 0.1014284986829740D-01
        xs( 36) = 0.1129773943785983D-01
        xs( 37) = 0.1261476115815086D-01
        xs( 38) = 0.1412588486101946D-01
        xs( 39) = 0.1587097968333468D-01
        xs( 40) = 0.1789992381169869D-01
        xs( 41) = 0.2027515698413374D-01
        xs( 42) = 0.2307457040243214D-01
        xs( 43) = 0.2639433857244091D-01
        xs( 44) = 0.3035070442979236D-01
        xs( 45) = 0.3507869270957948D-01
        xs( 46) = 0.4072437002165755D-01
        xs( 47) = 0.4742664520551880D-01
        xs( 48) = 0.5528727580744203D-01
        xs( 49) = 0.6433607919284641D-01
        xs( 50) = 0.7450862182781436D-01
        xs( 51) = 0.8565337342659086D-01
        xs( 52) = 0.9756769770054848D-01
        xs( 53) = 0.1100427744749341D+00
        xs( 54) = 0.1228966430877666D+00
        xs( 55) = 0.1359883350820396D+00
        xs( 56) = 0.1492177355111368D+00
        xs( 57) = 0.1625186922068333D+00
        xs( 58) = 0.1758506930862394D+00
        xs( 59) = 0.1891916072374015D+00
        xs( 60) = 0.2025321859446564D+00
        xs( 61) = 0.2158723888925440D+00
        xs( 62) = 0.2292186267280527D+00
        xs( 63) = 0.2425820607418452D+00
        xs( 64) = 0.2559814557571258D+00
        xs( 65) = 0.2694455995025287D+00
        xs( 66) = 0.2828647188852430D+00
        xs( 67) = 0.2965606007068583D+00
        ws(  1) = 0.7008674602754629D-05
        ws(  2) = 0.1633860378742071D-04
        ws(  3) = 0.2573986262510516D-04
        ws(  4) = 0.3523449282154408D-04
        ws(  5) = 0.4485842078257593D-04
        ws(  6) = 0.5465137951076507D-04
        ws(  7) = 0.6465696351138450D-04
        ws(  8) = 0.7492323424591778D-04
        ws(  9) = 0.8550340699071627D-04
        ws( 10) = 0.9645659455545295D-04
        ws( 11) = 0.1078486368793481D-03
        ws( 12) = 0.1197530575570524D-03
        ws( 13) = 0.1322521936896908D-03
        ws( 14) = 0.1454385502988008D-03
        ws( 15) = 0.1594164369747020D-03
        ws( 16) = 0.1743039537070584D-03
        ws( 17) = 0.1902354060237225D-03
        ws( 18) = 0.2073642477421464D-03
        ws( 19) = 0.2258666741355540D-03
        ws( 20) = 0.2459460208399699D-03
        ws( 21) = 0.2678381666856157D-03
        ws( 22) = 0.2918181949681808D-03
        ws( 23) = 0.3182086417845044D-03
        ws( 24) = 0.3473897577904190D-03
        ws( 25) = 0.3798123390525517D-03
        ws( 26) = 0.4160138543498414D-03
        ws( 27) = 0.4566388249013603D-03
        ws( 28) = 0.5024647175167263D-03
        ws( 29) = 0.5544350193552858D-03
        ws( 30) = 0.6137017051363507D-03
        ws( 31) = 0.6816800270660359D-03
        ws( 32) = 0.7601195014826604D-03
        ws( 33) = 0.8511961802225798D-03
        ws( 34) = 0.9576328017108953D-03
        ws( 35) = 0.1082855163092174D-02
        ws( 36) = 0.1231194791836210D-02
        ws( 37) = 0.1408149018917884D-02
        ws( 38) = 0.1620708154358037D-02
        ws( 39) = 0.1877751790489163D-02
        ws( 40) = 0.2190494099801585D-02
        ws( 41) = 0.2572904748977822D-02
        ws( 42) = 0.3041916787509688D-02
        ws( 43) = 0.3617006613239309D-02
        ws( 44) = 0.4318347444078126D-02
        ws( 45) = 0.5162271026983569D-02
        ws( 46) = 0.6152749891560827D-02
        ws( 47) = 0.7269385402417480D-02
        ws( 48) = 0.8457266928359889D-02
        ws( 49) = 0.9629481469399594D-02
        ws( 50) = 0.1068969154026200D-01
        ws( 51) = 0.1156523377852024D-01
        ws( 52) = 0.1222804606043926D-01
        ws( 53) = 0.1269156053820018D-01
        ws( 54) = 0.1299270406424529D-01
        ws( 55) = 0.1317412151577453D-01
        ws( 56) = 0.1327379831328299D-01
        ws( 57) = 0.1332148580498417D-01
        ws( 58) = 0.1333892170069594D-01
        ws( 59) = 0.1334142177669471D-01
        ws( 60) = 0.1333974550486379D-01
        ws( 61) = 0.1334168149064294D-01
        ws( 62) = 0.1335385754311674D-01
        ws( 63) = 0.1338313028777285D-01
        ws( 64) = 0.1343993990659629D-01
        ws( 65) = 0.1355589029516633D-01
        ws( 66) = 0.1327579148714578D-01
        ws( 67) = 0.1503097841737570D-01
        endif
        if( idomain .eq.  154 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.1000000000000000D+01
        rk1r = 0.2827433388230814D+02
        rk1i = 0.1570796326794897D+01
        iquadtype =  2
        n =  71
        err = 0.5514175494218424D-13
        xs(  1) = 0.2235762692421180D-05
        xs(  2) = 0.1178678355819897D-04
        xs(  3) = 0.2899724104671737D-04
        xs(  4) = 0.5391865414830222D-04
        xs(  5) = 0.8662189706090250D-04
        xs(  6) = 0.1272017769477250D-03
        xs(  7) = 0.1757793293484737D-03
        xs(  8) = 0.2325042814684775D-03
        xs(  9) = 0.2975578529626286D-03
        xs( 10) = 0.3711559176781074D-03
        xs( 11) = 0.4535525456368022D-03
        xs( 12) = 0.5450439605594239D-03
        xs( 13) = 0.6459729688477078D-03
        xs( 14) = 0.7567339381358691D-03
        xs( 15) = 0.8777784268520555D-03
        xs( 16) = 0.1009621591178507D-02
        xs( 17) = 0.1152849523378149D-02
        xs( 18) = 0.1308127707065233D-02
        xs( 19) = 0.1476210812383322D-02
        xs( 20) = 0.1657954099327596D-02
        xs( 21) = 0.1854326753171644D-02
        xs( 22) = 0.2066427545287160D-02
        xs( 23) = 0.2295503299535575D-02
        xs( 24) = 0.2542970753913752D-02
        xs( 25) = 0.2810442545773313D-02
        xs( 26) = 0.3099758225212565D-02
        xs( 27) = 0.3413021426339990D-02
        xs( 28) = 0.3752644614807328D-02
        xs( 29) = 0.4121403201907523D-02
        xs( 30) = 0.4522501296741880D-02
        xs( 31) = 0.4959651993343491D-02
        xs( 32) = 0.5437175905795091D-02
        xs( 33) = 0.5960122733580889D-02
        xs( 34) = 0.6534422044657728D-02
        xs( 35) = 0.7167071315014196D-02
        xs( 36) = 0.7866371704825284D-02
        xs( 37) = 0.8642225267411699D-02
        xs( 38) = 0.9506511506574151D-02
        xs( 39) = 0.1047356668354662D-01
        xs( 40) = 0.1156079628557103D-01
        xs( 41) = 0.1278945975019102D-01
        xs( 42) = 0.1418567666495180D-01
        xs( 43) = 0.1578171403847518D-01
        xs( 44) = 0.1761762143637585D-01
        xs( 45) = 0.1974327647692941D-01
        xs( 46) = 0.2222086888753303D-01
        xs( 47) = 0.2512774859964311D-01
        xs( 48) = 0.2855931852541266D-01
        xs( 49) = 0.3263114288279093D-01
        xs( 50) = 0.3747852441145484D-01
        xs( 51) = 0.4325051186440319D-01
        xs( 52) = 0.5009437378227890D-01
        xs( 53) = 0.5812810538035352D-01
        xs( 54) = 0.6740516771049994D-01
        xs( 55) = 0.7788610984574448D-01
        xs( 56) = 0.8943593815846324D-01
        xs( 57) = 0.1018533619463546D+00
        xs( 58) = 0.1149166686098171D+00
        xs( 59) = 0.1284232240063969D+00
        xs( 60) = 0.1422103920738741D+00
        xs( 61) = 0.1561595561062040D+00
        xs( 62) = 0.1701906986167119D+00
        xs( 63) = 0.1842539460814994D+00
        xs( 64) = 0.1983215716783115D+00
        xs( 65) = 0.2123817352463292D+00
        xs( 66) = 0.2264336486685916D+00
        xs( 67) = 0.2404864537861329D+00
        xs( 68) = 0.2545535897914459D+00
        xs( 69) = 0.2686382306965069D+00
        xs( 70) = 0.2828333992519077D+00
        xs( 71) = 0.2968898474357359D+00
        ws(  1) = 0.5738449995127273D-05
        ws(  2) = 0.1337319689321812D-04
        ws(  3) = 0.2105599354050981D-04
        ws(  4) = 0.2879859907994757D-04
        ws(  5) = 0.3662365143890674D-04
        ws(  6) = 0.4455624005212397D-04
        ws(  7) = 0.5262377263371419D-04
        ws(  8) = 0.6085628222734528D-04
        ws(  9) = 0.6928678078517013D-04
        ws( 10) = 0.7795162782333606D-04
        ws( 11) = 0.8689092508339081D-04
        ws( 12) = 0.9614895642720249D-04
        ws( 13) = 0.1057746945622829D-03
        ws( 14) = 0.1158223973344160D-03
        ws( 15) = 0.1263523175958105D-03
        ws( 16) = 0.1374315527075044D-03
        ws( 17) = 0.1491350630090717D-03
        ws( 18) = 0.1615468934329747D-03
        ws( 19) = 0.1747616392081325D-03
        ws( 20) = 0.1888862056801006D-03
        ws( 21) = 0.2040419241893364D-03
        ws( 22) = 0.2203671013771909D-03
        ws( 23) = 0.2380200991668317D-03
        ws( 24) = 0.2571830682564471D-03
        ws( 25) = 0.2780664909692571D-03
        ws( 26) = 0.3009147320216190D-03
        ws( 27) = 0.3260128512922059D-03
        ws( 28) = 0.3536950051446239D-03
        ws( 29) = 0.3843548578622207D-03
        ws( 30) = 0.4184585498149325D-03
        ws( 31) = 0.4565609342037673D-03
        ws( 32) = 0.4993260131377408D-03
        ws( 33) = 0.5475527944158528D-03
        ws( 34) = 0.6022081763480974D-03
        ws( 35) = 0.6644689797322165D-03
        ws( 36) = 0.7357759212602839D-03
        ws( 37) = 0.8179032044869004D-03
        ws( 38) = 0.9130485353481094D-03
        ws( 39) = 0.1023949771345068D-02
        ws( 40) = 0.1154036045138321D-02
        ws( 41) = 0.1307622857095178D-02
        ws( 42) = 0.1490161714283304D-02
        ws( 43) = 0.1708553960582333D-02
        ws( 44) = 0.1971532245716292D-02
        ws( 45) = 0.2290094663049699D-02
        ws( 46) = 0.2677931795578120D-02
        ws( 47) = 0.3151689010772940D-02
        ws( 48) = 0.3730711321155676D-02
        ws( 49) = 0.4435577415174744D-02
        ws( 50) = 0.5284277823693575D-02
        ws( 51) = 0.6284707711812829D-02
        ws( 52) = 0.7423306626531760D-02
        ws( 53) = 0.8653593169489155D-02
        ws( 54) = 0.9894019927471189D-02
        ws( 55) = 0.1104483430245134D-01
        ws( 56) = 0.1202044511010034D-01
        ws( 57) = 0.1277676253490246D-01
        ws( 58) = 0.1331573816608469D-01
        ws( 59) = 0.1367022019653020D-01
        ws( 60) = 0.1388445263133991D-01
        ws( 61) = 0.1400068803067997D-01
        ws( 62) = 0.1405342332774292D-01
        ws( 63) = 0.1406855447820922D-01
        ws( 64) = 0.1406475363562977D-01
        ws( 65) = 0.1405549071755581D-01
        ws( 66) = 0.1404968627611690D-01
        ws( 67) = 0.1405854995823388D-01
        ws( 68) = 0.1410578899804956D-01
        ws( 69) = 0.1404149636708900D-01
        ws( 70) = 0.1441934886872786D-01
        ws( 71) = 0.1565063414658428D-01
        endif
        if( idomain .eq.  155 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.1000000000000000D+01
        rk1r = 0.3141592653589793D+02
        rk1i = 0.1570796326794897D+01
        iquadtype =  2
        n =  75
        err = 0.7332352502125290D-13
        xs(  1) = 0.1870178057541091D-05
        xs(  2) = 0.9858407278318987D-05
        xs(  3) = 0.2424851369139000D-04
        xs(  4) = 0.4507609346717178D-04
        xs(  5) = 0.7238925167314068D-04
        xs(  6) = 0.1062520652238755D-03
        xs(  7) = 0.1467460406258067D-03
        xs(  8) = 0.1939716224258123D-03
        xs(  9) = 0.2480498958949470D-03
        xs( 10) = 0.3091244990447382D-03
        xs( 11) = 0.3773637485328797D-03
        xs( 12) = 0.4529629900140894D-03
        xs( 13) = 0.5361471932118659D-03
        xs( 14) = 0.6271738228717397D-03
        xs( 15) = 0.7263360281561918D-03
        xs( 16) = 0.8339662048907099D-03
        xs( 17) = 0.9504399975963022D-03
        xs( 18) = 0.1076180821871981D-02
        xs( 19) = 0.1211665003001072D-02
        xs( 20) = 0.1357427644366812D-02
        xs( 21) = 0.1514069360235279D-02
        xs( 22) = 0.1682264032723829D-02
        xs( 23) = 0.1862767783558052D-02
        xs( 24) = 0.2056429389045189D-02
        xs( 25) = 0.2264202413442213D-02
        xs( 26) = 0.2487159393953078D-02
        xs( 27) = 0.2726508482986218D-02
        xs( 28) = 0.2983613043943776D-02
        xs( 29) = 0.3260014810757861D-02
        xs( 30) = 0.3557461365226979D-02
        xs( 31) = 0.3877938868565723D-02
        xs( 32) = 0.4223711215821501D-02
        xs( 33) = 0.4597367078931355D-02
        xs( 34) = 0.5001876686075086D-02
        xs( 35) = 0.5440660678096920D-02
        xs( 36) = 0.5917674022396582D-02
        xs( 37) = 0.6437508797975703D-02
        xs( 38) = 0.7005520755264835D-02
        xs( 39) = 0.7627985984930497D-02
        xs( 40) = 0.8312295912570475D-02
        xs( 41) = 0.9067201317470247D-02
        xs( 42) = 0.9903119342408997D-02
        xs( 43) = 0.1083252175405637D-01
        xs( 44) = 0.1187042830734581D-01
        xs( 45) = 0.1303503624880184D-01
        xs( 46) = 0.1434852596150965D-01
        xs( 47) = 0.1583809337748132D-01
        xs( 48) = 0.1753727104408113D-01
        xs( 49) = 0.1948760849957108D-01
        xs( 50) = 0.2174078102174640D-01
        xs( 51) = 0.2436116586612891D-01
        xs( 52) = 0.2742882831083986D-01
        xs( 53) = 0.3104261978342437D-01
        xs( 54) = 0.3532257404587119D-01
        xs( 55) = 0.4040982821373659D-01
        xs( 56) = 0.4646089262012875D-01
        xs( 57) = 0.5363198056976473D-01
        xs( 58) = 0.6205048126715812D-01
        xs( 59) = 0.7177746771622248D-01
        xs( 60) = 0.8277639711466286D-01
        xs( 61) = 0.9490838680147819D-01
        xs( 62) = 0.1079616774381131D+00
        xs( 63) = 0.1217000575258231D+00
        xs( 64) = 0.1359057625453962D+00
        xs( 65) = 0.1504030356711716D+00
        xs( 66) = 0.1650634053717873D+00
        xs( 67) = 0.1798004069832560D+00
        xs( 68) = 0.1945606934729908D+00
        xs( 69) = 0.2093155084204567D+00
        xs( 70) = 0.2240540188450278D+00
        xs( 71) = 0.2387783228185209D+00
        xs( 72) = 0.2534966535709728D+00
        xs( 73) = 0.2682496533540415D+00
        xs( 74) = 0.2830650263013676D+00
        xs( 75) = 0.2974902608365378D+00
        ws(  1) = 0.4799999070900648D-05
        ws(  2) = 0.1118381670724118D-04
        ws(  3) = 0.1760207300748300D-04
        ws(  4) = 0.2406107174677002D-04
        ws(  5) = 0.3057590134045502D-04
        ws(  6) = 0.3716328519492036D-04
        ws(  7) = 0.4384137800321603D-04
        ws(  8) = 0.5062993461519851D-04
        ws(  9) = 0.5755051658394205D-04
        ws( 10) = 0.6462670336730858D-04
        ws( 11) = 0.7188431004092150D-04
        ws( 12) = 0.7935162012736793D-04
        ws( 13) = 0.8705964403181699D-04
        ws( 14) = 0.9504241426985264D-04
        ws( 15) = 0.1033373290939214D-03
        ws( 16) = 0.1119855566495729D-03
        ws( 17) = 0.1210325126538352D-03
        ws( 18) = 0.1305284259565046D-03
        ws( 19) = 0.1405290083641817D-03
        ws( 20) = 0.1510962479132196D-03
        ws( 21) = 0.1622993485210313D-03
        ws( 22) = 0.1742158438115274D-03
        ws( 23) = 0.1869329191397786D-03
        ws( 24) = 0.2005489837526675D-03
        ws( 25) = 0.2151755450435458D-03
        ws( 26) = 0.2309394495576179D-03
        ws( 27) = 0.2479855715303593D-03
        ws( 28) = 0.2664800502945211D-03
        ws( 29) = 0.2866142041980161D-03
        ws( 30) = 0.3086092824924802D-03
        ws( 31) = 0.3327222603309698D-03
        ws( 32) = 0.3592529386968510D-03
        ws( 33) = 0.3885526849662765D-03
        ws( 34) = 0.4210352465435461D-03
        ws( 35) = 0.4571901971914065D-03
        ws( 36) = 0.4975997434822621D-03
        ws( 37) = 0.5429598409305908D-03
        ws( 38) = 0.5941068640100281D-03
        ws( 39) = 0.6520514654600684D-03
        ws( 40) = 0.7180217791641999D-03
        ws( 41) = 0.7935188062509968D-03
        ws( 42) = 0.8803877218294966D-03
        ws( 43) = 0.9809099967638764D-03
        ws( 44) = 0.1097922676969219D-02
        ws( 45) = 0.1234972877616499D-02
        ws( 46) = 0.1396517357034478D-02
        ws( 47) = 0.1588178400862701D-02
        ws( 48) = 0.1817066826596040D-02
        ws( 49) = 0.2092177608485458D-02
        ws( 50) = 0.2424846607307263D-02
        ws( 51) = 0.2829213902880688D-02
        ws( 52) = 0.3322542288832834D-02
        ws( 53) = 0.3925040041674771D-02
        ws( 54) = 0.4658475759700121D-02
        ws( 55) = 0.5542369482959848D-02
        ws( 56) = 0.6586276943631128D-02
        ws( 57) = 0.7777793335159384D-02
        ws( 58) = 0.9069966125939254D-02
        ws( 59) = 0.1037801906221947D-01
        ws( 60) = 0.1159615796584694D-01
        ws( 61) = 0.1263165267906395D-01
        ws( 62) = 0.1343481119294012D-01
        ws( 63) = 0.1400526922262497D-01
        ws( 64) = 0.1437678166579258D-01
        ws( 65) = 0.1459645798674680D-01
        ws( 66) = 0.1471002566708248D-01
        ws( 67) = 0.1475523523120723D-01
        ws( 68) = 0.1476068264386079D-01
        ws( 69) = 0.1474704750911326D-01
        ws( 70) = 0.1472976847222316D-01
        ws( 71) = 0.1472390162380939D-01
        ws( 72) = 0.1472751354602532D-01
        ws( 73) = 0.1470308795290365D-01
        ws( 74) = 0.1512718457088569D-01
        ws( 75) = 0.1669405201873760D-01
        endif
        if( idomain .eq.  156 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.1000000000000000D+01
        rk1r = 0.3455751918948772D+02
        rk1i = 0.1570796326794897D+01
        iquadtype =  2
        n =  79
        err = 0.6349271917159821D-13
        xs(  1) = 0.1590222641791303D-05
        xs(  2) = 0.8381913413275883D-05
        xs(  3) = 0.2061350470429749D-04
        xs(  4) = 0.3830994937740738D-04
        xs(  5) = 0.6150430401374675D-04
        xs(  6) = 0.9024049197382765D-04
        xs(  7) = 0.1245743107183239D-03
        xs(  8) = 0.1645744333938232D-03
        xs(  9) = 0.2103235268147675D-03
        xs( 10) = 0.2619194963877340D-03
        xs( 11) = 0.3194768567667487D-03
        xs( 12) = 0.3831282291094791D-03
        xs( 13) = 0.4530259709503168D-03
        xs( 14) = 0.5293439507707152D-03
        xs( 15) = 0.6122794857127971D-03
        xs( 16) = 0.7020554673489542D-03
        xs( 17) = 0.7989227069783605D-03
        xs( 18) = 0.9031625386833552D-03
        xs( 19) = 0.1015089725550697D-02
        xs( 20) = 0.1135055722322372D-02
        xs( 21) = 0.1263452356628060D-02
        xs( 22) = 0.1400716001263787D-02
        xs( 23) = 0.1547332322180061D-02
        xs( 24) = 0.1703841701466006D-02
        xs( 25) = 0.1870845452302983D-02
        xs( 26) = 0.2049012964385785D-02
        xs( 27) = 0.2239089944622204D-02
        xs( 28) = 0.2441907950207360D-02
        xs( 29) = 0.2658395450917934D-02
        xs( 30) = 0.2889590706578080D-02
        xs( 31) = 0.3136656806531206D-02
        xs( 32) = 0.3400899293719842D-02
        xs( 33) = 0.3683786890641867D-02
        xs( 34) = 0.3986975963225091D-02
        xs( 35) = 0.4312339508331484D-02
        xs( 36) = 0.4662001640053347D-02
        xs( 37) = 0.5038378790870206D-02
        xs( 38) = 0.5444229151506030D-02
        xs( 39) = 0.5882712268376698D-02
        xs( 40) = 0.6357461226953627D-02
        xs( 41) = 0.6872670509305148D-02
        xs( 42) = 0.7433203472689495D-02
        xs( 43) = 0.8044724517647470D-02
        xs( 44) = 0.8713862484179559D-02
        xs( 45) = 0.9448413746646954D-02
        xs( 46) = 0.1025759602070146D-01
        xs( 47) = 0.1115236724027081D-01
        xs( 48) = 0.1214582824770990D-01
        xs( 49) = 0.1325373374429945D-01
        xs( 50) = 0.1449514325563604D-01
        xs( 51) = 0.1589325296565393D-01
        xs( 52) = 0.1747646000493235D-01
        xs( 53) = 0.1927972206064129D-01
        xs( 54) = 0.2134628373130505D-01
        xs( 55) = 0.2372983870821496D-01
        xs( 56) = 0.2649716506000157D-01
        xs( 57) = 0.2973117025003762D-01
        xs( 58) = 0.3353403593342108D-01
        xs( 59) = 0.3802962913046171D-01
        xs( 60) = 0.4336338895585643D-01
        xs( 61) = 0.4969651784308143D-01
        xs( 62) = 0.5719021703096411D-01
        xs( 63) = 0.6597702524127323D-01
        xs( 64) = 0.7612294211105523D-01
        xs( 65) = 0.8759511629941893D-01
        xs( 66) = 0.1002554157013163D+00
        xs( 67) = 0.1138883989560631D+00
        xs( 68) = 0.1282498069804955D+00
        xs( 69) = 0.1431112761675550D+00
        xs( 70) = 0.1582862878563653D+00
        xs( 71) = 0.1736372315699819D+00
        xs( 72) = 0.1890709516341941D+00
        xs( 73) = 0.2045300505974506D+00
        xs( 74) = 0.2199841671254952D+00
        xs( 75) = 0.2354218340882456D+00
        xs( 76) = 0.2508475646840690D+00
        xs( 77) = 0.2662939090803867D+00
        xs( 78) = 0.2817333087467218D+00
        xs( 79) = 0.2970705011819506D+00
        ws(  1) = 0.4081380751613288D-05
        ws(  2) = 0.9507773008025986D-05
        ws(  3) = 0.1495935300872760D-04
        ws(  4) = 0.2043902132802320D-04
        ws(  5) = 0.2595699298366010D-04
        ws(  6) = 0.3152466595412985D-04
        ws(  7) = 0.3715439843329399D-04
        ws(  8) = 0.4285960396517396D-04
        ws(  9) = 0.4865487760140621D-04
        ws( 10) = 0.5455612237995334D-04
        ws( 11) = 0.6058067476847220D-04
        ws( 12) = 0.6674743330710676D-04
        ws( 13) = 0.7307699621886440D-04
        ws( 14) = 0.7959181425765103D-04
        ws( 15) = 0.8631636522450771D-04
        ws( 16) = 0.9327735665456619D-04
        ws( 17) = 0.1005039633073706D-03
        ws( 18) = 0.1080281063869907D-03
        ws( 19) = 0.1158847819559370D-03
        ws( 20) = 0.1241124468550012D-03
        ws( 21) = 0.1327534716577662D-03
        ws( 22) = 0.1418546718327038D-03
        ws( 23) = 0.1514679304266805D-03
        ws( 24) = 0.1616509283084711D-03
        ws( 25) = 0.1724680014359648D-03
        ws( 26) = 0.1839911488899364D-03
        ws( 27) = 0.1963012207534031D-03
        ws( 28) = 0.2094893215752054D-03
        ws( 29) = 0.2236584734908887D-03
        ws( 30) = 0.2389255935407674D-03
        ws( 31) = 0.2554238529255727D-03
        ws( 32) = 0.2733055026585791D-03
        ws( 33) = 0.2927452713500247D-03
        ws( 34) = 0.3139444680577033D-03
        ws( 35) = 0.3371359580785340D-03
        ws( 36) = 0.3625902246381974D-03
        ws( 37) = 0.3906227878815613D-03
        ws( 38) = 0.4216033286786470D-03
        ws( 39) = 0.4559669643100522D-03
        ws( 40) = 0.4942282538100614D-03
        ws( 41) = 0.5369986830218011D-03
        ws( 42) = 0.5850086071630673D-03
        ws( 43) = 0.6391349304120585D-03
        ws( 44) = 0.7004362020397116D-03
        ws( 45) = 0.7701973383249320D-03
        ws( 46) = 0.8499868781692266D-03
        ws( 47) = 0.9417305937275556D-03
        ws( 48) = 0.1047806451839251D-02
        ws( 49) = 0.1171167387503799D-02
        ws( 50) = 0.1315500078135541D-02
        ws( 51) = 0.1485429710527367D-02
        ws( 52) = 0.1686782051420230D-02
        ws( 53) = 0.1926913570148485D-02
        ws( 54) = 0.2215114701091671D-02
        ws( 55) = 0.2563073548544508D-02
        ws( 56) = 0.2985342847168411D-02
        ws( 57) = 0.3499653571216242D-02
        ws( 58) = 0.4126716633967661D-02
        ws( 59) = 0.4888795445290330D-02
        ws( 60) = 0.5805844711137224D-02
        ws( 61) = 0.6887763756708527D-02
        ws( 62) = 0.8122392578599811D-02
        ws( 63) = 0.9462819313691310D-02
        ws( 64) = 0.1082367272417501D-01
        ws( 65) = 0.1209714798073814D-01
        ws( 66) = 0.1318666783471621D-01
        ws( 67) = 0.1403780622025522D-01
        ws( 68) = 0.1464652056767490D-01
        ws( 69) = 0.1504523447447975D-01
        ws( 70) = 0.1528194568794494D-01
        ws( 71) = 0.1540457425713553D-01
        ws( 72) = 0.1545343336765346D-01
        ws( 73) = 0.1545974687379183D-01
        ws( 74) = 0.1544709575515572D-01
        ws( 75) = 0.1543462417862914D-01
        ws( 76) = 0.1542595705559871D-01
        ws( 77) = 0.1539660663844052D-01
        ws( 78) = 0.1570703323440204D-01
        ws( 79) = 0.1802677492915470D-01
        endif
        if( idomain .eq.  157 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.1000000000000000D+01
        rk1r = 0.3769911184307752D+02
        rk1i = 0.1570796326794897D+01
        iquadtype =  2
        n =  83
        err = 0.5785179646760671D-13
        xs(  1) = 0.1374322957079355D-05
        xs(  2) = 0.7243387785193612D-05
        xs(  3) = 0.1781115700473271D-04
        xs(  4) = 0.3309537856471604D-04
        xs(  5) = 0.5311902915851649D-04
        xs(  6) = 0.7791261643616445D-04
        xs(  7) = 0.1075149365345570D-03
        xs(  8) = 0.1419737984554679D-03
        xs(  9) = 0.1813468194670768D-03
        xs( 10) = 0.2257022986750896D-03
        xs( 11) = 0.2751201650016717D-03
        xs( 12) = 0.3296929966971498D-03
        xs( 13) = 0.3895271128738440D-03
        xs( 14) = 0.4547437415363657D-03
        xs( 15) = 0.5254802726504780D-03
        xs( 16) = 0.6018916087532740D-03
        xs( 17) = 0.6841516294186234D-03
        xs( 18) = 0.7724547895959648D-03
        xs( 19) = 0.8670178755374858D-03
        xs( 20) = 0.9680819458563660D-03
        xs( 21) = 0.1075914489383039D-02
        xs( 22) = 0.1190811836092743D-02
        xs( 23) = 0.1313101862669858D-02
        xs( 24) = 0.1443147040477099D-02
        xs( 25) = 0.1581347881062678D-02
        xs( 26) = 0.1728146843155472D-02
        xs( 27) = 0.1884032775707822D-02
        xs( 28) = 0.2049545984357939D-02
        xs( 29) = 0.2225284024198866D-02
        xs( 30) = 0.2411908340576295D-02
        xs( 31) = 0.2610151902564779D-02
        xs( 32) = 0.2820828001759023D-02
        xs( 33) = 0.3044840423286463D-02
        xs( 34) = 0.3283195238050221D-02
        xs( 35) = 0.3537014517126230D-02
        xs( 36) = 0.3807552333498595D-02
        xs( 37) = 0.4096213496180568D-02
        xs( 38) = 0.4404575561446231D-02
        xs( 39) = 0.4734414790850346D-02
        xs( 40) = 0.5087736883067870D-02
        xs( 41) = 0.5466813505663919D-02
        xs( 42) = 0.5874225905972768D-02
        xs( 43) = 0.6312917203530262D-02
        xs( 44) = 0.6786255381449400D-02
        xs( 45) = 0.7298109529358144D-02
        xs( 46) = 0.7852942584237951D-02
        xs( 47) = 0.8455924718835396D-02
        xs( 48) = 0.9113072708816373D-02
        xs( 49) = 0.9831422161298346D-02
        xs( 50) = 0.1061924153141781D-01
        xs( 51) = 0.1148629955274698D-01
        xs( 52) = 0.1244420127403435D-01
        xs( 53) = 0.1350681259937805D-01
        xs( 54) = 0.1469079939939345D-01
        xs( 55) = 0.1601631525580851D-01
        xs( 56) = 0.1750788201769416D-01
        xs( 57) = 0.1919551957225477D-01
        xs( 58) = 0.2111619464753687D-01
        xs( 59) = 0.2331566985411003D-01
        xs( 60) = 0.2585083495399226D-01
        xs( 61) = 0.2879257204372166D-01
        xs( 62) = 0.3222909962461290D-01
        xs( 63) = 0.3626946564653224D-01
        xs( 64) = 0.4104625935482993D-01
        xs( 65) = 0.4671550503708725D-01
        xs( 66) = 0.5345012971074845D-01
        xs( 67) = 0.6142224948570879D-01
        xs( 68) = 0.7077125717125921D-01
        xs( 69) = 0.8156242608439841D-01
        xs( 70) = 0.9375295597711625D-01
        xs( 71) = 0.1071874173943668D+00
        xs( 72) = 0.1216303304072374D+00
        xs( 73) = 0.1368193193908276D+00
        xs( 74) = 0.1525124844772320D+00
        xs( 75) = 0.1685148451358534D+00
        xs( 76) = 0.1846846878038338D+00
        xs( 77) = 0.2009280999717390D+00
        xs( 78) = 0.2171895078690413D+00
        xs( 79) = 0.2334413898910038D+00
        xs( 80) = 0.2496783470553159D+00
        xs( 81) = 0.2659295863180119D+00
        xs( 82) = 0.2821583237463257D+00
        xs( 83) = 0.2980198938945026D+00
        ws(  1) = 0.3527202726224139D-05
        ws(  2) = 0.8215565830678681D-05
        ws(  3) = 0.1292274544445680D-04
        ws(  4) = 0.1764950743054972D-04
        ws(  5) = 0.2240286683327696D-04
        ws(  6) = 0.2719076178439762D-04
        ws(  7) = 0.3202183332411796D-04
        ws(  8) = 0.3690547882445371D-04
        ws(  9) = 0.4185193057585898D-04
        ws( 10) = 0.4687233233631834D-04
        ws( 11) = 0.5197881184363252D-04
        ws( 12) = 0.5718455195259934D-04
        ws( 13) = 0.6250386421357980D-04
        ws( 14) = 0.6795226896780471D-04
        ws( 15) = 0.7354658598984307D-04
        ws( 16) = 0.7930503956216236D-04
        ws( 17) = 0.8524738172678383D-04
        ws( 18) = 0.9139503739416830D-04
        ws( 19) = 0.9777127504622622D-04
        ws( 20) = 0.1044014069797504D-03
        ws( 21) = 0.1113130234233363D-03
        ws( 22) = 0.1185362654413487D-03
        ws( 23) = 0.1261041423331038D-03
        ws( 24) = 0.1340529002661474D-03
        ws( 25) = 0.1424224501827367D-03
        ws( 26) = 0.1512568646308569D-03
        ws( 27) = 0.1606049551555958D-03
        ws( 28) = 0.1705209443226022D-03
        ws( 29) = 0.1810652494341706D-03
        ws( 30) = 0.1923053986761396D-03
        ws( 31) = 0.2043171049720890D-03
        ws( 32) = 0.2171855284452227D-03
        ws( 33) = 0.2310067653835853D-03
        ws( 34) = 0.2458896103461902D-03
        ws( 35) = 0.2619576490215555D-03
        ws( 36) = 0.2793517532866210D-03
        ws( 37) = 0.2982330674421086D-03
        ws( 38) = 0.3187865969063255D-03
        ws( 39) = 0.3412255391697575D-03
        ws( 40) = 0.3657965334576210D-03
        ws( 41) = 0.3927860528392323D-03
        ws( 42) = 0.4225282238605377D-03
        ws( 43) = 0.4554144387050765D-03
        ws( 44) = 0.4919052294953145D-03
        ws( 45) = 0.5325450118941460D-03
        ws( 46) = 0.5779804867319667D-03
        ws( 47) = 0.6289837289292366D-03
        ws( 48) = 0.6864813126166716D-03
        ws( 49) = 0.7515912467551298D-03
        ws( 50) = 0.8256700619288553D-03
        ws( 51) = 0.9103731411903558D-03
        ws( 52) = 0.1007732380456021D-02
        ws( 53) = 0.1120256557217680D-02
        ws( 54) = 0.1251061430840018D-02
        ws( 55) = 0.1404038594014120D-02
        ws( 56) = 0.1584074294367616D-02
        ws( 57) = 0.1797331324628231D-02
        ws( 58) = 0.2051607223331448D-02
        ws( 59) = 0.2356776994201663D-02
        ws( 60) = 0.2725310493110351D-02
        ws( 61) = 0.3172806548980264D-02
        ws( 62) = 0.3718373463578114D-02
        ws( 63) = 0.4384449929237857D-02
        ws( 64) = 0.5195238060091432D-02
        ws( 65) = 0.6172359868967919D-02
        ws( 66) = 0.7326115841315213D-02
        ws( 67) = 0.8642088523126871D-02
        ws( 68) = 0.1006743360682045D-01
        ws( 69) = 0.1150787101606096D-01
        ws( 70) = 0.1284669369477462D-01
        ws( 71) = 0.1398202319752520D-01
        ws( 72) = 0.1485924675146657D-01
        ws( 73) = 0.1547798049304476D-01
        ws( 74) = 0.1587577068615634D-01
        ws( 75) = 0.1610544249742121D-01
        ws( 76) = 0.1621874848850397D-01
        ws( 77) = 0.1625892864044089D-01
        ws( 78) = 0.1625986386916765D-01
        ws( 79) = 0.1624492098110250D-01
        ws( 80) = 0.1623233264074693D-01
        ws( 81) = 0.1624501523155343D-01
        ws( 82) = 0.1641217045539439D-01
        ws( 83) = 0.1765914852975951D-01
        endif
        if( idomain .eq.  158 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.1000000000000000D+01
        rk1r = 0.4084070449666731D+02
        rk1i = 0.1570796326794897D+01
        iquadtype =  2
        n =  87
        err = 0.6772628879614932D-13
        xs(  1) = 0.1194933183760718D-05
        xs(  2) = 0.6297615144965251D-05
        xs(  3) = 0.1548422673553169D-04
        xs(  4) = 0.2876807680692536D-04
        xs(  5) = 0.4616600060822581D-04
        xs(  6) = 0.6770028099266974D-04
        xs(  7) = 0.9339920562988071D-04
        xs(  8) = 0.1232975765900733D-03
        xs(  9) = 0.1574372646042053D-03
        xs( 10) = 0.1958678152658208D-03
        xs( 11) = 0.2386471040877690D-03
        xs( 12) = 0.2858420371171766D-03
        xs( 13) = 0.3375292957083365D-03
        xs( 14) = 0.3937961264865722D-03
        xs( 15) = 0.4547411800592243D-03
        xs( 16) = 0.5204754044798849D-03
        xs( 17) = 0.5911230017927987D-03
        xs( 18) = 0.6668224581784311D-03
        xs( 19) = 0.7477276603287737D-03
        xs( 20) = 0.8340091127649101D-03
        xs( 21) = 0.9258552729499105D-03
        xs( 22) = 0.1023474023336760D-02
        xs( 23) = 0.1127094302020833D-02
        xs( 24) = 0.1236967916542465D-02
        xs( 25) = 0.1353371568718554D-02
        xs( 26) = 0.1476609122294857D-02
        xs( 27) = 0.1607014149839930D-02
        xs( 28) = 0.1744952800805127D-02
        xs( 29) = 0.1890827039239770D-02
        xs( 30) = 0.2045078307499716D-02
        xs( 31) = 0.2208191681692040D-02
        xs( 32) = 0.2380700595890859D-02
        xs( 33) = 0.2563192225750125D-02
        xs( 34) = 0.2756313638537701D-02
        xs( 35) = 0.2960778836455792D-02
        xs( 36) = 0.3177376844192022D-02
        xs( 37) = 0.3406981020965189D-02
        xs( 38) = 0.3650559813153227D-02
        xs( 39) = 0.3909189207522763D-02
        xs( 40) = 0.4184067199163745D-02
        xs( 41) = 0.4476530655081015D-02
        xs( 42) = 0.4788075037366640D-02
        xs( 43) = 0.5120377553305053D-02
        xs( 44) = 0.5475324429263448D-02
        xs( 45) = 0.5855043168108939D-02
        xs( 46) = 0.6261940855740452D-02
        xs( 47) = 0.6698749843699574D-02
        xs( 48) = 0.7168582468326362D-02
        xs( 49) = 0.7674996894544736D-02
        xs( 50) = 0.8222076723370580D-02
        xs( 51) = 0.8814527715715016D-02
        xs( 52) = 0.9457795913315832D-02
        xs( 53) = 0.1015821265084761D-01
        xs( 54) = 0.1092317354556377D-01
        xs( 55) = 0.1176136064818615D-01
        xs( 56) = 0.1268301970863616D-01
        xs( 57) = 0.1370030817251034D-01
        xs( 58) = 0.1482773436104422D-01
        xs( 59) = 0.1608271464429689D-01
        xs( 60) = 0.1748628367939223D-01
        xs( 61) = 0.1906400328787678D-01
        xs( 62) = 0.2084712832646597D-01
        xs( 63) = 0.2287410208707736D-01
        xs( 64) = 0.2519246611044907D-01
        xs( 65) = 0.2786127098653346D-01
        xs( 66) = 0.3095404436216847D-01
        xs( 67) = 0.3456226225609446D-01
        xs( 68) = 0.3879898395002927D-01
        xs( 69) = 0.4380168878241830D-01
        xs( 70) = 0.4973221901842488D-01
        xs( 71) = 0.5677014516690839D-01
        xs( 72) = 0.6509471950756589D-01
        xs( 73) = 0.7485226998721230D-01
        xs( 74) = 0.8611348588242169D-01
        xs( 75) = 0.9883744169420898D-01
        xs( 76) = 0.1128652140525745D+00
        xs( 77) = 0.1279524014307562D+00
        xs( 78) = 0.1438244120554287D+00
        xs( 79) = 0.1602268471490702D+00
        xs( 80) = 0.1769542952278897D+00
        xs( 81) = 0.1938578120833138D+00
        xs( 82) = 0.2108396880923781D+00
        xs( 83) = 0.2278435335211239D+00
        xs( 84) = 0.2448457026018357D+00
        xs( 85) = 0.2618383458145765D+00
        xs( 86) = 0.2788452712210587D+00
        xs( 87) = 0.2956328659407580D+00
        ws(  1) = 0.3066764762415958D-05
        ws(  2) = 0.7142439777545688D-05
        ws(  3) = 0.1123284151797699D-04
        ws(  4) = 0.1533764872360182D-04
        ws(  5) = 0.1946190435686241D-04
        ws(  6) = 0.2361136263262606D-04
        ws(  7) = 0.2779227775301950D-04
        ws(  8) = 0.3201143250940961D-04
        ws(  9) = 0.3627619019172604D-04
        ws( 10) = 0.4059454536990116D-04
        ws( 11) = 0.4497517087141130D-04
        ws( 12) = 0.4942746225555624D-04
        ws( 13) = 0.5396158206683096D-04
        ws( 14) = 0.5858850638634032D-04
        ws( 15) = 0.6332007618389438D-04
        ws( 16) = 0.6816905585912619D-04
        ws( 17) = 0.7314920122553829D-04
        ws( 18) = 0.7827533907916346D-04
        ws( 19) = 0.8356346043529329D-04
        ws( 20) = 0.8903082953148532D-04
        ws( 21) = 0.9469611079473366D-04
        ws( 22) = 0.1005795161643006D-03
        ws( 23) = 0.1067029754554536D-03
        ws( 24) = 0.1130903328494618D-03
        ws( 25) = 0.1197675731115131D-03
        ws( 26) = 0.1267630817831334D-03
        ws( 27) = 0.1341079443871771D-03
        ws( 28) = 0.1418362906454115D-03
        ws( 29) = 0.1499856908749529D-03
        ws( 30) = 0.1585976131405319D-03
        ws( 31) = 0.1677179514497265D-03
        ws( 32) = 0.1773976373567283D-03
        ws( 33) = 0.1876933498751036D-03
        ws( 34) = 0.1986683417012179D-03
        ws( 35) = 0.2103934035601187D-03
        ws( 36) = 0.2229479931867816D-03
        ws( 37) = 0.2364215612782436D-03
        ws( 38) = 0.2509151139940643D-03
        ws( 39) = 0.2665430606300261D-03
        ws( 40) = 0.2834354064404847D-03
        ws( 41) = 0.3017403648870622D-03
        ws( 42) = 0.3216274816969259D-03
        ws( 43) = 0.3432913861328404D-03
        ws( 44) = 0.3669563142841121D-03
        ws( 45) = 0.3928815869298397D-03
        ws( 46) = 0.4213682731942129D-03
        ws( 47) = 0.4527673342709615D-03
        ws( 48) = 0.4874896235764995D-03
        ws( 49) = 0.5260182270472401D-03
        ws( 50) = 0.5689237683403901D-03
        ws( 51) = 0.6168834897777846D-03
        ws( 52) = 0.6707051663118201D-03
        ws( 53) = 0.7313572372238731D-03
        ws( 54) = 0.8000069762860681D-03
        ws( 55) = 0.8780691021017497D-03
        ws( 56) = 0.9672680031398641D-03
        ws( 57) = 0.1069717774526510D-02
        ws( 58) = 0.1188025601130309D-02
        ws( 59) = 0.1325425731841177D-02
        ws( 60) = 0.1485953383837305D-02
        ws( 61) = 0.1674670258108298D-02
        ws( 62) = 0.1897955421245183D-02
        ws( 63) = 0.2163875672167831D-02
        ws( 64) = 0.2482644608863264D-02
        ws( 65) = 0.2867161216635589D-02
        ws( 66) = 0.3333568881184908D-02
        ws( 67) = 0.3901658085593472D-02
        ws( 68) = 0.4594690656924046D-02
        ws( 69) = 0.5437790774996448D-02
        ws( 70) = 0.6453488813917756D-02
        ws( 71) = 0.7652790069110441D-02
        ws( 72) = 0.9021500581760451D-02
        ws( 73) = 0.1050604564423327D-01
        ws( 74) = 0.1200970067035270D-01
        ws( 75) = 0.1341113586367714D-01
        ws( 76) = 0.1460267640166064D-01
        ws( 77) = 0.1552505183815826D-01
        ws( 78) = 0.1617609528351661D-01
        ws( 79) = 0.1659443820674127D-01
        ws( 80) = 0.1683573788986697D-01
        ws( 81) = 0.1695519229815315D-01
        ws( 82) = 0.1699945819034630D-01
        ws( 83) = 0.1700475417916640D-01
        ws( 84) = 0.1700203509954379D-01
        ws( 85) = 0.1700469944835606D-01
        ws( 86) = 0.1704417113786913D-01
        ws( 87) = 0.1770850209501073D-01
        endif
        if( idomain .eq.  159 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.1000000000000000D+01
        rk1r = 0.4398229715025710D+02
        rk1i = 0.1570796326794897D+01
        iquadtype =  2
        n =  91
        err = 0.6417205877780052D-13
        xs(  1) = 0.1055591206380246D-05
        xs(  2) = 0.5562970699538169D-05
        xs(  3) = 0.1367670391971222D-04
        xs(  4) = 0.2540660487180344D-04
        xs(  5) = 0.4076471031406187D-04
        xs(  6) = 0.5976694529874536D-04
        xs(  7) = 0.8243357376157132D-04
        xs(  8) = 0.1087895968121329D-03
        xs(  9) = 0.1388651799325642D-03
        xs( 10) = 0.1726961150262964D-03
        xs( 11) = 0.2103243139256196D-03
        xs( 12) = 0.2517983295467499D-03
        xs( 13) = 0.2971739022759669D-03
        xs( 14) = 0.3465145309989606D-03
        xs( 15) = 0.3998920700557546D-03
        xs( 16) = 0.4573873551740832D-03
        xs( 17) = 0.5190908630524211D-03
        xs( 18) = 0.5851034107266944D-03
        xs( 19) = 0.6555369021846785D-03
        xs( 20) = 0.7305151309310294D-03
        xs( 21) = 0.8101746484030977D-03
        xs( 22) = 0.8946657093490012D-03
        xs( 23) = 0.9841533065623890D-03
        xs( 24) = 0.1078818308780389D-02
        xs( 25) = 0.1178858717151424D-02
        xs( 26) = 0.1284491057528315D-02
        xs( 27) = 0.1395951928003537D-02
        xs( 28) = 0.1513499723647198D-02
        xs( 29) = 0.1637416563413502D-02
        xs( 30) = 0.1768010447738894D-02
        xs( 31) = 0.1905617679572188D-02
        xs( 32) = 0.2050605586581342D-02
        xs( 33) = 0.2203375588228856D-02
        xs( 34) = 0.2364366658485216D-02
        xs( 35) = 0.2534059243389464D-02
        xs( 36) = 0.2712979702750330D-02
        xs( 37) = 0.2901705357360512D-02
        xs( 38) = 0.3100870237604413D-02
        xs( 39) = 0.3311171646816640D-02
        xs( 40) = 0.3533377673866885D-02
        xs( 41) = 0.3768335815051151D-02
        xs( 42) = 0.4016982896521366D-02
        xs( 43) = 0.4280356526528249D-02
        xs( 44) = 0.4559608353381404D-02
        xs( 45) = 0.4856019462417628D-02
        xs( 46) = 0.5171018316184534D-02
        xs( 47) = 0.5506201730042461D-02
        xs( 48) = 0.5863359485068024D-02
        xs( 49) = 0.6244503317458787D-02
        xs( 50) = 0.6651901196341514D-02
        xs( 51) = 0.7088118020143348D-02
        xs( 52) = 0.7556064138830522D-02
        xs( 53) = 0.8059053462969493D-02
        xs( 54) = 0.8600873374130303D-02
        xs( 55) = 0.9185869235742094D-02
        xs( 56) = 0.9819047060805865D-02
        xs( 57) = 0.1050619887872660D-01
        xs( 58) = 0.1125405663300429D-01
        xs( 59) = 0.1207048213580755D-01
        xs( 60) = 0.1296470284031407D-01
        xs( 61) = 0.1394760614892871D-01
        xs( 62) = 0.1503210889562026D-01
        xs( 63) = 0.1623362383610862D-01
        xs( 64) = 0.1757065184080541D-01
        xs( 65) = 0.1906553746202688D-01
        xs( 66) = 0.2074543706635880D-01
        xs( 67) = 0.2264356294364277D-01
        xs( 68) = 0.2480078297097259D-01
        xs( 69) = 0.2726767027528532D-01
        xs( 70) = 0.3010710148938547D-01
        xs( 71) = 0.3339747175786832D-01
        xs( 72) = 0.3723647398003997D-01
        xs( 73) = 0.4174506306872165D-01
        xs( 74) = 0.4707049783382500D-01
        xs( 75) = 0.5338602067880296D-01
        xs( 76) = 0.6088291906557243D-01
        xs( 77) = 0.6974957389055123D-01
        xs( 78) = 0.8013453259178240D-01
        xs( 79) = 0.9209997430875647D-01
        xs( 80) = 0.1055857274462328D+00
        xs( 81) = 0.1204081925077496D+00
        xs( 82) = 0.1363003940649112D+00
        xs( 83) = 0.1529722062028838D+00
        xs( 84) = 0.1701614116900393D+00
        xs( 85) = 0.1876606239602096D+00
        xs( 86) = 0.2053224944170030D+00
        xs( 87) = 0.2230525692714047D+00
        xs( 88) = 0.2407977867550537D+00
        xs( 89) = 0.2585412486287058D+00
        xs( 90) = 0.2762527824311930D+00
        xs( 91) = 0.2934022615598705D+00
        ws(  1) = 0.2709115849324014D-05
        ws(  2) = 0.6308857414159399D-05
        ws(  3) = 0.9920103688261536D-05
        ws(  4) = 0.1354169093298413D-04
        ws(  5) = 0.1717716746096431D-04
        ws(  6) = 0.2083067328223520D-04
        ws(  7) = 0.2450674337732742D-04
        ws(  8) = 0.2821032259316600D-04
        ws(  9) = 0.3194680073023944D-04
        ws( 10) = 0.3572204607079940D-04
        ws( 11) = 0.3954243477270040D-04
        ws( 12) = 0.4341487701987989D-04
        ws( 13) = 0.4734684164426601D-04
        ws( 14) = 0.5134638110402639D-04
        ws( 15) = 0.5542215865245368D-04
        ws( 16) = 0.5958347939564101D-04
        ws( 17) = 0.6384032677753243D-04
        ws( 18) = 0.6820340588312541D-04
        ws( 19) = 0.7268419483643935D-04
        ws( 20) = 0.7729500550231846D-04
        ws( 21) = 0.8204905468706046D-04
        ws( 22) = 0.8696054707530466D-04
        ws( 23) = 0.9204477124082266D-04
        ws( 24) = 0.9731821022777743D-04
        ws( 25) = 0.1027986684162875D-03
        ws( 26) = 0.1085054166665046D-03
        ws( 27) = 0.1144593580814913D-03
        ws( 28) = 0.1206832171492024D-03
        ws( 29) = 0.1272017555284832D-03
        ws( 30) = 0.1340420183472486D-03
        ws( 31) = 0.1412336155997465D-03
        ws( 32) = 0.1488090440907488D-03
        ws( 33) = 0.1568040564042178D-03
        ws( 34) = 0.1652580846127765D-03
        ws( 35) = 0.1742147279373827D-03
        ws( 36) = 0.1837223153748010D-03
        ws( 37) = 0.1938345565054069D-03
        ws( 38) = 0.2046112963740419D-03
        ws( 39) = 0.2161193936164227D-03
        ws( 40) = 0.2284337450354353D-03
        ws( 41) = 0.2416384848070566D-03
        ws( 42) = 0.2558283926640404D-03
        ws( 43) = 0.2711105530742056D-03
        ws( 44) = 0.2876063170152612D-03
        ws( 45) = 0.3054536299773136D-03
        ws( 46) = 0.3248098049809307D-03
        ws( 47) = 0.3458548385776308D-03
        ws( 48) = 0.3687953922107499D-03
        ws( 49) = 0.3938695924731971D-03
        ws( 50) = 0.4213528438130888D-03
        ws( 51) = 0.4515648988553639D-03
        ws( 52) = 0.4848784983703621D-03
        ws( 53) = 0.5217299800332782D-03
        ws( 54) = 0.5626323690943288D-03
        ws( 55) = 0.6081916139090528D-03
        ws( 56) = 0.6591268271990621D-03
        ws( 57) = 0.7162956562739305D-03
        ws( 58) = 0.7807262546749187D-03
        ws( 59) = 0.8536577937723124D-03
        ws( 60) = 0.9365920755981619D-03
        ws( 61) = 0.1031359639938370D-02
        ws( 62) = 0.1140204864852492D-02
        ws( 63) = 0.1265896017734413D-02
        ws( 64) = 0.1411868098224775D-02
        ws( 65) = 0.1582408659768399D-02
        ws( 66) = 0.1782899497664266D-02
        ws( 67) = 0.2020129655093938D-02
        ws( 68) = 0.2302696143576435D-02
        ws( 69) = 0.2641504270443004D-02
        ws( 70) = 0.3050360280171803D-02
        ws( 71) = 0.3546593955739874D-02
        ws( 72) = 0.4151513396689899D-02
        ws( 73) = 0.4890202997052287D-02
        ws( 74) = 0.5789658426272645D-02
        ws( 75) = 0.6873607567931743D-02
        ws( 76) = 0.8152213705887371D-02
        ws( 77) = 0.9606680913980117D-02
        ws( 78) = 0.1117426884182100D-01
        ws( 79) = 0.1274662412659014D-01
        ws( 80) = 0.1419355465380178D-01
        ws( 81) = 0.1540579464477639D-01
        ws( 82) = 0.1632936735388673D-01
        ws( 83) = 0.1697011705590110D-01
        ws( 84) = 0.1737366652435013D-01
        ws( 85) = 0.1760031834643140D-01
        ws( 86) = 0.1770793379320267D-01
        ws( 87) = 0.1774422100923780D-01
        ws( 88) = 0.1774316158059438D-01
        ws( 89) = 0.1772960885554212D-01
        ws( 90) = 0.1794686521037805D-01
        ws( 91) = 0.1764452364646436D-01
        endif
        if( idomain .eq.  160 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.1000000000000000D+01
        rk1r = 0.4712388980384689D+02
        rk1i = 0.1570796326794897D+01
        iquadtype =  2
        n =  96
        err = 0.4097423755821861D-13
        xs(  1) = 0.9299370599691620D-06
        xs(  2) = 0.4900634364194406D-05
        xs(  3) = 0.1204771647397290D-04
        xs(  4) = 0.2237883245986959D-04
        xs(  5) = 0.3590310236796757D-04
        xs(  6) = 0.5263253880267862D-04
        xs(  7) = 0.7258238750190702D-04
        xs(  8) = 0.9577141317030422D-04
        xs(  9) = 0.1222222039319127D-03
        xs( 10) = 0.1519615010688036D-03
        xs( 11) = 0.1850205519706396D-03
        xs( 12) = 0.2214354832710546D-03
        xs( 13) = 0.2612476917983868D-03
        xs( 14) = 0.3045042520435678D-03
        xs( 15) = 0.3512583400246336D-03
        xs( 16) = 0.4015696745843052D-03
        xs( 17) = 0.4555049782414805D-03
        xs( 18) = 0.5131384607089708D-03
        xs( 19) = 0.5745523290882483D-03
        xs( 20) = 0.6398373295705655D-03
        xs( 21) = 0.7090933262345589D-03
        xs( 22) = 0.7824299232605019D-03
        xs( 23) = 0.8599671376112484D-03
        xs( 24) = 0.9418361299905736D-03
        xs( 25) = 0.1028180002713677D-02
        xs( 26) = 0.1119154674043186D-02
        xs( 27) = 0.1214929839590821D-02
        xs( 28) = 0.1315690032593093D-02
        xs( 29) = 0.1421635796275459D-02
        xs( 30) = 0.1532984983163090D-02
        xs( 31) = 0.1649974198122801D-02
        xs( 32) = 0.1772860404181313D-02
        xs( 33) = 0.1901922712820652D-02
        xs( 34) = 0.2037464383573951D-02
        xs( 35) = 0.2179815061420840D-02
        xs( 36) = 0.2329333284814220D-02
        xs( 37) = 0.2486409302285312D-02
        xs( 38) = 0.2651468241624687D-02
        xs( 39) = 0.2824973682809576D-02
        xs( 40) = 0.3007431694370375D-02
        xs( 41) = 0.3199395403042514D-02
        xs( 42) = 0.3401470178680122D-02
        xs( 43) = 0.3614319530941054D-02
        xs( 44) = 0.3838671831721089D-02
        xs( 45) = 0.4075327998379097D-02
        xs( 46) = 0.4325170298280292D-02
        xs( 47) = 0.4589172466129157D-02
        xs( 48) = 0.4868411363275213D-02
        xs( 49) = 0.5164080454304316D-02
        xs( 50) = 0.5477505432879105D-02
        xs( 51) = 0.5810162398645762D-02
        xs( 52) = 0.6163699073512525D-02
        xs( 53) = 0.6539959653154409D-02
        xs( 54) = 0.6941014023927148D-02
        xs( 55) = 0.7369192243907544D-02
        xs( 56) = 0.7827125399220040D-02
        xs( 57) = 0.8317794215868429D-02
        xs( 58) = 0.8844587149709100D-02
        xs( 59) = 0.9411370115139124D-02
        xs( 60) = 0.1002257057594144D-01
        xs( 61) = 0.1068327944878711D-01
        xs( 62) = 0.1139937521363279D-01
        xs( 63) = 0.1217767585607198D-01
        xs( 64) = 0.1302612587914551D-01
        xs( 65) = 0.1395402774290674D-01
        xs( 66) = 0.1497232988841665D-01
        xs( 67) = 0.1609398720242772D-01
        xs( 68) = 0.1733441466981107D-01
        xs( 69) = 0.1871206140485886D-01
        xs( 70) = 0.2024914066858577D-01
        xs( 71) = 0.2197256226886028D-01
        xs( 72) = 0.2391512707068022D-01
        xs( 73) = 0.2611705858724662D-01
        xs( 74) = 0.2862796100761630D-01
        xs( 75) = 0.3150929854287022D-01
        xs( 76) = 0.3483746766461474D-01
        xs( 77) = 0.3870743601640142D-01
        xs( 78) = 0.4323665454479738D-01
        xs( 79) = 0.4856834354180078D-01
        xs( 80) = 0.5487209336605573D-01
        xs( 81) = 0.6233797561644726D-01
        xs( 82) = 0.7115883169699812D-01
        xs( 83) = 0.8149666146176199D-01
        xs( 84) = 0.9343689408387915D-01
        xs( 85) = 0.1069481551190035D+00
        xs( 86) = 0.1218724314165915D+00
        xs( 87) = 0.1379566620774593D+00
        xs( 88) = 0.1549100270015427D+00
        xs( 89) = 0.1724582842702921D+00
        xs( 90) = 0.1903766929913177D+00
        xs( 91) = 0.2085004093045883D+00
        xs( 92) = 0.2267205910528414D+00
        xs( 93) = 0.2449740784878076D+00
        xs( 94) = 0.2632369137005701D+00
        xs( 95) = 0.2815285980872463D+00
        xs( 96) = 0.2993358782820381D+00
        ws(  1) = 0.2386615762067214D-05
        ws(  2) = 0.5557520400373816D-05
        ws(  3) = 0.8737794998341643D-05
        ws(  4) = 0.1192594593444553D-04
        ws(  5) = 0.1512459105454008D-04
        ws(  6) = 0.1833681809047825D-04
        ws(  7) = 0.2156600169002513D-04
        ws(  8) = 0.2481580883169749D-04
        ws(  9) = 0.2809022368172681D-04
        ws( 10) = 0.3139357226561149D-04
        ws( 11) = 0.3473054412470041D-04
        ws( 12) = 0.3810621115611332D-04
        ws( 13) = 0.4152604458513003D-04
        ws( 14) = 0.4499593122503260D-04
        ws( 15) = 0.4852219020414191D-04
        ws( 16) = 0.5211159128596793D-04
        ws( 17) = 0.5577137582212450D-04
        ws( 18) = 0.5950928128141051D-04
        ws( 19) = 0.6333357021078018D-04
        ws( 20) = 0.6725306441349223D-04
        ws( 21) = 0.7127718508508753D-04
        ws( 22) = 0.7541599963182965D-04
        ws( 23) = 0.7968027591181096D-04
        ws( 24) = 0.8408154468561448D-04
        ws( 25) = 0.8863217114237362D-04
        ws( 26) = 0.9334543647870193D-04
        ws( 27) = 0.9823563065184991D-04
        ws( 28) = 0.1033181576082535D-03
        ws( 29) = 0.1086096545051628D-03
        ws( 30) = 0.1141281267024179D-03
        ws( 31) = 0.1198931006087494D-03
        ws( 32) = 0.1259257968296120D-03
        ws( 33) = 0.1322493264925281D-03
        ws( 34) = 0.1388889141335368D-03
        ws( 35) = 0.1458721511299543D-03
        ws( 36) = 0.1532292843802963D-03
        ws( 37) = 0.1609935457863435D-03
        ws( 38) = 0.1692015291146869D-03
        ws( 39) = 0.1778936220435289D-03
        ws( 40) = 0.1871145026807090D-03
        ws( 41) = 0.1969137116311360D-03
        ws( 42) = 0.2073463128662691D-03
        ws( 43) = 0.2184736592978664D-03
        ws( 44) = 0.2303642821995218D-03
        ws( 45) = 0.2430949275975145D-03
        ws( 46) = 0.2567517676518903D-03
        ws( 47) = 0.2714318211127723D-03
        ws( 48) = 0.2872446244631560D-03
        ws( 49) = 0.3043142047447376D-03
        ws( 50) = 0.3227814168160794D-03
        ws( 51) = 0.3428067225686355D-03
        ws( 52) = 0.3645735082847449D-03
        ws( 53) = 0.3882920599977328D-03
        ws( 54) = 0.4142043468792628D-03
        ws( 55) = 0.4425898013025078D-03
        ws( 56) = 0.4737723339188996D-03
        ws( 57) = 0.5081288862959601D-03
        ws( 58) = 0.5460999070682140D-03
        ws( 59) = 0.5882022463808713D-03
        ws( 60) = 0.6350451060728057D-03
        ws( 61) = 0.6873498709389252D-03
        ws( 62) = 0.7459748948378075D-03
        ws( 63) = 0.8119466451463215D-03
        ws( 64) = 0.8864990478954776D-03
        ws( 65) = 0.9711234608451644D-03
        ws( 66) = 0.1067632481051818D-02
        ws( 67) = 0.1178241827751052D-02
        ws( 68) = 0.1305675901855542D-02
        ws( 69) = 0.1453304379722396D-02
        ws( 70) = 0.1625319385716438D-02
        ws( 71) = 0.1826965314643167D-02
        ws( 72) = 0.2064835809726338D-02
        ws( 73) = 0.2347253462349171D-02
        ws( 74) = 0.2684744208611846D-02
        ws( 75) = 0.3090602388511722D-02
        ws( 76) = 0.3581496679135767D-02
        ws( 77) = 0.4177955796372826D-02
        ws( 78) = 0.4904332290723581D-02
        ws( 79) = 0.5787395277167300D-02
        ws( 80) = 0.6852065619741319D-02
        ws( 81) = 0.8112404806212071D-02
        ws( 82) = 0.9557113402888404D-02
        ws( 83) = 0.1113352478642887D-01
        ws( 84) = 0.1274190878484452D-01
        ws( 85) = 0.1425370634974010D-01
        ws( 86) = 0.1555163471707406D-01
        ws( 87) = 0.1656740458113061D-01
        ws( 88) = 0.1729307126902789D-01
        ws( 89) = 0.1776583838109706D-01
        ws( 90) = 0.1804359762821739D-01
        ws( 91) = 0.1818590352276818D-01
        ws( 92) = 0.1824406443461828D-01
        ws( 93) = 0.1825861401053816D-01
        ws( 94) = 0.1824505420162672D-01
        ws( 95) = 0.1842126913916204D-01
        ws( 96) = 0.1942711308037122D-01
        endif
        if( idomain .eq.  161 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.1000000000000000D+01
        rk1r = 0.5026548245743669D+02
        rk1i = 0.1570796326794897D+01
        iquadtype =  2
        n =  99
        err = 0.9006707025080958D-13
        xs(  1) = 0.8393040344693105D-06
        xs(  2) = 0.4422854642105602D-05
        xs(  3) = 0.1087244921744914D-04
        xs(  4) = 0.2019388956078528D-04
        xs(  5) = 0.3239380611084513D-04
        xs(  6) = 0.4748093071984515D-04
        xs(  7) = 0.6546639035778304D-04
        xs(  8) = 0.8636394780665303D-04
        xs(  9) = 0.1101902553165026D-03
        xs( 10) = 0.1369651269535149D-03
        xs( 11) = 0.1667118274316483D-03
        xs( 12) = 0.1994573743099750D-03
        xs( 13) = 0.2352328509681167D-03
        xs( 14) = 0.2740737286778251D-03
        xs( 15) = 0.3160201970781340D-03
        xs( 16) = 0.3611175033234640D-03
        xs( 17) = 0.4094163010590688D-03
        xs( 18) = 0.4609730111663605D-03
        xs( 19) = 0.5158501969089935D-03
        xs( 20) = 0.5741169567089966D-03
        xs( 21) = 0.6358493383071577D-03
        xs( 22) = 0.7011307785345012D-03
        xs( 23) = 0.7700525733645729D-03
        xs( 24) = 0.8427143833537195D-03
        xs( 25) = 0.9192247800299456D-03
        xs( 26) = 0.9997018392837198D-03
        xs( 27) = 0.1084273788365142D-02
        xs( 28) = 0.1173079713723923D-02
        xs( 29) = 0.1266270337660212D-02
        xs( 30) = 0.1364008872607179D-02
        xs( 31) = 0.1466471962863008D-02
        xs( 32) = 0.1573850724756449D-02
        xs( 33) = 0.1686351897593764D-02
        xs( 34) = 0.1804199119329185D-02
        xs( 35) = 0.1927634342765128D-02
        xs( 36) = 0.2056919410268689D-02
        xs( 37) = 0.2192337807541588D-02
        xs( 38) = 0.2334196619968358D-02
        xs( 39) = 0.2482828718571825D-02
        xs( 40) = 0.2638595206722303D-02
        xs( 41) = 0.2801888163592902D-02
        xs( 42) = 0.2973133726070259D-02
        xs( 43) = 0.3152795557592201D-02
        xs( 44) = 0.3341378760399787D-02
        xs( 45) = 0.3539434297221109D-02
        xs( 46) = 0.3747563999769416D-02
        xs( 47) = 0.3966426255030646D-02
        xs( 48) = 0.4196742476621119D-02
        xs( 49) = 0.4439304488131152D-02
        xs( 50) = 0.4694982969085619D-02
        xs( 51) = 0.4964737142899992D-02
        xs( 52) = 0.5249625921196574D-02
        xs( 53) = 0.5550820761578925D-02
        xs( 54) = 0.5869620548363547D-02
        xs( 55) = 0.6207468870302903D-02
        xs( 56) = 0.6565974149138239D-02
        xs( 57) = 0.6946933171938542D-02
        xs( 58) = 0.7352358703877765D-02
        xs( 59) = 0.7784512013162991D-02
        xs( 60) = 0.8245941335169527D-02
        xs( 61) = 0.8739527550187727D-02
        xs( 62) = 0.9268538663956157D-02
        xs( 63) = 0.9836695082943561D-02
        xs( 64) = 0.1044824819454483D-01
        xs( 65) = 0.1110807543276680D-01
        xs( 66) = 0.1182179588234812D-01
        xs( 67) = 0.1259591161587536D-01
        xs( 68) = 0.1343798146125385D-01
        xs( 69) = 0.1435683588621063D-01
        xs( 70) = 0.1536284433402064D-01
        xs( 71) = 0.1646824988548950D-01
        xs( 72) = 0.1768759087654592D-01
        xs( 73) = 0.1903823549928684D-01
        xs( 74) = 0.2054106401936235D-01
        xs( 75) = 0.2222134475245345D-01
        xs( 76) = 0.2410986511574691D-01
        xs( 77) = 0.2624439842647836D-01
        xs( 78) = 0.2867161005957160D-01
        xs( 79) = 0.3144952909460558D-01
        xs( 80) = 0.3465072039812916D-01
        xs( 81) = 0.3836625046245052D-01
        xs( 82) = 0.4271035963154813D-01
        xs( 83) = 0.4782525577724769D-01
        xs( 84) = 0.5388436206926109D-01
        xs( 85) = 0.6109048142663429D-01
        xs( 86) = 0.6966306086239109D-01
        xs( 87) = 0.7980804476191726D-01
        xs( 88) = 0.9166910650345327D-01
        xs( 89) = 0.1052736981135081D+00
        xs( 90) = 0.1205028464250688D+00
        xs( 91) = 0.1371087980366874D+00
        xs( 92) = 0.1547745533555949D+00
        xs( 93) = 0.1731828881360998D+00
        xs( 94) = 0.1920652069816082D+00
        xs( 95) = 0.2112217890810650D+00
        xs( 96) = 0.2305213605491071D+00
        xs( 97) = 0.2498913238685633D+00
        xs( 98) = 0.2692687559426864D+00
        xs( 99) = 0.2882803121226889D+00
        ws(  1) = 0.2153994827521006D-05
        ws(  2) = 0.5015479190055594D-05
        ws(  3) = 0.7884565429426836D-05
        ws(  4) = 0.1075941053106149D-04
        ws(  5) = 0.1364187365763169D-04
        ws(  6) = 0.1653422611829177D-04
        ws(  7) = 0.1943898273124540D-04
        ws(  8) = 0.2235890299545688D-04
        ws(  9) = 0.2529700954691591D-04
        ws( 10) = 0.2825660613653620D-04
        ws( 11) = 0.3124129252595254D-04
        ws( 12) = 0.3425497642448097D-04
        ws( 13) = 0.3730188326318639D-04
        ws( 14) = 0.4038656477972148D-04
        ws( 15) = 0.4351390740170683D-04
        ws( 16) = 0.4668914135703667D-04
        ws( 17) = 0.4991785134969076D-04
        ws( 18) = 0.5320598953820026D-04
        ws( 19) = 0.5655989145813967D-04
        ws( 20) = 0.5998629544691579D-04
        ws( 21) = 0.6349236606585561D-04
        ws( 22) = 0.6708572197364282D-04
        ws( 23) = 0.7077446868714860D-04
        ws( 24) = 0.7456723667164465D-04
        ws( 25) = 0.7847322522978860D-04
        ws( 26) = 0.8250225270770455D-04
        ws( 27) = 0.8666481360684799D-04
        ws( 28) = 0.9097214327933562D-04
        ws( 29) = 0.9543629099598576D-04
        ws( 30) = 0.1000702023075253D-03
        ws( 31) = 0.1048878117762235D-03
        ws( 32) = 0.1099041473380411D-03
        ws( 33) = 0.1151354477683069D-03
        ws( 34) = 0.1205992949730502D-03
        ws( 35) = 0.1263147631196637D-03
        ws( 36) = 0.1323025869627238D-03
        ws( 37) = 0.1385853521217762D-03
        ws( 38) = 0.1451877105424409D-03
        ws( 39) = 0.1521366249341909D-03
        ws( 40) = 0.1594616466453557D-03
        ws( 41) = 0.1671952322302114D-03
        ws( 42) = 0.1753731049164023D-03
        ws( 43) = 0.1840346683229576D-03
        ws( 44) = 0.1932234811541460D-03
        ws( 45) = 0.2029878032566955D-03
        ws( 46) = 0.2133812254488416D-03
        ws( 47) = 0.2244633979772621D-03
        ws( 48) = 0.2363008754606953D-03
        ws( 49) = 0.2489680998549181D-03
        ws( 50) = 0.2625485474930037D-03
        ws( 51) = 0.2771360718420112D-03
        ws( 52) = 0.2928364805573977D-03
        ws( 53) = 0.3097693940376721D-03
        ws( 54) = 0.3280704434880323D-03
        ws( 55) = 0.3478938800740093D-03
        ws( 56) = 0.3694156838596492D-03
        ws( 57) = 0.3928372829461072D-03
        ws( 58) = 0.4183900209058762D-03
        ws( 59) = 0.4463405460139850D-03
        ws( 60) = 0.4769973414028491D-03
        ws( 61) = 0.5107186742523743D-03
        ws( 62) = 0.5479223188532598D-03
        ws( 63) = 0.5890975088041225D-03
        ws( 64) = 0.6348197055578875D-03
        ws( 65) = 0.6857689451468675D-03
        ws( 66) = 0.7427527570817153D-03
        ws( 67) = 0.8067349598529052D-03
        ws( 68) = 0.8788720548731760D-03
        ws( 69) = 0.9605595039798966D-03
        ws( 70) = 0.1053490939254150D-02
        ws( 71) = 0.1159734390967221D-02
        ws( 72) = 0.1281831027938796D-02
        ws( 73) = 0.1422923806475163D-02
        ws( 74) = 0.1586925959215663D-02
        ws( 75) = 0.1778742542819633D-02
        ws( 76) = 0.2004562271620548D-02
        ws( 77) = 0.2272241056009200D-02
        ws( 78) = 0.2591801126070777D-02
        ws( 79) = 0.2976064900411671D-02
        ws( 80) = 0.3441416424173990D-02
        ws( 81) = 0.4008600243220728D-02
        ws( 82) = 0.4703257128632784D-02
        ws( 83) = 0.5555455354626002D-02
        ws( 84) = 0.6596752191683236D-02
        ws( 85) = 0.7852555970614281D-02
        ws( 86) = 0.9327769834816655D-02
        ws( 87) = 0.1098712085696068D-01
        ws( 88) = 0.1274015250195730D-01
        ws( 89) = 0.1444889181087276D-01
        ws( 90) = 0.1596702771167028D-01
        ws( 91) = 0.1719081306897021D-01
        ws( 92) = 0.1808699698537289D-01
        ws( 93) = 0.1868459111078454D-01
        ws( 94) = 0.1904677012671613D-01
        ws( 95) = 0.1924475039821234D-01
        ws( 96) = 0.1934188113424880D-01
        ws( 97) = 0.1940301337407374D-01
        ws( 98) = 0.1956679727760990D-01
        ws( 99) = 0.1920314203150101D-01
        endif
        if( idomain .eq.  162 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.1570796326794897D+01
        rk1r = 0.2000000000000000D-01
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  41
        err = 0.8448974026931806D-13
        xs(  1) = 0.2509856879693898D+00
        xs(  2) = 0.5822689591004951D+00
        xs(  3) = 0.9296745217471014D+00
        xs(  4) = 0.1298546656437508D+01
        xs(  5) = 0.1694003815156045D+01
        xs(  6) = 0.2119795499101735D+01
        xs(  7) = 0.2578257136334720D+01
        xs(  8) = 0.3070490840067391D+01
        xs(  9) = 0.3596616697700865D+01
        xs( 10) = 0.4156027767501121D+01
        xs( 11) = 0.4747616440859721D+01
        xs( 12) = 0.5369959454056403D+01
        xs( 13) = 0.6021460194274754D+01
        xs( 14) = 0.6700452847030175D+01
        xs( 15) = 0.7405275238997476D+01
        xs( 16) = 0.8134317417883015D+01
        xs( 17) = 0.8886052183116513D+01
        xs( 18) = 0.9659052626239932D+01
        xs( 19) = 0.1045200060555415D+02
        xs( 20) = 0.1126368910468964D+02
        xs( 21) = 0.1209302064143975D+02
        xs( 22) = 0.1293900326931898D+02
        xs( 23) = 0.1380074524054096D+02
        xs( 24) = 0.1467744920378111D+02
        xs( 25) = 0.1556840627694822D+02
        xs( 26) = 0.1647298973454760D+02
        xs( 27) = 0.1739065206913165D+02
        xs( 28) = 0.1832091506040409D+02
        xs( 29) = 0.1926337950611390D+02
        xs( 30) = 0.2021766717108835D+02
        xs( 31) = 0.2118358886055434D+02
        xs( 32) = 0.2216083627115320D+02
        xs( 33) = 0.2314906564339011D+02
        xs( 34) = 0.2414861071962601D+02
        xs( 35) = 0.2515857245326308D+02
        xs( 36) = 0.2618236713703692D+02
        xs( 37) = 0.2721206994914779D+02
        xs( 38) = 0.2823156182817187D+02
        xs( 39) = 0.2931165388075334D+02
        xs( 40) = 0.3031387333296261D+02
        xs( 41) = 0.3304167027660237D+02
        ws(  1) = 0.3236832160255802D+00
        ws(  2) = 0.3386078682245944D+00
        ws(  3) = 0.3571894139652146D+00
        ws(  4) = 0.3814178150677163D+00
        ws(  5) = 0.4101212534500072D+00
        ws(  6) = 0.4418480438844527D+00
        ws(  7) = 0.4752545807173533D+00
        ws(  8) = 0.5092285194069458D+00
        ws(  9) = 0.5429182390358402D+00
        ws( 10) = 0.5757162144862429D+00
        ws( 11) = 0.6072215620773371D+00
        ws( 12) = 0.6371966435283541D+00
        ws( 13) = 0.6655260042553257D+00
        ws( 14) = 0.6921814775707388D+00
        ws( 15) = 0.7171944841263588D+00
        ws( 16) = 0.7406350572990160D+00
        ws( 17) = 0.7625965209225823D+00
        ws( 18) = 0.7831846400970588D+00
        ws( 19) = 0.8025101795138706D+00
        ws( 20) = 0.8206839768716354D+00
        ws( 21) = 0.8378138553713996D+00
        ws( 22) = 0.8540028735145664D+00
        ws( 23) = 0.8693483317420314D+00
        ws( 24) = 0.8839414317021790D+00
        ws( 25) = 0.8978683297342696D+00
        ws( 26) = 0.9112080883326303D+00
        ws( 27) = 0.9240350768575696D+00
        ws( 28) = 0.9364237346734940D+00
        ws( 29) = 0.9484529037816539D+00
        ws( 30) = 0.9600933891045175D+00
        ws( 31) = 0.9716123572148146D+00
        ws( 32) = 0.9830292914660220D+00
        ws( 33) = 0.9932652565263517D+00
        ws( 34) = 0.1005513731097738D+01
        ws( 35) = 0.1017001498332563D+01
        ws( 36) = 0.1020890311707250D+01
        ws( 37) = 0.1050180462613354D+01
        ws( 38) = 0.1002537989751483D+01
        ws( 39) = 0.1082253510906389D+01
        ws( 40) = 0.1310644400170953D+01
        ws( 41) = 0.4580473506130251D+01
        endif
        if( idomain .eq.  163 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.1570796326794897D+01
        rk1r = 0.4000000000000000D-01
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  43
        err = 0.4694173555143596D-13
        xs(  1) = 0.2499463462327902D+00
        xs(  2) = 0.5798420342681628D+00
        xs(  3) = 0.9257427672775665D+00
        xs(  4) = 0.1292923521289149D+01
        xs(  5) = 0.1686445243512687D+01
        xs(  6) = 0.2110042726156716D+01
        xs(  7) = 0.2566089551945040D+01
        xs(  8) = 0.3055767371471794D+01
        xs(  9) = 0.3579293530373596D+01
        xs( 10) = 0.4136152965721295D+01
        xs( 11) = 0.4725310134445724D+01
        xs( 12) = 0.5345389462683568D+01
        xs( 13) = 0.5994819901640473D+01
        xs( 14) = 0.6671944314490994D+01
        xs( 15) = 0.7375097862264211D+01
        xs( 16) = 0.8102661159752238D+01
        xs( 17) = 0.8853094112465833D+01
        xs( 18) = 0.9624955652270302D+01
        xs( 19) = 0.1041691358968862D+02
        xs( 20) = 0.1122774780650463D+02
        xs( 21) = 0.1205634916147637D+02
        xs( 22) = 0.1290171580829088D+02
        xs( 23) = 0.1376294811917300D+02
        xs( 24) = 0.1463924304252121D+02
        xs( 25) = 0.1552988845696143D+02
        xs( 26) = 0.1643425791148270D+02
        xs( 27) = 0.1735180616789451D+02
        xs( 28) = 0.1828206485616286D+02
        xs( 29) = 0.1922464273186793D+02
        xs( 30) = 0.2017921719837648D+02
        xs( 31) = 0.2114554565394880D+02
        xs( 32) = 0.2212345544855524D+02
        xs( 33) = 0.2311284704882455D+02
        xs( 34) = 0.2411375915182979D+02
        xs( 35) = 0.2512640566551858D+02
        xs( 36) = 0.2615095978015035D+02
        xs( 37) = 0.2718708955270087D+02
        xs( 38) = 0.2823409168564790D+02
        xs( 39) = 0.2929220256400982D+02
        xs( 40) = 0.3037091572072487D+02
        xs( 41) = 0.3149694834532852D+02
        xs( 42) = 0.3270570143751741D+02
        xs( 43) = 0.3390701545901698D+02
        ws(  1) = 0.3223392793920295D+00
        ws(  2) = 0.3371720191624485D+00
        ws(  3) = 0.3556032048788343D+00
        ws(  4) = 0.3796111492073820D+00
        ws(  5) = 0.4080544222426552D+00
        ws(  6) = 0.4395330492085833D+00
        ws(  7) = 0.4727536370934990D+00
        ws(  8) = 0.5066343093903287D+00
        ws(  9) = 0.5403286067345141D+00
        ws( 10) = 0.5732146559949994D+00
        ws( 11) = 0.6048680122855778D+00
        ws( 12) = 0.6350269903166976D+00
        ws( 13) = 0.6635564060322220D+00
        ws( 14) = 0.6904140749675745D+00
        ws( 15) = 0.7156225716203924D+00
        ws( 16) = 0.7392470220413085D+00
        ws( 17) = 0.7613785487756829D+00
        ws( 18) = 0.7821224516386845D+00
        ws( 19) = 0.8015900923818500D+00
        ws( 20) = 0.8198935484736237D+00
        ws( 21) = 0.8371422734061816D+00
        ws( 22) = 0.8534411771269902D+00
        ws( 23) = 0.8688896984832982D+00
        ws( 24) = 0.8835815526500488D+00
        ws( 25) = 0.8976049550547796D+00
        ws( 26) = 0.9110431237233569D+00
        ws( 27) = 0.9239754574249274D+00
        ws( 28) = 0.9364767971118363D+00
        ws( 29) = 0.9486214316362566D+00
        ws( 30) = 0.9604897227181149D+00
        ws( 31) = 0.9721612230628893D+00
        ws( 32) = 0.9836620511893605D+00
        ws( 33) = 0.9950426602029562D+00
        ws( 34) = 0.1006545193535987D+01
        ws( 35) = 0.1018531951197626D+01
        ws( 36) = 0.1031400892995227D+01
        ws( 37) = 0.1044467882681689D+01
        ws( 38) = 0.1055284436798014D+01
        ws( 39) = 0.1056739937071885D+01
        ws( 40) = 0.1047965359775720D+01
        ws( 41) = 0.1084585263750999D+01
        ws( 42) = 0.1460647330828495D+01
        ws( 43) = 0.2226671506627802D+01
        endif
        if( idomain .eq.  164 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.1570796326794897D+01
        rk1r = 0.1000000000000000D+00
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  44
        err = 0.5585288266278791D-13
        xs(  1) = 0.2417792942166302D+00
        xs(  2) = 0.5605146509572448D+00
        xs(  3) = 0.8939650551872441D+00
        xs(  4) = 0.1247128823984612D+01
        xs(  5) = 0.1625074517235024D+01
        xs(  6) = 0.2031781497642462D+01
        xs(  7) = 0.2469997234887007D+01
        xs(  8) = 0.2941311475127525D+01
        xs(  9) = 0.3446320371505600D+01
        xs( 10) = 0.3984824405629199D+01
        xs( 11) = 0.4556027811121238D+01
        xs( 12) = 0.5158720335116153D+01
        xs( 13) = 0.5791430935269381D+01
        xs( 14) = 0.6452549748462899D+01
        xs( 15) = 0.7140419542471887D+01
        xs( 16) = 0.7853400675985546D+01
        xs( 17) = 0.8589914654675098D+01
        xs( 18) = 0.9348471303495876D+01
        xs( 19) = 0.1012768394669371D+02
        xs( 20) = 0.1092627616973877D+02
        xs( 21) = 0.1174308293164526D+02
        xs( 22) = 0.1257704809222526D+02
        xs( 23) = 0.1342721984612130D+02
        xs( 24) = 0.1429274511414136D+02
        xs( 25) = 0.1517286361724134D+02
        xs( 26) = 0.1606690212342912D+02
        xs( 27) = 0.1697426919873842D+02
        xs( 28) = 0.1789445074181728D+02
        xs( 29) = 0.1882700647602920D+02
        xs( 30) = 0.1977156742384144D+02
        xs( 31) = 0.2072783434496752D+02
        xs( 32) = 0.2169558009197592D+02
        xs( 33) = 0.2267464741271146D+02
        xs( 34) = 0.2366495795760796D+02
        xs( 35) = 0.2466654809454491D+02
        xs( 36) = 0.2567959777068954D+02
        xs( 37) = 0.2670419829155794D+02
        xs( 38) = 0.2774034344598449D+02
        xs( 39) = 0.2878794593178860D+02
        xs( 40) = 0.2984889494107749D+02
        xs( 41) = 0.3093112036394060D+02
        xs( 42) = 0.3204768132258913D+02
        xs( 43) = 0.3323547436338817D+02
        xs( 44) = 0.3430738469808238D+02
        ws(  1) = 0.3117018020078829D+00
        ws(  2) = 0.3254327243329860D+00
        ws(  3) = 0.3423926879608392D+00
        ws(  4) = 0.3647902219573196D+00
        ws(  5) = 0.3917659864811574D+00
        ws(  6) = 0.4221044162132618D+00
        ws(  7) = 0.4545891560165278D+00
        ws(  8) = 0.4881353114417034D+00
        ws(  9) = 0.5218458603769367D+00
        ws( 10) = 0.5550265266404208D+00
        ws( 11) = 0.5871760059299524D+00
        ws( 12) = 0.6179618392789263D+00
        ws( 13) = 0.6471895366151240D+00
        ws( 14) = 0.6747708142873639D+00
        ws( 15) = 0.7006947864033327D+00
        ws( 16) = 0.7250039558823753D+00
        ws( 17) = 0.7477753944899314D+00
        ws( 18) = 0.7691066843816169D+00
        ws( 19) = 0.7891058525779001D+00
        ws( 20) = 0.8078844646922179D+00
        ws( 21) = 0.8255531142663092D+00
        ws( 22) = 0.8422186676794927D+00
        ws( 23) = 0.8579827603058636D+00
        ws( 24) = 0.8729411610605919D+00
        ws( 25) = 0.8871837285443045D+00
        ws( 26) = 0.9007947865179429D+00
        ws( 27) = 0.9138537674366728D+00
        ws( 28) = 0.9264358516577196D+00
        ws( 29) = 0.9386138712474983D+00
        ws( 30) = 0.9504576282119872D+00
        ws( 31) = 0.9620416938209387D+00
        ws( 32) = 0.9734348050856887D+00
        ws( 33) = 0.9846814255852432D+00
        ws( 34) = 0.9958782793312928D+00
        ws( 35) = 0.1007195917814388D+01
        ws( 36) = 0.1018907994747214D+01
        ws( 37) = 0.1031152507771110D+01
        ws( 38) = 0.1043337285171951D+01
        ws( 39) = 0.1054624700924400D+01
        ws( 40) = 0.1059471629830004D+01
        ws( 41) = 0.1067300098157925D+01
        ws( 42) = 0.1088285053949641D+01
        ws( 43) = 0.1425002247753190D+01
        ws( 44) = 0.1862147956101651D+01
        endif
        if( idomain .eq.  165 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.1570796326794897D+01
        rk1r = 0.2000000000000000D+00
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  44
        err = 0.9068195760948692D-13
        xs(  1) = 0.2393182553726263D+00
        xs(  2) = 0.5548239575003249D+00
        xs(  3) = 0.8849702818881351D+00
        xs(  4) = 0.1234830026155905D+01
        xs(  5) = 0.1609587883351517D+01
        xs(  6) = 0.2013351695202131D+01
        xs(  7) = 0.2448980078649837D+01
        xs(  8) = 0.2918142716672795D+01
        xs(  9) = 0.3421481804200378D+01
        xs( 10) = 0.3958812456917056D+01
        xs( 11) = 0.4529327236456184D+01
        xs( 12) = 0.5131784713234530D+01
        xs( 13) = 0.5764670554049643D+01
        xs( 14) = 0.6426326153702539D+01
        xs( 15) = 0.7115045131371631D+01
        xs( 16) = 0.7829141509363234D+01
        xs( 17) = 0.8566994951224290D+01
        xs( 18) = 0.9327078553581725D+01
        xs( 19) = 0.1010797402177063D+02
        xs( 20) = 0.1090837811879929D+02
        xs( 21) = 0.1172710334751414D+02
        xs( 22) = 0.1256307503150911D+02
        xs( 23) = 0.1341532633270848D+02
        xs( 24) = 0.1428299227443168D+02
        xs( 25) = 0.1516530349892367D+02
        xs( 26) = 0.1606158025513004D+02
        xs( 27) = 0.1697122692069951D+02
        xs( 28) = 0.1789372746627876D+02
        xs( 29) = 0.1882864169486953D+02
        xs( 30) = 0.1977560253509582D+02
        xs( 31) = 0.2073431458881524D+02
        xs( 32) = 0.2170456368714235D+02
        xs( 33) = 0.2268619380619835D+02
        xs( 34) = 0.2367911531259762D+02
        xs( 35) = 0.2468340961420389D+02
        xs( 36) = 0.2569933350089148D+02
        xs( 37) = 0.2672701054316534D+02
        xs( 38) = 0.2776609193579602D+02
        xs( 39) = 0.2881645546230912D+02
        xs( 40) = 0.2988047245289959D+02
        xs( 41) = 0.3096815641678631D+02
        xs( 42) = 0.3209485949176702D+02
        xs( 43) = 0.3328372482884722D+02
        xs( 44) = 0.3451401936738653D+02
        ws(  1) = 0.3085313195308645D+00
        ws(  2) = 0.3221569945032982D+00
        ws(  3) = 0.3390721984588948D+00
        ws(  4) = 0.3615226727223478D+00
        ws(  5) = 0.3886797933487021D+00
        ws(  6) = 0.4193230100142065D+00
        ws(  7) = 0.4522092064701645D+00
        ws(  8) = 0.4862196839412048D+00
        ws(  9) = 0.5204242227899494D+00
        ws( 10) = 0.5540993399480160D+00
        ws( 11) = 0.5867206179556332D+00
        ws( 12) = 0.6179398044141022D+00
        ws( 13) = 0.6475538446538740D+00
        ws( 14) = 0.6754718349178922D+00
        ws( 15) = 0.7016843835462609D+00
        ws( 16) = 0.7262378647567097D+00
        ws( 17) = 0.7492142913889941D+00
        ws( 18) = 0.7707164303877122D+00
        ws( 19) = 0.7908572935426137D+00
        ws( 20) = 0.8097530365619515D+00
        ws( 21) = 0.8275183936391237D+00
        ws( 22) = 0.8442639359497432D+00
        ws( 23) = 0.8600946088262614D+00
        ws( 24) = 0.8751091501037253D+00
        ws( 25) = 0.8894000987815931D+00
        ws( 26) = 0.9030542160961877D+00
        ws( 27) = 0.9161532402109113D+00
        ws( 28) = 0.9287741707911363D+00
        ws( 29) = 0.9409938017422582D+00
        ws( 30) = 0.9528782848238386D+00
        ws( 31) = 0.9645093234959660D+00
        ws( 32) = 0.9759637059106570D+00
        ws( 33) = 0.9872843013126074D+00
        ws( 34) = 0.9985746426505075D+00
        ws( 35) = 0.1010046934329235D+01
        ws( 36) = 0.1021793236995173D+01
        ws( 37) = 0.1033522788526403D+01
        ws( 38) = 0.1044738231733218D+01
        ws( 39) = 0.1056246332136580D+01
        ws( 40) = 0.1071117030127286D+01
        ws( 41) = 0.1098908007425781D+01
        ws( 42) = 0.1161858597125855D+01
        ws( 43) = 0.1310518448192366D+01
        ws( 44) = 0.1674503965850289D+01
        endif
        if( idomain .eq.  166 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.1570796326794897D+01
        rk1r = 0.4000000000000000D+00
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  45
        err = 0.8319052019674509D-13
        xs(  1) = 0.2269561294592323D+00
        xs(  2) = 0.5253919456497246D+00
        xs(  3) = 0.8361149530311722D+00
        xs(  4) = 0.1163627511625647D+01
        xs(  5) = 0.1513089432804020D+01
        xs(  6) = 0.1889067501750609D+01
        xs(  7) = 0.2295165509275799D+01
        xs(  8) = 0.2733888742861994D+01
        xs(  9) = 0.3206667646218493D+01
        xs( 10) = 0.3713983125029727D+01
        xs( 11) = 0.4255541821083158D+01
        xs( 12) = 0.4830463942857129D+01
        xs( 13) = 0.5437459835012790D+01
        xs( 14) = 0.6074981940517645D+01
        xs( 15) = 0.6741346770331065D+01
        xs( 16) = 0.7434827110705349D+01
        xs( 17) = 0.8153717952892835D+01
        xs( 18) = 0.8896380946514800D+01
        xs( 19) = 0.9661272254094943D+01
        xs( 20) = 0.1044695814157410D+02
        xs( 21) = 0.1125212187868560D+02
        xs( 22) = 0.1207556475397714D+02
        xs( 23) = 0.1291620332538306D+02
        xs( 24) = 0.1377306446187314D+02
        xs( 25) = 0.1464527928707890D+02
        xs( 26) = 0.1553207680053977D+02
        xs( 27) = 0.1643277771274119D+02
        xs( 28) = 0.1734678889496813D+02
        xs( 29) = 0.1827359851458368D+02
        xs( 30) = 0.1921277295012032D+02
        xs( 31) = 0.2016395290266837D+02
        xs( 32) = 0.2112685591213514D+02
        xs( 33) = 0.2210127355686530D+02
        xs( 34) = 0.2308707060584672D+02
        xs( 35) = 0.2408421242690363D+02
        xs( 36) = 0.2509278332218744D+02
        xs( 37) = 0.2611293926517738D+02
        xs( 38) = 0.2714483799449655D+02
        xs( 39) = 0.2818879089191162D+02
        xs( 40) = 0.2924586948092371D+02
        xs( 41) = 0.3031900525006011D+02
        xs( 42) = 0.3141422900558096D+02
        xs( 43) = 0.3253980363243534D+02
        xs( 44) = 0.3369948651491027D+02
        xs( 45) = 0.3488312079802861D+02
        ws(  1) = 0.2923828954563620D+00
        ws(  2) = 0.3040431624858756D+00
        ws(  3) = 0.3182388174581984D+00
        ws(  4) = 0.3376592559111425D+00
        ws(  5) = 0.3620314174813260D+00
        ws(  6) = 0.3905274866951704D+00
        ws(  7) = 0.4220855383009115D+00
        ws(  8) = 0.4555971211557441D+00
        ws(  9) = 0.4900378272440267D+00
        ws( 10) = 0.5245410515024259D+00
        ws( 11) = 0.5584267349842733D+00
        ws( 12) = 0.5912000214096399D+00
        ws( 13) = 0.6225318054322851D+00
        ws( 14) = 0.6522302963692730D+00
        ws( 15) = 0.6802104073850220D+00
        ws( 16) = 0.7064653761897701D+00
        ws( 17) = 0.7310427959404303D+00
        ws( 18) = 0.7540256337207404D+00
        ws( 19) = 0.7755179173976904D+00
        ws( 20) = 0.7956343905981355D+00
        ws( 21) = 0.8144933478535241D+00
        ws( 22) = 0.8322119142708578D+00
        ws( 23) = 0.8489031427776440D+00
        ws( 24) = 0.8646744251112184D+00
        ws( 25) = 0.8796268288924860D+00
        ws( 26) = 0.8938550787913097D+00
        ws( 27) = 0.9074479649864940D+00
        ws( 28) = 0.9204891558347890D+00
        ws( 29) = 0.9330579369441255D+00
        ws( 30) = 0.9452306263948891D+00
        ws( 31) = 0.9570824601944014D+00
        ws( 32) = 0.9686898506037175D+00
        ws( 33) = 0.9801228065447841D+00
        ws( 34) = 0.9914635719790511D+00
        ws( 35) = 0.1002833841451525D+01
        ws( 36) = 0.1014345000452645D+01
        ws( 37) = 0.1026011967434061D+01
        ws( 38) = 0.1037805914412121D+01
        ws( 39) = 0.1049925211573575D+01
        ws( 40) = 0.1063544398930879D+01
        ws( 41) = 0.1081444965471536D+01
        ws( 42) = 0.1111467519037602D+01
        ws( 43) = 0.1171303055042791D+01
        ws( 44) = 0.1272379384705903D+01
        ws( 45) = 0.1419831960674592D+01
        endif
        if( idomain .eq.  167 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.1570796326794897D+01
        rk1r = 0.1000000000000000D+01
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  46
        err = 0.8226877980638670D-13
        xs(  1) = 0.2094120435213160D+00
        xs(  2) = 0.4828006527805870D+00
        xs(  3) = 0.7631438705206485D+00
        xs(  4) = 0.1053036417595096D+01
        xs(  5) = 0.1356821085011138D+01
        xs(  6) = 0.1679532353560597D+01
        xs(  7) = 0.2026340486847730D+01
        xs(  8) = 0.2401978996677399D+01
        xs(  9) = 0.2810270371534578D+01
        xs( 10) = 0.3253857677567101D+01
        xs( 11) = 0.3734155356512466D+01
        xs( 12) = 0.4251464621171419D+01
        xs( 13) = 0.4805181723132359D+01
        xs( 14) = 0.5394038434783989D+01
        xs( 15) = 0.6016332127642991D+01
        xs( 16) = 0.6670120536409225D+01
        xs( 17) = 0.7353371444552374D+01
        xs( 18) = 0.8064068327181271D+01
        xs( 19) = 0.8800278849354108D+01
        xs( 20) = 0.9560194998469816D+01
        xs( 21) = 0.1034215312123495D+02
        xs( 22) = 0.1114464060535046D+02
        xs( 23) = 0.1196629423656923D+02
        xs( 24) = 0.1280589376769410D+02
        xs( 25) = 0.1366235307788722D+02
        xs( 26) = 0.1453471046521157D+02
        xs( 27) = 0.1542211904316085D+02
        xs( 28) = 0.1632383783677590D+02
        xs( 29) = 0.1723922398087468D+02
        xs( 30) = 0.1816772603642024D+02
        xs( 31) = 0.1910887946582715D+02
        xs( 32) = 0.2006230177793140D+02
        xs( 33) = 0.2102769491385578D+02
        xs( 34) = 0.2200483941012155D+02
        xs( 35) = 0.2299359769160577D+02
        xs( 36) = 0.2399394625406287D+02
        xs( 37) = 0.2500597701215294D+02
        xs( 38) = 0.2602983754653269D+02
        xs( 39) = 0.2706570980293000D+02
        xs( 40) = 0.2811410796878823D+02
        xs( 41) = 0.2917658308144416D+02
        xs( 42) = 0.3025670030700066D+02
        xs( 43) = 0.3136022929324846D+02
        xs( 44) = 0.3249369115573908D+02
        xs( 45) = 0.3365769670676178D+02
        xs( 46) = 0.3485251555193621D+02
        ws(  1) = 0.2692519590487463D+00
        ws(  2) = 0.2767120088909594D+00
        ws(  3) = 0.2844798719893023D+00
        ws(  4) = 0.2960391574249937D+00
        ws(  5) = 0.3123783055072325D+00
        ws(  6) = 0.3339158733648442D+00
        ws(  7) = 0.3604974994327882D+00
        ws(  8) = 0.3914210891891215D+00
        ws(  9) = 0.4256028378371290D+00
        ws( 10) = 0.4618054102094233D+00
        ws( 11) = 0.4988365327720793D+00
        ws( 12) = 0.5356772626401923D+00
        ws( 13) = 0.5715416770335802D+00
        ws( 14) = 0.6058847073796848D+00
        ws( 15) = 0.6383764772531654D+00
        ws( 16) = 0.6688598948552056D+00
        ws( 17) = 0.6973047141338412D+00
        ws( 18) = 0.7237663464818036D+00
        ws( 19) = 0.7483530445672850D+00
        ws( 20) = 0.7712018786280966D+00
        ws( 21) = 0.7924623005131164D+00
        ws( 22) = 0.8122855780565293D+00
        ws( 23) = 0.8308184607425323D+00
        ws( 24) = 0.8481997453628122D+00
        ws( 25) = 0.8645587528238179D+00
        ws( 26) = 0.8800150230163800D+00
        ws( 27) = 0.8946787702666107D+00
        ws( 28) = 0.9086517811544987D+00
        ws( 29) = 0.9220286659934925D+00
        ws( 30) = 0.9348982291403068D+00
        ws( 31) = 0.9473444863919754D+00
        ws( 32) = 0.9594507247314773D+00
        ws( 33) = 0.9712987385676242D+00
        ws( 34) = 0.9829656172857391D+00
        ws( 35) = 0.9945497657964436D+00
        ws( 36) = 0.1006181455678879D+01
        ws( 37) = 0.1017940996088083D+01
        ws( 38) = 0.1029794957506292D+01
        ws( 39) = 0.1041755609115247D+01
        ws( 40) = 0.1054344015304014D+01
        ws( 41) = 0.1069504002016379D+01
        ws( 42) = 0.1091473952763844D+01
        ws( 43) = 0.1128799082531481D+01
        ws( 44) = 0.1192137688484679D+01
        ws( 45) = 0.1272318945636659D+01
        ws( 46) = 0.1212415787185032D+01
        endif
        if( idomain .eq.  168 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.1570796326794897D+01
        rk1r = 0.1570796326794897D+01
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  48
        err = 0.8235964022984916D-13
        xs(  1) = 0.2199692248778030D+00
        xs(  2) = 0.5045546876399126D+00
        xs(  3) = 0.7904988029710265D+00
        xs(  4) = 0.1077710230248125D+01
        xs(  5) = 0.1368586784143679D+01
        xs(  6) = 0.1667058694121316D+01
        xs(  7) = 0.1978178937825638D+01
        xs(  8) = 0.2307624582054871D+01
        xs(  9) = 0.2661097071181795D+01
        xs( 10) = 0.3043714856622194D+01
        xs( 11) = 0.3459535439097281D+01
        xs( 12) = 0.3911303256979713D+01
        xs( 13) = 0.4400429045076720D+01
        xs( 14) = 0.4927138343901657D+01
        xs( 15) = 0.5490710250819308D+01
        xs( 16) = 0.6089742101926873D+01
        xs( 17) = 0.6722397120880932D+01
        xs( 18) = 0.7386610953434496D+01
        xs( 19) = 0.8080248165354918D+01
        xs( 20) = 0.8801210608007478D+01
        xs( 21) = 0.9547505610292122D+01
        xs( 22) = 0.1031728391756219D+02
        xs( 23) = 0.1110885664786004D+02
        xs( 24) = 0.1192069872530395D+02
        xs( 25) = 0.1275144424859976D+02
        xs( 26) = 0.1359987752870063D+02
        xs( 27) = 0.1446492222220396D+02
        xs( 28) = 0.1534563007109492D+02
        xs( 29) = 0.1624117015250523D+02
        xs( 30) = 0.1715081915839920D+02
        xs( 31) = 0.1807395302083537D+02
        xs( 32) = 0.1901003999291088D+02
        xs( 33) = 0.1995863549334810D+02
        xs( 34) = 0.2091937852679240D+02
        xs( 35) = 0.2189199068626388D+02
        xs( 36) = 0.2287627655778590D+02
        xs( 37) = 0.2387212665552140D+02
        xs( 38) = 0.2487952654856632D+02
        xs( 39) = 0.2589857338213679D+02
        xs( 40) = 0.2692949718436164D+02
        xs( 41) = 0.2797269788480068D+02
        xs( 42) = 0.2902885085332955D+02
        xs( 43) = 0.3009906656166043D+02
        xs( 44) = 0.3118545684856027D+02
        xs( 45) = 0.3229053251950802D+02
        xs( 46) = 0.3342115370745985D+02
        xs( 47) = 0.3457004733448916D+02
        xs( 48) = 0.3577481510961570D+02
        ws(  1) = 0.2821406730435964D+00
        ws(  2) = 0.2856199444286724D+00
        ws(  3) = 0.2863273020578809D+00
        ws(  4) = 0.2885034019146213D+00
        ws(  5) = 0.2939110810047198D+00
        ws(  6) = 0.3038832248602644D+00
        ws(  7) = 0.3193136735156116D+00
        ws(  8) = 0.3405383466813004D+00
        ws(  9) = 0.3672679258093038D+00
        ws( 10) = 0.3986480963019318D+00
        ws( 11) = 0.4334506460691135D+00
        ws( 12) = 0.4703174371342530D+00
        ws( 13) = 0.5079675956772046D+00
        ws( 14) = 0.5453263393258394D+00
        ws( 15) = 0.5815795137768041D+00
        ws( 16) = 0.6161745972925218D+00
        ws( 17) = 0.6487887798121360D+00
        ws( 18) = 0.6792811941325932D+00
        ws( 19) = 0.7076424263839115D+00
        ws( 20) = 0.7339497372471268D+00
        ws( 21) = 0.7583317934097296D+00
        ws( 22) = 0.7809432964420771D+00
        ws( 23) = 0.8019480707443434D+00
        ws( 24) = 0.8215085889138865D+00
        ws( 25) = 0.8397800274172647D+00
        ws( 26) = 0.8569073319596697D+00
        ws( 27) = 0.8730241924551080D+00
        ws( 28) = 0.8882531809589520D+00
        ws( 29) = 0.9027065714726455D+00
        ws( 30) = 0.9164875440569934D+00
        ws( 31) = 0.9296916267386740D+00
        ws( 32) = 0.9424083453155000D+00
        ws( 33) = 0.9547224691419616D+00
        ws( 34) = 0.9667166998594798D+00
        ws( 35) = 0.9784745090292540D+00
        ws( 36) = 0.9900810232838207D+00
        ws( 37) = 0.1001625413242487D+01
        ws( 38) = 0.1013204151852780D+01
        ws( 39) = 0.1024917066347224D+01
        ws( 40) = 0.1036879310420295D+01
        ws( 41) = 0.1049263049799359D+01
        ws( 42) = 0.1062573318571003D+01
        ws( 43) = 0.1078023048356886D+01
        ws( 44) = 0.1098930992014758D+01
        ws( 45) = 0.1130201745054766D+01
        ws( 46) = 0.1180825521693676D+01
        ws( 47) = 0.1203363383374362D+01
        ws( 48) = 0.1131989752987027D+01
        endif
        if( idomain .eq.  169 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.1570796326794897D+01
        rk1r = 0.3141592653589793D+01
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  53
        err = 0.5733715432195379D-13
        xs(  1) = 0.2318872123044383D+00
        xs(  2) = 0.5300873365507632D+00
        xs(  3) = 0.8252406214085694D+00
        xs(  4) = 0.1114280540713902D+01
        xs(  5) = 0.1396387442333765D+01
        xs(  6) = 0.1672010831678755D+01
        xs(  7) = 0.1942541378947384D+01
        xs(  8) = 0.2210042358789673D+01
        xs(  9) = 0.2477093547504837D+01
        xs( 10) = 0.2746779490062176D+01
        xs( 11) = 0.3022777603231887D+01
        xs( 12) = 0.3309448598788102D+01
        xs( 13) = 0.3611814522871634D+01
        xs( 14) = 0.3935336437612454D+01
        xs( 15) = 0.4285484135453181D+01
        xs( 16) = 0.4667197932735103D+01
        xs( 17) = 0.5084406118151022D+01
        xs( 18) = 0.5539731186795640D+01
        xs( 19) = 0.6034425567762842D+01
        xs( 20) = 0.6568496778996120D+01
        xs( 21) = 0.7140948798444454D+01
        xs( 22) = 0.7750068481891943D+01
        xs( 23) = 0.8393702077640830D+01
        xs( 24) = 0.9069487437105039D+01
        xs( 25) = 0.9775027699088062D+01
        xs( 26) = 0.1050800774362976D+02
        xs( 27) = 0.1126626337040647D+02
        xs( 28) = 0.1204781578504705D+02
        xs( 29) = 0.1285088293115936D+02
        xs( 30) = 0.1367387668140361D+02
        xs( 31) = 0.1451539225029933D+02
        xs( 32) = 0.1537419400279207D+02
        xs( 33) = 0.1624920023736197D+02
        xs( 34) = 0.1713946844493568D+02
        xs( 35) = 0.1804418188672679D+02
        xs( 36) = 0.1896263783606492D+02
        xs( 37) = 0.1989423787003282D+02
        xs( 38) = 0.2083847989050265D+02
        xs( 39) = 0.2179495312184960D+02
        xs( 40) = 0.2276333328867193D+02
        xs( 41) = 0.2374338087443657D+02
        xs( 42) = 0.2473494877539255D+02
        xs( 43) = 0.2573799085339901D+02
        xs( 44) = 0.2675255274215013D+02
        xs( 45) = 0.2777876484266048D+02
        xs( 46) = 0.2881689906376303D+02
        xs( 47) = 0.2986753060156623D+02
        xs( 48) = 0.3093201970736676D+02
        xs( 49) = 0.3201248789547225D+02
        xs( 50) = 0.3311161187405655D+02
        xs( 51) = 0.3424439747262973D+02
        xs( 52) = 0.3533768900264212D+02
        xs( 53) = 0.3668407251319549D+02
        ws(  1) = 0.2969607924826038D+00
        ws(  2) = 0.2975152442523209D+00
        ws(  3) = 0.2923591293581442D+00
        ws(  4) = 0.2855922058698658D+00
        ws(  5) = 0.2787017078570276D+00
        ws(  6) = 0.2727815551869236D+00
        ws(  7) = 0.2686261053426929D+00
        ws(  8) = 0.2668058932413421D+00
        ws(  9) = 0.2678088607027745D+00
        ws( 10) = 0.2721741306315063D+00
        ws( 11) = 0.2805490132519026D+00
        ws( 12) = 0.2936336570395038D+00
        ws( 13) = 0.3120157968248900D+00
        ws( 14) = 0.3359490696125316D+00
        ws( 15) = 0.3651780999494539D+00
        ws( 16) = 0.3989091935216240D+00
        ws( 17) = 0.4359452123865514D+00
        ws( 18) = 0.4749113888970211D+00
        ws( 19) = 0.5144744293343948D+00
        ws( 20) = 0.5534970835087119D+00
        ws( 21) = 0.5911167409281616D+00
        ws( 22) = 0.6267597653540562D+00
        ws( 23) = 0.6601108460437006D+00
        ws( 24) = 0.6910584813229154D+00
        ws( 25) = 0.7196350677311695D+00
        ws( 26) = 0.7459637745125710D+00
        ws( 27) = 0.7702175125647909D+00
        ws( 28) = 0.7925903690672009D+00
        ws( 29) = 0.8132794214117719D+00
        ws( 30) = 0.8324741906207908D+00
        ws( 31) = 0.8503512650785461D+00
        ws( 32) = 0.8670722037039670D+00
        ws( 33) = 0.8827834056957284D+00
        ws( 34) = 0.8976170844765388D+00
        ws( 35) = 0.9116928187202354D+00
        ws( 36) = 0.9251195382699265D+00
        ws( 37) = 0.9379969110783253D+00
        ws( 38) = 0.9504185271859369D+00
        ws( 39) = 0.9624737489884505D+00
        ws( 40) = 0.9742472540989543D+00
        ws( 41) = 0.9858260390825144D+00
        ws( 42) = 0.9973063364029288D+00
        ws( 43) = 0.1008781864449464D+01
        ws( 44) = 0.1020332070134502D+01
        ws( 45) = 0.1032033328099728D+01
        ws( 46) = 0.1044168283885366D+01
        ws( 47) = 0.1057187886721863D+01
        ws( 48) = 0.1073002122360049D+01
        ws( 49) = 0.1091434059279204D+01
        ws( 50) = 0.1122439227951235D+01
        ws( 51) = 0.1152381746056148D+01
        ws( 52) = 0.1116382549216663D+01
        ws( 53) = 0.1471019549099893D+01
        endif
        if( idomain .eq.  170 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.1570796326794897D+01
        rk1r = 0.6283185307179586D+01
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  60
        err = 0.4455283280435447D-13
        xs(  1) = 0.2914417854230453D+00
        xs(  2) = 0.6658496848211257D+00
        xs(  3) = 0.1035248619926483D+01
        xs(  4) = 0.1394439828187698D+01
        xs(  5) = 0.1740486989394625D+01
        xs(  6) = 0.2071731558519850D+01
        xs(  7) = 0.2387738403509400D+01
        xs(  8) = 0.2689201351723664D+01
        xs(  9) = 0.2977699868736467D+01
        xs( 10) = 0.3255336216214690D+01
        xs( 11) = 0.3524352241249311D+01
        xs( 12) = 0.3786833329766442D+01
        xs( 13) = 0.4044556083451873D+01
        xs( 14) = 0.4298971260645795D+01
        xs( 15) = 0.4551278233569814D+01
        xs( 16) = 0.4802547551855071D+01
        xs( 17) = 0.5053865443822839D+01
        xs( 18) = 0.5306490757804940D+01
        xs( 19) = 0.5562022760295774D+01
        xs( 20) = 0.5822576344296815D+01
        xs( 21) = 0.6090951354036126D+01
        xs( 22) = 0.6370763461915941D+01
        xs( 23) = 0.6666475279174247D+01
        xs( 24) = 0.6983249301448924D+01
        xs( 25) = 0.7326579463782887D+01
        xs( 26) = 0.7701753691952275D+01
        xs( 27) = 0.8113292074187878D+01
        xs( 28) = 0.8564515375248773D+01
        xs( 29) = 0.9057328417325500D+01
        xs( 30) = 0.9592222480146583D+01
        xs( 31) = 0.1016845316846047D+02
        xs( 32) = 0.1078432767143321D+02
        xs( 33) = 0.1143752842657407D+02
        xs( 34) = 0.1212541142708439D+02
        xs( 35) = 0.1284524262656764D+02
        xs( 36) = 0.1359436228697907D+02
        xs( 37) = 0.1437028496906693D+02
        xs( 38) = 0.1517075047426179D+02
        xs( 39) = 0.1599374152823486D+02
        xs( 40) = 0.1683748113613940D+02
        xs( 41) = 0.1770041890504556D+02
        xs( 42) = 0.1858121244589828D+02
        xs( 43) = 0.1947870762592895D+02
        xs( 44) = 0.2039191976521206D+02
        xs( 45) = 0.2132001710868371D+02
        xs( 46) = 0.2226230701040271D+02
        xs( 47) = 0.2321822493524545D+02
        xs( 48) = 0.2418732772997958D+02
        xs( 49) = 0.2516929086251133D+02
        xs( 50) = 0.2616390777639655D+02
        xs( 51) = 0.2717109009535935D+02
        xs( 52) = 0.2819089076602717D+02
        xs( 53) = 0.2922353480823874D+02
        xs( 54) = 0.3026959671070109D+02
        xs( 55) = 0.3132966350676076D+02
        xs( 56) = 0.3240624946895152D+02
        xs( 57) = 0.3349650472683812D+02
        xs( 58) = 0.3462082340202130D+02
        xs( 59) = 0.3568205042543086D+02
        xs( 60) = 0.3701133675712429D+02
        ws(  1) = 0.3731389595987471D+00
        ws(  2) = 0.3731305101721406D+00
        ws(  3) = 0.3649002903785404D+00
        ws(  4) = 0.3529984917574746D+00
        ws(  5) = 0.3388193597816725D+00
        ws(  6) = 0.3235986503837243D+00
        ws(  7) = 0.3085348159579884D+00
        ws(  8) = 0.2946606348364699D+00
        ws(  9) = 0.2826934470837426D+00
        ws( 10) = 0.2729579629628115D+00
        ws( 11) = 0.2654241544546518D+00
        ws( 12) = 0.2598342870227782D+00
        ws( 13) = 0.2558516628848791D+00
        ws( 14) = 0.2531764828389495D+00
        ws( 15) = 0.2516134609556258D+00
        ws( 16) = 0.2511035983882635D+00
        ws( 17) = 0.2517391915520667D+00
        ws( 18) = 0.2537750324774599D+00
        ws( 19) = 0.2576385606221039D+00
        ws( 20) = 0.2639329186510998D+00
        ws( 21) = 0.2734189846455784D+00
        ws( 22) = 0.2869513165652281D+00
        ws( 23) = 0.3053389986037661D+00
        ws( 24) = 0.3291340442693751D+00
        ws( 25) = 0.3584173721554503D+00
        ws( 26) = 0.3926918251258812D+00
        ws( 27) = 0.4309420023421874D+00
        ws( 28) = 0.4718219174025579D+00
        ws( 29) = 0.5138829201636901D+00
        ws( 30) = 0.5557761699716423D+00
        ws( 31) = 0.5963975236886018D+00
        ws( 32) = 0.6349601629801122D+00
        ws( 33) = 0.6709967193400563D+00
        ws( 34) = 0.7043108908861749D+00
        ws( 35) = 0.7349065911849324D+00
        ws( 36) = 0.7629176795430079D+00
        ws( 37) = 0.7885507211299982D+00
        ws( 38) = 0.8120441428507479D+00
        ws( 39) = 0.8336420415313321D+00
        ws( 40) = 0.8535790934061803D+00
        ws( 41) = 0.8720730484440065D+00
        ws( 42) = 0.8893219922496139D+00
        ws( 43) = 0.9055045290950234D+00
        ws( 44) = 0.9207813562061624D+00
        ws( 45) = 0.9352980634811210D+00
        ws( 46) = 0.9491877732237016D+00
        ws( 47) = 0.9625744250611498D+00
        ws( 48) = 0.9755777186915828D+00
        ws( 49) = 0.9883147859875318D+00
        ws( 50) = 0.1000901982320568D+01
        ws( 51) = 0.1013458990858430D+01
        ws( 52) = 0.1026141831529072D+01
        ws( 53) = 0.1039168988186514D+01
        ws( 54) = 0.1053057882174473D+01
        ws( 55) = 0.1067611413982880D+01
        ws( 56) = 0.1087392595556059D+01
        ws( 57) = 0.1100200558487082D+01
        ws( 58) = 0.1156295530237726D+01
        ws( 59) = 0.1007884172760960D+01
        ws( 60) = 0.1753668811007826D+01
        endif
        if( idomain .eq.  171 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.1570796326794897D+01
        rk1r = 0.9424777960769379D+01
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  63
        err = 0.8162915073672599D-13
        xs(  1) = 0.3815880729332185D+00
        xs(  2) = 0.8736461379452561D+00
        xs(  3) = 0.1363283573512130D+01
        xs(  4) = 0.1845330825483516D+01
        xs(  5) = 0.2316652636863641D+01
        xs(  6) = 0.2774630912885673D+01
        xs(  7) = 0.3217010154794358D+01
        xs(  8) = 0.3641902224981506D+01
        xs(  9) = 0.4047835332934171D+01
        xs( 10) = 0.4433830195209452D+01
        xs( 11) = 0.4799495824636422D+01
        xs( 12) = 0.5145126427030290D+01
        xs( 13) = 0.5471761877507270D+01
        xs( 14) = 0.5781160569225158D+01
        xs( 15) = 0.6075645540309142D+01
        xs( 16) = 0.6357834495142642D+01
        xs( 17) = 0.6630328977954153D+01
        xs( 18) = 0.6895465992164713D+01
        xs( 19) = 0.7155199834873330D+01
        xs( 20) = 0.7411115158022962D+01
        xs( 21) = 0.7664527572445601D+01
        xs( 22) = 0.7916624889129355D+01
        xs( 23) = 0.8168621832862124D+01
        xs( 24) = 0.8421919041354696D+01
        xs( 25) = 0.8678264642817233D+01
        xs( 26) = 0.8939917478057778D+01
        xs( 27) = 0.9209805630445612D+01
        xs( 28) = 0.9491653512682882D+01
        xs( 29) = 0.9790014878998354D+01
        xs( 30) = 0.1011012943273037D+02
        xs( 31) = 0.1045756114256168D+02
        xs( 32) = 0.1083767283420948D+02
        xs( 33) = 0.1125507512515296D+02
        xs( 34) = 0.1171319326686153D+02
        xs( 35) = 0.1221403326225994D+02
        xs( 36) = 0.1275815941123795D+02
        xs( 37) = 0.1334485190766174D+02
        xs( 38) = 0.1397238696438740D+02
        xs( 39) = 0.1463836751579004D+02
        xs( 40) = 0.1534003747768279D+02
        xs( 41) = 0.1607453602492619D+02
        xs( 42) = 0.1683907683789510D+02
        xs( 43) = 0.1763105820826974D+02
        xs( 44) = 0.1844811964192293D+02
        xs( 45) = 0.1928816194666097D+02
        xs( 46) = 0.2014934497504701D+02
        xs( 47) = 0.2103007331136195D+02
        xs( 48) = 0.2192897665179906D+02
        xs( 49) = 0.2284488906861108D+02
        xs( 50) = 0.2377682963728151D+02
        xs( 51) = 0.2472398552660480D+02
        xs( 52) = 0.2568569839168515D+02
        xs( 53) = 0.2666145639545828D+02
        xs( 54) = 0.2765088806190240D+02
        xs( 55) = 0.2865376720323114D+02
        xs( 56) = 0.2967000186811408D+02
        xs( 57) = 0.3069964669987949D+02
        xs( 58) = 0.3174306819134206D+02
        xs( 59) = 0.3280070932317947D+02
        xs( 60) = 0.3387281483451655D+02
        xs( 61) = 0.3496203406464172D+02
        xs( 62) = 0.3606651079667501D+02
        xs( 63) = 0.3720282512097222D+02
        ws(  1) = 0.4890460865881258D+00
        ws(  2) = 0.4921187051240308D+00
        ws(  3) = 0.4864299041036678D+00
        ws(  4) = 0.4771535528390144D+00
        ws(  5) = 0.4650552270937044D+00
        ws(  6) = 0.4505251793770119D+00
        ws(  7) = 0.4339177767429912D+00
        ws(  8) = 0.4156197843551870D+00
        ws(  9) = 0.3960815806063768D+00
        ws( 10) = 0.3758412738303563D+00
        ws( 11) = 0.3555378788931207D+00
        ws( 12) = 0.3358969799790744D+00
        ws( 13) = 0.3176695672710829D+00
        ws( 14) = 0.3015196845803587D+00
        ws( 15) = 0.2878919990733021D+00
        ws( 16) = 0.2769238164592273D+00
        ws( 17) = 0.2684566092929469D+00
        ws( 18) = 0.2621427938728978D+00
        ws( 19) = 0.2575872024826172D+00
        ws( 20) = 0.2544602958892660D+00
        ws( 21) = 0.2525599062750843D+00
        ws( 22) = 0.2518345294498876D+00
        ws( 23) = 0.2523901038180064D+00
        ws( 24) = 0.2544929387036119D+00
        ws( 25) = 0.2585720410660350D+00
        ws( 26) = 0.2652193714893483D+00
        ws( 27) = 0.2751768944030920D+00
        ws( 28) = 0.2892800906705528D+00
        ws( 29) = 0.3083220891086175D+00
        ws( 30) = 0.3328434703152959D+00
        ws( 31) = 0.3629233114890755D+00
        ws( 32) = 0.3980759203227158D+00
        ws( 33) = 0.4373034495035773D+00
        ws( 34) = 0.4792674615250207D+00
        ws( 35) = 0.5225038125810758D+00
        ws( 36) = 0.5656236688237583D+00
        ws( 37) = 0.6074683463038213D+00
        ws( 38) = 0.6471969131381888D+00
        ws( 39) = 0.6843005723296701D+00
        ws( 40) = 0.7185595787787833D+00
        ws( 41) = 0.7499713346254813D+00
        ws( 42) = 0.7786757717407125D+00
        ws( 43) = 0.8048932527409089D+00
        ws( 44) = 0.8288798112710228D+00
        ws( 45) = 0.8508983602746895D+00
        ws( 46) = 0.8712021308930209D+00
        ws( 47) = 0.8900265059894198D+00
        ws( 48) = 0.9075861643960877D+00
        ws( 49) = 0.9240755279692698D+00
        ws( 50) = 0.9396705834807808D+00
        ws( 51) = 0.9545320042588324D+00
        ws( 52) = 0.9688082509528785D+00
        ws( 53) = 0.9826428958943655D+00
        ws( 54) = 0.9961694172998716D+00
        ws( 55) = 0.1009543972854163D+01
        ws( 56) = 0.1022892022911620D+01
        ws( 57) = 0.1036519248924144D+01
        ws( 58) = 0.1050671025568614D+01
        ws( 59) = 0.1067562402859192D+01
        ws( 60) = 0.1076612498676828D+01
        ws( 61) = 0.1141722935612112D+01
        ws( 62) = 0.9678951423080269D+00
        ws( 63) = 0.1621089167544313D+01
        endif
        if( idomain .eq.  172 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.1570796326794897D+01
        rk1r = 0.1256637061435917D+02
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  66
        err = 0.6302252329052378D-13
        xs(  1) = 0.4402197092981854D+00
        xs(  2) = 0.1008887619737343D+01
        xs(  3) = 0.1577121466795225D+01
        xs(  4) = 0.2140194982477889D+01
        xs(  5) = 0.2695585905164015D+01
        xs(  6) = 0.3241181778615171D+01
        xs(  7) = 0.3775057192395667D+01
        xs(  8) = 0.4295428041204188D+01
        xs(  9) = 0.4800642617426569D+01
        xs( 10) = 0.5289185593403707D+01
        xs( 11) = 0.5759691507895938D+01
        xs( 12) = 0.6210969629297391D+01
        xs( 13) = 0.6642043576179267D+01
        xs( 14) = 0.7052208756490529D+01
        xs( 15) = 0.7441108233748329D+01
        xs( 16) = 0.7808821952951373D+01
        xs( 17) = 0.8155954545592781D+01
        xs( 18) = 0.8483694622492859D+01
        xs( 19) = 0.8793809806668261D+01
        xs( 20) = 0.9088547728366704D+01
        xs( 21) = 0.9370441854266311D+01
        xs( 22) = 0.9642064147620840D+01
        xs( 23) = 0.9905796756464101D+01
        xs( 24) = 0.1016368731784792D+02
        xs( 25) = 0.1041741231782223D+02
        xs( 26) = 0.1066833163797316D+02
        xs( 27) = 0.1091759976493675D+02
        xs( 28) = 0.1116630493504307D+02
        xs( 29) = 0.1141562247887669D+02
        xs( 30) = 0.1166698062048507D+02
        xs( 31) = 0.1192223983042899D+02
        xs( 32) = 0.1218387935323574D+02
        xs( 33) = 0.1245516826019807D+02
        xs( 34) = 0.1274027279271311D+02
        xs( 35) = 0.1304422394815396D+02
        xs( 36) = 0.1337267118079021D+02
        xs( 37) = 0.1373141401315195D+02
        xs( 38) = 0.1412581190847228D+02
        xs( 39) = 0.1456023901117226D+02
        xs( 40) = 0.1503771574033565D+02
        xs( 41) = 0.1555976045561150D+02
        xs( 42) = 0.1612644324554812D+02
        xs( 43) = 0.1673659980017950D+02
        xs( 44) = 0.1738814552536081D+02
        xs( 45) = 0.1807841816884832D+02
        xs( 46) = 0.1880448649166682D+02
        xs( 47) = 0.1956338936291160D+02
        xs( 48) = 0.2035229759646545D+02
        xs( 49) = 0.2116860883523011D+02
        xs( 50) = 0.2200999269494246D+02
        xs( 51) = 0.2287440307806429D+02
        xs( 52) = 0.2376007119954805D+02
        xs( 53) = 0.2466548866188989D+02
        xs( 54) = 0.2558938715908952D+02
        xs( 55) = 0.2653071843182576D+02
        xs( 56) = 0.2748863583797642D+02
        xs( 57) = 0.2846247735775257D+02
        xs( 58) = 0.2945174995427505D+02
        xs( 59) = 0.3045613115443794D+02
        xs( 60) = 0.3147546299832430D+02
        xs( 61) = 0.3250935636469998D+02
        xs( 62) = 0.3356009766648184D+02
        xs( 63) = 0.3460794675860994D+02
        xs( 64) = 0.3572239704280947D+02
        xs( 65) = 0.3657250319593258D+02
        xs( 66) = 0.3819526872745495D+02
        ws(  1) = 0.5644531867257310D+00
        ws(  2) = 0.5697012086976876D+00
        ws(  3) = 0.5661356630539489D+00
        ws(  4) = 0.5596049804161572D+00
        ws(  5) = 0.5508272511636505D+00
        ws(  6) = 0.5400441645206578D+00
        ws(  7) = 0.5274094228612792D+00
        ws(  8) = 0.5130569195609196D+00
        ws(  9) = 0.4971194590408239D+00
        ws( 10) = 0.4797385103088841D+00
        ws( 11) = 0.4610742111450752D+00
        ws( 12) = 0.4413183468307833D+00
        ws( 13) = 0.4207108401712927D+00
        ws( 14) = 0.3995585101510754D+00
        ws( 15) = 0.3782522396218443D+00
        ws( 16) = 0.3572748914929151D+00
        ws( 17) = 0.3371883971772940D+00
        ws( 18) = 0.3185880002611166D+00
        ws( 19) = 0.3020203144255910D+00
        ws( 20) = 0.2878820854315328D+00
        ws( 21) = 0.2763388012627802D+00
        ws( 22) = 0.2673052795513128D+00
        ws( 23) = 0.2605017697251579D+00
        ws( 24) = 0.2555577657364201D+00
        ws( 25) = 0.2521169560247072D+00
        ws( 26) = 0.2499117486080413D+00
        ws( 27) = 0.2488033220785859D+00
        ws( 28) = 0.2488001503283299D+00
        ws( 29) = 0.2500699733389391D+00
        ws( 30) = 0.2529532294826809D+00
        ws( 31) = 0.2579754355468336D+00
        ws( 32) = 0.2658464743600823D+00
        ws( 33) = 0.2774260466692134D+00
        ws( 34) = 0.2936255799369650D+00
        ws( 35) = 0.3152263705433279D+00
        ws( 36) = 0.3426449648211501D+00
        ws( 37) = 0.3757433706569902D+00
        ws( 38) = 0.4137876674357296D+00
        ws( 39) = 0.4555723525887272D+00
        ws( 40) = 0.4996331709639587D+00
        ws( 41) = 0.5444642327850141D+00
        ws( 42) = 0.5887018787353787D+00
        ws( 43) = 0.6312579310117648D+00
        ws( 44) = 0.6713845815717914D+00
        ws( 45) = 0.7086681672428410D+00
        ws( 46) = 0.7429722883865134D+00
        ws( 47) = 0.7743603854676758D+00
        ws( 48) = 0.8030216445515675D+00
        ws( 49) = 0.8292122637527929D+00
        ws( 50) = 0.8532145786869157D+00
        ws( 51) = 0.8753116843584848D+00
        ws( 52) = 0.8957735089915707D+00
        ws( 53) = 0.9148503701224355D+00
        ws( 54) = 0.9327722084765240D+00
        ws( 55) = 0.9497494790101060D+00
        ws( 56) = 0.9659743659346897D+00
        ws( 57) = 0.9816262211117239D+00
        ws( 58) = 0.9968645816466849D+00
        ws( 59) = 0.1011837909145369D+01
        ws( 60) = 0.1027010446460021D+01
        ws( 61) = 0.1040160878060501D+01
        ws( 62) = 0.1063396935498683D+01
        ws( 63) = 0.1033039772648483D+01
        ws( 64) = 0.1152047597620749D+01
        ws( 65) = 0.8407575350815811D+00
        ws( 66) = 0.2369621301673991D+01
        endif
        if( idomain .eq.  173 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.1570796326794897D+01
        rk1r = 0.1570796326794897D+02
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  69
        err = 0.7488569549334259D-13
        xs(  1) = 0.4799098054847326D+00
        xs(  2) = 0.1100391890194058D+01
        xs(  3) = 0.1721689627251324D+01
        xs(  4) = 0.2339364485970067D+01
        xs(  5) = 0.2951351175505492D+01
        xs(  6) = 0.3555993934819939D+01
        xs(  7) = 0.4151796785719110D+01
        xs(  8) = 0.4737366600401404D+01
        xs(  9) = 0.5311394348491187D+01
        xs( 10) = 0.5872646020475565D+01
        xs( 11) = 0.6419956637188643D+01
        xs( 12) = 0.6952226148559745D+01
        xs( 13) = 0.7468417749976386D+01
        xs( 14) = 0.7967559888273317D+01
        xs( 15) = 0.8448753705199161D+01
        xs( 16) = 0.8911188076769379D+01
        xs( 17) = 0.9354164747010557D+01
        xs( 18) = 0.9777136141596696D+01
        xs( 19) = 0.1017975785884521D+02
        xs( 20) = 0.1056195583871157D+02
        xs( 21) = 0.1092400382775990D+02
        xs( 22) = 0.1126659929363910D+02
        xs( 23) = 0.1159091633576100D+02
        xs( 24) = 0.1189860689073170D+02
        xs( 25) = 0.1219172501556841D+02
        xs( 26) = 0.1247257035638531D+02
        xs( 27) = 0.1274348161904408D+02
        xs( 28) = 0.1300663880920850D+02
        xs( 29) = 0.1326393269490423D+02
        xs( 30) = 0.1351693022448889D+02
        xs( 31) = 0.1376692670081416D+02
        xs( 32) = 0.1401505258340696D+02
        xs( 33) = 0.1426240277996666D+02
        xs( 34) = 0.1451017148695644D+02
        xs( 35) = 0.1475979260072044D+02
        xs( 36) = 0.1501309545739836D+02
        xs( 37) = 0.1527248436841876D+02
        xs( 38) = 0.1554113280937824D+02
        xs( 39) = 0.1582314672610242D+02
        xs( 40) = 0.1612361088551561D+02
        xs( 41) = 0.1644841924199922D+02
        xs( 42) = 0.1680383522531333D+02
        xs( 43) = 0.1719583497203947D+02
        xs( 44) = 0.1762940620384874D+02
        xs( 45) = 0.1810801555647254D+02
        xs( 46) = 0.1863337749755597D+02
        xs( 47) = 0.1920552819253863D+02
        xs( 48) = 0.1982311823188545D+02
        xs( 49) = 0.2048381092395962D+02
        xs( 50) = 0.2118468627719388D+02
        xs( 51) = 0.2192258414767104D+02
        xs( 52) = 0.2269435771927395D+02
        xs( 53) = 0.2349703797192792D+02
        xs( 54) = 0.2432792576613767D+02
        xs( 55) = 0.2518463270777603D+02
        xs( 56) = 0.2606508977177963D+02
        xs( 57) = 0.2696753819166237D+02
        xs( 58) = 0.2789051346214527D+02
        xs( 59) = 0.2883282841122527D+02
        xs( 60) = 0.2979355823091278D+02
        xs( 61) = 0.3077203416451826D+02
        xs( 62) = 0.3176786278330882D+02
        xs( 63) = 0.3278092959378561D+02
        xs( 64) = 0.3381155941892612D+02
        xs( 65) = 0.3486127375131781D+02
        xs( 66) = 0.3592693082674874D+02
        xs( 67) = 0.3703316959951984D+02
        xs( 68) = 0.3812038152661287D+02
        xs( 69) = 0.3934316326121635D+02
        ws(  1) = 0.6154866916032234D+00
        ws(  2) = 0.6221319514651402D+00
        ws(  3) = 0.6198949406875488D+00
        ws(  4) = 0.6151259418229686D+00
        ws(  5) = 0.6085742736965660D+00
        ws(  6) = 0.6004626506320857D+00
        ws(  7) = 0.5909111288463055D+00
        ws(  8) = 0.5800104685085515D+00
        ws(  9) = 0.5678394574489026D+00
        ws( 10) = 0.5544697932334482D+00
        ws( 11) = 0.5399681296827251D+00
        ws( 12) = 0.5243980630327352D+00
        ws( 13) = 0.5078230953705737D+00
        ws( 14) = 0.4903111268911897D+00
        ws( 15) = 0.4719409071338906D+00
        ws( 16) = 0.4528108350752469D+00
        ws( 17) = 0.4330503691254082D+00
        ws( 18) = 0.4128338911770684D+00
        ws( 19) = 0.3923958818115832D+00
        ws( 20) = 0.3720443854545831D+00
        ws( 21) = 0.3521668828319438D+00
        ws( 22) = 0.3332196440527467D+00
        ws( 23) = 0.3156910088505201D+00
        ws( 24) = 0.3000351285520031D+00
        ws( 25) = 0.2865879906169828D+00
        ws( 26) = 0.2754959242086630D+00
        ws( 27) = 0.2666921827180457D+00
        ws( 28) = 0.2599378727028841D+00
        ws( 29) = 0.2549101003415015D+00
        ws( 30) = 0.2512989796090595D+00
        ws( 31) = 0.2488801875492614D+00
        ws( 32) = 0.2475518184049930D+00
        ws( 33) = 0.2473452945378377D+00
        ws( 34) = 0.2484285330805774D+00
        ws( 35) = 0.2511155787741553D+00
        ws( 36) = 0.2558875114707401D+00
        ws( 37) = 0.2634162853797886D+00
        ws( 38) = 0.2745638878797684D+00
        ws( 39) = 0.2903140762964870D+00
        ws( 40) = 0.3116040130279329D+00
        ws( 41) = 0.3390679978916499D+00
        ws( 42) = 0.3727722424373297D+00
        ws( 43) = 0.4120677539065672D+00
        ws( 44) = 0.4556563181146012D+00
        ws( 45) = 0.5018466679933196D+00
        ws( 46) = 0.5488780780756959D+00
        ws( 47) = 0.5951915266018269D+00
        ws( 48) = 0.6395922104055196D+00
        ws( 49) = 0.6813007246462359D+00
        ws( 50) = 0.7199190741233279D+00
        ws( 51) = 0.7553495001160097D+00
        ws( 52) = 0.7877013257119631D+00
        ws( 53) = 0.8172086872988361D+00
        ws( 54) = 0.8441687260480299D+00
        ws( 55) = 0.8689005000223746D+00
        ws( 56) = 0.8917207230510056D+00
        ws( 57) = 0.9129323911901096D+00
        ws( 58) = 0.9328204923646819D+00
        ws( 59) = 0.9516544482703515D+00
        ws( 60) = 0.9696932535077329D+00
        ws( 61) = 0.9871977385629799D+00
        ws( 62) = 0.1004411163596723D+01
        ws( 63) = 0.1022079425675591D+01
        ws( 64) = 0.1038256896200392D+01
        ws( 65) = 0.1065506802995129D+01
        ws( 66) = 0.1060305594191609D+01
        ws( 67) = 0.1162687179081322D+01
        ws( 68) = 0.9844461623039030D+00
        ws( 69) = 0.1759394725613263D+01
        endif
        if( idomain .eq.  174 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.1570796326794897D+01
        rk1r = 0.1884955592153876D+02
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  73
        err = 0.6782720839327114D-13
        xs(  1) = 0.5056054677300795D+00
        xs(  2) = 0.1159649989678303D+01
        xs(  3) = 0.1815361183993345D+01
        xs(  4) = 0.2468510971196693D+01
        xs(  5) = 0.3117354737205549D+01
        xs(  6) = 0.3760559021845349D+01
        xs(  7) = 0.4396936448119039D+01
        xs(  8) = 0.5025385208773957D+01
        xs(  9) = 0.5644869763978025D+01
        xs( 10) = 0.6254412098952623D+01
        xs( 11) = 0.6853085839386309D+01
        xs( 12) = 0.7440011082849426D+01
        xs( 13) = 0.8014349478398008D+01
        xs( 14) = 0.8575299674884096D+01
        xs( 15) = 0.9122093500306061D+01
        xs( 16) = 0.9653993366734205D+01
        xs( 17) = 0.1017029150851543D+02
        xs( 18) = 0.1067031179585681D+02
        xs( 19) = 0.1115341503946343D+02
        xs( 20) = 0.1161900891570435D+02
        xs( 21) = 0.1206656387324289D+02
        xs( 22) = 0.1249563656655979D+02
        xs( 23) = 0.1290590235971677D+02
        xs( 24) = 0.1329719799356220D+02
        xs( 25) = 0.1366957418411354D+02
        xs( 26) = 0.1402335514786045D+02
        xs( 27) = 0.1435919735310691D+02
        xs( 28) = 0.1467813346953741D+02
        xs( 29) = 0.1498158176885261D+02
        xs( 30) = 0.1527130111642106D+02
        xs( 31) = 0.1554928310629483D+02
        xs( 32) = 0.1581759644427047D+02
        xs( 33) = 0.1607822344489150D+02
        xs( 34) = 0.1633293639471606D+02
        xs( 35) = 0.1658324431223260D+02
        xs( 36) = 0.1683041105120473D+02
        xs( 37) = 0.1707552547927328D+02
        xs( 38) = 0.1731960305594021D+02
        xs( 39) = 0.1756370871154095D+02
        xs( 40) = 0.1780910233890094D+02
        xs( 41) = 0.1805741273085460D+02
        xs( 42) = 0.1831083900897580D+02
        xs( 43) = 0.1857235868503108D+02
        xs( 44) = 0.1884589024496244D+02
        xs( 45) = 0.1913633003293789D+02
        xs( 46) = 0.1944938756220567D+02
        xs( 47) = 0.1979119137038743D+02
        xs( 48) = 0.2016771171301729D+02
        xs( 49) = 0.2058412763886904D+02
        xs( 50) = 0.2104430941897015D+02
        xs( 51) = 0.2155054069069794D+02
        xs( 52) = 0.2210350251448424D+02
        xs( 53) = 0.2270246596780835D+02
        xs( 54) = 0.2334561228003574D+02
        xs( 55) = 0.2403039765449044D+02
        xs( 56) = 0.2475389390250229D+02
        xs( 57) = 0.2551306274043721D+02
        xs( 58) = 0.2630495045470930D+02
        xs( 59) = 0.2712681013571217D+02
        xs( 60) = 0.2797616798503047D+02
        xs( 61) = 0.2885085151121891D+02
        xs( 62) = 0.2974899451648570D+02
        xs( 63) = 0.3066903137252967D+02
        xs( 64) = 0.3160968325463186D+02
        xs( 65) = 0.3256995658617214D+02
        xs( 66) = 0.3354913559899698D+02
        xs( 67) = 0.3454688830141488D+02
        xs( 68) = 0.3556245282902673D+02
        xs( 69) = 0.3659919645075700D+02
        xs( 70) = 0.3765106872047317D+02
        xs( 71) = 0.3872647818206721D+02
        xs( 72) = 0.3984422280327715D+02
        xs( 73) = 0.4096949877712870D+02
        ws(  1) = 0.6485307588810095D+00
        ws(  2) = 0.6561105256171310D+00
        ws(  3) = 0.6547875956055010D+00
        ws(  4) = 0.6512374726287233D+00
        ws(  5) = 0.6462307945173636D+00
        ws(  6) = 0.6399806611819282D+00
        ws(  7) = 0.6325908276135028D+00
        ws(  8) = 0.6241342354420700D+00
        ws(  9) = 0.6146719665820725D+00
        ws( 10) = 0.6042583930110046D+00
        ws( 11) = 0.5929425198563822D+00
        ws( 12) = 0.5807683186720854D+00
        ws( 13) = 0.5677749787599875D+00
        ws( 14) = 0.5539974302336169D+00
        ws( 15) = 0.5394673037355683D+00
        ws( 16) = 0.5242144401148137D+00
        ws( 17) = 0.5082690694175669D+00
        ws( 18) = 0.4916648115503988D+00
        ws( 19) = 0.4744426936920779D+00
        ws( 20) = 0.4566564135147530D+00
        ws( 21) = 0.4383790718502281D+00
        ws( 22) = 0.4197114976951907D+00
        ws( 23) = 0.4007919957778617D+00
        ws( 24) = 0.3818067149454315D+00
        ws( 25) = 0.3629986896433455D+00
        ws( 26) = 0.3446718676455570D+00
        ws( 27) = 0.3271844455731943D+00
        ws( 28) = 0.3109248901109566D+00
        ws( 29) = 0.2962666852041159D+00
        ws( 30) = 0.2835066382874705D+00
        ws( 31) = 0.2728049764338325D+00
        ws( 32) = 0.2641542243208259D+00
        ws( 33) = 0.2573960426304399D+00
        ws( 34) = 0.2522810035687730D+00
        ws( 35) = 0.2485442499662537D+00
        ws( 36) = 0.2459689889760247D+00
        ws( 37) = 0.2444270684724039D+00
        ws( 38) = 0.2439031669841621D+00
        ws( 39) = 0.2445152304393410D+00
        ws( 40) = 0.2465400882287968D+00
        ws( 41) = 0.2504436249860059D+00
        ws( 42) = 0.2569022679589305D+00
        ws( 43) = 0.2667893488869118D+00
        ws( 44) = 0.2810924982282237D+00
        ws( 45) = 0.3007453372241278D+00
        ws( 46) = 0.3264010813381489D+00
        ws( 47) = 0.3582125790296237D+00
        ws( 48) = 0.3957002303416861D+00
        ws( 49) = 0.4377813319559903D+00
        ws( 50) = 0.4829629507066905D+00
        ws( 51) = 0.5296096922985407D+00
        ws( 52) = 0.5761869293835101D+00
        ws( 53) = 0.6214305984052266D+00
        ws( 54) = 0.6644322816174629D+00
        ws( 55) = 0.7046458365185013D+00
        ws( 56) = 0.7418370562513016D+00
        ws( 57) = 0.7760063400133302D+00
        ws( 58) = 0.8073102117969054D+00
        ws( 59) = 0.8359964068026561D+00
        ws( 60) = 0.8623571291216713D+00
        ws( 61) = 0.8866991592067496D+00
        ws( 62) = 0.9093260790020773D+00
        ws( 63) = 0.9305337443812015D+00
        ws( 64) = 0.9506070897298567D+00
        ws( 65) = 0.9698278730266205D+00
        ws( 66) = 0.9883869295095562D+00
        ws( 67) = 0.1007370791554771D+01
        ws( 68) = 0.1024116919534841D+01
        ws( 69) = 0.1043764118198616D+01
        ws( 70) = 0.1082982134095532D+01
        ws( 71) = 0.1033904128998145D+01
        ws( 72) = 0.1123632041145086D+01
        ws( 73) = 0.1704985382862779D+01
        endif
        if( idomain .eq.  175 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.1570796326794897D+01
        rk1r = 0.2199114857512855D+02
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  76
        err = 0.6362006908620325D-13
        xs(  1) = 0.5284161583811897D+00
        xs(  2) = 0.1212168955457773D+01
        xs(  3) = 0.1898140711053007D+01
        xs(  4) = 0.2582179629012184D+01
        xs(  5) = 0.3262722156830102D+01
        xs(  6) = 0.3938625675628184D+01
        xs(  7) = 0.4608890619024519D+01
        xs(  8) = 0.5272597082116881D+01
        xs(  9) = 0.5928885109561643D+01
        xs( 10) = 0.6576946463379238D+01
        xs( 11) = 0.7216019612370208D+01
        xs( 12) = 0.7845385470277903D+01
        xs( 13) = 0.8464363140671383D+01
        xs( 14) = 0.9072305519688394D+01
        xs( 15) = 0.9668594825744240D+01
        xs( 16) = 0.1025263820675666D+02
        xs( 17) = 0.1082386360767523D+02
        xs( 18) = 0.1138171610129906D+02
        xs( 19) = 0.1192565491220634D+02
        xs( 20) = 0.1245515140856584D+02
        xs( 21) = 0.1296968840832762D+02
        xs( 22) = 0.1346876125235715D+02
        xs( 23) = 0.1395188124387461D+02
        xs( 24) = 0.1441858224423336D+02
        xs( 25) = 0.1486843144414480D+02
        xs( 26) = 0.1530104557173956D+02
        xs( 27) = 0.1571611398910120D+02
        xs( 28) = 0.1611343012883386D+02
        xs( 29) = 0.1649293227655282D+02
        xs( 30) = 0.1685475340650003D+02
        xs( 31) = 0.1719927710263743D+02
        xs( 32) = 0.1752719214681008D+02
        xs( 33) = 0.1783953246171276D+02
        xs( 34) = 0.1813768379208007D+02
        xs( 35) = 0.1842333818704661D+02
        xs( 36) = 0.1869838748262661D+02
        xs( 37) = 0.1896476936309453D+02
        xs( 38) = 0.1922430599666014D+02
        xs( 39) = 0.1947858754558198D+02
        xs( 40) = 0.1972893666616341D+02
        xs( 41) = 0.1997645300993362D+02
        xs( 42) = 0.2022210633866492D+02
        xs( 43) = 0.2046684445606305D+02
        xs( 44) = 0.2071170272010349D+02
        xs( 45) = 0.2095792333214466D+02
        xs( 46) = 0.2120709841693800D+02
        xs( 47) = 0.2146133983370462D+02
        xs( 48) = 0.2172345729438135D+02
        xs( 49) = 0.2199710188174666D+02
        xs( 50) = 0.2228681469850419D+02
        xs( 51) = 0.2259792346765625D+02
        xs( 52) = 0.2293625950788426D+02
        xs( 53) = 0.2330771684944528D+02
        xs( 54) = 0.2371772620679627D+02
        xs( 55) = 0.2417074555569201D+02
        xs( 56) = 0.2466986781774333D+02
        xs( 57) = 0.2521662290743614D+02
        xs( 58) = 0.2581100722465053D+02
        xs( 59) = 0.2645171272629607D+02
        xs( 60) = 0.2713647682650848D+02
        xs( 61) = 0.2786246004666801D+02
        xs( 62) = 0.2862657983887603D+02
        xs( 63) = 0.2942576522509828D+02
        xs( 64) = 0.3025712777391246D+02
        xs( 65) = 0.3111806270964206D+02
        xs( 66) = 0.3200630442141063D+02
        xs( 67) = 0.3291994233272001D+02
        xs( 68) = 0.3385738085665866D+02
        xs( 69) = 0.3481762814602981D+02
        xs( 70) = 0.3579959052435837D+02
        xs( 71) = 0.3680236781193232D+02
        xs( 72) = 0.3782798504809017D+02
        xs( 73) = 0.3888519092393004D+02
        xs( 74) = 0.3989904166897933D+02
        xs( 75) = 0.4119585364185500D+02
        xs( 76) = 0.4220845387782982D+02
        ws(  1) = 0.6778422345753207D+00
        ws(  2) = 0.6861055342565467D+00
        ws(  3) = 0.6853345931600717D+00
        ws(  4) = 0.6824996732543406D+00
        ws(  5) = 0.6783980729798427D+00
        ws(  6) = 0.6732431903265571D+00
        ws(  7) = 0.6671336538982108D+00
        ws(  8) = 0.6601360684764748D+00
        ws(  9) = 0.6523053588539827D+00
        ws( 10) = 0.6436904965280079D+00
        ws( 11) = 0.6343360244303810D+00
        ws( 12) = 0.6242822821444582D+00
        ws( 13) = 0.6135652828787013D+00
        ws( 14) = 0.6022165852096634D+00
        ws( 15) = 0.5902632875763705D+00
        ws( 16) = 0.5777281936329446D+00
        ws( 17) = 0.5646301705820853D+00
        ws( 18) = 0.5509847217097290D+00
        ws( 19) = 0.5368048074242942D+00
        ws( 20) = 0.5221019718099120D+00
        ws( 21) = 0.5068878623983927D+00
        ws( 22) = 0.4911762686862195D+00
        ws( 23) = 0.4749858480727355D+00
        ws( 24) = 0.4583437511523305D+00
        ws( 25) = 0.4412903887045916D+00
        ws( 26) = 0.4238855722785664D+00
        ws( 27) = 0.4062161546896503D+00
        ws( 28) = 0.3884050021363363D+00
        ws( 29) = 0.3706205066902234D+00
        ws( 30) = 0.3530847423278529D+00
        ws( 31) = 0.3360767350373139D+00
        ws( 32) = 0.3199255129439588D+00
        ws( 33) = 0.3049868063298356D+00
        ws( 34) = 0.2915996676542861D+00
        ws( 35) = 0.2800270948846390D+00
        ws( 36) = 0.2703972708167780D+00
        ws( 37) = 0.2626722225561904D+00
        ws( 38) = 0.2566666576832418D+00
        ws( 39) = 0.2521160528912445D+00
        ws( 40) = 0.2487638205784673D+00
        ws( 41) = 0.2464286638799625D+00
        ws( 42) = 0.2450341627794465D+00
        ws( 43) = 0.2446126841397765D+00
        ws( 44) = 0.2453085037259124D+00
        ws( 45) = 0.2473952019284366D+00
        ws( 46) = 0.2513038710785831D+00
        ws( 47) = 0.2576447035191294D+00
        ws( 48) = 0.2671977730557021D+00
        ws( 49) = 0.2808499012821056D+00
        ws( 50) = 0.2994684534323871D+00
        ws( 51) = 0.3237285026319945D+00
        ws( 52) = 0.3539349396468466D+00
        ws( 53) = 0.3898935994190117D+00
        ws( 54) = 0.4308748420474577D+00
        ws( 55) = 0.4756827300700084D+00
        ws( 56) = 0.5228162178154256D+00
        ws( 57) = 0.5706893390529245D+00
        ws( 58) = 0.6178552188719961D+00
        ws( 59) = 0.6631722161697973D+00
        ws( 60) = 0.7058770955792483D+00
        ws( 61) = 0.7455713475661749D+00
        ws( 62) = 0.7821535481133979D+00
        ws( 63) = 0.8157340823920418D+00
        ws( 64) = 0.8465567739435510D+00
        ws( 65) = 0.8749355573292273D+00
        ws( 66) = 0.9012189963295431D+00
        ws( 67) = 0.9258188448241673D+00
        ws( 68) = 0.9489095001798179D+00
        ws( 69) = 0.9710203013142173D+00
        ws( 70) = 0.9935723676538006D+00
        ws( 71) = 0.1015705685072468D+01
        ws( 72) = 0.1014233330623885D+01
        ws( 73) = 0.1131606913591386D+01
        ws( 74) = 0.1006714104615542D+01
        ws( 75) = 0.8710999292302625D+00
        ws( 76) = 0.2519772420241160D+01
        endif
        if( idomain .eq.  176 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.1570796326794897D+01
        rk1r = 0.2513274122871834D+02
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  80
        err = 0.3478491689171093D-13
        xs(  1) = 0.5470960166851642D+00
        xs(  2) = 0.1255168281062332D+01
        xs(  3) = 0.1965890368798248D+01
        xs(  4) = 0.2675160109347453D+01
        xs(  5) = 0.3381548534443864D+01
        xs(  6) = 0.4084054390104712D+01
        xs(  7) = 0.4781815357558041D+01
        xs(  8) = 0.5474041901880876D+01
        xs(  9) = 0.6159996869909052D+01
        xs( 10) = 0.6838987427537859D+01
        xs( 11) = 0.7510360689747696D+01
        xs( 12) = 0.8173500375991647D+01
        xs( 13) = 0.8827823614967341D+01
        xs( 14) = 0.9472777641631327D+01
        xs( 15) = 0.1010783636059193D+02
        xs( 16) = 0.1073249683675306D+02
        xs( 17) = 0.1134627580292288D+02
        xs( 18) = 0.1194870627992611D+02
        xs( 19) = 0.1253933440319187D+02
        xs( 20) = 0.1311771654856943D+02
        xs( 21) = 0.1368341685356051D+02
        xs( 22) = 0.1423600524109960D+02
        xs( 23) = 0.1477505607385871D+02
        xs( 24) = 0.1530014760032300D+02
        xs( 25) = 0.1581086240258770D+02
        xs( 26) = 0.1630678912363528D+02
        xs( 27) = 0.1678752584297179D+02
        xs( 28) = 0.1725268558797676D+02
        xs( 29) = 0.1770190461613289D+02
        xs( 30) = 0.1813485427611712D+02
        xs( 31) = 0.1855125743430017D+02
        xs( 32) = 0.1895091058728666D+02
        xs( 33) = 0.1933371276243416D+02
        xs( 34) = 0.1969970193124722D+02
        xs( 35) = 0.2004909858237048D+02
        xs( 36) = 0.2038235384808100D+02
        xs( 37) = 0.2070019572045326D+02
        xs( 38) = 0.2100366159187597D+02
        xs( 39) = 0.2129410039750889D+02
        xs( 40) = 0.2157312734410731D+02
        xs( 41) = 0.2184252408318368D+02
        xs( 42) = 0.2210409820115832D+02
        xs( 43) = 0.2235953827259161D+02
        xs( 44) = 0.2261030832296566D+02
        xs( 45) = 0.2285761167905430D+02
        xs( 46) = 0.2310242828722607D+02
        xs( 47) = 0.2334560658886235D+02
        xs( 48) = 0.2358798188578745D+02
        xs( 49) = 0.2383050134090776D+02
        xs( 50) = 0.2407435373948969D+02
        xs( 51) = 0.2432111498183257D+02
        xs( 52) = 0.2457291795212737D+02
        xs( 53) = 0.2483263803420903D+02
        xs( 54) = 0.2510405765799406D+02
        xs( 55) = 0.2539194289383761D+02
        xs( 56) = 0.2570194963564492D+02
        xs( 57) = 0.2604029714205467D+02
        xs( 58) = 0.2641321600704925D+02
        xs( 59) = 0.2682628461360269D+02
        xs( 60) = 0.2728384375947896D+02
        xs( 61) = 0.2778864593427579D+02
        xs( 62) = 0.2834178376734258D+02
        xs( 63) = 0.2894285102401542D+02
        xs( 64) = 0.2959025424278542D+02
        xs( 65) = 0.3028158808528795D+02
        xs( 66) = 0.3101399849701586D+02
        xs( 67) = 0.3178448366314627D+02
        xs( 68) = 0.3259011391749753D+02
        xs( 69) = 0.3342817531398714D+02
        xs( 70) = 0.3429625503140389D+02
        xs( 71) = 0.3519228699477409D+02
        xs( 72) = 0.3611456313869709D+02
        xs( 73) = 0.3706181250764731D+02
        xs( 74) = 0.3803314225878319D+02
        xs( 75) = 0.3902763049013549D+02
        xs( 76) = 0.4004843399287764D+02
        xs( 77) = 0.4108874283775794D+02
        xs( 78) = 0.4214886295593545D+02
        xs( 79) = 0.4327014977524662D+02
        xs( 80) = 0.4459167786007286D+02
        ws(  1) = 0.7018433195403095D+00
        ws(  2) = 0.7106511948958353D+00
        ws(  3) = 0.7103045639538516D+00
        ws(  4) = 0.7080144068841804D+00
        ws(  5) = 0.7045988232646024D+00
        ws(  6) = 0.7002700259370241D+00
        ws(  7) = 0.6951206041600835D+00
        ws(  8) = 0.6892097441103273D+00
        ws(  9) = 0.6825847872628656D+00
        ws( 10) = 0.6752875678424208D+00
        ws( 11) = 0.6673562959199991D+00
        ws( 12) = 0.6588259863877205D+00
        ws( 13) = 0.6497284214981075D+00
        ws( 14) = 0.6400920079754249D+00
        ws( 15) = 0.6299416658661988D+00
        ws( 16) = 0.6192987984789362D+00
        ws( 17) = 0.6081813571072620D+00
        ws( 18) = 0.5966040009331423D+00
        ws( 19) = 0.5845783498038730D+00
        ws( 20) = 0.5721133304383361D+00
        ws( 21) = 0.5592156228390114D+00
        ws( 22) = 0.5458902224089213D+00
        ws( 23) = 0.5321411443789633D+00
        ws( 24) = 0.5179723109781768D+00
        ws( 25) = 0.5033886789360216D+00
        ws( 26) = 0.4883976860557210D+00
        ws( 27) = 0.4730111210627960D+00
        ws( 28) = 0.4572475498719896D+00
        ws( 29) = 0.4411354601666354D+00
        ws( 30) = 0.4247173050768005D+00
        ws( 31) = 0.4080546143741509D+00
        ws( 32) = 0.3912342555581524D+00
        ws( 33) = 0.3743756915704894D+00
        ws( 34) = 0.3576385773518284D+00
        ws( 35) = 0.3412291153987865D+00
        ws( 36) = 0.3254021641888697D+00
        ws( 37) = 0.3104543987494246D+00
        ws( 38) = 0.2967028987691148D+00
        ws( 39) = 0.2844456091702702D+00
        ws( 40) = 0.2739076607878310D+00
        ws( 41) = 0.2651896120175393D+00
        ws( 42) = 0.2582418884110448D+00
        ws( 43) = 0.2528828693255289D+00
        ws( 44) = 0.2488571129775340D+00
        ws( 45) = 0.2459113176617537D+00
        ws( 46) = 0.2438612809564183D+00
        ws( 47) = 0.2426324540068684D+00
        ws( 48) = 0.2422738707652404D+00
        ws( 49) = 0.2429607722300439D+00
        ws( 50) = 0.2450038272439883D+00
        ws( 51) = 0.2488709610114110D+00
        ws( 52) = 0.2552113027236100D+00
        ws( 53) = 0.2648577785982605D+00
        ws( 54) = 0.2787772091362486D+00
        ws( 55) = 0.2979413488674260D+00
        ws( 56) = 0.3231181593131785D+00
        ws( 57) = 0.3546268512335033D+00
        ws( 58) = 0.3921507765693423D+00
        ws( 59) = 0.4347158375989502D+00
        ws( 60) = 0.4808622564358901D+00
        ws( 61) = 0.5289213105476122D+00
        ws( 62) = 0.5772812435081790D+00
        ws( 63) = 0.6245812490181809D+00
        ws( 64) = 0.6698181246342779D+00
        ws( 65) = 0.7123688321478879D+00
        ws( 66) = 0.7519480410136999D+00
        ws( 67) = 0.7885316117055997D+00
        ws( 68) = 0.8222752035036809D+00
        ws( 69) = 0.8534450397688683D+00
        ws( 70) = 0.8823681940443776D+00
        ws( 71) = 0.9094236685457944D+00
        ws( 72) = 0.9348634063848625D+00
        ws( 73) = 0.9596104798447428D+00
        ws( 74) = 0.9827699958264715D+00
        ws( 75) = 0.1006583920653769D+01
        ws( 76) = 0.1033303500961931D+01
        ws( 77) = 0.1048814231463142D+01
        ws( 78) = 0.1081110220308172D+01
        ws( 79) = 0.1171733519345211D+01
        ws( 80) = 0.1776429810715315D+01
        endif
        if( idomain .eq.  177 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.1570796326794897D+01
        rk1r = 0.2827433388230814D+02
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  83
        err = 0.5607279761718189D-13
        xs(  1) = 0.5615486632207980D+00
        xs(  2) = 0.1288438997070760D+01
        xs(  3) = 0.2018317480769351D+01
        xs(  4) = 0.2747123402978920D+01
        xs(  5) = 0.3473535264025422D+01
        xs(  6) = 0.4196664869657606D+01
        xs(  7) = 0.4915760164248132D+01
        xs(  8) = 0.5630136965898111D+01
        xs(  9) = 0.6339158035040423D+01
        xs( 10) = 0.7042225136257767D+01
        xs( 11) = 0.7738775153290816D+01
        xs( 12) = 0.8428277447418511D+01
        xs( 13) = 0.9110231488578277D+01
        xs( 14) = 0.9784164429055956D+01
        xs( 15) = 0.1044962853448443D+02
        xs( 16) = 0.1110619848355652D+02
        xs( 17) = 0.1175346858359680D+02
        xs( 18) = 0.1239104995857871D+02
        xs( 19) = 0.1301856776450574D+02
        xs( 20) = 0.1363565848155093D+02
        xs( 21) = 0.1424196732669221D+02
        xs( 22) = 0.1483714582685225D+02
        xs( 23) = 0.1542084959202834D+02
        xs( 24) = 0.1599273633154393D+02
        xs( 25) = 0.1655246416530168D+02
        xs( 26) = 0.1709969029687373D+02
        xs( 27) = 0.1763407013785577D+02
        xs( 28) = 0.1815525700501919D+02
        xs( 29) = 0.1866290255583973D+02
        xs( 30) = 0.1915665818692602D+02
        xs( 31) = 0.1963617769704418D+02
        xs( 32) = 0.2010112161494798D+02
        xs( 33) = 0.2055116371360153D+02
        xs( 34) = 0.2098600037367076D+02
        xs( 35) = 0.2140536360731897D+02
        xs( 36) = 0.2180903867509836D+02
        xs( 37) = 0.2219688725369478D+02
        xs( 38) = 0.2256887690816623D+02
        xs( 39) = 0.2292511696684192D+02
        xs( 40) = 0.2326589946854330D+02
        xs( 41) = 0.2359174129909540D+02
        xs( 42) = 0.2390341984575027D+02
        xs( 43) = 0.2420199020453324D+02
        xs( 44) = 0.2448876955010078D+02
        xs( 45) = 0.2476527773618645D+02
        xs( 46) = 0.2503313554180718D+02
        xs( 47) = 0.2529394015957723D+02
        xs( 48) = 0.2554915122411880D+02
        xs( 49) = 0.2580002040475357D+02
        xs( 50) = 0.2604758325592073D+02
        xs( 51) = 0.2629271121518002D+02
        xs( 52) = 0.2653620456837182D+02
        xs( 53) = 0.2677890349841122D+02
        xs( 54) = 0.2702180541885632D+02
        xs( 55) = 0.2726619205315796D+02
        xs( 56) = 0.2751377677047524D+02
        xs( 57) = 0.2776687684937240D+02
        xs( 58) = 0.2802859673303970D+02
        xs( 59) = 0.2830298061624789D+02
        xs( 60) = 0.2859506695466081D+02
        xs( 61) = 0.2891076695018110D+02
        xs( 62) = 0.2925650732736516D+02
        xs( 63) = 0.2963864739915673D+02
        xs( 64) = 0.3006279599590053D+02
        xs( 65) = 0.3053322853575995D+02
        xs( 66) = 0.3105255683005858D+02
        xs( 67) = 0.3162168488528854D+02
        xs( 68) = 0.3223999770956685D+02
        xs( 69) = 0.3290569906108943D+02
        xs( 70) = 0.3361620880846046D+02
        xs( 71) = 0.3436854194257934D+02
        xs( 72) = 0.3515961912909861D+02
        xs( 73) = 0.3598649210897295D+02
        xs( 74) = 0.3684649368787543D+02
        xs( 75) = 0.3773730727306320D+02
        xs( 76) = 0.3865710327575121D+02
        xs( 77) = 0.3960442718731927D+02
        xs( 78) = 0.4057830248343563D+02
        xs( 79) = 0.4157887803058850D+02
        xs( 80) = 0.4260704063266942D+02
        xs( 81) = 0.4365634089939477D+02
        xs( 82) = 0.4474897210344409D+02
        xs( 83) = 0.4598920221796333D+02
        ws(  1) = 0.7204135435193968D+00
        ws(  2) = 0.7296462615301476D+00
        ws(  3) = 0.7296343784199379D+00
        ws(  4) = 0.7277753523375743D+00
        ws(  5) = 0.7249036917238225D+00
        ws(  6) = 0.7212310633193478D+00
        ws(  7) = 0.7168457871213394D+00
        ws(  8) = 0.7118017254157615D+00
        ws(  9) = 0.7061407662396988D+00
        ws( 10) = 0.6998996255684059D+00
        ws( 11) = 0.6931120075341962D+00
        ws( 12) = 0.6858091993295724D+00
        ws( 13) = 0.6780201179025659D+00
        ws( 14) = 0.6697711857845681D+00
        ws( 15) = 0.6610861847336276D+00
        ws( 16) = 0.6519861449630973D+00
        ws( 17) = 0.6424892889742359D+00
        ws( 18) = 0.6326110322244977D+00
        ws( 19) = 0.6223640362084384D+00
        ws( 20) = 0.6117583079182832D+00
        ws( 21) = 0.6008013407332444D+00
        ws( 22) = 0.5894982944366060D+00
        ws( 23) = 0.5778522157714087D+00
        ws( 24) = 0.5658643055678988D+00
        ws( 25) = 0.5535342440883954D+00
        ws( 26) = 0.5408605930908007D+00
        ws( 27) = 0.5278413016037056D+00
        ws( 28) = 0.5144743530383754D+00
        ws( 29) = 0.5007586045972517D+00
        ws( 30) = 0.4866948864724772D+00
        ws( 31) = 0.4722874482266138D+00
        ws( 32) = 0.4575458622891055D+00
        ws( 33) = 0.4424875169873528D+00
        ws( 34) = 0.4271408472614274D+00
        ws( 35) = 0.4115494459633529D+00
        ws( 36) = 0.3957771450415232D+00
        ws( 37) = 0.3799140057035093D+00
        ws( 38) = 0.3640828334744827D+00
        ws( 39) = 0.3484452367993783D+00
        ws( 40) = 0.3332052909294647D+00
        ws( 41) = 0.3186076113136583D+00
        ws( 42) = 0.3049255618000304D+00
        ws( 43) = 0.2924356752077380D+00
        ws( 44) = 0.2813780692420399D+00
        ws( 45) = 0.2719105937103560D+00
        ws( 46) = 0.2640732006172469D+00
        ws( 47) = 0.2577805279724700D+00
        ws( 48) = 0.2528503420966007D+00
        ws( 49) = 0.2490596933533626D+00
        ws( 50) = 0.2462096376043720D+00
        ws( 51) = 0.2441777812221971D+00
        ws( 52) = 0.2429470124515472D+00
        ws( 53) = 0.2426149956403354D+00
        ws( 54) = 0.2434000264816699D+00
        ws( 55) = 0.2456559038334200D+00
        ws( 56) = 0.2498965898398801D+00
        ws( 57) = 0.2568182649846051D+00
        ws( 58) = 0.2672944307997572D+00
        ws( 59) = 0.2823149400988219D+00
        ws( 60) = 0.3028488874101093D+00
        ws( 61) = 0.3296322538936904D+00
        ws( 62) = 0.3629203104695144D+00
        ws( 63) = 0.4023047504048705D+00
        ws( 64) = 0.4467105718737154D+00
        ws( 65) = 0.4945903944366486D+00
        ws( 66) = 0.5442135080895221D+00
        ws( 67) = 0.5939342557421008D+00
        ws( 68) = 0.6423852044244514D+00
        ws( 69) = 0.6885810386084076D+00
        ws( 70) = 0.7319357274226144D+00
        ws( 71) = 0.7722135663104059D+00
        ws( 72) = 0.8094474971952799D+00
        ws( 73) = 0.8438504317555909D+00
        ws( 74) = 0.8757690720979733D+00
        ws( 75) = 0.9055570766743055D+00
        ws( 76) = 0.9337915637721069D+00
        ws( 77) = 0.9606074345989682D+00
        ws( 78) = 0.9869384234033135D+00
        ws( 79) = 0.1016281999510404D+01
        ws( 80) = 0.1040521889410674D+01
        ws( 81) = 0.1046892264198755D+01
        ws( 82) = 0.1101858290947492D+01
        ws( 83) = 0.1906525546015268D+01
        endif
        if( idomain .eq.  178 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.1570796326794897D+01
        rk1r = 0.3141592653589793D+02
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  88
        err = 0.3083183077737336D-13
        xs(  1) = 0.5310510675842312D+00
        xs(  2) = 0.1222305099545471D+01
        xs(  3) = 0.1923879499382657D+01
        xs(  4) = 0.2632954710601553D+01
        xs(  5) = 0.3347596631823698D+01
        xs(  6) = 0.4065665097432775D+01
        xs(  7) = 0.4785160975259548D+01
        xs(  8) = 0.5504380150450278D+01
        xs(  9) = 0.6221914975057668D+01
        xs( 10) = 0.6936604088049585D+01
        xs( 11) = 0.7647477517634502D+01
        xs( 12) = 0.8353711317639531D+01
        xs( 13) = 0.9054593343568358D+01
        xs( 14) = 0.9749498163450493D+01
        xs( 15) = 0.1043786866912077D+02
        xs( 16) = 0.1111920239795394D+02
        xs( 17) = 0.1179304112445150D+02
        xs( 18) = 0.1245896272943490D+02
        xs( 19) = 0.1311657467746024D+02
        xs( 20) = 0.1376550865379623D+02
        xs( 21) = 0.1440541605986032D+02
        xs( 22) = 0.1503596416394659D+02
        xs( 23) = 0.1565683276931186D+02
        xs( 24) = 0.1626771130574633D+02
        xs( 25) = 0.1686829628134737D+02
        xs( 26) = 0.1745828905347541D+02
        xs( 27) = 0.1803739389527563D+02
        xs( 28) = 0.1860531634913340D+02
        xs( 29) = 0.1916176187282745D+02
        xs( 30) = 0.1970643479947523D+02
        xs( 31) = 0.2023903765006875D+02
        xs( 32) = 0.2075927085900395D+02
        xs( 33) = 0.2126683300026688D+02
        xs( 34) = 0.2176142163695033D+02
        xs( 35) = 0.2224273496201978D+02
        xs( 36) = 0.2271047445653796D+02
        xs( 37) = 0.2316434886570507D+02
        xs( 38) = 0.2360407988503735D+02
        xs( 39) = 0.2402941005801851D+02
        xs( 40) = 0.2444011350532649D+02
        xs( 41) = 0.2483601021338260D+02
        xs( 42) = 0.2521698465980022D+02
        xs( 43) = 0.2558300945399779D+02
        xs( 44) = 0.2593417426358306D+02
        xs( 45) = 0.2627071934084594D+02
        xs( 46) = 0.2659307117708807D+02
        xs( 47) = 0.2690187505008168D+02
        xs( 48) = 0.2719801588911840D+02
        xs( 49) = 0.2748261644565024D+02
        xs( 50) = 0.2775700286229148D+02
        xs( 51) = 0.2802263474350196D+02
        xs( 52) = 0.2828100894980330D+02
        xs( 53) = 0.2853355798792932D+02
        xs( 54) = 0.2878156779224721D+02
        xs( 55) = 0.2902613356815157D+02
        xs( 56) = 0.2926816165450692D+02
        xs( 57) = 0.2950841689926098D+02
        xs( 58) = 0.2974760950683038D+02
        xs( 59) = 0.2998651080939184D+02
        xs( 60) = 0.3022608650859537D+02
        xs( 61) = 0.3046764197149619D+02
        xs( 62) = 0.3071298214366081D+02
        xs( 63) = 0.3096458494707989D+02
        xs( 64) = 0.3122576536014299D+02
        xs( 65) = 0.3150078356006416D+02
        xs( 66) = 0.3179484255416832D+02
        xs( 67) = 0.3211392071288981D+02
        xs( 68) = 0.3246439252809408D+02
        xs( 69) = 0.3285245000612522D+02
        xs( 70) = 0.3328345124572492D+02
        xs( 71) = 0.3376138829339727D+02
        xs( 72) = 0.3428860625011499D+02
        xs( 73) = 0.3486579098486507D+02
        xs( 74) = 0.3549217190783485D+02
        xs( 75) = 0.3616586205050395D+02
        xs( 76) = 0.3688425060551987D+02
        xs( 77) = 0.3764437254237607D+02
        xs( 78) = 0.3844320806042515D+02
        xs( 79) = 0.3927789815391237D+02
        xs( 80) = 0.4014588478588744D+02
        xs( 81) = 0.4104500865495774D+02
        xs( 82) = 0.4197352256972714D+02
        xs( 83) = 0.4293024251469962D+02
        xs( 84) = 0.4391460204735217D+02
        xs( 85) = 0.4492822681577908D+02
        xs( 86) = 0.4596889574465637D+02
        xs( 87) = 0.4704226057988449D+02
        xs( 88) = 0.4813609197409484D+02
        ws(  1) = 0.6823618570626607D+00
        ws(  2) = 0.6972355769135008D+00
        ws(  3) = 0.7056143842352353D+00
        ws(  4) = 0.7122111969435885D+00
        ws(  5) = 0.7167090714856630D+00
        ws(  6) = 0.7190924405533513D+00
        ws(  7) = 0.7196155204787081D+00
        ws(  8) = 0.7185891567407247D+00
        ws(  9) = 0.7162878734272251D+00
        ws( 10) = 0.7129294473550273D+00
        ws( 11) = 0.7086806520556239D+00
        ws( 12) = 0.7036686693097598D+00
        ws( 13) = 0.6979914456182845D+00
        ws( 14) = 0.6917255673764865D+00
        ws( 15) = 0.6849318713564704D+00
        ws( 16) = 0.6776593493537266D+00
        ws( 17) = 0.6699478581150331D+00
        ws( 18) = 0.6618300179637377D+00
        ws( 19) = 0.6533325669033192D+00
        ws( 20) = 0.6444773498391576D+00
        ws( 21) = 0.6352820623182583D+00
        ws( 22) = 0.6257608280567656D+00
        ws( 23) = 0.6159246633467585D+00
        ws( 24) = 0.6057818646338420D+00
        ws( 25) = 0.5953383449992679D+00
        ws( 26) = 0.5845979389034298D+00
        ws( 27) = 0.5735626910413119D+00
        ws( 28) = 0.5622331437291027D+00
        ws( 29) = 0.5506086374445740D+00
        ws( 30) = 0.5386876407965073D+00
        ws( 31) = 0.5264681293081371D+00
        ws( 32) = 0.5139480371293013D+00
        ws( 33) = 0.5011258124315036D+00
        ws( 34) = 0.4880011161671234D+00
        ws( 35) = 0.4745757154751388D+00
        ws( 36) = 0.4608546375138167D+00
        ws( 37) = 0.4468476665913407D+00
        ws( 38) = 0.4325712855859414D+00
        ws( 39) = 0.4180511775858066D+00
        ws( 40) = 0.4033254060737278D+00
        ws( 41) = 0.3884483631543770D+00
        ws( 42) = 0.3734954811807904D+00
        ws( 43) = 0.3585684875773606D+00
        ws( 44) = 0.3438005672513408D+00
        ws( 45) = 0.3293601060296755D+00
        ws( 46) = 0.3154507373856998D+00
        ws( 47) = 0.3023045011333699D+00
        ws( 48) = 0.2901648666824373D+00
        ws( 49) = 0.2792584575879829D+00
        ws( 50) = 0.2697592997045818D+00
        ws( 51) = 0.2617556967316269D+00
        ws( 52) = 0.2552328837305267D+00
        ws( 53) = 0.2500802682165207D+00
        ws( 54) = 0.2461218409765209D+00
        ws( 55) = 0.2431599634991480D+00
        ws( 56) = 0.2410222100086629D+00
        ws( 57) = 0.2396046866188000D+00
        ws( 58) = 0.2389068486098982D+00
        ws( 59) = 0.2390542963367964D+00
        ws( 60) = 0.2403120047547098D+00
        ws( 61) = 0.2430968025065329D+00
        ws( 62) = 0.2479936735747746D+00
        ws( 63) = 0.2557624942405901D+00
        ws( 64) = 0.2673082737160174D+00
        ws( 65) = 0.2835979512323429D+00
        ws( 66) = 0.3055227478364377D+00
        ws( 67) = 0.3337059507951462D+00
        ws( 68) = 0.3682810615222293D+00
        ws( 69) = 0.4087361174180563D+00
        ws( 70) = 0.4539363970026284D+00
        ws( 71) = 0.5023286058613265D+00
        ws( 72) = 0.5522180515584738D+00
        ws( 73) = 0.6020171089768789D+00
        ws( 74) = 0.6504235110216235D+00
        ws( 75) = 0.6965153686776606D+00
        ws( 76) = 0.7397625482982652D+00
        ws( 77) = 0.7799744824657125D+00
        ws( 78) = 0.8172176632024311D+00
        ws( 79) = 0.8517348451318670D+00
        ws( 80) = 0.8838757747237427D+00
        ws( 81) = 0.9140776103631560D+00
        ws( 82) = 0.9427594280220111D+00
        ws( 83) = 0.9706378397323361D+00
        ws( 84) = 0.9970598801539931D+00
        ws( 85) = 0.1031477293502282D+01
        ws( 86) = 0.1057437029194063D+01
        ws( 87) = 0.1125455512830972D+01
        ws( 88) = 0.1312895000166545D+01
        endif
        if( idomain .eq.  179 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.1570796326794897D+01
        rk1r = 0.3455751918948772D+02
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  89
        err = 0.6143983437853736D-13
        xs(  1) = 0.5882409582349296D+00
        xs(  2) = 0.1349826600744879D+01
        xs(  3) = 0.2114884244038252D+01
        xs(  4) = 0.2879351426683216D+01
        xs(  5) = 0.3642029678061021D+01
        xs(  6) = 0.4402167607063078D+01
        xs(  7) = 0.5159148537791516D+01
        xs(  8) = 0.5912418331833581D+01
        xs(  9) = 0.6661463200588498D+01
        xs( 10) = 0.7405801505930326D+01
        xs( 11) = 0.8144980134920486D+01
        xs( 12) = 0.8878572444473951D+01
        xs( 13) = 0.9606176694584333D+01
        xs( 14) = 0.1032741456154684D+02
        xs( 15) = 0.1104192958505644D+02
        xs( 16) = 0.1174938551236066D+02
        xs( 17) = 0.1244946454873000D+02
        xs( 18) = 0.1314186554144252D+02
        xs( 19) = 0.1382630212929352D+02
        xs( 20) = 0.1450250088832807D+02
        xs( 21) = 0.1517019950052288D+02
        xs( 22) = 0.1582914496732134D+02
        xs( 23) = 0.1647909188520747D+02
        xs( 24) = 0.1711980079639858D+02
        xs( 25) = 0.1775103662449646D+02
        xs( 26) = 0.1837256720268809D+02
        xs( 27) = 0.1898416190088563D+02
        xs( 28) = 0.1958559035808552D+02
        xs( 29) = 0.2017662132726380D+02
        xs( 30) = 0.2075702164240926D+02
        xs( 31) = 0.2132655532099441D+02
        xs( 32) = 0.2188498282055707D+02
        xs( 33) = 0.2243206047549647D+02
        xs( 34) = 0.2296754015022162D+02
        xs( 35) = 0.2349116915817990D+02
        xs( 36) = 0.2400269051405367D+02
        xs( 37) = 0.2450184360988143D+02
        xs( 38) = 0.2498836543675551D+02
        xs( 39) = 0.2546199251419788D+02
        xs( 40) = 0.2592246374179461D+02
        xs( 41) = 0.2636952445474422D+02
        xs( 42) = 0.2680293204860872D+02
        xs( 43) = 0.2722246363855326D+02
        xs( 44) = 0.2762792632913910D+02
        xs( 45) = 0.2801917077505287D+02
        xs( 46) = 0.2839610877068043D+02
        xs( 47) = 0.2875873553469081D+02
        xs( 48) = 0.2910715700326206D+02
        xs( 49) = 0.2944162156817470D+02
        xs( 50) = 0.2976255398209872D+02
        xs( 51) = 0.3007058640718323D+02
        xs( 52) = 0.3036657820780629D+02
        xs( 53) = 0.3065161375205632D+02
        xs( 54) = 0.3092696906516229D+02
        xs( 55) = 0.3119404569231247D+02
        xs( 56) = 0.3145428166201525D+02
        xs( 57) = 0.3170905921958215D+02
        xs( 58) = 0.3195963162874988D+02
        xs( 59) = 0.3220708544955632D+02
        xs( 60) = 0.3245234412061676D+02
        xs( 61) = 0.3269621069598110D+02
        xs( 62) = 0.3293944622081397D+02
        xs( 63) = 0.3318288181204905D+02
        xs( 64) = 0.3342756129835965D+02
        xs( 65) = 0.3367490423984614D+02
        xs( 66) = 0.3392686714014479D+02
        xs( 67) = 0.3418607740437108D+02
        xs( 68) = 0.3445593357276928D+02
        xs( 69) = 0.3474068071654797D+02
        xs( 70) = 0.3504544258500101D+02
        xs( 71) = 0.3537614089028721D+02
        xs( 72) = 0.3573921277582445D+02
        xs( 73) = 0.3614108307069121D+02
        xs( 74) = 0.3658746330719611D+02
        xs( 75) = 0.3708268225192170D+02
        xs( 76) = 0.3762927996651737D+02
        xs( 77) = 0.3822796859424204D+02
        xs( 78) = 0.3887789701398768D+02
        xs( 79) = 0.3957707725973478D+02
        xs( 80) = 0.4032284169637084D+02
        xs( 81) = 0.4111225036155633D+02
        xs( 82) = 0.4194241841718877D+02
        xs( 83) = 0.4281075078112570D+02
        xs( 84) = 0.4371526037231217D+02
        xs( 85) = 0.4465446529601394D+02
        xs( 86) = 0.4562683664687738D+02
        xs( 87) = 0.4663323830495643D+02
        xs( 88) = 0.4768953498068123D+02
        xs( 89) = 0.4889031029824193D+02
        ws(  1) = 0.7546949233438244D+00
        ws(  2) = 0.7646112202679444D+00
        ws(  3) = 0.7650370001100315D+00
        ws(  4) = 0.7637166424281235D+00
        ws(  5) = 0.7615181602496084D+00
        ws(  6) = 0.7586558580853258D+00
        ws(  7) = 0.7552139566874495D+00
        ws(  8) = 0.7512401192436272D+00
        ws(  9) = 0.7467693997826550D+00
        ws( 10) = 0.7418317241411861D+00
        ws( 11) = 0.7364544519311088D+00
        ws( 12) = 0.7306632349913164D+00
        ws( 13) = 0.7244822370945839D+00
        ws( 14) = 0.7179341144090619D+00
        ws( 15) = 0.7110399197130237D+00
        ws( 16) = 0.7038189994525179D+00
        ws( 17) = 0.6962889120813793D+00
        ws( 18) = 0.6884653774445781D+00
        ws( 19) = 0.6803622581723217D+00
        ws( 20) = 0.6719915700413007D+00
        ws( 21) = 0.6633635166934438D+00
        ws( 22) = 0.6544865438289615D+00
        ws( 23) = 0.6453674084029931D+00
        ws( 24) = 0.6360112591242841D+00
        ws( 25) = 0.6264217254981390D+00
        ws( 26) = 0.6166010136814424D+00
        ws( 27) = 0.6065500084870957D+00
        ws( 28) = 0.5962683819891352D+00
        ws( 29) = 0.5857547103680283D+00
        ws( 30) = 0.5750066019530939D+00
        ws( 31) = 0.5640208409449632D+00
        ws( 32) = 0.5527935531439656D+00
        ws( 33) = 0.5413204023105012D+00
        ws( 34) = 0.5295968287242629D+00
        ws( 35) = 0.5176183453232188D+00
        ws( 36) = 0.5053809117836369D+00
        ws( 37) = 0.4928814134027614D+00
        ws( 38) = 0.4801182800690603D+00
        ws( 39) = 0.4670922913504448D+00
        ws( 40) = 0.4538076270663632D+00
        ws( 41) = 0.4402732384784545D+00
        ws( 42) = 0.4265046322504716D+00
        ws( 43) = 0.4125261741899392D+00
        ws( 44) = 0.3983740246269877D+00
        ws( 45) = 0.3840997958033217D+00
        ws( 46) = 0.3697749426695974D+00
        ws( 47) = 0.3554957074374435D+00
        ws( 48) = 0.3413880516332384D+00
        ws( 49) = 0.3276113325379594D+00
        ws( 50) = 0.3143584986436903D+00
        ws( 51) = 0.3018495910694414D+00
        ws( 52) = 0.2903152880933013D+00
        ws( 53) = 0.2799695978686678D+00
        ws( 54) = 0.2709761531572183D+00
        ws( 55) = 0.2634183671919214D+00
        ws( 56) = 0.2572852077023143D+00
        ws( 57) = 0.2524794260171758D+00
        ws( 58) = 0.2488464174181820D+00
        ws( 59) = 0.2462144086873069D+00
        ws( 60) = 0.2444354664165874D+00
        ws( 61) = 0.2434226519104329D+00
        ws( 62) = 0.2431845188611333D+00
        ws( 63) = 0.2438578627390249D+00
        ws( 64) = 0.2457349427425219D+00
        ws( 65) = 0.2492747751912577D+00
        ws( 66) = 0.2550873003552562D+00
        ws( 67) = 0.2638983639399935D+00
        ws( 68) = 0.2765207670036574D+00
        ws( 69) = 0.2938285854577455D+00
        ws( 70) = 0.3166866777782880D+00
        ws( 71) = 0.3457917413366986D+00
        ws( 72) = 0.3814350523589171D+00
        ws( 73) = 0.4232692502607614D+00
        ws( 74) = 0.4702197086141623D+00
        ws( 75) = 0.5206419803434738D+00
        ws( 76) = 0.5726673592653975D+00
        ws( 77) = 0.6245606110754401D+00
        ws( 78) = 0.6749570133802575D+00
        ws( 79) = 0.7229522447982530D+00
        ws( 80) = 0.7680811174263548D+00
        ws( 81) = 0.8102510084730379D+00
        ws( 82) = 0.8496467288389516D+00
        ws( 83) = 0.8867015801359500D+00
        ws( 84) = 0.9220461554540175D+00
        ws( 85) = 0.9557670246613241D+00
        ws( 86) = 0.9906841100350431D+00
        ws( 87) = 0.1024914078743922D+01
        ws( 88) = 0.1053385336055319D+01
        ws( 89) = 0.1806870057172628D+01
        endif
        if( idomain .eq.  180 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.1570796326794897D+01
        rk1r = 0.3769911184307752D+02
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  93
        err = 0.4127330233019631D-13
        xs(  1) = 0.5962230205236427D+00
        xs(  2) = 0.1368199684514915D+01
        xs(  3) = 0.2143830404903708D+01
        xs(  4) = 0.2919072952589658D+01
        xs(  5) = 0.3692785611691369D+01
        xs(  6) = 0.4464276856631617D+01
        xs(  7) = 0.5232988268257659D+01
        xs(  8) = 0.5998421061612523D+01
        xs(  9) = 0.6760113448590831D+01
        xs( 10) = 0.7517632333093664D+01
        xs( 11) = 0.8270569776442768D+01
        xs( 12) = 0.9018541163537620D+01
        xs( 13) = 0.9761183947617264D+01
        xs( 14) = 0.1049815653437447D+02
        xs( 15) = 0.1122913713467297D+02
        xs( 16) = 0.1195382252929574D+02
        xs( 17) = 0.1267192673957504D+02
        xs( 18) = 0.1338317961954809D+02
        xs( 19) = 0.1408732539340694D+02
        xs( 20) = 0.1478412116339487D+02
        xs( 21) = 0.1547333541139622D+02
        xs( 22) = 0.1615474651409462D+02
        xs( 23) = 0.1682814128773749D+02
        xs( 24) = 0.1749331357479717D+02
        xs( 25) = 0.1815006288146642D+02
        xs( 26) = 0.1879819307212102D+02
        xs( 27) = 0.1943751112469636D+02
        xs( 28) = 0.2006782594937927D+02
        xs( 29) = 0.2068894727211470D+02
        xs( 30) = 0.2130068458416935D+02
        xs( 31) = 0.2190284615939447D+02
        xs( 32) = 0.2249523814192523D+02
        xs( 33) = 0.2307766370891627D+02
        xs( 34) = 0.2364992231565894D+02
        xs( 35) = 0.2421180903423342D+02
        xs( 36) = 0.2476311400196707D+02
        xs( 37) = 0.2530362200274532D+02
        xs( 38) = 0.2583311221311639D+02
        xs( 39) = 0.2635135815675973D+02
        xs( 40) = 0.2685812792604774D+02
        xs( 41) = 0.2735318474914136D+02
        xs( 42) = 0.2783628800659452D+02
        xs( 43) = 0.2830719483433368D+02
        xs( 44) = 0.2876566249186543D+02
        xs( 45) = 0.2921145172740894D+02
        xs( 46) = 0.2964433143667226D+02
        xs( 47) = 0.3006408498910210D+02
        xs( 48) = 0.3047051868119353D+02
        xs( 49) = 0.3086347286042522D+02
        xs( 50) = 0.3124283632168994D+02
        xs( 51) = 0.3160856456247432D+02
        xs( 52) = 0.3196070230444133D+02
        xs( 53) = 0.3229941019725250D+02
        xs( 54) = 0.3262499459222920D+02
        xs( 55) = 0.3293793745116703D+02
        xs( 56) = 0.3323892073525451D+02
        xs( 57) = 0.3352883652510859D+02
        xs( 58) = 0.3380877250407307D+02
        xs( 59) = 0.3407996552174810D+02
        xs( 60) = 0.3434372602483327D+02
        xs( 61) = 0.3460134994370223D+02
        xs( 62) = 0.3485404250930302D+02
        xs( 63) = 0.3510287323208930D+02
        xs( 64) = 0.3534876778497334D+02
        xs( 65) = 0.3559253257455858D+02
        xs( 66) = 0.3583490632553326D+02
        xs( 67) = 0.3607663597552503D+02
        xs( 68) = 0.3631857659411323D+02
        xs( 69) = 0.3656181549239474D+02
        xs( 70) = 0.3680781888561262D+02
        xs( 71) = 0.3705859409138616D+02
        xs( 72) = 0.3731685467705416D+02
        xs( 73) = 0.3758617516211003D+02
        xs( 74) = 0.3787111245833249D+02
        xs( 75) = 0.3817723200152079D+02
        xs( 76) = 0.3851093054356582D+02
        xs( 77) = 0.3887897382281146D+02
        xs( 78) = 0.3928780723389185D+02
        xs( 79) = 0.3974284909778923D+02
        xs( 80) = 0.4024798480888329D+02
        xs( 81) = 0.4080535357285429D+02
        xs( 82) = 0.4141540388304418D+02
        xs( 83) = 0.4207715373367302D+02
        xs( 84) = 0.4278857970732857D+02
        xs( 85) = 0.4354704956107724D+02
        xs( 86) = 0.4434972484184042D+02
        xs( 87) = 0.4519389181485593D+02
        xs( 88) = 0.4607724733457124D+02
        xs( 89) = 0.4699821973658782D+02
        xs( 90) = 0.4795553095842976D+02
        xs( 91) = 0.4895015037744015D+02
        xs( 92) = 0.5001027331374282D+02
        xs( 93) = 0.5111185905115461D+02
        ws(  1) = 0.7649505542998603D+00
        ws(  2) = 0.7750980466374502D+00
        ws(  3) = 0.7757025605254259D+00
        ws(  4) = 0.7746115398762708D+00
        ws(  5) = 0.7727021118249277D+00
        ws(  6) = 0.7701882658442625D+00
        ws(  7) = 0.7671517429484367D+00
        ws(  8) = 0.7636369998306174D+00
        ws(  9) = 0.7596756443288198D+00
        ws( 10) = 0.7552941631761571D+00
        ws( 11) = 0.7505166410139320D+00
        ws( 12) = 0.7453657269590384D+00
        ws( 13) = 0.7398629278244857D+00
        ws( 14) = 0.7340286347502544D+00
        ws( 15) = 0.7278820515089107D+00
        ws( 16) = 0.7214410981484544D+00
        ws( 17) = 0.7147223225199391D+00
        ws( 18) = 0.7077408330491086D+00
        ws( 19) = 0.7005102567301184D+00
        ws( 20) = 0.6930427216786309D+00
        ws( 21) = 0.6853488613876902D+00
        ws( 22) = 0.6774378369603975D+00
        ws( 23) = 0.6693173734601605D+00
        ws( 24) = 0.6609938067927538D+00
        ws( 25) = 0.6524721380242188D+00
        ws( 26) = 0.6437560926326655D+00
        ws( 27) = 0.6348481828267434D+00
        ws( 28) = 0.6257497717074753D+00
        ws( 29) = 0.6164611386930077D+00
        ws( 30) = 0.6069815462737880D+00
        ws( 31) = 0.5973093088371197D+00
        ws( 32) = 0.5874418650242669D+00
        ws( 33) = 0.5773758559002593D+00
        ws( 34) = 0.5671072121781724D+00
        ws( 35) = 0.5566312549118124D+00
        ws( 36) = 0.5459428155370069D+00
        ws( 37) = 0.5350363830077638D+00
        ws( 38) = 0.5239062881727248D+00
        ws( 39) = 0.5125469386357587D+00
        ws( 40) = 0.5009531213459500D+00
        ws( 41) = 0.4891203953054498D+00
        ws( 42) = 0.4770456033318906D+00
        ws( 43) = 0.4647275400134430D+00
        ws( 44) = 0.4521678229931565D+00
        ws( 45) = 0.4393720263684232D+00
        ws( 46) = 0.4263511474802283D+00
        ws( 47) = 0.4131234895225372D+00
        ws( 48) = 0.3997170474223197D+00
        ws( 49) = 0.3861724736926227D+00
        ws( 50) = 0.3725466563996855D+00
        ws( 51) = 0.3589168313892087D+00
        ws( 52) = 0.3453849246698822D+00
        ws( 53) = 0.3320814078098254D+00
        ws( 54) = 0.3191672813462186D+00
        ws( 55) = 0.3068319014937896D+00
        ws( 56) = 0.2952835681780110D+00
        ws( 57) = 0.2847300705305387D+00
        ws( 58) = 0.2753493304448306D+00
        ws( 59) = 0.2672566459036752D+00
        ws( 60) = 0.2604816681295688D+00
        ws( 61) = 0.2549678032917663D+00
        ws( 62) = 0.2505957006876129D+00
        ws( 63) = 0.2472195989594069D+00
        ws( 64) = 0.2447030423208633D+00
        ws( 65) = 0.2429483929309872D+00
        ws( 66) = 0.2419219342983240D+00
        ws( 67) = 0.2416778067349607D+00
        ws( 68) = 0.2423821886195784D+00
        ws( 69) = 0.2443372401094914D+00
        ws( 70) = 0.2480013167682858D+00
        ws( 71) = 0.2539987389643590D+00
        ws( 72) = 0.2631160225064060D+00
        ws( 73) = 0.2762837097037056D+00
        ws( 74) = 0.2945211549539856D+00
        ws( 75) = 0.3187918888036913D+00
        ws( 76) = 0.3497448798265816D+00
        ws( 77) = 0.3874282777233503D+00
        ws( 78) = 0.4311502321760749D+00
        ws( 79) = 0.4795845174470031D+00
        ws( 80) = 0.5310423562869084D+00
        ws( 81) = 0.5837654041592621D+00
        ws( 82) = 0.6361648564248059D+00
        ws( 83) = 0.6869902136142069D+00
        ws( 84) = 0.7354160598731166D+00
        ws( 85) = 0.7810448696119572D+00
        ws( 86) = 0.8238519637983625D+00
        ws( 87) = 0.8640968254326981D+00
        ws( 88) = 0.9022565454449420D+00
        ws( 89) = 0.9395610956721231D+00
        ws( 90) = 0.9778176233524911D+00
        ws( 91) = 0.1002711146238379D+01
        ws( 92) = 0.1093197500524457D+01
        ws( 93) = 0.1510543881458761D+01
        endif
        if( idomain .eq.  181 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.1570796326794897D+01
        rk1r = 0.4084070449666731D+02
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  98
        err = 0.7317056632982575D-13
        xs(  1) = 0.5463554244895619D+00
        xs(  2) = 0.1262048634900021D+01
        xs(  3) = 0.1995470997659948D+01
        xs(  4) = 0.2742387906097133D+01
        xs(  5) = 0.3498672393854587D+01
        xs(  6) = 0.4260673256375599D+01
        xs(  7) = 0.5025630098147710D+01
        xs(  8) = 0.5791543512478678D+01
        xs(  9) = 0.6556950305941821D+01
        xs( 10) = 0.7320745754223336D+01
        xs( 11) = 0.8082064670719340D+01
        xs( 12) = 0.8840205478038420D+01
        xs( 13) = 0.9594581929264125D+01
        xs( 14) = 0.1034469195174567D+02
        xs( 15) = 0.1109009704373717D+02
        xs( 16) = 0.1183040823452515D+02
        xs( 17) = 0.1256527619105055D+02
        xs( 18) = 0.1329438399459436D+02
        xs( 19) = 0.1401744167419702D+02
        xs( 20) = 0.1473418192364654D+02
        xs( 21) = 0.1544435663687117D+02
        xs( 22) = 0.1614773402541289D+02
        xs( 23) = 0.1684409616247787D+02
        xs( 24) = 0.1753323684936826D+02
        xs( 25) = 0.1821495973305233D+02
        xs( 26) = 0.1888907662504378D+02
        xs( 27) = 0.1955540598586122D+02
        xs( 28) = 0.2021377154877376D+02
        xs( 29) = 0.2086400106298976D+02
        xs( 30) = 0.2150592514099049D+02
        xs( 31) = 0.2213937619804846D+02
        xs( 32) = 0.2276418747456268D+02
        xs( 33) = 0.2338019213400125D+02
        xs( 34) = 0.2398722243118364D+02
        xs( 35) = 0.2458510894752598D+02
        xs( 36) = 0.2517367989184551D+02
        xs( 37) = 0.2575276046750209D+02
        xs( 38) = 0.2632217230917254D+02
        xs( 39) = 0.2688173299555678D+02
        xs( 40) = 0.2743125564797952D+02
        xs( 41) = 0.2797054862940180D+02
        xs( 42) = 0.2849941536407620D+02
        xs( 43) = 0.2901765430533636D+02
        xs( 44) = 0.2952505908827543D+02
        xs( 45) = 0.3002141891594937D+02
        xs( 46) = 0.3050651924301160D+02
        xs( 47) = 0.3098014284031740D+02
        xs( 48) = 0.3144207134921888D+02
        xs( 49) = 0.3189208746639224D+02
        xs( 50) = 0.3232997794059993D+02
        xs( 51) = 0.3275553761313223D+02
        xs( 52) = 0.3316857479438723D+02
        xs( 53) = 0.3356891833872607D+02
        xs( 54) = 0.3395642685253721D+02
        xs( 55) = 0.3433100053154736D+02
        xs( 56) = 0.3469259614110809D+02
        xs( 57) = 0.3504124556606627D+02
        xs( 58) = 0.3537707805628760D+02
        xs( 59) = 0.3570034560854626D+02
        xs( 60) = 0.3601144963304365D+02
        xs( 61) = 0.3631096498168337D+02
        xs( 62) = 0.3659965473892390D+02
        xs( 63) = 0.3687846695635808D+02
        xs( 64) = 0.3714850513706756D+02
        xs( 65) = 0.3741097054766372D+02
        xs( 66) = 0.3766708618318890D+02
        xs( 67) = 0.3791802304255904D+02
        xs( 68) = 0.3816485010729627D+02
        xs( 69) = 0.3840851826255586D+02
        xs( 70) = 0.3864987507687654D+02
        xs( 71) = 0.3888970260840718D+02
        xs( 72) = 0.3912877451876643D+02
        xs( 73) = 0.3936793466143250D+02
        xs( 74) = 0.3960820160405183D+02
        xs( 75) = 0.3985090017089979D+02
        xs( 76) = 0.4009781001750259D+02
        xs( 77) = 0.4035130617080886D+02
        xs( 78) = 0.4061446477117998D+02
        xs( 79) = 0.4089112282314121D+02
        xs( 80) = 0.4118588164770449D+02
        xs( 81) = 0.4150401999065418D+02
        xs( 82) = 0.4185127775374084D+02
        xs( 83) = 0.4223350929752308D+02
        xs( 84) = 0.4265625395854902D+02
        xs( 85) = 0.4312428902280896D+02
        xs( 86) = 0.4364122888118152D+02
        xs( 87) = 0.4420925241558887D+02
        xs( 88) = 0.4482904379717136D+02
        xs( 89) = 0.4549996786444069D+02
        xs( 90) = 0.4622041245093862D+02
        xs( 91) = 0.4698819402953282D+02
        xs( 92) = 0.4780095123801249D+02
        xs( 93) = 0.4865651173019714D+02
        xs( 94) = 0.4955327900490207D+02
        xs( 95) = 0.5049070949761858D+02
        xs( 96) = 0.5146917129635365D+02
        xs( 97) = 0.5250793732842387D+02
        xs( 98) = 0.5359583819095309D+02
        ws(  1) = 0.7033828409722939D+00
        ws(  2) = 0.7254087621639727D+00
        ws(  3) = 0.7408432790385679D+00
        ws(  4) = 0.7522781785819419D+00
        ws(  5) = 0.7596771311253057D+00
        ws(  6) = 0.7638677609358266D+00
        ws(  7) = 0.7657166753746562D+00
        ws(  8) = 0.7658692443263678D+00
        ws(  9) = 0.7647621587625403D+00
        ws( 10) = 0.7626857682283025D+00
        ws( 11) = 0.7598359153542310D+00
        ws( 12) = 0.7563484956726704D+00
        ws( 13) = 0.7523210622880657D+00
        ws( 14) = 0.7478261275345635D+00
        ws( 15) = 0.7429193895131044D+00
        ws( 16) = 0.7376448881843638D+00
        ws( 17) = 0.7320382948748040D+00
        ws( 18) = 0.7261290542635782D+00
        ws( 19) = 0.7199418111053877D+00
        ws( 20) = 0.7134973844647629D+00
        ws( 21) = 0.7068134512662116D+00
        ws( 22) = 0.6999050400791704D+00
        ws( 23) = 0.6927848988591327D+00
        ws( 24) = 0.6854637773517575D+00
        ws( 25) = 0.6779506504662153D+00
        ws( 26) = 0.6702528998275143D+00
        ws( 27) = 0.6623764649297700D+00
        ws( 28) = 0.6543259716129419D+00
        ws( 29) = 0.6461048432184967D+00
        ws( 30) = 0.6377153982723828D+00
        ws( 31) = 0.6291589375984891D+00
        ws( 32) = 0.6204358231951949D+00
        ws( 33) = 0.6115455508943370D+00
        ws( 34) = 0.6024868186947799D+00
        ws( 35) = 0.5932575926814049D+00
        ws( 36) = 0.5838551725861386D+00
        ws( 37) = 0.5742762593180990D+00
        ws( 38) = 0.5645170271968539D+00
        ws( 39) = 0.5545732041897845D+00
        ws( 40) = 0.5444401642196235D+00
        ws( 41) = 0.5341130366236871D+00
        ws( 42) = 0.5235868391838900D+00
        ws( 43) = 0.5128566428990097D+00
        ws( 44) = 0.5019177789579164D+00
        ws( 45) = 0.4907661013449190D+00
        ws( 46) = 0.4793983223491456D+00
        ws( 47) = 0.4678124431686663D+00
        ws( 48) = 0.4560083080151475D+00
        ws( 49) = 0.4439883178104369D+00
        ws( 50) = 0.4317583487373875D+00
        ws( 51) = 0.4193289311850192D+00
        ws( 52) = 0.4067167547803070D+00
        ws( 53) = 0.3939465722683113D+00
        ws( 54) = 0.3810535727325825D+00
        ws( 55) = 0.3680862707965790D+00
        ws( 56) = 0.3551098906175812D+00
        ws( 57) = 0.3422100738322518D+00
        ws( 58) = 0.3294964525932479D+00
        ws( 59) = 0.3171051373716402D+00
        ws( 60) = 0.3051984517088176D+00
        ws( 61) = 0.2939594587913387D+00
        ws( 62) = 0.2835785489082316D+00
        ws( 63) = 0.2742307880099512D+00
        ws( 64) = 0.2660471055780404D+00
        ws( 65) = 0.2590888336465974D+00
        ws( 66) = 0.2533384629226578D+00
        ws( 67) = 0.2487136755668629D+00
        ws( 68) = 0.2450986656516797D+00
        ws( 69) = 0.2423782669272536D+00
        ws( 70) = 0.2404647597613264D+00
        ws( 71) = 0.2393179498256348D+00
        ws( 72) = 0.2389647768784732D+00
        ws( 73) = 0.2395230569274006D+00
        ws( 74) = 0.2412290905272101D+00
        ws( 75) = 0.2444622347781062D+00
        ws( 76) = 0.2497515150260983D+00
        ws( 77) = 0.2577524776889211D+00
        ws( 78) = 0.2692040750188087D+00
        ws( 79) = 0.2848802485017946D+00
        ws( 80) = 0.3055207883335690D+00
        ws( 81) = 0.3317184569711513D+00
        ws( 82) = 0.3637801216795346D+00
        ws( 83) = 0.4016137734776511D+00
        ws( 84) = 0.4446786422384233D+00
        ws( 85) = 0.4919986698896322D+00
        ws( 86) = 0.5422452416245341D+00
        ws( 87) = 0.5939127459495473D+00
        ws( 88) = 0.6455581831278639D+00
        ws( 89) = 0.6960141212052078D+00
        ws( 90) = 0.7445048588138713D+00
        ws( 91) = 0.7906606540263323D+00
        ws( 92) = 0.8344820638972288D+00
        ws( 93) = 0.8763328744715195D+00
        ws( 94) = 0.9170676276545978D+00
        ws( 95) = 0.9589176929748000D+00
        ws( 96) = 0.9975526099990446D+00
        ws( 97) = 0.1047209725161365D+01
        ws( 98) = 0.1505586476337062D+01
        endif
        if( idomain .eq.  182 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.1570796326794897D+01
        rk1r = 0.4398229715025710D+02
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n = 101
        err = 0.9031585154206414D-13
        xs(  1) = 0.6134674513199375D+00
        xs(  2) = 0.1407847028848789D+01
        xs(  3) = 0.2206165282692029D+01
        xs(  4) = 0.3004363603870876D+01
        xs(  5) = 0.3801365426020937D+01
        xs(  6) = 0.4596554368924084D+01
        xs(  7) = 0.5389447412184661D+01
        xs(  8) = 0.6179618859430426D+01
        xs(  9) = 0.6966676750405244D+01
        xs( 10) = 0.7750254162387662D+01
        xs( 11) = 0.8530005554629273D+01
        xs( 12) = 0.9305604984831490D+01
        xs( 13) = 0.1007674502692253D+02
        xs( 14) = 0.1084313592016105D+02
        xs( 15) = 0.1160450475535946D+02
        xs( 16) = 0.1236059462209979D+02
        xs( 17) = 0.1311116369411402D+02
        xs( 18) = 0.1385598425438420D+02
        xs( 19) = 0.1459484167213171D+02
        xs( 20) = 0.1532753334762682D+02
        xs( 21) = 0.1605386764104664D+02
        xs( 22) = 0.1677366280019480D+02
        xs( 23) = 0.1748674589971997D+02
        xs( 24) = 0.1819295180205599D+02
        xs( 25) = 0.1889212214794633D+02
        xs( 26) = 0.1958410438226255D+02
        xs( 27) = 0.2026875081895553D+02
        xs( 28) = 0.2094591774741552D+02
        xs( 29) = 0.2161546458126115D+02
        xs( 30) = 0.2227725304961117D+02
        xs( 31) = 0.2293114643019382D+02
        xs( 32) = 0.2357700882319078D+02
        xs( 33) = 0.2421470446447488D+02
        xs( 34) = 0.2484409707686265D+02
        xs( 35) = 0.2546504925815514D+02
        xs( 36) = 0.2607742190507689D+02
        xs( 37) = 0.2668107367274980D+02
        xs( 38) = 0.2727586047007095D+02
        xs( 39) = 0.2786163499232890D+02
        xs( 40) = 0.2843824629363561D+02
        xs( 41) = 0.2900553940333070D+02
        xs( 42) = 0.2956335499251786D+02
        xs( 43) = 0.3011152909943017D+02
        xs( 44) = 0.3064989292554607D+02
        xs( 45) = 0.3117827271848429D+02
        xs( 46) = 0.3169648976295614D+02
        xs( 47) = 0.3220436050777938D+02
        xs( 48) = 0.3270169686559349D+02
        xs( 49) = 0.3318830673301096D+02
        xs( 50) = 0.3366399479318750D+02
        xs( 51) = 0.3412856368104609D+02
        xs( 52) = 0.3458181561465690D+02
        xs( 53) = 0.3502355462567824D+02
        xs( 54) = 0.3545358955840292D+02
        xs( 55) = 0.3587173805158458D+02
        xs( 56) = 0.3627783176959213D+02
        xs( 57) = 0.3667172320701493D+02
        xs( 58) = 0.3705329444639650D+02
        xs( 59) = 0.3742246828623395D+02
        xs( 60) = 0.3777922214404898D+02
        xs( 61) = 0.3812360502015180D+02
        xs( 62) = 0.3845575748800262D+02
        xs( 63) = 0.3877593402135239D+02
        xs( 64) = 0.3908452582413834D+02
        xs( 65) = 0.3938208063476949D+02
        xs( 66) = 0.3966931401164985D+02
        xs( 67) = 0.3994710531333215D+02
        xs( 68) = 0.4021647254531283D+02
        xs( 69) = 0.4047852474669738D+02
        xs( 70) = 0.4073439807461908D+02
        xs( 71) = 0.4098518915586072D+02
        xs( 72) = 0.4123190248622610D+02
        xs( 73) = 0.4147542544337572D+02
        xs( 74) = 0.4171653687018532D+02
        xs( 75) = 0.4195594780742472D+02
        xs( 76) = 0.4219436836631434D+02
        xs( 77) = 0.4243259325338277D+02
        xs( 78) = 0.4267160096367582D+02
        xs( 79) = 0.4291266529501110D+02
        xs( 80) = 0.4315747533952956D+02
        xs( 81) = 0.4340825224948480D+02
        xs( 82) = 0.4366784792541282D+02
        xs( 83) = 0.4393981448233673D+02
        xs( 84) = 0.4422843061074361D+02
        xs( 85) = 0.4453866000176058D+02
        xs( 86) = 0.4487602224586267D+02
        xs( 87) = 0.4524637676062733D+02
        xs( 88) = 0.4565561558019461D+02
        xs( 89) = 0.4610923724460363D+02
        xs( 90) = 0.4661181780157322D+02
        xs( 91) = 0.4716652512199390D+02
        xs( 92) = 0.4777488031869732D+02
        xs( 93) = 0.4843685378506652D+02
        xs( 94) = 0.4915122064309042D+02
        xs( 95) = 0.4991602842128440D+02
        xs( 96) = 0.5072906694058441D+02
        xs( 97) = 0.5158821569028378D+02
        xs( 98) = 0.5249325135807370D+02
        xs( 99) = 0.5343766819483514D+02
        xs(100) = 0.5442585665383303D+02
        xs(101) = 0.5556674266357888D+02
        ws(  1) = 0.7870947709270123D+00
        ws(  2) = 0.7976637875295550D+00
        ws(  3) = 0.7985153238881165D+00
        ws(  4) = 0.7977217510982534D+00
        ws(  5) = 0.7961828642806589D+00
        ws(  6) = 0.7941155108010693D+00
        ws(  7) = 0.7915999567702421D+00
        ws(  8) = 0.7886777377983883D+00
        ws(  9) = 0.7853769450614596D+00
        ws( 10) = 0.7817203161138319D+00
        ws( 11) = 0.7777281617081870D+00
        ws( 12) = 0.7734194747897635D+00
        ws( 13) = 0.7688123293395249D+00
        ws( 14) = 0.7639239864418682D+00
        ws( 15) = 0.7587708808042678D+00
        ws( 16) = 0.7533685645781923D+00
        ws( 17) = 0.7477316437033226D+00
        ws( 18) = 0.7418737226663720D+00
        ws( 19) = 0.7358073640949376D+00
        ws( 20) = 0.7295440648263092D+00
        ws( 21) = 0.7230942476845942D+00
        ws( 22) = 0.7164672670561447D+00
        ws( 23) = 0.7096714259045761D+00
        ws( 24) = 0.7027140018034096D+00
        ws( 25) = 0.6956012797119745D+00
        ws( 26) = 0.6883385894752638D+00
        ws( 27) = 0.6809303463292712D+00
        ws( 28) = 0.6733800930043184D+00
        ws( 29) = 0.6656905423188632D+00
        ws( 30) = 0.6578636194352219D+00
        ws( 31) = 0.6499005032030294D+00
        ws( 32) = 0.6418016662458307D+00
        ws( 33) = 0.6335669136555846D+00
        ws( 34) = 0.6251954203535370D+00
        ws( 35) = 0.6166857673617580D+00
        ws( 36) = 0.6080359774154916D+00
        ws( 37) = 0.5992435505422385D+00
        ws( 38) = 0.5903055004506842D+00
        ws( 39) = 0.5812183928249385D+00
        ws( 40) = 0.5719783869232407D+00
        ws( 41) = 0.5625812822561770D+00
        ws( 42) = 0.5530225725927638D+00
        ws( 43) = 0.5432975101467717D+00
        ws( 44) = 0.5334011835715364D+00
        ws( 45) = 0.5233286143928227D+00
        ws( 46) = 0.5130748778043295D+00
        ws( 47) = 0.5026352554255579D+00
        ws( 48) = 0.4920054297842954D+00
        ws( 49) = 0.4811817330668570D+00
        ws( 50) = 0.4701614662305911D+00
        ws( 51) = 0.4589433090580424D+00
        ws( 52) = 0.4475278472959133D+00
        ws( 53) = 0.4359182497307286D+00
        ws( 54) = 0.4241211357635796D+00
        ws( 55) = 0.4121476821612326D+00
        ws( 56) = 0.4000150246676708D+00
        ws( 57) = 0.3877480128053912D+00
        ws( 58) = 0.3753813680790407D+00
        ws( 59) = 0.3629622651699511D+00
        ws( 60) = 0.3505532825615167D+00
        ws( 61) = 0.3382355223092634D+00
        ws( 62) = 0.3261114369438000D+00
        ws( 63) = 0.3143064870561882D+00
        ws( 64) = 0.3029682030997012D+00
        ws( 65) = 0.2922607294646847D+00
        ws( 66) = 0.2823529987160887D+00
        ws( 67) = 0.2734000803767578D+00
        ws( 68) = 0.2655203228072896D+00
        ws( 69) = 0.2587745931670911D+00
        ws( 70) = 0.2531557447938157D+00
        ws( 71) = 0.2485942639590130D+00
        ws( 72) = 0.2449801452301695D+00
        ws( 73) = 0.2421948820403259D+00
        ws( 74) = 0.2401453441457542D+00
        ws( 75) = 0.2387934437471349D+00
        ws( 76) = 0.2381784719831699D+00
        ws( 77) = 0.2384325201152230D+00
        ws( 78) = 0.2397931698181264D+00
        ws( 79) = 0.2426150222272757D+00
        ws( 80) = 0.2473735907398189D+00
        ws( 81) = 0.2546543621631912D+00
        ws( 82) = 0.2651285013133340D+00
        ws( 83) = 0.2795183629269282D+00
        ws( 84) = 0.2985433426853837D+00
        ws( 85) = 0.3228389791697803D+00
        ws( 86) = 0.3528671022595048D+00
        ws( 87) = 0.3888310169730434D+00
        ws( 88) = 0.4305722437834548D+00
        ws( 89) = 0.4774424363180188D+00
        ws( 90) = 0.5282508538283845D+00
        ws( 91) = 0.5814154757554779D+00
        ws( 92) = 0.6352836378681423D+00
        ws( 93) = 0.6884515001129222D+00
        ws( 94) = 0.7399486539945164D+00
        ws( 95) = 0.7892831658198384D+00
        ws( 96) = 0.8364948670588414D+00
        ws( 97) = 0.8814454488609380D+00
        ws( 98) = 0.9263936896324279D+00
        ws( 99) = 0.9912155256877704D+00
        ws(100) = 0.8431518042483624D+00
        ws(101) = 0.1950452529886212D+01
        endif
        if( idomain .eq.  183 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.1570796326794897D+01
        rk1r = 0.4712388980384689D+02
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n = 105
        err = 0.2906492829800488D-13
        xs(  1) = 0.6206143341009237D+00
        xs(  2) = 0.1424276264648947D+01
        xs(  3) = 0.2231989043963465D+01
        xs(  4) = 0.3039684086005903D+01
        xs(  5) = 0.3846308792280560D+01
        xs(  6) = 0.4651275090338394D+01
        xs(  7) = 0.5454128601732983D+01
        xs(  8) = 0.6254471563981172D+01
        xs(  9) = 0.7051938856698113D+01
        xs( 10) = 0.7846189135980235D+01
        xs( 11) = 0.8636901113988785D+01
        xs( 12) = 0.9423771772138227D+01
        xs( 13) = 0.1020651531873113D+02
        xs( 14) = 0.1098486241018709D+02
        xs( 15) = 0.1175855943378950D+02
        xs( 16) = 0.1252736776946030D+02
        xs( 17) = 0.1329106300237132D+02
        xs( 18) = 0.1404943408340893D+02
        xs( 19) = 0.1480228244587768D+02
        xs( 20) = 0.1554942109129678D+02
        xs( 21) = 0.1629067365809163D+02
        xs( 22) = 0.1702587348615461D+02
        xs( 23) = 0.1775486268858349D+02
        xs( 24) = 0.1847749123992367D+02
        xs( 25) = 0.1919361608823065D+02
        xs( 26) = 0.1990310029638921D+02
        xs( 27) = 0.2060581221645412D+02
        xs( 28) = 0.2130162469934671D+02
        xs( 29) = 0.2199041434105481D+02
        xs( 30) = 0.2267206076553073D+02
        xs( 31) = 0.2334644594374129D+02
        xs( 32) = 0.2401345354777427D+02
        xs( 33) = 0.2467296833852211D+02
        xs( 34) = 0.2532487558522648D+02
        xs( 35) = 0.2596906051505761D+02
        xs( 36) = 0.2660540779090620D+02
        xs( 37) = 0.2723380101567388D+02
        xs( 38) = 0.2785412226155615D+02
        xs( 39) = 0.2846625162312026D+02
        xs( 40) = 0.2907006679339740D+02
        xs( 41) = 0.2966544266274672D+02
        xs( 42) = 0.3025225094093207D+02
        xs( 43) = 0.3083035980371136D+02
        xs( 44) = 0.3139963356631788D+02
        xs( 45) = 0.3195993238757192D+02
        xs( 46) = 0.3251111201007654D+02
        xs( 47) = 0.3305302354412618D+02
        xs( 48) = 0.3358551330572270D+02
        xs( 49) = 0.3410842272262272D+02
        xs( 50) = 0.3462158832685604D+02
        xs( 51) = 0.3512484185794279D+02
        xs( 52) = 0.3561801050846784D+02
        xs( 53) = 0.3610091735321379D+02
        xs( 54) = 0.3657338201530550D+02
        xs( 55) = 0.3703522163852235D+02
        xs( 56) = 0.3748625225499241D+02
        xs( 57) = 0.3792629066295445D+02
        xs( 58) = 0.3835515696131468D+02
        xs( 59) = 0.3877267792741859D+02
        xs( 60) = 0.3917869147244086D+02
        xs( 61) = 0.3957305246444845D+02
        xs( 62) = 0.3995564026903626D+02
        xs( 63) = 0.4032636841209883D+02
        xs( 64) = 0.4068519679797493D+02
        xs( 65) = 0.4103214687696912D+02
        xs( 66) = 0.4136731997054896D+02
        xs( 67) = 0.4169091849448291D+02
        xs( 68) = 0.4200326886678141D+02
        xs( 69) = 0.4230484323693508D+02
        xs( 70) = 0.4259627484361648D+02
        xs( 71) = 0.4287835952626573D+02
        xs( 72) = 0.4315203554729560D+02
        xs( 73) = 0.4341833792329947D+02
        xs( 74) = 0.4367833274608001D+02
        xs( 75) = 0.4393304776705617D+02
        xs( 76) = 0.4418342020512825D+02
        xs( 77) = 0.4443027629176067D+02
        xs( 78) = 0.4467434341373843D+02
        xs( 79) = 0.4491628547311178D+02
        xs( 80) = 0.4515675219028059D+02
        xs( 81) = 0.4539643965169598D+02
        xs( 82) = 0.4563616365246341D+02
        xs( 83) = 0.4587694640233836D+02
        xs( 84) = 0.4612011576131401D+02
        xs( 85) = 0.4636742052218230D+02
        xs( 86) = 0.4662117335086710D+02
        xs( 87) = 0.4688442962265057D+02
        xs( 88) = 0.4716118024804137D+02
        xs( 89) = 0.4745648479632517D+02
        xs( 90) = 0.4777642734465196D+02
        xs( 91) = 0.4812779016043999D+02
        xs( 92) = 0.4851745206579663D+02
        xs( 93) = 0.4895168087097567D+02
        xs( 94) = 0.4943554746744864D+02
        xs( 95) = 0.4997258210570885D+02
        xs( 96) = 0.5056466981272644D+02
        xs( 97) = 0.5121216200730036D+02
        xs( 98) = 0.5191419315445073D+02
        xs( 99) = 0.5266918232892165D+02
        xs(100) = 0.5347544273392056D+02
        xs(101) = 0.5433174639253277D+02
        xs(102) = 0.5523830323059121D+02
        xs(103) = 0.5619823134196115D+02
        xs(104) = 0.5723910213813438D+02
        xs(105) = 0.5836936815061314D+02
        ws(  1) = 0.7962717087297758D+00
        ws(  2) = 0.8070112721983242D+00
        ws(  3) = 0.8079577825669256D+00
        ws(  4) = 0.8072769640445590D+00
        ws(  5) = 0.8058781839874982D+00
        ws(  6) = 0.8039796892407520D+00
        ws(  7) = 0.8016613759492579D+00
        ws(  8) = 0.7989638245030578D+00
        ws(  9) = 0.7959139259767380D+00
        ws( 10) = 0.7925331119649565D+00
        ws( 11) = 0.7888403573210117D+00
        ws( 12) = 0.7848533395801053D+00
        ws( 13) = 0.7805888747893447D+00
        ws( 14) = 0.7760630515834009D+00
        ws( 15) = 0.7712912387294238D+00
        ws( 16) = 0.7662880441555507D+00
        ws( 17) = 0.7610672615677223D+00
        ws( 18) = 0.7556418213284971D+00
        ws( 19) = 0.7500237527485439D+00
        ws( 20) = 0.7442241601115670D+00
        ws( 21) = 0.7382532122867642D+00
        ws( 22) = 0.7321201445688273D+00
        ws( 23) = 0.7258332708583167D+00
        ws( 24) = 0.7194000041514977D+00
        ws( 25) = 0.7128268833763800D+00
        ws( 26) = 0.7061196047908983D+00
        ws( 27) = 0.6992830563895299D+00
        ws( 28) = 0.6923213540106091D+00
        ws( 29) = 0.6852378780774649D+00
        ws( 30) = 0.6780353101301496D+00
        ws( 31) = 0.6707156685067343D+00
        ws( 32) = 0.6632803427111723D+00
        ws( 33) = 0.6557301261607517D+00
        ws( 34) = 0.6480652471423677D+00
        ws( 35) = 0.6402853979265383D+00
        ws( 36) = 0.6323897620966398D+00
        ws( 37) = 0.6243770402514420D+00
        ws( 38) = 0.6162454743387961D+00
        ws( 39) = 0.6079928709812034D+00
        ws( 40) = 0.5996166242679948D+00
        ws( 41) = 0.5911137386203505D+00
        ws( 42) = 0.5824808524940797D+00
        ws( 43) = 0.5737142638809923D+00
        ws( 44) = 0.5648099588167704D+00
        ws( 45) = 0.5557636444177936D+00
        ws( 46) = 0.5465707883730141D+00
        ws( 47) = 0.5372266673358655D+00
        ws( 48) = 0.5277264273316671D+00
        ws( 49) = 0.5180651601609406D+00
        ws( 50) = 0.5082380008965178D+00
        ws( 51) = 0.4982402530148108D+00
        ws( 52) = 0.4880675495595896D+00
        ws( 53) = 0.4777160611248622D+00
        ws( 54) = 0.4671827644973365D+00
        ws( 55) = 0.4564657896746315D+00
        ws( 56) = 0.4455648678364945D+00
        ws( 57) = 0.4344819088306275D+00
        ws( 58) = 0.4232217438794654D+00
        ws( 59) = 0.4117930773074662D+00
        ws( 60) = 0.4002096993764173D+00
        ws( 61) = 0.3884920189143081D+00
        ws( 62) = 0.3766689752667258D+00
        ws( 63) = 0.3647803760585679D+00
        ws( 64) = 0.3528796648955256D+00
        ws( 65) = 0.3410370236856232D+00
        ws( 66) = 0.3293425111376626D+00
        ws( 67) = 0.3179085652893592D+00
        ws( 68) = 0.3068705964479919D+00
        ws( 69) = 0.2963836379210336D+00
        ws( 70) = 0.2866125401337474D+00
        ws( 71) = 0.2777139754359173D+00
        ws( 72) = 0.2698117053839831D+00
        ws( 73) = 0.2629719406408265D+00
        ws( 74) = 0.2571899047400751D+00
        ws( 75) = 0.2523966816690615D+00
        ws( 76) = 0.2484856698616739D+00
        ws( 77) = 0.2453471200991990D+00
        ws( 78) = 0.2428969476131144D+00
        ws( 79) = 0.2410944551680137D+00
        ws( 80) = 0.2399537728536464D+00
        ws( 81) = 0.2395556658784863D+00
        ws( 82) = 0.2400610556007979D+00
        ws( 83) = 0.2417238647637642D+00
        ws( 84) = 0.2449039684449986D+00
        ws( 85) = 0.2500879753110488D+00
        ws( 86) = 0.2579235202024974D+00
        ws( 87) = 0.2692516550557262D+00
        ws( 88) = 0.2850932972859841D+00
        ws( 89) = 0.3065352338510509D+00
        ws( 90) = 0.3344907203912472D+00
        ws( 91) = 0.3693938052928174D+00
        ws( 92) = 0.4109846962987241D+00
        ws( 93) = 0.4583237175846767D+00
        ws( 94) = 0.5099995326450270D+00
        ws( 95) = 0.5643820495292580D+00
        ws( 96) = 0.6198465767025341D+00
        ws( 97) = 0.6749851828496856D+00
        ws( 98) = 0.7288040950405485D+00
        ws( 99) = 0.7808780868978012D+00
        ws(100) = 0.8314257971413389D+00
        ws(101) = 0.8811653207337924D+00
        ws(102) = 0.9334104176911431D+00
        ws(103) = 0.9860340681916642D+00
        ws(104) = 0.1067467235217045D+01
        ws(105) = 0.1588605164272514D+01
        endif
        if( idomain .eq.  184 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.1570796326794897D+01
        rk1r = 0.5026548245743669D+02
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n = 109
        err = 0.6606560243209487D-13
        xs(  1) = 0.6269297164063949D+00
        xs(  2) = 0.1438796098372197D+01
        xs(  3) = 0.2254817271202412D+01
        xs(  4) = 0.3070918385850276D+01
        xs(  5) = 0.3886070317901091D+01
        xs(  6) = 0.4699711976643678D+01
        xs(  7) = 0.5511415882569282D+01
        xs(  8) = 0.6320810137587619D+01
        xs(  9) = 0.7127554098999572D+01
        xs( 10) = 0.7931329372932425D+01
        xs( 11) = 0.8731836058064308D+01
        xs( 12) = 0.9528790988574166D+01
        xs( 13) = 0.1032192676711438D+02
        xs( 14) = 0.1111099109373857D+02
        xs( 15) = 0.1189574617856995D+02
        xs( 16) = 0.1267596814748558D+02
        xs( 17) = 0.1345144640590551D+02
        xs( 18) = 0.1422198295233988D+02
        xs( 19) = 0.1498739164595037D+02
        xs( 20) = 0.1574749743795663D+02
        xs( 21) = 0.1650213557862580D+02
        xs( 22) = 0.1725115081155759D+02
        xs( 23) = 0.1799439656595913D+02
        xs( 24) = 0.1873173415612259D+02
        xs( 25) = 0.1946303199567870D+02
        xs( 26) = 0.2018816483257738D+02
        xs( 27) = 0.2090701300923928D+02
        xs( 28) = 0.2161946175098060D+02
        xs( 29) = 0.2232540048465751D+02
        xs( 30) = 0.2302472218850924D+02
        xs( 31) = 0.2371732277338995D+02
        xs( 32) = 0.2440310049495668D+02
        xs( 33) = 0.2508195539590366D+02
        xs( 34) = 0.2575378877698648D+02
        xs( 35) = 0.2641850269534483D+02
        xs( 36) = 0.2707599948849423D+02
        xs( 37) = 0.2772618132230353D+02
        xs( 38) = 0.2836894976129404D+02
        xs( 39) = 0.2900420535968205D+02
        xs( 40) = 0.2963184727173345D+02
        xs( 41) = 0.3025177288020662D+02
        xs( 42) = 0.3086387744192983D+02
        xs( 43) = 0.3146805374989639D+02
        xs( 44) = 0.3206419181167687D+02
        xs( 45) = 0.3265217854445452D+02
        xs( 46) = 0.3323189748760975D+02
        xs( 47) = 0.3380322853453741D+02
        xs( 48) = 0.3436604768631225D+02
        xs( 49) = 0.3492022683096776D+02
        xs( 50) = 0.3546563355357974D+02
        xs( 51) = 0.3600213098412271D+02
        xs( 52) = 0.3652957769228907D+02
        xs( 53) = 0.3704782764124848D+02
        xs( 54) = 0.3755673021583213D+02
        xs( 55) = 0.3805613034504999D+02
        xs( 56) = 0.3854586874443718D+02
        xs( 57) = 0.3902578231079211D+02
        xs( 58) = 0.3949570471080769D+02
        xs( 59) = 0.3995546721639772D+02
        xs( 60) = 0.4040489985377593D+02
        xs( 61) = 0.4084383295125765D+02
        xs( 62) = 0.4127209919310737D+02
        xs( 63) = 0.4168953631434244D+02
        xs( 64) = 0.4209599060483861D+02
        xs( 65) = 0.4249132143041482D+02
        xs( 66) = 0.4287540702250135D+02
        xs( 67) = 0.4324815183234925D+02
        xs( 68) = 0.4360949578070958D+02
        xs( 69) = 0.4395942573916602D+02
        xs( 70) = 0.4429798951579171D+02
        xs( 71) = 0.4462531241587307D+02
        xs( 72) = 0.4494161599579219D+02
        xs( 73) = 0.4524723777313863D+02
        xs( 74) = 0.4554264926880275D+02
        xs( 75) = 0.4582846791126118D+02
        xs( 76) = 0.4610545664330161D+02
        xs( 77) = 0.4637450503566964D+02
        xs( 78) = 0.4663658936540718D+02
        xs( 79) = 0.4689271692929409D+02
        xs( 80) = 0.4714386813851920D+02
        xs( 81) = 0.4739095253995523D+02
        xs( 82) = 0.4763478961511650D+02
        xs( 83) = 0.4787611592755105D+02
        xs( 84) = 0.4811561291352720D+02
        xs( 85) = 0.4835394918494840D+02
        xs( 86) = 0.4859183774005538D+02
        xs( 87) = 0.4883011597953314D+02
        xs( 88) = 0.4906985724551895D+02
        xs( 89) = 0.4931251083483885D+02
        xs( 90) = 0.4956004854371675D+02
        xs( 91) = 0.4981509346159275D+02
        xs( 92) = 0.5008103216326056D+02
        xs( 93) = 0.5036212413070015D+02
        xs( 94) = 0.5066357564543272D+02
        xs( 95) = 0.5099148018212403D+02
        xs( 96) = 0.5135253037099317D+02
        xs( 97) = 0.5175349398496073D+02
        xs( 98) = 0.5220056716885023D+02
        xs( 99) = 0.5269879218558209D+02
        xs(100) = 0.5325169034045550D+02
        xs(101) = 0.5386116144493531D+02
        xs(102) = 0.5452763743429010D+02
        xs(103) = 0.5525044793584303D+02
        xs(104) = 0.5602834767734210D+02
        xs(105) = 0.5686012408945756D+02
        xs(106) = 0.5774539569534582D+02
        xs(107) = 0.5868374087663946D+02
        xs(108) = 0.5969786060228860D+02
        xs(109) = 0.6080650430450034D+02
        ws(  1) = 0.8043814994260315D+00
        ws(  2) = 0.8152752445222573D+00
        ws(  3) = 0.8163118127564567D+00
        ws(  4) = 0.8157392004571447D+00
        ws(  5) = 0.8144749379727605D+00
        ws(  6) = 0.8127381528222227D+00
        ws(  7) = 0.8106080173814877D+00
        ws(  8) = 0.8081238503755500D+00
        ws(  9) = 0.8053110630163443D+00
        ws( 10) = 0.8021895281063087D+00
        ws( 11) = 0.7987766629344789D+00
        ws( 12) = 0.7950886425936868D+00
        ws( 13) = 0.7911408740912186D+00
        ws( 14) = 0.7869481573435082D+00
        ws( 15) = 0.7825247105540989D+00
        ws( 16) = 0.7778841396340807D+00
        ws( 17) = 0.7730393891895344D+00
        ws( 18) = 0.7680026930447096D+00
        ws( 19) = 0.7627855326246421D+00
        ws( 20) = 0.7573986065532788D+00
        ws( 21) = 0.7518518122024224D+00
        ws( 22) = 0.7461542385557289D+00
        ws( 23) = 0.7403141690726079D+00
        ws( 24) = 0.7343390929536049D+00
        ws( 25) = 0.7282357231550572D+00
        ws( 26) = 0.7220100195765585D+00
        ws( 27) = 0.7156672159914618D+00
        ws( 28) = 0.7092118494701969D+00
        ws( 29) = 0.7026477912352223D+00
        ws( 30) = 0.6959782780719134D+00
        ws( 31) = 0.6892059435920717D+00
        ws( 32) = 0.6823328488031009D+00
        ws( 33) = 0.6753605115741618D+00
        ws( 34) = 0.6682899347108684D+00
        ws( 35) = 0.6611216324548057D+00
        ws( 36) = 0.6538556553133666D+00
        ws( 37) = 0.6464916132046351D+00
        ws( 38) = 0.6390286969702536D+00
        ws( 39) = 0.6314656983737444D+00
        ws( 40) = 0.6238010287609912D+00
        ws( 41) = 0.6160327366213001D+00
        ws( 42) = 0.6081585243511483D+00
        ws( 43) = 0.6001757645952887D+00
        ws( 44) = 0.5920815166237423D+00
        ws( 45) = 0.5838725433041522D+00
        ws( 46) = 0.5755453293532162D+00
        ws( 47) = 0.5670961017054651D+00
        ws( 48) = 0.5585208530314848D+00
        ws( 49) = 0.5498153696828909D+00
        ws( 50) = 0.5409752656514129D+00
        ws( 51) = 0.5319960245237807D+00
        ws( 52) = 0.5228730519144215D+00
        ws( 53) = 0.5136017414944297D+00
        ws( 54) = 0.5041775585455488D+00
        ws( 55) = 0.4945961459982692D+00
        ws( 56) = 0.4848534592232131D+00
        ws( 57) = 0.4749459375049061D+00
        ws( 58) = 0.4648707222277987D+00
        ws( 59) = 0.4546259344446268D+00
        ws( 60) = 0.4442110277857400D+00
        ws( 61) = 0.4336272367067957D+00
        ws( 62) = 0.4228781449195580D+00
        ws( 63) = 0.4119704044436330D+00
        ws( 64) = 0.4009146417317494D+00
        ws( 65) = 0.3897265928873071D+00
        ws( 66) = 0.3784285131584857D+00
        ws( 67) = 0.3670509026745575D+00
        ws( 68) = 0.3556345731468151D+00
        ws( 69) = 0.3442330350163638D+00
        ws( 70) = 0.3329150871631698D+00
        ws( 71) = 0.3217673045323451D+00
        ws( 72) = 0.3108957969022896D+00
        ws( 73) = 0.3004261309466854D+00
        ws( 74) = 0.2904997553798119D+00
        ws( 75) = 0.2812649933667141D+00
        ws( 76) = 0.2728614099407143D+00
        ws( 77) = 0.2653990506177727D+00
        ws( 78) = 0.2589384989072495D+00
        ws( 79) = 0.2534807911920834D+00
        ws( 80) = 0.2489735413202251D+00
        ws( 81) = 0.2453317060407311D+00
        ws( 82) = 0.2424647237084149D+00
        ws( 83) = 0.2403007693988257D+00
        ws( 84) = 0.2388037058022332D+00
        ws( 85) = 0.2379863628929427D+00
        ws( 86) = 0.2379284527690076D+00
        ws( 87) = 0.2388045237549917D+00
        ws( 88) = 0.2409170411261065D+00
        ws( 89) = 0.2447166294058406D+00
        ws( 90) = 0.2507941657737208D+00
        ws( 91) = 0.2598582101975518D+00
        ws( 92) = 0.2727276061454023D+00
        ws( 93) = 0.2903247716337611D+00
        ws( 94) = 0.3135986050413361D+00
        ws( 95) = 0.3433349265991049D+00
        ws( 96) = 0.3799046947814640D+00
        ws( 97) = 0.4230653171846450D+00
        ws( 98) = 0.4719276423804154D+00
        ws( 99) = 0.5251109014486146D+00
        ws(100) = 0.5809993682880805D+00
        ws(101) = 0.6380087278188431D+00
        ws(102) = 0.6948223296323661D+00
        ws(103) = 0.7505843180331753D+00
        ws(104) = 0.8049603483338424D+00
        ws(105) = 0.8584228838966667D+00
        ws(106) = 0.9148633134292204D+00
        ws(107) = 0.9540482232364556D+00
        ws(108) = 0.1045335671413219D+01
        ws(109) = 0.1578557344768733D+01
        endif
        if( idomain .eq.  185 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.3141592653589793D+01
        rk1r = 0.2000000000000000D-01
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  44
        err = 0.8925426986013737D-13
        xs(  1) = 0.3710838083929875D+00
        xs(  2) = 0.8552132312812886D+00
        xs(  3) = 0.1350149935211184D+01
        xs(  4) = 0.1857714637972940D+01
        xs(  5) = 0.2380901843916992D+01
        xs(  6) = 0.2922269165979654D+01
        xs(  7) = 0.3483731885832929D+01
        xs(  8) = 0.4066568169365171D+01
        xs(  9) = 0.4671491795456442D+01
        xs( 10) = 0.5298749153878748D+01
        xs( 11) = 0.5948219586824407D+01
        xs( 12) = 0.6619508003119354D+01
        xs( 13) = 0.7312024626594545D+01
        xs( 14) = 0.8025050407176256D+01
        xs( 15) = 0.8757788707683535D+01
        xs( 16) = 0.9509404893288927D+01
        xs( 17) = 0.1027905580114366D+02
        xs( 18) = 0.1106591104840125D+02
        xs( 19) = 0.1186916793848752D+02
        xs( 20) = 0.1268806146090750D+02
        xs( 21) = 0.1352187060928378D+02
        xs( 22) = 0.1436992199522517D+02
        xs( 23) = 0.1523159152211042D+02
        xs( 24) = 0.1610630470785620D+02
        xs( 25) = 0.1699353610285619D+02
        xs( 26) = 0.1789280811204918D+02
        xs( 27) = 0.1880368952567742D+02
        xs( 28) = 0.1972579386115554D+02
        xs( 29) = 0.2065877735501085D+02
        xs( 30) = 0.2160233762118283D+02
        xs( 31) = 0.2255621165390605D+02
        xs( 32) = 0.2352017270805306D+02
        xs( 33) = 0.2449403101994577D+02
        xs( 34) = 0.2547762785537994D+02
        xs( 35) = 0.2647081911879081D+02
        xs( 36) = 0.2747347078068257D+02
        xs( 37) = 0.2848532194739781D+02
        xs( 38) = 0.2950685474293474D+02
        xs( 39) = 0.3053743139169376D+02
        xs( 40) = 0.3156785218279888D+02
        xs( 41) = 0.3263243218369677D+02
        xs( 42) = 0.3364407719969543D+02
        xs( 43) = 0.3476361937142535D+02
        xs( 44) = 0.3661553713604051D+02
        ws(  1) = 0.4770632866059269D+00
        ws(  2) = 0.4895703044760910D+00
        ws(  3) = 0.5007418282988700D+00
        ws(  4) = 0.5149000879600789D+00
        ws(  5) = 0.5319029108886201D+00
        ws(  6) = 0.5511506360150051D+00
        ws(  7) = 0.5719865313477115D+00
        ws(  8) = 0.5938033355825280D+00
        ws(  9) = 0.6160832841485193D+00
        ws( 10) = 0.6384097681212517D+00
        ws( 11) = 0.6604639172185798D+00
        ws( 12) = 0.6820135310345424D+00
        ws( 13) = 0.7028990169198143D+00
        ws( 14) = 0.7230191164057688D+00
        ws( 15) = 0.7423178923695674D+00
        ws( 16) = 0.7607736007699664D+00
        ws( 17) = 0.7783895729188112D+00
        ws( 18) = 0.7951869750909129D+00
        ws( 19) = 0.8111992003849094D+00
        ws( 20) = 0.8264676183514955D+00
        ws( 21) = 0.8410384202923832D+00
        ws( 22) = 0.8549603307764130D+00
        ws( 23) = 0.8682829877873545D+00
        ws( 24) = 0.8810558270584040D+00
        ws( 25) = 0.8933273846078054D+00
        ws( 26) = 0.9051448264156692D+00
        ws( 27) = 0.9165535470140072D+00
        ws( 28) = 0.9275977493558492D+00
        ws( 29) = 0.9383194613567921D+00
        ws( 30) = 0.9487576950429709D+00
        ws( 31) = 0.9589519394295783D+00
        ws( 32) = 0.9689353142597174D+00
        ws( 33) = 0.9787416533982923D+00
        ws( 34) = 0.9884212911078446D+00
        ws( 35) = 0.9979849356537108D+00
        ws( 36) = 0.1007535735604277D+01
        ws( 37) = 0.1016417289621852D+01
        ws( 38) = 0.1024521377260665D+01
        ws( 39) = 0.1040700201863451D+01
        ws( 40) = 0.1026330837042098D+01
        ws( 41) = 0.1040139602439223D+01
        ws( 42) = 0.9845895264062651D+00
        ws( 43) = 0.1494435344707895D+01
        ws( 44) = 0.2738100810839283D+01
        endif
        if( idomain .eq.  186 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.3141592653589793D+01
        rk1r = 0.4000000000000000D-01
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  43
        err = 0.7033073505054679D-13
        xs(  1) = 0.3720407128622830D+00
        xs(  2) = 0.8576072950935578D+00
        xs(  3) = 0.1354442664498843D+01
        xs(  4) = 0.1864573074379938D+01
        xs(  5) = 0.2391144398168722D+01
        xs(  6) = 0.2936798271885859D+01
        xs(  7) = 0.3503466871374819D+01
        xs(  8) = 0.4092387434160724D+01
        xs(  9) = 0.4704189632652709D+01
        xs( 10) = 0.5339008701058667D+01
        xs( 11) = 0.5996600509112194D+01
        xs( 12) = 0.6676445950882333D+01
        xs( 13) = 0.7377839048056152D+01
        xs( 14) = 0.8099957531223451D+01
        xs( 15) = 0.8841917091568799D+01
        xs( 16) = 0.9602811613421498D+01
        xs( 17) = 0.1038174201165795D+02
        xs( 18) = 0.1117783617163713D+02
        xs( 19) = 0.1199026216069343D+02
        xs( 20) = 0.1281823649055269D+02
        xs( 21) = 0.1366102883629487D+02
        xs( 22) = 0.1451796429181682D+02
        xs( 23) = 0.1538842397583498D+02
        xs( 24) = 0.1627184459967319D+02
        xs( 25) = 0.1716771746678278D+02
        xs( 26) = 0.1807558710141849D+02
        xs( 27) = 0.1899505031197020D+02
        xs( 28) = 0.1992575453839737D+02
        xs( 29) = 0.2086739829534383D+02
        xs( 30) = 0.2181972817896741D+02
        xs( 31) = 0.2278254442597891D+02
        xs( 32) = 0.2375570761879792D+02
        xs( 33) = 0.2473912102409260D+02
        xs( 34) = 0.2573271079581581D+02
        xs( 35) = 0.2673655902875295D+02
        xs( 36) = 0.2775079544994542D+02
        xs( 37) = 0.2877588178075079D+02
        xs( 38) = 0.2981117355868113D+02
        xs( 39) = 0.3085567618246644D+02
        xs( 40) = 0.3191184252500084D+02
        xs( 41) = 0.3297264308960969D+02
        xs( 42) = 0.3405263953344731D+02
        xs( 43) = 0.3534269653134417D+02
        ws(  1) = 0.4783434845605657D+00
        ws(  2) = 0.4912008201340829D+00
        ws(  3) = 0.5029435388448842D+00
        ws(  4) = 0.5178552100941874D+00
        ws(  5) = 0.5357300183497604D+00
        ws(  6) = 0.5558992830074714D+00
        ws(  7) = 0.5776425684961910D+00
        ws(  8) = 0.6003015634078673D+00
        ws(  9) = 0.6233234260640779D+00
        ws( 10) = 0.6462722702612332D+00
        ws( 11) = 0.6688233576232956D+00
        ws( 12) = 0.6907486898605260D+00
        ws( 13) = 0.7118995611998175D+00
        ws( 14) = 0.7321893562032412D+00
        ws( 15) = 0.7515782706040359D+00
        ws( 16) = 0.7700605984235888D+00
        ws( 17) = 0.7876546296477994D+00
        ws( 18) = 0.8043949004973551D+00
        ws( 19) = 0.8203264201298581D+00
        ws( 20) = 0.8355004832364441D+00
        ws( 21) = 0.8499717152327075D+00
        ws( 22) = 0.8637960566921004D+00
        ws( 23) = 0.8770294491468859D+00
        ws( 24) = 0.8897270326930903D+00
        ws( 25) = 0.9019427936470120D+00
        ws( 26) = 0.9137294255239155D+00
        ws( 27) = 0.9251378120950228D+00
        ws( 28) = 0.9362206161353873D+00
        ws( 29) = 0.9470263287677936D+00
        ws( 30) = 0.9576013918418730D+00
        ws( 31) = 0.9680053979731981D+00
        ws( 32) = 0.9782837828504809D+00
        ws( 33) = 0.9884987718496931D+00
        ws( 34) = 0.9987047463866040D+00
        ws( 35) = 0.1009178682054052D+01
        ws( 36) = 0.1020068653739612D+01
        ws( 37) = 0.1030254683691369D+01
        ws( 38) = 0.1041858381727620D+01
        ws( 39) = 0.1035885434801981D+01
        ws( 40) = 0.1076918131668439D+01
        ws( 41) = 0.9892484546893719D+00
        ws( 42) = 0.9828022349723453D+00
        ws( 43) = 0.2888279818872165D+01
        endif
        if( idomain .eq.  187 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.3141592653589793D+01
        rk1r = 0.1000000000000000D+00
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  42
        err = 0.9145848743573187D-13
        xs(  1) = 0.3757063060513386D+00
        xs(  2) = 0.8662152081030723D+00
        xs(  3) = 0.1368459313083414D+01
        xs(  4) = 0.1884630281236017D+01
        xs(  5) = 0.2417989300866100D+01
        xs(  6) = 0.2971227284660002D+01
        xs(  7) = 0.3546267193671516D+01
        xs(  8) = 0.4144292909593518D+01
        xs(  9) = 0.4765852066497071D+01
        xs( 10) = 0.5410982725793725D+01
        xs( 11) = 0.6079338895449209D+01
        xs( 12) = 0.6770302207408949D+01
        xs( 13) = 0.7483074635409768D+01
        xs( 14) = 0.8216751644566104D+01
        xs( 15) = 0.8970377544638264D+01
        xs( 16) = 0.9742985823708526D+01
        xs( 17) = 0.1053362743662026D+02
        xs( 18) = 0.1134138979867360D+02
        xs( 19) = 0.1216540882941645D+02
        xs( 20) = 0.1300487594262290D+02
        xs( 21) = 0.1385904145709399D+02
        xs( 22) = 0.1472721553922702D+02
        xs( 23) = 0.1560876749396315D+02
        xs( 24) = 0.1650312398457633D+02
        xs( 25) = 0.1740976651174183D+02
        xs( 26) = 0.1832822865867258D+02
        xs( 27) = 0.1925809217889415D+02
        xs( 28) = 0.2019898497812773D+02
        xs( 29) = 0.2115057238955187D+02
        xs( 30) = 0.2211255635636879D+02
        xs( 31) = 0.2308467162360209D+02
        xs( 32) = 0.2406665222364410D+02
        xs( 33) = 0.2505820666411861D+02
        xs( 34) = 0.2605903399244641D+02
        xs( 35) = 0.2706876702531063D+02
        xs( 36) = 0.2808652674546175D+02
        xs( 37) = 0.2911007918293176D+02
        xs( 38) = 0.3013518725006550D+02
        xs( 39) = 0.3114937639139102D+02
        xs( 40) = 0.3216853139629157D+02
        xs( 41) = 0.3300331853650364D+02
        xs( 42) = 0.3486996444518561D+02
        ws(  1) = 0.4830986533791247D+00
        ws(  2) = 0.4963474209105649D+00
        ws(  3) = 0.5086435265348185D+00
        ws(  4) = 0.5242556829701240D+00
        ws(  5) = 0.5429130005031590D+00
        ws(  6) = 0.5638827332407810D+00
        ws(  7) = 0.5863925800794282D+00
        ws(  8) = 0.6097479566919864D+00
        ws(  9) = 0.6333745801639343D+00
        ws( 10) = 0.6568272008076913D+00
        ws( 11) = 0.6797805312501884D+00
        ws( 12) = 0.7020118738833385D+00
        ws( 13) = 0.7233813106678831D+00
        ws( 14) = 0.7438127609485984D+00
        ws( 15) = 0.7632774890132912D+00
        ws( 16) = 0.7817805839606683D+00
        ws( 17) = 0.7993503481792716D+00
        ws( 18) = 0.8160302495099720D+00
        ws( 19) = 0.8318729934336506D+00
        ws( 20) = 0.8469362724314692D+00
        ws( 21) = 0.8612797974397873D+00
        ws( 22) = 0.8749632822510769D+00
        ws( 23) = 0.8880451092322417D+00
        ws( 24) = 0.9005815062986510D+00
        ws( 25) = 0.9126258755056001D+00
        ws( 26) = 0.9242286685872516D+00
        ws( 27) = 0.9354365802696836D+00
        ws( 28) = 0.9462932866397743D+00
        ws( 29) = 0.9568336212529874D+00
        ws( 30) = 0.9670923686482981D+00
        ws( 31) = 0.9770876750894649D+00
        ws( 32) = 0.9867966545882131D+00
        ws( 33) = 0.9962224197655799D+00
        ws( 34) = 0.1005410872161697D+01
        ws( 35) = 0.1014260806740775D+01
        ws( 36) = 0.1021766053298158D+01
        ws( 37) = 0.1025577320493454D+01
        ws( 38) = 0.1023444942494590D+01
        ws( 39) = 0.9922002735098912D+00
        ws( 40) = 0.9723124582748832D+00
        ws( 41) = 0.9080897470527680D+00
        ws( 42) = 0.3499218130547530D+01
        endif
        if( idomain .eq.  188 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.3141592653589793D+01
        rk1r = 0.2000000000000000D+00
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  43
        err = 0.3515922949777952D-13
        xs(  1) = 0.3662898494242690D+00
        xs(  2) = 0.8444641196730680D+00
        xs(  3) = 0.1334014801702089D+01
        xs(  4) = 0.1837120551023483D+01
        xs(  5) = 0.2357071921777571D+01
        xs(  6) = 0.2896655011393097D+01
        xs(  7) = 0.3457931108872184D+01
        xs(  8) = 0.4042238406895827D+01
        xs(  9) = 0.4650273113744544D+01
        xs( 10) = 0.5282202436556730D+01
        xs( 11) = 0.5937783662810927D+01
        xs( 12) = 0.6616474657133318D+01
        xs( 13) = 0.7317528605161770D+01
        xs( 14) = 0.8040070781959958D+01
        xs( 15) = 0.8783158036317001D+01
        xs( 16) = 0.9545823137579502D+01
        xs( 17) = 0.1032710664711560D+02
        xs( 18) = 0.1112607895081353D+02
        xs( 19) = 0.1194185479545960D+02
        xs( 20) = 0.1277360227991203D+02
        xs( 21) = 0.1362054785679613D+02
        xs( 22) = 0.1448197854742257D+02
        xs( 23) = 0.1535724227704875D+02
        xs( 24) = 0.1624574700638178D+02
        xs( 25) = 0.1714695913963055D+02
        xs( 26) = 0.1806040158557534D+02
        xs( 27) = 0.1898565163368262D+02
        xs( 28) = 0.1992233905298209D+02
        xs( 29) = 0.2087014350225099D+02
        xs( 30) = 0.2182879427740864D+02
        xs( 31) = 0.2279806621426486D+02
        xs( 32) = 0.2377777547737861D+02
        xs( 33) = 0.2476778620635980D+02
        xs( 34) = 0.2576800523660520D+02
        xs( 35) = 0.2677834178528713D+02
        xs( 36) = 0.2779858369922741D+02
        xs( 37) = 0.2882849908557792D+02
        xs( 38) = 0.2986752693463071D+02
        xs( 39) = 0.3091629383847686D+02
        xs( 40) = 0.3196881102993920D+02
        xs( 41) = 0.3304348379634323D+02
        xs( 42) = 0.3399935625706986D+02
        xs( 43) = 0.3582747483809094D+02
        ws(  1) = 0.4709787049463889D+00
        ws(  2) = 0.4838331361497488D+00
        ws(  3) = 0.4957652940183373D+00
        ws(  4) = 0.5110083544631326D+00
        ws(  5) = 0.5293613299786210D+00
        ws(  6) = 0.5501481430500411D+00
        ws(  7) = 0.5726256325416168D+00
        ws(  8) = 0.5961030563222487D+00
        ws(  9) = 0.6199922068113238D+00
        ws( 10) = 0.6438241290655571D+00
        ws( 11) = 0.6672463840029961D+00
        ws( 12) = 0.6900098583276821D+00
        ws( 13) = 0.7119512643092138D+00
        ws( 14) = 0.7329751648484591D+00
        ws( 15) = 0.7530376139409070D+00
        ws( 16) = 0.7721323205472286D+00
        ws( 17) = 0.7902795252099001D+00
        ws( 18) = 0.8075173938195783D+00
        ws( 19) = 0.8238955647672414D+00
        ws( 20) = 0.8394704448386848D+00
        ws( 21) = 0.8543018751054566D+00
        ws( 22) = 0.8684508426758187D+00
        ws( 23) = 0.8819779706717495D+00
        ws( 24) = 0.8949425861949716D+00
        ws( 25) = 0.9074022065872411D+00
        ws( 26) = 0.9194122447088121D+00
        ws( 27) = 0.9310262000082126D+00
        ws( 28) = 0.9422952084994481D+00
        ws( 29) = 0.9532691633840819D+00
        ws( 30) = 0.9639956032194674D+00
        ws( 31) = 0.9745165660828159D+00
        ws( 32) = 0.9848711712688925D+00
        ws( 33) = 0.9951199458480565D+00
        ws( 34) = 0.1005304323761566D+01
        ws( 35) = 0.1015415267095229D+01
        ws( 36) = 0.1025327237435154D+01
        ws( 37) = 0.1034718023013304D+01
        ws( 38) = 0.1043973227471697D+01
        ws( 39) = 0.1047437441823870D+01
        ws( 40) = 0.1064360688497386D+01
        ws( 41) = 0.9780407003027839D+00
        ws( 42) = 0.1174331164533708D+01
        ws( 43) = 0.3068311001004435D+01
        endif
        if( idomain .eq.  189 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.3141592653589793D+01
        rk1r = 0.4000000000000000D+00
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  43
        err = 0.6191744010060312D-13
        xs(  1) = 0.3642052810996311D+00
        xs(  2) = 0.8395849561455895D+00
        xs(  3) = 0.1326140487758351D+01
        xs(  4) = 0.1826052911217507D+01
        xs(  5) = 0.2342684979591141D+01
        xs(  6) = 0.2878946779433434D+01
        xs(  7) = 0.3437039701757345D+01
        xs(  8) = 0.4018427648735871D+01
        xs(  9) = 0.4623900755962853D+01
        xs( 10) = 0.5253683467694157D+01
        xs( 11) = 0.5907556843196790D+01
        xs( 12) = 0.6584976000667408D+01
        xs( 13) = 0.7285172547386902D+01
        xs( 14) = 0.8007238240832297D+01
        xs( 15) = 0.8750190004068099D+01
        xs( 16) = 0.9513018382254922D+01
        xs( 17) = 0.1029472226504840D+02
        xs( 18) = 0.1109433274898426D+02
        xs( 19) = 0.1191092872607259D+02
        xs( 20) = 0.1274364636756199D+02
        xs( 21) = 0.1359168423913031D+02
        xs( 22) = 0.1445430539088003D+02
        xs( 23) = 0.1533083743393634D+02
        xs( 24) = 0.1622067135328331D+02
        xs( 25) = 0.1712325958657767D+02
        xs( 26) = 0.1803811379094057D+02
        xs( 27) = 0.1896480244240725D+02
        xs( 28) = 0.1990294878513664D+02
        xs( 29) = 0.2085222812273785D+02
        xs( 30) = 0.2181236766328180D+02
        xs( 31) = 0.2278314222917982D+02
        xs( 32) = 0.2376437051019308D+02
        xs( 33) = 0.2475592382492291D+02
        xs( 34) = 0.2575771832452448D+02
        xs( 35) = 0.2676968588272424D+02
        xs( 36) = 0.2779164022646245D+02
        xs( 37) = 0.2882340239429249D+02
        xs( 38) = 0.2986448758651670D+02
        xs( 39) = 0.3091558339394855D+02
        xs( 40) = 0.3197210177505814D+02
        xs( 41) = 0.3304899208396712D+02
        xs( 42) = 0.3400710736810337D+02
        xs( 43) = 0.3582708144972659D+02
        ws(  1) = 0.4682777300165190D+00
        ws(  2) = 0.4809428820161924D+00
        ws(  3) = 0.4926648946613912D+00
        ws(  4) = 0.5077345599161395D+00
        ws(  5) = 0.5260178267380654D+00
        ws(  6) = 0.5468729429163940D+00
        ws(  7) = 0.5695557200830350D+00
        ws(  8) = 0.5933499911844109D+00
        ws(  9) = 0.6176315474597928D+00
        ws( 10) = 0.6418954054007773D+00
        ws( 11) = 0.6657588169014222D+00
        ws( 12) = 0.6889500392898006D+00
        ws( 13) = 0.7112906022463835D+00
        ws( 14) = 0.7326761378647272D+00
        ws( 15) = 0.7530585743931302D+00
        ws( 16) = 0.7724309387509289D+00
        ws( 17) = 0.7908150882830564D+00
        ws( 18) = 0.8082522076451553D+00
        ws( 19) = 0.8247956929958887D+00
        ws( 20) = 0.8405059851828550D+00
        ws( 21) = 0.8554469334254451D+00
        ws( 22) = 0.8696833263821158D+00
        ws( 23) = 0.8832792898378701D+00
        ws( 24) = 0.8962973244633311D+00
        ws( 25) = 0.9087978004155947D+00
        ws( 26) = 0.9208386918280235D+00
        ws( 27) = 0.9324759118802144D+00
        ws( 28) = 0.9437625819433049D+00
        ws( 29) = 0.9547510407494540D+00
        ws( 30) = 0.9654910985967738D+00
        ws( 31) = 0.9760269898552054D+00
        ws( 32) = 0.9864026264233144D+00
        ws( 33) = 0.9966807087503970D+00
        ws( 34) = 0.1006900087381042D+01
        ws( 35) = 0.1017047065729798D+01
        ws( 36) = 0.1027033693416153D+01
        ws( 37) = 0.1036585121961422D+01
        ws( 38) = 0.1046349631780745D+01
        ws( 39) = 0.1051214273431308D+01
        ws( 40) = 0.1067062912296746D+01
        ws( 41) = 0.1002842958198405D+01
        ws( 42) = 0.1136396099991786D+01
        ws( 43) = 0.3003610158572684D+01
        endif
        if( idomain .eq.  190 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.3141592653589793D+01
        rk1r = 0.1000000000000000D+01
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  43
        err = 0.6624411519985893D-13
        xs(  1) = 0.3500121645244888D+00
        xs(  2) = 0.8063852140098440D+00
        xs(  3) = 0.1272507833235489D+01
        xs(  4) = 0.1750308257245271D+01
        xs(  5) = 0.2243241302411016D+01
        xs(  6) = 0.2754660094915223D+01
        xs(  7) = 0.3287431020628435D+01
        xs(  8) = 0.3843746303236805D+01
        xs(  9) = 0.4425057462817435D+01
        xs( 10) = 0.5032107408254720D+01
        xs( 11) = 0.5665028764036937D+01
        xs( 12) = 0.6323472712950845D+01
        xs( 13) = 0.7006740186531536D+01
        xs( 14) = 0.7713898647690102D+01
        xs( 15) = 0.8443877457867003D+01
        xs( 16) = 0.9195541058126732D+01
        xs( 17) = 0.9967742350715417D+01
        xs( 18) = 0.1075935982620766D+02
        xs( 19) = 0.1156932206466222D+02
        xs( 20) = 0.1239662283557831D+02
        xs( 21) = 0.1324032945374405D+02
        xs( 22) = 0.1409958647731463D+02
        xs( 23) = 0.1497361633172497D+02
        xs( 24) = 0.1586171802971018D+02
        xs( 25) = 0.1676326484201280D+02
        xs( 26) = 0.1767770153979158D+02
        xs( 27) = 0.1860454157912568D+02
        xs( 28) = 0.1954336496673418D+02
        xs( 29) = 0.2049381576897871D+02
        xs( 30) = 0.2145560195020855D+02
        xs( 31) = 0.2242849701143447D+02
        xs( 32) = 0.2341233662381001D+02
        xs( 33) = 0.2440702141190447D+02
        xs( 34) = 0.2541253935980152D+02
        xs( 35) = 0.2642898900544834D+02
        xs( 36) = 0.2745653777666284D+02
        xs( 37) = 0.2849538795214699D+02
        xs( 38) = 0.2954576971617544D+02
        xs( 39) = 0.3060812017139412D+02
        xs( 40) = 0.3168625043543748D+02
        xs( 41) = 0.3277540633916026D+02
        xs( 42) = 0.3391219659051866D+02
        xs( 43) = 0.3506549812435365D+02
        ws(  1) = 0.4498973719513759D+00
        ws(  2) = 0.4612836850195093D+00
        ws(  3) = 0.4714099330436303D+00
        ws(  4) = 0.4847813677253276D+00
        ws(  5) = 0.5016491631408273D+00
        ws(  6) = 0.5216692106393604D+00
        ws(  7) = 0.5442390769277071D+00
        ws(  8) = 0.5686327907726758D+00
        ws(  9) = 0.5941116179005543D+00
        ws( 10) = 0.6200081613100485D+00
        ws( 11) = 0.6457741886192963D+00
        ws( 12) = 0.6709952362889899D+00
        ws( 13) = 0.6953826979918774D+00
        ws( 14) = 0.7187545713356414D+00
        ws( 15) = 0.7410129083439920D+00
        ws( 16) = 0.7621224992432915D+00
        ws( 17) = 0.7820927670729108D+00
        ws( 18) = 0.8009633685733981D+00
        ws( 19) = 0.8187932689220702D+00
        ws( 20) = 0.8356527674732078D+00
        ws( 21) = 0.8516178876288384D+00
        ws( 22) = 0.8667665871479581D+00
        ws( 23) = 0.8811763307624955D+00
        ws( 24) = 0.8949226592275979D+00
        ws( 25) = 0.9080784638244419D+00
        ws( 26) = 0.9207139054424363D+00
        ws( 27) = 0.9328961705805400D+00
        ws( 28) = 0.9446912338408274D+00
        ws( 29) = 0.9561617905471635D+00
        ws( 30) = 0.9673729993675378D+00
        ws( 31) = 0.9783899394990260D+00
        ws( 32) = 0.9892730516369548D+00
        ws( 33) = 0.1000097303449605D+01
        ws( 34) = 0.1010958888771990D+01
        ws( 35) = 0.1021956143367294D+01
        ws( 36) = 0.1033109738900963D+01
        ws( 37) = 0.1044331453191956D+01
        ws( 38) = 0.1056154776744490D+01
        ws( 39) = 0.1068024702107918D+01
        ws( 40) = 0.1090524431912160D+01
        ws( 41) = 0.1116540201026147D+01
        ws( 42) = 0.1118852374062357D+01
        ws( 43) = 0.1771899502703616D+01
        endif
        if( idomain .eq.  191 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.3141592653589793D+01
        rk1r = 0.1570796326794897D+01
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  43
        err = 0.9111538591272056D-13
        xs(  1) = 0.3483807313205279D+00
        xs(  2) = 0.8017789185285531D+00
        xs(  3) = 0.1263014050107876D+01
        xs(  4) = 0.1733349380651292D+01
        xs(  5) = 0.2216011937748400D+01
        xs(  6) = 0.2714566067811606D+01
        xs(  7) = 0.3232428899344299D+01
        xs(  8) = 0.3772528647474022D+01
        xs(  9) = 0.4337083200157084D+01
        xs( 10) = 0.4927516891812795D+01
        xs( 11) = 0.5544497368904831D+01
        xs( 12) = 0.6188049662587775D+01
        xs( 13) = 0.6857702481060199D+01
        xs( 14) = 0.7552633623678370D+01
        xs( 15) = 0.8271796331673780D+01
        xs( 16) = 0.9014020018174518D+01
        xs( 17) = 0.9778085701528047D+01
        xs( 18) = 0.1056277961928939D+02
        xs( 19) = 0.1136692942435666D+02
        xs( 20) = 0.1218942718947890D+02
        xs( 21) = 0.1302924283143407D+02
        xs( 22) = 0.1388543084709109D+02
        xs( 23) = 0.1475713258135605D+02
        xs( 24) = 0.1564357567854013D+02
        xs( 25) = 0.1654407192186692D+02
        xs( 26) = 0.1745801436621665D+02
        xs( 27) = 0.1838487417337599D+02
        xs( 28) = 0.1932419851178351D+02
        xs( 29) = 0.2027560707716774D+02
        xs( 30) = 0.2123879441374155D+02
        xs( 31) = 0.2221352850397796D+02
        xs( 32) = 0.2319964509445218D+02
        xs( 33) = 0.2419706685798778D+02
        xs( 34) = 0.2520583401295644D+02
        xs( 35) = 0.2622608527820084D+02
        xs( 36) = 0.2725797691578014D+02
        xs( 37) = 0.2830172001097298D+02
        xs( 38) = 0.2935789716286957D+02
        xs( 39) = 0.3042851267160311D+02
        xs( 40) = 0.3151682456773890D+02
        xs( 41) = 0.3263079331978740D+02
        xs( 42) = 0.3378767406756833D+02
        xs( 43) = 0.3495122665703377D+02
        ws(  1) = 0.4475729455445011D+00
        ws(  2) = 0.4574953920615674D+00
        ws(  3) = 0.4653101351897834D+00
        ws(  4) = 0.4759130600238031D+00
        ws(  5) = 0.4900134693720591D+00
        ws(  6) = 0.5076700816090781D+00
        ws(  7) = 0.5285473644652694D+00
        ws(  8) = 0.5520231157160469D+00
        ws(  9) = 0.5773226519580669D+00
        ws( 10) = 0.6036539918694994D+00
        ws( 11) = 0.6303086163970750D+00
        ws( 12) = 0.6567149571522063D+00
        ws( 13) = 0.6824515269442601D+00
        ws( 14) = 0.7072346219299507D+00
        ws( 15) = 0.7308944481551561D+00
        ws( 16) = 0.7533488785519671D+00
        ws( 17) = 0.7745796013602303D+00
        ws( 18) = 0.7946124681939984D+00
        ws( 19) = 0.8135022705131635D+00
        ws( 20) = 0.8313214721409646D+00
        ws( 21) = 0.8481521939869237D+00
        ws( 22) = 0.8640807401965344D+00
        ws( 23) = 0.8791940403930725D+00
        ws( 24) = 0.8935775036130145D+00
        ws( 25) = 0.9073138708172096D+00
        ws( 26) = 0.9204829265972662D+00
        ws( 27) = 0.9331613042781856D+00
        ws( 28) = 0.9454238015903274D+00
        ws( 29) = 0.9573424362666036D+00
        ws( 30) = 0.9689931551051796D+00
        ws( 31) = 0.9804469008763937D+00
        ws( 32) = 0.9917776418598244D+00
        ws( 33) = 0.1003091577098436D+01
        ws( 34) = 0.1014491682840503D+01
        ws( 35) = 0.1025998317775976D+01
        ws( 36) = 0.1037529246180243D+01
        ws( 37) = 0.1049222768157090D+01
        ws( 38) = 0.1062186745980109D+01
        ws( 39) = 0.1079892520199297D+01
        ws( 40) = 0.1108197634474547D+01
        ws( 41) = 0.1164806139751004D+01
        ws( 42) = 0.1269456517545015D+01
        ws( 43) = 0.1259358595680344D+01
        endif
        if( idomain .eq.  192 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.3141592653589793D+01
        rk1r = 0.3141592653589793D+01
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  46
        err = 0.6082147766337580D-13
        xs(  1) = 0.3363446860410021D+00
        xs(  2) = 0.7721987893041909D+00
        xs(  3) = 0.1211171462340003D+01
        xs(  4) = 0.1652100429906489D+01
        xs(  5) = 0.2096052258146121D+01
        xs(  6) = 0.2545020428876818D+01
        xs(  7) = 0.3001738090966104D+01
        xs(  8) = 0.3469526657565786D+01
        xs(  9) = 0.3952059925102290D+01
        xs( 10) = 0.4453039258545558D+01
        xs( 11) = 0.4975835410240362D+01
        xs( 12) = 0.5523182888297711D+01
        xs( 13) = 0.6096997152056974D+01
        xs( 14) = 0.6698336617902105D+01
        xs( 15) = 0.7327483753354090D+01
        xs( 16) = 0.7984095439290683D+01
        xs( 17) = 0.8667373976245845D+01
        xs( 18) = 0.9376225387644306D+01
        xs( 19) = 0.1010938894262534D+02
        xs( 20) = 0.1086553443867077D+02
        xs( 21) = 0.1164333056156210D+02
        xs( 22) = 0.1244149011165205D+02
        xs( 23) = 0.1325879799288343D+02
        xs( 24) = 0.1409412698854931D+02
        xs( 25) = 0.1494644524350293D+02
        xs( 26) = 0.1581481835962354D+02
        xs( 27) = 0.1669840819748313D+02
        xs( 28) = 0.1759646986533396D+02
        xs( 29) = 0.1850834786622942D+02
        xs( 30) = 0.1943347241799106D+02
        xs( 31) = 0.2037135556193106D+02
        xs( 32) = 0.2132158950209938D+02
        xs( 33) = 0.2228384525819027D+02
        xs( 34) = 0.2325786994074947D+02
        xs( 35) = 0.2424349322996281D+02
        xs( 36) = 0.2524064206182273D+02
        xs( 37) = 0.2624934176573232D+02
        xs( 38) = 0.2726969247736364D+02
        xs( 39) = 0.2830189155949595D+02
        xs( 40) = 0.2934638256141041D+02
        xs( 41) = 0.3040419263904533D+02
        xs( 42) = 0.3147730982261492D+02
        xs( 43) = 0.3256954067987887D+02
        xs( 44) = 0.3368808848328257D+02
        xs( 45) = 0.3481730118005862D+02
        xs( 46) = 0.3600374877996973D+02
        ws(  1) = 0.4316165116281406D+00
        ws(  2) = 0.4379997758617093D+00
        ws(  3) = 0.4398692032499930D+00
        ws(  4) = 0.4421760285612014D+00
        ws(  5) = 0.4460620045440116D+00
        ws(  6) = 0.4523321940741717D+00
        ws(  7) = 0.4616606249968649D+00
        ws(  8) = 0.4745343644458626D+00
        ws(  9) = 0.4911552605062281D+00
        ws( 10) = 0.5113704742723277D+00
        ws( 11) = 0.5346806781539327D+00
        ws( 12) = 0.5603340819682929D+00
        ws( 13) = 0.5874693671084416D+00
        ws( 14) = 0.6152540151470977D+00
        ws( 15) = 0.6429801394348966D+00
        ws( 16) = 0.6701076081355755D+00
        ws( 17) = 0.6962649718945328D+00
        ws( 18) = 0.7212261173294310D+00
        ws( 19) = 0.7448781675483781D+00
        ws( 20) = 0.7671901994457277D+00
        ws( 21) = 0.7881870585994467D+00
        ws( 22) = 0.8079292719195506D+00
        ws( 23) = 0.8264985032500759D+00
        ws( 24) = 0.8439874822195174D+00
        ws( 25) = 0.8604933181081637D+00
        ws( 26) = 0.8761132780891733D+00
        ws( 27) = 0.8909423091567698D+00
        ws( 28) = 0.9050718517030670D+00
        ws( 29) = 0.9185892463723694D+00
        ws( 30) = 0.9315785156126902D+00
        ws( 31) = 0.9441198495264717D+00
        ws( 32) = 0.9562931312587764D+00
        ws( 33) = 0.9681761108589531D+00
        ws( 34) = 0.9798460814697693D+00
        ws( 35) = 0.9913935877557586D+00
        ws( 36) = 0.1002915167672695D+01
        ws( 37) = 0.1014487238042796D+01
        ws( 38) = 0.1026159399424178D+01
        ws( 39) = 0.1038058880334923D+01
        ws( 40) = 0.1050691430252962D+01
        ws( 41) = 0.1065206672321504D+01
        ws( 42) = 0.1084325140827090D+01
        ws( 43) = 0.1112258253391026D+01
        ws( 44) = 0.1166780511259450D+01
        ws( 45) = 0.1139743639170044D+01
        ws( 46) = 0.1338342264457587D+01
        endif
        if( idomain .eq.  193 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.3141592653589793D+01
        rk1r = 0.6283185307179586D+01
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  51
        err = 0.4251839766375224D-13
        xs(  1) = 0.3551116537367913D+00
        xs(  2) = 0.8137574395495767D+00
        xs(  3) = 0.1272011269677423D+01
        xs(  4) = 0.1726441537216904D+01
        xs(  5) = 0.2175853996283971D+01
        xs(  6) = 0.2619885299659103D+01
        xs(  7) = 0.3058790012287580D+01
        xs(  8) = 0.3493323893807111D+01
        xs(  9) = 0.3924650393900788D+01
        xs( 10) = 0.4354285811576851D+01
        xs( 11) = 0.4784094998734436D+01
        xs( 12) = 0.5216328602834238D+01
        xs( 13) = 0.5653672508339351D+01
        xs( 14) = 0.6099266294808145D+01
        xs( 15) = 0.6556645337562420D+01
        xs( 16) = 0.7029578054999307D+01
        xs( 17) = 0.7521806536399706D+01
        xs( 18) = 0.8036740752727695D+01
        xs( 19) = 0.8577180884829913D+01
        xs( 20) = 0.9145134598938473D+01
        xs( 21) = 0.9741760679823326D+01
        xs( 22) = 0.1036742764209263D+02
        xs( 23) = 0.1102184760723849D+02
        xs( 24) = 0.1170424020839896D+02
        xs( 25) = 0.1241349202078918D+02
        xs( 26) = 0.1314829253303138D+02
        xs( 27) = 0.1390724028225581D+02
        xs( 28) = 0.1468892028177473D+02
        xs( 29) = 0.1549195721430916D+02
        xs( 30) = 0.1631504970758673D+02
        xs( 31) = 0.1715699064489113D+02
        xs( 32) = 0.1801667764270490D+02
        xs( 33) = 0.1889311695842853D+02
        xs( 34) = 0.1978542325259581D+02
        xs( 35) = 0.2069281706166079D+02
        xs( 36) = 0.2161462116860369D+02
        xs( 37) = 0.2255025734077910D+02
        xs( 38) = 0.2349924300127412D+02
        xs( 39) = 0.2446118911695757D+02
        xs( 40) = 0.2543580319524326D+02
        xs( 41) = 0.2642289478816152D+02
        xs( 42) = 0.2742237518761610D+02
        xs( 43) = 0.2843425754228573D+02
        xs( 44) = 0.2945868316612804D+02
        xs( 45) = 0.3049602808001833D+02
        xs( 46) = 0.3154707431606964D+02
        xs( 47) = 0.3261350306695309D+02
        xs( 48) = 0.3369511537786769D+02
        xs( 49) = 0.3480608752906739D+02
        xs( 50) = 0.3589381976667930D+02
        xs( 51) = 0.3712721792112738D+02
        ws(  1) = 0.4553005378698662D+00
        ws(  2) = 0.4594284367605046D+00
        ws(  3) = 0.4566318048433454D+00
        ws(  4) = 0.4520403035293694D+00
        ws(  5) = 0.4467266680398756D+00
        ws(  6) = 0.4413802599603737D+00
        ws(  7) = 0.4365567425068957D+00
        ws(  8) = 0.4327058759654412D+00
        ws(  9) = 0.4301998898826344D+00
        ws( 10) = 0.4293810609998173D+00
        ws( 11) = 0.4306114901688122D+00
        ws( 12) = 0.4343029417528483D+00
        ws( 13) = 0.4409090203447389D+00
        ws( 14) = 0.4508705111242010D+00
        ws( 15) = 0.4645200942750539D+00
        ws( 16) = 0.4819743103372458D+00
        ws( 17) = 0.5030557802998163D+00
        ws( 18) = 0.5272824724197178D+00
        ws( 19) = 0.5539333082069893D+00
        ws( 20) = 0.5821661690776664D+00
        ws( 21) = 0.6111450660427763D+00
        ws( 22) = 0.6401380633534204D+00
        ws( 23) = 0.6685691050250495D+00
        ws( 24) = 0.6960282473660488D+00
        ws( 25) = 0.7222551943013518D+00
        ws( 26) = 0.7471109741823944D+00
        ws( 27) = 0.7705478196951594D+00
        ws( 28) = 0.7925824004675589D+00
        ws( 29) = 0.8132742406812404D+00
        ws( 30) = 0.8327093926716737D+00
        ws( 31) = 0.8509886909484056D+00
        ws( 32) = 0.8682196940756134D+00
        ws( 33) = 0.8845114157036251D+00
        ws( 34) = 0.8999713289055854D+00
        ws( 35) = 0.9147034813864262D+00
        ws( 36) = 0.9288084026046708D+00
        ws( 37) = 0.9423835962533652D+00
        ws( 38) = 0.9555230973497291D+00
        ws( 39) = 0.9683208929021697D+00
        ws( 40) = 0.9808759944943802D+00
        ws( 41) = 0.9932895358962476D+00
        ws( 42) = 0.1005658873963060D+01
        ws( 43) = 0.1018088296257399D+01
        ws( 44) = 0.1030764117894813D+01
        ws( 45) = 0.1044033649547112D+01
        ws( 46) = 0.1058581795361324D+01
        ws( 47) = 0.1077613974220282D+01
        ws( 48) = 0.1087639370671013D+01
        ws( 49) = 0.1166878792027126D+01
        ws( 50) = 0.9571458717599376D+00
        ws( 51) = 0.1786441850321502D+01
        endif
        if( idomain .eq.  194 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.3141592653589793D+01
        rk1r = 0.9424777960769379D+01
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  53
        err = 0.8096902050403907D-13
        xs(  1) = 0.4196066649217005D+00
        xs(  2) = 0.9613297403216108D+00
        xs(  3) = 0.1501950649708882D+01
        xs(  4) = 0.2036765237013514D+01
        xs(  5) = 0.2563420570677257D+01
        xs(  6) = 0.3080278023823102D+01
        xs(  7) = 0.3586256367922882D+01
        xs(  8) = 0.4080818926291052D+01
        xs(  9) = 0.4563964086712078D+01
        xs( 10) = 0.5036190568341901D+01
        xs( 11) = 0.5498432902452987D+01
        xs( 12) = 0.5951975800205548D+01
        xs( 13) = 0.6398366905755009D+01
        xs( 14) = 0.6839352568890849D+01
        xs( 15) = 0.7276857200025686D+01
        xs( 16) = 0.7713014606088042D+01
        xs( 17) = 0.8150243260780305D+01
        xs( 18) = 0.8591339201227349D+01
        xs( 19) = 0.9039542858566417D+01
        xs( 20) = 0.9498527803966004D+01
        xs( 21) = 0.9972272036563462D+01
        xs( 22) = 0.1046480970329967D+02
        xs( 23) = 0.1097990912106609D+02
        xs( 24) = 0.1152075666397735D+02
        xs( 25) = 0.1208972638526071D+02
        xs( 26) = 0.1268828218081800D+02
        xs( 27) = 0.1331701209288751D+02
        xs( 28) = 0.1397575765087571D+02
        xs( 29) = 0.1466378834622826D+02
        xs( 30) = 0.1537997925320793D+02
        xs( 31) = 0.1612296650321352D+02
        xs( 32) = 0.1689127061666206D+02
        xs( 33) = 0.1768338749677577D+02
        xs( 34) = 0.1849785157413413D+02
        xs( 35) = 0.1933327702173871D+02
        xs( 36) = 0.2018838271070556D+02
        xs( 37) = 0.2106200580175051D+02
        xs( 38) = 0.2195310765917875D+02
        xs( 39) = 0.2286077518403185D+02
        xs( 40) = 0.2378421979451020D+02
        xs( 41) = 0.2472277480154318D+02
        xs( 42) = 0.2567589350127804D+02
        xs( 43) = 0.2664315221411347D+02
        xs( 44) = 0.2762425322266224D+02
        xs( 45) = 0.2861902576636196D+02
        xs( 46) = 0.2962742218963937D+02
        xs( 47) = 0.3064955108380058D+02
        xs( 48) = 0.3168579588437590D+02
        xs( 49) = 0.3273709964236580D+02
        xs( 50) = 0.3380388961204300D+02
        xs( 51) = 0.3489529582682685D+02
        xs( 52) = 0.3597761577036479D+02
        xs( 53) = 0.3716069471654679D+02
        ws(  1) = 0.5379375724972137D+00
        ws(  2) = 0.5424137397539359D+00
        ws(  3) = 0.5381921701096526D+00
        ws(  4) = 0.5310569470642250D+00
        ws(  5) = 0.5219820227581961D+00
        ws(  6) = 0.5115526926079931D+00
        ws(  7) = 0.5003146565371414D+00
        ws(  8) = 0.4888107614849744D+00
        ws(  9) = 0.4775637754805925D+00
        ws( 10) = 0.4670464189105529D+00
        ws( 11) = 0.4576538847199936D+00
        ws( 12) = 0.4496909743453283D+00
        ws( 13) = 0.4433826606162941D+00
        ws( 14) = 0.4389088599505475D+00
        ws( 15) = 0.4364547198351854D+00
        ws( 16) = 0.4362615158152417D+00
        ws( 17) = 0.4386605531099625D+00
        ws( 18) = 0.4440714821265246D+00
        ws( 19) = 0.4529502293646883D+00
        ws( 20) = 0.4656869146860784D+00
        ws( 21) = 0.4824794788883381D+00
        ws( 22) = 0.5032293809747854D+00
        ws( 23) = 0.5275044740546428D+00
        ws( 24) = 0.5545879117671907D+00
        ws( 25) = 0.5835948424736848D+00
        ws( 26) = 0.6136124723050785D+00
        ws( 27) = 0.6438179289459136D+00
        ws( 28) = 0.6735484161265012D+00
        ws( 29) = 0.7023228744268053D+00
        ws( 30) = 0.7298295742277667D+00
        ws( 31) = 0.7558968412784323D+00
        ws( 32) = 0.7804596648537027D+00
        ws( 33) = 0.8035291612003426D+00
        ws( 34) = 0.8251676179822460D+00
        ws( 35) = 0.8454695359562950D+00
        ws( 36) = 0.8645479439816560D+00
        ws( 37) = 0.8825251126921294D+00
        ws( 38) = 0.8995264299873055D+00
        ws( 39) = 0.9156772777210282D+00
        ws( 40) = 0.9311010494536175D+00
        ws( 41) = 0.9459180774771738D+00
        ws( 42) = 0.9602486092861130D+00
        ws( 43) = 0.9742168714647811D+00
        ws( 44) = 0.9879473575856479D+00
        ws( 45) = 0.1001565080143824D+01
        ws( 46) = 0.1015211846599588D+01
        ws( 47) = 0.1029195743501365D+01
        ws( 48) = 0.1043467528101440D+01
        ws( 49) = 0.1061654789731383D+01
        ws( 50) = 0.1068104255231659D+01
        ws( 51) = 0.1156971646426215D+01
        ws( 52) = 0.9226148137300372D+00
        ws( 53) = 0.1838902155219327D+01
        endif
        if( idomain .eq.  195 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.3141592653589793D+01
        rk1r = 0.1256637061435917D+02
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  57
        err = 0.3125551742313875D-13
        xs(  1) = 0.4603826815457082D+00
        xs(  2) = 0.1055346962175980D+01
        xs(  3) = 0.1650464671427921D+01
        xs(  4) = 0.2241169055127000D+01
        xs(  5) = 0.2825237704362310D+01
        xs(  6) = 0.3400932684083601D+01
        xs(  7) = 0.3966784978384704D+01
        xs(  8) = 0.4521564305127357D+01
        xs(  9) = 0.5064286341181264D+01
        xs( 10) = 0.5594230087997487D+01
        xs( 11) = 0.6110958301269268D+01
        xs( 12) = 0.6614337591603977D+01
        xs( 13) = 0.7104554368429448D+01
        xs( 14) = 0.7582121358883594D+01
        xs( 15) = 0.8047868844571253D+01
        xs( 16) = 0.8502916779270548D+01
        xs( 17) = 0.8948629585346943D+01
        xs( 18) = 0.9386563636992348D+01
        xs( 19) = 0.9818424583197551D+01
        xs( 20) = 0.1024605300807148D+02
        xs( 21) = 0.1067144982333672D+02
        xs( 22) = 0.1109683882980583D+02
        xs( 23) = 0.1152474793143363D+02
        xs( 24) = 0.1195807818247219D+02
        xs( 25) = 0.1240012598612731D+02
        xs( 26) = 0.1285453046265378D+02
        xs( 27) = 0.1332513308015177D+02
        xs( 28) = 0.1381575643817076D+02
        xs( 29) = 0.1432993245929299D+02
        xs( 30) = 0.1487063341551923D+02
        xs( 31) = 0.1544006864394203D+02
        xs( 32) = 0.1603959226572307D+02
        xs( 33) = 0.1666972881412535D+02
        xs( 34) = 0.1733028779576123D+02
        xs( 35) = 0.1802052305920309D+02
        xs( 36) = 0.1873929825984807D+02
        xs( 37) = 0.1948523435235377D+02
        xs( 38) = 0.2025682884632716D+02
        xs( 39) = 0.2105254556963836D+02
        xs( 40) = 0.2187087820813021D+02
        xs( 41) = 0.2271039251332770D+02
        xs( 42) = 0.2356975217415787D+02
        xs( 43) = 0.2444773273781966D+02
        xs( 44) = 0.2534322743133742D+02
        xs( 45) = 0.2625524656825184D+02
        xs( 46) = 0.2718291580403782D+02
        xs( 47) = 0.2812546638110146D+02
        xs( 48) = 0.2908223539219715D+02
        xs( 49) = 0.3005265472245545D+02
        xs( 50) = 0.3103617813045742D+02
        xs( 51) = 0.3203270041844729D+02
        xs( 52) = 0.3304052831220564D+02
        xs( 53) = 0.3406408034981728D+02
        xs( 54) = 0.3508946646159473D+02
        xs( 55) = 0.3614774324234121D+02
        xs( 56) = 0.3718642337059506D+02
        xs( 57) = 0.3931336720378000D+02
        ws(  1) = 0.5903715122004631D+00
        ws(  2) = 0.5962884157065041D+00
        ws(  3) = 0.5933496903793726D+00
        ws(  4) = 0.5877030305687908D+00
        ws(  5) = 0.5801468953071082D+00
        ws(  6) = 0.5709985274975383D+00
        ws(  7) = 0.5605008490456413D+00
        ws(  8) = 0.5488934485543729D+00
        ws(  9) = 0.5364301098228482D+00
        ws( 10) = 0.5233841659944252D+00
        ws( 11) = 0.5100497503841478D+00
        ws( 12) = 0.4967397748509783D+00
        ws( 13) = 0.4837793686503951D+00
        ws( 14) = 0.4714934602668622D+00
        ws( 15) = 0.4601889476049774D+00
        ws( 16) = 0.4501352441077343D+00
        ws( 17) = 0.4415505227866391D+00
        ws( 18) = 0.4346021244429680D+00
        ws( 19) = 0.4294261034923520D+00
        ws( 20) = 0.4261631432599710D+00
        ws( 21) = 0.4249996902755364D+00
        ws( 22) = 0.4261984020344570D+00
        ws( 23) = 0.4301028701678619D+00
        ws( 24) = 0.4371078774160323D+00
        ws( 25) = 0.4475966043298317D+00
        ws( 26) = 0.4618563513928798D+00
        ws( 27) = 0.4799906461187051D+00
        ws( 28) = 0.5018493687585295D+00
        ws( 29) = 0.5270015580512623D+00
        ws( 30) = 0.5547701301064673D+00
        ws( 31) = 0.5843255075414980D+00
        ws( 32) = 0.6148071347958914D+00
        ws( 33) = 0.6454314613955685D+00
        ws( 34) = 0.6755593291288750D+00
        ws( 35) = 0.7047193265226540D+00
        ws( 36) = 0.7325992452138584D+00
        ws( 37) = 0.7590210374766208D+00
        ws( 38) = 0.7839108746545180D+00
        ws( 39) = 0.8072708295020283D+00
        ws( 40) = 0.8291549850445123D+00
        ws( 41) = 0.8496506749348359D+00
        ws( 42) = 0.8688645013903502D+00
        ws( 43) = 0.8869121981248189D+00
        ws( 44) = 0.9039121996780562D+00
        ws( 45) = 0.9199805715343543D+00
        ws( 46) = 0.9352294878597847D+00
        ws( 47) = 0.9497618246759876D+00
        ws( 48) = 0.9636779100698865D+00
        ws( 49) = 0.9770726408192484D+00
        ws( 50) = 0.9900067447519098D+00
        ws( 51) = 0.1002314279449313D+01
        ws( 52) = 0.1016990147922029D+01
        ws( 53) = 0.1014211436795338D+01
        ws( 54) = 0.1093292854720101D+01
        ws( 55) = 0.8586736315502621D+00
        ws( 56) = 0.1580835623057698D+01
        ws( 57) = 0.2544287746648831D+01
        endif
        if( idomain .eq.  196 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.3141592653589793D+01
        rk1r = 0.1570796326794897D+02
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  60
        err = 0.6370277626877776D-13
        xs(  1) = 0.4938907670472399D+00
        xs(  2) = 0.1132556773716003D+01
        xs(  3) = 0.1772322802092230D+01
        xs(  4) = 0.2408779773652695D+01
        xs(  5) = 0.3039974655572255D+01
        xs(  6) = 0.3664395856802368D+01
        xs(  7) = 0.4280723416731526D+01
        xs(  8) = 0.4887778590524039D+01
        xs(  9) = 0.5484513678224896D+01
        xs( 10) = 0.6070012726953069D+01
        xs( 11) = 0.6643496252352538D+01
        xs( 12) = 0.7204328565220791D+01
        xs( 13) = 0.7752027793868912D+01
        xs( 14) = 0.8286278932982482D+01
        xs( 15) = 0.8806949866036662D+01
        xs( 16) = 0.9314109451935263D+01
        xs( 17) = 0.9808045507769181D+01
        xs( 18) = 0.1028927907595084D+02
        xs( 19) = 0.1075857031592790D+02
        xs( 20) = 0.1121691172757115D+02
        xs( 21) = 0.1166550727733690D+02
        xs( 22) = 0.1210574154154072D+02
        xs( 23) = 0.1253914952068361D+02
        xs( 24) = 0.1296740197284551D+02
        xs( 25) = 0.1339231976306480D+02
        xs( 26) = 0.1381592280335215D+02
        xs( 27) = 0.1424050635278312D+02
        xs( 28) = 0.1466872349116306D+02
        xs( 29) = 0.1510364252843675D+02
        xs( 30) = 0.1554874660845022D+02
        xs( 31) = 0.1600785096671891D+02
        xs( 32) = 0.1648492907071966D+02
        xs( 33) = 0.1698386109905708D+02
        xs( 34) = 0.1750814542508539D+02
        xs( 35) = 0.1806063573299476D+02
        xs( 36) = 0.1864336606745256D+02
        xs( 37) = 0.1925749735473970D+02
        xs( 38) = 0.1990337735557932D+02
        xs( 39) = 0.2058067598258639D+02
        xs( 40) = 0.2128855127586264D+02
        xs( 41) = 0.2202581208378487D+02
        xs( 42) = 0.2279105900056260D+02
        xs( 43) = 0.2358279717266498D+02
        xs( 44) = 0.2439952148396114D+02
        xs( 45) = 0.2523977778001428D+02
        xs( 46) = 0.2610220485604867D+02
        xs( 47) = 0.2698556189276962D+02
        xs( 48) = 0.2788874590862211D+02
        xs( 49) = 0.2881080342107263D+02
        xs( 50) = 0.2975093540723178D+02
        xs( 51) = 0.3070851352182185D+02
        xs( 52) = 0.3168308277104874D+02
        xs( 53) = 0.3267432296355825D+02
        xs( 54) = 0.3368231892376794D+02
        xs( 55) = 0.3470786514681974D+02
        xs( 56) = 0.3574566141459438D+02
        xs( 57) = 0.3682163627606731D+02
        xs( 58) = 0.3786937486820940D+02
        xs( 59) = 0.3899875219736464D+02
        xs( 60) = 0.4019808468351445D+02
        ws(  1) = 0.6334454524846918D+00
        ws(  2) = 0.6404686298177765D+00
        ws(  3) = 0.6385046461608755D+00
        ws(  4) = 0.6340995152073623D+00
        ws(  5) = 0.6280410747868105D+00
        ws(  6) = 0.6205819547403049D+00
        ws(  7) = 0.6118768288054935D+00
        ws(  8) = 0.6020588783829659D+00
        ws(  9) = 0.5912585572778953D+00
        ws( 10) = 0.5796095046292907D+00
        ws( 11) = 0.5672514319390837D+00
        ws( 12) = 0.5543326644251640D+00
        ws( 13) = 0.5410130229497931D+00
        ws( 14) = 0.5274669293511649D+00
        ws( 15) = 0.5138861048103516D+00
        ws( 16) = 0.5004807870752316D+00
        ws( 17) = 0.4874780555250779D+00
        ws( 18) = 0.4751158824049114D+00
        ws( 19) = 0.4636323713434677D+00
        ws( 20) = 0.4532516535999833D+00
        ws( 21) = 0.4441707494842093D+00
        ws( 22) = 0.4365538917445910D+00
        ws( 23) = 0.4305403024127078D+00
        ws( 24) = 0.4262672470985196D+00
        ws( 25) = 0.4239036616953631D+00
        ws( 26) = 0.4236835094271613D+00
        ws( 27) = 0.4259247304182360D+00
        ws( 28) = 0.4310208766847851D+00
        ws( 29) = 0.4393990775925186D+00
        ws( 30) = 0.4514478819235499D+00
        ws( 31) = 0.4674273692768212D+00
        ws( 32) = 0.4873805026267136D+00
        ws( 33) = 0.5110711593329555D+00
        ws( 34) = 0.5379761083051749D+00
        ws( 35) = 0.5673443813223458D+00
        ws( 36) = 0.5983086746007720D+00
        ws( 37) = 0.6300094910063575D+00
        ws( 38) = 0.6616926476071358D+00
        ws( 39) = 0.6927615264372452D+00
        ws( 40) = 0.7227881728197113D+00
        ws( 41) = 0.7514983315619503D+00
        ws( 42) = 0.7787449492536592D+00
        ws( 43) = 0.8044795327993445D+00
        ws( 44) = 0.8287260458858792D+00
        ws( 45) = 0.8515592205083478D+00
        ws( 46) = 0.8730878345452108D+00
        ws( 47) = 0.8934424124027073D+00
        ws( 48) = 0.9127662981681005D+00
        ws( 49) = 0.9312146554539011D+00
        ws( 50) = 0.9489471464378804D+00
        ws( 51) = 0.9661210311156015D+00
        ws( 52) = 0.9829896144826159D+00
        ws( 53) = 0.9996351575251595D+00
        ws( 54) = 0.1015672578255347D+01
        ws( 55) = 0.1036822981484955D+01
        ws( 56) = 0.1039582823355328D+01
        ws( 57) = 0.1098004773566299D+01
        ws( 58) = 0.1065690479621131D+01
        ws( 59) = 0.1027043658392097D+01
        ws( 60) = 0.1830886383634541D+01
        endif
        if( idomain .eq.  197 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.3141592653589793D+01
        rk1r = 0.1884955592153876D+02
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  62
        err = 0.7560379818369280D-13
        xs(  1) = 0.5209304285679520D+00
        xs(  2) = 0.1194816594368978D+01
        xs(  3) = 0.1870464053785080D+01
        xs(  4) = 0.2543548591757801D+01
        xs(  5) = 0.3212313929470050D+01
        xs(  6) = 0.3875440197646252D+01
        xs(  7) = 0.4531774603507110D+01
        xs(  8) = 0.5180273048819809D+01
        xs(  9) = 0.5819984417853039D+01
        xs( 10) = 0.6450045993954778D+01
        xs( 11) = 0.7069682149346960D+01
        xs( 12) = 0.7678204230151367D+01
        xs( 13) = 0.8275011322216900D+01
        xs( 14) = 0.8859592199265830D+01
        xs( 15) = 0.9431528963711260D+01
        xs( 16) = 0.9990502911163640D+01
        xs( 17) = 0.1053630304138300D+02
        xs( 18) = 0.1106883739592265D+02
        xs( 19) = 0.1158814698895060D+02
        xs( 20) = 0.1209442147324153D+02
        xs( 21) = 0.1258801485646901D+02
        xs( 22) = 0.1306945868547977D+02
        xs( 23) = 0.1353946947924142D+02
        xs( 24) = 0.1399894736393573D+02
        xs( 25) = 0.1444896448662173D+02
        xs( 26) = 0.1489074520720272D+02
        xs( 27) = 0.1532564472504044D+02
        xs( 28) = 0.1575513674959568D+02
        xs( 29) = 0.1618082131487945D+02
        xs( 30) = 0.1660445915428234D+02
        xs( 31) = 0.1702803044633199D+02
        xs( 32) = 0.1745380707669837D+02
        xs( 33) = 0.1788442197563679D+02
        xs( 34) = 0.1832291577747576D+02
        xs( 35) = 0.1877273708133922D+02
        xs( 36) = 0.1923766948069408D+02
        xs( 37) = 0.1972166511101510D+02
        xs( 38) = 0.2022858915755782D+02
        xs( 39) = 0.2076191769632923D+02
        xs( 40) = 0.2132446103702421D+02
        xs( 41) = 0.2191818341307639D+02
        xs( 42) = 0.2254415454347272D+02
        xs( 43) = 0.2320262131023455D+02
        xs( 44) = 0.2389315616107355D+02
        xs( 45) = 0.2461483382000677D+02
        xs( 46) = 0.2536640105422822D+02
        xs( 47) = 0.2614642134638843D+02
        xs( 48) = 0.2695338897670856D+02
        xs( 49) = 0.2778581403624109D+02
        xs( 50) = 0.2864228296435845D+02
        xs( 51) = 0.2952150054275575D+02
        xs( 52) = 0.3042231854754801D+02
        xs( 53) = 0.3134375588674367D+02
        xs( 54) = 0.3228501949025726D+02
        xs( 55) = 0.3324553228649113D+02
        xs( 56) = 0.3422489640377374D+02
        xs( 57) = 0.3522311855647206D+02
        xs( 58) = 0.3624065621669272D+02
        xs( 59) = 0.3727874826134208D+02
        xs( 60) = 0.3832934047068141D+02
        xs( 61) = 0.3943065184071585D+02
        xs( 62) = 0.4057292845045907D+02
        ws(  1) = 0.6681923012064139D+00
        ws(  2) = 0.6760320974101990D+00
        ws(  3) = 0.6747279419984806D+00
        ws(  4) = 0.6711651167562884D+00
        ws(  5) = 0.6661485863871340D+00
        ws(  6) = 0.6599125580760956D+00
        ws(  7) = 0.6525824467671915D+00
        ws(  8) = 0.6442559867354117D+00
        ws(  9) = 0.6350229832507698D+00
        ws( 10) = 0.6249708991787279D+00
        ws( 11) = 0.6141866240477801D+00
        ws( 12) = 0.6027573540141759D+00
        ws( 13) = 0.5907715663684263D+00
        ws( 14) = 0.5783204414473904D+00
        ws( 15) = 0.5654998286926070D+00
        ws( 16) = 0.5524127100754191D+00
        ws( 17) = 0.5391719898213982D+00
        ws( 18) = 0.5259032898842001D+00
        ws( 19) = 0.5127472367952016D+00
        ws( 20) = 0.4998605053515698D+00
        ws( 21) = 0.4874147205166689D+00
        ws( 22) = 0.4755923759105889D+00
        ws( 23) = 0.4645794299067482D+00
        ws( 24) = 0.4545553768365669D+00
        ws( 25) = 0.4456833114475021D+00
        ws( 26) = 0.4381042304946502D+00
        ws( 27) = 0.4319403102607502D+00
        ws( 28) = 0.4273098330373340D+00
        ws( 29) = 0.4243517465624060D+00
        ws( 30) = 0.4232527173316125D+00
        ws( 31) = 0.4242673123569064D+00
        ws( 32) = 0.4277239363317793D+00
        ws( 33) = 0.4340125619295071D+00
        ws( 34) = 0.4435509679299676D+00
        ws( 35) = 0.4567250167273151D+00
        ws( 36) = 0.4738028332821686D+00
        ws( 37) = 0.4948378468050626D+00
        ws( 38) = 0.5195943876588393D+00
        ws( 39) = 0.5475341697834726D+00
        ws( 40) = 0.5778806553581201D+00
        ws( 41) = 0.6097410730926666D+00
        ws( 42) = 0.6422397384900107D+00
        ws( 43) = 0.6746195062435878D+00
        ws( 44) = 0.7062931122310829D+00
        ws( 45) = 0.7368509117967612D+00
        ws( 46) = 0.7660422432649416D+00
        ws( 47) = 0.7937459837420728D+00
        ws( 48) = 0.8199399593292443D+00
        ws( 49) = 0.8446738991998349D+00
        ws( 50) = 0.8680476692864025D+00
        ws( 51) = 0.8901956259818135D+00
        ws( 52) = 0.9112772726266741D+00
        ws( 53) = 0.9314670665715750D+00
        ws( 54) = 0.9509502019800394D+00
        ws( 55) = 0.9700110387294149D+00
        ws( 56) = 0.9889255907059379D+00
        ws( 57) = 0.1006681025803975D+01
        ws( 58) = 0.1027251172612207D+01
        ws( 59) = 0.1046821245287594D+01
        ws( 60) = 0.1080475944130290D+01
        ws( 61) = 0.1160721744456967D+01
        ws( 62) = 0.1441456152749188D+01
        endif
        if( idomain .eq.  198 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.3141592653589793D+01
        rk1r = 0.2199114857512855D+02
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  65
        err = 0.8371873520870502D-13
        xs(  1) = 0.5427436091521994D+00
        xs(  2) = 0.1245053697064696D+01
        xs(  3) = 0.1949686591578499D+01
        xs(  4) = 0.2652404612194763D+01
        xs(  5) = 0.3351630915907394D+01
        xs(  6) = 0.4046224567044938D+01
        xs(  7) = 0.4735196445702519D+01
        xs(  8) = 0.5417645649976668D+01
        xs(  9) = 0.6092740940250698D+01
        xs( 10) = 0.6759714143486445D+01
        xs( 11) = 0.7417857039343782D+01
        xs( 12) = 0.8066519216508620D+01
        xs( 13) = 0.8705106196279862D+01
        xs( 14) = 0.9333077762051538D+01
        xs( 15) = 0.9949946686621931D+01
        xs( 16) = 0.1055527815602989D+02
        xs( 17) = 0.1114869023540540D+02
        xs( 18) = 0.1172985574294468D+02
        xs( 19) = 0.1229850590420821D+02
        xs( 20) = 0.1285443614893302D+02
        xs( 21) = 0.1339751437306833D+02
        xs( 22) = 0.1392769189274576D+02
        xs( 23) = 0.1444501712069770D+02
        xs( 24) = 0.1494965163772304D+02
        xs( 25) = 0.1544188774219160D+02
        xs( 26) = 0.1592216570211765D+02
        xs( 27) = 0.1639108790811267D+02
        xs( 28) = 0.1684942634623516D+02
        xs( 29) = 0.1729812013017652D+02
        xs( 30) = 0.1773826228862395D+02
        xs( 31) = 0.1817107988890942D+02
        xs( 32) = 0.1859791728494667D+02
        xs( 33) = 0.1902023531785885D+02
        xs( 34) = 0.1943963639791928D+02
        xs( 35) = 0.1985791634458503D+02
        xs( 36) = 0.2027713261806209D+02
        xs( 37) = 0.2069967131940062D+02
        xs( 38) = 0.2112829561596438D+02
        xs( 39) = 0.2156616238447729D+02
        xs( 40) = 0.2201679387380822D+02
        xs( 41) = 0.2248398628941273D+02
        xs( 42) = 0.2297163898956031D+02
        xs( 43) = 0.2348350820460382D+02
        xs( 44) = 0.2402292376750088D+02
        xs( 45) = 0.2459253532537347D+02
        xs( 46) = 0.2519415342183078D+02
        xs( 47) = 0.2582871714225808D+02
        xs( 48) = 0.2649637484557921D+02
        xs( 49) = 0.2719663513140136D+02
        xs( 50) = 0.2792854190065421D+02
        xs( 51) = 0.2869084094920719D+02
        xs( 52) = 0.2948212188000790D+02
        xs( 53) = 0.3030093036980300D+02
        xs( 54) = 0.3114585376149336D+02
        xs( 55) = 0.3201558041160009D+02
        xs( 56) = 0.3290895155670435D+02
        xs( 57) = 0.3382497829540077D+02
        xs( 58) = 0.3476294476879320D+02
        xs( 59) = 0.3572216305065295D+02
        xs( 60) = 0.3670301030010025D+02
        xs( 61) = 0.3770374640735592D+02
        xs( 62) = 0.3873064088654879D+02
        xs( 63) = 0.3977776131367600D+02
        xs( 64) = 0.4082170075673009D+02
        xs( 65) = 0.4204420853485765D+02
        ws(  1) = 0.6962259251740222D+00
        ws(  2) = 0.7047441600606019D+00
        ws(  3) = 0.7040090275829695D+00
        ws(  4) = 0.7011816716619738D+00
        ws(  5) = 0.6970839696240170D+00
        ws(  6) = 0.6919392964484355D+00
        ws(  7) = 0.6858545647129136D+00
        ws(  8) = 0.6789053982996960D+00
        ws(  9) = 0.6711572005040989D+00
        ws( 10) = 0.6626712036566668D+00
        ws( 11) = 0.6535062174260087D+00
        ws( 12) = 0.6437190854686562D+00
        ws( 13) = 0.6333648599162572D+00
        ws( 14) = 0.6224970775277989D+00
        ws( 15) = 0.6111682957318874D+00
        ws( 16) = 0.5994309569312049D+00
        ws( 17) = 0.5873386114872995D+00
        ws( 18) = 0.5749475120273801D+00
        ws( 19) = 0.5623185783334118D+00
        ws( 20) = 0.5495197113440554D+00
        ws( 21) = 0.5366283943220672D+00
        ws( 22) = 0.5237344438957814D+00
        ws( 23) = 0.5109426455113451D+00
        ws( 24) = 0.4983748106676128D+00
        ws( 25) = 0.4861705314515203D+00
        ws( 26) = 0.4744856536310995D+00
        ws( 27) = 0.4634874607996039D+00
        ws( 28) = 0.4533461638222970D+00
        ws( 29) = 0.4442239311440717D+00
        ws( 30) = 0.4362652093259697D+00
        ws( 31) = 0.4295940899811713D+00
        ws( 32) = 0.4243237607438142D+00
        ws( 33) = 0.4205784830232479D+00
        ws( 34) = 0.4185217975602732D+00
        ws( 35) = 0.4183798458121306D+00
        ws( 36) = 0.4204495483586105D+00
        ws( 37) = 0.4250880766023341D+00
        ws( 38) = 0.4326870892615773D+00
        ws( 39) = 0.4436349652582969D+00
        ws( 40) = 0.4582635631941219D+00
        ws( 41) = 0.4767753597753988D+00
        ws( 42) = 0.4991609714416357D+00
        ws( 43) = 0.5251368315001143D+00
        ws( 44) = 0.5541386313060730D+00
        ws( 45) = 0.5853867409702986D+00
        ws( 46) = 0.6180045065057033D+00
        ws( 47) = 0.6511450277753646D+00
        ws( 48) = 0.6840854827829920D+00
        ws( 49) = 0.7162729279673474D+00
        ws( 50) = 0.7473291982951669D+00
        ws( 51) = 0.7770319625639776D+00
        ws( 52) = 0.8052861101726910D+00
        ws( 53) = 0.8320945387980576D+00
        ws( 54) = 0.8575324623159652D+00
        ws( 55) = 0.8817285035248273D+00
        ws( 56) = 0.9048457564694191D+00
        ws( 57) = 0.9270866345786873D+00
        ws( 58) = 0.9487068975609454D+00
        ws( 59) = 0.9698375668549001D+00
        ws( 60) = 0.9918085499836296D+00
        ws( 61) = 0.1008150605700751D+01
        ws( 62) = 0.1049366661926106D+01
        ws( 63) = 0.1049225525661360D+01
        ws( 64) = 0.1019499551515411D+01
        ws( 65) = 0.1861213786506760D+01
        endif
        if( idomain .eq.  199 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.3141592653589793D+01
        rk1r = 0.2513274122871834D+02
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  68
        err = 0.9346534174166202D-13
        xs(  1) = 0.5602744110298878D+00
        xs(  2) = 0.1285398172744884D+01
        xs(  3) = 0.2013225536688876D+01
        xs(  4) = 0.2739551623567243D+01
        xs(  5) = 0.3462911688627009D+01
        xs(  6) = 0.4182282573234401D+01
        xs(  7) = 0.4896788067989294D+01
        xs(  8) = 0.5605632319896989D+01
        xs(  9) = 0.6308080120873980D+01
        xs( 10) = 0.7003449838422151D+01
        xs( 11) = 0.7691110117097397D+01
        xs( 12) = 0.8370477618543356D+01
        xs( 13) = 0.9041014923031240D+01
        xs( 14) = 0.9702228371168642D+01
        xs( 15) = 0.1035366588167956D+02
        xs( 16) = 0.1099491488708670D+02
        xs( 17) = 0.1162560057210815D+02
        xs( 18) = 0.1224538461587208D+02
        xs( 19) = 0.1285396464540102D+02
        xs( 20) = 0.1345107461231959D+02
        xs( 21) = 0.1403648631060517D+02
        xs( 22) = 0.1461001225983985D+02
        xs( 23) = 0.1517151018114099D+02
        xs( 24) = 0.1572088928152802D+02
        xs( 25) = 0.1625811851886423D+02
        xs( 26) = 0.1678323691526436D+02
        xs( 27) = 0.1729636578203391D+02
        xs( 28) = 0.1779772236707352D+02
        xs( 29) = 0.1828763390424664D+02
        xs( 30) = 0.1876655037001297D+02
        xs( 31) = 0.1923505362732918D+02
        xs( 32) = 0.1969386047872854D+02
        xs( 33) = 0.2014381804806806D+02
        xs( 34) = 0.2058589229459020D+02
        xs( 35) = 0.2102115399088376D+02
        xs( 36) = 0.2145076956805528D+02
        xs( 37) = 0.2187600453344778D+02
        xs( 38) = 0.2229824361340941D+02
        xs( 39) = 0.2271902633147232D+02
        xs( 40) = 0.2314009343872767D+02
        xs( 41) = 0.2356344040558660D+02
        xs( 42) = 0.2399137559757775D+02
        xs( 43) = 0.2442657637223692D+02
        xs( 44) = 0.2487212419897627D+02
        xs( 45) = 0.2533148776498054D+02
        xs( 46) = 0.2580842425818016D+02
        xs( 47) = 0.2630679030667920D+02
        xs( 48) = 0.2683028676539304D+02
        xs( 49) = 0.2738218776229404D+02
        xs( 50) = 0.2796511146440602D+02
        xs( 51) = 0.2858087728388292D+02
        xs( 52) = 0.2923046919039594D+02
        xs( 53) = 0.2991409738421898D+02
        xs( 54) = 0.3063133022630019D+02
        xs( 55) = 0.3138126060821190D+02
        xs( 56) = 0.3216267567838312D+02
        xs( 57) = 0.3297421058225249D+02
        xs( 58) = 0.3381447464725799D+02
        xs( 59) = 0.3468215639240396D+02
        xs( 60) = 0.3557611954093431D+02
        xs( 61) = 0.3649533884441954D+02
        xs( 62) = 0.3743955453048760D+02
        xs( 63) = 0.3840773300252332D+02
        xs( 64) = 0.3940152139294068D+02
        xs( 65) = 0.4041943412541983D+02
        xs( 66) = 0.4146462204007230D+02
        xs( 67) = 0.4257772530171429D+02
        xs( 68) = 0.4369796111174334D+02
        ws(  1) = 0.7187480579050215D+00
        ws(  2) = 0.7277606005262311D+00
        ws(  3) = 0.7273932806240162D+00
        ws(  4) = 0.7250328281409458D+00
        ws(  5) = 0.7215200912381640D+00
        ws(  6) = 0.7170765021522015D+00
        ws(  7) = 0.7118021166225653D+00
        ws(  8) = 0.7057639540163280D+00
        ws(  9) = 0.6990180922037085D+00
        ws( 10) = 0.6916161529310563D+00
        ws( 11) = 0.6836072159368156D+00
        ws( 12) = 0.6750382531085837D+00
        ws( 13) = 0.6659541160317748D+00
        ws( 14) = 0.6563974682184255D+00
        ws( 15) = 0.6464088213994668D+00
        ws( 16) = 0.6360267416585880D+00
        ws( 17) = 0.6252882511847934D+00
        ws( 18) = 0.6142294350864012D+00
        ws( 19) = 0.6028862578153290D+00
        ws( 20) = 0.5912955941764571D+00
        ws( 21) = 0.5794964815852692D+00
        ws( 22) = 0.5675315994305444D+00
        ws( 23) = 0.5554489734601409D+00
        ws( 24) = 0.5433038814673496D+00
        ws( 25) = 0.5311608920529309D+00
        ws( 26) = 0.5190958894795882D+00
        ws( 27) = 0.5071978138504086D+00
        ws( 28) = 0.4955696769025185D+00
        ws( 29) = 0.4843282347967526D+00
        ws( 30) = 0.4736016186020943D+00
        ws( 31) = 0.4635244414438527D+00
        ws( 32) = 0.4542306505134279D+00
        ws( 33) = 0.4458457338840555D+00
        ws( 34) = 0.4384813939803760D+00
        ws( 35) = 0.4322363576765566D+00
        ws( 36) = 0.4272053747624647D+00
        ws( 37) = 0.4234947377538278D+00
        ws( 38) = 0.4212392260075231D+00
        ws( 39) = 0.4206154407646466D+00
        ws( 40) = 0.4218503703772594D+00
        ws( 41) = 0.4252273115472613D+00
        ws( 42) = 0.4310886336329457D+00
        ws( 43) = 0.4398266951758633D+00
        ws( 44) = 0.4518486924658685D+00
        ws( 45) = 0.4675078492597465D+00
        ws( 46) = 0.4870122907574748D+00
        ws( 47) = 0.5103412765369267D+00
        ws( 48) = 0.5372012609569130D+00
        ws( 49) = 0.5670395216647895D+00
        ws( 50) = 0.5991117077485409D+00
        ws( 51) = 0.6325828262352067D+00
        ws( 52) = 0.6666337315193545D+00
        ws( 53) = 0.7005478637405237D+00
        ws( 54) = 0.7337637569734454D+00
        ws( 55) = 0.7658923066708146D+00
        ws( 56) = 0.7967082056290036D+00
        ws( 57) = 0.8261285929009144D+00
        ws( 58) = 0.8541798588715019D+00
        ws( 59) = 0.8809845043804952D+00
        ws( 60) = 0.9067796212603247D+00
        ws( 61) = 0.9317170567393926D+00
        ws( 62) = 0.9559787776354050D+00
        ws( 63) = 0.9811670228719414D+00
        ws( 64) = 0.1008638972250487D+01
        ws( 65) = 0.1025436875925661D+01
        ws( 66) = 0.1044206105066116D+01
        ws( 67) = 0.1214149689068083D+01
        ws( 68) = 0.1536790617156525D+01
        endif
        if( idomain .eq.  200 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.3141592653589793D+01
        rk1r = 0.2827433388230814D+02
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  73
        err = 0.6249664049558964D-13
        xs(  1) = 0.5726925204037319D+00
        xs(  2) = 0.1314009727837943D+01
        xs(  3) = 0.2058378939779785D+01
        xs(  4) = 0.2801661988562054D+01
        xs(  5) = 0.3542515026249658D+01
        xs(  6) = 0.4280037218978614D+01
        xs(  7) = 0.5013468107746872D+01
        xs(  8) = 0.5742118477036372D+01
        xs(  9) = 0.6465349550935928D+01
        xs( 10) = 0.7182565481286319D+01
        xs( 11) = 0.7893209995623044D+01
        xs( 12) = 0.8596764327611625D+01
        xs( 13) = 0.9292745434951415D+01
        xs( 14) = 0.9980704171853766D+01
        xs( 15) = 0.1066022334291394D+02
        xs( 16) = 0.1133091567351761D+02
        xs( 17) = 0.1199242177714178D+02
        xs( 18) = 0.1264440821709307D+02
        xs( 19) = 0.1328656576503439D+02
        xs( 20) = 0.1391860795889202D+02
        xs( 21) = 0.1454027006264950D+02
        xs( 22) = 0.1515130853248853D+02
        xs( 23) = 0.1575150109894082D+02
        xs( 24) = 0.1634064758349746D+02
        xs( 25) = 0.1691857157994891D+02
        xs( 26) = 0.1748512314393764D+02
        xs( 27) = 0.1804018264547560D+02
        xs( 28) = 0.1858366594276931D+02
        xs( 29) = 0.1911553102256754D+02
        xs( 30) = 0.1963578620924624D+02
        xs( 31) = 0.2014449995437512D+02
        xs( 32) = 0.2064181205985981D+02
        xs( 33) = 0.2112794594262190D+02
        xs( 34) = 0.2160322121584737D+02
        xs( 35) = 0.2206806548605967D+02
        xs( 36) = 0.2252302397989671D+02
        xs( 37) = 0.2296876566860317D+02
        xs( 38) = 0.2340608526452522D+02
        xs( 39) = 0.2383590198883801D+02
        xs( 40) = 0.2425925803206299D+02
        xs( 41) = 0.2467732113878787D+02
        xs( 42) = 0.2509139540853291D+02
        xs( 43) = 0.2550294163251711D+02
        xs( 44) = 0.2591360475061922D+02
        xs( 45) = 0.2632524473806649D+02
        xs( 46) = 0.2673997036909560D+02
        xs( 47) = 0.2716017884365814D+02
        xs( 48) = 0.2758860013065097D+02
        xs( 49) = 0.2802833046543554D+02
        xs( 50) = 0.2848282332265462D+02
        xs( 51) = 0.2895580211092712D+02
        xs( 52) = 0.2945107541414118D+02
        xs( 53) = 0.2997227084790641D+02
        xs( 54) = 0.3052254339288238D+02
        xs( 55) = 0.3110433510317820D+02
        xs( 56) = 0.3171924771149945D+02
        xs( 57) = 0.3236804490061481D+02
        xs( 58) = 0.3305075619203806D+02
        xs( 59) = 0.3376683482660597D+02
        xs( 60) = 0.3451532859418172D+02
        xs( 61) = 0.3529503925897643D+02
        xs( 62) = 0.3610466027777132D+02
        xs( 63) = 0.3694289241031675D+02
        xs( 64) = 0.3780853384397791D+02
        xs( 65) = 0.3870054850374361D+02
        xs( 66) = 0.3961818883861423D+02
        xs( 67) = 0.4056101760764810D+02
        xs( 68) = 0.4152860021651349D+02
        xs( 69) = 0.4252244551862658D+02
        xs( 70) = 0.4354338317591870D+02
        xs( 71) = 0.4459808699312551D+02
        xs( 72) = 0.4570382704111823D+02
        xs( 73) = 0.4678489224023209D+02
        ws(  1) = 0.7347105271107445D+00
        ws(  2) = 0.7441296287043206D+00
        ws(  3) = 0.7441235313156082D+00
        ws(  4) = 0.7422370817986298D+00
        ws(  5) = 0.7393222684265334D+00
        ws(  6) = 0.7355962696788081D+00
        ws(  7) = 0.7311509268844938D+00
        ws(  8) = 0.7260434574050738D+00
        ws(  9) = 0.7203194326209337D+00
        ws( 10) = 0.7140197484997526D+00
        ws( 11) = 0.7071828481572511D+00
        ws( 12) = 0.6998453391053463D+00
        ws( 13) = 0.6920420504838906D+00
        ws( 14) = 0.6838059247812047D+00
        ws( 15) = 0.6751679056850743D+00
        ws( 16) = 0.6661568903180720D+00
        ws( 17) = 0.6567997734168659D+00
        ws( 18) = 0.6471215927075950D+00
        ws( 19) = 0.6371457770802178D+00
        ws( 20) = 0.6268944971229138D+00
        ws( 21) = 0.6163891186672013D+00
        ws( 22) = 0.6056507627988299D+00
        ws( 23) = 0.5947009793408115D+00
        ws( 24) = 0.5835625442829292D+00
        ws( 25) = 0.5722603940684333D+00
        ws( 26) = 0.5608227097045347D+00
        ws( 27) = 0.5492821593286121D+00
        ws( 28) = 0.5376772962872561D+00
        ws( 29) = 0.5260540872313118D+00
        ws( 30) = 0.5144675067731844D+00
        ws( 31) = 0.5029830776881665D+00
        ws( 32) = 0.4916781571000087D+00
        ws( 33) = 0.4806426772426025D+00
        ws( 34) = 0.4699789730779202D+00
        ws( 35) = 0.4598003345270270D+00
        ws( 36) = 0.4502281169648610D+00
        ws( 37) = 0.4413877401677718D+00
        ws( 38) = 0.4334046921967843D+00
        ws( 39) = 0.4264024226413672D+00
        ws( 40) = 0.4205041116155457D+00
        ws( 41) = 0.4158391060156996D+00
        ws( 42) = 0.4125524299864571D+00
        ws( 43) = 0.4108136579181040D+00
        ws( 44) = 0.4108220220425514D+00
        ws( 45) = 0.4128087571705079D+00
        ws( 46) = 0.4170412632136504D+00
        ws( 47) = 0.4238300417420477D+00
        ws( 48) = 0.4335286277893576D+00
        ws( 49) = 0.4465090220239888D+00
        ws( 50) = 0.4631003754031619D+00
        ws( 51) = 0.4834965415417210D+00
        ws( 52) = 0.5076597283122304D+00
        ws( 53) = 0.5352611343927446D+00
        ws( 54) = 0.5656931272739509D+00
        ws( 55) = 0.5981571320056625D+00
        ws( 56) = 0.6317935090858325D+00
        ws( 57) = 0.6658030547961780D+00
        ws( 58) = 0.6995254942751611D+00
        ws( 59) = 0.7324703977363022D+00
        ws( 60) = 0.7643151840540446D+00
        ws( 61) = 0.7948866216275478D+00
        ws( 62) = 0.8241359159209477D+00
        ws( 63) = 0.8521284076373034D+00
        ws( 64) = 0.8789924021568888D+00
        ws( 65) = 0.9048799016412054D+00
        ws( 66) = 0.9302657575729456D+00
        ws( 67) = 0.9553644173736994D+00
        ws( 68) = 0.9810277323682248D+00
        ws( 69) = 0.1006795342354744D+01
        ws( 70) = 0.1029639615719227D+01
        ws( 71) = 0.1068060096996011D+01
        ws( 72) = 0.1222217688417318D+01
        ws( 73) = 0.1325902214573300D+01
        endif
        if( idomain .eq.  201 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.3141592653589793D+01
        rk1r = 0.3141592653589793D+02
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  77
        err = 0.5086295518432732D-13
        xs(  1) = 0.5813685426648634D+00
        xs(  2) = 0.1334002886612796D+01
        xs(  3) = 0.2089941026018905D+01
        xs(  4) = 0.2845096636369573D+01
        xs(  5) = 0.3598216149309850D+01
        xs(  6) = 0.4348490781644646D+01
        xs(  7) = 0.5095248480765267D+01
        xs(  8) = 0.5837883174452163D+01
        xs(  9) = 0.6575833336313496D+01
        xs( 10) = 0.7308574276733174D+01
        xs( 11) = 0.8035614851199988D+01
        xs( 12) = 0.8756495619232549D+01
        xs( 13) = 0.9470787393968209D+01
        xs( 14) = 0.1017808979405263D+02
        xs( 15) = 0.1087802967477948D+02
        xs( 16) = 0.1157025942824522D+02
        xs( 17) = 0.1225445519123697D+02
        xs( 18) = 0.1293031501938305D+02
        xs( 19) = 0.1359755709194592D+02
        xs( 20) = 0.1425591801092710D+02
        xs( 21) = 0.1490515125487878D+02
        xs( 22) = 0.1554502584431442D+02
        xs( 23) = 0.1617532527330886D+02
        xs( 24) = 0.1679584676165984D+02
        xs( 25) = 0.1740640088436702D+02
        xs( 26) = 0.1800681164043296D+02
        xs( 27) = 0.1859691703113699D+02
        xs( 28) = 0.1917657022874695D+02
        xs( 29) = 0.1974564142948736D+02
        xs( 30) = 0.2030402049818680D+02
        xs( 31) = 0.2085162052400260D+02
        xs( 32) = 0.2138838241289096D+02
        xs( 33) = 0.2191428063647440D+02
        xs( 34) = 0.2242933022862722D+02
        xs( 35) = 0.2293359505629962D+02
        xs( 36) = 0.2342719727241239D+02
        xs( 37) = 0.2391032767034223D+02
        xs( 38) = 0.2438325639959775D+02
        xs( 39) = 0.2484634320256592D+02
        xs( 40) = 0.2530004608132691D+02
        xs( 41) = 0.2574492725950445D+02
        xs( 42) = 0.2618165567256910D+02
        xs( 43) = 0.2661100616471136D+02
        xs( 44) = 0.2703385703624027D+02
        xs( 45) = 0.2745118910185642D+02
        xs( 46) = 0.2786409012629070D+02
        xs( 47) = 0.2827376768453147D+02
        xs( 48) = 0.2868157144217369D+02
        xs( 49) = 0.2908902407673227D+02
        xs( 50) = 0.2949786000355179D+02
        xs( 51) = 0.2991007207223106D+02
        xs( 52) = 0.3032796496601894D+02
        xs( 53) = 0.3075420617057979D+02
        xs( 54) = 0.3119185192815236D+02
        xs( 55) = 0.3164431586255893D+02
        xs( 56) = 0.3211525423441703D+02
        xs( 57) = 0.3260836704786816D+02
        xs( 58) = 0.3312714727820391D+02
        xs( 59) = 0.3367463402656516D+02
        xs( 60) = 0.3425322655982836D+02
        xs( 61) = 0.3486459338058497D+02
        xs( 62) = 0.3550967668627590D+02
        xs( 63) = 0.3618876780828710D+02
        xs( 64) = 0.3690162349256442D+02
        xs( 65) = 0.3764759955233255D+02
        xs( 66) = 0.3842578662661012D+02
        xs( 67) = 0.3923513842238820D+02
        xs( 68) = 0.4007459420074595D+02
        xs( 69) = 0.4094317581868219D+02
        xs( 70) = 0.4184006704764347D+02
        xs( 71) = 0.4276485144823321D+02
        xs( 72) = 0.4371774889337273D+02
        xs( 73) = 0.4469779158004346D+02
        xs( 74) = 0.4570803934854753D+02
        xs( 75) = 0.4675263565280427D+02
        xs( 76) = 0.4788162999514542D+02
        xs( 77) = 0.4901556675143699D+02
        ws(  1) = 0.7458637440398806D+00
        ws(  2) = 0.7555727913165990D+00
        ws(  3) = 0.7558299795993202D+00
        ws(  4) = 0.7542911011899975D+00
        ws(  5) = 0.7518166069440801D+00
        ws(  6) = 0.7486215678561592D+00
        ws(  7) = 0.7447931161948133D+00
        ws(  8) = 0.7403827947494831D+00
        ws(  9) = 0.7354301297547616D+00
        ws( 10) = 0.7299699222050013D+00
        ws( 11) = 0.7240346766952883D+00
        ws( 12) = 0.7176553521196479D+00
        ws( 13) = 0.7108614932714745D+00
        ws( 14) = 0.7036811445463159D+00
        ws( 15) = 0.6961407122697439D+00
        ws( 16) = 0.6882648480460836D+00
        ws( 17) = 0.6800763839480941D+00
        ws( 18) = 0.6715963307132212D+00
        ws( 19) = 0.6628439406508612D+00
        ws( 20) = 0.6538368327758078D+00
        ws( 21) = 0.6445911764815299D+00
        ws( 22) = 0.6351219306668417D+00
        ws( 23) = 0.6254431369434743D+00
        ws( 24) = 0.6155682679443611D+00
        ws( 25) = 0.6055106345244435D+00
        ws( 26) = 0.5952838585651248D+00
        ws( 27) = 0.5849024209277418D+00
        ws( 28) = 0.5743822965385074D+00
        ws( 29) = 0.5637416901221652D+00
        ws( 30) = 0.5530018858885321D+00
        ws( 31) = 0.5421882211529183D+00
        ws( 32) = 0.5313311853690182D+00
        ws( 33) = 0.5204676294055554D+00
        ws( 34) = 0.5096420412065111D+00
        ws( 35) = 0.4989077991170147D+00
        ws( 36) = 0.4883282513958211D+00
        ws( 37) = 0.4779773960941961D+00
        ws( 38) = 0.4679398721666880D+00
        ws( 39) = 0.4583099660167057D+00
        ws( 40) = 0.4491894541221998D+00
        ws( 41) = 0.4406844087210511D+00
        ws( 42) = 0.4329016068323043D+00
        ws( 43) = 0.4259457864252525D+00
        ws( 44) = 0.4199193596808772D+00
        ws( 45) = 0.4149258536065315D+00
        ws( 46) = 0.4110770837130945D+00
        ws( 47) = 0.4085024590170055D+00
        ws( 48) = 0.4073581916908015D+00
        ws( 49) = 0.4078353682662931D+00
        ws( 50) = 0.4101677182199399D+00
        ws( 51) = 0.4146396286532009D+00
        ws( 52) = 0.4215902232003381D+00
        ws( 53) = 0.4314020117258284D+00
        ws( 54) = 0.4444603477579861D+00
        ws( 55) = 0.4610802937251476D+00
        ws( 56) = 0.4814174394260965D+00
        ws( 57) = 0.5053946104837671D+00
        ws( 58) = 0.5326755527933742D+00
        ws( 59) = 0.5626993335843424D+00
        ws( 60) = 0.5947636750543021D+00
        ws( 61) = 0.6281256650800939D+00
        ws( 62) = 0.6620875059265895D+00
        ws( 63) = 0.6960519345036593D+00
        ws( 64) = 0.7295498208319154D+00
        ws( 65) = 0.7622485592677448D+00
        ws( 66) = 0.7939487613478244D+00
        ws( 67) = 0.8245765561888335D+00
        ws( 68) = 0.8541752153738433D+00
        ws( 69) = 0.8828513704595456D+00
        ws( 70) = 0.9108136085011374D+00
        ws( 71) = 0.9386300167183808D+00
        ws( 72) = 0.9679077840258055D+00
        ws( 73) = 0.9935138340462361D+00
        ws( 74) = 0.1027226185145292D+01
        ws( 75) = 0.1053823108677725D+01
        ws( 76) = 0.1187964751369851D+01
        ws( 77) = 0.1520190931485536D+01
        endif
        if( idomain .eq.  202 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.3141592653589793D+01
        rk1r = 0.3455751918948772D+02
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  80
        err = 0.4502082833817047D-13
        xs(  1) = 0.5933120514648480D+00
        xs(  2) = 0.1361469453547842D+01
        xs(  3) = 0.2133143789807920D+01
        xs(  4) = 0.2904246044463953D+01
        xs(  5) = 0.3673575770553905D+01
        xs(  6) = 0.4440383376935802D+01
        xs(  7) = 0.5204055156339610D+01
        xs(  8) = 0.5964040625307052D+01
        xs(  9) = 0.6719830335583619D+01
        xs( 10) = 0.7470947835874184D+01
        xs( 11) = 0.8216946276808413D+01
        xs( 12) = 0.8957406616803556D+01
        xs( 13) = 0.9691936327076972D+01
        xs( 14) = 0.1042016817544032D+02
        xs( 15) = 0.1114175893683773D+02
        xs( 16) = 0.1185638799276898D+02
        xs( 17) = 0.1256375583198670D+02
        xs( 18) = 0.1326358248623365D+02
        xs( 19) = 0.1395560594232380D+02
        xs( 20) = 0.1463958057264285D+02
        xs( 21) = 0.1531527562378413D+02
        xs( 22) = 0.1598247379956000D+02
        xs( 23) = 0.1664096997122069D+02
        xs( 24) = 0.1729057004509265D+02
        xs( 25) = 0.1793109001646370D+02
        xs( 26) = 0.1856235523867583D+02
        xs( 27) = 0.1918419993822424D+02
        xs( 28) = 0.1979646701033496D+02
        xs( 29) = 0.2039900813509807D+02
        xs( 30) = 0.2099168426182757D+02
        xs( 31) = 0.2157436651889318D+02
        xs( 32) = 0.2214693761767707D+02
        xs( 33) = 0.2270929383213700D+02
        xs( 34) = 0.2326134764882610D+02
        xs( 35) = 0.2380303119445684D+02
        xs( 36) = 0.2433430055624216D+02
        xs( 37) = 0.2485514110932958D+02
        xs( 38) = 0.2536557394778723D+02
        xs( 39) = 0.2586566346920016D+02
        xs( 40) = 0.2635552607288915D+02
        xs( 41) = 0.2683533978279929D+02
        xs( 42) = 0.2730535439168749D+02
        xs( 43) = 0.2776590146068307D+02
        xs( 44) = 0.2821740325796693D+02
        xs( 45) = 0.2866037960454996D+02
        xs( 46) = 0.2909545179989959D+02
        xs( 47) = 0.2952334350564752D+02
        xs( 48) = 0.2994487964404644D+02
        xs( 49) = 0.3036098554331181D+02
        xs( 50) = 0.3077268891689078D+02
        xs( 51) = 0.3118112642615864D+02
        xs( 52) = 0.3158755552936974D+02
        xs( 53) = 0.3199337288585644D+02
        xs( 54) = 0.3240014305704768D+02
        xs( 55) = 0.3280964287505656D+02
        xs( 56) = 0.3322392390072246D+02
        xs( 57) = 0.3364538669018040D+02
        xs( 58) = 0.3407684849808265D+02
        xs( 59) = 0.3452157503817634D+02
        xs( 60) = 0.3498324230616316D+02
        xs( 61) = 0.3546580162662213D+02
        xs( 62) = 0.3597324385521625D+02
        xs( 63) = 0.3650929514104809D+02
        xs( 64) = 0.3707711284746349D+02
        xs( 65) = 0.3767906176444400D+02
        xs( 66) = 0.3831662299141150D+02
        xs( 67) = 0.3899043572670901D+02
        xs( 68) = 0.3970043053830569D+02
        xs( 69) = 0.4044600300758858D+02
        xs( 70) = 0.4122619158273691D+02
        xs( 71) = 0.4203984426246760D+02
        xs( 72) = 0.4288577099243075D+02
        xs( 73) = 0.4376287541172666D+02
        xs( 74) = 0.4467022133004270D+02
        xs( 75) = 0.4560719319220614D+02
        xs( 76) = 0.4657400728159075D+02
        xs( 77) = 0.4757352989675656D+02
        xs( 78) = 0.4860348753270846D+02
        xs( 79) = 0.4971407993383872D+02
        xs( 80) = 0.5082599403999767D+02
        ws(  1) = 0.7612026305328695D+00
        ws(  2) = 0.7712151428345591D+00
        ws(  3) = 0.7716638482510939D+00
        ws(  4) = 0.7703597723823844D+00
        ws(  5) = 0.7681783087462500D+00
        ws(  6) = 0.7653355648776320D+00
        ws(  7) = 0.7619165558803966D+00
        ws(  8) = 0.7579695904290763D+00
        ws(  9) = 0.7535304721939301D+00
        ws( 10) = 0.7486300811564038D+00
        ws( 11) = 0.7432969811639543D+00
        ws( 12) = 0.7375582973225178D+00
        ws( 13) = 0.7314399392826570D+00
        ws( 14) = 0.7249665766507615D+00
        ws( 15) = 0.7181615348011366D+00
        ws( 16) = 0.7110466846919834D+00
        ws( 17) = 0.7036423589338796D+00
        ws( 18) = 0.6959673069489598D+00
        ws( 19) = 0.6880386925712521D+00
        ws( 20) = 0.6798721328600518D+00
        ws( 21) = 0.6714817749590188D+00
        ws( 22) = 0.6628804074084845D+00
        ws( 23) = 0.6540796028041672D+00
        ws( 24) = 0.6450898897421069D+00
        ws( 25) = 0.6359209533866533D+00
        ws( 26) = 0.6265818656218083D+00
        ws( 27) = 0.6170813475231639D+00
        ws( 28) = 0.6074280687761774D+00
        ws( 29) = 0.5976309906347146D+00
        ws( 30) = 0.5876997610136963D+00
        ws( 31) = 0.5776451722480217D+00
        ws( 32) = 0.5674796937354987D+00
        ws( 33) = 0.5572180927615665D+00
        ws( 34) = 0.5468781566749819D+00
        ws( 35) = 0.5364815272387961D+00
        ws( 36) = 0.5260546518097419D+00
        ws( 37) = 0.5156298435618838D+00
        ws( 38) = 0.5052464208916811D+00
        ws( 39) = 0.4949518605013010D+00
        ws( 40) = 0.4848028468786030D+00
        ws( 41) = 0.4748660361789599D+00
        ws( 42) = 0.4652182902251241D+00
        ws( 43) = 0.4559461095181576D+00
        ws( 44) = 0.4471440559431918D+00
        ws( 45) = 0.4389121748859080D+00
        ws( 46) = 0.4313528501105103D+00
        ws( 47) = 0.4245680694243652D+00
        ws( 48) = 0.4186584001026112D+00
        ws( 49) = 0.4137245755386176D+00
        ws( 50) = 0.4098714196743389D+00
        ws( 51) = 0.4072128776427950D+00
        ws( 52) = 0.4058776418290025D+00
        ws( 53) = 0.4060171002539584D+00
        ws( 54) = 0.4078183263732480D+00
        ws( 55) = 0.4115219545518966D+00
        ws( 56) = 0.4174389886130755D+00
        ws( 57) = 0.4259555177155388D+00
        ws( 58) = 0.4375129495478546D+00
        ws( 59) = 0.4525550297261984D+00
        ws( 60) = 0.4714420664612199D+00
        ws( 61) = 0.4943469614441501D+00
        ws( 62) = 0.5211637976704331D+00
        ws( 63) = 0.5514688673044696D+00
        ws( 64) = 0.5845621912382466D+00
        ws( 65) = 0.6195816800638371D+00
        ws( 66) = 0.6556449545804542D+00
        ws( 67) = 0.6919659747504084D+00
        ws( 68) = 0.7279198881093414D+00
        ws( 69) = 0.7630620523394271D+00
        ws( 70) = 0.7971208653647379D+00
        ws( 71) = 0.8299818909435770D+00
        ws( 72) = 0.8616868389899948D+00
        ws( 73) = 0.8923852787173407D+00
        ws( 74) = 0.9221493189378980D+00
        ws( 75) = 0.9517251322897321D+00
        ws( 76) = 0.9842546046740367D+00
        ws( 77) = 0.1004945994173188D+01
        ws( 78) = 0.1082003749120784D+01
        ws( 79) = 0.1076542594289098D+01
        ws( 80) = 0.1630333552783954D+01
        endif
        if( idomain .eq.  203 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.3141592653589793D+01
        rk1r = 0.3769911184307752D+02
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  82
        err = 0.9800122360903044D-13
        xs(  1) = 0.6046132363809020D+00
        xs(  2) = 0.1387448037786722D+01
        xs(  3) = 0.2173975757052008D+01
        xs(  4) = 0.2960090593023775D+01
        xs(  5) = 0.3744628723814077D+01
        xs(  6) = 0.4526883713118086D+01
        xs(  7) = 0.5306285160300392D+01
        xs(  8) = 0.6082324372398114D+01
        xs(  9) = 0.6854531568010437D+01
        xs( 10) = 0.7622467597354985D+01
        xs( 11) = 0.8385720482407860D+01
        xs( 12) = 0.9143903665408553D+01
        xs( 13) = 0.9896654829159505D+01
        xs( 14) = 0.1064363484560643D+02
        xs( 15) = 0.1138452668223416D+02
        xs( 16) = 0.1211903421250405D+02
        xs( 17) = 0.1284688092863554D+02
        xs( 18) = 0.1356780857801867D+02
        xs( 19) = 0.1428157575353733D+02
        xs( 20) = 0.1498795647009043D+02
        xs( 21) = 0.1568673875814199D+02
        xs( 22) = 0.1637772330211861D+02
        xs( 23) = 0.1706072214799715D+02
        xs( 24) = 0.1773555750113819D+02
        xs( 25) = 0.1840206063271598D+02
        xs( 26) = 0.1906007091121163D+02
        xs( 27) = 0.1970943497451517D+02
        xs( 28) = 0.2035000605831421D+02
        xs( 29) = 0.2098164349769356D+02
        xs( 30) = 0.2160421242129199D+02
        xs( 31) = 0.2221758366102258D+02
        xs( 32) = 0.2282163390534088D+02
        xs( 33) = 0.2341624613042041D+02
        xs( 34) = 0.2400131035143644D+02
        xs( 35) = 0.2457672474547589D+02
        xs( 36) = 0.2514239720827128D+02
        xs( 37) = 0.2569824741864284D+02
        xs( 38) = 0.2624420949644244D+02
        xs( 39) = 0.2678023535039852D+02
        xs( 40) = 0.2730629881878739D+02
        xs( 41) = 0.2782240070351494D+02
        xs( 42) = 0.2832857477930519D+02
        xs( 43) = 0.2882489481304036D+02
        xs( 44) = 0.2931148253959570D+02
        xs( 45) = 0.2978851639553044D+02
        xs( 46) = 0.3025624060469638D+02
        xs( 47) = 0.3071497395816936D+02
        xs( 48) = 0.3116511740046711D+02
        xs( 49) = 0.3160715946014852D+02
        xs( 50) = 0.3204167884149140D+02
        xs( 51) = 0.3246934428544092D+02
        xs( 52) = 0.3289091302755516D+02
        xs( 53) = 0.3330723031293247D+02
        xs( 54) = 0.3371923270729095D+02
        xs( 55) = 0.3412795707695523D+02
        xs( 56) = 0.3453455599103195D+02
        xs( 57) = 0.3494032056679673D+02
        xs( 58) = 0.3534671394236746D+02
        xs( 59) = 0.3575542039310503D+02
        xs( 60) = 0.3616841260376036D+02
        xs( 61) = 0.3658803044282481D+02
        xs( 62) = 0.3701705134158036D+02
        xs( 63) = 0.3745872224156293D+02
        xs( 64) = 0.3791672273557887D+02
        xs( 65) = 0.3839503926417633D+02
        xs( 66) = 0.3889774813265669D+02
        xs( 67) = 0.3942873067852244D+02
        xs( 68) = 0.3999137500795199D+02
        xs( 69) = 0.4058833839872863D+02
        xs( 70) = 0.4122143005732195D+02
        xs( 71) = 0.4189162653825406D+02
        xs( 72) = 0.4259918419725109D+02
        xs( 73) = 0.4334379760904667D+02
        xs( 74) = 0.4412477191402908D+02
        xs( 75) = 0.4494118916984394D+02
        xs( 76) = 0.4579207814714107D+02
        xs( 77) = 0.4667644215165932D+02
        xs( 78) = 0.4759352876537949D+02
        xs( 79) = 0.4854384066680597D+02
        xs( 80) = 0.4952847795103238D+02
        xs( 81) = 0.5057166688993212D+02
        xs( 82) = 0.5169544505848072D+02
        ws(  1) = 0.7757137484602412D+00
        ws(  2) = 0.7859949873703488D+00
        ws(  3) = 0.7865920141859623D+00
        ws(  4) = 0.7854632463806971D+00
        ws(  5) = 0.7834989107920683D+00
        ws(  6) = 0.7809169691972132D+00
        ws(  7) = 0.7778014611634231D+00
        ws(  8) = 0.7741987862236569D+00
        ws(  9) = 0.7701424649286773D+00
        ws( 10) = 0.7656609576339904D+00
        ws( 11) = 0.7607804049196638D+00
        ws( 12) = 0.7555255920524676D+00
        ws( 13) = 0.7499202322281506D+00
        ws( 14) = 0.7439869817454775D+00
        ws( 15) = 0.7377473585962566D+00
        ws( 16) = 0.7312216401145364D+00
        ws( 17) = 0.7244287736195458D+00
        ws( 18) = 0.7173863144259777D+00
        ws( 19) = 0.7101103959350418D+00
        ws( 20) = 0.7026157316664096D+00
        ws( 21) = 0.6949156467645727D+00
        ws( 22) = 0.6870221355976148D+00
        ws( 23) = 0.6789459419845533D+00
        ws( 24) = 0.6706966590049394D+00
        ws( 25) = 0.6622828460660158D+00
        ws( 26) = 0.6537121618069630D+00
        ws( 27) = 0.6449915124336306D+00
        ws( 28) = 0.6361272161635655D+00
        ws( 29) = 0.6271251856056648D+00
        ws( 30) = 0.6179911311034498D+00
        ws( 31) = 0.6087307893472848D+00
        ws( 32) = 0.5993501829189481D+00
        ws( 33) = 0.5898559178684926D+00
        ws( 34) = 0.5802555279082513D+00
        ws( 35) = 0.5705578752567293D+00
        ws( 36) = 0.5607736194026928D+00
        ws( 37) = 0.5509157657667154D+00
        ws( 38) = 0.5410003058551341D+00
        ws( 39) = 0.5310469580736477D+00
        ws( 40) = 0.5210800123020199D+00
        ws( 41) = 0.5111292691798046D+00
        ws( 42) = 0.5012310435038708D+00
        ws( 43) = 0.4914291666052989D+00
        ws( 44) = 0.4817758729363314D+00
        ws( 45) = 0.4723323944053896D+00
        ws( 46) = 0.4631690269048634D+00
        ws( 47) = 0.4543644117697446D+00
        ws( 48) = 0.4460038511090813D+00
        ws( 49) = 0.4381767244520052D+00
        ws( 50) = 0.4309735269861187D+00
        ws( 51) = 0.4244835820040294D+00
        ws( 52) = 0.4187947258638265D+00
        ws( 53) = 0.4139957906711084D+00
        ws( 54) = 0.4101815538345760D+00
        ws( 55) = 0.4074589071283829D+00
        ws( 56) = 0.4059535631483339D+00
        ws( 57) = 0.4058186351577103D+00
        ws( 58) = 0.4072476935336997D+00
        ws( 59) = 0.4104926272144235D+00
        ws( 60) = 0.4158805232130097D+00
        ws( 61) = 0.4238174507569360D+00
        ws( 62) = 0.4347660674451705D+00
        ws( 63) = 0.4491910864431316D+00
        ws( 64) = 0.4674779765072908D+00
        ws( 65) = 0.4898393453014228D+00
        ws( 66) = 0.5162304447912534D+00
        ws( 67) = 0.5463034493475687D+00
        ws( 68) = 0.5794300711107292D+00
        ws( 69) = 0.6147978869560956D+00
        ws( 70) = 0.6515461785816919D+00
        ws( 71) = 0.6888867799974976D+00
        ws( 72) = 0.7261749657707389D+00
        ws( 73) = 0.7629328331750878D+00
        ws( 74) = 0.7988573723338696D+00
        ws( 75) = 0.8338148791556650D+00
        ws( 76) = 0.8678097953454444D+00
        ws( 77) = 0.9008452401866668D+00
        ws( 78) = 0.9330201027881745D+00
        ws( 79) = 0.9678638902146869D+00
        ws( 80) = 0.1006048867919490D+01
        ws( 81) = 0.1038599948888475D+01
        ws( 82) = 0.1525780074823143D+01
        endif
        if( idomain .eq.  204 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.3141592653589793D+01
        rk1r = 0.4084070449666731D+02
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  86
        err = 0.5480491346745407D-13
        xs(  1) = 0.6134088852856836D+00
        xs(  2) = 0.1407672490434243D+01
        xs(  3) = 0.2205778886274096D+01
        xs(  4) = 0.3003616179328658D+01
        xs(  5) = 0.3800055509532196D+01
        xs(  6) = 0.4594429843194878D+01
        xs(  7) = 0.5386207574466206D+01
        xs(  8) = 0.6174916859601495D+01
        xs(  9) = 0.6960122350805545D+01
        xs( 10) = 0.7741416766946352D+01
        xs( 11) = 0.8518417449523493D+01
        xs( 12) = 0.9290764728984099D+01
        xs( 13) = 0.1005812092910778D+02
        xs( 14) = 0.1082016954080048D+02
        xs( 15) = 0.1157661437533592D+02
        xs( 16) = 0.1232717862783668D+02
        xs( 17) = 0.1307160383723566D+02
        xs( 18) = 0.1380964875481202D+02
        xs( 19) = 0.1454108814475836D+02
        xs( 20) = 0.1526571154408942D+02
        xs( 21) = 0.1598332200907118D+02
        xs( 22) = 0.1669373487316114D+02
        xs( 23) = 0.1739677653833678D+02
        xs( 24) = 0.1809228331833885D+02
        xs( 25) = 0.1878010034919447D+02
        xs( 26) = 0.1946008057967156D+02
        xs( 27) = 0.2013208385219956D+02
        xs( 28) = 0.2079597608335017D+02
        xs( 29) = 0.2145162855224169D+02
        xs( 30) = 0.2209891730522374D+02
        xs( 31) = 0.2273772268592413D+02
        xs( 32) = 0.2336792900121006D+02
        xs( 33) = 0.2398942433585749D+02
        xs( 34) = 0.2460210053177045D+02
        xs( 35) = 0.2520585335150140D+02
        xs( 36) = 0.2580058285066279D+02
        xs( 37) = 0.2638619398966205D+02
        xs( 38) = 0.2696259752207836D+02
        xs( 39) = 0.2752971120490766D+02
        xs( 40) = 0.2808746138469065D+02
        xs( 41) = 0.2863578502282334D+02
        xs( 42) = 0.2917463223232600D+02
        xs( 43) = 0.2970396940558680D+02
        xs( 44) = 0.3022378301573517D+02
        xs( 45) = 0.3073408416941740D+02
        xs( 46) = 0.3123491396950886D+02
        xs( 47) = 0.3172634970333230D+02
        xs( 48) = 0.3220851179326351D+02
        xs( 49) = 0.3268157132053883D+02
        xs( 50) = 0.3314575775662050D+02
        xs( 51) = 0.3360136633124988D+02
        xs( 52) = 0.3404876430061547D+02
        xs( 53) = 0.3448839538371292D+02
        xs( 54) = 0.3492078197648541D+02
        xs( 55) = 0.3534652550638885D+02
        xs( 56) = 0.3576630621738131D+02
        xs( 57) = 0.3618088413541475D+02
        xs( 58) = 0.3659110231434391D+02
        xs( 59) = 0.3699789196005878D+02
        xs( 60) = 0.3740227835507054D+02
        xs( 61) = 0.3780538865263482D+02
        xs( 62) = 0.3820846739023628D+02
        xs( 63) = 0.3861290929443911D+02
        xs( 64) = 0.3902031669321129D+02
        xs( 65) = 0.3943257901050960D+02
        xs( 66) = 0.3985195852228355D+02
        xs( 67) = 0.4028115707010469D+02
        xs( 68) = 0.4072333720522933D+02
        xs( 69) = 0.4118207638785427D+02
        xs( 70) = 0.4166124027886744D+02
        xs( 71) = 0.4216477266187992D+02
        xs( 72) = 0.4269642223345600D+02
        xs( 73) = 0.4325945818176396D+02
        xs( 74) = 0.4385644570391319D+02
        xs( 75) = 0.4448913647837692D+02
        xs( 76) = 0.4515848233518004D+02
        xs( 77) = 0.4586473766491539D+02
        xs( 78) = 0.4660760600960119D+02
        xs( 79) = 0.4738640370911342D+02
        xs( 80) = 0.4820023280375520D+02
        xs( 81) = 0.4904815021538216D+02
        xs( 82) = 0.4992924373756968D+02
        xs( 83) = 0.5084288141271151D+02
        xs( 84) = 0.5179217089242738D+02
        xs( 85) = 0.5279829425500812D+02
        xs( 86) = 0.5381919023491449D+02
        ws(  1) = 0.7870091067536271D+00
        ws(  2) = 0.7975087790670229D+00
        ws(  3) = 0.7982377087259488D+00
        ws(  4) = 0.7972685855183796D+00
        ws(  5) = 0.7955025967266794D+00
        ws(  6) = 0.7931584561353349D+00
        ws(  7) = 0.7903186908537299D+00
        ws(  8) = 0.7870274437357913D+00
        ws(  9) = 0.7833157096455624D+00
        ws( 10) = 0.7792093710533335D+00
        ws( 11) = 0.7747320647903383D+00
        ws( 12) = 0.7699062281316554D+00
        ws( 13) = 0.7647534345705175D+00
        ws( 14) = 0.7592944396135771D+00
        ws( 15) = 0.7535491126790848D+00
        ws( 16) = 0.7475363343942626D+00
        ws( 17) = 0.7412738963406020D+00
        ws( 18) = 0.7347784202445560D+00
        ws( 19) = 0.7280653034365941D+00
        ws( 20) = 0.7211486920230115D+00
        ws( 21) = 0.7140414803719878D+00
        ws( 22) = 0.7067553341198484D+00
        ws( 23) = 0.6993007333760461D+00
        ws( 24) = 0.6916870328165187D+00
        ws( 25) = 0.6839225356953990D+00
        ws( 26) = 0.6760145793419766D+00
        ws( 27) = 0.6679696303555094D+00
        ws( 28) = 0.6597933884086725D+00
        ws( 29) = 0.6514908982900063D+00
        ws( 30) = 0.6430666705428606D+00
        ws( 31) = 0.6345248117953366D+00
        ws( 32) = 0.6258691666321901D+00
        ws( 33) = 0.6171034736461503D+00
        ws( 34) = 0.6082315391370274D+00
        ws( 35) = 0.5992574328198023D+00
        ws( 36) = 0.5901857108719110D+00
        ws( 37) = 0.5810216726807731D+00
        ws( 38) = 0.5717716586998363D+00
        ws( 39) = 0.5624433977997434D+00
        ws( 40) = 0.5530464132435990D+00
        ws( 41) = 0.5435924965958977D+00
        ws( 42) = 0.5340962579751947D+00
        ws( 43) = 0.5245757583369532D+00
        ws( 44) = 0.5150532237401443D+00
        ws( 45) = 0.5055558308355973D+00
        ws( 46) = 0.4961165342955784D+00
        ws( 47) = 0.4867748774946762D+00
        ws( 48) = 0.4775776856811424D+00
        ws( 49) = 0.4685794894950289D+00
        ws( 50) = 0.4598424812747578D+00
        ws( 51) = 0.4514358022930238D+00
        ws( 52) = 0.4434340534590711D+00
        ws( 53) = 0.4359151760636151D+00
        ws( 54) = 0.4289582556498533D+00
        ws( 55) = 0.4226421651447167D+00
        ws( 56) = 0.4170458724996718D+00
        ws( 57) = 0.4122503832815286D+00
        ws( 58) = 0.4083410779989548D+00
        ws( 59) = 0.4054089781637385D+00
        ws( 60) = 0.4035514376142428D+00
        ws( 61) = 0.4028760546090023D+00
        ws( 62) = 0.4035129137939057D+00
        ws( 63) = 0.4056365849453451D+00
        ws( 64) = 0.4094916232089046D+00
        ws( 65) = 0.4154088795380773D+00
        ws( 66) = 0.4238000473162163D+00
        ws( 67) = 0.4351248693403348D+00
        ws( 68) = 0.4498337450715423D+00
        ws( 69) = 0.4682924410242452D+00
        ws( 70) = 0.4906973198473495D+00
        ws( 71) = 0.5169971551246932D+00
        ws( 72) = 0.5468507406893284D+00
        ws( 73) = 0.5796505329218791D+00
        ws( 74) = 0.6146161312129543D+00
        ws( 75) = 0.6509222244289982D+00
        ws( 76) = 0.6878093388411247D+00
        ws( 77) = 0.7246491875297738D+00
        ws( 78) = 0.7609712524180060D+00
        ws( 79) = 0.7964688774183086D+00
        ws( 80) = 0.8310327888184547D+00
        ws( 81) = 0.8646299579848252D+00
        ws( 82) = 0.8975091375897739D+00
        ws( 83) = 0.9301783336960906D+00
        ws( 84) = 0.9637316309813871D+00
        ws( 85) = 0.1072605567226719D+01
        ws( 86) = 0.1169240073692433D+01
        endif
        if( idomain .eq.  205 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.3141592653589793D+01
        rk1r = 0.4398229715025710D+02
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  90
        err = 0.8502429109383174D-13
        xs(  1) = 0.6193323960321007D+00
        xs(  2) = 0.1421301153975063D+01
        xs(  3) = 0.2227233612936579D+01
        xs(  4) = 0.3033025497873554D+01
        xs(  5) = 0.3837583560798257D+01
        xs(  6) = 0.4640279772208369D+01
        xs(  7) = 0.5440621519776378D+01
        xs(  8) = 0.6238174983253885D+01
        xs(  9) = 0.7032541444758369D+01
        xs( 10) = 0.7823348615268580D+01
        xs( 11) = 0.8610247035715064D+01
        xs( 12) = 0.9392908350639580D+01
        xs( 13) = 0.1017102427233268D+02
        xs( 14) = 0.1094430576150800D+02
        xs( 15) = 0.1171248222972731D+02
        xs( 16) = 0.1247530068874599D+02
        xs( 17) = 0.1323252482642099D+02
        xs( 18) = 0.1398393401396017D+02
        xs( 19) = 0.1472932226034782D+02
        xs( 20) = 0.1546849713373720D+02
        xs( 21) = 0.1620127866989915D+02
        xs( 22) = 0.1692749828626710D+02
        xs( 23) = 0.1764699771773124D+02
        xs( 24) = 0.1835962798768702D+02
        xs( 25) = 0.1906524842527237D+02
        xs( 26) = 0.1976372573742675D+02
        xs( 27) = 0.2045493314247467D+02
        xs( 28) = 0.2113874957042535D+02
        xs( 29) = 0.2181505893410059D+02
        xs( 30) = 0.2248374947455227D+02
        xs( 31) = 0.2314471318399528D+02
        xs( 32) = 0.2379784530965003D+02
        xs( 33) = 0.2444304394245385D+02
        xs( 34) = 0.2508020969556484D+02
        xs( 35) = 0.2570924547895673D+02
        xs( 36) = 0.2633005637821252D+02
        xs( 37) = 0.2694254964790619D+02
        xs( 38) = 0.2754663483277057D+02
        xs( 39) = 0.2814222403324578D+02
        xs( 40) = 0.2872923233605285D+02
        xs( 41) = 0.2930757843520621D+02
        xs( 42) = 0.2987718547442227D+02
        xs( 43) = 0.3043798214820382D+02
        xs( 44) = 0.3098990410588368D+02
        xs( 45) = 0.3153289571032928D+02
        xs( 46) = 0.3206691221031159D+02
        xs( 47) = 0.3259192239172687D+02
        xs( 48) = 0.3310791177612959D+02
        xs( 49) = 0.3361488643240836D+02
        xs( 50) = 0.3411287745437149D+02
        xs( 51) = 0.3460194612711852D+02
        xs( 52) = 0.3508218975056827D+02
        xs( 53) = 0.3555374800291950D+02
        xs( 54) = 0.3601680961104399D+02
        xs( 55) = 0.3647161896609052D+02
        xs( 56) = 0.3691848222571008D+02
        xs( 57) = 0.3735777246087378D+02
        xs( 58) = 0.3778993363822336D+02
        xs( 59) = 0.3821548372417933D+02
        xs( 60) = 0.3863501780712196D+02
        xs( 61) = 0.3904921244496644D+02
        xs( 62) = 0.3945883195274996D+02
        xs( 63) = 0.3986473594898338D+02
        xs( 64) = 0.4026788611819246D+02
        xs( 65) = 0.4066935088601432D+02
        xs( 66) = 0.4107031113777217D+02
        xs( 67) = 0.4147207642332494D+02
        xs( 68) = 0.4187612351840637D+02
        xs( 69) = 0.4228416264679604D+02
        xs( 70) = 0.4269822220208516D+02
        xs( 71) = 0.4312072833128373D+02
        xs( 72) = 0.4355455094172260D+02
        xs( 73) = 0.4400299571477817D+02
        xs( 74) = 0.4446973425759061D+02
        xs( 75) = 0.4495867080726463D+02
        xs( 76) = 0.4547374653449390D+02
        xs( 77) = 0.4601869544739186D+02
        xs( 78) = 0.4659679228087869D+02
        xs( 79) = 0.4721065318517005D+02
        xs( 80) = 0.4786214135860422D+02
        xs( 81) = 0.4855239237385308D+02
        xs( 82) = 0.4928193797988776D+02
        xs( 83) = 0.5005088828061441D+02
        xs( 84) = 0.5085915792921873D+02
        xs( 85) = 0.5170678415202307D+02
        xs( 86) = 0.5259408272168404D+02
        xs( 87) = 0.5352352526348087D+02
        xs( 88) = 0.5449764790298789D+02
        xs( 89) = 0.5554900639153389D+02
        xs( 90) = 0.5668409838369541D+02
        ws(  1) = 0.7946182449896860D+00
        ws(  2) = 0.8052792266393841D+00
        ws(  3) = 0.8061227754793719D+00
        ws(  4) = 0.8052988339708212D+00
        ws(  5) = 0.8037163542942783D+00
        ws(  6) = 0.8015949663379953D+00
        ws(  7) = 0.7990165569626259D+00
        ws(  8) = 0.7960240432037424D+00
        ws(  9) = 0.7926468853266004D+00
        ws( 10) = 0.7889092388744495D+00
        ws( 11) = 0.7848328923832028D+00
        ws( 12) = 0.7804383694260123D+00
        ws( 13) = 0.7757453138831970D+00
        ws( 14) = 0.7707725805338954D+00
        ws( 15) = 0.7655382066152866D+00
        ws( 16) = 0.7600593426510420D+00
        ws( 17) = 0.7543521787082998D+00
        ws( 18) = 0.7484318825594120D+00
        ws( 19) = 0.7423125564783948D+00
        ws( 20) = 0.7360072143999663D+00
        ws( 21) = 0.7295277785983876D+00
        ws( 22) = 0.7228850937943213D+00
        ws( 23) = 0.7160889560996559D+00
        ws( 24) = 0.7091481541496948D+00
        ws( 25) = 0.7020705199633889D+00
        ws( 26) = 0.6948629874040783D+00
        ws( 27) = 0.6875316565159107D+00
        ws( 28) = 0.6800818624396434D+00
        ws( 29) = 0.6725182480451929D+00
        ws( 30) = 0.6648448398392132D+00
        ws( 31) = 0.6570651271165735D+00
        ws( 32) = 0.6491821447222474D+00
        ws( 33) = 0.6411985601876155D+00
        ws( 34) = 0.6331167664079408D+00
        ws( 35) = 0.6249389814478405D+00
        ws( 36) = 0.6166673575125299D+00
        ws( 37) = 0.6083041016200053D+00
        ws( 38) = 0.5998516110660702D+00
        ws( 39) = 0.5913126273943681D+00
        ws( 40) = 0.5826904132705140D+00
        ws( 41) = 0.5739889574094653D+00
        ws( 42) = 0.5652132134955075D+00
        ws( 43) = 0.5563693797855217D+00
        ws( 44) = 0.5474652266689018D+00
        ws( 45) = 0.5385104796623139D+00
        ws( 46) = 0.5295172648035474D+00
        ws( 47) = 0.5205006215569979D+00
        ws( 48) = 0.5114790841677266D+00
        ws( 49) = 0.5024753245225511D+00
        ws( 50) = 0.4935168362621803D+00
        ws( 51) = 0.4846366192796565D+00
        ws( 52) = 0.4758737952754670D+00
        ws( 53) = 0.4672740525111849D+00
        ws( 54) = 0.4588897927509967D+00
        ws( 55) = 0.4507798572204970D+00
        ws( 56) = 0.4430087747541768D+00
        ws( 57) = 0.4356456405196051D+00
        ws( 58) = 0.4287629930997089D+00
        ws( 59) = 0.4224362898888852D+00
        ws( 60) = 0.4167445293275437D+00
        ws( 61) = 0.4117720007316555D+00
        ws( 62) = 0.4076101670290557D+00
        ws( 63) = 0.4043580345970448D+00
        ws( 64) = 0.4021203035020738D+00
        ws( 65) = 0.4010058086572474D+00
        ws( 66) = 0.4011323268129507D+00
        ws( 67) = 0.4026432482526062D+00
        ws( 68) = 0.4057345065743255D+00
        ws( 69) = 0.4106804155341515D+00
        ws( 70) = 0.4178422353118301D+00
        ws( 71) = 0.4276484591490877D+00
        ws( 72) = 0.4405488716353594D+00
        ws( 73) = 0.4569548280690228D+00
        ws( 74) = 0.4771762509257617D+00
        ws( 75) = 0.5013578766002542D+00
        ws( 76) = 0.5294202729067965D+00
        ws( 77) = 0.5610268048312061D+00
        ws( 78) = 0.5956044822191698D+00
        ws( 79) = 0.6324273666664459D+00
        ws( 80) = 0.6707360757554776D+00
        ws( 81) = 0.7098514732940002D+00
        ws( 82) = 0.7492559868531241D+00
        ws( 83) = 0.7886202139000744D+00
        ws( 84) = 0.8279061669383569D+00
        ws( 85) = 0.8673684175042466D+00
        ws( 86) = 0.9079193820111365D+00
        ws( 87) = 0.9512177117235167D+00
        ws( 88) = 0.9996043927620822D+00
        ws( 89) = 0.1064107648043733D+01
        ws( 90) = 0.1579967740209711D+01
        endif
        if( idomain .eq.  206 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.3141592653589793D+01
        rk1r = 0.4712388980384689D+02
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  94
        err = 0.7791666381749137D-13
        xs(  1) = 0.6264577732902032D+00
        xs(  2) = 0.1437687689839849D+01
        xs(  3) = 0.2253008999004474D+01
        xs(  4) = 0.3068315900325293D+01
        xs(  5) = 0.3882546634869535D+01
        xs(  6) = 0.4695107929863129D+01
        xs(  7) = 0.5505541023437557D+01
        xs(  8) = 0.6313443878277661D+01
        xs(  9) = 0.7118447044116447D+01
        xs( 10) = 0.7920204810671660D+01
        xs( 11) = 0.8718391586563113D+01
        xs( 12) = 0.9512700252934986D+01
        xs( 13) = 0.1030284128125723D+02
        xs( 14) = 0.1108854212005084D+02
        xs( 15) = 0.1186954663782152D+02
        xs( 16) = 0.1264561453193292D+02
        xs( 17) = 0.1341652067001999D+02
        xs( 18) = 0.1418205435812218D+02
        xs( 19) = 0.1494201854318952D+02
        xs( 20) = 0.1569622896383963D+02
        xs( 21) = 0.1644451326555109D+02
        xs( 22) = 0.1718671009660490D+02
        xs( 23) = 0.1792266820000434D+02
        xs( 24) = 0.1865224551489419D+02
        xs( 25) = 0.1937530829902628D+02
        xs( 26) = 0.2009173028181406D+02
        xs( 27) = 0.2080139185563374D+02
        xs( 28) = 0.2150417931135590D+02
        xs( 29) = 0.2219998412268366D+02
        xs( 30) = 0.2288870228275386D+02
        xs( 31) = 0.2357023369563601D+02
        xs( 32) = 0.2424448162483644D+02
        xs( 33) = 0.2491135220067435D+02
        xs( 34) = 0.2557075398843526D+02
        xs( 35) = 0.2622259761951543D+02
        xs( 36) = 0.2686679548834747D+02
        xs( 37) = 0.2750326151874852D+02
        xs( 38) = 0.2813191100447708D+02
        xs( 39) = 0.2875266053024803D+02
        xs( 40) = 0.2936542798127033D+02
        xs( 41) = 0.2997013265158238D+02
        xs( 42) = 0.3056669546412974D+02
        xs( 43) = 0.3115503931874298D+02
        xs( 44) = 0.3173508958800875D+02
        xs( 45) = 0.3230677478555786D+02
        xs( 46) = 0.3287002743658981D+02
        xs( 47) = 0.3342478518659451D+02
        xs( 48) = 0.3397099219124556D+02
        xs( 49) = 0.3450860083820102D+02
        xs( 50) = 0.3503757385970637D+02
        xs( 51) = 0.3555788690279527D+02
        xs( 52) = 0.3606953163023635D+02
        xs( 53) = 0.3657251942754956D+02
        xs( 54) = 0.3706688578475492D+02
        xs( 55) = 0.3755269539888544D+02
        xs( 56) = 0.3803004799459294D+02
        xs( 57) = 0.3849908477278472D+02
        xs( 58) = 0.3895999526110443D+02
        xs( 59) = 0.3941302416054926D+02
        xs( 60) = 0.3985847760013451D+02
        xs( 61) = 0.4029672812428709D+02
        xs( 62) = 0.4072821790262444D+02
        xs( 63) = 0.4115346020470501D+02
        xs( 64) = 0.4157304003757862D+02
        xs( 65) = 0.4198761551503687D+02
        xs( 66) = 0.4239792128813393D+02
        xs( 67) = 0.4280477391218158D+02
        xs( 68) = 0.4320907725663478D+02
        xs( 69) = 0.4361182607084902D+02
        xs( 70) = 0.4401410925826259D+02
        xs( 71) = 0.4441712010448851D+02
        xs( 72) = 0.4482218431259311D+02
        xs( 73) = 0.4523081402651998D+02
        xs( 74) = 0.4564478692007040D+02
        xs( 75) = 0.4606623802047099D+02
        xs( 76) = 0.4649774309320916D+02
        xs( 77) = 0.4694236806422974D+02
        xs( 78) = 0.4740365782759748D+02
        xs( 79) = 0.4788553974004450D+02
        xs( 80) = 0.4839212803303925D+02
        xs( 81) = 0.4892744408231001D+02
        xs( 82) = 0.4949510993360563D+02
        xs( 83) = 0.5009810091388062D+02
        xs( 84) = 0.5073862646353886D+02
        xs( 85) = 0.5141815008960668D+02
        xs( 86) = 0.5213751392932115D+02
        xs( 87) = 0.5289712816814862D+02
        xs( 88) = 0.5369715329879412D+02
        xs( 89) = 0.5453784312675487D+02
        xs( 90) = 0.5542060291398818D+02
        xs( 91) = 0.5634457476656204D+02
        xs( 92) = 0.5732314457711249D+02
        xs( 93) = 0.5837378669853512D+02
        xs( 94) = 0.5951133230256873D+02
        ws(  1) = 0.8037693407998761D+00
        ws(  2) = 0.8146117894244151D+00
        ws(  3) = 0.8155702108263340D+00
        ws(  4) = 0.8148869180089569D+00
        ws(  5) = 0.8134794556052325D+00
        ws(  6) = 0.8115676901113544D+00
        ws(  7) = 0.8092318290849662D+00
        ws(  8) = 0.8065124344030872D+00
        ws(  9) = 0.8034363328527137D+00
        ws( 10) = 0.8000249599901903D+00
        ws( 11) = 0.7962974189804320D+00
        ws( 12) = 0.7922716687767718D+00
        ws( 13) = 0.7879649717133772D+00
        ws( 14) = 0.7833940270744076D+00
        ws( 15) = 0.7785749689952276D+00
        ws( 16) = 0.7735233093853895D+00
        ws( 17) = 0.7682538644547235D+00
        ws( 18) = 0.7627806837680635D+00
        ws( 19) = 0.7571169909222810D+00
        ws( 20) = 0.7512751397285107D+00
        ws( 21) = 0.7452665869082071D+00
        ws( 22) = 0.7391018807038031D+00
        ws( 23) = 0.7327906639341190D+00
        ws( 24) = 0.7263416896047894D+00
        ws( 25) = 0.7197628470540743D+00
        ws( 26) = 0.7130611966694484D+00
        ws( 27) = 0.7062430113841430D+00
        ws( 28) = 0.6993138234068396D+00
        ws( 29) = 0.6922784749180854D+00
        ws( 30) = 0.6851411717631498D+00
        ws( 31) = 0.6779055394670420D+00
        ws( 32) = 0.6705746811896258D+00
        ws( 33) = 0.6631512375212395D+00
        ws( 34) = 0.6556374482930805D+00
        ws( 35) = 0.6480352168448262D+00
        ws( 36) = 0.6403461774609018D+00
        ws( 37) = 0.6325717669697435D+00
        ws( 38) = 0.6247133018051787D+00
        ws( 39) = 0.6167720621632221D+00
        ws( 40) = 0.6087493852580472D+00
        ws( 41) = 0.6006467701046769D+00
        ws( 42) = 0.5924659967553803D+00
        ws( 43) = 0.5842092635013938D+00
        ws( 44) = 0.5758793462118091D+00
        ws( 45) = 0.5674797847096364D+00
        ws( 46) = 0.5590151018916476D+00
        ws( 47) = 0.5504910621736334D+00
        ws( 48) = 0.5419149766876431D+00
        ws( 49) = 0.5332960632698440D+00
        ws( 50) = 0.5246458694133502D+00
        ws( 51) = 0.5159787656118970D+00
        ws( 52) = 0.5073125139474796D+00
        ws( 53) = 0.4986689106494371D+00
        ws( 54) = 0.4900744893959499D+00
        ws( 55) = 0.4815612516442549D+00
        ws( 56) = 0.4731673581200798D+00
        ws( 57) = 0.4649376706611883D+00
        ws( 58) = 0.4569239835260611D+00
        ws( 59) = 0.4491847523583992D+00
        ws( 60) = 0.4417841640010246D+00
        ws( 61) = 0.4347905568459909D+00
        ws( 62) = 0.4282745382529421D+00
        ws( 63) = 0.4223075480077424D+00
        ws( 64) = 0.4169617461363962D+00
        ws( 65) = 0.4123115559485899D+00
        ws( 66) = 0.4084359865407927D+00
        ws( 67) = 0.4054198495394226D+00
        ws( 68) = 0.4033525944327000D+00
        ws( 69) = 0.4023263761271102D+00
        ws( 70) = 0.4024384347822564D+00
        ws( 71) = 0.4038033065603945D+00
        ws( 72) = 0.4065757848503361D+00
        ws( 73) = 0.4109783390751834D+00
        ws( 74) = 0.4173218341029518D+00
        ws( 75) = 0.4260087731096679D+00
        ws( 76) = 0.4375124846991876D+00
        ws( 77) = 0.4523298407227694D+00
        ws( 78) = 0.4709075323009660D+00
        ws( 79) = 0.4935468017078521D+00
        ws( 80) = 0.5203053475380351D+00
        ws( 81) = 0.5509347330601972D+00
        ws( 82) = 0.5848948677296730D+00
        ws( 83) = 0.6214548712030221D+00
        ws( 84) = 0.6598377972893885D+00
        ws( 85) = 0.6993472369907706D+00
        ws( 86) = 0.7394473600851512D+00
        ws( 87) = 0.7797953168168144D+00
        ws( 88) = 0.8202609945910236D+00
        ws( 89) = 0.8614583592409129D+00
        ws( 90) = 0.9035768405516369D+00
        ws( 91) = 0.9512364178697621D+00
        ws( 92) = 0.9844259162741558D+00
        ws( 93) = 0.1110581516248017D+01
        ws( 94) = 0.1583350112981968D+01
        endif
        if( idomain .eq.  207 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.3141592653589793D+01
        rk1r = 0.5026548245743669D+02
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  98
        err = 0.7905745072558157D-13
        xs(  1) = 0.6326203428696057D+00
        xs(  2) = 0.1451857804195694D+01
        xs(  3) = 0.2275291941929096D+01
        xs(  4) = 0.3098813042540937D+01
        xs(  5) = 0.3921384433040410D+01
        xs(  6) = 0.4742441312129078D+01
        xs(  7) = 0.5561553242375672D+01
        xs(  8) = 0.6378345396562043D+01
        xs(  9) = 0.7192474029812433D+01
        xs( 10) = 0.8003617442563229D+01
        xs( 11) = 0.8811472269444749D+01
        xs( 12) = 0.9615751807635698D+01
        xs( 13) = 0.1041618515781558D+02
        xs( 14) = 0.1121251667229993D+02
        xs( 15) = 0.1200450548976578D+02
        xs( 16) = 0.1279192505942696D+02
        xs( 17) = 0.1357456261499123D+02
        xs( 18) = 0.1435221858682882D+02
        xs( 19) = 0.1512470595479449D+02
        xs( 20) = 0.1589184955096446D+02
        xs( 21) = 0.1665348532449453D+02
        xs( 22) = 0.1740945958159283D+02
        xs( 23) = 0.1815962821316930D+02
        xs( 24) = 0.1890385592162535D+02
        xs( 25) = 0.1964201545681784D+02
        xs( 26) = 0.2037398686968422D+02
        xs( 27) = 0.2109965679048860D+02
        xs( 28) = 0.2181891773722726D+02
        xs( 29) = 0.2253166745846953D+02
        xs( 30) = 0.2323780831383570D+02
        xs( 31) = 0.2393724669443927D+02
        xs( 32) = 0.2462989248494925D+02
        xs( 33) = 0.2531565856845371D+02
        xs( 34) = 0.2599446037502002D+02
        xs( 35) = 0.2666621547474168D+02
        xs( 36) = 0.2733084321613044D+02
        xs( 37) = 0.2798826441094888D+02
        xs( 38) = 0.2863840106698694D+02
        xs( 39) = 0.2928117617086169D+02
        xs( 40) = 0.2991651352368141D+02
        xs( 41) = 0.3054433763336931D+02
        xs( 42) = 0.3116457366862584D+02
        xs( 43) = 0.3177714748094897D+02
        xs( 44) = 0.3238198570287972D+02
        xs( 45) = 0.3297901593274062D+02
        xs( 46) = 0.3356816701865045D+02
        xs( 47) = 0.3414936945760594D+02
        xs( 48) = 0.3472255592902043D+02
        xs( 49) = 0.3528766198639225D+02
        xs( 50) = 0.3584462693583122D+02
        xs( 51) = 0.3639339493605022D+02
        xs( 52) = 0.3693391636117962D+02
        xs( 53) = 0.3746614947535410D+02
        xs( 54) = 0.3799006247619204D+02
        xs( 55) = 0.3850563597218870D+02
        xs( 56) = 0.3901286596485404D+02
        xs( 57) = 0.3951176740685006D+02
        xs( 58) = 0.4000237839679834D+02
        xs( 59) = 0.4048476504084785D+02
        xs( 60) = 0.4095902694813891D+02
        xs( 61) = 0.4142530321958559D+02
        xs( 62) = 0.4188377863297558D+02
        xs( 63) = 0.4233468954046589D+02
        xs( 64) = 0.4277832883908229D+02
        xs( 65) = 0.4321504938016022D+02
        xs( 66) = 0.4364526551670316D+02
        xs( 67) = 0.4406945317579333D+02
        xs( 68) = 0.4448814951578753D+02
        xs( 69) = 0.4490195317192724D+02
        xs( 70) = 0.4531152498012089D+02
        xs( 71) = 0.4571758787620662D+02
        xs( 72) = 0.4612092540945120D+02
        xs( 73) = 0.4652238181603454D+02
        xs( 74) = 0.4692287047533448D+02
        xs( 75) = 0.4732339792543305D+02
        xs( 76) = 0.4772510661860550D+02
        xs( 77) = 0.4812933447628311D+02
        xs( 78) = 0.4853768573151755D+02
        xs( 79) = 0.4895210452478742D+02
        xs( 80) = 0.4937493872505504D+02
        xs( 81) = 0.4980897818330386D+02
        xs( 82) = 0.5025745173355426D+02
        xs( 83) = 0.5072397027756938D+02
        xs( 84) = 0.5121240810935854D+02
        xs( 85) = 0.5172672412171657D+02
        xs( 86) = 0.5227074107279344D+02
        xs( 87) = 0.5284791875579065D+02
        xs( 88) = 0.5346116483068023D+02
        xs( 89) = 0.5411272249402339D+02
        xs( 90) = 0.5480416108937436D+02
        xs( 91) = 0.5553646484753310D+02
        xs( 92) = 0.5631018287794596D+02
        xs( 93) = 0.5712566567254146D+02
        xs( 94) = 0.5798343536177474D+02
        xs( 95) = 0.5888656213713332D+02
        xs( 96) = 0.5982556027458985D+02
        xs( 97) = 0.6084265787125253D+02
        xs( 98) = 0.6202994132992014D+02
        ws(  1) = 0.8116833228252947D+00
        ws(  2) = 0.8226789758906367D+00
        ws(  3) = 0.8237302340846256D+00
        ws(  4) = 0.8231596786242718D+00
        ws(  5) = 0.8218927935061034D+00
        ws(  6) = 0.8201502545121550D+00
        ws(  7) = 0.8180114789225860D+00
        ws(  8) = 0.8155156704693280D+00
        ws(  9) = 0.8126880348260697D+00
        ws( 10) = 0.8095482551291004D+00
        ws( 11) = 0.8061136280852776D+00
        ws( 12) = 0.8024003071364900D+00
        ws( 13) = 0.7984237928219320D+00
        ws( 14) = 0.7941991004392815D+00
        ws( 15) = 0.7897407847729778D+00
        ws( 16) = 0.7850629033062926D+00
        ws( 17) = 0.7801789570270823D+00
        ws( 18) = 0.7751018282748046D+00
        ws( 19) = 0.7698437252863366D+00
        ws( 20) = 0.7644161379435103D+00
        ws( 21) = 0.7588298063845696D+00
        ws( 22) = 0.7530947025411385D+00
        ws( 23) = 0.7472200237661629D+00
        ws( 24) = 0.7412141972448582D+00
        ws( 25) = 0.7350848936720498D+00
        ws( 26) = 0.7288390486414039D+00
        ws( 27) = 0.7224828902602694D+00
        ws( 28) = 0.7160219716427682D+00
        ws( 29) = 0.7094612071083103D+00
        ws( 30) = 0.7028049111113147D+00
        ws( 31) = 0.6960568391283261D+00
        ws( 32) = 0.6892202299321158D+00
        ws( 33) = 0.6822978488725820D+00
        ws( 34) = 0.6752920319716047D+00
        ws( 35) = 0.6682047308133270D+00
        ws( 36) = 0.6610375583832003D+00
        ws( 37) = 0.6537918361787215D+00
        ws( 38) = 0.6464686430814471D+00
        ws( 39) = 0.6390688666591251D+00
        ws( 40) = 0.6315932577499710D+00
        ws( 41) = 0.6240424893948711D+00
        ws( 42) = 0.6164172214213804D+00
        ws( 43) = 0.6087181722663143D+00
        ws( 44) = 0.6009461999527178D+00
        ws( 45) = 0.5931023945167681D+00
        ws( 46) = 0.5851881846327261D+00
        ws( 47) = 0.5772054617207789D+00
        ws( 48) = 0.5691567254644926D+00
        ws( 49) = 0.5610452553957325D+00
        ws( 50) = 0.5528753140037219D+00
        ws( 51) = 0.5446523876822609D+00
        ws( 52) = 0.5363834726965505D+00
        ws( 53) = 0.5280774141361676D+00
        ws( 54) = 0.5197453060937709D+00
        ws( 55) = 0.5114009603343059D+00
        ws( 56) = 0.5030614472777009D+00
        ws( 57) = 0.4947477053985501D+00
        ws( 58) = 0.4864852002844305D+00
        ws( 59) = 0.4783045888330241D+00
        ws( 60) = 0.4702423049904056D+00
        ws( 61) = 0.4623409343281499D+00
        ws( 62) = 0.4546491999892028D+00
        ws( 63) = 0.4472213734478507D+00
        ws( 64) = 0.4401160074426564D+00
        ws( 65) = 0.4333941351739739D+00
        ws( 66) = 0.4271174677268264D+00
        ws( 67) = 0.4213473726328441D+00
        ws( 68) = 0.4161450638849198D+00
        ws( 69) = 0.4115723866570840D+00
        ws( 70) = 0.4076917505047720D+00
        ws( 71) = 0.4045646499149311D+00
        ws( 72) = 0.4022510008883892D+00
        ws( 73) = 0.4008136498672930D+00
        ws( 74) = 0.4003307068527762D+00
        ws( 75) = 0.4009135960756578D+00
        ws( 76) = 0.4027255769011764D+00
        ws( 77) = 0.4059962540104777D+00
        ws( 78) = 0.4110291768590223D+00
        ws( 79) = 0.4181990450387975D+00
        ws( 80) = 0.4279343501905295D+00
        ws( 81) = 0.4406836333734735D+00
        ws( 82) = 0.4568672617465878D+00
        ws( 83) = 0.4768185656154507D+00
        ws( 84) = 0.5007206801763348D+00
        ws( 85) = 0.5285523595287996D+00
        ws( 86) = 0.5600614258272424D+00
        ws( 87) = 0.5947804269478995D+00
        ws( 88) = 0.6320859307999149D+00
        ws( 89) = 0.6712897406068681D+00
        ws( 90) = 0.7117454971833903D+00
        ws( 91) = 0.7529469923089154D+00
        ws( 92) = 0.7945838638828001D+00
        ws( 93) = 0.8364086993301661D+00
        ws( 94) = 0.8795874121700885D+00
        ws( 95) = 0.9233408475699999D+00
        ws( 96) = 0.9758129018870292D+00
        ws( 97) = 0.9936621979333471D+00
        ws( 98) = 0.1787643808754288D+01
        endif
        if( idomain .eq.  208 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.6283185307179586D+01
        rk1r = 0.2000000000000000D-01
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  38
        err = 0.3434606785079540D-13
        xs(  1) = 0.4453067383130687D+00
        xs(  2) = 0.1034785878292036D+01
        xs(  3) = 0.1648643412274562D+01
        xs(  4) = 0.2283548687807442D+01
        xs(  5) = 0.2936496529135465D+01
        xs(  6) = 0.3605717459245627D+01
        xs(  7) = 0.4290494973867476D+01
        xs(  8) = 0.4990671309090992D+01
        xs(  9) = 0.5706299761569707D+01
        xs( 10) = 0.6437456068650562D+01
        xs( 11) = 0.7184151323228213D+01
        xs( 12) = 0.7946301631803830D+01
        xs( 13) = 0.8723727269743669D+01
        xs( 14) = 0.9516165771328222D+01
        xs( 15) = 0.1032329032522842D+02
        xs( 16) = 0.1114472887985864D+02
        xs( 17) = 0.1198008169881418D+02
        xs( 18) = 0.1282893639324345D+02
        xs( 19) = 0.1369088026115261D+02
        xs( 20) = 0.1456551015992377D+02
        xs( 21) = 0.1545244005463505D+02
        xs( 22) = 0.1635130667597365D+02
        xs( 23) = 0.1726177477365022D+02
        xs( 24) = 0.1818353853763778D+02
        xs( 25) = 0.1911632872539047D+02
        xs( 26) = 0.2005990136072091D+02
        xs( 27) = 0.2101407291779849D+02
        xs( 28) = 0.2197867238943828D+02
        xs( 29) = 0.2295350454480460D+02
        xs( 30) = 0.2393876552976038D+02
        xs( 31) = 0.2493394303966260D+02
        xs( 32) = 0.2593860806880063D+02
        xs( 33) = 0.2695690284610102D+02
        xs( 34) = 0.2797603434062974D+02
        xs( 35) = 0.2900565368883415D+02
        xs( 36) = 0.3008924585695223D+02
        xs( 37) = 0.3095604251951144D+02
        xs( 38) = 0.3350249211208198D+02
        ws(  1) = 0.5751580896046512D+00
        ws(  2) = 0.6022255114129280D+00
        ws(  3) = 0.6249547709689649D+00
        ws(  4) = 0.6443334815436033D+00
        ws(  5) = 0.6612740601907879D+00
        ws(  6) = 0.6770573363416630D+00
        ws(  7) = 0.6924771032339563D+00
        ws(  8) = 0.7078874387779838D+00
        ws(  9) = 0.7233834351008548D+00
        ws( 10) = 0.7389314711605712D+00
        ws( 11) = 0.7544450346199166D+00
        ws( 12) = 0.7698253915398019D+00
        ws( 13) = 0.7849818232879846D+00
        ws( 14) = 0.7998403854385895D+00
        ws( 15) = 0.8143464206256247D+00
        ws( 16) = 0.8284638199644030D+00
        ws( 17) = 0.8421728686813837D+00
        ws( 18) = 0.8554675789686040D+00
        ws( 19) = 0.8683528838876224D+00
        ws( 20) = 0.8808423935044564D+00
        ws( 21) = 0.8929567656334393D+00
        ws( 22) = 0.9047208224951214D+00
        ws( 23) = 0.9161638156647774D+00
        ws( 24) = 0.9273189187912172D+00
        ws( 25) = 0.9382199992544009D+00
        ws( 26) = 0.9489039303199444D+00
        ws( 27) = 0.9593861749433404D+00
        ws( 28) = 0.9698215254079907D+00
        ws( 29) = 0.9799517840962647D+00
        ws( 30) = 0.9898323465585638D+00
        ws( 31) = 0.1001788407354861D+01
        ws( 32) = 0.1006587631531984D+01
        ws( 33) = 0.1025191067791237D+01
        ws( 34) = 0.1040940212395704D+01
        ws( 35) = 0.9713155128944788D+00
        ws( 36) = 0.1176538666590958D+01
        ws( 37) = 0.1011575156191678D+01
        ws( 38) = 0.4400062995498867D+01
        endif
        if( idomain .eq.  209 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.6283185307179586D+01
        rk1r = 0.4000000000000000D-01
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  35
        err = 0.5859595112501887D-13
        xs(  1) = 0.5200213941341139D+00
        xs(  2) = 0.1195624884149764D+01
        xs(  3) = 0.1879798262461285D+01
        xs(  4) = 0.2571853486205666D+01
        xs(  5) = 0.3273340577884020D+01
        xs(  6) = 0.3985854857444008D+01
        xs(  7) = 0.4710736129385903D+01
        xs(  8) = 0.5449008760821794D+01
        xs(  9) = 0.6201387781884163D+01
        xs( 10) = 0.6968311382774415D+01
        xs( 11) = 0.7749984297587668D+01
        xs( 12) = 0.8546423769768529D+01
        xs( 13) = 0.9357503301664078D+01
        xs( 14) = 0.1018299163225117D+02
        xs( 15) = 0.1102258586393853D+02
        xs( 16) = 0.1187593869925691D+02
        xs( 17) = 0.1274268015075425D+02
        xs( 18) = 0.1362243463848015D+02
        xs( 19) = 0.1451483417261586D+02
        xs( 20) = 0.1541952811512710D+02
        xs( 21) = 0.1633619211832628D+02
        xs( 22) = 0.1726453241655043D+02
        xs( 23) = 0.1820429019598529D+02
        xs( 24) = 0.1915525610170957D+02
        xs( 25) = 0.2011727823477992D+02
        xs( 26) = 0.2109014305735442D+02
        xs( 27) = 0.2207389166993885D+02
        xs( 28) = 0.2306845518874217D+02
        xs( 29) = 0.2407430271979426D+02
        xs( 30) = 0.2509079068583269D+02
        xs( 31) = 0.2611996653408870D+02
        xs( 32) = 0.2715326089804406D+02
        xs( 33) = 0.2821817791067552D+02
        xs( 34) = 0.2920055336300810D+02
        xs( 35) = 0.3157355001667055D+02
        ws(  1) = 0.6677873333964019D+00
        ws(  2) = 0.6805238787518866D+00
        ws(  3) = 0.6878952600853496D+00
        ws(  4) = 0.6964912881792703D+00
        ws(  5) = 0.7067523062832690D+00
        ws(  6) = 0.7185003026443518D+00
        ws(  7) = 0.7314327950987818D+00
        ws(  8) = 0.7452310645664147D+00
        ws(  9) = 0.7595992678009709D+00
        ws( 10) = 0.7742812801324599D+00
        ws( 11) = 0.7890666872236795D+00
        ws( 12) = 0.8037905204797801D+00
        ws( 13) = 0.8183294498149392D+00
        ws( 14) = 0.8325962792538609D+00
        ws( 15) = 0.8465339462572091D+00
        ws( 16) = 0.8601097556282588D+00
        ws( 17) = 0.8733103322449055D+00
        ws( 18) = 0.8861371106320900D+00
        ws( 19) = 0.8986034397214605D+00
        ws( 20) = 0.9107307362904111D+00
        ws( 21) = 0.9225472329589428D+00
        ws( 22) = 0.9340927627906895D+00
        ws( 23) = 0.9453901676186997D+00
        ws( 24) = 0.9564734549747245D+00
        ws( 25) = 0.9675347577854700D+00
        ws( 26) = 0.9784606431934497D+00
        ws( 27) = 0.9891118668104977D+00
        ws( 28) = 0.9996829247253698D+00
        ws( 29) = 0.1009452648532405D+01
        ws( 30) = 0.1023628945879862D+01
        ws( 31) = 0.1037831540213795D+01
        ws( 32) = 0.1055211744415129D+01
        ws( 33) = 0.1076129762386687D+01
        ws( 34) = 0.1040606887045797D+01
        ws( 35) = 0.4223556741800921D+01
        endif
        if( idomain .eq.  210 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.6283185307179586D+01
        rk1r = 0.1000000000000000D+00
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  36
        err = 0.4348430623561902D-13
        xs(  1) = 0.5196024835419256D+00
        xs(  2) = 0.1194640275817157D+01
        xs(  3) = 0.1878192070242576D+01
        xs(  4) = 0.2569548200885590D+01
        xs(  5) = 0.3270241464554150D+01
        xs(  6) = 0.3981856114734437D+01
        xs(  7) = 0.4705726255533864D+01
        xs(  8) = 0.5442874368181997D+01
        xs(  9) = 0.6194015692413216D+01
        xs( 10) = 0.6959589168446643D+01
        xs( 11) = 0.7739799571347990D+01
        xs( 12) = 0.8534662544942401D+01
        xs( 13) = 0.9344047660754851D+01
        xs( 14) = 0.1016771685887537D+02
        xs( 15) = 0.1100535708207970D+02
        xs( 16) = 0.1185660694840659D+02
        xs( 17) = 0.1272107780703510D+02
        xs( 18) = 0.1359836982734079D+02
        xs( 19) = 0.1448808383198745D+02
        xs( 20) = 0.1538982952286385D+02
        xs( 21) = 0.1630323027363899D+02
        xs( 22) = 0.1722792686333240D+02
        xs( 23) = 0.1816356990992540D+02
        xs( 24) = 0.1910983722004283D+02
        xs( 25) = 0.2006637134967708D+02
        xs( 26) = 0.2103286281423220D+02
        xs( 27) = 0.2200884947820680D+02
        xs( 28) = 0.2299379348932347D+02
        xs( 29) = 0.2398723911582692D+02
        xs( 30) = 0.2498778813910809D+02
        xs( 31) = 0.2599461377663099D+02
        xs( 32) = 0.2699234595413840D+02
        xs( 33) = 0.2800547635049197D+02
        xs( 34) = 0.2894938219427591D+02
        xs( 35) = 0.2988838419022328D+02
        xs( 36) = 0.3178939292091508D+02
        ws(  1) = 0.6672436902709318D+00
        ws(  2) = 0.6799338967327812D+00
        ws(  3) = 0.6872382982590092D+00
        ws(  4) = 0.6957471792948569D+00
        ws(  5) = 0.7059069304143480D+00
        ws(  6) = 0.7175454968484050D+00
        ws(  7) = 0.7303650535937646D+00
        ws(  8) = 0.7440498299416252D+00
        ws(  9) = 0.7583052545718328D+00
        ws( 10) = 0.7728750651776957D+00
        ws( 11) = 0.7875476235889318D+00
        ws( 12) = 0.8021559407760395D+00
        ws( 13) = 0.8165740735989369D+00
        ws( 14) = 0.8307117027634952D+00
        ws( 15) = 0.8445081627285743D+00
        ws( 16) = 0.8579265263552256D+00
        ws( 17) = 0.8709483431205209D+00
        ws( 18) = 0.8835690396181662D+00
        ws( 19) = 0.8957938634638413D+00
        ws( 20) = 0.9076347926024531D+00
        ws( 21) = 0.9191068860591264D+00
        ws( 22) = 0.9302275788170838D+00
        ws( 23) = 0.9410095015805982D+00
        ws( 24) = 0.9514441628565578D+00
        ws( 25) = 0.9615844840436492D+00
        ws( 26) = 0.9713827525072869D+00
        ws( 27) = 0.9805788649930076D+00
        ws( 28) = 0.9890198511838931D+00
        ws( 29) = 0.9972437291768995D+00
        ws( 30) = 0.1002892406028292D+01
        ws( 31) = 0.1009949312400542D+01
        ws( 32) = 0.9983685760933537D+00
        ws( 33) = 0.9965410470596853D+00
        ws( 34) = 0.9898600830295351D+00
        ws( 35) = 0.8289312591500911D+00
        ws( 36) = 0.3634840488102027D+01
        endif
        if( idomain .eq.  211 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.6283185307179586D+01
        rk1r = 0.2000000000000000D+00
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  36
        err = 0.9413910478854497D-13
        xs(  1) = 0.5201818474957632D+00
        xs(  2) = 0.1195943953891664D+01
        xs(  3) = 0.1880170236100636D+01
        xs(  4) = 0.2572137434047972D+01
        xs(  5) = 0.3273387909957262D+01
        xs(  6) = 0.3985533582754500D+01
        xs(  7) = 0.4709947574477620D+01
        xs(  8) = 0.5447695204157014D+01
        xs(  9) = 0.6199532120249199D+01
        xs( 10) = 0.6965931369752515D+01
        xs( 11) = 0.7747124092056696D+01
        xs( 12) = 0.8543144980130736D+01
        xs( 13) = 0.9353876899458820D+01
        xs( 14) = 0.1017909138861576D+02
        xs( 15) = 0.1101848345920964D+02
        xs( 16) = 0.1187170032656510D+02
        xs( 17) = 0.1273836439570892D+02
        xs( 18) = 0.1361809122394814D+02
        xs( 19) = 0.1451050332473794D+02
        xs( 20) = 0.1541524066825715D+02
        xs( 21) = 0.1633196842794182D+02
        xs( 22) = 0.1726038440113263D+02
        xs( 23) = 0.1820021907239137D+02
        xs( 24) = 0.1915125504363031D+02
        xs( 25) = 0.2011328751160492D+02
        xs( 26) = 0.2108623174443046D+02
        xs( 27) = 0.2206996914107444D+02
        xs( 28) = 0.2306437581835302D+02
        xs( 29) = 0.2406964151746624D+02
        xs( 30) = 0.2508601216667838D+02
        xs( 31) = 0.2611418804688805D+02
        xs( 32) = 0.2714822465527918D+02
        xs( 33) = 0.2820025394773614D+02
        xs( 34) = 0.2924277541257022D+02
        xs( 35) = 0.3024339385566034D+02
        xs( 36) = 0.3164885232683874D+02
        ws(  1) = 0.6679799516509686D+00
        ws(  2) = 0.6806378139579006D+00
        ws(  3) = 0.6878812477209048D+00
        ws(  4) = 0.6963280272098955D+00
        ws(  5) = 0.7064452357889784D+00
        ws(  6) = 0.7180758705715005D+00
        ws(  7) = 0.7309296281281235D+00
        ws(  8) = 0.7446910887816731D+00
        ws(  9) = 0.7590608862362836D+00
        ws( 10) = 0.7737753653967615D+00
        ws( 11) = 0.7886151100648262D+00
        ws( 12) = 0.8034064639916134D+00
        ws( 13) = 0.8180187184822532D+00
        ws( 14) = 0.8323589509275890D+00
        ws( 15) = 0.8463660119149351D+00
        ws( 16) = 0.8600044930890721D+00
        ws( 17) = 0.8732593348825126D+00
        ws( 18) = 0.8861312334462113D+00
        ws( 19) = 0.8986328265904571D+00
        ws( 20) = 0.9107859942146069D+00
        ws( 21) = 0.9226192355551486D+00
        ws( 22) = 0.9341670774840513D+00
        ws( 23) = 0.9454691473518207D+00
        ws( 24) = 0.9565604010685868D+00
        ws( 25) = 0.9674971606752710D+00
        ws( 26) = 0.9783602559185490D+00
        ws( 27) = 0.9890852187792428D+00
        ws( 28) = 0.9997750908121728D+00
        ws( 29) = 0.1011147219039448D+01
        ws( 30) = 0.1021695446064619D+01
        ws( 31) = 0.1034995186473243D+01
        ws( 32) = 0.1027998941976428D+01
        ws( 33) = 0.1070030765665405D+01
        ws( 34) = 0.1014847216369596D+01
        ws( 35) = 0.8891093802525365D+00
        ws( 36) = 0.2814046186970379D+01
        endif
        if( idomain .eq.  212 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.6283185307179586D+01
        rk1r = 0.4000000000000000D+00
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  35
        err = 0.9760336946709024D-13
        xs(  1) = 0.5242741581502695D+00
        xs(  2) = 0.1205457443311258D+01
        xs(  3) = 0.1895407169606068D+01
        xs(  4) = 0.2593490897186086D+01
        xs(  5) = 0.3301319363704951D+01
        xs(  6) = 0.4020533650164484D+01
        xs(  7) = 0.4752501511150730D+01
        xs(  8) = 0.5498258112858917D+01
        xs(  9) = 0.6258514460453062D+01
        xs( 10) = 0.7033693056679088D+01
        xs( 11) = 0.7823974689069185D+01
        xs( 12) = 0.8629347606754392D+01
        xs( 13) = 0.9449654057890594D+01
        xs( 14) = 0.1028463147776012D+02
        xs( 15) = 0.1113394730702370D+02
        xs( 16) = 0.1199722737350123D+02
        xs( 17) = 0.1287407834320002D+02
        xs( 18) = 0.1376410524254312D+02
        xs( 19) = 0.1466692464169162D+02
        xs( 20) = 0.1558217451105656D+02
        xs( 21) = 0.1650952286466680D+02
        xs( 22) = 0.1744866902665357D+02
        xs( 23) = 0.1839936091050639D+02
        xs( 24) = 0.1936135967083808D+02
        xs( 25) = 0.2033453922405514D+02
        xs( 26) = 0.2131869574012653D+02
        xs( 27) = 0.2231385066336526D+02
        xs( 28) = 0.2331964967103795D+02
        xs( 29) = 0.2433691992564318D+02
        xs( 30) = 0.2536271676583519D+02
        xs( 31) = 0.2640197718680001D+02
        xs( 32) = 0.2743409128416385D+02
        xs( 33) = 0.2852236700685055D+02
        xs( 34) = 0.2940137327553865D+02
        xs( 35) = 0.3095960327161206D+02
        ws(  1) = 0.6732629930169901D+00
        ws(  2) = 0.6861960054023657D+00
        ws(  3) = 0.6937866890111124D+00
        ws(  4) = 0.7026671674000767D+00
        ws(  5) = 0.7132668385232132D+00
        ws(  6) = 0.7253904283120045D+00
        ws(  7) = 0.7387176068919838D+00
        ws(  8) = 0.7529134685335876D+00
        ws(  9) = 0.7676688441604129D+00
        ws( 10) = 0.7827176490975816D+00
        ws( 11) = 0.7978428745749677D+00
        ws( 12) = 0.8128759816127628D+00
        ws( 13) = 0.8276925749893735D+00
        ws( 14) = 0.8422063711777465D+00
        ws( 15) = 0.8563625582405789D+00
        ws( 16) = 0.8701317174209202D+00
        ws( 17) = 0.8835042080370517D+00
        ws( 18) = 0.8964854291130436D+00
        ws( 19) = 0.9090929465391023D+00
        ws( 20) = 0.9213514246368251D+00
        ws( 21) = 0.9332949595353124D+00
        ws( 22) = 0.9449558133224887D+00
        ws( 23) = 0.9563892473637634D+00
        ws( 24) = 0.9675962611580301D+00
        ws( 25) = 0.9787102191889171D+00
        ws( 26) = 0.9895172436590258D+00
        ws( 27) = 0.1000596444886718D+01
        ws( 28) = 0.1011975673689303D+01
        ws( 29) = 0.1022286163048636D+01
        ws( 30) = 0.1034554569151731D+01
        ws( 31) = 0.1025972609322015D+01
        ws( 32) = 0.1057312606303716D+01
        ws( 33) = 0.9863584482572171D+00
        ws( 34) = 0.9543503644195112D+00
        ws( 35) = 0.2898994701238607D+01
        endif
        if( idomain .eq.  213 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.6283185307179586D+01
        rk1r = 0.1000000000000000D+01
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  36
        err = 0.6718840486826238D-13
        xs(  1) = 0.4763910429002762D+00
        xs(  2) = 0.1090443207957005D+01
        xs(  3) = 0.1702194571584932D+01
        xs(  4) = 0.2311204946458683D+01
        xs(  5) = 0.2927349231909765D+01
        xs(  6) = 0.3563147263004823D+01
        xs(  7) = 0.4224932131594367D+01
        xs(  8) = 0.4912676390931476D+01
        xs(  9) = 0.5624147364653952D+01
        xs( 10) = 0.6357208303557345D+01
        xs( 11) = 0.7110275862981371D+01
        xs( 12) = 0.7882195256244845D+01
        xs( 13) = 0.8672064636774168D+01
        xs( 14) = 0.9479118535850251D+01
        xs( 15) = 0.1030266556363544D+02
        xs( 16) = 0.1114205989598378D+02
        xs( 17) = 0.1199669100064501D+02
        xs( 18) = 0.1286598229346557D+02
        xs( 19) = 0.1374939346486800D+02
        xs( 20) = 0.1464642407919996D+02
        xs( 21) = 0.1555661744700680D+02
        xs( 22) = 0.1647956305655328D+02
        xs( 23) = 0.1741490114543925D+02
        xs( 24) = 0.1836232042919229D+02
        xs( 25) = 0.1932157746045780D+02
        xs( 26) = 0.2029245345384178D+02
        xs( 27) = 0.2127482679935978D+02
        xs( 28) = 0.2226854812418974D+02
        xs( 29) = 0.2327381580963149D+02
        xs( 30) = 0.2429026261793518D+02
        xs( 31) = 0.2531898103470499D+02
        xs( 32) = 0.2635837649298905D+02
        xs( 33) = 0.2739961828116754D+02
        xs( 34) = 0.2848261269658375D+02
        xs( 35) = 0.2943284286866372D+02
        xs( 36) = 0.3208094311958567D+02
        ws(  1) = 0.6104508203663621D+00
        ws(  2) = 0.6140675823063219D+00
        ws(  3) = 0.6094538127859301D+00
        ws(  4) = 0.6103398868162074D+00
        ws(  5) = 0.6242255922654567D+00
        ws(  6) = 0.6484046476146309D+00
        ws(  7) = 0.6750750882038018D+00
        ws(  8) = 0.7000063000631608D+00
        ws(  9) = 0.7225752353750337D+00
        ws( 10) = 0.7432858510390996D+00
        ws( 11) = 0.7626598808856028D+00
        ws( 12) = 0.7810304981118978D+00
        ws( 13) = 0.7985816700786444D+00
        ws( 14) = 0.8154113408612934D+00
        ws( 15) = 0.8315752246832731D+00
        ws( 16) = 0.8471116883288454D+00
        ws( 17) = 0.8620543810167436D+00
        ws( 18) = 0.8764380630055720D+00
        ws( 19) = 0.8903008620690690D+00
        ws( 20) = 0.9036842854281525D+00
        ws( 21) = 0.9166339255841280D+00
        ws( 22) = 0.9291974732067269D+00
        ws( 23) = 0.9414266469356996D+00
        ws( 24) = 0.9533687400407226D+00
        ws( 25) = 0.9650961506140580D+00
        ws( 26) = 0.9766485245979598D+00
        ws( 27) = 0.9881993805963500D+00
        ws( 28) = 0.9993927591847503D+00
        ws( 29) = 0.1010415347518979D+01
        ws( 30) = 0.1022015423906652D+01
        ws( 31) = 0.1031662745895821D+01
        ws( 32) = 0.1057959123582402D+01
        ws( 33) = 0.1032232672086497D+01
        ws( 34) = 0.1124065419865541D+01
        ws( 35) = 0.1084406951909887D+01
        ws( 36) = 0.4709982759670756D+01
        endif
        if( idomain .eq.  214 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.6283185307179586D+01
        rk1r = 0.1570796326794897D+01
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  39
        err = 0.5304247691482006D-13
        xs(  1) = 0.5000971624616908D+00
        xs(  2) = 0.1149647294692507D+01
        xs(  3) = 0.1807088764132926D+01
        xs(  4) = 0.2471691889685609D+01
        xs(  5) = 0.3145017673245264D+01
        xs(  6) = 0.3828803804216665D+01
        xs(  7) = 0.4524642788893476D+01
        xs(  8) = 0.5233876932698185D+01
        xs(  9) = 0.5957555815729548D+01
        xs( 10) = 0.6696428513539086D+01
        xs( 11) = 0.7450960488847026D+01
        xs( 12) = 0.8221367047797616D+01
        xs( 13) = 0.9007655648100116D+01
        xs( 14) = 0.9809670572964476D+01
        xs( 15) = 0.1062713536983349D+02
        xs( 16) = 0.1145969038568700D+02
        xs( 17) = 0.1230692429327290D+02
        xs( 18) = 0.1316839956556697D+02
        xs( 19) = 0.1404367246410714D+02
        xs( 20) = 0.1493230838785565D+02
        xs( 21) = 0.1583389351465788D+02
        xs( 22) = 0.1674804359673628D+02
        xs( 23) = 0.1767441072511594D+02
        xs( 24) = 0.1861268921082666D+02
        xs( 25) = 0.1956261822442405D+02
        xs( 26) = 0.2052399226618338D+02
        xs( 27) = 0.2149666193060851D+02
        xs( 28) = 0.2248052846702278D+02
        xs( 29) = 0.2347558051918219D+02
        xs( 30) = 0.2448191683159185D+02
        xs( 31) = 0.2549970148012319D+02
        xs( 32) = 0.2652910070234100D+02
        xs( 33) = 0.2757051379682834D+02
        xs( 34) = 0.2862503332933089D+02
        xs( 35) = 0.2969506869082401D+02
        xs( 36) = 0.3078528579030569D+02
        xs( 37) = 0.3190099707186968D+02
        xs( 38) = 0.3305534370638268D+02
        xs( 39) = 0.3415953167866631D+02
        ws(  1) = 0.6421557480477247D+00
        ws(  2) = 0.6541289210193352D+00
        ws(  3) = 0.6608118208006585D+00
        ws(  4) = 0.6686717826489748D+00
        ws(  5) = 0.6782733642210497D+00
        ws(  6) = 0.6895658604145227D+00
        ws(  7) = 0.7023364911520570D+00
        ws(  8) = 0.7163068357566568D+00
        ws(  9) = 0.7311754754983827D+00
        ws( 10) = 0.7466469208024247D+00
        ws( 11) = 0.7624521933103334D+00
        ws( 12) = 0.7783614120213311D+00
        ws( 13) = 0.7941891223134033D+00
        ws( 14) = 0.8097940240181541D+00
        ws( 15) = 0.8250751021976506D+00
        ws( 16) = 0.8399659518042440D+00
        ws( 17) = 0.8544286108997943D+00
        ws( 18) = 0.8684477232360152D+00
        ws( 19) = 0.8820254488588642D+00
        ws( 20) = 0.8951772845474470D+00
        ws( 21) = 0.9079288135406961D+00
        ws( 22) = 0.9203133613270811D+00
        ws( 23) = 0.9323695643705369D+00
        ws( 24) = 0.9441442323309629D+00
        ws( 25) = 0.9556806586413976D+00
        ws( 26) = 0.9670389010977722D+00
        ws( 27) = 0.9782754089148340D+00
        ws( 28) = 0.9894607665579636D+00
        ws( 29) = 0.1000710024161043D+01
        ws( 30) = 0.1012087594996132D+01
        ws( 31) = 0.1023526288331573D+01
        ws( 32) = 0.1034941329023695D+01
        ws( 33) = 0.1046569289863097D+01
        ws( 34) = 0.1060236919054591D+01
        ws( 35) = 0.1078491050774024D+01
        ws( 36) = 0.1113064385862553D+01
        ws( 37) = 0.1173224968998831D+01
        ws( 38) = 0.1301649118188980D+01
        ws( 39) = 0.1222993707126186D+01
        endif
        if( idomain .eq.  215 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.6283185307179586D+01
        rk1r = 0.3141592653589793D+01
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  39
        err = 0.7032231319631024D-13
        xs(  1) = 0.4931332002222023D+00
        xs(  2) = 0.1133093129988017D+01
        xs(  3) = 0.1779608447692081D+01
        xs(  4) = 0.2431460641679575D+01
        xs(  5) = 0.3089921295140610D+01
        xs(  6) = 0.3756689493222882D+01
        xs(  7) = 0.4433556194318002D+01
        xs(  8) = 0.5122249335688566D+01
        xs(  9) = 0.5824321216584506D+01
        xs( 10) = 0.6541066970571834D+01
        xs( 11) = 0.7273478044221646D+01
        xs( 12) = 0.8022230859840478D+01
        xs( 13) = 0.8787704828359939D+01
        xs( 14) = 0.9570020283188446D+01
        xs( 15) = 0.1036908649539684D+02
        xs( 16) = 0.1118465173667910D+02
        xs( 17) = 0.1201635001862025D+02
        xs( 18) = 0.1286374164483603D+02
        xs( 19) = 0.1372634659739734D+02
        xs( 20) = 0.1460367097967614D+02
        xs( 21) = 0.1549522734766570D+02
        xs( 22) = 0.1640055002217630D+02
        xs( 23) = 0.1731920683068323D+02
        xs( 24) = 0.1825080673355652D+02
        xs( 25) = 0.1919501009569099D+02
        xs( 26) = 0.2015152501826765D+02
        xs( 27) = 0.2112013509291698D+02
        xs( 28) = 0.2210068037499579D+02
        xs( 29) = 0.2309304221998509D+02
        xs( 30) = 0.2409724521059924D+02
        xs( 31) = 0.2511348304736522D+02
        xs( 32) = 0.2614195515148113D+02
        xs( 33) = 0.2718267067927924D+02
        xs( 34) = 0.2823589289641547D+02
        xs( 35) = 0.2930403762853004D+02
        xs( 36) = 0.3039233892370827D+02
        xs( 37) = 0.3150599864170087D+02
        xs( 38) = 0.3263410270778755D+02
        xs( 39) = 0.3381157349961100D+02
        ws(  1) = 0.6330682500813850D+00
        ws(  2) = 0.6439619249705694D+00
        ws(  3) = 0.6490415169463609D+00
        ws(  4) = 0.6548913764104268D+00
        ws(  5) = 0.6623173430164057D+00
        ws(  6) = 0.6715199598194197D+00
        ws(  7) = 0.6825033059322692D+00
        ws(  8) = 0.6951430664693634D+00
        ws(  9) = 0.7092173270455476D+00
        ws( 10) = 0.7244395958821058D+00
        ws( 11) = 0.7404949644173461D+00
        ws( 12) = 0.7570732454095342D+00
        ws( 13) = 0.7738939275061908D+00
        ws( 14) = 0.7907210136036003D+00
        ws( 15) = 0.8073686706653674D+00
        ws( 16) = 0.8237001360533925D+00
        ws( 17) = 0.8396225891887522D+00
        ws( 18) = 0.8550802212981011D+00
        ws( 19) = 0.8700470300596735D+00
        ws( 20) = 0.8845202344641818D+00
        ws( 21) = 0.8985147233994680D+00
        ws( 22) = 0.9120584404972920D+00
        ws( 23) = 0.9251897960604272D+00
        ws( 24) = 0.9379542035168332D+00
        ws( 25) = 0.9504023155044101D+00
        ws( 26) = 0.9625923327687407D+00
        ws( 27) = 0.9745937877786232D+00
        ws( 28) = 0.9864641235246167D+00
        ws( 29) = 0.9982968807287212D+00
        ws( 30) = 0.1010274908606422D+01
        ws( 31) = 0.1022430479649160D+01
        ws( 32) = 0.1034304381997644D+01
        ws( 33) = 0.1045547307622756D+01
        ws( 34) = 0.1057101556666469D+01
        ws( 35) = 0.1075262503496656D+01
        ws( 36) = 0.1112891844369466D+01
        ws( 37) = 0.1181703510695960D+01
        ws( 38) = 0.1246820700140806D+01
        ws( 39) = 0.1274275200694146D+01
        endif
        if( idomain .eq.  216 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.6283185307179586D+01
        rk1r = 0.6283185307179586D+01
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  42
        err = 0.6024655588653072D-13
        xs(  1) = 0.4805778671288950D+00
        xs(  2) = 0.1103129891391894D+01
        xs(  3) = 0.1729439335280414D+01
        xs(  4) = 0.2356907753257705D+01
        xs(  5) = 0.2985511150878821D+01
        xs(  6) = 0.3615871920864567D+01
        xs(  7) = 0.4249020842012271D+01
        xs(  8) = 0.4886324675673697D+01
        xs(  9) = 0.5529424313693050D+01
        xs( 10) = 0.6180156208359457D+01
        xs( 11) = 0.6840454367311695D+01
        xs( 12) = 0.7512239458908362D+01
        xs( 13) = 0.8197307140462035D+01
        xs( 14) = 0.8897230123781272D+01
        xs( 15) = 0.9613286801445380D+01
        xs( 16) = 0.1034642381931685D+02
        xs( 17) = 0.1109725284213530D+02
        xs( 18) = 0.1186607557949076D+02
        xs( 19) = 0.1265292772822937D+02
        xs( 20) = 0.1345763211538544D+02
        xs( 21) = 0.1427985308227871D+02
        xs( 22) = 0.1511914677316070D+02
        xs( 23) = 0.1597500450743190D+02
        xs( 24) = 0.1684688833654735D+02
        xs( 25) = 0.1773425912186792D+02
        xs( 26) = 0.1863659812637962D+02
        xs( 27) = 0.1955342346252548D+02
        xs( 28) = 0.2048430263270012D+02
        xs( 29) = 0.2142886267162225D+02
        xs( 30) = 0.2238679906025376D+02
        xs( 31) = 0.2335788353706555D+02
        xs( 32) = 0.2434197354409984D+02
        xs( 33) = 0.2533902815710833D+02
        xs( 34) = 0.2634913052750708D+02
        xs( 35) = 0.2737250414106937D+02
        xs( 36) = 0.2840962802644968D+02
        xs( 37) = 0.2946118178097418D+02
        xs( 38) = 0.3052865135251253D+02
        xs( 39) = 0.3161294409007006D+02
        xs( 40) = 0.3271546469138047D+02
        xs( 41) = 0.3385204515221775D+02
        xs( 42) = 0.3500282585005568D+02
        ws(  1) = 0.6166573449309518D+00
        ws(  2) = 0.6253805226162259D+00
        ws(  3) = 0.6269756417666946D+00
        ws(  4) = 0.6279719532725274D+00
        ws(  5) = 0.6293411699384378D+00
        ws(  6) = 0.6315531589062136D+00
        ws(  7) = 0.6349734633656867D+00
        ws(  8) = 0.6399089924878422D+00
        ws(  9) = 0.6465980089048556D+00
        ws( 10) = 0.6551899933190598D+00
        ws( 11) = 0.6657283334769603D+00
        ws( 12) = 0.6781427903418435D+00
        ws( 13) = 0.6922558992679800D+00
        ws( 14) = 0.7078037567205679D+00
        ws( 15) = 0.7244674114801047D+00
        ws( 16) = 0.7419081277431354D+00
        ws( 17) = 0.7597994464596802D+00
        ws( 18) = 0.7778510727603625D+00
        ws( 19) = 0.7958227768357381D+00
        ws( 20) = 0.8135292096746332D+00
        ws( 21) = 0.8308380232945136D+00
        ws( 22) = 0.8476639867343591D+00
        ws( 23) = 0.8639613591703126D+00
        ws( 24) = 0.8797160839068212D+00
        ws( 25) = 0.8949387608730202D+00
        ws( 26) = 0.9096587448727796D+00
        ws( 27) = 0.9239197269015270D+00
        ws( 28) = 0.9377760903227912D+00
        ws( 29) = 0.9512924771410742D+00
        ws( 30) = 0.9645423167545868D+00
        ws( 31) = 0.9776069592995037D+00
        ws( 32) = 0.9905779372255465D+00
        ws( 33) = 0.1003554776291490D+01
        ws( 34) = 0.1016651671774171D+01
        ws( 35) = 0.1030030476540676D+01
        ws( 36) = 0.1043879035080050D+01
        ws( 37) = 0.1059120357425079D+01
        ws( 38) = 0.1076102659269954D+01
        ws( 39) = 0.1097212697050211D+01
        ws( 40) = 0.1123390663145935D+01
        ws( 41) = 0.1167005804216434D+01
        ws( 42) = 0.1561911987383371D+01
        endif
        if( idomain .eq.  217 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.6283185307179586D+01
        rk1r = 0.9424777960769379D+01
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  44
        err = 0.9471494441679479D-13
        xs(  1) = 0.5098424917891105D+00
        xs(  2) = 0.1169528083185502D+01
        xs(  3) = 0.1831333815892614D+01
        xs(  4) = 0.2491405973873181D+01
        xs(  5) = 0.3148593071741020D+01
        xs(  6) = 0.3802406193631350D+01
        xs(  7) = 0.4452785309586070D+01
        xs(  8) = 0.5100055550438959D+01
        xs(  9) = 0.5744910326301382D+01
        xs( 10) = 0.6388392422791244D+01
        xs( 11) = 0.7031866542267111D+01
        xs( 12) = 0.7676980819253699D+01
        xs( 13) = 0.8325615226988898D+01
        xs( 14) = 0.8979815247702081D+01
        xs( 15) = 0.9641710893421017D+01
        xs( 16) = 0.1031342425700633D+02
        xs( 17) = 0.1099697262031718D+02
        xs( 18) = 0.1169417740953456D+02
        xs( 19) = 0.1240659028681545D+02
        xs( 20) = 0.1313544537613889D+02
        xs( 21) = 0.1388164158448989D+02
        xs( 22) = 0.1464575315249136D+02
        xs( 23) = 0.1542806209497103D+02
        xs( 24) = 0.1622860424414395D+02
        xs( 25) = 0.1704722100293445D+02
        xs( 26) = 0.1788361074426286D+02
        xs( 27) = 0.1873737597197393D+02
        xs( 28) = 0.1960806432584685D+02
        xs( 29) = 0.2049520286558216D+02
        xs( 30) = 0.2139832627813120D+02
        xs( 31) = 0.2231700018560756D+02
        xs( 32) = 0.2325083941925739D+02
        xs( 33) = 0.2419952619242336D+02
        xs( 34) = 0.2516283173675831D+02
        xs( 35) = 0.2614061512508111D+02
        xs( 36) = 0.2713290026287261D+02
        xs( 37) = 0.2813974204133167D+02
        xs( 38) = 0.2916163156602932D+02
        xs( 39) = 0.3019992529824594D+02
        xs( 40) = 0.3125423451762637D+02
        xs( 41) = 0.3232719894022830D+02
        xs( 42) = 0.3342867311411716D+02
        xs( 43) = 0.3454151761736725D+02
        xs( 44) = 0.3578573033793745D+02
        ws(  1) = 0.6540055222115932D+00
        ws(  2) = 0.6619338396356615D+00
        ws(  3) = 0.6612161777005624D+00
        ws(  4) = 0.6587517852047849D+00
        ws(  5) = 0.6555433682298775D+00
        ws(  6) = 0.6520733757189641D+00
        ws(  7) = 0.6487392800942623D+00
        ws(  8) = 0.6459170741905544D+00
        ws(  9) = 0.6439667279080449D+00
        ws( 10) = 0.6432255517473326D+00
        ws( 11) = 0.6439982317428650D+00
        ws( 12) = 0.6465447562088793D+00
        ws( 13) = 0.6510663298334363D+00
        ws( 14) = 0.6576902713432365D+00
        ws( 15) = 0.6664563425396709D+00
        ws( 16) = 0.6773081439970959D+00
        ws( 17) = 0.6900934081258832D+00
        ws( 18) = 0.7045755866318403D+00
        ws( 19) = 0.7204561448632153D+00
        ws( 20) = 0.7374036595329536D+00
        ws( 21) = 0.7550839025106161D+00
        ws( 22) = 0.7731854490760215D+00
        ws( 23) = 0.7914375310483621D+00
        ws( 24) = 0.8096194683278883D+00
        ws( 25) = 0.8275629860538766D+00
        ws( 26) = 0.8451495697995237D+00
        ws( 27) = 0.8623049101652419D+00
        ws( 28) = 0.8789925165293909D+00
        ws( 29) = 0.8952066225500771D+00
        ws( 30) = 0.9109674369919271D+00
        ws( 31) = 0.9263160129671431D+00
        ws( 32) = 0.9413087190635326D+00
        ws( 33) = 0.9560294202526035D+00
        ws( 34) = 0.9705530974219267D+00
        ws( 35) = 0.9850295978454979D+00
        ws( 36) = 0.9994993964347842D+00
        ws( 37) = 0.1014263716760310D+01
        ws( 38) = 0.1029686795519587D+01
        ws( 39) = 0.1046854837492437D+01
        ws( 40) = 0.1061653540381647D+01
        ws( 41) = 0.1089748702430703D+01
        ws( 42) = 0.1116124869158492D+01
        ws( 43) = 0.1162699515925067D+01
        ws( 44) = 0.1547787532282574D+01
        endif
        if( idomain .eq.  218 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.6283185307179586D+01
        rk1r = 0.1256637061435917D+02
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  46
        err = 0.5092462994736171D-13
        xs(  1) = 0.5328375087201671D+00
        xs(  2) = 0.1222224348757017D+01
        xs(  3) = 0.1913666218397079D+01
        xs(  4) = 0.2602943760898755D+01
        xs(  5) = 0.3288540834461706D+01
        xs(  6) = 0.3969489293596997D+01
        xs(  7) = 0.4645116156607861D+01
        xs(  8) = 0.5315003843040821D+01
        xs(  9) = 0.5978991005891260D+01
        xs( 10) = 0.6637181293136944D+01
        xs( 11) = 0.7289951510284828D+01
        xs( 12) = 0.7937956468176762D+01
        xs( 13) = 0.8582129495176886D+01
        xs( 14) = 0.9223678013845390D+01
        xs( 15) = 0.9864073322389617D+01
        xs( 16) = 0.1050503289815740D+02
        xs( 17) = 0.1114849240584409D+02
        xs( 18) = 0.1179656378922196D+02
        xs( 19) = 0.1245147626354886D+02
        xs( 20) = 0.1311549940975482D+02
        xs( 21) = 0.1379085182869355D+02
        xs( 22) = 0.1447960381518228D+02
        xs( 23) = 0.1518358632614783D+02
        xs( 24) = 0.1590431923746552D+02
        xs( 25) = 0.1664296873231552D+02
        xs( 26) = 0.1740033762366715D+02
        xs( 27) = 0.1817688582424076D+02
        xs( 28) = 0.1897277333242411D+02
        xs( 29) = 0.1978791620975858D+02
        xs( 30) = 0.2062204678042318D+02
        xs( 31) = 0.2147477151718286D+02
        xs( 32) = 0.2234562272075990D+02
        xs( 33) = 0.2323410293833019D+02
        xs( 34) = 0.2413972157472888D+02
        xs( 35) = 0.2506202417318043D+02
        xs( 36) = 0.2600062285035629D+02
        xs( 37) = 0.2695522063126557D+02
        xs( 38) = 0.2792561236268284D+02
        xs( 39) = 0.2891178546889811D+02
        xs( 40) = 0.2991376076853517D+02
        xs( 41) = 0.3093244121396198D+02
        xs( 42) = 0.3196821519535421D+02
        xs( 43) = 0.3301934788259425D+02
        xs( 44) = 0.3409540361528381D+02
        xs( 45) = 0.3518231407357051D+02
        xs( 46) = 0.3645590710618527D+02
        ws(  1) = 0.6834902193352425D+00
        ws(  2) = 0.6916796691411667D+00
        ws(  3) = 0.6906904616710454D+00
        ws(  4) = 0.6876285927676392D+00
        ws(  5) = 0.6834068929998288D+00
        ws(  6) = 0.6783782854477060D+00
        ws(  7) = 0.6728057754448433D+00
        ws(  8) = 0.6669425445037612D+00
        ws(  9) = 0.6610489145152573D+00
        ws( 10) = 0.6553943780628145D+00
        ws( 11) = 0.6502551816522376D+00
        ws( 12) = 0.6459103607710280D+00
        ws( 13) = 0.6426370967842371D+00
        ws( 14) = 0.6407054450427465D+00
        ws( 15) = 0.6403718756759645D+00
        ws( 16) = 0.6418705767061658D+00
        ws( 17) = 0.6454014100207723D+00
        ws( 18) = 0.6511141822442639D+00
        ws( 19) = 0.6590905729615111D+00
        ws( 20) = 0.6693271388771718D+00
        ws( 21) = 0.6817242979203824D+00
        ws( 22) = 0.6960860550281464D+00
        ws( 23) = 0.7121329988557898D+00
        ws( 24) = 0.7295273417808538D+00
        ws( 25) = 0.7479050898130956D+00
        ws( 26) = 0.7669086039154105D+00
        ws( 27) = 0.7862135087057348D+00
        ws( 28) = 0.8055465006279831D+00
        ws( 29) = 0.8246936711868503D+00
        ws( 30) = 0.8435010055026617D+00
        ws( 31) = 0.8618697199485812D+00
        ws( 32) = 0.8797492618919085D+00
        ws( 33) = 0.8971287675386854D+00
        ws( 34) = 0.9140332258745881D+00
        ws( 35) = 0.9305079522370976D+00
        ws( 36) = 0.9466351937181987D+00
        ws( 37) = 0.9625215692298871D+00
        ws( 38) = 0.9782504836431575D+00
        ws( 39) = 0.9940559183334312D+00
        ws( 40) = 0.1010113768904053D+01
        ws( 41) = 0.1026971474231986D+01
        ws( 42) = 0.1045642747539120D+01
        ws( 43) = 0.1061593414687715D+01
        ws( 44) = 0.1074844515247924D+01
        ws( 45) = 0.1177445023953598D+01
        ws( 46) = 0.1635353589690904D+01
        endif
        if( idomain .eq.  219 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.6283185307179586D+01
        rk1r = 0.1570796326794897D+02
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  48
        err = 0.5043004796187969D-13
        xs(  1) = 0.5554508834642050D+00
        xs(  2) = 0.1274197186735371D+01
        xs(  3) = 0.1995311087828105D+01
        xs(  4) = 0.2714470617643226D+01
        xs(  5) = 0.3430104654248505D+01
        xs(  6) = 0.4141126928714466D+01
        xs(  7) = 0.4846657317168525D+01
        xs(  8) = 0.5545970113313881D+01
        xs(  9) = 0.6238489951869512D+01
        xs( 10) = 0.6923801575407177D+01
        xs( 11) = 0.7601664545363030D+01
        xs( 12) = 0.8272029757051804D+01
        xs( 13) = 0.8935056082900431D+01
        xs( 14) = 0.9591125763666238D+01
        xs( 15) = 0.1024085717997805D+02
        xs( 16) = 0.1088511369276468D+02
        xs( 17) = 0.1152500743871509D+02
        xs( 18) = 0.1216189722345736D+02
        xs( 19) = 0.1279737975189636D+02
        xs( 20) = 0.1343327315324330D+02
        xs( 21) = 0.1407159108214249D+02
        xs( 22) = 0.1471450494011202D+02
        xs( 23) = 0.1536429161657669D+02
        xs( 24) = 0.1602326534389195D+02
        xs( 25) = 0.1669369524229233D+02
        xs( 26) = 0.1737771454641155D+02
        xs( 27) = 0.1807723190841512D+02
        xs( 28) = 0.1879385740904726D+02
        xs( 29) = 0.1952885436624405D+02
        xs( 30) = 0.2028312288160966D+02
        xs( 31) = 0.2105721437672734D+02
        xs( 32) = 0.2185137069367569D+02
        xs( 33) = 0.2266557854340225D+02
        xs( 34) = 0.2349963035221864D+02
        xs( 35) = 0.2435318443597231D+02
        xs( 36) = 0.2522582061969196D+02
        xs( 37) = 0.2611708835914830D+02
        xs( 38) = 0.2702655038318650D+02
        xs( 39) = 0.2795382152931398D+02
        xs( 40) = 0.2889860266255829D+02
        xs( 41) = 0.2986072712790909D+02
        xs( 42) = 0.3084013762170192D+02
        xs( 43) = 0.3183712774055506D+02
        xs( 44) = 0.3285182007553648D+02
        xs( 45) = 0.3388556291259787D+02
        xs( 46) = 0.3494600517340589D+02
        xs( 47) = 0.3602082167639093D+02
        xs( 48) = 0.3716753330834462D+02
        ws(  1) = 0.7125246192212172D+00
        ws(  2) = 0.7212318636213706D+00
        ws(  3) = 0.7204736520255186D+00
        ws(  4) = 0.7176012450155850D+00
        ws(  5) = 0.7134888480704324D+00
        ws(  6) = 0.7084096277265965D+00
        ws(  7) = 0.7025302098397650D+00
        ws(  8) = 0.6959993090662543D+00
        ws(  9) = 0.6889709070359866D+00
        ws( 10) = 0.6816119880638795D+00
        ws( 11) = 0.6741054871435300D+00
        ws( 12) = 0.6666511551649456D+00
        ws( 13) = 0.6594649872746703D+00
        ws( 14) = 0.6527772876688692D+00
        ws( 15) = 0.6468293732056404D+00
        ws( 16) = 0.6418690419479391D+00
        ws( 17) = 0.6381450614214756D+00
        ws( 18) = 0.6359008960889814D+00
        ws( 19) = 0.6353676078999106D+00
        ws( 20) = 0.6367554268036039D+00
        ws( 21) = 0.6402431981284717D+00
        ws( 22) = 0.6459651382119069D+00
        ws( 23) = 0.6539953085246286D+00
        ws( 24) = 0.6643318713704215D+00
        ws( 25) = 0.6768849745467099D+00
        ws( 26) = 0.6914730035198510D+00
        ws( 27) = 0.7078308853662455D+00
        ws( 28) = 0.7256309410462779D+00
        ws( 29) = 0.7445127326677617D+00
        ws( 30) = 0.7641155263553024D+00
        ws( 31) = 0.7841068334449918D+00
        ws( 32) = 0.8042025355425325D+00
        ws( 33) = 0.8241775816682718D+00
        ws( 34) = 0.8438682335489414D+00
        ws( 35) = 0.8631692462323111D+00
        ws( 36) = 0.8820270897302782D+00
        ws( 37) = 0.9004354458361509D+00
        ws( 38) = 0.9184226569923605D+00
        ws( 39) = 0.9360640371766065D+00
        ws( 40) = 0.9534664058905956D+00
        ws( 41) = 0.9707612524168282D+00
        ws( 42) = 0.9880873324050126D+00
        ws( 43) = 0.1005589841900563D+01
        ws( 44) = 0.1025975234325108D+01
        ws( 45) = 0.1036988008770534D+01
        ws( 46) = 0.1114411884825118D+01
        ws( 47) = 0.9800543437457822D+00
        ws( 48) = 0.1738901325258510D+01
        endif
        if( idomain .eq.  220 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.6283185307179586D+01
        rk1r = 0.1884955592153876D+02
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  49
        err = 0.9232848294905900D-13
        xs(  1) = 0.5830991916978695D+00
        xs(  2) = 0.1337742907678639D+01
        xs(  3) = 0.2095154468038554D+01
        xs(  4) = 0.2850940552712320D+01
        xs(  5) = 0.3603571893768436D+01
        xs(  6) = 0.4351995874944484D+01
        xs(  7) = 0.5095335169802558D+01
        xs(  8) = 0.5832824478383271D+01
        xs(  9) = 0.6563797114564628D+01
        xs( 10) = 0.7287686075727254D+01
        xs( 11) = 0.8004030552455131D+01
        xs( 12) = 0.8712485107303307D+01
        xs( 13) = 0.9412830525750199D+01
        xs( 14) = 0.1010498583955137D+02
        xs( 15) = 0.1078902109607456D+02
        xs( 16) = 0.1146517038383073D+02
        xs( 17) = 0.1213384454954447D+02
        xs( 18) = 0.1279564302016735D+02
        xs( 19) = 0.1345136419995032D+02
        xs( 20) = 0.1410201402713909D+02
        xs( 21) = 0.1474881236036922D+02
        xs( 22) = 0.1539319674758240D+02
        xs( 23) = 0.1603682259073377D+02
        xs( 24) = 0.1668155761115270D+02
        xs( 25) = 0.1732946698619446D+02
        xs( 26) = 0.1798278416870533D+02
        xs( 27) = 0.1864386225411004D+02
        xs( 28) = 0.1931510296783399D+02
        xs( 29) = 0.1999886533654771D+02
        xs( 30) = 0.2069736285253560D+02
        xs( 31) = 0.2141256389921754D+02
        xs( 32) = 0.2214611201253085D+02
        xs( 33) = 0.2289927886796920D+02
        xs( 34) = 0.2367295509834357D+02
        xs( 35) = 0.2446767469645596D+02
        xs( 36) = 0.2528366501191043D+02
        xs( 37) = 0.2612090838858344D+02
        xs( 38) = 0.2697920854652186D+02
        xs( 39) = 0.2785825439646142D+02
        xs( 40) = 0.2875767405379708D+02
        xs( 41) = 0.2967710106647784D+02
        xs( 42) = 0.3061633177925983D+02
        xs( 43) = 0.3157482750723000D+02
        xs( 44) = 0.3255212307097538D+02
        xs( 45) = 0.3355018208165839D+02
        xs( 46) = 0.3455287185239734D+02
        xs( 47) = 0.3562877311662855D+02
        xs( 48) = 0.3652727876092644D+02
        xs( 49) = 0.3803959719295544D+02
        ws(  1) = 0.7480233404833611D+00
        ws(  2) = 0.7573686789809083D+00
        ws(  3) = 0.7569302600146046D+00
        ws(  4) = 0.7544057468637138D+00
        ws(  5) = 0.7506848626873045D+00
        ws(  6) = 0.7460176726811519D+00
        ws(  7) = 0.7405335318170785D+00
        ws(  8) = 0.7343339366505315D+00
        ws(  9) = 0.7275167214609756D+00
        ws( 10) = 0.7201842443363063D+00
        ws( 11) = 0.7124469543116319D+00
        ws( 12) = 0.7044254182721907D+00
        ws( 13) = 0.6962517099251551D+00
        ws( 14) = 0.6880703737773965D+00
        ws( 15) = 0.6800389406408835D+00
        ws( 16) = 0.6723279110086524D+00
        ws( 17) = 0.6651201506351910D+00
        ws( 18) = 0.6586097146588469D+00
        ws( 19) = 0.6530001939525263D+00
        ws( 20) = 0.6485027052909584D+00
        ws( 21) = 0.6453335449314948D+00
        ws( 22) = 0.6437112133998079D+00
        ws( 23) = 0.6438519952188458D+00
        ws( 24) = 0.6459627149764106D+00
        ws( 25) = 0.6502290796899077D+00
        ws( 26) = 0.6567986546406079D+00
        ws( 27) = 0.6657593481414541D+00
        ws( 28) = 0.6771170031081546D+00
        ws( 29) = 0.6907783472027053D+00
        ws( 30) = 0.7065461064862854D+00
        ws( 31) = 0.7241307152497886D+00
        ws( 32) = 0.7431776116719612D+00
        ws( 33) = 0.7633041027378211D+00
        ws( 34) = 0.7841363692505893D+00
        ws( 35) = 0.8053398129037241D+00
        ws( 36) = 0.8266367940258584D+00
        ws( 37) = 0.8478159558429238D+00
        ws( 38) = 0.8687322736822897D+00
        ws( 39) = 0.8892957845470801D+00
        ws( 40) = 0.9094885546911625D+00
        ws( 41) = 0.9293379208448787D+00
        ws( 42) = 0.9489147774901329D+00
        ws( 43) = 0.9681213855352625D+00
        ws( 44) = 0.9858893877035927D+00
        ws( 45) = 0.1010506821416882D+01
        ws( 46) = 0.1002754265493462D+01
        ws( 47) = 0.1106171359715506D+01
        ws( 48) = 0.9332032826134267D+00
        ws( 49) = 0.2084965685187178D+01
        endif
        if( idomain .eq.  221 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.6283185307179586D+01
        rk1r = 0.2199114857512855D+02
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  51
        err = 0.7808798947468455D-13
        xs(  1) = 0.6002022368810807D+00
        xs(  2) = 0.1377069375979077D+01
        xs(  3) = 0.2156994461887637D+01
        xs(  4) = 0.2935566135122775D+01
        xs(  5) = 0.3711309499667657D+01
        xs(  6) = 0.4483224511053782D+01
        xs(  7) = 0.5250471464376341D+01
        xs(  8) = 0.6012301390130420D+01
        xs(  9) = 0.6768037510530457D+01
        xs( 10) = 0.7517071290932203D+01
        xs( 11) = 0.8258863767745996D+01
        xs( 12) = 0.8992949368243464D+01
        xs( 13) = 0.9718941369692150D+01
        xs( 14) = 0.1043653877669922D+02
        xs( 15) = 0.1114553457598482D+02
        xs( 16) = 0.1184582531291743D+02
        xs( 17) = 0.1253742181400893D+02
        xs( 18) = 0.1322046069900219D+02
        xs( 19) = 0.1389521612792123D+02
        xs( 20) = 0.1456211106495350D+02
        xs( 21) = 0.1522172727875813D+02
        xs( 22) = 0.1587481340584917D+02
        xs( 23) = 0.1652229071814601D+02
        xs( 24) = 0.1716525672791807D+02
        xs( 25) = 0.1780498727535782D+02
        xs( 26) = 0.1844293798972144D+02
        xs( 27) = 0.1908074559746365D+02
        xs( 28) = 0.1972022815549977D+02
        xs( 29) = 0.2036338093736118D+02
        xs( 30) = 0.2101236212224947D+02
        xs( 31) = 0.2166946094980694D+02
        xs( 32) = 0.2233704225446545D+02
        xs( 33) = 0.2301746607076029D+02
        xs( 34) = 0.2371298876749494D+02
        xs( 35) = 0.2442565990610967D+02
        xs( 36) = 0.2515723388497454D+02
        xs( 37) = 0.2590911268588013D+02
        xs( 38) = 0.2668232809942242D+02
        xs( 39) = 0.2747756279439044D+02
        xs( 40) = 0.2829519898167304D+02
        xs( 41) = 0.2913538520051650D+02
        xs( 42) = 0.2999809839817474D+02
        xs( 43) = 0.3088323134662549D+02
        xs( 44) = 0.3179061438287912D+02
        xs( 45) = 0.3272016844586500D+02
        xs( 46) = 0.3367205058585485D+02
        xs( 47) = 0.3464538051205623D+02
        xs( 48) = 0.3565616952982090D+02
        xs( 49) = 0.3662480615736393D+02
        xs( 50) = 0.3777925897988092D+02
        xs( 51) = 0.3885591267894032D+02
        ws(  1) = 0.7699871681368075D+00
        ws(  2) = 0.7797572550054727D+00
        ws(  3) = 0.7795718970943120D+00
        ws(  4) = 0.7773449677964311D+00
        ws(  5) = 0.7739786210113027D+00
        ws(  6) = 0.7697123428907827D+00
        ws(  7) = 0.7646569839181327D+00
        ws(  8) = 0.7588901200682094D+00
        ws(  9) = 0.7524806708355672D+00
        ws( 10) = 0.7454969974045311D+00
        ws( 11) = 0.7380102694056496D+00
        ws( 12) = 0.7300963631494359D+00
        ws( 13) = 0.7218373361716749D+00
        ws( 14) = 0.7133228156274551D+00
        ws( 15) = 0.7046513609596268D+00
        ws( 16) = 0.6959317241211872D+00
        ws( 17) = 0.6872838504799093D+00
        ws( 18) = 0.6788394231872490D+00
        ws( 19) = 0.6707417603299018D+00
        ws( 20) = 0.6631449398316294D+00
        ws( 21) = 0.6562121647016468D+00
        ws( 22) = 0.6501135763407468D+00
        ws( 23) = 0.6450239345906006D+00
        ws( 24) = 0.6411207022145189D+00
        ws( 25) = 0.6385829737774731D+00
        ws( 26) = 0.6375912311013673D+00
        ws( 27) = 0.6383270486614808D+00
        ws( 28) = 0.6409708324398748D+00
        ws( 29) = 0.6456949420934257D+00
        ws( 30) = 0.6526498876724478D+00
        ws( 31) = 0.6619432613047014D+00
        ws( 32) = 0.6736143746393147D+00
        ws( 33) = 0.6876110830856235D+00
        ws( 34) = 0.7037773892416599D+00
        ws( 35) = 0.7218583045069362D+00
        ws( 36) = 0.7415236561992407D+00
        ws( 37) = 0.7624054299538440D+00
        ws( 38) = 0.7841380394398900D+00
        ws( 39) = 0.8063947774168295D+00
        ws( 40) = 0.8288995441913254D+00
        ws( 41) = 0.8514688748330111D+00
        ws( 42) = 0.8739359313713244D+00
        ws( 43) = 0.8962940216548437D+00
        ws( 44) = 0.9184994382954280D+00
        ws( 45) = 0.9404041193662120D+00
        ws( 46) = 0.9643519398988442D+00
        ws( 47) = 0.9822921031417100D+00
        ws( 48) = 0.1016795142971095D+01
        ws( 49) = 0.1014275825063226D+01
        ws( 50) = 0.1057980962628895D+01
        ws( 51) = 0.1738926794371051D+01
        endif
        if( idomain .eq.  222 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.6283185307179586D+01
        rk1r = 0.2513274122871834D+02
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  54
        err = 0.8987453952249140D-13
        xs(  1) = 0.6055944138401906D+00
        xs(  2) = 0.1389525205743758D+01
        xs(  3) = 0.2176740699149168D+01
        xs(  4) = 0.2962898094750750D+01
        xs(  5) = 0.3746610315571988D+01
        xs(  6) = 0.4526960799707117D+01
        xs(  7) = 0.5303185431691162D+01
        xs(  8) = 0.6074602350746855D+01
        xs(  9) = 0.6840593920069276D+01
        xs( 10) = 0.7600603792325555D+01
        xs( 11) = 0.8354139224727673D+01
        xs( 12) = 0.9100775194929547D+01
        xs( 13) = 0.9840158636641801D+01
        xs( 14) = 0.1057201165413190D+02
        xs( 15) = 0.1129613284643750D+02
        xs( 16) = 0.1201239622785111D+02
        xs( 17) = 0.1272074779028744D+02
        xs( 18) = 0.1342120046392042D+02
        xs( 19) = 0.1411382890095499D+02
        xs( 20) = 0.1479876587808267D+02
        xs( 21) = 0.1547620200192102D+02
        xs( 22) = 0.1614638980841706D+02
        xs( 23) = 0.1680965247321714D+02
        xs( 24) = 0.1746639650296384D+02
        xs( 25) = 0.1811712722417659D+02
        xs( 26) = 0.1876246573958343D+02
        xs( 27) = 0.1940316621272321D+02
        xs( 28) = 0.2004013267269866D+02
        xs( 29) = 0.2067443477346844D+02
        xs( 30) = 0.2130732191698405D+02
        xs( 31) = 0.2194023475948512D+02
        xs( 32) = 0.2257481233446366D+02
        xs( 33) = 0.2321289188952831D+02
        xs( 34) = 0.2385649726678815D+02
        xs( 35) = 0.2450781083958528D+02
        xs( 36) = 0.2516912457658499D+02
        xs( 37) = 0.2584276865784432D+02
        xs( 38) = 0.2653102138082068D+02
        xs( 39) = 0.2723601054219848D+02
        xs( 40) = 0.2795962141947502D+02
        xs( 41) = 0.2870342706897310D+02
        xs( 42) = 0.2946865241379334D+02
        xs( 43) = 0.3025617580249220D+02
        xs( 44) = 0.3106656207789985D+02
        xs( 45) = 0.3190012467553790D+02
        xs( 46) = 0.3275698442438661D+02
        xs( 47) = 0.3363714349305040D+02
        xs( 48) = 0.3454074182500174D+02
        xs( 49) = 0.3546716626449586D+02
        xs( 50) = 0.3641915676765815D+02
        xs( 51) = 0.3739178584360114D+02
        xs( 52) = 0.3839570059259867D+02
        xs( 53) = 0.3944537469693025D+02
        xs( 54) = 0.4053033436483219D+02
        ws(  1) = 0.7769268383311451D+00
        ws(  2) = 0.7869279826841510D+00
        ws(  3) = 0.7869953695160378D+00
        ws(  4) = 0.7851077755405488D+00
        ws(  5) = 0.7821674835378538D+00
        ws(  6) = 0.7784070311782263D+00
        ws(  7) = 0.7739288280121167D+00
        ws(  8) = 0.7688021013055132D+00
        ws(  9) = 0.7630882673030644D+00
        ws( 10) = 0.7568492811819763D+00
        ws( 11) = 0.7501506733304993D+00
        ws( 12) = 0.7430623669994734D+00
        ws( 13) = 0.7356581770833008D+00
        ws( 14) = 0.7280143090995984D+00
        ws( 15) = 0.7202071370004257D+00
        ws( 16) = 0.7123107119863095D+00
        ws( 17) = 0.7043946593331124D+00
        ws( 18) = 0.6965231941432630D+00
        ws( 19) = 0.6887558170011105D+00
        ws( 20) = 0.6811498372047421D+00
        ws( 21) = 0.6737643529970525D+00
        ws( 22) = 0.6666649080880283D+00
        ws( 23) = 0.6599279111609148D+00
        ws( 24) = 0.6536440840498627D+00
        ws( 25) = 0.6479205855280258D+00
        ws( 26) = 0.6428818579100598D+00
        ws( 27) = 0.6386694959954043D+00
        ws( 28) = 0.6354414620430148D+00
        ws( 29) = 0.6333707773158144D+00
        ws( 30) = 0.6326434936262459D+00
        ws( 31) = 0.6334553562807242D+00
        ws( 32) = 0.6360061828563689D+00
        ws( 33) = 0.6404906905532983D+00
        ws( 34) = 0.6470846031784326D+00
        ws( 35) = 0.6559257352610123D+00
        ws( 36) = 0.6670916295123533D+00
        ws( 37) = 0.6805779307129357D+00
        ws( 38) = 0.6962837168607793D+00
        ws( 39) = 0.7140100037983212D+00
        ws( 40) = 0.7334745077397480D+00
        ws( 41) = 0.7543408441339414D+00
        ws( 42) = 0.7762554770987073D+00
        ws( 43) = 0.7988848854278171D+00
        ws( 44) = 0.8219393987189347D+00
        ws( 45) = 0.8451996060790514D+00
        ws( 46) = 0.8685285421322061D+00
        ws( 47) = 0.8917301207072373D+00
        ws( 48) = 0.9154049066906720D+00
        ws( 49) = 0.9381946419961013D+00
        ws( 50) = 0.9611852632389650D+00
        ws( 51) = 0.9959332777746915D+00
        ws( 52) = 0.1000170253700333D+01
        ws( 53) = 0.1064723646560602D+01
        ws( 54) = 0.1595758625078349D+01
        endif
        if( idomain .eq.  223 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.6283185307179586D+01
        rk1r = 0.2827433388230814D+02
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  57
        err = 0.5481761809695871D-13
        xs(  1) = 0.6189894539439312D+00
        xs(  2) = 0.1420321706439991D+01
        xs(  3) = 0.2225157958476694D+01
        xs(  4) = 0.3029140307228980D+01
        xs(  5) = 0.3830927880382159D+01
        xs(  6) = 0.4629654954171135D+01
        xs(  7) = 0.5424603892079046D+01
        xs(  8) = 0.6215131191399449D+01
        xs(  9) = 0.7000646630921958D+01
        xs( 10) = 0.7780607760122156D+01
        xs( 11) = 0.8554519909025551D+01
        xs( 12) = 0.9321938565918620D+01
        xs( 13) = 0.1008247287105040D+02
        xs( 14) = 0.1083578951538834D+02
        xs( 15) = 0.1158161641687499D+02
        xs( 16) = 0.1231974548857619D+02
        xs( 17) = 0.1305003378321168D+02
        xs( 18) = 0.1377240242196013D+02
        xs( 19) = 0.1448683306878698D+02
        xs( 20) = 0.1519336228409241D+02
        xs( 21) = 0.1589207475409385D+02
        xs( 22) = 0.1658309692348389D+02
        xs( 23) = 0.1726659273552346D+02
        xs( 24) = 0.1794276289954060D+02
        xs( 25) = 0.1861184843828792D+02
        xs( 26) = 0.1927413844859740D+02
        xs( 27) = 0.1992998131560063D+02
        xs( 28) = 0.2057979826234164D+02
        xs( 29) = 0.2122409816646273D+02
        xs( 30) = 0.2186349295839878D+02
        xs( 31) = 0.2249871343499172D+02
        xs( 32) = 0.2313062571866133D+02
        xs( 33) = 0.2376024863373828D+02
        xs( 34) = 0.2438877183705569D+02
        xs( 35) = 0.2501757364800394D+02
        xs( 36) = 0.2564823628596786D+02
        xs( 37) = 0.2628255480055285D+02
        xs( 38) = 0.2692253464360466D+02
        xs( 39) = 0.2757037203140895D+02
        xs( 40) = 0.2822841174664898D+02
        xs( 41) = 0.2889907979277237D+02
        xs( 42) = 0.2958479344899176D+02
        xs( 43) = 0.3028785873786581D+02
        xs( 44) = 0.3101037158219611D+02
        xs( 45) = 0.3175414091212019D+02
        xs( 46) = 0.3252064806895797D+02
        xs( 47) = 0.3331105185989040D+02
        xs( 48) = 0.3412623468793353D+02
        xs( 49) = 0.3496688289833694D+02
        xs( 50) = 0.3583351050665485D+02
        xs( 51) = 0.3672677662987990D+02
        xs( 52) = 0.3764764057043358D+02
        xs( 53) = 0.3859756681091538D+02
        xs( 54) = 0.3957975649329853D+02
        xs( 55) = 0.4058839662439882D+02
        xs( 56) = 0.4169830178448368D+02
        xs( 57) = 0.4284356456000512D+02
        ws(  1) = 0.7941277770289951D+00
        ws(  2) = 0.8044553042783633D+00
        ws(  3) = 0.8047118526936766D+00
        ws(  4) = 0.8030493600075291D+00
        ws(  5) = 0.8003851884804453D+00
        ws(  6) = 0.7969503088202412D+00
        ws(  7) = 0.7928406011719876D+00
        ws(  8) = 0.7881157010482580D+00
        ws(  9) = 0.7828247632539699D+00
        ws( 10) = 0.7770150079678434D+00
        ws( 11) = 0.7707351447841329D+00
        ws( 12) = 0.7640369592860949D+00
        ws( 13) = 0.7569760365562123D+00
        ws( 14) = 0.7496118572044884D+00
        ws( 15) = 0.7420072440311233D+00
        ws( 16) = 0.7342270920112556D+00
        ws( 17) = 0.7263364103035899D+00
        ws( 18) = 0.7183979077181810D+00
        ws( 19) = 0.7104695959637662D+00
        ws( 20) = 0.7026030593979160D+00
        ws( 21) = 0.6948430292661562D+00
        ws( 22) = 0.6872286474472640D+00
        ws( 23) = 0.6797963688520197D+00
        ws( 24) = 0.6725839983464171D+00
        ws( 25) = 0.6656350722137273D+00
        ws( 26) = 0.6590027840864429D+00
        ws( 27) = 0.6527529051177547D+00
        ws( 28) = 0.6469655443087093D+00
        ws( 29) = 0.6417359895118593D+00
        ws( 30) = 0.6371751203374810D+00
        ws( 31) = 0.6334098967432725D+00
        ws( 32) = 0.6305841701142388D+00
        ws( 33) = 0.6288596336445904D+00
        ws( 34) = 0.6284162300935597D+00
        ws( 35) = 0.6294509338512093D+00
        ws( 36) = 0.6321735427734257D+00
        ws( 37) = 0.6367980427089442D+00
        ws( 38) = 0.6435283745875251D+00
        ws( 39) = 0.6525383265815256D+00
        ws( 40) = 0.6639469619448759D+00
        ws( 41) = 0.6777937547227068D+00
        ws( 42) = 0.6940196158915324D+00
        ws( 43) = 0.7124615943887029D+00
        ws( 44) = 0.7328661866336487D+00
        ws( 45) = 0.7549195081998082D+00
        ws( 46) = 0.7782873912051285D+00
        ws( 47) = 0.8026668821472561D+00
        ws( 48) = 0.8278062166904524D+00
        ws( 49) = 0.8535862930638926D+00
        ws( 50) = 0.8798087192270014D+00
        ws( 51) = 0.9069029637010884D+00
        ws( 52) = 0.9342663073827872D+00
        ws( 53) = 0.9658348968556325D+00
        ws( 54) = 0.1005688620139024D+01
        ws( 55) = 0.1019390527386875D+01
        ws( 56) = 0.1105314089042665D+01
        ws( 57) = 0.1741118547195982D+01
        endif
        if( idomain .eq.  224 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.6283185307179586D+01
        rk1r = 0.3141592653589793D+02
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  59
        err = 0.9627117151423634D-13
        xs(  1) = 0.6321654829749009D+00
        xs(  2) = 0.1450606629229178D+01
        xs(  3) = 0.2272748064797365D+01
        xs(  4) = 0.3094205458221257D+01
        xs(  5) = 0.3913671508414701D+01
        xs(  6) = 0.4730318732862824D+01
        xs(  7) = 0.5543464416541049D+01
        xs(  8) = 0.6352494279004414D+01
        xs(  9) = 0.7156840588116965D+01
        xs( 10) = 0.7955976133858809D+01
        xs( 11) = 0.8749414004042299D+01
        xs( 12) = 0.9536709920932152D+01
        xs( 13) = 0.1031746586253670D+02
        xs( 14) = 0.1109133428160965D+02
        xs( 15) = 0.1185802236167729D+02
        xs( 16) = 0.1261729570968874D+02
        xs( 17) = 0.1336898081699826D+02
        xs( 18) = 0.1411296561553270D+02
        xs( 19) = 0.1484919758579979D+02
        xs( 20) = 0.1557767917655672D+02
        xs( 21) = 0.1629846075686305D+02
        xs( 22) = 0.1701163185608505D+02
        xs( 23) = 0.1771731192071074D+02
        xs( 24) = 0.1841564208599196D+02
        xs( 25) = 0.1910677943487328D+02
        xs( 26) = 0.1979089489782940D+02
        xs( 27) = 0.2046817542375753D+02
        xs( 28) = 0.2113883046195816D+02
        xs( 29) = 0.2180310226682430D+02
        xs( 30) = 0.2246127915625767D+02
        xs( 31) = 0.2311371065324770D+02
        xs( 32) = 0.2376082341894946D+02
        xs( 33) = 0.2440313704014225D+02
        xs( 34) = 0.2504127906224302D+02
        xs( 35) = 0.2567599914027501D+02
        xs( 36) = 0.2630818269693226D+02
        xs( 37) = 0.2693886483177654D+02
        xs( 38) = 0.2756924515036642D+02
        xs( 39) = 0.2820070344905979D+02
        xs( 40) = 0.2883481475114275D+02
        xs( 41) = 0.2947336009045974D+02
        xs( 42) = 0.3011832728114220D+02
        xs( 43) = 0.3077189440810050D+02
        xs( 44) = 0.3143638934738385D+02
        xs( 45) = 0.3211422224420939D+02
        xs( 46) = 0.3280779465696959D+02
        xs( 47) = 0.3351939718844074D+02
        xs( 48) = 0.3425111519239378D+02
        xs( 49) = 0.3500476179341321D+02
        xs( 50) = 0.3578184847088043D+02
        xs( 51) = 0.3658363561969886D+02
        xs( 52) = 0.3741107930863046D+02
        xs( 53) = 0.3826530660816353D+02
        xs( 54) = 0.3914680910058674D+02
        xs( 55) = 0.4005661964744891D+02
        xs( 56) = 0.4099574887320629D+02
        xs( 57) = 0.4199050104169190D+02
        xs( 58) = 0.4296340459388032D+02
        xs( 59) = 0.4408400757151962D+02
        ws(  1) = 0.8110453764378655D+00
        ws(  2) = 0.8216801852807341D+00
        ws(  3) = 0.8220976596363868D+00
        ws(  4) = 0.8206196838458003D+00
        ws(  5) = 0.8181782879789121D+00
        ws(  6) = 0.8150033646396823D+00
        ws(  7) = 0.8111859231056294D+00
        ws(  8) = 0.8067792617119331D+00
        ws(  9) = 0.8018254855618574D+00
        ws( 10) = 0.7963644123373930D+00
        ws( 11) = 0.7904372199024206D+00
        ws( 12) = 0.7840882052910558D+00
        ws( 13) = 0.7773656810214346D+00
        ws( 14) = 0.7703222912133760D+00
        ws( 15) = 0.7630147607366184D+00
        ws( 16) = 0.7555030065381412D+00
        ws( 17) = 0.7478485609630607D+00
        ws( 18) = 0.7401123596895854D+00
        ws( 19) = 0.7323521082591313D+00
        ws( 20) = 0.7246196171128256D+00
        ws( 21) = 0.7169586227983763D+00
        ws( 22) = 0.7094036241570838D+00
        ws( 23) = 0.7019801261504252D+00
        ws( 24) = 0.6947064214183893D+00
        ws( 25) = 0.6875967286452831D+00
        ws( 26) = 0.6806652461733776D+00
        ws( 27) = 0.6739305399990598D+00
        ws( 28) = 0.6674196885212430D+00
        ws( 29) = 0.6611717191519285D+00
        ws( 30) = 0.6552400456720067D+00
        ws( 31) = 0.6496937939130547D+00
        ws( 32) = 0.6446180844175993D+00
        ws( 33) = 0.6401135139289112D+00
        ws( 34) = 0.6362952470754333D+00
        ws( 35) = 0.6332922493013359D+00
        ws( 36) = 0.6312471340731263D+00
        ws( 37) = 0.6303168052540250D+00
        ws( 38) = 0.6306735374653897D+00
        ws( 39) = 0.6325053698816554D+00
        ws( 40) = 0.6360140424614596D+00
        ws( 41) = 0.6414081979223276D+00
        ws( 42) = 0.6488898498231169D+00
        ws( 43) = 0.6586335036986722D+00
        ws( 44) = 0.6707596192392404D+00
        ws( 45) = 0.6853081462626229D+00
        ws( 46) = 0.7022198636421222D+00
        ws( 47) = 0.7213336530355354D+00
        ws( 48) = 0.7424051051149504D+00
        ws( 49) = 0.7651402142542667D+00
        ws( 50) = 0.7892322920803592D+00
        ws( 51) = 0.8144983826941391D+00
        ws( 52) = 0.8406725989316285D+00
        ws( 53) = 0.8674836501849095D+00
        ws( 54) = 0.8958235405061974D+00
        ws( 55) = 0.9264559869426041D+00
        ws( 56) = 0.9476018420860260D+00
        ws( 57) = 0.1032091698962570D+01
        ws( 58) = 0.9096143311813693D+00
        ws( 59) = 0.1850454382638369D+01
        endif
        if( idomain .eq.  225 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.6283185307179586D+01
        rk1r = 0.3455751918948772D+02
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  62
        err = 0.7443463294366606D-13
        xs(  1) = 0.6396057049861562D+00
        xs(  2) = 0.1467728732196249D+01
        xs(  3) = 0.2299712738951412D+01
        xs(  4) = 0.3131187083381131D+01
        xs(  5) = 0.3960892059208805D+01
        xs(  6) = 0.4788050274746708D+01
        xs(  7) = 0.5612026741045978D+01
        xs(  8) = 0.6432250624756757D+01
        xs(  9) = 0.7248191950456280D+01
        xs( 10) = 0.8059354182079829D+01
        xs( 11) = 0.8865272504379533D+01
        xs( 12) = 0.9665514572883627D+01
        xs( 13) = 0.1045968256036316D+02
        xs( 14) = 0.1124741601612235D+02
        xs( 15) = 0.1202839527919347D+02
        xs( 16) = 0.1280234522479321D+02
        xs( 17) = 0.1356903907265218D+02
        xs( 18) = 0.1432830189214322D+02
        xs( 19) = 0.1508001333381594D+02
        xs( 20) = 0.1582410903526971D+02
        xs( 21) = 0.1656058013016013D+02
        xs( 22) = 0.1728947037705826D+02
        xs( 23) = 0.1801087065483868D+02
        xs( 24) = 0.1872491095434083D+02
        xs( 25) = 0.1943175049416249D+02
        xs( 26) = 0.2013156710128370D+02
        xs( 27) = 0.2082454737763245D+02
        xs( 28) = 0.2151087927439929D+02
        xs( 29) = 0.2219074844290641D+02
        xs( 30) = 0.2286433916632746D+02
        xs( 31) = 0.2353183995422985D+02
        xs( 32) = 0.2419345319773383D+02
        xs( 33) = 0.2484940779605827D+02
        xs( 34) = 0.2549997345355377D+02
        xs( 35) = 0.2614547540537820D+02
        xs( 36) = 0.2678630862359306D+02
        xs( 37) = 0.2742295103530034D+02
        xs( 38) = 0.2805597589428689D+02
        xs( 39) = 0.2868606407828866D+02
        xs( 40) = 0.2931401752774226D+02
        xs( 41) = 0.2994077506466097D+02
        xs( 42) = 0.3056743125255932D+02
        xs( 43) = 0.3119525777002595D+02
        xs( 44) = 0.3182572507468525D+02
        xs( 45) = 0.3246052019669067D+02
        xs( 46) = 0.3310155450826002D+02
        xs( 47) = 0.3375095412103838D+02
        xs( 48) = 0.3441102576558922D+02
        xs( 49) = 0.3508419419957814D+02
        xs( 50) = 0.3577291325324643D+02
        xs( 51) = 0.3647956112645288D+02
        xs( 52) = 0.3720633912385710D+02
        xs( 53) = 0.3795519595851542D+02
        xs( 54) = 0.3872780012399722D+02
        xs( 55) = 0.3952556448275657D+02
        xs( 56) = 0.4034964124527878D+02
        xs( 57) = 0.4120134365402133D+02
        xs( 58) = 0.4208199689255691D+02
        xs( 59) = 0.4299246527131402D+02
        xs( 60) = 0.4393021831787448D+02
        xs( 61) = 0.4491966319056854D+02
        xs( 62) = 0.4602767010497738D+02
        ws(  1) = 0.8206038431416297D+00
        ws(  2) = 0.8314477222915621D+00
        ws(  3) = 0.8320202149220168D+00
        ws(  4) = 0.8307392177637934D+00
        ws(  5) = 0.8285450135583210D+00
        ws(  6) = 0.8256666040477227D+00
        ws(  7) = 0.8221915128126732D+00
        ws(  8) = 0.8181680302555816D+00
        ws(  9) = 0.8136318874656909D+00
        ws( 10) = 0.8086150917090736D+00
        ws( 11) = 0.8031494603724855D+00
        ws( 12) = 0.7972683238869759D+00
        ws( 13) = 0.7910075185743330D+00
        ws( 14) = 0.7844060530398930D+00
        ws( 15) = 0.7775065546405370D+00
        ws( 16) = 0.7703554803002347D+00
        ws( 17) = 0.7630030134522748D+00
        ws( 18) = 0.7555025424514042D+00
        ws( 19) = 0.7479096208097192D+00
        ws( 20) = 0.7402803515574831D+00
        ws( 21) = 0.7326692233078320D+00
        ws( 22) = 0.7251265519252030D+00
        ws( 23) = 0.7176958362878862D+00
        ws( 24) = 0.7104114798822437D+00
        ws( 25) = 0.7032974054950025D+00
        ws( 26) = 0.6963670362284136D+00
        ws( 27) = 0.6896249044482465D+00
        ws( 28) = 0.6830698156129927D+00
        ws( 29) = 0.6766991405183868D+00
        ws( 30) = 0.6705135609671385D+00
        ws( 31) = 0.6645215330364380D+00
        ws( 32) = 0.6587428624692533D+00
        ws( 33) = 0.6532110371451156D+00
        ws( 34) = 0.6479742457526136D+00
        ws( 35) = 0.6430952665233913D+00
        ws( 36) = 0.6386506201569858D+00
        ws( 37) = 0.6347295435701679D+00
        ws( 38) = 0.6314334330245678D+00
        ws( 39) = 0.6288763297261215D+00
        ws( 40) = 0.6271867239824664D+00
        ws( 41) = 0.6265104157156228D+00
        ws( 42) = 0.6270135349313388D+00
        ws( 43) = 0.6288842630374388D+00
        ws( 44) = 0.6323313722282385D+00
        ws( 45) = 0.6375775782149182D+00
        ws( 46) = 0.6448459549129197D+00
        ws( 47) = 0.6543387654212178D+00
        ws( 48) = 0.6662102127708722D+00
        ws( 49) = 0.6805373527134738D+00
        ws( 50) = 0.6972987632865618D+00
        ws( 51) = 0.7163657629969812D+00
        ws( 52) = 0.7375170011941247D+00
        ws( 53) = 0.7604660490059439D+00
        ws( 54) = 0.7849747259992184D+00
        ws( 55) = 0.8107780422898054D+00
        ws( 56) = 0.8375234855783307D+00
        ws( 57) = 0.8657685999689944D+00
        ws( 58) = 0.8949628845034795D+00
        ws( 59) = 0.9290770856732568D+00
        ws( 60) = 0.9512029609698951D+00
        ws( 61) = 0.9665179631911451D+00
        ws( 62) = 0.1451298825679377D+01
        endif
        if( idomain .eq.  226 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.6283185307179586D+01
        rk1r = 0.3769911184307752D+02
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  66
        err = 0.3368776753770494D-13
        xs(  1) = 0.6429189903590438D+00
        xs(  2) = 0.1475365745265851D+01
        xs(  3) = 0.2311774300957786D+01
        xs(  4) = 0.3147797319017560D+01
        xs(  5) = 0.3982214124224481D+01
        xs(  6) = 0.4814288345007038D+01
        xs(  7) = 0.5643426087825931D+01
        xs(  8) = 0.6469097089229324D+01
        xs(  9) = 0.7290811027726394D+01
        xs( 10) = 0.8108109681066191D+01
        xs( 11) = 0.8920564648673594D+01
        xs( 12) = 0.9727777341392022D+01
        xs( 13) = 0.1052938001773890D+02
        xs( 14) = 0.1132503735772012D+02
        xs( 15) = 0.1211444832672348D+02
        xs( 16) = 0.1289734817437089D+02
        xs( 17) = 0.1367351043233546D+02
        xs( 18) = 0.1444274875931694D+02
        xs( 19) = 0.1520491844808875D+02
        xs( 20) = 0.1595991737208348D+02
        xs( 21) = 0.1670768612145999D+02
        xs( 22) = 0.1744820707995588D+02
        xs( 23) = 0.1818150224267300D+02
        xs( 24) = 0.1890762968414138D+02
        xs( 25) = 0.1962667874963389D+02
        xs( 26) = 0.2033876423296549D+02
        xs( 27) = 0.2104401997421454D+02
        xs( 28) = 0.2174259241862085D+02
        xs( 29) = 0.2243463470440603D+02
        xs( 30) = 0.2312030180871988D+02
        xs( 31) = 0.2379974721242491D+02
        xs( 32) = 0.2447312147326976D+02
        xs( 33) = 0.2514057302153902D+02
        xs( 34) = 0.2580225138897477D+02
        xs( 35) = 0.2645831292904271D+02
        xs( 36) = 0.2710892889099738D+02
        xs( 37) = 0.2775429550745372D+02
        xs( 38) = 0.2839464559723616D+02
        xs( 39) = 0.2903026111135743D+02
        xs( 40) = 0.2966148607849199D+02
        xs( 41) = 0.3028873953498140D+02
        xs( 42) = 0.3091252824123690D+02
        xs( 43) = 0.3153345929087521D+02
        xs( 44) = 0.3215225307111471D+02
        xs( 45) = 0.3276975734665880D+02
        xs( 46) = 0.3338696331578208D+02
        xs( 47) = 0.3400502411004070D+02
        xs( 48) = 0.3462527524177033D+02
        xs( 49) = 0.3524925494943005D+02
        xs( 50) = 0.3587872044933916D+02
        xs( 51) = 0.3651565419461753D+02
        xs( 52) = 0.3716225288152538D+02
        xs( 53) = 0.3782089248774448D+02
        xs( 54) = 0.3849406513895777D+02
        xs( 55) = 0.3918429094570437D+02
        xs( 56) = 0.3989401619381312D+02
        xs( 57) = 0.4062551472310973D+02
        xs( 58) = 0.4138082526534265D+02
        xs( 59) = 0.4216175200763757D+02
        xs( 60) = 0.4296991427591016D+02
        xs( 61) = 0.4380670616591436D+02
        xs( 62) = 0.4467386769213247D+02
        xs( 63) = 0.4557302777984906D+02
        xs( 64) = 0.4651632268345994D+02
        xs( 65) = 0.4751310421908257D+02
        xs( 66) = 0.4852373603890120D+02
        ws(  1) = 0.8248636127110313D+00
        ws(  2) = 0.8358213975656366D+00
        ws(  3) = 0.8365007053531319D+00
        ws(  4) = 0.8353626890831904D+00
        ws(  5) = 0.8333520601099476D+00
        ws(  6) = 0.8306984256715226D+00
        ws(  7) = 0.8274890119488728D+00
        ws(  8) = 0.8237713823524634D+00
        ws(  9) = 0.8195801557684801D+00
        ws( 10) = 0.8149457484883113D+00
        ws( 11) = 0.8098977368642627D+00
        ws( 12) = 0.8044663315620812D+00
        ws( 13) = 0.7986831030605215D+00
        ws( 14) = 0.7925813708420693D+00
        ws( 15) = 0.7861964084478130D+00
        ws( 16) = 0.7795655109366473D+00
        ws( 17) = 0.7727279224599358D+00
        ws( 18) = 0.7657245972485656D+00
        ws( 19) = 0.7585977563237482D+00
        ws( 20) = 0.7513902049053544D+00
        ws( 21) = 0.7441443939325645D+00
        ws( 22) = 0.7369012479368066D+00
        ws( 23) = 0.7296988373714627D+00
        ws( 24) = 0.7225710345385152D+00
        ws( 25) = 0.7155463367771761D+00
        ws( 26) = 0.7086470452942831D+00
        ws( 27) = 0.7018889445438709D+00
        ws( 28) = 0.6952815492988268D+00
        ws( 29) = 0.6888289083188236D+00
        ws( 30) = 0.6825309049905746D+00
        ws( 31) = 0.6763849826339910D+00
        ws( 32) = 0.6703882237751129D+00
        ws( 33) = 0.6645396990487273D+00
        ws( 34) = 0.6588429593274817D+00
        ws( 35) = 0.6533084930003891D+00
        ws( 36) = 0.6479559415567500D+00
        ws( 37) = 0.6428158840424822D+00
        ws( 38) = 0.6379310705300570D+00
        ws( 39) = 0.6333570798145217D+00
        ws( 40) = 0.6291624821244322D+00
        ws( 41) = 0.6254286817758431D+00
        ws( 42) = 0.6222496989122105D+00
        ws( 43) = 0.6197322322616130D+00
        ws( 44) = 0.6179963558644277D+00
        ws( 45) = 0.6171770858738974D+00
        ws( 46) = 0.6174266945358619D+00
        ws( 47) = 0.6189171308482524D+00
        ws( 48) = 0.6218412184216383D+00
        ws( 49) = 0.6264109463259931D+00
        ws( 50) = 0.6328506309644116D+00
        ws( 51) = 0.6413835354833103D+00
        ws( 52) = 0.6522108826978569D+00
        ws( 53) = 0.6654853014221565D+00
        ws( 54) = 0.6812818533359217D+00
        ws( 55) = 0.6995787192084101D+00
        ws( 56) = 0.7202515761140175D+00
        ws( 57) = 0.7430927852370878D+00
        ws( 58) = 0.7678280757382560D+00
        ws( 59) = 0.7942806400626414D+00
        ws( 60) = 0.8222393579226690D+00
        ws( 61) = 0.8514970395221017D+00
        ws( 62) = 0.8847667701815916D+00
        ws( 63) = 0.9136764842560732D+00
        ws( 64) = 0.9527901613782385D+00
        ws( 65) = 0.1091966436083541D+01
        ws( 66) = 0.1177836983979481D+01
        endif
        if( idomain .eq.  227 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.6283185307179586D+01
        rk1r = 0.4084070449666731D+02
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  68
        err = 0.9861717810726973D-13
        xs(  1) = 0.6573385614910338D+00
        xs(  2) = 0.1508485180388475D+01
        xs(  3) = 0.2363752306111014D+01
        xs(  4) = 0.3218733294516228D+01
        xs(  5) = 0.4072216007721627D+01
        xs(  6) = 0.4923480501115422D+01
        xs(  7) = 0.5771948938010070D+01
        xs(  8) = 0.6617104508570830D+01
        xs(  9) = 0.7458466896609381D+01
        xs( 10) = 0.8295584112486717D+01
        xs( 11) = 0.9128030192213346D+01
        xs( 12) = 0.9955405390126250D+01
        xs( 13) = 0.1077733760505471D+02
        xs( 14) = 0.1159348448902169D+02
        xs( 15) = 0.1240353593595857D+02
        xs( 16) = 0.1320721672343205D+02
        xs( 17) = 0.1400428908917205D+02
        xs( 18) = 0.1479455501351117D+02
        xs( 19) = 0.1557785797045018D+02
        xs( 20) = 0.1635408391922361D+02
        xs( 21) = 0.1712316133410222D+02
        xs( 22) = 0.1788506011170650D+02
        xs( 23) = 0.1863978924703001D+02
        xs( 24) = 0.1938739323947823D+02
        xs( 25) = 0.2012794729438177D+02
        xs( 26) = 0.2086155153990266D+02
        xs( 27) = 0.2158832467021130D+02
        xs( 28) = 0.2230839759526992D+02
        xs( 29) = 0.2302190773758875D+02
        xs( 30) = 0.2372899450249226D+02
        xs( 31) = 0.2442979618241429D+02
        xs( 32) = 0.2512444824965106D+02
        xs( 33) = 0.2581308280070113D+02
        xs( 34) = 0.2649582892718620D+02
        xs( 35) = 0.2717281397527349D+02
        xs( 36) = 0.2784416588493103D+02
        xs( 37) = 0.2851001692258393D+02
        xs( 38) = 0.2917050906420291D+02
        xs( 39) = 0.2982580108330020D+02
        xs( 40) = 0.3047607716046544D+02
        xs( 41) = 0.3112155666388722D+02
        xs( 42) = 0.3176250472067966D+02
        xs( 43) = 0.3239924329077006D+02
        xs( 44) = 0.3303216262742669D+02
        xs( 45) = 0.3366173317556499D+02
        xs( 46) = 0.3428851812784524D+02
        xs( 47) = 0.3491318700158353D+02
        xs( 48) = 0.3553653084448583D+02
        xs( 49) = 0.3615947986035602D+02
        xs( 50) = 0.3678312425113916D+02
        xs( 51) = 0.3740873828537149D+02
        xs( 52) = 0.3803780607671662D+02
        xs( 53) = 0.3867204492040558D+02
        xs( 54) = 0.3931341979784950D+02
        xs( 55) = 0.3996414091839469D+02
        xs( 56) = 0.4062663612298863D+02
        xs( 57) = 0.4130349451952567D+02
        xs( 58) = 0.4199738066522137D+02
        xs( 59) = 0.4271093280778264D+02
        xs( 60) = 0.4344666038920486D+02
        xs( 61) = 0.4420689824382951D+02
        xs( 62) = 0.4499364557703040D+02
        xs( 63) = 0.4580895116507652D+02
        xs( 64) = 0.4665432544969087D+02
        xs( 65) = 0.4753252456857656D+02
        xs( 66) = 0.4845719644561483D+02
        xs( 67) = 0.4941664759042735D+02
        xs( 68) = 0.5041183279626679D+02
        ws(  1) = 0.8433716391347792D+00
        ws(  2) = 0.8546253534552247D+00
        ws(  3) = 0.8554091656168977D+00
        ws(  4) = 0.8543720707032380D+00
        ws(  5) = 0.8524773289891395D+00
        ws(  6) = 0.8499564090046612D+00
        ws(  7) = 0.8468946716748321D+00
        ws(  8) = 0.8433365335242271D+00
        ws(  9) = 0.8393129426603811D+00
        ws( 10) = 0.8348504893090106D+00
        ws( 11) = 0.8299750209322274D+00
        ws( 12) = 0.8247133222258490D+00
        ws( 13) = 0.8190940076443411D+00
        ws( 14) = 0.8131480313985281D+00
        ws( 15) = 0.8069089485972047D+00
        ws( 16) = 0.8004129606784429D+00
        ws( 17) = 0.7936987377958155D+00
        ws( 18) = 0.7868070062002327D+00
        ws( 19) = 0.7797799000044447D+00
        ws( 20) = 0.7726600945337625D+00
        ws( 21) = 0.7654897566212086D+00
        ws( 22) = 0.7583093577797245D+00
        ws( 23) = 0.7511564099141115D+00
        ws( 24) = 0.7440642065837180D+00
        ws( 25) = 0.7370606986311661D+00
        ws( 26) = 0.7301676822094961D+00
        ws( 27) = 0.7234004931199429D+00
        ws( 28) = 0.7167683368829390D+00
        ws( 29) = 0.7102752333969051D+00
        ws( 30) = 0.7039213729678012D+00
        ws( 31) = 0.6977045742430236D+00
        ws( 32) = 0.6916215700213239D+00
        ws( 33) = 0.6856690268845437D+00
        ws( 34) = 0.6798444123040013D+00
        ws( 35) = 0.6741469456202973D+00
        ws( 36) = 0.6685788285300452D+00
        ws( 37) = 0.6631467908900806D+00
        ws( 38) = 0.6578638101885766D+00
        ws( 39) = 0.6527507608110620D+00
        ws( 40) = 0.6478377779612516D+00
        ws( 41) = 0.6431652319291825D+00
        ws( 42) = 0.6387843507122812D+00
        ws( 43) = 0.6347576340486198D+00
        ws( 44) = 0.6311592380826399D+00
        ws( 45) = 0.6280754991634259D+00
        ws( 46) = 0.6256057399184181D+00
        ws( 47) = 0.6238635573643484D+00
        ws( 48) = 0.6229788151535778D+00
        ws( 49) = 0.6231005131225720D+00
        ws( 50) = 0.6244002071099956D+00
        ws( 51) = 0.6270748043712664D+00
        ws( 52) = 0.6313467281704159D+00
        ws( 53) = 0.6374584818381901D+00
        ws( 54) = 0.6456600918581408D+00
        ws( 55) = 0.6561876499098808D+00
        ws( 56) = 0.6692357398114637D+00
        ws( 57) = 0.6849264453950068D+00
        ws( 58) = 0.7032882372884531D+00
        ws( 59) = 0.7242370523330885D+00
        ws( 60) = 0.7475950440549626D+00
        ws( 61) = 0.7731978130188066D+00
        ws( 62) = 0.8006909446946896D+00
        ws( 63) = 0.8301434753995756D+00
        ws( 64) = 0.8617251858037660D+00
        ws( 65) = 0.8939041867986588D+00
        ws( 66) = 0.9208487593657901D+00
        ws( 67) = 0.1090811556445389D+01
        ws( 68) = 0.1161947766655405D+01
        endif
        if( idomain .eq.  228 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.6283185307179586D+01
        rk1r = 0.4398229715025710D+02
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  72
        err = 0.4691055034957536D-13
        xs(  1) = 0.6590424540724839D+00
        xs(  2) = 0.1512433366693403D+01
        xs(  3) = 0.2370045984358404D+01
        xs(  4) = 0.3227513171105319D+01
        xs(  5) = 0.4083669490314784D+01
        xs(  6) = 0.4937841596232736D+01
        xs(  7) = 0.5789496984865417D+01
        xs(  8) = 0.6638162479611387D+01
        xs(  9) = 0.7483399417899677D+01
        xs( 10) = 0.8324795214955145D+01
        xs( 11) = 0.9161960731073147D+01
        xs( 12) = 0.9994530012767960D+01
        xs( 13) = 0.1082216110050747D+02
        xs( 14) = 0.1164453731972520D+02
        xs( 15) = 0.1246136874469251D+02
        xs( 16) = 0.1327239363293659D+02
        xs( 17) = 0.1407737967800374D+02
        xs( 18) = 0.1487612495988190D+02
        xs( 19) = 0.1566845850326579D+02
        xs( 20) = 0.1645424038912773D+02
        xs( 21) = 0.1723336140129292D+02
        xs( 22) = 0.1800574222085011D+02
        xs( 23) = 0.1877133220132416D+02
        xs( 24) = 0.1953010776808954D+02
        xs( 25) = 0.2028207049695665D+02
        xs( 26) = 0.2102724495114243D+02
        xs( 27) = 0.2176567639924893D+02
        xs( 28) = 0.2249742857954680D+02
        xs( 29) = 0.2322258168480732D+02
        xs( 30) = 0.2394123067764189D+02
        xs( 31) = 0.2465348390532442D+02
        xs( 32) = 0.2535946180861458D+02
        xs( 33) = 0.2605929539895534D+02
        xs( 34) = 0.2675312420294108D+02
        xs( 35) = 0.2744109358260526D+02
        xs( 36) = 0.2812335168739349D+02
        xs( 37) = 0.2880004664758924D+02
        xs( 38) = 0.2947132480531447D+02
        xs( 39) = 0.3013733068496525D+02
        xs( 40) = 0.3079820902617525D+02
        xs( 41) = 0.3145410869609833D+02
        xs( 42) = 0.3210518788748102D+02
        xs( 43) = 0.3275161987904001D+02
        xs( 44) = 0.3339359883925920D+02
        xs( 45) = 0.3403134555640288D+02
        xs( 46) = 0.3466511339106560D+02
        xs( 47) = 0.3529519498277749D+02
        xs( 48) = 0.3592193027742629D+02
        xs( 49) = 0.3654571634584402D+02
        xs( 50) = 0.3716701938902401D+02
        xs( 51) = 0.3778638930123733D+02
        xs( 52) = 0.3840447718775287D+02
        xs( 53) = 0.3902205610565976D+02
        xs( 54) = 0.3964004498835685D+02
        xs( 55) = 0.4025953508940871D+02
        xs( 56) = 0.4088181758792034D+02
        xs( 57) = 0.4150840969594882D+02
        xs( 58) = 0.4214107563179614D+02
        xs( 59) = 0.4278183686266821D+02
        xs( 60) = 0.4343296462432895D+02
        xs( 61) = 0.4409694841988805D+02
        xs( 62) = 0.4477643696078483D+02
        xs( 63) = 0.4547414503497906D+02
        xs( 64) = 0.4619276499126625D+02
        xs( 65) = 0.4693484073690118D+02
        xs( 66) = 0.4770263549941432D+02
        xs( 67) = 0.4849877152239151D+02
        xs( 68) = 0.4932449537645658D+02
        xs( 69) = 0.5018226357322472D+02
        xs( 70) = 0.5107296017158524D+02
        xs( 71) = 0.5197711262917235D+02
        xs( 72) = 0.5316566215714724D+02
        ws(  1) = 0.8455677194592269D+00
        ws(  2) = 0.8569153586504873D+00
        ws(  3) = 0.8578173419675290D+00
        ws(  4) = 0.8569441347171940D+00
        ws(  5) = 0.8552602579849162D+00
        ws(  6) = 0.8529962668894578D+00
        ws(  7) = 0.8502359938742584D+00
        ws(  8) = 0.8470220062842703D+00
        ws(  9) = 0.8433831432800073D+00
        ws( 10) = 0.8393435958522965D+00
        ws( 11) = 0.8349264294127849D+00
        ws( 12) = 0.8301551185211976D+00
        ws( 13) = 0.8250542530076876D+00
        ws( 14) = 0.8196498402119495D+00
        ws( 15) = 0.8139693648205241D+00
        ws( 16) = 0.8080416778599809D+00
        ws( 17) = 0.8018967495077495D+00
        ws( 18) = 0.7955653164547861D+00
        ws( 19) = 0.7890784564050024D+00
        ws( 20) = 0.7824671261288051D+00
        ws( 21) = 0.7757616989062751D+00
        ws( 22) = 0.7689915259335681D+00
        ws( 23) = 0.7621845381041339D+00
        ws( 24) = 0.7553668944118846D+00
        ws( 25) = 0.7485626956223549D+00
        ws( 26) = 0.7417937952313860D+00
        ws( 27) = 0.7350797579051122D+00
        ws( 28) = 0.7284379961794762D+00
        ws( 29) = 0.7218840640153315D+00
        ws( 30) = 0.7154320002136386D+00
        ws( 31) = 0.7090945531910461D+00
        ws( 32) = 0.7028831226095221D+00
        ws( 33) = 0.6968073577685956D+00
        ws( 34) = 0.6908745295382837D+00
        ws( 35) = 0.6850889701465745D+00
        ws( 36) = 0.6794519590835041D+00
        ws( 37) = 0.6739623529707509D+00
        ws( 38) = 0.6686180155380548D+00
        ws( 39) = 0.6634178002787786D+00
        ws( 40) = 0.6583636048062509D+00
        ws( 41) = 0.6534620031990324D+00
        ws( 42) = 0.6487251623298663D+00
        ws( 43) = 0.6441710874948181D+00
        ws( 44) = 0.6398235330837041D+00
        ws( 45) = 0.6357120176242491D+00
        ws( 46) = 0.6318722923438947D+00
        ws( 47) = 0.6283473860861812D+00
        ws( 48) = 0.6251891821681652D+00
        ws( 49) = 0.6224604134377985D+00
        ws( 50) = 0.6202370314075055D+00
        ws( 51) = 0.6186109644185593D+00
        ws( 52) = 0.6176932525698077D+00
        ws( 53) = 0.6176172961732996D+00
        ws( 54) = 0.6185418819424426D+00
        ws( 55) = 0.6206530785516113D+00
        ws( 56) = 0.6241644312731981D+00
        ws( 57) = 0.6293136525735560D+00
        ws( 58) = 0.6363553142837323D+00
        ws( 59) = 0.6455461145525567D+00
        ws( 60) = 0.6571256896458654D+00
        ws( 61) = 0.6712853808809813D+00
        ws( 62) = 0.6881450011565757D+00
        ws( 63) = 0.7077247171921559D+00
        ws( 64) = 0.7299416417952419D+00
        ws( 65) = 0.7545999310106106D+00
        ws( 66) = 0.7814915461746198D+00
        ws( 67) = 0.8104249803990483D+00
        ws( 68) = 0.8424171299260474D+00
        ws( 69) = 0.8770993107746387D+00
        ws( 70) = 0.8977014436251241D+00
        ws( 71) = 0.8611049749933118D+00
        ws( 72) = 0.1935207597841872D+01
        endif
        if( idomain .eq.  229 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.6283185307179586D+01
        rk1r = 0.4712388980384689D+02
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  74
        err = 0.9826606474174008D-13
        xs(  1) = 0.6683493419929007D+00
        xs(  2) = 0.1533812773839132D+01
        xs(  3) = 0.2403607826539188D+01
        xs(  4) = 0.3273334361463405D+01
        xs(  5) = 0.4141838973207016D+01
        xs(  6) = 0.5008466994828783D+01
        xs(  7) = 0.5872706103974819D+01
        xs(  8) = 0.6734103409307015D+01
        xs(  9) = 0.7592239976726781D+01
        xs( 10) = 0.8446721908103735D+01
        xs( 11) = 0.9297177260592287D+01
        xs( 12) = 0.1014325534751613D+02
        xs( 13) = 0.1098462711537126D+02
        xs( 14) = 0.1182098603201107D+02
        xs( 15) = 0.1265204919516179D+02
        xs( 16) = 0.1347755848053619D+02
        xs( 17) = 0.1429728159497075D+02
        xs( 18) = 0.1511101292882824D+02
        xs( 19) = 0.1591857413394813D+02
        xs( 20) = 0.1671981439213402D+02
        xs( 21) = 0.1751461038902011D+02
        xs( 22) = 0.1830286605075364D+02
        xs( 23) = 0.1908451212840956D+02
        xs( 24) = 0.1985950570530055D+02
        xs( 25) = 0.2062782965931797D+02
        xs( 26) = 0.2138949204287998D+02
        xs( 27) = 0.2214452528475678D+02
        xs( 28) = 0.2289298510252694D+02
        xs( 29) = 0.2363494906287841D+02
        xs( 30) = 0.2437051481699694D+02
        xs( 31) = 0.2509979811525791D+02
        xs( 32) = 0.2582293069641498D+02
        xs( 33) = 0.2654005802713178D+02
        xs( 34) = 0.2725133667932648D+02
        xs( 35) = 0.2795693099836514D+02
        xs( 36) = 0.2865700876728656D+02
        xs( 37) = 0.2935173588237022D+02
        xs( 38) = 0.3004127054784684D+02
        xs( 39) = 0.3072575797623276D+02
        xs( 40) = 0.3140532678509458D+02
        xs( 41) = 0.3208008806786006D+02
        xs( 42) = 0.3275013753631722D+02
        xs( 43) = 0.3341556043074084D+02
        xs( 44) = 0.3407643838959818D+02
        xs( 45) = 0.3473285733851072D+02
        xs( 46) = 0.3538491569109008D+02
        xs( 47) = 0.3603273252835573D+02
        xs( 48) = 0.3667645574002995D+02
        xs( 49) = 0.3731627020217133D+02
        xs( 50) = 0.3795240605279320D+02
        xs( 51) = 0.3858514707741179D+02
        xs( 52) = 0.3921483938213369D+02
        xs( 53) = 0.3984190085019425D+02
        xs( 54) = 0.4046683232478631D+02
        xs( 55) = 0.4109023173517872D+02
        xs( 56) = 0.4171281240012508D+02
        xs( 57) = 0.4233542617015621D+02
        xs( 58) = 0.4295909144299885D+02
        xs( 59) = 0.4358502472789209D+02
        xs( 60) = 0.4421467401719731D+02
        xs( 61) = 0.4484974966876071D+02
        xs( 62) = 0.4549224924535977D+02
        xs( 63) = 0.4614446679857408D+02
        xs( 64) = 0.4680898522159218D+02
        xs( 65) = 0.4748863783885711D+02
        xs( 66) = 0.4818643516177156D+02
        xs( 67) = 0.4890544199320888D+02
        xs( 68) = 0.4964882108747043D+02
        xs( 69) = 0.5041946397796541D+02
        xs( 70) = 0.5121919810590986D+02
        xs( 71) = 0.5205168058239406D+02
        xs( 72) = 0.5291818337996129D+02
        xs( 73) = 0.5381400962902341D+02
        xs( 74) = 0.5519799452042492D+02
        ws(  1) = 0.8575142064268029D+00
        ws(  2) = 0.8690580085256440D+00
        ws(  3) = 0.8700373854820151D+00
        ws(  4) = 0.8692450962748622D+00
        ws(  5) = 0.8676590538888292D+00
        ws(  6) = 0.8655126851837591D+00
        ws(  7) = 0.8628904075738636D+00
        ws(  8) = 0.8598345096522269D+00
        ws(  9) = 0.8563730200289728D+00
        ws( 10) = 0.8525288612110395D+00
        ws( 11) = 0.8483233885113580D+00
        ws( 12) = 0.8437779276484551D+00
        ws( 13) = 0.8389145004878823D+00
        ws( 14) = 0.8337561629622864D+00
        ws( 15) = 0.8283271248119557D+00
        ws( 16) = 0.8226527160275392D+00
        ws( 17) = 0.8167592348423049D+00
        ws( 18) = 0.8106737037668267D+00
        ws( 19) = 0.8044235706593493D+00
        ws( 20) = 0.7980363979449030D+00
        ws( 21) = 0.7915395906189312D+00
        ws( 22) = 0.7849601996727861D+00
        ws( 23) = 0.7783248117051358D+00
        ws( 24) = 0.7716594984960335D+00
        ws( 25) = 0.7649897646092377D+00
        ws( 26) = 0.7583404252570181D+00
        ws( 27) = 0.7517353688323337D+00
        ws( 28) = 0.7451972241891336D+00
        ws( 29) = 0.7387470050610030D+00
        ws( 30) = 0.7324038300532767D+00
        ws( 31) = 0.7261847600759306D+00
        ws( 32) = 0.7201046894955152D+00
        ws( 33) = 0.7141761219470977D+00
        ws( 34) = 0.7084086455622990D+00
        ws( 35) = 0.7028080463000953D+00
        ws( 36) = 0.6973752401735400D+00
        ws( 37) = 0.6921054486475701D+00
        ws( 38) = 0.6869881469625219D+00
        ws( 39) = 0.6820081626198546D+00
        ws( 40) = 0.6771479340890691D+00
        ws( 41) = 0.6723904995388155D+00
        ws( 42) = 0.6677225271939335D+00
        ws( 43) = 0.6631367349275411D+00
        ws( 44) = 0.6586333661394975D+00
        ws( 45) = 0.6542207978295818D+00
        ws( 46) = 0.6499156188029098D+00
        ws( 47) = 0.6457425677617524D+00
        ws( 48) = 0.6417345302290447D+00
        ws( 49) = 0.6379326111857860D+00
        ws( 50) = 0.6343862442907012D+00
        ws( 51) = 0.6311533342601435D+00
        ws( 52) = 0.6283007393760973D+00
        ws( 53) = 0.6259054403079832D+00
        ws( 54) = 0.6240568593050302D+00
        ws( 55) = 0.6228604679245567D+00
        ws( 56) = 0.6224423742621318D+00
        ws( 57) = 0.6229543704420529D+00
        ws( 58) = 0.6245783409003158D+00
        ws( 59) = 0.6275291499268899D+00
        ws( 60) = 0.6320540055393638D+00
        ws( 61) = 0.6384298925244126D+00
        ws( 62) = 0.6469520714056628D+00
        ws( 63) = 0.6579148905078023D+00
        ws( 64) = 0.6715943271899560D+00
        ws( 65) = 0.6882133293323043D+00
        ws( 66) = 0.7078977537769479D+00
        ws( 67) = 0.7306470097383329D+00
        ws( 68) = 0.7565927098361228D+00
        ws( 69) = 0.7852203093610576D+00
        ws( 70) = 0.8135011179469916D+00
        ws( 71) = 0.8493305735381963D+00
        ws( 72) = 0.9023517621148806D+00
        ws( 73) = 0.9136194308500264D+00
        ws( 74) = 0.1923687575303472D+01
        endif
        if( idomain .eq.  230 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.6283185307179586D+01
        rk1r = 0.5026548245743669D+02
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  78
        err = 0.5087051983717742D-13
        xs(  1) = 0.6704390185089921D+00
        xs(  2) = 0.1538646761184614D+01
        xs(  3) = 0.2411290728284604D+01
        xs(  4) = 0.3284007746886856D+01
        xs(  5) = 0.4155689744098229D+01
        xs(  6) = 0.5025726611897652D+01
        xs(  7) = 0.5893648189783925D+01
        xs(  8) = 0.6759040637246151D+01
        xs(  9) = 0.7621520476398339D+01
        xs( 10) = 0.8480725283260455D+01
        xs( 11) = 0.9336310276817027D+01
        xs( 12) = 0.1018794733172392D+02
        xs( 13) = 0.1103532510924560D+02
        xs( 14) = 0.1187814974719455D+02
        xs( 15) = 0.1271614583425191D+02
        xs( 16) = 0.1354905750641036D+02
        xs( 17) = 0.1437664955035009D+02
        xs( 18) = 0.1519870841919242D+02
        xs( 19) = 0.1601504308005120D+02
        xs( 20) = 0.1682548562962781D+02
        xs( 21) = 0.1762989163460176D+02
        xs( 22) = 0.1842814018250939D+02
        xs( 23) = 0.1922013365620927D+02
        xs( 24) = 0.2000579727391984D+02
        xs( 25) = 0.2078507845533573D+02
        xs( 26) = 0.2155794608473539D+02
        xs( 27) = 0.2232438973939967D+02
        xs( 28) = 0.2308441893651189D+02
        xs( 29) = 0.2383806242533242D+02
        xs( 30) = 0.2458536750782950D+02
        xs( 31) = 0.2532639931726587D+02
        xs( 32) = 0.2606123992090008D+02
        xs( 33) = 0.2678998706707449D+02
        xs( 34) = 0.2751275239484630D+02
        xs( 35) = 0.2822965900260452D+02
        xs( 36) = 0.2894083843723577D+02
        xs( 37) = 0.2964642738806263D+02
        xs( 38) = 0.3034656456774685D+02
        xs( 39) = 0.3104138833509981D+02
        xs( 40) = 0.3173103548779448D+02
        xs( 41) = 0.3241564132609425D+02
        xs( 42) = 0.3309534066095307D+02
        xs( 43) = 0.3377026908666630D+02
        xs( 44) = 0.3444056371461053D+02
        xs( 45) = 0.3510636277001900D+02
        xs( 46) = 0.3576780391340362D+02
        xs( 47) = 0.3642502171739005D+02
        xs( 48) = 0.3707814519919597D+02
        xs( 49) = 0.3772729653730976D+02
        xs( 50) = 0.3837259203876058D+02
        xs( 51) = 0.3901414609569919D+02
        xs( 52) = 0.3965207838392891D+02
        xs( 53) = 0.4028652404965555D+02
        xs( 54) = 0.4091764624325933D+02
        xs( 55) = 0.4154565021737444D+02
        xs( 56) = 0.4217079829025622D+02
        xs( 57) = 0.4279342528924120D+02
        xs( 58) = 0.4341395439343305D+02
        xs( 59) = 0.4403291366267565D+02
        xs( 60) = 0.4465095366372934D+02
        xs( 61) = 0.4526886688064587D+02
        xs( 62) = 0.4588760969662960D+02
        xs( 63) = 0.4650832768880252D+02
        xs( 64) = 0.4713238450950945D+02
        xs( 65) = 0.4776139301040373D+02
        xs( 66) = 0.4839724503971505D+02
        xs( 67) = 0.4904213487545263D+02
        xs( 68) = 0.4969856372065761D+02
        xs( 69) = 0.5036932484723376D+02
        xs( 70) = 0.5105743728738466D+02
        xs( 71) = 0.5176608495505763D+02
        xs( 72) = 0.5249852000878737D+02
        xs( 73) = 0.5325774069906947D+02
        xs( 74) = 0.5404651687345881D+02
        xs( 75) = 0.5486984743322602D+02
        xs( 76) = 0.5572820738969598D+02
        xs( 77) = 0.5664678912563641D+02
        xs( 78) = 0.5772015764802968D+02
        ws(  1) = 0.8602053855539573D+00
        ws(  2) = 0.8718505132746401D+00
        ws(  3) = 0.8729496254592305D+00
        ws(  4) = 0.8723214559954225D+00
        ws(  5) = 0.8709449127219161D+00
        ws(  6) = 0.8690515566338320D+00
        ws(  7) = 0.8667229898926845D+00
        ws(  8) = 0.8639981273520818D+00
        ws(  9) = 0.8609011969596290D+00
        ws( 10) = 0.8574509670434416D+00
        ws( 11) = 0.8536643291441721D+00
        ws( 12) = 0.8495578787933040D+00
        ws( 13) = 0.8451486826255289D+00
        ws( 14) = 0.8404546728530039D+00
        ws( 15) = 0.8354948386290504D+00
        ws( 16) = 0.8302892863260104D+00
        ws( 17) = 0.8248591961290633D+00
        ws( 18) = 0.8192266923765228D+00
        ws( 19) = 0.8134146397851575D+00
        ws( 20) = 0.8074463863158200D+00
        ws( 21) = 0.8013454754282778D+00
        ws( 22) = 0.7951353586523052D+00
        ws( 23) = 0.7888391358563884D+00
        ws( 24) = 0.7824793486287412D+00
        ws( 25) = 0.7760778412345104D+00
        ws( 26) = 0.7696556930907850D+00
        ws( 27) = 0.7632332141856093D+00
        ws( 28) = 0.7568299827442766D+00
        ws( 29) = 0.7504648902307768D+00
        ws( 30) = 0.7441561448372839D+00
        ws( 31) = 0.7379211723233794D+00
        ws( 32) = 0.7317763558730260D+00
        ws( 33) = 0.7257365836287397D+00
        ws( 34) = 0.7198146391938344D+00
        ws( 35) = 0.7140205571088858D+00
        ws( 36) = 0.7083611470706587D+00
        ws( 37) = 0.7028399140656002D+00
        ws( 38) = 0.6974575255257635D+00
        ws( 39) = 0.6922128069028084D+00
        ws( 40) = 0.6871040300277877D+00
        ws( 41) = 0.6821300917285510D+00
        ws( 42) = 0.6772911632840266D+00
        ws( 43) = 0.6725885463761043D+00
        ws( 44) = 0.6680237760332930D+00
        ws( 45) = 0.6635973223796749D+00
        ws( 46) = 0.6593074370371445D+00
        ws( 47) = 0.6551496979427966D+00
        ws( 48) = 0.6511176142769489D+00
        ws( 49) = 0.6472043808759547D+00
        ws( 50) = 0.6434055666253397D+00
        ws( 51) = 0.6397223219329375D+00
        ws( 52) = 0.6361645680342570D+00
        ws( 53) = 0.6327537178576621D+00
        ws( 54) = 0.6295246278366411D+00
        ws( 55) = 0.6265267832888020D+00
        ws( 56) = 0.6238249040788379D+00
        ws( 57) = 0.6214993484866262D+00
        ws( 58) = 0.6196465814171574D+00
        ws( 59) = 0.6183800660075215D+00
        ws( 60) = 0.6178316579725343D+00
        ws( 61) = 0.6181537598343295D+00
        ws( 62) = 0.6195223469987990D+00
        ws( 63) = 0.6221404162195309D+00
        ws( 64) = 0.6262415721383615D+00
        ws( 65) = 0.6320905322868219D+00
        ws( 66) = 0.6399793756879929D+00
        ws( 67) = 0.6502175162016141D+00
        ws( 68) = 0.6631092900019854D+00
        ws( 69) = 0.6789176577184791D+00
        ws( 70) = 0.6978472776568684D+00
        ws( 71) = 0.7199924122316621D+00
        ws( 72) = 0.7454133111367636D+00
        ws( 73) = 0.7736663590511335D+00
        ws( 74) = 0.8042863586303541D+00
        ws( 75) = 0.8421116420726665D+00
        ws( 76) = 0.8825474997698523D+00
        ws( 77) = 0.9290885081602778D+00
        ws( 78) = 0.1459932525672152D+01
        endif
        if( idomain .eq.  231 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.9424777960769379D+01
        rk1r = 0.2000000000000000D-01
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  35
        err = 0.5813455128417359D-13
        xs(  1) = 0.5793159365991388D+00
        xs(  2) = 0.1330877912445255D+01
        xs(  3) = 0.2089481497590563D+01
        xs(  4) = 0.2853101128283989D+01
        xs(  5) = 0.3622410760793122D+01
        xs(  6) = 0.4398374462009535D+01
        xs(  7) = 0.5181919176909502D+01
        xs(  8) = 0.5973854086294893D+01
        xs(  9) = 0.6774848257909408D+01
        xs( 10) = 0.7585429458239114D+01
        xs( 11) = 0.8405992895326014D+01
        xs( 12) = 0.9236815046832707D+01
        xs( 13) = 0.1007806979879718D+02
        xs( 14) = 0.1092984508378641D+02
        xs( 15) = 0.1179215907161886D+02
        xs( 16) = 0.1266497519846296D+02
        xs( 17) = 0.1354821506563094D+02
        xs( 18) = 0.1444176986829792D+02
        xs( 19) = 0.1534551157858042D+02
        xs( 20) = 0.1625929855336220D+02
        xs( 21) = 0.1718298076467862D+02
        xs( 22) = 0.1811640534734553D+02
        xs( 23) = 0.1905944186097763D+02
        xs( 24) = 0.2001190740453281D+02
        xs( 25) = 0.2097370946356851D+02
        xs( 26) = 0.2194431454966240D+02
        xs( 27) = 0.2292444030836863D+02
        xs( 28) = 0.2391398101827034D+02
        xs( 29) = 0.2490587375594194D+02
        xs( 30) = 0.2591435562692635D+02
        xs( 31) = 0.2693495888520091D+02
        xs( 32) = 0.2791752627536317D+02
        xs( 33) = 0.2893180601271934D+02
        xs( 34) = 0.2988717103633543D+02
        xs( 35) = 0.3264125482869279D+02
        ws(  1) = 0.7436466387752719D+00
        ws(  2) = 0.7560152038515006D+00
        ws(  3) = 0.7610617917564565D+00
        ws(  4) = 0.7663090244152841D+00
        ws(  5) = 0.7724747241506521D+00
        ws(  6) = 0.7796082501721601D+00
        ws(  7) = 0.7876163521667672D+00
        ws(  8) = 0.7963649789133395D+00
        ws(  9) = 0.8057111671658232D+00
        ws( 10) = 0.8155168572699260D+00
        ws( 11) = 0.8256558363033526D+00
        ws( 12) = 0.8360171762494957D+00
        ws( 13) = 0.8465066638875240D+00
        ws( 14) = 0.8570467357253697D+00
        ws( 15) = 0.8675750071727495D+00
        ws( 16) = 0.8780435937281708D+00
        ws( 17) = 0.8884181827483419D+00
        ws( 18) = 0.8986710755816184D+00
        ws( 19) = 0.9087858005416493D+00
        ws( 20) = 0.9187637078072466D+00
        ws( 21) = 0.9285807696746959D+00
        ws( 22) = 0.9382461502834744D+00
        ws( 23) = 0.9477756573028451D+00
        ws( 24) = 0.9570914248654186D+00
        ws( 25) = 0.9665258493840927D+00
        ws( 26) = 0.9756675458615626D+00
        ws( 27) = 0.9824870038872658D+00
        ws( 28) = 0.9943916362546928D+00
        ws( 29) = 0.9993487020569418D+00
        ws( 30) = 0.9981409247046635D+00
        ws( 31) = 0.1066782789585234D+01
        ws( 32) = 0.9374742558269090D+00
        ws( 33) = 0.9265326155277895D+00
        ws( 34) = 0.1393156677161384D+01
        ws( 35) = 0.4603577487795102D+01
        endif
        if( idomain .eq.  232 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.9424777960769379D+01
        rk1r = 0.4000000000000000D-01
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  35
        err = 0.3522624016821027D-13
        xs(  1) = 0.5737070391581354D+00
        xs(  2) = 0.1318066268377120D+01
        xs(  3) = 0.2069570412155649D+01
        xs(  4) = 0.2826298709060831D+01
        xs(  5) = 0.3588988923581444D+01
        xs(  6) = 0.4358649430802513D+01
        xs(  7) = 0.5136235243715708D+01
        xs(  8) = 0.5922569650050142D+01
        xs(  9) = 0.6718324342476804D+01
        xs( 10) = 0.7524020727199054D+01
        xs( 11) = 0.8340040917820872D+01
        xs( 12) = 0.9166643410565026D+01
        xs( 13) = 0.1000398063750558D+02
        xs( 14) = 0.1085211669305272D+02
        xs( 15) = 0.1171104416288194D+02
        xs( 16) = 0.1258069935500549D+02
        xs( 17) = 0.1346097560160932D+02
        xs( 18) = 0.1435173483171145D+02
        xs( 19) = 0.1525281749763348D+02
        xs( 20) = 0.1616404638214952D+02
        xs( 21) = 0.1708523477953745D+02
        xs( 22) = 0.1801619692871459D+02
        xs( 23) = 0.1895673913427431D+02
        xs( 24) = 0.1990655919369620D+02
        xs( 25) = 0.2086566338863851D+02
        xs( 26) = 0.2183352395227323D+02
        xs( 27) = 0.2280955968925973D+02
        xs( 28) = 0.2379467829474765D+02
        xs( 29) = 0.2478580947716539D+02
        xs( 30) = 0.2578194000975687D+02
        xs( 31) = 0.2679020241529803D+02
        xs( 32) = 0.2779098395330968D+02
        xs( 33) = 0.2876463228422971D+02
        xs( 34) = 0.2972738501593697D+02
        xs( 35) = 0.3262983772979307D+02
        ws(  1) = 0.7364662021516067D+00
        ws(  2) = 0.7488398066457239D+00
        ws(  3) = 0.7540538299954007D+00
        ws(  4) = 0.7595447974082060D+00
        ws(  5) = 0.7660074600974855D+00
        ws(  6) = 0.7734737674319792D+00
        ws(  7) = 0.7818353398543021D+00
        ws(  8) = 0.7909453791428965D+00
        ws(  9) = 0.8006507134073840D+00
        ws( 10) = 0.8108054686627547D+00
        ws( 11) = 0.8212776973789498D+00
        ws( 12) = 0.8319524072427462D+00
        ws( 13) = 0.8427324593189421D+00
        ws( 14) = 0.8535381478516014D+00
        ws( 15) = 0.8643058437160556D+00
        ws( 16) = 0.8749865832015749D+00
        ws( 17) = 0.8855434437166191D+00
        ws( 18) = 0.8959477279778030D+00
        ws( 19) = 0.9061853316464474D+00
        ws( 20) = 0.9162480886228423D+00
        ws( 21) = 0.9260958837854031D+00
        ws( 22) = 0.9357756092451156D+00
        ws( 23) = 0.9452765130465436D+00
        ws( 24) = 0.9544824738585757D+00
        ws( 25) = 0.9632588511139037D+00
        ws( 26) = 0.9727333998834625D+00
        ws( 27) = 0.9805822757835203D+00
        ws( 28) = 0.9853211098524927D+00
        ws( 29) = 0.9972701093740896D+00
        ws( 30) = 0.1008831351359921D+01
        ws( 31) = 0.9934985573541852D+00
        ws( 32) = 0.9501986561804672D+00
        ws( 33) = 0.1093199691288154D+01
        ws( 34) = 0.1239970178291080D+01
        ws( 35) = 0.4864355583589859D+01
        endif
        if( idomain .eq.  233 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.9424777960769379D+01
        rk1r = 0.1000000000000000D+00
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  35
        err = 0.2446646055419486D-13
        xs(  1) = 0.5865793174674088D+00
        xs(  2) = 0.1347547184218888D+01
        xs(  3) = 0.2115604623951656D+01
        xs(  4) = 0.2888678927396628D+01
        xs(  5) = 0.3667432348438207D+01
        xs(  6) = 0.4452822815895814D+01
        xs(  7) = 0.5245772811409858D+01
        xs(  8) = 0.6047087842393857D+01
        xs(  9) = 0.6857433892509528D+01
        xs( 10) = 0.7677336283487349D+01
        xs( 11) = 0.8507188598369501D+01
        xs( 12) = 0.9347266727026335D+01
        xs( 13) = 0.1019774525242665D+02
        xs( 14) = 0.1105871439185756D+02
        xs( 15) = 0.1193019638093550D+02
        xs( 16) = 0.1281216054569592D+02
        xs( 17) = 0.1370453677324745D+02
        xs( 18) = 0.1460722758446212D+02
        xs( 19) = 0.1552011744688567D+02
        xs( 20) = 0.1644307991382969D+02
        xs( 21) = 0.1737598892186058D+02
        xs( 22) = 0.1831872295312740D+02
        xs( 23) = 0.1927113834281665D+02
        xs( 24) = 0.2023314947261984D+02
        xs( 25) = 0.2120468167920638D+02
        xs( 26) = 0.2218544152122066D+02
        xs( 27) = 0.2317539385692585D+02
        xs( 28) = 0.2417505855647365D+02
        xs( 29) = 0.2518255352793386D+02
        xs( 30) = 0.2619620015049013D+02
        xs( 31) = 0.2722284157889297D+02
        xs( 32) = 0.2825699299659012D+02
        xs( 33) = 0.2925217279196319D+02
        xs( 34) = 0.3019358322960022D+02
        xs( 35) = 0.3299222998858774D+02
        ws(  1) = 0.7529658836381702D+00
        ws(  2) = 0.7654605043390948D+00
        ws(  3) = 0.7705189361453142D+00
        ws(  4) = 0.7757595109026019D+00
        ws(  5) = 0.7819108352808531D+00
        ws(  6) = 0.7890249397473047D+00
        ws(  7) = 0.7970096150465757D+00
        ws(  8) = 0.8057314420408913D+00
        ws(  9) = 0.8150480507258522D+00
        ws( 10) = 0.8248220855323120D+00
        ws( 11) = 0.8349282518694574D+00
        ws( 12) = 0.8452568267057785D+00
        ws( 13) = 0.8557149845455388D+00
        ws( 14) = 0.8662267098471471D+00
        ws( 15) = 0.8767319017827401D+00
        ws( 16) = 0.8871847110502615D+00
        ws( 17) = 0.8975515002612506D+00
        ws( 18) = 0.9078099901953997D+00
        ws( 19) = 0.9179482704835082D+00
        ws( 20) = 0.9279589507277275D+00
        ws( 21) = 0.9378353762086928D+00
        ws( 22) = 0.9475959672140855D+00
        ws( 23) = 0.9572600303991389D+00
        ws( 24) = 0.9667475896259208D+00
        ws( 25) = 0.9760984551017311D+00
        ws( 26) = 0.9857540196491505D+00
        ws( 27) = 0.9945348767008355D+00
        ws( 28) = 0.1002034161747494D+01
        ws( 29) = 0.1014009985565071D+01
        ws( 30) = 0.1024253446142206D+01
        ws( 31) = 0.1013188369082216D+01
        ws( 32) = 0.1003166285763199D+01
        ws( 33) = 0.1113543053835529D+01
        ws( 34) = 0.1117506275795104D+01
        ws( 35) = 0.4824144140966971D+01
        endif
        if( idomain .eq.  234 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.9424777960769379D+01
        rk1r = 0.2000000000000000D+00
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  34
        err = 0.5604416073051232D-13
        xs(  1) = 0.5971311599598672D+00
        xs(  2) = 0.1371760268900500D+01
        xs(  3) = 0.2153541113395878D+01
        xs(  4) = 0.2940328084506359D+01
        xs(  5) = 0.3732762064644009D+01
        xs(  6) = 0.4531788000561616D+01
        xs(  7) = 0.5338318496052225D+01
        xs(  8) = 0.6153151388709806D+01
        xs(  9) = 0.6976947244552683D+01
        xs( 10) = 0.7810228527879640D+01
        xs( 11) = 0.8653388893292497D+01
        xs( 12) = 0.9506707582650035D+01
        xs( 13) = 0.1037036612329392D+02
        xs( 14) = 0.1124446556017555D+02
        xs( 15) = 0.1212904316487028D+02
        xs( 16) = 0.1302408796302023D+02
        xs( 17) = 0.1392955464392349D+02
        xs( 18) = 0.1484537519353669D+02
        xs( 19) = 0.1577147041390346D+02
        xs( 20) = 0.1670776381967099D+02
        xs( 21) = 0.1765417822002571D+02
        xs( 22) = 0.1861062819632845D+02
        xs( 23) = 0.1957717286930611D+02
        xs( 24) = 0.2055366723629687D+02
        xs( 25) = 0.2154003222253749D+02
        xs( 26) = 0.2253713741222667D+02
        xs( 27) = 0.2354359487378041D+02
        xs( 28) = 0.2455885222402972D+02
        xs( 29) = 0.2559121763269706D+02
        xs( 30) = 0.2663537301917732D+02
        xs( 31) = 0.2765024499330063D+02
        xs( 32) = 0.2864619701662181D+02
        xs( 33) = 0.2996489775042602D+02
        xs( 34) = 0.3103059476028382D+02
        ws(  1) = 0.7665035574122793D+00
        ws(  2) = 0.7791759705285536D+00
        ws(  3) = 0.7842418950808666D+00
        ws(  4) = 0.7894586626868280D+00
        ws(  5) = 0.7955706957766121D+00
        ws(  6) = 0.8026343811034535D+00
        ws(  7) = 0.8105598933899852D+00
        ws(  8) = 0.8192159751512330D+00
        ws(  9) = 0.8284626479378498D+00
        ws( 10) = 0.8381652894089956D+00
        ws( 11) = 0.8482016985153472D+00
        ws( 12) = 0.8584656211201221D+00
        ws( 13) = 0.8688680108054130D+00
        ws( 14) = 0.8793369056188060D+00
        ws( 15) = 0.8898163762113548D+00
        ws( 16) = 0.9002649798761762D+00
        ws( 17) = 0.9106562154467456D+00
        ws( 18) = 0.9209743730573966D+00
        ws( 19) = 0.9312031817666578D+00
        ws( 20) = 0.9413566696873179D+00
        ws( 21) = 0.9514914759898895D+00
        ws( 22) = 0.9614148798685715D+00
        ws( 23) = 0.9714791938050660D+00
        ws( 24) = 0.9818085909801848D+00
        ws( 25) = 0.9912244055985969D+00
        ws( 26) = 0.1001188569015223D+01
        ws( 27) = 0.1014093011112177D+01
        ws( 28) = 0.1020592988607115D+01
        ws( 29) = 0.1028251733417093D+01
        ws( 30) = 0.1060899145628110D+01
        ws( 31) = 0.1058447900516320D+01
        ws( 32) = 0.8345772888231893D+00
        ws( 33) = 0.1203064612773497D+01
        ws( 34) = 0.2732687254719201D+01
        endif
        if( idomain .eq.  235 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.9424777960769379D+01
        rk1r = 0.4000000000000000D+00
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  33
        err = 0.8383652226350855D-13
        xs(  1) = 0.6014688241754838D+00
        xs(  2) = 0.1381737918164665D+01
        xs(  3) = 0.2169240725334257D+01
        xs(  4) = 0.2961830755265066D+01
        xs(  5) = 0.3760165156005265D+01
        xs(  6) = 0.4565203525840901D+01
        xs(  7) = 0.5377868680093224D+01
        xs(  8) = 0.6198963646242929D+01
        xs(  9) = 0.7029149400806512D+01
        xs( 10) = 0.7868944721867917D+01
        xs( 11) = 0.8718736427017589D+01
        xs( 12) = 0.9578794846172229D+01
        xs( 13) = 0.1044929158556728D+02
        xs( 14) = 0.1133031764273932D+02
        xs( 15) = 0.1222190085542476D+02
        xs( 16) = 0.1312402238309594D+02
        xs( 17) = 0.1403663075894219D+02
        xs( 18) = 0.1495965470416843D+02
        xs( 19) = 0.1589301475296063D+02
        xs( 20) = 0.1683662778020740D+02
        xs( 21) = 0.1779043437167868D+02
        xs( 22) = 0.1875440173005044D+02
        xs( 23) = 0.1972839108584505D+02
        xs( 24) = 0.2071248447147619D+02
        xs( 25) = 0.2170727936606882D+02
        xs( 26) = 0.2271215408429681D+02
        xs( 27) = 0.2372498248829464D+02
        xs( 28) = 0.2474946724410538D+02
        xs( 29) = 0.2579838235979006D+02
        xs( 30) = 0.2683085423233642D+02
        xs( 31) = 0.2783712085310574D+02
        xs( 32) = 0.2906632983989114D+02
        xs( 33) = 0.3006866013873414D+02
        ws(  1) = 0.7720749920044780D+00
        ws(  2) = 0.7848613351355364D+00
        ws(  3) = 0.7900018781414592D+00
        ws(  4) = 0.7953076644068136D+00
        ws(  5) = 0.8015250128865342D+00
        ws(  6) = 0.8087066397825546D+00
        ws(  7) = 0.8167578125415801D+00
        ws(  8) = 0.8255422653115825D+00
        ws(  9) = 0.8349155178852685D+00
        ws( 10) = 0.8447393232493146D+00
        ws( 11) = 0.8548888757894063D+00
        ws( 12) = 0.8652562611947721D+00
        ws( 13) = 0.8757519646895422D+00
        ws( 14) = 0.8863045346745952D+00
        ws( 15) = 0.8968589128565408D+00
        ws( 16) = 0.9073754688158937D+00
        ws( 17) = 0.9178279592368340D+00
        ws( 18) = 0.9282047414076233D+00
        ws( 19) = 0.9385076761541397D+00
        ws( 20) = 0.9487129218155544D+00
        ws( 21) = 0.9588503671146469D+00
        ws( 22) = 0.9691314621164667D+00
        ws( 23) = 0.9790768360797389D+00
        ws( 24) = 0.9885845239408292D+00
        ws( 25) = 0.9999544644744246D+00
        ws( 26) = 0.1011415777482914D+01
        ws( 27) = 0.1019478747130416D+01
        ws( 28) = 0.1027688728453915D+01
        ws( 29) = 0.1062492496658818D+01
        ws( 30) = 0.1055549502310965D+01
        ws( 31) = 0.7440375652842695D+00
        ws( 32) = 0.1323395386486077D+01
        ws( 33) = 0.2608289552931785D+01
        endif
        if( idomain .eq.  236 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.9424777960769379D+01
        rk1r = 0.1000000000000000D+01
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  34
        err = 0.3466350891094912D-13
        xs(  1) = 0.5946311502414047D+00
        xs(  2) = 0.1366040852765849D+01
        xs(  3) = 0.2144629399336509D+01
        xs(  4) = 0.2928293581920541D+01
        xs(  5) = 0.3717705337330300D+01
        xs(  6) = 0.4513838851439936D+01
        xs(  7) = 0.5317634293841675D+01
        xs(  8) = 0.6129914375997018D+01
        xs(  9) = 0.6951360771921902D+01
        xs( 10) = 0.7782512522128881D+01
        xs( 11) = 0.8623774983867079D+01
        xs( 12) = 0.9475434298157909D+01
        xs( 13) = 0.1033767445108938D+02
        xs( 14) = 0.1121059515289138D+02
        xs( 15) = 0.1209422924957142D+02
        xs( 16) = 0.1298855875411507D+02
        xs( 17) = 0.1389352972056940D+02
        xs( 18) = 0.1480906484223983D+02
        xs( 19) = 0.1573507534573654D+02
        xs( 20) = 0.1667147166637345D+02
        xs( 21) = 0.1761816320507524D+02
        xs( 22) = 0.1857511052351214D+02
        xs( 23) = 0.1954218210706048D+02
        xs( 24) = 0.2051952564773654D+02
        xs( 25) = 0.2150704152431374D+02
        xs( 26) = 0.2250472936046286D+02
        xs( 27) = 0.2351266607046250D+02
        xs( 28) = 0.2453177454716198D+02
        xs( 29) = 0.2556057139067735D+02
        xs( 30) = 0.2660471404552799D+02
        xs( 31) = 0.2765212039004402D+02
        xs( 32) = 0.2864608944655456D+02
        xs( 33) = 0.2990424997878899D+02
        xs( 34) = 0.3099474220725528D+02
        ws(  1) = 0.7633006379064377D+00
        ws(  2) = 0.7759605334568852D+00
        ws(  3) = 0.7810789120234778D+00
        ws(  4) = 0.7863811764958150D+00
        ws(  5) = 0.7926086111544169D+00
        ws(  6) = 0.7998162352874647D+00
        ws(  7) = 0.8079120974947823D+00
        ws(  8) = 0.8167616805600467D+00
        ws(  9) = 0.8262207913395903D+00
        ws( 10) = 0.8361500309000990D+00
        ws( 11) = 0.8464222870089957D+00
        ws( 12) = 0.8569266796158164D+00
        ws( 13) = 0.8675699826699015D+00
        ws( 14) = 0.8782766793047491D+00
        ws( 15) = 0.8889882026146039D+00
        ws( 16) = 0.8996615190580882D+00
        ws( 17) = 0.9102673234152807D+00
        ws( 18) = 0.9207886207634906D+00
        ws( 19) = 0.9312150060159702D+00
        ws( 20) = 0.9415678509704178D+00
        ws( 21) = 0.9518001988668090D+00
        ws( 22) = 0.9620830790510514D+00
        ws( 23) = 0.9721061831033319D+00
        ws( 24) = 0.9824711132640428D+00
        ws( 25) = 0.9925236567214107D+00
        ws( 26) = 0.1002750348721042D+01
        ws( 27) = 0.1013775553233426D+01
        ws( 28) = 0.1027056192102817D+01
        ws( 29) = 0.1033644959871045D+01
        ws( 30) = 0.1024878958115899D+01
        ws( 31) = 0.1095457740378215D+01
        ws( 32) = 0.9256959952172835D+00
        ws( 33) = 0.1080497057976861D+01
        ws( 34) = 0.2666697325821679D+01
        endif
        if( idomain .eq.  237 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.9424777960769379D+01
        rk1r = 0.1570796326794897D+01
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  35
        err = 0.6764720114554079D-13
        xs(  1) = 0.5939079839562131D+00
        xs(  2) = 0.1364361878249078D+01
        xs(  3) = 0.2141949089280635D+01
        xs(  4) = 0.2924561939950152D+01
        xs(  5) = 0.3712879756668776D+01
        xs(  6) = 0.4507899355190886D+01
        xs(  7) = 0.5310596781806908D+01
        xs(  8) = 0.6121839745639883D+01
        xs(  9) = 0.6942359177760048D+01
        xs( 10) = 0.7772743075896391D+01
        xs( 11) = 0.8613441859049461D+01
        xs( 12) = 0.9464780478807274D+01
        xs( 13) = 0.1032697435261737D+02
        xs( 14) = 0.1120014702783913D+02
        xs( 15) = 0.1208434809200652D+02
        xs( 16) = 0.1297957030884727D+02
        xs( 17) = 0.1388576543159952D+02
        xs( 18) = 0.1480285842049545D+02
        xs( 19) = 0.1573076004643224D+02
        xs( 20) = 0.1666937786541203D+02
        xs( 21) = 0.1761862511383304D+02
        xs( 22) = 0.1857844446269603D+02
        xs( 23) = 0.1954874726958037D+02
        xs( 24) = 0.2052958847037508D+02
        xs( 25) = 0.2152104327326901D+02
        xs( 26) = 0.2252297738887023D+02
        xs( 27) = 0.2353554486787061D+02
        xs( 28) = 0.2455947122473586D+02
        xs( 29) = 0.2559541492937755D+02
        xs( 30) = 0.2664196948586266D+02
        xs( 31) = 0.2769828397989258D+02
        xs( 32) = 0.2876849738577501D+02
        xs( 33) = 0.2987264761212589D+02
        xs( 34) = 0.3103605229119187D+02
        xs( 35) = 0.3211695672388352D+02
        ws(  1) = 0.7623675347633888D+00
        ws(  2) = 0.7749831092491803D+00
        ws(  3) = 0.7800526022226848D+00
        ws(  4) = 0.7853060244691630D+00
        ws(  5) = 0.7914996958825369D+00
        ws(  6) = 0.7987033703050409D+00
        ws(  7) = 0.8068365128595407D+00
        ws(  8) = 0.8157713184717177D+00
        ws(  9) = 0.8253654468573588D+00
        ws( 10) = 0.8354772107265678D+00
        ws( 11) = 0.8459742421397805D+00
        ws( 12) = 0.8567386016181286D+00
        ws( 13) = 0.8676694367886976D+00
        ws( 14) = 0.8786838971696709D+00
        ws( 15) = 0.8897167704794480D+00
        ws( 16) = 0.9007193685918534D+00
        ws( 17) = 0.9116581404527321D+00
        ws( 18) = 0.9225127465929102D+00
        ws( 19) = 0.9332745434069131D+00
        ws( 20) = 0.9439488509293402D+00
        ws( 21) = 0.9545298173643231D+00
        ws( 22) = 0.9651010899008603D+00
        ws( 23) = 0.9755483288102708D+00
        ws( 24) = 0.9860705148951004D+00
        ws( 25) = 0.9966512240780728D+00
        ws( 26) = 0.1007305985891514D+01
        ws( 27) = 0.1018752204198460D+01
        ws( 28) = 0.1030645375208326D+01
        ws( 29) = 0.1040798524145110D+01
        ws( 30) = 0.1046201102031751D+01
        ws( 31) = 0.1047808231371937D+01
        ws( 32) = 0.1075549361814094D+01
        ws( 33) = 0.1149062670247535D+01
        ws( 34) = 0.1465277587957958D+01
        ws( 35) = 0.1457394583468526D+01
        endif
        if( idomain .eq.  238 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.9424777960769379D+01
        rk1r = 0.3141592653589793D+01
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  35
        err = 0.8914042921584556D-13
        xs(  1) = 0.5837866264436854D+00
        xs(  2) = 0.1340985947999332D+01
        xs(  3) = 0.2104918514052344D+01
        xs(  4) = 0.2873403736189814D+01
        xs(  5) = 0.3647058313917044D+01
        xs(  6) = 0.4426874743045960D+01
        xs(  7) = 0.5213885415842442D+01
        xs(  8) = 0.6009065608641003D+01
        xs(  9) = 0.6813290039333281D+01
        xs( 10) = 0.7627310012059105D+01
        xs( 11) = 0.8451743279302677D+01
        xs( 12) = 0.9287073715862658D+01
        xs( 13) = 0.1013365865878018D+02
        xs( 14) = 0.1099174175607580D+02
        xs( 15) = 0.1186146923543233D+02
        xs( 16) = 0.1274290778135887D+02
        xs( 17) = 0.1363606262331834D+02
        xs( 18) = 0.1454089485583622D+02
        xs( 19) = 0.1545733765798324D+02
        xs( 20) = 0.1638531140591088D+02
        xs( 21) = 0.1732473346952612D+02
        xs( 22) = 0.1827554827139964D+02
        xs( 23) = 0.1923767678577238D+02
        xs( 24) = 0.2021118968332663D+02
        xs( 25) = 0.2119604009766370D+02
        xs( 26) = 0.2219229699927834D+02
        xs( 27) = 0.2320047834457328D+02
        xs( 28) = 0.2422081585996059D+02
        xs( 29) = 0.2525272299841679D+02
        xs( 30) = 0.2629608853027639D+02
        xs( 31) = 0.2735474926858502D+02
        xs( 32) = 0.2843658575100742D+02
        xs( 33) = 0.2954932480068496D+02
        xs( 34) = 0.3068246281927787D+02
        xs( 35) = 0.3188588275231514D+02
        ws(  1) = 0.7493420373654991D+00
        ws(  2) = 0.7615344326742483D+00
        ws(  3) = 0.7661759574139517D+00
        ws(  4) = 0.7709165394208861D+00
        ws(  5) = 0.7765619768280155D+00
        ws(  6) = 0.7832443109360713D+00
        ws(  7) = 0.7909402519888765D+00
        ws(  8) = 0.7995662870686686D+00
        ws(  9) = 0.8090079548383082D+00
        ws( 10) = 0.8191349498963537D+00
        ws( 11) = 0.8298121029032174D+00
        ws( 12) = 0.8409081071989916D+00
        ws( 13) = 0.8523021100385296D+00
        ws( 14) = 0.8638881540892632D+00
        ws( 15) = 0.8755776207897410D+00
        ws( 16) = 0.8873000548969724D+00
        ws( 17) = 0.8990028719866007D+00
        ws( 18) = 0.9106502401794813D+00
        ws( 19) = 0.9222214886445497D+00
        ws( 20) = 0.9337126286698627D+00
        ws( 21) = 0.9451227197838244D+00
        ws( 22) = 0.9564831136628401D+00
        ws( 23) = 0.9678279930733925D+00
        ws( 24) = 0.9791614292649462D+00
        ws( 25) = 0.9904609698725920D+00
        ws( 26) = 0.1002127527236759D+01
        ws( 27) = 0.1014474934355926D+01
        ws( 28) = 0.1026535685424477D+01
        ws( 29) = 0.1037296361103236D+01
        ws( 30) = 0.1048730220216782D+01
        ws( 31) = 0.1067539507128475D+01
        ws( 32) = 0.1101178233046445D+01
        ws( 33) = 0.1154561849414756D+01
        ws( 34) = 0.1186724898759361D+01
        ws( 35) = 0.1219598885856488D+01
        endif
        if( idomain .eq.  239 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.9424777960769379D+01
        rk1r = 0.6283185307179586D+01
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  37
        err = 0.8048477122812227D-13
        xs(  1) = 0.5702034116918828D+00
        xs(  2) = 0.1309273947258935D+01
        xs(  3) = 0.2053732682359408D+01
        xs(  4) = 0.2800857615993208D+01
        xs(  5) = 0.3550770966676669D+01
        xs(  6) = 0.4304104405469062D+01
        xs(  7) = 0.5061691048519935D+01
        xs(  8) = 0.5824477400181024D+01
        xs(  9) = 0.6593472867557835D+01
        xs( 10) = 0.7369705510414218D+01
        xs( 11) = 0.8154179501850818D+01
        xs( 12) = 0.8947836229353499D+01
        xs( 13) = 0.9751522219199677D+01
        xs( 14) = 0.1056596640452901D+02
        xs( 15) = 0.1139176785562957D+02
        xs( 16) = 0.1222939357427612D+02
        xs( 17) = 0.1307918479791689D+02
        xs( 18) = 0.1394136961507178D+02
        xs( 19) = 0.1481607958220013D+02
        xs( 20) = 0.1570336832013811D+02
        xs( 21) = 0.1660323056693889D+02
        xs( 22) = 0.1751562046199239D+02
        xs( 23) = 0.1844046966107728D+02
        xs( 24) = 0.1937770116911106D+02
        xs( 25) = 0.2032725062270467D+02
        xs( 26) = 0.2128907144250668D+02
        xs( 27) = 0.2226315375135725D+02
        xs( 28) = 0.2324956555378910D+02
        xs( 29) = 0.2424843797738628D+02
        xs( 30) = 0.2525993243952929D+02
        xs( 31) = 0.2628436276167329D+02
        xs( 32) = 0.2732252127609258D+02
        xs( 33) = 0.2837551548589476D+02
        xs( 34) = 0.2944679854402441D+02
        xs( 35) = 0.3053390795008229D+02
        xs( 36) = 0.3165145982072366D+02
        xs( 37) = 0.3279421310566449D+02
        ws(  1) = 0.7317719790352184D+00
        ws(  2) = 0.7428168525085256D+00
        ws(  3) = 0.7458501681128229D+00
        ws(  4) = 0.7484383729972961D+00
        ws(  5) = 0.7514971178717991D+00
        ws(  6) = 0.7553098296350920D+00
        ws(  7) = 0.7600219990877404D+00
        ws(  8) = 0.7657196706550593D+00
        ws(  9) = 0.7724433225440724D+00
        ws( 10) = 0.7801899819110903D+00
        ws( 11) = 0.7889154397794987D+00
        ws( 12) = 0.7985394845093888D+00
        ws( 13) = 0.8089541871173695D+00
        ws( 14) = 0.8200340613961670D+00
        ws( 15) = 0.8316465633433533D+00
        ws( 16) = 0.8436615311606570D+00
        ws( 17) = 0.8559586497950850D+00
        ws( 18) = 0.8684325955178432D+00
        ws( 19) = 0.8809959589715243D+00
        ws( 20) = 0.8935803183225245D+00
        ws( 21) = 0.9061362552663980D+00
        ws( 22) = 0.9186318521217731D+00
        ws( 23) = 0.9310533035039142D+00
        ws( 24) = 0.9433993618205521D+00
        ws( 25) = 0.9556910452224437D+00
        ws( 26) = 0.9679473543917227D+00
        ws( 27) = 0.9802289989394928D+00
        ws( 28) = 0.9926167269745925D+00
        ws( 29) = 0.1005153346702053D+01
        ws( 30) = 0.1017876941693840D+01
        ws( 31) = 0.1031252611631306D+01
        ws( 32) = 0.1045504240656955D+01
        ws( 33) = 0.1062563722120877D+01
        ws( 34) = 0.1081312705064206D+01
        ws( 35) = 0.1098832509077316D+01
        ws( 36) = 0.1136040564117776D+01
        ws( 37) = 0.1358509506092741D+01
        endif
        if( idomain .eq.  240 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.9424777960769379D+01
        rk1r = 0.9424777960769379D+01
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  38
        err = 0.5879595422993835D-13
        xs(  1) = 0.5807033143053268D+00
        xs(  2) = 0.1332797146314664D+01
        xs(  3) = 0.2088987792742464D+01
        xs(  4) = 0.2845735230103165D+01
        xs(  5) = 0.3602436232145065D+01
        xs(  6) = 0.4359066283439967D+01
        xs(  7) = 0.5115889391271027D+01
        xs(  8) = 0.5873394442728131D+01
        xs(  9) = 0.6632269925868492D+01
        xs( 10) = 0.7393381486589266D+01
        xs( 11) = 0.8157743502749042D+01
        xs( 12) = 0.8926482816391184D+01
        xs( 13) = 0.9700795519304460D+01
        xs( 14) = 0.1048189935967137D+02
        xs( 15) = 0.1127098546647405D+02
        xs( 16) = 0.1206917365876996D+02
        xs( 17) = 0.1287747534296057D+02
        xs( 18) = 0.1369676705771635D+02
        xs( 19) = 0.1452777614605384D+02
        xs( 20) = 0.1537107838540490D+02
        xs( 21) = 0.1622710591167432D+02
        xs( 22) = 0.1709616290628920D+02
        xs( 23) = 0.1797844675516370D+02
        xs( 24) = 0.1887407077807835D+02
        xs( 25) = 0.1978308963104908D+02
        xs( 26) = 0.2070552396283455D+02
        xs( 27) = 0.2164138844320461D+02
        xs( 28) = 0.2259069937755855D+02
        xs( 29) = 0.2355351655051792D+02
        xs( 30) = 0.2453000995252549D+02
        xs( 31) = 0.2552037806729548D+02
        xs( 32) = 0.2652500470713977D+02
        xs( 33) = 0.2754413161123950D+02
        xs( 34) = 0.2857962950838027D+02
        xs( 35) = 0.2963352925132931D+02
        xs( 36) = 0.3070830132486273D+02
        xs( 37) = 0.3182412042171129D+02
        xs( 38) = 0.3298098807907743D+02
        ws(  1) = 0.7450932378962922D+00
        ws(  2) = 0.7553443313709938D+00
        ws(  3) = 0.7566536670897208D+00
        ws(  4) = 0.7567589813705528D+00
        ws(  5) = 0.7566421182617905D+00
        ws(  6) = 0.7566627854101285D+00
        ws(  7) = 0.7570652734335905D+00
        ws(  8) = 0.7580599353115154D+00
        ws(  9) = 0.7598357758563967D+00
        ws( 10) = 0.7625570154750068D+00
        ws( 11) = 0.7663555504674241D+00
        ws( 12) = 0.7713232279997015D+00
        ws( 13) = 0.7775059509064099D+00
        ws( 14) = 0.7849010032235989D+00
        ws( 15) = 0.7934584751835854D+00
        ws( 16) = 0.8030869250859518D+00
        ws( 17) = 0.8136627722072434D+00
        ws( 18) = 0.8250419128373119D+00
        ws( 19) = 0.8370720776865379D+00
        ws( 20) = 0.8496041401787037D+00
        ws( 21) = 0.8625012769286737D+00
        ws( 22) = 0.8756453154371947D+00
        ws( 23) = 0.8889403425109000D+00
        ws( 24) = 0.9023177197648814D+00
        ws( 25) = 0.9157236202934860D+00
        ws( 26) = 0.9291420351303339D+00
        ws( 27) = 0.9425797635728960D+00
        ws( 28) = 0.9560569215538237D+00
        ws( 29) = 0.9696576391277626D+00
        ws( 30) = 0.9834494633978605D+00
        ws( 31) = 0.9975406279166819D+00
        ws( 32) = 0.1010809034990938D+01
        ws( 33) = 0.1027153440856999D+01
        ws( 34) = 0.1043919719879230D+01
        ws( 35) = 0.1057784089281908D+01
        ws( 36) = 0.1089310825428188D+01
        ws( 37) = 0.1182553804330371D+01
        ws( 38) = 0.1713161460917776D+01
        endif
        if( idomain .eq.  241 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.9424777960769379D+01
        rk1r = 0.1256637061435917D+02
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  40
        err = 0.6005542984516181D-13
        xs(  1) = 0.5915533162403406D+00
        xs(  2) = 0.1357455300976024D+01
        xs(  3) = 0.2126939375858442D+01
        xs(  4) = 0.2896038814585000D+01
        xs(  5) = 0.3663752006242198D+01
        xs(  6) = 0.4429636152516634D+01
        xs(  7) = 0.5193512479095595D+01
        xs(  8) = 0.5955407926564907D+01
        xs(  9) = 0.6715542036658305D+01
        xs( 10) = 0.7474322772752706D+01
        xs( 11) = 0.8232341618577452D+01
        xs( 12) = 0.8990364615751023D+01
        xs( 13) = 0.9749317866513657D+01
        xs( 14) = 0.1051026676984332D+02
        xs( 15) = 0.1127438873768704D+02
        xs( 16) = 0.1204293972899150D+02
        xs( 17) = 0.1281721569952639D+02
        xs( 18) = 0.1359851102373507D+02
        xs( 19) = 0.1438807686220669D+02
        xs( 20) = 0.1518708296342286D+02
        xs( 21) = 0.1599658642849772D+02
        xs( 22) = 0.1681751001406566D+02
        xs( 23) = 0.1765063149659241D+02
        xs( 24) = 0.1849658375895432D+02
        xs( 25) = 0.1935586421890120D+02
        xs( 26) = 0.2022885238718256D+02
        xs( 27) = 0.2111583015658080D+02
        xs( 28) = 0.2201700663412251D+02
        xs( 29) = 0.2293255120117926D+02
        xs( 30) = 0.2386259752515620D+02
        xs( 31) = 0.2480733053780528D+02
        xs( 32) = 0.2576694019168696D+02
        xs( 33) = 0.2674167097391887D+02
        xs( 34) = 0.2773207843280963D+02
        xs( 35) = 0.2873816688140629D+02
        xs( 36) = 0.2976206664383382D+02
        xs( 37) = 0.3080587401764537D+02
        xs( 38) = 0.3186457158081103D+02
        xs( 39) = 0.3300694400458797D+02
        xs( 40) = 0.3411153357739215D+02
        ws(  1) = 0.7589510771064947D+00
        ws(  2) = 0.7689758196138364D+00
        ws(  3) = 0.7695419237022993D+00
        ws(  4) = 0.7685087430300485D+00
        ws(  5) = 0.7668470695575782D+00
        ws(  6) = 0.7648921345689910D+00
        ws(  7) = 0.7628651668367725D+00
        ws(  8) = 0.7609623699613847D+00
        ws(  9) = 0.7593739189543142D+00
        ws( 10) = 0.7582862800911933D+00
        ws( 11) = 0.7578793253101207D+00
        ws( 12) = 0.7583213648825334D+00
        ws( 13) = 0.7597631588681977D+00
        ws( 14) = 0.7623314425265264D+00
        ws( 15) = 0.7661224668551085D+00
        ws( 16) = 0.7711962093803826D+00
        ws( 17) = 0.7775721634619990D+00
        ws( 18) = 0.7852276595118266D+00
        ws( 19) = 0.7940994989372545D+00
        ws( 20) = 0.8040892508927938D+00
        ws( 21) = 0.8150716391981678D+00
        ws( 22) = 0.8269051713070921D+00
        ws( 23) = 0.8394431015575093D+00
        ws( 24) = 0.8525440715851221D+00
        ws( 25) = 0.8660799636342625D+00
        ws( 26) = 0.8799427181252440D+00
        ws( 27) = 0.8940466930863633D+00
        ws( 28) = 0.9083327885550913D+00
        ws( 29) = 0.9227774279387392D+00
        ws( 30) = 0.9373552272787805D+00
        ws( 31) = 0.9521326256476846D+00
        ws( 32) = 0.9671446711388466D+00
        ws( 33) = 0.9824382475379951D+00
        ws( 34) = 0.9984525957440048D+00
        ws( 35) = 0.1013661120546190D+01
        ws( 36) = 0.1031801150106682D+01
        ws( 37) = 0.1059750183824200D+01
        ws( 38) = 0.1057732381444033D+01
        ws( 39) = 0.1125555728044295D+01
        ws( 40) = 0.1882292646671398D+01
        endif
        if( idomain .eq.  242 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.9424777960769379D+01
        rk1r = 0.1570796326794897D+02
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  42
        err = 0.3730452107716059D-13
        xs(  1) = 0.6073991830374365D+00
        xs(  2) = 0.1393740072707818D+01
        xs(  3) = 0.2183563465702825D+01
        xs(  4) = 0.2972653760512360D+01
        xs(  5) = 0.3759801710205189D+01
        xs(  6) = 0.4544324401045258D+01
        xs(  7) = 0.5325756860842991D+01
        xs(  8) = 0.6103790291673066D+01
        xs(  9) = 0.6878260684191982D+01
        xs( 10) = 0.7649150732251601D+01
        xs( 11) = 0.8416595263197109D+01
        xs( 12) = 0.9180886810097613D+01
        xs( 13) = 0.9942479708580574D+01
        xs( 14) = 0.1070199158975085D+02
        xs( 15) = 0.1146020125801734D+02
        xs( 16) = 0.1221804197296367D+02
        xs( 17) = 0.1297658921752018D+02
        xs( 18) = 0.1373704221243234D+02
        xs( 19) = 0.1450069877459378D+02
        xs( 20) = 0.1526892369755254D+02
        xs( 21) = 0.1604311169656829D+02
        xs( 22) = 0.1682464685329401D+02
        xs( 23) = 0.1761486152901840D+02
        xs( 24) = 0.1841499820886288D+02
        xs( 25) = 0.1922617784192051D+02
        xs( 26) = 0.2004937732944306D+02
        xs( 27) = 0.2088541848183839D+02
        xs( 28) = 0.2173496739989303D+02
        xs( 29) = 0.2259854496652635D+02
        xs( 30) = 0.2347654302294383D+02
        xs( 31) = 0.2436925037024394D+02
        xs( 32) = 0.2527687280513761D+02
        xs( 33) = 0.2619957871995637D+02
        xs( 34) = 0.2713748734157605D+02
        xs( 35) = 0.2809073912598013D+02
        xs( 36) = 0.2905949432002639D+02
        xs( 37) = 0.3004408504641134D+02
        xs( 38) = 0.3104709746263991D+02
        xs( 39) = 0.3206148591750971D+02
        xs( 40) = 0.3309958386463553D+02
        xs( 41) = 0.3418409005266396D+02
        xs( 42) = 0.3523046711628134D+02
        ws(  1) = 0.7792611589244030D+00
        ws(  2) = 0.7894204545803528D+00
        ws(  3) = 0.7897402992169426D+00
        ws(  4) = 0.7882581305604488D+00
        ws(  5) = 0.7859273611431554D+00
        ws(  6) = 0.7830412830706455D+00
        ws(  7) = 0.7797722982734404D+00
        ws(  8) = 0.7762671785458454D+00
        ws(  9) = 0.7726706248866471D+00
        ws( 10) = 0.7691318461290215D+00
        ws( 11) = 0.7658059003744822D+00
        ws( 12) = 0.7628528887349414D+00
        ws( 13) = 0.7604358797590220D+00
        ws( 14) = 0.7587177933499099D+00
        ws( 15) = 0.7578572882951099D+00
        ws( 16) = 0.7580036953980452D+00
        ws( 17) = 0.7592910839315260D+00
        ws( 18) = 0.7618317382720319D+00
        ws( 19) = 0.7657094717249935D+00
        ws( 20) = 0.7709735118247120D+00
        ws( 21) = 0.7776338576354038D+00
        ws( 22) = 0.7856591610404947D+00
        ws( 23) = 0.7949778111745173D+00
        ws( 24) = 0.8054827535258545D+00
        ws( 25) = 0.8170394943359675D+00
        ws( 26) = 0.8294964288493218D+00
        ws( 27) = 0.8426966975193876D+00
        ws( 28) = 0.8564881686124404D+00
        ws( 29) = 0.8707305584416014D+00
        ws( 30) = 0.8853125092919060D+00
        ws( 31) = 0.9001349048655031D+00
        ws( 32) = 0.9151303471562492D+00
        ws( 33) = 0.9302729541838333D+00
        ws( 34) = 0.9456420825396332D+00
        ws( 35) = 0.9610251065594491D+00
        ws( 36) = 0.9765180922279580D+00
        ws( 37) = 0.9926661718699297D+00
        ws( 38) = 0.1010419675702746D+01
        ws( 39) = 0.1018324950653122D+01
        ws( 40) = 0.1062269185689764D+01
        ws( 41) = 0.1058456159793841D+01
        ws( 42) = 0.1462278417510569D+01
        endif
        if( idomain .eq.  243 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.9424777960769379D+01
        rk1r = 0.1884955592153876D+02
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  43
        err = 0.4834289460718270D-13
        xs(  1) = 0.6217870423394051D+00
        xs(  2) = 0.1426768237926099D+01
        xs(  3) = 0.2235340427863791D+01
        xs(  4) = 0.3043184034793339D+01
        xs(  5) = 0.3849032905635713D+01
        xs(  6) = 0.4652128701535213D+01
        xs(  7) = 0.5451899727127603D+01
        xs(  8) = 0.6247893615744086D+01
        xs(  9) = 0.7039762933082913D+01
        xs( 10) = 0.7827265701898042D+01
        xs( 11) = 0.8610270858016946D+01
        xs( 12) = 0.9388765302361891D+01
        xs( 13) = 0.1016286113487958D+02
        xs( 14) = 0.1093280227554418D+02
        xs( 15) = 0.1169896992182919D+02
        xs( 16) = 0.1246188640173278D+02
        xs( 17) = 0.1322221704825490D+02
        xs( 18) = 0.1398076970626915D+02
        xs( 19) = 0.1473849139356720D+02
        xs( 20) = 0.1549646145803343D+02
        xs( 21) = 0.1625588039373380D+02
        xs( 22) = 0.1701805337880441D+02
        xs( 23) = 0.1778436778358410D+02
        xs( 24) = 0.1855626441622967D+02
        xs( 25) = 0.1933520322438031D+02
        xs( 26) = 0.2012262514509825D+02
        xs( 27) = 0.2091991342918923D+02
        xs( 28) = 0.2172835763864512D+02
        xs( 29) = 0.2254912601957650D+02
        xs( 30) = 0.2338324692868797D+02
        xs( 31) = 0.2423160383882835D+02
        xs( 32) = 0.2509494472450943D+02
        xs( 33) = 0.2597390649963393D+02
        xs( 34) = 0.2686904504007737D+02
        xs( 35) = 0.2778084065230101D+02
        xs( 36) = 0.2870989129398767D+02
        xs( 37) = 0.2965661065969306D+02
        xs( 38) = 0.3062236311586204D+02
        xs( 39) = 0.3160719696893093D+02
        xs( 40) = 0.3261215568959857D+02
        xs( 41) = 0.3365327374480648D+02
        xs( 42) = 0.3471791185039495D+02
        xs( 43) = 0.3593768058301567D+02
        ws(  1) = 0.7977238518306601D+00
        ws(  2) = 0.8081457666581470D+00
        ws(  3) = 0.8085005164892340D+00
        ws(  4) = 0.8069956267794643D+00
        ws(  5) = 0.8045793084464166D+00
        ws(  6) = 0.8015178446240550D+00
        ws(  7) = 0.7979489888522375D+00
        ws(  8) = 0.7939808554545280D+00
        ws(  9) = 0.7897173519685627D+00
        ws( 10) = 0.7852662211721840D+00
        ws( 11) = 0.7807417854743662D+00
        ws( 12) = 0.7762656750761296D+00
        ws( 13) = 0.7719665513397231D+00
        ws( 14) = 0.7679791979734178D+00
        ws( 15) = 0.7644431168011581D+00
        ws( 16) = 0.7615007386894391D+00
        ws( 17) = 0.7592952496593559D+00
        ws( 18) = 0.7579680146163125D+00
        ws( 19) = 0.7576554349596579D+00
        ws( 20) = 0.7584850516384972D+00
        ws( 21) = 0.7605707215260105D+00
        ws( 22) = 0.7640069500950250D+00
        ws( 23) = 0.7688625764411782D+00
        ws( 24) = 0.7751746666041227D+00
        ws( 25) = 0.7829437553748952D+00
        ws( 26) = 0.7921312012440708D+00
        ws( 27) = 0.8026608124591394D+00
        ws( 28) = 0.8144228205748346D+00
        ws( 29) = 0.8272851283068907D+00
        ws( 30) = 0.8411032515205552D+00
        ws( 31) = 0.8557346322617191D+00
        ws( 32) = 0.8710568599087219D+00
        ws( 33) = 0.8869605328634714D+00
        ws( 34) = 0.9033923375900796D+00
        ws( 35) = 0.9202834636101769D+00
        ws( 36) = 0.9378599212869091D+00
        ws( 37) = 0.9558173271046264D+00
        ws( 38) = 0.9750104978771769D+00
        ws( 39) = 0.9969207176223659D+00
        ws( 40) = 0.1012500226306209D+01
        ws( 41) = 0.1060459025260419D+01
        ws( 42) = 0.1113210638055396D+01
        ws( 43) = 0.1705490127184159D+01
        endif
        if( idomain .eq.  244 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.9424777960769379D+01
        rk1r = 0.2199114857512855D+02
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  45
        err = 0.3432105622717720D-13
        xs(  1) = 0.6351929304074133D+00
        xs(  2) = 0.1457568432191647D+01
        xs(  3) = 0.2283701602733701D+01
        xs(  4) = 0.3109221674520380D+01
        xs(  5) = 0.3932864950446422D+01
        xs(  6) = 0.4753869859918106D+01
        xs(  7) = 0.5571644387195039D+01
        xs(  8) = 0.6385692836485251D+01
        xs(  9) = 0.7195596720423210D+01
        xs( 10) = 0.8001011048953499D+01
        xs( 11) = 0.8801665962850096D+01
        xs( 12) = 0.9597370514452553D+01
        xs( 13) = 0.1038801741378574D+02
        xs( 14) = 0.1117358822340835D+02
        xs( 15) = 0.1195415873862821D+02
        xs( 16) = 0.1272990439483011D+02
        xs( 17) = 0.1350110561630936D+02
        xs( 18) = 0.1426815305250033D+02
        xs( 19) = 0.1503155266325937D+02
        xs( 20) = 0.1579193052456718D+02
        xs( 21) = 0.1655003704864109D+02
        xs( 22) = 0.1730675003472730D+02
        xs( 23) = 0.1806307556847190D+02
        xs( 24) = 0.1882014548438061D+02
        xs( 25) = 0.1957920986551222D+02
        xs( 26) = 0.2034162310576614D+02
        xs( 27) = 0.2110882250057570D+02
        xs( 28) = 0.2188229914274650D+02
        xs( 29) = 0.2266356203298869D+02
        xs( 30) = 0.2345409782290614D+02
        xs( 31) = 0.2425533009218132D+02
        xs( 32) = 0.2506858243588771D+02
        xs( 33) = 0.2589504938297103D+02
        xs( 34) = 0.2673577937526589D+02
        xs( 35) = 0.2759167732026825D+02
        xs( 36) = 0.2846350609898704D+02
        xs( 37) = 0.2935196118894073D+02
        xs( 38) = 0.3025765266283259D+02
        xs( 39) = 0.3118112434037777D+02
        xs( 40) = 0.3212303300158204D+02
        xs( 41) = 0.3308487438752336D+02
        xs( 42) = 0.3406694958840762D+02
        xs( 43) = 0.3506506777428849D+02
        xs( 44) = 0.3613156454946945D+02
        xs( 45) = 0.3717042716159534D+02
        ws(  1) = 0.8149332221261522D+00
        ws(  2) = 0.8256451423404827D+00
        ws(  3) = 0.8261194260705779D+00
        ws(  4) = 0.8247305606125452D+00
        ws(  5) = 0.8224327979117976D+00
        ws(  6) = 0.8194792884335451D+00
        ws(  7) = 0.8159874043250177D+00
        ws(  8) = 0.8120397898030356D+00
        ws(  9) = 0.8077104462229996D+00
        ws( 10) = 0.8030731688176512D+00
        ws( 11) = 0.7982047540905511D+00
        ws( 12) = 0.7931863802093131D+00
        ws( 13) = 0.7881042555050189D+00
        ws( 14) = 0.7830499061631783D+00
        ws( 15) = 0.7781202743557980D+00
        ws( 16) = 0.7734176883845170D+00
        ws( 17) = 0.7690497773413837D+00
        ws( 18) = 0.7651293406914647D+00
        ws( 19) = 0.7617741551060293D+00
        ws( 20) = 0.7591065828163009D+00
        ws( 21) = 0.7572527485920582D+00
        ws( 22) = 0.7563409429129430D+00
        ws( 23) = 0.7564988836440792D+00
        ws( 24) = 0.7578495244139141D+00
        ws( 25) = 0.7605053276581815D+00
        ws( 26) = 0.7645611963551199D+00
        ws( 27) = 0.7700866956000847D+00
        ws( 28) = 0.7771187533177930D+00
        ws( 29) = 0.7856555584030473D+00
        ws( 30) = 0.7956541021434974D+00
        ws( 31) = 0.8070314171606404D+00
        ws( 32) = 0.8196716027760739D+00
        ws( 33) = 0.8334378945339949D+00
        ws( 34) = 0.8481732421690257D+00
        ws( 35) = 0.8637518340344948D+00
        ws( 36) = 0.8800295882716467D+00
        ws( 37) = 0.8969994284959724D+00
        ws( 38) = 0.9145670990149861D+00
        ws( 39) = 0.9320492159463102D+00
        ws( 40) = 0.9514043289197462D+00
        ws( 41) = 0.9723885739033559D+00
        ws( 42) = 0.9869486648418118D+00
        ws( 43) = 0.1054767201686704D+01
        ws( 44) = 0.9437063269437697D+00
        ws( 45) = 0.1734314466851782D+01
        endif
        if( idomain .eq.  245 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.9424777960769379D+01
        rk1r = 0.2513274122871834D+02
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  46
        err = 0.5564368110668564D-13
        xs(  1) = 0.6492833264705395D+00
        xs(  2) = 0.1489954311167764D+01
        xs(  3) = 0.2334589980431207D+01
        xs(  4) = 0.3178786183051044D+01
        xs(  5) = 0.4021305450660890D+01
        xs(  6) = 0.4861411313820974D+01
        xs(  7) = 0.5698525624090192D+01
        xs(  8) = 0.6532151188710671D+01
        xs(  9) = 0.7361849898812285D+01
        xs( 10) = 0.8187236730512296D+01
        xs( 11) = 0.9007979316716671D+01
        xs( 12) = 0.9823799828498442D+01
        xs( 13) = 0.1063447799265147D+02
        xs( 14) = 0.1143985477253642D+02
        xs( 15) = 0.1223983650174027D+02
        xs( 16) = 0.1303439934898665D+02
        xs( 17) = 0.1382359404128166D+02
        xs( 18) = 0.1460755077831463D+02
        xs( 19) = 0.1538648430696175D+02
        xs( 20) = 0.1616069914745473D+02
        xs( 21) = 0.1693059498890781D+02
        xs( 22) = 0.1769667227488165D+02
        xs( 23) = 0.1845953795182953D+02
        xs( 24) = 0.1921991118267715D+02
        xs( 25) = 0.1997862858990689D+02
        xs( 26) = 0.2073664826245372D+02
        xs( 27) = 0.2149505133178479D+02
        xs( 28) = 0.2225503973982534D+02
        xs( 29) = 0.2301792858606904D+02
        xs( 30) = 0.2378513189515145D+02
        xs( 31) = 0.2455814090514908D+02
        xs( 32) = 0.2533849503570226D+02
        xs( 33) = 0.2612774740154308D+02
        xs( 34) = 0.2692742913278736D+02
        xs( 35) = 0.2773901112820414D+02
        xs( 36) = 0.2856387228847756D+02
        xs( 37) = 0.2940328148281761D+02
        xs( 38) = 0.3025840232477132D+02
        xs( 39) = 0.3113027095957783D+02
        xs( 40) = 0.3201965730125511D+02
        xs( 41) = 0.3292795620689367D+02
        xs( 42) = 0.3385625755727507D+02
        xs( 43) = 0.3480361065099949D+02
        xs( 44) = 0.3578070230425191D+02
        xs( 45) = 0.3670978326536067D+02
        xs( 46) = 0.3785093767588247D+02
        ws(  1) = 0.8330246934423170D+00
        ws(  2) = 0.8440637691296896D+00
        ws(  3) = 0.8447053134685945D+00
        ws(  4) = 0.8435018084482055D+00
        ws(  5) = 0.8414178458600402D+00
        ws(  6) = 0.8386985217547984D+00
        ws(  7) = 0.8354475317013333D+00
        ws(  8) = 0.8317306602640072D+00
        ws(  9) = 0.8276025901652139D+00
        ws( 10) = 0.8231156450914093D+00
        ws( 11) = 0.8183231711254935D+00
        ws( 12) = 0.8132810782362222D+00
        ws( 13) = 0.8080486747899182D+00
        ws( 14) = 0.8026891994398480D+00
        ws( 15) = 0.7972702079739720D+00
        ws( 16) = 0.7918638594186412D+00
        ws( 17) = 0.7865471404099155D+00
        ws( 18) = 0.7814020372738872D+00
        ws( 19) = 0.7765156833968174D+00
        ws( 20) = 0.7719805188245116D+00
        ws( 21) = 0.7678944745372567D+00
        ws( 22) = 0.7643611593521086D+00
        ws( 23) = 0.7614899649395735D+00
        ws( 24) = 0.7593958619950245D+00
        ws( 25) = 0.7581986019338286D+00
        ws( 26) = 0.7580209558217252D+00
        ws( 27) = 0.7589856265143590D+00
        ws( 28) = 0.7612105920392703D+00
        ws( 29) = 0.7648031324016495D+00
        ws( 30) = 0.7698524650506932D+00
        ws( 31) = 0.7764225163734781D+00
        ws( 32) = 0.7845450014952748D+00
        ws( 33) = 0.7942157381682418D+00
        ws( 34) = 0.8053922011886560D+00
        ws( 35) = 0.8179996863382594D+00
        ws( 36) = 0.8319322471899441D+00
        ws( 37) = 0.8470749464969179D+00
        ws( 38) = 0.8633066110878007D+00
        ws( 39) = 0.8805995305810479D+00
        ws( 40) = 0.8983914176498640D+00
        ws( 41) = 0.9167845211368095D+00
        ws( 42) = 0.9415367955780902D+00
        ws( 43) = 0.9484769103660471D+00
        ws( 44) = 0.9863539632904909D+00
        ws( 45) = 0.9322354019229232D+00
        ws( 46) = 0.1615848094535927D+01
        endif
        if( idomain .eq.  246 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.9424777960769379D+01
        rk1r = 0.2827433388230814D+02
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  48
        err = 0.8944543553267342D-13
        xs(  1) = 0.6623795585650702D+00
        xs(  2) = 0.1520052019633864D+01
        xs(  3) = 0.2381875139393273D+01
        xs(  4) = 0.3243413130066049D+01
        xs(  5) = 0.4103456189963922D+01
        xs(  6) = 0.4961299453444105D+01
        xs(  7) = 0.5816391820784468D+01
        xs(  8) = 0.6668255461591304D+01
        xs(  9) = 0.7516461936395551D+01
        xs( 10) = 0.8360624506341811D+01
        xs( 11) = 0.9200396113814154D+01
        xs( 12) = 0.1003546971061757D+02
        xs( 13) = 0.1086557974284246D+02
        xs( 14) = 0.1169050433793310D+02
        xs( 15) = 0.1251006800448529D+02
        xs( 16) = 0.1332414477036958D+02
        xs( 17) = 0.1413266171524320D+02
        xs( 18) = 0.1493560287913015D+02
        xs( 19) = 0.1573301352200190D+02
        xs( 20) = 0.1652500472290273D+02
        xs( 21) = 0.1731175830828643D+02
        xs( 22) = 0.1809353210291273D+02
        xs( 23) = 0.1887066554190603D+02
        xs( 24) = 0.1964358567514262D+02
        xs( 25) = 0.2041281364210432D+02
        xs( 26) = 0.2117897165544655D+02
        xs( 27) = 0.2194279046075954D+02
        xs( 28) = 0.2270511695206245D+02
        xs( 29) = 0.2346692147360908D+02
        xs( 30) = 0.2422930360368842D+02
        xs( 31) = 0.2499349513343144D+02
        xs( 32) = 0.2576085836686723D+02
        xs( 33) = 0.2653287756583775D+02
        xs( 34) = 0.2731114364346130D+02
        xs( 35) = 0.2809732648649603D+02
        xs( 36) = 0.2889314067775665D+02
        xs( 37) = 0.2970031429413512D+02
        xs( 38) = 0.3052053164271556D+02
        xs( 39) = 0.3135542577838404D+02
        xs( 40) = 0.3220650968109049D+02
        xs( 41) = 0.3307530044405068D+02
        xs( 42) = 0.3396259498977271D+02
        xs( 43) = 0.3487094755686183D+02
        xs( 44) = 0.3580046735567954D+02
        xs( 45) = 0.3675475374245739D+02
        xs( 46) = 0.3773176804123022D+02
        xs( 47) = 0.3877054769792506D+02
        xs( 48) = 0.3980112805061535D+02
        ws(  1) = 0.8498388459048972D+00
        ws(  2) = 0.8611768427913937D+00
        ws(  3) = 0.8619665661679191D+00
        ws(  4) = 0.8609291964944054D+00
        ws(  5) = 0.8590434139097120D+00
        ws(  6) = 0.8565523066773258D+00
        ws(  7) = 0.8535531198865542D+00
        ws(  8) = 0.8501028644802464D+00
        ws(  9) = 0.8462456568032344D+00
        ws( 10) = 0.8420216319218704D+00
        ws( 11) = 0.8374703821614475D+00
        ws( 12) = 0.8326325153958227D+00
        ws( 13) = 0.8275505255112803D+00
        ws( 14) = 0.8222693639603237D+00
        ws( 15) = 0.8168369149972192D+00
        ws( 16) = 0.8113043981984028D+00
        ws( 17) = 0.8057267608151359D+00
        ws( 18) = 0.8001630330858742D+00
        ws( 19) = 0.7946766836164613D+00
        ws( 20) = 0.7893359361843494D+00
        ws( 21) = 0.7842141122562258D+00
        ws( 22) = 0.7793899514062127D+00
        ws( 23) = 0.7749479950051047D+00
        ws( 24) = 0.7709790104767112D+00
        ws( 25) = 0.7675805022624527D+00
        ws( 26) = 0.7648571968770802D+00
        ws( 27) = 0.7629214379321606D+00
        ws( 28) = 0.7618931812681276D+00
        ws( 29) = 0.7618990933080474D+00
        ws( 30) = 0.7630705115078765D+00
        ws( 31) = 0.7655397842254094D+00
        ws( 32) = 0.7694343977266055D+00
        ws( 33) = 0.7748696849751981D+00
        ws( 34) = 0.7819410864918388D+00
        ws( 35) = 0.7907127167903083D+00
        ws( 36) = 0.8012073067240294D+00
        ws( 37) = 0.8134185719860644D+00
        ws( 38) = 0.8272710786935357D+00
        ws( 39) = 0.8428099065158114D+00
        ws( 40) = 0.8596252883971907D+00
        ws( 41) = 0.8779554031899947D+00
        ws( 42) = 0.8976284934556864D+00
        ws( 43) = 0.9196776587615526D+00
        ws( 44) = 0.9334793696714353D+00
        ws( 45) = 0.9725833296115808D+00
        ws( 46) = 0.1000012056776103D+01
        ws( 47) = 0.1013363935312797D+01
        ws( 48) = 0.1565776774218144D+01
        endif
        if( idomain .eq.  247 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.9424777960769379D+01
        rk1r = 0.3141592653589793D+02
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  50
        err = 0.7528929011117971D-13
        xs(  1) = 0.6708323096000182D+00
        xs(  2) = 0.1539487843278025D+01
        xs(  3) = 0.2412437295295364D+01
        xs(  4) = 0.3285237696886685D+01
        xs(  5) = 0.4156710283810922D+01
        xs(  6) = 0.5026183773034189D+01
        xs(  7) = 0.5893137751169616D+01
        xs(  8) = 0.6757120232492467D+01
        xs(  9) = 0.7617722540574798D+01
        xs( 10) = 0.8474570556288638D+01
        xs( 11) = 0.9327321650581746D+01
        xs( 12) = 0.1017566391187010D+02
        xs( 13) = 0.1101931645170902D+02
        xs( 14) = 0.1185803030753766D+02
        xs( 15) = 0.1269158975727925D+02
        xs( 16) = 0.1351981395739773D+02
        xs( 17) = 0.1434255887223973D+02
        xs( 18) = 0.1515971948008862D+02
        xs( 19) = 0.1597123225085782D+02
        xs( 20) = 0.1677707790622090D+02
        xs( 21) = 0.1757728447171552D+02
        xs( 22) = 0.1837193067756808D+02
        xs( 23) = 0.1916114974716968D+02
        xs( 24) = 0.1994513365241217D+02
        xs( 25) = 0.2072413796683578D+02
        xs( 26) = 0.2149848737507225D+02
        xs( 27) = 0.2226858204635290D+02
        xs( 28) = 0.2303490488811967D+02
        xs( 29) = 0.2379802983223442D+02
        xs( 30) = 0.2455863100624289D+02
        xs( 31) = 0.2531749253410203D+02
        xs( 32) = 0.2607551853818028D+02
        xs( 33) = 0.2683374220220433D+02
        xs( 34) = 0.2759333297107074D+02
        xs( 35) = 0.2835560020003440D+02
        xs( 36) = 0.2912199154468395D+02
        xs( 37) = 0.2989408424850481D+02
        xs( 38) = 0.3067357000769354D+02
        xs( 39) = 0.3146222593523042D+02
        xs( 40) = 0.3226188894411154D+02
        xs( 41) = 0.3307439758194315D+02
        xs( 42) = 0.3390161279654809D+02
        xs( 43) = 0.3474541971156670D+02
        xs( 44) = 0.3560733731993137D+02
        xs( 45) = 0.3648910085447046D+02
        xs( 46) = 0.3739221327896737D+02
        xs( 47) = 0.3831733578977055D+02
        xs( 48) = 0.3927926504501617D+02
        xs( 49) = 0.4028927630105927D+02
        xs( 50) = 0.4127528600366052D+02
        ws(  1) = 0.8606938235632438D+00
        ws(  2) = 0.8722413486129666D+00
        ws(  3) = 0.8731565628534271D+00
        ws(  4) = 0.8722694811446066D+00
        ws(  5) = 0.8705678497075175D+00
        ws(  6) = 0.8682934657180230D+00
        ws(  7) = 0.8655395090167421D+00
        ws(  8) = 0.8623574673228954D+00
        ws(  9) = 0.8587848403217725D+00
        ws( 10) = 0.8548540971801623D+00
        ws( 11) = 0.8505960998372802D+00
        ws( 12) = 0.8460415925428765D+00
        ws( 13) = 0.8412219710994261D+00
        ws( 14) = 0.8361697594687727D+00
        ws( 15) = 0.8309189671434740D+00
        ws( 16) = 0.8255053901399012D+00
        ws( 17) = 0.8199668942894272D+00
        ws( 18) = 0.8143436869792861D+00
        ws( 19) = 0.8086785920262834D+00
        ws( 20) = 0.8030173327485921D+00
        ws( 21) = 0.7974088575853073D+00
        ws( 22) = 0.7919056875938999D+00
        ws( 23) = 0.7865643620714537D+00
        ws( 24) = 0.7814459520346133D+00
        ws( 25) = 0.7766166857134587D+00
        ws( 26) = 0.7721487108863868D+00
        ws( 27) = 0.7681209793883270D+00
        ws( 28) = 0.7646202105734237D+00
        ws( 29) = 0.7617418598648399D+00
        ws( 30) = 0.7595909890880913D+00
        ws( 31) = 0.7582826169694813D+00
        ws( 32) = 0.7579414860495333D+00
        ws( 33) = 0.7587007710151199D+00
        ws( 34) = 0.7606990600766093D+00
        ws( 35) = 0.7640768516115871D+00
        ws( 36) = 0.7689686590701951D+00
        ws( 37) = 0.7754985484983020D+00
        ws( 38) = 0.7837691508179185D+00
        ws( 39) = 0.7938531871235054D+00
        ws( 40) = 0.8057783116943873D+00
        ws( 41) = 0.8195544309399861D+00
        ws( 42) = 0.8351267063474405D+00
        ws( 43) = 0.8524920963718577D+00
        ws( 44) = 0.8718121262666116D+00
        ws( 45) = 0.8904909596627796D+00
        ws( 46) = 0.9151067901798488D+00
        ws( 47) = 0.9464768285095828D+00
        ws( 48) = 0.9529813588476856D+00
        ws( 49) = 0.8533552375863630D+00
        ws( 50) = 0.1471989294936888D+01
        endif
        if( idomain .eq.  248 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.9424777960769379D+01
        rk1r = 0.3455751918948772D+02
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  52
        err = 0.8578559827713424D-13
        xs(  1) = 0.6797154391100004D+00
        xs(  2) = 0.1559907342146495D+01
        xs(  3) = 0.2444529950675332D+01
        xs(  4) = 0.3329125901363339D+01
        xs(  5) = 0.4212543546758081D+01
        xs(  6) = 0.5094143184827115D+01
        xs(  7) = 0.5973435180081750D+01
        xs(  8) = 0.6849995899663190D+01
        xs(  9) = 0.7723441722280130D+01
        xs( 10) = 0.8593419627114987D+01
        xs( 11) = 0.9459603480834666D+01
        xs( 12) = 0.1032169261646859D+02
        xs( 13) = 0.1117941142166642D+02
        xs( 14) = 0.1203250946273142D+02
        xs( 15) = 0.1288076194320525D+02
        xs( 16) = 0.1372397040704079D+02
        xs( 17) = 0.1456196365867426D+02
        xs( 18) = 0.1539459887326807D+02
        xs( 19) = 0.1622176290614542D+02
        xs( 20) = 0.1704337378517560D+02
        xs( 21) = 0.1785938240182276D+02
        xs( 22) = 0.1866977441742394D+02
        xs( 23) = 0.1947457240775276D+02
        xs( 24) = 0.2027383827825833D+02
        xs( 25) = 0.2106767603615066D+02
        xs( 26) = 0.2185623493319452D+02
        xs( 27) = 0.2263971309584359D+02
        xs( 28) = 0.2341836169311460D+02
        xs( 29) = 0.2419248972471826D+02
        xs( 30) = 0.2496246946740893D+02
        xs( 31) = 0.2572874282537886D+02
        xs( 32) = 0.2649182833214634D+02
        xs( 33) = 0.2725232928879696D+02
        xs( 34) = 0.2801094289629168D+02
        xs( 35) = 0.2876846972929318D+02
        xs( 36) = 0.2952582459239937D+02
        xs( 37) = 0.3028404580297329D+02
        xs( 38) = 0.3104430359849211D+02
        xs( 39) = 0.3180790606777588D+02
        xs( 40) = 0.3257629768843775D+02
        xs( 41) = 0.3335105925648491D+02
        xs( 42) = 0.3413388976991218D+02
        xs( 43) = 0.3492657940930891D+02
        xs( 44) = 0.3573101902036443D+02
        xs( 45) = 0.3654906412680021D+02
        xs( 46) = 0.3738303377702729D+02
        xs( 47) = 0.3823419704358307D+02
        xs( 48) = 0.3910546914271102D+02
        xs( 49) = 0.4000074499030336D+02
        xs( 50) = 0.4091245705600417D+02
        xs( 51) = 0.4189091651433075D+02
        xs( 52) = 0.4289628729327094D+02
        ws(  1) = 0.8720999263962865D+00
        ws(  2) = 0.8838576458819368D+00
        ws(  3) = 0.8848873660004541D+00
        ws(  4) = 0.8841345914269856D+00
        ws(  5) = 0.8825981782678261D+00
        ws(  6) = 0.8805205881546148D+00
        ws(  7) = 0.8779931620896709D+00
        ws(  8) = 0.8750644755590713D+00
        ws(  9) = 0.8717683889688607D+00
        ws( 10) = 0.8681330861707199D+00
        ws( 11) = 0.8641845167009052D+00
        ws( 12) = 0.8599478170456263D+00
        ws( 13) = 0.8554480456216377D+00
        ws( 14) = 0.8507105579057413D+00
        ws( 15) = 0.8457613126467429D+00
        ws( 16) = 0.8406270657787008D+00
        ws( 17) = 0.8353356108451718D+00
        ws( 18) = 0.8299159359500179D+00
        ws( 19) = 0.8243984383393290D+00
        ws( 20) = 0.8188151026735502D+00
        ws( 21) = 0.8131997081994060D+00
        ws( 22) = 0.8075880469619576D+00
        ws( 23) = 0.8020182049373896D+00
        ws( 24) = 0.7965308219213800D+00
        ws( 25) = 0.7911695065256159D+00
        ws( 26) = 0.7859812406399082D+00
        ws( 27) = 0.7810168746077117D+00
        ws( 28) = 0.7763317294041278D+00
        ws( 29) = 0.7719862684629095D+00
        ws( 30) = 0.7680467777168387D+00
        ws( 31) = 0.7645862235899418D+00
        ws( 32) = 0.7616851652126426D+00
        ws( 33) = 0.7594328559601643D+00
        ws( 34) = 0.7579275570485017D+00
        ws( 35) = 0.7572783740099992D+00
        ws( 36) = 0.7576041782412286D+00
        ws( 37) = 0.7590333011895065D+00
        ws( 38) = 0.7617001603649382D+00
        ws( 39) = 0.7657443821820858D+00
        ws( 40) = 0.7713040260154931D+00
        ws( 41) = 0.7784998998066501D+00
        ws( 42) = 0.7874557813596041D+00
        ws( 43) = 0.7982212091645438D+00
        ws( 44) = 0.8109742452380514D+00
        ws( 45) = 0.8256662250260105D+00
        ws( 46) = 0.8421840872107818D+00
        ws( 47) = 0.8609858739807063D+00
        ws( 48) = 0.8787282068491112D+00
        ws( 49) = 0.9137845396083042D+00
        ws( 50) = 0.8976121380433375D+00
        ws( 51) = 0.1089253267552707D+01
        ws( 52) = 0.1176855513319466D+01
        endif
        if( idomain .eq.  249 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.9424777960769379D+01
        rk1r = 0.3769911184307752D+02
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  56
        err = 0.8086454679854979D-13
        xs(  1) = 0.6845586076110195D+00
        xs(  2) = 0.1571052545163654D+01
        xs(  3) = 0.2462080853679926D+01
        xs(  4) = 0.3353193835123009D+01
        xs(  5) = 0.4243268806365920D+01
        xs(  6) = 0.5131695740344750D+01
        xs(  7) = 0.6018012299522533D+01
        xs(  8) = 0.6901818723565878D+01
        xs(  9) = 0.7782751346460120D+01
        xs( 10) = 0.8660472827132271D+01
        xs( 11) = 0.9534668213274641D+01
        xs( 12) = 0.1040504328164904D+02
        xs( 13) = 0.1127132392706762D+02
        xs( 14) = 0.1213325604107862D+02
        xs( 15) = 0.1299060570289814D+02
        xs( 16) = 0.1384315955981244D+02
        xs( 17) = 0.1469072537346475D+02
        xs( 18) = 0.1553313269741027D+02
        xs( 19) = 0.1637023368313534D+02
        xs( 20) = 0.1720190400626242D+02
        xs( 21) = 0.1802804390967196D+02
        xs( 22) = 0.1884857936911593D+02
        xs( 23) = 0.1966346339305945D+02
        xs( 24) = 0.2047267747310330D+02
        xs( 25) = 0.2127623320302088D+02
        xs( 26) = 0.2207417412029950D+02
        xs( 27) = 0.2286657780292567D+02
        xs( 28) = 0.2365355827067660D+02
        xs( 29) = 0.2443526879830620D+02
        xs( 30) = 0.2521190520511496D+02
        xs( 31) = 0.2598370976870624D+02
        xs( 32) = 0.2675097592253965D+02
        xs( 33) = 0.2751405394963853D+02
        xs( 34) = 0.2827335778986419D+02
        xs( 35) = 0.2902937321637620D+02
        xs( 36) = 0.2978266745298361D+02
        xs( 37) = 0.3053390010554017D+02
        xs( 38) = 0.3128383483495702D+02
        xs( 39) = 0.3203335250055196D+02
        xs( 40) = 0.3278346295818691D+02
        xs( 41) = 0.3353531673673089D+02
        xs( 42) = 0.3429021363674431D+02
        xs( 43) = 0.3504960820094083D+02
        xs( 44) = 0.3581510944213243D+02
        xs( 45) = 0.3658847458148495D+02
        xs( 46) = 0.3737159216214326D+02
        xs( 47) = 0.3816647821515485D+02
        xs( 48) = 0.3897528538291208D+02
        xs( 49) = 0.3980004354777609D+02
        xs( 50) = 0.4064325463475161D+02
        xs( 51) = 0.4150659461434402D+02
        xs( 52) = 0.4239379635836624D+02
        xs( 53) = 0.4331177258456416D+02
        xs( 54) = 0.4425596979238453D+02
        xs( 55) = 0.4527377541753183D+02
        xs( 56) = 0.4634361368696988D+02
        ws(  1) = 0.8783218646242476D+00
        ws(  2) = 0.8902151149610025D+00
        ws(  3) = 0.8913443074748811D+00
        ws(  4) = 0.8907167096689098D+00
        ws(  5) = 0.8893356947905269D+00
        ws(  6) = 0.8874422304691317D+00
        ws(  7) = 0.8851246306634853D+00
        ws(  8) = 0.8824277504709171D+00
        ws(  9) = 0.8793813298300635D+00
        ws( 10) = 0.8760091656655685D+00
        ws( 11) = 0.8723325771883668D+00
        ws( 12) = 0.8683718775352937D+00
        ws( 13) = 0.8641470589175237D+00
        ws( 14) = 0.8596781762527500D+00
        ws( 15) = 0.8549855784665789D+00
        ws( 16) = 0.8500900837419054D+00
        ws( 17) = 0.8450131227262531D+00
        ws( 18) = 0.8397768689212064D+00
        ws( 19) = 0.8344043649510103D+00
        ws( 20) = 0.8289196352859507D+00
        ws( 21) = 0.8233478119970772D+00
        ws( 22) = 0.8177152507344897D+00
        ws( 23) = 0.8120496862886434D+00
        ws( 24) = 0.8063803755148006D+00
        ws( 25) = 0.8007383050725498D+00
        ws( 26) = 0.7951564205586138D+00
        ws( 27) = 0.7896698995404257D+00
        ws( 28) = 0.7843165287322345D+00
        ws( 29) = 0.7791371010374601D+00
        ws( 30) = 0.7741760107019950D+00
        ws( 31) = 0.7694819251990592D+00
        ws( 32) = 0.7651086656650870D+00
        ws( 33) = 0.7611162241990117D+00
        ws( 34) = 0.7575722607450412D+00
        ws( 35) = 0.7545529806216335D+00
        ws( 36) = 0.7521452248370684D+00
        ws( 37) = 0.7504470986270114D+00
        ws( 38) = 0.7495690561513096D+00
        ws( 39) = 0.7496344422522492D+00
        ws( 40) = 0.7507781350927265D+00
        ws( 41) = 0.7531461109333566D+00
        ws( 42) = 0.7568900679533929D+00
        ws( 43) = 0.7621684279336191D+00
        ws( 44) = 0.7691281306596909D+00
        ws( 45) = 0.7779194617157221D+00
        ws( 46) = 0.7886469966549103D+00
        ws( 47) = 0.8014944209643330D+00
        ws( 48) = 0.8164804595621286D+00
        ws( 49) = 0.8334328619834963D+00
        ws( 50) = 0.8532718517445457D+00
        ws( 51) = 0.8744394729714343D+00
        ws( 52) = 0.8990937949050941D+00
        ws( 53) = 0.9404954196147528D+00
        ws( 54) = 0.9249973109002614D+00
        ws( 55) = 0.1133716339796494D+01
        ws( 56) = 0.1322677774520346D+01
        endif
        if( idomain .eq.  250 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.9424777960769379D+01
        rk1r = 0.4084070449666731D+02
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  58
        err = 0.7560936875682627D-13
        xs(  1) = 0.6915686542319774D+00
        xs(  2) = 0.1587158596921597D+01
        xs(  3) = 0.2487372237628909D+01
        xs(  4) = 0.3387738201565621D+01
        xs(  5) = 0.4287145289186000D+01
        xs(  6) = 0.5184999088150819D+01
        xs(  7) = 0.6080853004100667D+01
        xs(  8) = 0.6974322109371947D+01
        xs(  9) = 0.7865056232741261D+01
        xs( 10) = 0.8752730003593467D+01
        xs( 11) = 0.9637038811139513D+01
        xs( 12) = 0.1051769712030960D+02
        xs( 13) = 0.1139443786011147D+02
        xs( 14) = 0.1226701233759048D+02
        xs( 15) = 0.1313519046083174D+02
        xs( 16) = 0.1399876113442903D+02
        xs( 17) = 0.1485753278122760D+02
        xs( 18) = 0.1571133390712171D+02
        xs( 19) = 0.1656001369063043D+02
        xs( 20) = 0.1740344252689355D+02
        xs( 21) = 0.1824151251051548D+02
        xs( 22) = 0.1907413781095753D+02
        xs( 23) = 0.1990125494768158D+02
        xs( 24) = 0.2072282296661682D+02
        xs( 25) = 0.2153882357118649D+02
        xs( 26) = 0.2234926125153269D+02
        xs( 27) = 0.2315416354073278D+02
        xs( 28) = 0.2395358143695841D+02
        xs( 29) = 0.2474759016295989D+02
        xs( 30) = 0.2553629031624899D+02
        xs( 31) = 0.2631980954212871D+02
        xs( 32) = 0.2709830476793681D+02
        xs( 33) = 0.2787196517449783D+02
        xs( 34) = 0.2864101592664632D+02
        xs( 35) = 0.2940572289523792D+02
        xs( 36) = 0.3016639830778504D+02
        xs( 37) = 0.3092340787130405D+02
        xs( 38) = 0.3167717907878458D+02
        xs( 39) = 0.3242821109481531D+02
        xs( 40) = 0.3317708585634637D+02
        xs( 41) = 0.3392448095325985D+02
        xs( 42) = 0.3467118249460988D+02
        xs( 43) = 0.3541809992315501D+02
        xs( 44) = 0.3616627765616939D+02
        xs( 45) = 0.3691691132036883D+02
        xs( 46) = 0.3767135143690254D+02
        xs( 47) = 0.3843113403473493D+02
        xs( 48) = 0.3919793040239665D+02
        xs( 49) = 0.3997358708123380D+02
        xs( 50) = 0.4076025561045143D+02
        xs( 51) = 0.4155984667726232D+02
        xs( 52) = 0.4237495826416728D+02
        xs( 53) = 0.4320750613831133D+02
        xs( 54) = 0.4406195026202070D+02
        xs( 55) = 0.4493387885159026D+02
        xs( 56) = 0.4584413637163536D+02
        xs( 57) = 0.4682088447413889D+02
        xs( 58) = 0.4795498190081330D+02
        ws(  1) = 0.8873208443967839D+00
        ws(  2) = 0.8993666410717061D+00
        ws(  3) = 0.9005623485335861D+00
        ws(  4) = 0.9000067722758180D+00
        ws(  5) = 0.8987125170223138D+00
        ws(  6) = 0.8969217747783490D+00
        ws(  7) = 0.8947222802549810D+00
        ws(  8) = 0.8921577152569186D+00
        ws(  9) = 0.8892563623372882D+00
        ws( 10) = 0.8860404359901928D+00
        ws( 11) = 0.8825295994421278D+00
        ws( 12) = 0.8787425080410527D+00
        ws( 13) = 0.8746975179676445D+00
        ws( 14) = 0.8704130823326597D+00
        ws( 15) = 0.8659079728634290D+00
        ws( 16) = 0.8612014356406550D+00
        ws( 17) = 0.8563132655899973D+00
        ws( 18) = 0.8512638410139807D+00
        ws( 19) = 0.8460741171473732D+00
        ws( 20) = 0.8407655644520529D+00
        ws( 21) = 0.8353600916942614D+00
        ws( 22) = 0.8298799271056378D+00
        ws( 23) = 0.8243475189853972D+00
        ws( 24) = 0.8187854688602159D+00
        ws( 25) = 0.8132164870010958D+00
        ws( 26) = 0.8076634571414130D+00
        ws( 27) = 0.8021496052509234D+00
        ws( 28) = 0.7966987084727508D+00
        ws( 29) = 0.7913354811905614D+00
        ws( 30) = 0.7860860670784705D+00
        ws( 31) = 0.7809784909806976D+00
        ws( 32) = 0.7760434305762526D+00
        ws( 33) = 0.7713148416225093D+00
        ws( 34) = 0.7668308912160613D+00
        ws( 35) = 0.7626349508013612D+00
        ws( 36) = 0.7587766968801771D+00
        ws( 37) = 0.7553135055383823D+00
        ws( 38) = 0.7523119503934979D+00
        ws( 39) = 0.7498488536507567D+00
        ws( 40) = 0.7480133744602998D+00
        ws( 41) = 0.7469073212812580D+00
        ws( 42) = 0.7466473983963775D+00
        ws( 43) = 0.7473606723587728D+00
        ws( 44) = 0.7491941498631960D+00
        ws( 45) = 0.7522999265384807D+00
        ws( 46) = 0.7568370319352103D+00
        ws( 47) = 0.7629956792950885D+00
        ws( 48) = 0.7709398567918402D+00
        ws( 49) = 0.7807522795690578D+00
        ws( 50) = 0.7928117815577141D+00
        ws( 51) = 0.8071415981673086D+00
        ws( 52) = 0.8235282360045354D+00
        ws( 53) = 0.8418696131150959D+00
        ws( 54) = 0.8612601457549486D+00
        ws( 55) = 0.9013479866661445D+00
        ws( 56) = 0.9153642274077309D+00
        ws( 57) = 0.9411011325742819D+00
        ws( 58) = 0.1460208985914909D+01
        endif
        if( idomain .eq.  251 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.9424777960769379D+01
        rk1r = 0.4398229715025710D+02
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  61
        err = 0.6088510509276565D-13
        xs(  1) = 0.6958594786828642D+00
        xs(  2) = 0.1597056542493552D+01
        xs(  3) = 0.2503025965105348D+01
        xs(  4) = 0.3409335703296627D+01
        xs(  5) = 0.4314932782732031D+01
        xs(  6) = 0.5219281663699593D+01
        xs(  7) = 0.6121992488065045D+01
        xs(  8) = 0.7022733946576082D+01
        xs(  9) = 0.7921205774460429D+01
        xs( 10) = 0.8817128351041312D+01
        xs( 11) = 0.9710238196674212D+01
        xs( 12) = 0.1060028582679371D+02
        xs( 13) = 0.1148703459954127D+02
        xs( 14) = 0.1237026004286973D+02
        xs( 15) = 0.1324974941031390D+02
        xs( 16) = 0.1412530138137413D+02
        xs( 17) = 0.1499672584894014D+02
        xs( 18) = 0.1586384379781068D+02
        xs( 19) = 0.1672648725887042D+02
        xs( 20) = 0.1758449936804191D+02
        xs( 21) = 0.1843773452769315D+02
        xs( 22) = 0.1928605870752290D+02
        xs( 23) = 0.2012934988672350D+02
        xs( 24) = 0.2096749867591976D+02
        xs( 25) = 0.2180040912731538D+02
        xs( 26) = 0.2262799975048168D+02
        xs( 27) = 0.2345020475202372D+02
        xs( 28) = 0.2426697549889727D+02
        xs( 29) = 0.2507828220996576D+02
        xs( 30) = 0.2588411585747273D+02
        xs( 31) = 0.2668449028028999D+02
        xs( 32) = 0.2747944447419398D+02
        xs( 33) = 0.2826904504375380D+02
        xs( 34) = 0.2905338879898790D+02
        xs( 35) = 0.2983260548404518D+02
        xs( 36) = 0.3060686069077931D+02
        xs( 37) = 0.3137635891583370D+02
        xs( 38) = 0.3214134701362691D+02
        xs( 39) = 0.3290211806695596D+02
        xs( 40) = 0.3365901583371106D+02
        xs( 41) = 0.3441244036113575D+02
        xs( 42) = 0.3516285440297414D+02
        xs( 43) = 0.3591079147860822D+02
        xs( 44) = 0.3665686571867198D+02
        xs( 45) = 0.3740178212840868D+02
        xs( 46) = 0.3814635053162901D+02
        xs( 47) = 0.3889149741416313D+02
        xs( 48) = 0.3963827863720381D+02
        xs( 49) = 0.4038789654463005D+02
        xs( 50) = 0.4114169844405973D+02
        xs( 51) = 0.4190120751525673D+02
        xs( 52) = 0.4266807084977161D+02
        xs( 53) = 0.4344413630480682D+02
        xs( 54) = 0.4423150686519232D+02
        xs( 55) = 0.4503182801056124D+02
        xs( 56) = 0.4584844657368087D+02
        xs( 57) = 0.4668335366009682D+02
        xs( 58) = 0.4753743368141830D+02
        xs( 59) = 0.4840547564098098D+02
        xs( 60) = 0.4935013230090072D+02
        xs( 61) = 0.5033732343669363D+02
        ws(  1) = 0.8928394400675516D+00
        ws(  2) = 0.9050458619861586D+00
        ws(  3) = 0.9064027823568896D+00
        ws(  4) = 0.9060637431365417D+00
        ws(  5) = 0.9050453752081650D+00
        ws(  6) = 0.9035885501063906D+00
        ws(  7) = 0.9017782675766945D+00
        ws(  8) = 0.8996547577897922D+00
        ws(  9) = 0.8972423629366622D+00
        ws( 10) = 0.8945589098370097D+00
        ws( 11) = 0.8916192198933749D+00
        ws( 12) = 0.8884366104103316D+00
        ws( 13) = 0.8850235308587042D+00
        ws( 14) = 0.8813919019947272D+00
        ws( 15) = 0.8775532829483434D+00
        ws( 16) = 0.8735189762194138D+00
        ws( 17) = 0.8693001245685936D+00
        ws( 18) = 0.8649077778104804D+00
        ws( 19) = 0.8603529982538085D+00
        ws( 20) = 0.8556469486439716D+00
        ws( 21) = 0.8508010250059830D+00
        ws( 22) = 0.8458269870505432D+00
        ws( 23) = 0.8407371263294711D+00
        ws( 24) = 0.8355444446576108D+00
        ws( 25) = 0.8302628569137680D+00
        ws( 26) = 0.8249073998057904D+00
        ws( 27) = 0.8194944699177652D+00
        ws( 28) = 0.8140420302320882D+00
        ws( 29) = 0.8085698528736182D+00
        ws( 30) = 0.8030997089482818D+00
        ws( 31) = 0.7976555954302219D+00
        ws( 32) = 0.7922638542727138D+00
        ws( 33) = 0.7869533772890478D+00
        ws( 34) = 0.7817557071175527D+00
        ws( 35) = 0.7767052127935283D+00
        ws( 36) = 0.7718392204677726D+00
        ws( 37) = 0.7671983094604377D+00
        ws( 38) = 0.7628266543062067D+00
        ws( 39) = 0.7587726501494283D+00
        ws( 40) = 0.7550894654928406D+00
        ws( 41) = 0.7518365239044125D+00
        ws( 42) = 0.7490802892939219D+00
        ws( 43) = 0.7468960732333380D+00
        ws( 44) = 0.7453695922831587D+00
        ws( 45) = 0.7445983816257250D+00
        ws( 46) = 0.7446919281232259D+00
        ws( 47) = 0.7457776912439872D+00
        ws( 48) = 0.7479875760819712D+00
        ws( 49) = 0.7514690937648019D+00
        ws( 50) = 0.7564005545325255D+00
        ws( 51) = 0.7628852377432899D+00
        ws( 52) = 0.7711641651850191D+00
        ws( 53) = 0.7813655084785969D+00
        ws( 54) = 0.7935500377884249D+00
        ws( 55) = 0.8082535642979835D+00
        ws( 56) = 0.8250170089591867D+00
        ws( 57) = 0.8447797095896494D+00
        ws( 58) = 0.8623292851390095D+00
        ws( 59) = 0.8720011821258299D+00
        ws( 60) = 0.9930323420502061D+00
        ws( 61) = 0.1239393034343964D+01
        endif
        if( idomain .eq.  252 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.9424777960769379D+01
        rk1r = 0.4712388980384689D+02
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  65
        err = 0.2220176306458080D-13
        xs(  1) = 0.6955240953278301D+00
        xs(  2) = 0.1596301462222684D+01
        xs(  3) = 0.2501883676182630D+01
        xs(  4) = 0.3407860132340379D+01
        xs(  5) = 0.4313196904759240D+01
        xs(  6) = 0.5217376311126136D+01
        xs(  7) = 0.6120025201184700D+01
        xs(  8) = 0.7020827792120066D+01
        xs(  9) = 0.7919498180370357D+01
        xs( 10) = 0.8815769985173286D+01
        xs( 11) = 0.9709391961914339D+01
        xs( 12) = 0.1060012599319230D+02
        xs( 13) = 0.1148774611529371D+02
        xs( 14) = 0.1237203803364221D+02
        xs( 15) = 0.1325279887790124D+02
        xs( 16) = 0.1412983707974740D+02
        xs( 17) = 0.1500297232285369D+02
        xs( 18) = 0.1587203552637593D+02
        xs( 19) = 0.1673686885668635D+02
        xs( 20) = 0.1759732575353576D+02
        xs( 21) = 0.1845327097735327D+02
        xs( 22) = 0.1930458068172996D+02
        xs( 23) = 0.2015114251925545D+02
        xs( 24) = 0.2099285579707376D+02
        xs( 25) = 0.2182963169040099D+02
        xs( 26) = 0.2266139353282899D+02
        xs( 27) = 0.2348807718297285D+02
        xs( 28) = 0.2430963146993266D+02
        xs( 29) = 0.2512601872979263D+02
        xs( 30) = 0.2593721539517694D+02
        xs( 31) = 0.2674321267221820D+02
        xs( 32) = 0.2754401727301068D+02
        xs( 33) = 0.2833965225072413D+02
        xs( 34) = 0.2913015793139447D+02
        xs( 35) = 0.2991559303476989D+02
        xs( 36) = 0.3069603601711275D+02
        xs( 37) = 0.3147158669396596D+02
        xs( 38) = 0.3224236824317483D+02
        xs( 39) = 0.3300852960922222D+02
        xs( 40) = 0.3377024838126359D+02
        xs( 41) = 0.3452773415582919D+02
        xs( 42) = 0.3528123249144566D+02
        xs( 43) = 0.3603102950775073D+02
        xs( 44) = 0.3677745715872484D+02
        xs( 45) = 0.3752089952454887D+02
        xs( 46) = 0.3826180004057697D+02
        xs( 47) = 0.3900066988046701D+02
        xs( 48) = 0.3973809820135356D+02
        xs( 49) = 0.4047476273617684D+02
        xs( 50) = 0.4121144317659205D+02
        xs( 51) = 0.4194903480998430D+02
        xs( 52) = 0.4268856054815082D+02
        xs( 53) = 0.4343118818638013D+02
        xs( 54) = 0.4417823574749503D+02
        xs( 55) = 0.4493118965402743D+02
        xs( 56) = 0.4569170089035173D+02
        xs( 57) = 0.4646154927813647D+02
        xs( 58) = 0.4724281172768922D+02
        xs( 59) = 0.4803762300833929D+02
        xs( 60) = 0.4884858621122233D+02
        xs( 61) = 0.4967635686870742D+02
        xs( 62) = 0.5052405937741737D+02
        xs( 63) = 0.5140708347699771D+02
        xs( 64) = 0.5233583714563938D+02
        xs( 65) = 0.5339126347063030D+02
        ws(  1) = 0.8924129646202916D+00
        ws(  2) = 0.9046384309649349D+00
        ws(  3) = 0.9060392511848366D+00
        ws(  4) = 0.9057638787694461D+00
        ws(  5) = 0.9048276014517811D+00
        ws(  6) = 0.9034701607528053D+00
        ws(  7) = 0.9017753756932335D+00
        ws(  8) = 0.8997823073565674D+00
        ws(  9) = 0.8975141384727877D+00
        ws( 10) = 0.8949876277852162D+00
        ws( 11) = 0.8922166549328636D+00
        ws( 12) = 0.8892137544425253D+00
        ws( 13) = 0.8859907779352350D+00
        ws( 14) = 0.8825592490853476D+00
        ws( 15) = 0.8789305121142977D+00
        ws( 16) = 0.8751158388131153D+00
        ws( 17) = 0.8711264668815236D+00
        ws( 18) = 0.8669736342803497D+00
        ws( 19) = 0.8626685990366777D+00
        ws( 20) = 0.8582226533947401D+00
        ws( 21) = 0.8536471512426325D+00
        ws( 22) = 0.8489535305612373D+00
        ws( 23) = 0.8441533589342212D+00
        ws( 24) = 0.8392583878024930D+00
        ws( 25) = 0.8342806149417860D+00
        ws( 26) = 0.8292323721052296D+00
        ws( 27) = 0.8241263899435476D+00
        ws( 28) = 0.8189758974417517D+00
        ws( 29) = 0.8137946822388106D+00
        ws( 30) = 0.8085971711946927D+00
        ws( 31) = 0.8033984877022339D+00
        ws( 32) = 0.7982145404459075D+00
        ws( 33) = 0.7930621155291708D+00
        ws( 34) = 0.7879590087267940D+00
        ws( 35) = 0.7829242476540837D+00
        ws( 36) = 0.7779783188674742D+00
        ws( 37) = 0.7731435236918675D+00
        ws( 38) = 0.7684443474915886D+00
        ws( 39) = 0.7639079272273571D+00
        ws( 40) = 0.7595644797326996D+00
        ws( 41) = 0.7554479167157545D+00
        ws( 42) = 0.7515963503731509D+00
        ws( 43) = 0.7480529144826735D+00
        ws( 44) = 0.7448662883163087D+00
        ws( 45) = 0.7420921820106821D+00
        ws( 46) = 0.7397938619987707D+00
        ws( 47) = 0.7380439365715691D+00
        ws( 48) = 0.7369254417381798D+00
        ws( 49) = 0.7365332345761219D+00
        ws( 50) = 0.7369767716360293D+00
        ws( 51) = 0.7383766727092547D+00
        ws( 52) = 0.7408691765573553D+00
        ws( 53) = 0.7446055328683316D+00
        ws( 54) = 0.7497379139633213D+00
        ws( 55) = 0.7564489814239125D+00
        ws( 56) = 0.7648466343187155D+00
        ws( 57) = 0.7752467990547329D+00
        ws( 58) = 0.7876990345420766D+00
        ws( 59) = 0.8021748454032867D+00
        ws( 60) = 0.8199218070771246D+00
        ws( 61) = 0.8388386520780908D+00
        ws( 62) = 0.8585821623313384D+00
        ws( 63) = 0.9016703893680466D+00
        ws( 64) = 0.9154048361609572D+00
        ws( 65) = 0.1613044789864777D+01
        endif
        if( idomain .eq.  253 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.9424777960769379D+01
        rk1r = 0.5026548245743669D+02
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  67
        err = 0.6182710234479535D-13
        xs(  1) = 0.7034992863738959D+00
        xs(  2) = 0.1614618446036783D+01
        xs(  3) = 0.2530628674538214D+01
        xs(  4) = 0.3447086264592305D+01
        xs(  5) = 0.4362962465244684D+01
        xs(  6) = 0.5277750125539172D+01
        xs(  7) = 0.6191087602102186D+01
        xs(  8) = 0.7102670481868592D+01
        xs(  9) = 0.8012223704867006D+01
        xs( 10) = 0.8919490999109172D+01
        xs( 11) = 0.9824230386207246D+01
        xs( 12) = 0.1072621208047789D+02
        xs( 13) = 0.1162521745532727D+02
        xs( 14) = 0.1252103849471541D+02
        xs( 15) = 0.1341347750699521D+02
        xs( 16) = 0.1430234695468227D+02
        xs( 17) = 0.1518746939005672D+02
        xs( 18) = 0.1606867741531388D+02
        xs( 19) = 0.1694581372291203D+02
        xs( 20) = 0.1781873114016422D+02
        xs( 21) = 0.1868729274253342D+02
        xs( 22) = 0.1955137198731540D+02
        xs( 23) = 0.2041085289810115D+02
        xs( 24) = 0.2126563027973044D+02
        xs( 25) = 0.2211560997354908D+02
        xs( 26) = 0.2296070912811339D+02
        xs( 27) = 0.2380085652017811D+02
        xs( 28) = 0.2463599284066241D+02
        xs( 29) = 0.2546607103275005D+02
        xs( 30) = 0.2629105658045860D+02
        xs( 31) = 0.2711092781351379D+02
        xs( 32) = 0.2792567614639488D+02
        xs( 33) = 0.2873530629976264D+02
        xs( 34) = 0.2953983648561962D+02
        xs( 35) = 0.3033929849370336D+02
        xs( 36) = 0.3113373780615840D+02
        xs( 37) = 0.3192321367996640D+02
        xs( 38) = 0.3270779938170522D+02
        xs( 39) = 0.3348758252931936D+02
        xs( 40) = 0.3426266595114348D+02
        xs( 41) = 0.3503316894577263D+02
        xs( 42) = 0.3579922936832506D+02
        xs( 43) = 0.3656100650979723D+02
        xs( 44) = 0.3731868503045330D+02
        xs( 45) = 0.3807247996411501D+02
        xs( 46) = 0.3882264271908207D+02
        xs( 47) = 0.3956946827514723D+02
        xs( 48) = 0.4031330355300459D+02
        xs( 49) = 0.4105455673003996D+02
        xs( 50) = 0.4179370755117170D+02
        xs( 51) = 0.4253131961966098D+02
        xs( 52) = 0.4326805354549771D+02
        xs( 53) = 0.4400467813123371D+02
        xs( 54) = 0.4474209142919261D+02
        xs( 55) = 0.4548132982647897D+02
        xs( 56) = 0.4622358924289640D+02
        xs( 57) = 0.4697024330662250D+02
        xs( 58) = 0.4772283032344533D+02
        xs( 59) = 0.4848312967934739D+02
        xs( 60) = 0.4925319920000995D+02
        xs( 61) = 0.5003497699770934D+02
        xs( 62) = 0.5083072373876590D+02
        xs( 63) = 0.5164479374420954D+02
        xs( 64) = 0.5247725234020360D+02
        xs( 65) = 0.5333367279509778D+02
        xs( 66) = 0.5417944363099487D+02
        xs( 67) = 0.5527836826145285D+02
        ws(  1) = 0.9026491972940394D+00
        ws(  2) = 0.9150371162587141D+00
        ws(  3) = 0.9164939258140523D+00
        ws(  4) = 0.9162725939252346D+00
        ws(  5) = 0.9153995490486999D+00
        ws(  6) = 0.9141166554169317D+00
        ws(  7) = 0.9125079532790356D+00
        ws(  8) = 0.9106121191248189D+00
        ws(  9) = 0.9084516836287218D+00
        ws( 10) = 0.9060426077445749D+00
        ws( 11) = 0.9033978838375498D+00
        ws( 12) = 0.9005290750161344D+00
        ws( 13) = 0.8974470088441645D+00
        ws( 14) = 0.8941621254677776D+00
        ws( 15) = 0.8906846437809228D+00
        ws( 16) = 0.8870246791824864D+00
        ws( 17) = 0.8831922894102462D+00
        ws( 18) = 0.8791975428552073D+00
        ws( 19) = 0.8750505412092950D+00
        ws( 20) = 0.8707614710626934D+00
        ws( 21) = 0.8663406401096002D+00
        ws( 22) = 0.8617985170098676D+00
        ws( 23) = 0.8571457671526246D+00
        ws( 24) = 0.8523932991535637D+00
        ws( 25) = 0.8475522727527079D+00
        ws( 26) = 0.8426341628479147D+00
        ws( 27) = 0.8376507312239061D+00
        ws( 28) = 0.8326140632147419D+00
        ws( 29) = 0.8275365616980243D+00
        ws( 30) = 0.8224309187265139D+00
        ws( 31) = 0.8173101134972417D+00
        ws( 32) = 0.8121873355757901D+00
        ws( 33) = 0.8070760060559234D+00
        ws( 34) = 0.8019896650991712D+00
        ws( 35) = 0.7969419310796976D+00
        ws( 36) = 0.7919465612218178D+00
        ws( 37) = 0.7870174025434400D+00
        ws( 38) = 0.7821685874333368D+00
        ws( 39) = 0.7774148268496087D+00
        ws( 40) = 0.7727718733892464D+00
        ws( 41) = 0.7682570501762013D+00
        ws( 42) = 0.7638902755683521D+00
        ws( 43) = 0.7596947145361913D+00
        ws( 44) = 0.7556980858659652D+00
        ws( 45) = 0.7519335733327120D+00
        ws( 46) = 0.7484409858318428D+00
        ws( 47) = 0.7452678376713334D+00
        ws( 48) = 0.7424706191188989D+00
        ws( 49) = 0.7401153764316895D+00
        ws( 50) = 0.7382804717992933D+00
        ws( 51) = 0.7370536565616072D+00
        ws( 52) = 0.7365409333474731D+00
        ws( 53) = 0.7368602163593168D+00
        ws( 54) = 0.7381379383230259D+00
        ws( 55) = 0.7405371483234081D+00
        ws( 56) = 0.7442183515965154D+00
        ws( 57) = 0.7493383665382217D+00
        ws( 58) = 0.7561319060153017D+00
        ws( 59) = 0.7647882090643553D+00
        ws( 60) = 0.7757674623521152D+00
        ws( 61) = 0.7880853342043779D+00
        ws( 62) = 0.8030956719435902D+00
        ws( 63) = 0.8239297706299349D+00
        ws( 64) = 0.8436146540953180D+00
        ws( 65) = 0.8672341020787863D+00
        ws( 66) = 0.7461554891968721D+00
        ws( 67) = 0.1643350809053926D+01
        endif
        if( idomain .eq.  254 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.1256637061435917D+02
        rk1r = 0.2000000000000000D-01
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  33
        err = 0.4693240731433744D-13
        xs(  1) = 0.6326247452967034D+00
        xs(  2) = 0.1452831623526941D+01
        xs(  3) = 0.2279521511016685D+01
        xs(  4) = 0.3109850073277117D+01
        xs(  5) = 0.3943991926349257D+01
        xs(  6) = 0.4782524909037755D+01
        xs(  7) = 0.5626081221970026D+01
        xs(  8) = 0.6475261035962077D+01
        xs(  9) = 0.7330604013996289D+01
        xs( 10) = 0.8192579714635244D+01
        xs( 11) = 0.9061586233090313D+01
        xs( 12) = 0.9937953008908114D+01
        xs( 13) = 0.1082194608955353D+02
        xs( 14) = 0.1171377504756617D+02
        xs( 15) = 0.1261360062726026D+02
        xs( 16) = 0.1352154213583168D+02
        xs( 17) = 0.1443768397514377D+02
        xs( 18) = 0.1536208506883226D+02
        xs( 19) = 0.1629478942770618D+02
        xs( 20) = 0.1723578815316443D+02
        xs( 21) = 0.1818513584949505D+02
        xs( 22) = 0.1914282648972923D+02
        xs( 23) = 0.2010929267404039D+02
        xs( 24) = 0.2108326488607280D+02
        xs( 25) = 0.2206461639918395D+02
        xs( 26) = 0.2305696381872165D+02
        xs( 27) = 0.2405996090461247D+02
        xs( 28) = 0.2506760730356257D+02
        xs( 29) = 0.2608269211175936D+02
        xs( 30) = 0.2709075397161075D+02
        xs( 31) = 0.2803473911565622D+02
        xs( 32) = 0.3045551754702742D+02
        xs( 33) = 0.3130761306303116D+02
        ws(  1) = 0.8119418715571945D+00
        ws(  2) = 0.8245769473867601D+00
        ws(  3) = 0.8285549265324060D+00
        ws(  4) = 0.8321520374658030D+00
        ws(  5) = 0.8362319866754486D+00
        ws(  6) = 0.8409405112048302D+00
        ws(  7) = 0.8462725501771806D+00
        ws(  8) = 0.8521771350134222D+00
        ws(  9) = 0.8585871201772199D+00
        ws( 10) = 0.8654306551454115D+00
        ws( 11) = 0.8726370957869281D+00
        ws( 12) = 0.8801404501883896D+00
        ws( 13) = 0.8878808078629835D+00
        ws( 14) = 0.8958045343502230D+00
        ws( 15) = 0.9038658264807566D+00
        ws( 16) = 0.9120293138230798D+00
        ws( 17) = 0.9202641372478849D+00
        ws( 18) = 0.9285386695491824D+00
        ws( 19) = 0.9368767964338679D+00
        ws( 20) = 0.9452514223351620D+00
        ws( 21) = 0.9533695047324910D+00
        ws( 22) = 0.9614231339572785D+00
        ws( 23) = 0.9706478124983451D+00
        ws( 24) = 0.9812984848834287D+00
        ws( 25) = 0.9873592707487404D+00
        ws( 26) = 0.9854575469452606D+00
        ws( 27) = 0.9908789712086143D+00
        ws( 28) = 0.1020655317610563D+01
        ws( 29) = 0.1090281979927450D+01
        ws( 30) = 0.1160043669582138D+01
        ws( 31) = 0.8228237573174602D+00
        ws( 32) = 0.1991660200709678D+01
        ws( 33) = 0.3506896961752830D+01
        endif
        if( idomain .eq.  255 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.1256637061435917D+02
        rk1r = 0.4000000000000000D-01
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  32
        err = 0.9177574773097075D-13
        xs(  1) = 0.6423978798903155D+00
        xs(  2) = 0.1475281573246258D+01
        xs(  3) = 0.2314761695411950D+01
        xs(  4) = 0.3157955876210867D+01
        xs(  5) = 0.4005045302007964D+01
        xs(  6) = 0.4856618208695407D+01
        xs(  7) = 0.5713315424188024D+01
        xs(  8) = 0.6575742747118318D+01
        xs(  9) = 0.7444442311496411D+01
        xs( 10) = 0.8319882971195861D+01
        xs( 11) = 0.9202459316454513D+01
        xs( 12) = 0.1009249510451033D+02
        xs( 13) = 0.1099024818167055D+02
        xs( 14) = 0.1189591711491075D+02
        xs( 15) = 0.1280964897415709D+02
        xs( 16) = 0.1373154467364207D+02
        xs( 17) = 0.1466166744648068D+02
        xs( 18) = 0.1560004923519741D+02
        xs( 19) = 0.1654666163082636D+02
        xs( 20) = 0.1750143948712357D+02
        xs( 21) = 0.1846433499705298D+02
        xs( 22) = 0.1943530415832257D+02
        xs( 23) = 0.2041419950109234D+02
        xs( 24) = 0.2139946139671403D+02
        xs( 25) = 0.2238869949052541D+02
        xs( 26) = 0.2338785932806082D+02
        xs( 27) = 0.2439525430217796D+02
        xs( 28) = 0.2538807610715328D+02
        xs( 29) = 0.2631478794010462D+02
        xs( 30) = 0.2714845892535114D+02
        xs( 31) = 0.2921028173362267D+02
        xs( 32) = 0.2996353719739944D+02
        ws(  1) = 0.8244867364080175D+00
        ws(  2) = 0.8373267810971166D+00
        ws(  3) = 0.8413827236093832D+00
        ws(  4) = 0.8450569016743646D+00
        ws(  5) = 0.8492240727683324D+00
        ws(  6) = 0.8540296998019493D+00
        ws(  7) = 0.8594661384639223D+00
        ws(  8) = 0.8654790128572082D+00
        ws(  9) = 0.8719981416487521D+00
        ws( 10) = 0.8789489923585209D+00
        ws( 11) = 0.8862579031860823D+00
        ws( 12) = 0.8938559393441501D+00
        ws( 13) = 0.9016824980139017D+00
        ws( 14) = 0.9096812011892067D+00
        ws( 15) = 0.9178014395183778D+00
        ws( 16) = 0.9260019538761241D+00
        ws( 17) = 0.9342327613543685D+00
        ws( 18) = 0.9424943007862792D+00
        ws( 19) = 0.9508094063171350D+00
        ws( 20) = 0.9589572204908651D+00
        ws( 21) = 0.9665544023849415D+00
        ws( 22) = 0.9740126378027860D+00
        ws( 23) = 0.9834765327309243D+00
        ws( 24) = 0.9943594918872980D+00
        ws( 25) = 0.9899464856147330D+00
        ws( 26) = 0.9757203497163719D+00
        ws( 27) = 0.9998976470823662D+00
        ws( 28) = 0.1043065824627098D+01
        ws( 29) = 0.1058263207130848D+01
        ws( 30) = 0.7844354558931264D+00
        ws( 31) = 0.1020190974184468D+01
        ws( 32) = 0.3699524588685782D+01
        endif
        if( idomain .eq.  256 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.1256637061435917D+02
        rk1r = 0.1000000000000000D+00
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  32
        err = 0.2323145106030470D-13
        xs(  1) = 0.6432804182586185D+00
        xs(  2) = 0.1477312675690597D+01
        xs(  3) = 0.2317960857102339D+01
        xs(  4) = 0.3162344858677172D+01
        xs(  5) = 0.4010652698991468D+01
        xs(  6) = 0.4863480516961114D+01
        xs(  7) = 0.5721477839234639D+01
        xs(  8) = 0.6585260036081419D+01
        xs(  9) = 0.7455379925238145D+01
        xs( 10) = 0.8332318605008904D+01
        xs( 11) = 0.9216484824263212D+01
        xs( 12) = 0.1010821886631764D+02
        xs( 13) = 0.1100779870388440D+02
        xs( 14) = 0.1191544775501919D+02
        xs( 15) = 0.1283134335578466D+02
        xs( 16) = 0.1375562509526394D+02
        xs( 17) = 0.1468840468595565D+02
        xs( 18) = 0.1562977476926917D+02
        xs( 19) = 0.1657981073982473D+02
        xs( 20) = 0.1753857687847491D+02
        xs( 21) = 0.1850625264425075D+02
        xs( 22) = 0.1948250740542522D+02
        xs( 23) = 0.2046810720886295D+02
        xs( 24) = 0.2146348810038855D+02
        xs( 25) = 0.2246710859590002D+02
        xs( 26) = 0.2347984386353445D+02
        xs( 27) = 0.2450302272681881D+02
        xs( 28) = 0.2553662524693672D+02
        xs( 29) = 0.2657181554165426D+02
        xs( 30) = 0.2762860623730900D+02
        xs( 31) = 0.2878014668406704D+02
        xs( 32) = 0.2978662662834906D+02
        ws(  1) = 0.8256205640105048D+00
        ws(  2) = 0.8384856501732900D+00
        ws(  3) = 0.8425606648023478D+00
        ws(  4) = 0.8462597656312010D+00
        ws(  5) = 0.8504593566960035D+00
        ws(  6) = 0.8553056961403616D+00
        ws(  7) = 0.8607919243214521D+00
        ws(  8) = 0.8668647548639073D+00
        ws(  9) = 0.8734551590917594D+00
        ws( 10) = 0.8804902543567026D+00
        ws( 11) = 0.8878989442737094D+00
        ws( 12) = 0.8956152756332033D+00
        ws( 13) = 0.9035811520024825D+00
        ws( 14) = 0.9117462882242841D+00
        ws( 15) = 0.9200687042837488D+00
        ws( 16) = 0.9285156123622541D+00
        ws( 17) = 0.9370578004264863D+00
        ws( 18) = 0.9456812494234175D+00
        ws( 19) = 0.9544081716182878D+00
        ws( 20) = 0.9631215159502382D+00
        ws( 21) = 0.9722762578665780D+00
        ws( 22) = 0.9809095270195262D+00
        ws( 23) = 0.9895182374278118D+00
        ws( 24) = 0.9983831787784759D+00
        ws( 25) = 0.1008332637213364D+01
        ws( 26) = 0.1026152036950852D+01
        ws( 27) = 0.1046192214446109D+01
        ws( 28) = 0.1024851595916003D+01
        ws( 29) = 0.9470978974483742D+00
        ws( 30) = 0.8515498817458146D+00
        ws( 31) = 0.1515828485637038D+01
        ws( 32) = 0.2411440122023756D+01
        endif
        if( idomain .eq.  257 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.1256637061435917D+02
        rk1r = 0.2000000000000000D+00
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  32
        err = 0.4036316588584736D-13
        xs(  1) = 0.6436223462946267D+00
        xs(  2) = 0.1478093743667931D+01
        xs(  3) = 0.2319174779184103D+01
        xs(  4) = 0.3163978704869599D+01
        xs(  5) = 0.4012689121481152D+01
        xs(  6) = 0.4865898671981031D+01
        xs(  7) = 0.5724254166786617D+01
        xs(  8) = 0.6588368968988111D+01
        xs(  9) = 0.7458794502522719D+01
        xs( 10) = 0.8336010999336718D+01
        xs( 11) = 0.9220426727316900D+01
        xs( 12) = 0.1011238170245485D+02
        xs( 13) = 0.1101215379501411D+02
        xs( 14) = 0.1191996641397759D+02
        xs( 15) = 0.1283599672377894D+02
        xs( 16) = 0.1376038392739808D+02
        xs( 17) = 0.1469323890139021D+02
        xs( 18) = 0.1563465224201102D+02
        xs( 19) = 0.1658470003662262D+02
        xs( 20) = 0.1754345250619381D+02
        xs( 21) = 0.1851108990794607D+02
        xs( 22) = 0.1948715915665678D+02
        xs( 23) = 0.2047253308601415D+02
        xs( 24) = 0.2146804563032984D+02
        xs( 25) = 0.2247191308013864D+02
        xs( 26) = 0.2348343482510243D+02
        xs( 27) = 0.2450401982220969D+02
        xs( 28) = 0.2553612133664281D+02
        xs( 29) = 0.2658271958049961D+02
        xs( 30) = 0.2765981684270916D+02
        xs( 31) = 0.2875364784124715D+02
        xs( 32) = 0.2976160478148591D+02
        ws(  1) = 0.8260583121364663D+00
        ws(  2) = 0.8389231501238912D+00
        ws(  3) = 0.8429878852729183D+00
        ws(  4) = 0.8466716663105560D+00
        ws(  5) = 0.8508520269129713D+00
        ws(  6) = 0.8556760414536203D+00
        ws(  7) = 0.8611375877420724D+00
        ws(  8) = 0.8671840692523733D+00
        ws(  9) = 0.8737470090139895D+00
        ws( 10) = 0.8807539457186310D+00
        ws( 11) = 0.8881341756209136D+00
        ws( 12) = 0.8958219903027379D+00
        ws( 13) = 0.9037590735271415D+00
        ws( 14) = 0.9118951895642377D+00
        ws( 15) = 0.9201886897509181D+00
        ws( 16) = 0.9286065026327300D+00
        ws( 17) = 0.9371204948184816D+00
        ws( 18) = 0.9457109839028089D+00
        ws( 19) = 0.9543861625609775D+00
        ws( 20) = 0.9630451810408609D+00
        ws( 21) = 0.9723463910237800D+00
        ws( 22) = 0.9809871563997677D+00
        ws( 23) = 0.9887622920761637D+00
        ws( 24) = 0.9967212615607296D+00
        ws( 25) = 0.1009842818144506D+01
        ws( 26) = 0.1032671945077914D+01
        ws( 27) = 0.1046150927451862D+01
        ws( 28) = 0.9986852089080591D+00
        ws( 29) = 0.9071379451673653D+00
        ws( 30) = 0.9568746264644646D+00
        ws( 31) = 0.1642399174618281D+01
        ws( 32) = 0.2116075791477705D+01
        endif
        if( idomain .eq.  258 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.1256637061435917D+02
        rk1r = 0.4000000000000000D+00
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  32
        err = 0.4238271364181570D-13
        xs(  1) = 0.6438353760212299D+00
        xs(  2) = 0.1478586252750359D+01
        xs(  3) = 0.2319956941234384D+01
        xs(  4) = 0.3165064690104206D+01
        xs(  5) = 0.4014098499526129D+01
        xs(  6) = 0.4867656888819958D+01
        xs(  7) = 0.5726392752268191D+01
        xs(  8) = 0.6590925493058015D+01
        xs(  9) = 0.7461812267557533D+01
        xs( 10) = 0.8339538498299818D+01
        xs( 11) = 0.9224516908988399D+01
        xs( 12) = 0.1011709110797059D+02
        xs( 13) = 0.1101754162904831D+02
        xs( 14) = 0.1192609362139316D+02
        xs( 15) = 0.1284292509217092D+02
        xs( 16) = 0.1376817520567057D+02
        xs( 17) = 0.1470195399128234D+02
        xs( 18) = 0.1564435047458971D+02
        xs( 19) = 0.1659543836313025D+02
        xs( 20) = 0.1755528608084538D+02
        xs( 21) = 0.1852406873651706D+02
        xs( 22) = 0.1950132032339947D+02
        xs( 23) = 0.2048790334066287D+02
        xs( 24) = 0.2148473601082680D+02
        xs( 25) = 0.2248996065698911D+02
        xs( 26) = 0.2350249361839424D+02
        xs( 27) = 0.2452393406528859D+02
        xs( 28) = 0.2555782646746363D+02
        xs( 29) = 0.2660825503009358D+02
        xs( 30) = 0.2768697495526560D+02
        xs( 31) = 0.2877208408738697D+02
        xs( 32) = 0.2978000350018815D+02
        ws(  1) = 0.8263325797808059D+00
        ws(  2) = 0.8392073009089587D+00
        ws(  3) = 0.8432837814054044D+00
        ws(  4) = 0.8469843242730027D+00
        ws(  5) = 0.8511871377876475D+00
        ws(  6) = 0.8560396265139750D+00
        ws(  7) = 0.8615357513614026D+00
        ws(  8) = 0.8676227409242773D+00
        ws(  9) = 0.8742316894330043D+00
        ws( 10) = 0.8812894787592601D+00
        ws( 11) = 0.8887246013750043D+00
        ws( 12) = 0.8964704600225460D+00
        ws( 13) = 0.9044677656689899D+00
        ws( 14) = 0.9126653716005206D+00
        ws( 15) = 0.9210207737801287D+00
        ws( 16) = 0.9295000617940249D+00
        ws( 17) = 0.9380746269289685D+00
        ws( 18) = 0.9467232975384285D+00
        ws( 19) = 0.9554518737689253D+00
        ws( 20) = 0.9641608960252932D+00
        ws( 21) = 0.9735415428823120D+00
        ws( 22) = 0.9821879289750368D+00
        ws( 23) = 0.9899162364952603D+00
        ws( 24) = 0.9979529655392922D+00
        ws( 25) = 0.1011421846064003D+01
        ws( 26) = 0.1034523660768634D+01
        ws( 27) = 0.1046837844319716D+01
        ws( 28) = 0.9965956708659581D+00
        ws( 29) = 0.9055902474227446D+00
        ws( 30) = 0.9741065352339261D+00
        ws( 31) = 0.1653712200161155D+01
        ws( 32) = 0.2069947921136149D+01
        endif
        if( idomain .eq.  259 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.1256637061435917D+02
        rk1r = 0.1000000000000000D+01
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  31
        err = 0.4946700166225632D-13
        xs(  1) = 0.6471848802258392D+00
        xs(  2) = 0.1486298740804121D+01
        xs(  3) = 0.2332115079561192D+01
        xs(  4) = 0.3181763376054722D+01
        xs(  5) = 0.4035460293600966D+01
        xs(  6) = 0.4893833341644058D+01
        xs(  7) = 0.5757563700462769D+01
        xs(  8) = 0.6627297582896398D+01
        xs(  9) = 0.7503617471935822D+01
        xs( 10) = 0.8387032423101246D+01
        xs( 11) = 0.9277977523654211D+01
        xs( 12) = 0.1017681769050875D+02
        xs( 13) = 0.1108385490675513D+02
        xs( 14) = 0.1199933569259574D+02
        xs( 15) = 0.1292346047646455D+02
        xs( 16) = 0.1385639608615890D+02
        xs( 17) = 0.1479827411167679D+02
        xs( 18) = 0.1574923485696631D+02
        xs( 19) = 0.1670936908534124D+02
        xs( 20) = 0.1767884149080068D+02
        xs( 21) = 0.1865769995007300D+02
        xs( 22) = 0.1964598139089318D+02
        xs( 23) = 0.2064448674063604D+02
        xs( 24) = 0.2165258947017265D+02
        xs( 25) = 0.2267335400071780D+02
        xs( 26) = 0.2370079434975156D+02
        xs( 27) = 0.2473907929008463D+02
        xs( 28) = 0.2577282600773480D+02
        xs( 29) = 0.2683212128450822D+02
        xs( 30) = 0.2797246657727444D+02
        xs( 31) = 0.2915018499871126D+02
        ws(  1) = 0.8306368266403511D+00
        ws(  2) = 0.8436130072898049D+00
        ws(  3) = 0.8477726169114226D+00
        ws(  4) = 0.8515813073899213D+00
        ws(  5) = 0.8559212272193980D+00
        ws(  6) = 0.8609395885140925D+00
        ws(  7) = 0.8666292151067423D+00
        ws(  8) = 0.8729358542641680D+00
        ws(  9) = 0.8797886704392440D+00
        ws( 10) = 0.8871136371739388D+00
        ws( 11) = 0.8948374159651828D+00
        ws( 12) = 0.9028934110687483D+00
        ws( 13) = 0.9112212681928838D+00
        ws( 14) = 0.9197724794391883D+00
        ws( 15) = 0.9285067188401379D+00
        ws( 16) = 0.9373891089281705D+00
        ws( 17) = 0.9463956540454973D+00
        ws( 18) = 0.9555181673125061D+00
        ws( 19) = 0.9647453189808902D+00
        ws( 20) = 0.9741472819032353D+00
        ws( 21) = 0.9839747724485709D+00
        ws( 22) = 0.9936849407181109D+00
        ws( 23) = 0.1001102427924042D+01
        ws( 24) = 0.1009963892765413D+01
        ws( 25) = 0.1029928272043509D+01
        ws( 26) = 0.1055663521478732D+01
        ws( 27) = 0.1064948324510261D+01
        ws( 28) = 0.9713974771819741D+00
        ws( 29) = 0.8019028173605516D+00
        ws( 30) = 0.1104972002937498D+01
        ws( 31) = 0.3224218801731805D+01
        endif
        if( idomain .eq.  260 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.1256637061435917D+02
        rk1r = 0.1570796326794897D+01
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  30
        err = 0.6632669249620692D-13
        xs(  1) = 0.6523833991064427D+00
        xs(  2) = 0.1498224812982697D+01
        xs(  3) = 0.2350794694747725D+01
        xs(  4) = 0.3207189668412218D+01
        xs(  5) = 0.4067625435474306D+01
        xs(  6) = 0.4932739785071984D+01
        xs(  7) = 0.5803232255178498D+01
        xs(  8) = 0.6679773827799498D+01
        xs(  9) = 0.7562975949300426D+01
        xs( 10) = 0.8453379186160168D+01
        xs( 11) = 0.9351450813307599D+01
        xs( 12) = 0.1025758723405836D+02
        xs( 13) = 0.1117211905819607D+02
        xs( 14) = 0.1209532091466933D+02
        xs( 15) = 0.1302742006135592D+02
        xs( 16) = 0.1396860032323956D+02
        xs( 17) = 0.1491902481962391D+02
        xs( 18) = 0.1587884261071479D+02
        xs( 19) = 0.1684815514276010D+02
        xs( 20) = 0.1782716554924052D+02
        xs( 21) = 0.1881608000938787D+02
        xs( 22) = 0.1981479609796143D+02
        xs( 23) = 0.2082365602392092D+02
        xs( 24) = 0.2184327222086932D+02
        xs( 25) = 0.2287430761654571D+02
        xs( 26) = 0.2391713101013048D+02
        xs( 27) = 0.2496009842757707D+02
        xs( 28) = 0.2604956218663199D+02
        xs( 29) = 0.2715488287914008D+02
        xs( 30) = 0.2816313220258590D+02
        ws(  1) = 0.8373055271541936D+00
        ws(  2) = 0.8503649220807987D+00
        ws(  3) = 0.8545241351653103D+00
        ws(  4) = 0.8583231408789251D+00
        ws(  5) = 0.8626588401692507D+00
        ws(  6) = 0.8676876637678633D+00
        ws(  7) = 0.8734095657999610D+00
        ws(  8) = 0.8797756212454853D+00
        ws(  9) = 0.8867187869470579D+00
        ws( 10) = 0.8941656355502020D+00
        ws( 11) = 0.9020432502380921D+00
        ws( 12) = 0.9102844284391527D+00
        ws( 13) = 0.9188265490970831D+00
        ws( 14) = 0.9276137856489854D+00
        ws( 15) = 0.9366101906484248D+00
        ws( 16) = 0.9457831864391645D+00
        ws( 17) = 0.9550925654484248D+00
        ws( 18) = 0.9645647218524566D+00
        ws( 19) = 0.9741627839169866D+00
        ws( 20) = 0.9835762885974944D+00
        ws( 21) = 0.9943812805788925D+00
        ws( 22) = 0.1003487747474399D+01
        ws( 23) = 0.1014037037138362D+01
        ws( 24) = 0.1029296150765727D+01
        ws( 25) = 0.1031119958526500D+01
        ws( 26) = 0.1034863394693203D+01
        ws( 27) = 0.1036727717369679D+01
        ws( 28) = 0.1075529117532242D+01
        ws( 29) = 0.1502838469443430D+01
        ws( 30) = 0.1276192026453434D+01
        endif
        if( idomain .eq.  261 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.1256637061435917D+02
        rk1r = 0.3141592653589793D+01
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  32
        err = 0.7133143906239003D-13
        xs(  1) = 0.6437092438940821D+00
        xs(  2) = 0.1478240911062623D+01
        xs(  3) = 0.2319265955377125D+01
        xs(  4) = 0.3163851796720899D+01
        xs(  5) = 0.4012162028877268D+01
        xs(  6) = 0.4864798536976750D+01
        xs(  7) = 0.5722446752876299D+01
        xs(  8) = 0.6585784984861129D+01
        xs(  9) = 0.7455450540066226D+01
        xs( 10) = 0.8332023949695907D+01
        xs( 11) = 0.9216021510383340D+01
        xs( 12) = 0.1010789296868575D+02
        xs( 13) = 0.1100802303050201D+02
        xs( 14) = 0.1191673577216355D+02
        xs( 15) = 0.1283430122263262D+02
        xs( 16) = 0.1376094345251831D+02
        xs( 17) = 0.1469684988517603D+02
        xs( 18) = 0.1564218026144070D+02
        xs( 19) = 0.1659707618468808D+02
        xs( 20) = 0.1756168499782411D+02
        xs( 21) = 0.1853607825429751D+02
        xs( 22) = 0.1952063310383288D+02
        xs( 23) = 0.2051519738546635D+02
        xs( 24) = 0.2151985578243942D+02
        xs( 25) = 0.2253573618027306D+02
        xs( 26) = 0.2356345381968708D+02
        xs( 27) = 0.2460172248087653D+02
        xs( 28) = 0.2565001476950273D+02
        xs( 29) = 0.2671237256360545D+02
        xs( 30) = 0.2779426121869288D+02
        xs( 31) = 0.2889494390727864D+02
        xs( 32) = 0.3004510107285534D+02
        ws(  1) = 0.8261558485364082D+00
        ws(  2) = 0.8389348268742192D+00
        ws(  3) = 0.8428564972339248D+00
        ws(  4) = 0.8463634906018160D+00
        ws(  5) = 0.8503613704049003D+00
        ws(  6) = 0.8550271085236835D+00
        ws(  7) = 0.8603828751498434D+00
        ws(  8) = 0.8664000536957785D+00
        ws(  9) = 0.8730279267323972D+00
        ws( 10) = 0.8802049783406457D+00
        ws( 11) = 0.8878650755312403D+00
        ws( 12) = 0.8959418830150530D+00
        ws( 13) = 0.9043721494239716D+00
        ws( 14) = 0.9130981595150646D+00
        ws( 15) = 0.9220699173230607D+00
        ws( 16) = 0.9312457927287021D+00
        ws( 17) = 0.9405934297238276D+00
        ws( 18) = 0.9500928578833348D+00
        ws( 19) = 0.9597133683634269D+00
        ws( 20) = 0.9695372714144253D+00
        ws( 21) = 0.9792945106910654D+00
        ws( 22) = 0.9896131814893214D+00
        ws( 23) = 0.9998879281043758D+00
        ws( 24) = 0.1010489741207258D+01
        ws( 25) = 0.1021197594216403D+01
        ws( 26) = 0.1030188612411532D+01
        ws( 27) = 0.1039376841637891D+01
        ws( 28) = 0.1057534634264199D+01
        ws( 29) = 0.1097786256322769D+01
        ws( 30) = 0.1154618442212265D+01
        ws( 31) = 0.1174090247991705D+01
        ws( 32) = 0.1107691836580067D+01
        endif
        if( idomain .eq.  262 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.1256637061435917D+02
        rk1r = 0.6283185307179586D+01
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  32
        err = 0.5603622141784165D-13
        xs(  1) = 0.6339413263675815D+00
        xs(  2) = 0.1455575610699926D+01
        xs(  3) = 0.2283061556510505D+01
        xs(  4) = 0.3113242383854542D+01
        xs(  5) = 0.3946062255203147D+01
        xs(  6) = 0.4781960302223225D+01
        xs(  7) = 0.5621527683473107D+01
        xs(  8) = 0.6465419327702659D+01
        xs(  9) = 0.7314316433877840D+01
        xs( 10) = 0.8168902505114405D+01
        xs( 11) = 0.9029844105312444D+01
        xs( 12) = 0.9897775048036374D+01
        xs( 13) = 0.1077328372224076D+02
        xs( 14) = 0.1165690448289266D+02
        xs( 15) = 0.1254911307835192D+02
        xs( 16) = 0.1345032621425011D+02
        xs( 17) = 0.1436090466552812D+02
        xs( 18) = 0.1528116044652412D+02
        xs( 19) = 0.1621136475246530D+02
        xs( 20) = 0.1715175966650358D+02
        xs( 21) = 0.1810257136423591D+02
        xs( 22) = 0.1906402015392888D+02
        xs( 23) = 0.2003636987553271D+02
        xs( 24) = 0.2101977734699309D+02
        xs( 25) = 0.2201460319151261D+02
        xs( 26) = 0.2302164535695468D+02
        xs( 27) = 0.2404105045502196D+02
        xs( 28) = 0.2507331987084625D+02
        xs( 29) = 0.2611802894722359D+02
        xs( 30) = 0.2718699800103898D+02
        xs( 31) = 0.2826775827187548D+02
        xs( 32) = 0.2940529889668828D+02
        ws(  1) = 0.8135576480574305D+00
        ws(  2) = 0.8257474039149949D+00
        ws(  3) = 0.8289246011105404D+00
        ws(  4) = 0.8314482736424638D+00
        ws(  5) = 0.8342685708345146D+00
        ws(  6) = 0.8376272393388629D+00
        ws(  7) = 0.8416172480555622D+00
        ws(  8) = 0.8462799465588706D+00
        ws(  9) = 0.8516285171090353D+00
        ws( 10) = 0.8576549661286283D+00
        ws( 11) = 0.8643340964466394D+00
        ws( 12) = 0.8716259755745253D+00
        ws( 13) = 0.8794805034710113D+00
        ws( 14) = 0.8878402988414529D+00
        ws( 15) = 0.8966462407417247D+00
        ws( 16) = 0.9058400942203153D+00
        ws( 17) = 0.9153687400357435D+00
        ws( 18) = 0.9251877437213213D+00
        ws( 19) = 0.9352604668876947D+00
        ws( 20) = 0.9455683623619502D+00
        ws( 21) = 0.9560847883211965D+00
        ws( 22) = 0.9668503967157945D+00
        ws( 23) = 0.9778729861153176D+00
        ws( 24) = 0.9891802996429320D+00
        ws( 25) = 0.1000912700808030D+01
        ws( 26) = 0.1012431053526565D+01
        ws( 27) = 0.1023745926793292D+01
        ws( 28) = 0.1037026291696412D+01
        ws( 29) = 0.1059541401924950D+01
        ws( 30) = 0.1113548012193185D+01
        ws( 31) = 0.1140100088011978D+01
        ws( 32) = 0.1454676222294796D+01
        endif
        if( idomain .eq.  263 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.1256637061435917D+02
        rk1r = 0.9424777960769379D+01
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  35
        err = 0.5273603940872135D-13
        xs(  1) = 0.6319739756717476D+00
        xs(  2) = 0.1450678938028596D+01
        xs(  3) = 0.2274321773361925D+01
        xs(  4) = 0.3099273739200002D+01
        xs(  5) = 0.3925038310222325D+01
        xs(  6) = 0.4751667524130077D+01
        xs(  7) = 0.5579433346310473D+01
        xs(  8) = 0.6408750813532131D+01
        xs(  9) = 0.7240148668004682D+01
        xs( 10) = 0.8074249239383636D+01
        xs( 11) = 0.8911748369208610D+01
        xs( 12) = 0.9753393388565938D+01
        xs( 13) = 0.1059995959719721D+02
        xs( 14) = 0.1145222648187621D+02
        xs( 15) = 0.1231095560426779D+02
        xs( 16) = 0.1317687107287780D+02
        xs( 17) = 0.1405064474627648D+02
        xs( 18) = 0.1493288595523420D+02
        xs( 19) = 0.1582413722023069D+02
        xs( 20) = 0.1672487484496468D+02
        xs( 21) = 0.1763551385075615D+02
        xs( 22) = 0.1855642232345335D+02
        xs( 23) = 0.1948791415199492D+02
        xs( 24) = 0.2043031019336173D+02
        xs( 25) = 0.2138390248409403D+02
        xs( 26) = 0.2234894835889616D+02
        xs( 27) = 0.2332589781943498D+02
        xs( 28) = 0.2431513164523377D+02
        xs( 29) = 0.2531723814217316D+02
        xs( 30) = 0.2633124639358440D+02
        xs( 31) = 0.2736384906771694D+02
        xs( 32) = 0.2840503437898195D+02
        xs( 33) = 0.2946570811802158D+02
        xs( 34) = 0.3063776726833927D+02
        xs( 35) = 0.3167544863927914D+02
        ws(  1) = 0.8109331512609974D+00
        ws(  2) = 0.8224404886056442D+00
        ws(  3) = 0.8244657006692919D+00
        ws(  4) = 0.8253756987794386D+00
        ws(  5) = 0.8261657909838312D+00
        ws(  6) = 0.8271389612363859D+00
        ws(  7) = 0.8284622868266150D+00
        ws(  8) = 0.8302610919774384D+00
        ws(  9) = 0.8326386558606640D+00
        ws( 10) = 0.8356788289355573D+00
        ws( 11) = 0.8394444143423022D+00
        ws( 12) = 0.8439752361240171D+00
        ws( 13) = 0.8492874182855470D+00
        ws( 14) = 0.8553735989324727D+00
        ws( 15) = 0.8622056166045675D+00
        ws( 16) = 0.8697375767204560D+00
        ws( 17) = 0.8779113847452789D+00
        ws( 18) = 0.8866613940474772D+00
        ws( 19) = 0.8959198713423924D+00
        ws( 20) = 0.9056247455292311D+00
        ws( 21) = 0.9157130529652391D+00
        ws( 22) = 0.9261574999578726D+00
        ws( 23) = 0.9368923407825016D+00
        ws( 24) = 0.9479379098561082D+00
        ws( 25) = 0.9592430043390885D+00
        ws( 26) = 0.9709012548208248D+00
        ws( 27) = 0.9831513815364596D+00
        ws( 28) = 0.9956621436900209D+00
        ws( 29) = 0.1008780302672230D+01
        ws( 30) = 0.1019454322990158D+01
        ws( 31) = 0.1041308969987567D+01
        ws( 32) = 0.1070959071056760D+01
        ws( 33) = 0.9863842455954579D+00
        ws( 34) = 0.1234016580160003D+01
        ws( 35) = 0.1740497634816413D+01
        endif
        if( idomain .eq.  264 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.1256637061435917D+02
        rk1r = 0.1256637061435917D+02
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  35
        err = 0.5731920153400879D-13
        xs(  1) = 0.6424698986841521D+00
        xs(  2) = 0.1474566030846850D+01
        xs(  3) = 0.2311189336027750D+01
        xs(  4) = 0.3148367296310850D+01
        xs(  5) = 0.3985310568045354D+01
        xs(  6) = 0.4821788023922037D+01
        xs(  7) = 0.5657796344178813D+01
        xs(  8) = 0.6493487737758078D+01
        xs(  9) = 0.7329148179816271D+01
        xs( 10) = 0.8165186774133931D+01
        xs( 11) = 0.9002126193044274D+01
        xs( 12) = 0.9840590857871447D+01
        xs( 13) = 0.1068129213080117D+02
        xs( 14) = 0.1152501029359029D+02
        xs( 15) = 0.1237257416609563D+02
        xs( 16) = 0.1322483882037207D+02
        xs( 17) = 0.1408266342940963D+02
        xs( 18) = 0.1494688925032972D+02
        xs( 19) = 0.1581832217895967D+02
        xs( 20) = 0.1669771758632788D+02
        xs( 21) = 0.1758576866018240D+02
        xs( 22) = 0.1848310801148759D+02
        xs( 23) = 0.1939030204268227D+02
        xs( 24) = 0.2030786508951205D+02
        xs( 25) = 0.2123625626501158D+02
        xs( 26) = 0.2217592468313034D+02
        xs( 27) = 0.2312725346512876D+02
        xs( 28) = 0.2409067609395226D+02
        xs( 29) = 0.2506671645466592D+02
        xs( 30) = 0.2605511440149683D+02
        xs( 31) = 0.2705887966177338D+02
        xs( 32) = 0.2807749207713117D+02
        xs( 33) = 0.2911005520246288D+02
        xs( 34) = 0.3013388573780347D+02
        xs( 35) = 0.3123838884110153D+02
        ws(  1) = 0.8243473288255651D+00
        ws(  2) = 0.8356944904853399D+00
        ws(  3) = 0.8371190936977438D+00
        ws(  4) = 0.8371257998215479D+00
        ws(  5) = 0.8367258992538920D+00
        ws(  6) = 0.8362293851512838D+00
        ws(  7) = 0.8358129095217277D+00
        ws(  8) = 0.8356177030596335D+00
        ws(  9) = 0.8357715161650791D+00
        ws( 10) = 0.8363929836156135D+00
        ws( 11) = 0.8375901639277262D+00
        ws( 12) = 0.8394580156338027D+00
        ws( 13) = 0.8420749296566936D+00
        ws( 14) = 0.8454999119281008D+00
        ws( 15) = 0.8497706858102075D+00
        ws( 16) = 0.8549022201303382D+00
        ws( 17) = 0.8608874640999783D+00
        ws( 18) = 0.8676989106310742D+00
        ws( 19) = 0.8752932009695028D+00
        ws( 20) = 0.8836130316979633D+00
        ws( 21) = 0.8925933993221927D+00
        ws( 22) = 0.9021775243502536D+00
        ws( 23) = 0.9122925096053031D+00
        ws( 24) = 0.9229053787014502D+00
        ws( 25) = 0.9339478820539069D+00
        ws( 26) = 0.9454415546008882D+00
        ws( 27) = 0.9573055251691822D+00
        ws( 28) = 0.9695875467037264D+00
        ws( 29) = 0.9820861370579542D+00
        ws( 30) = 0.9962017047845622D+00
        ws( 31) = 0.1011171682698975D+01
        ws( 32) = 0.1019055357599804D+01
        ws( 33) = 0.1054533450332397D+01
        ws( 34) = 0.1004406177948302D+01
        ws( 35) = 0.1510544119703666D+01
        endif
        if( idomain .eq.  265 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.1256637061435917D+02
        rk1r = 0.1570796326794897D+02
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  36
        err = 0.9933681802437010D-13
        xs(  1) = 0.6536710922836368D+00
        xs(  2) = 0.1500177523897910D+01
        xs(  3) = 0.2351052421632561D+01
        xs(  4) = 0.3202100795152787D+01
        xs(  5) = 0.4052345546496369D+01
        xs(  6) = 0.4901352513816420D+01
        xs(  7) = 0.5748892803085498D+01
        xs(  8) = 0.6594870584373981D+01
        xs(  9) = 0.7439305231033713D+01
        xs( 10) = 0.8282327686497190D+01
        xs( 11) = 0.9124180614096604D+01
        xs( 12) = 0.9965218639985647D+01
        xs( 13) = 0.1080590739212793D+02
        xs( 14) = 0.1164681981611470D+02
        xs( 15) = 0.1248862989414590D+02
        xs( 16) = 0.1333210242172483D+02
        xs( 17) = 0.1417807956755544D+02
        xs( 18) = 0.1502746348806890D+02
        xs( 19) = 0.1588119710117543D+02
        xs( 20) = 0.1674024138769964D+02
        xs( 21) = 0.1760555354197620D+02
        xs( 22) = 0.1847806852104177D+02
        xs( 23) = 0.1935867186143120D+02
        xs( 24) = 0.2024821183372255D+02
        xs( 25) = 0.2114747321927433D+02
        xs( 26) = 0.2205720579971985D+02
        xs( 27) = 0.2297806833635077D+02
        xs( 28) = 0.2391089654159345D+02
        xs( 29) = 0.2485644397639016D+02
        xs( 30) = 0.2581526117640063D+02
        xs( 31) = 0.2678902745518010D+02
        xs( 32) = 0.2778018850058155D+02
        xs( 33) = 0.2878078684365265D+02
        xs( 34) = 0.2980009496318399D+02
        xs( 35) = 0.3092141281914177D+02
        xs( 36) = 0.3195338569887147D+02
        ws(  1) = 0.8386942681166611D+00
        ws(  2) = 0.8500728016229123D+00
        ws(  3) = 0.8512109752258714D+00
        ws(  4) = 0.8507438870901908D+00
        ws(  5) = 0.8496770294184324D+00
        ws(  6) = 0.8482996621718585D+00
        ws(  7) = 0.8467651608899144D+00
        ws(  8) = 0.8451936912393013D+00
        ws(  9) = 0.8436974376076752D+00
        ws( 10) = 0.8423878767336972D+00
        ws( 11) = 0.8413770565445921D+00
        ws( 12) = 0.8407767216423015D+00
        ws( 13) = 0.8406964071390468D+00
        ws( 14) = 0.8412409576944720D+00
        ws( 15) = 0.8425067974086377D+00
        ws( 16) = 0.8445787331508270D+00
        ws( 17) = 0.8475264590678722D+00
        ws( 18) = 0.8513993534442612D+00
        ws( 19) = 0.8562282696805990D+00
        ws( 20) = 0.8620196640649631D+00
        ws( 21) = 0.8687593187875940D+00
        ws( 22) = 0.8764180469908802D+00
        ws( 23) = 0.8849363808998286D+00
        ws( 24) = 0.8942759770020916D+00
        ws( 25) = 0.9043651680096045D+00
        ws( 26) = 0.9152196526367283D+00
        ws( 27) = 0.9266435407792224D+00
        ws( 28) = 0.9388783305705730D+00
        ws( 29) = 0.9521875376749172D+00
        ws( 30) = 0.9675348390599698D+00
        ws( 31) = 0.9793191428041402D+00
        ws( 32) = 0.9979517909264682D+00
        ws( 33) = 0.1014902337193121D+01
        ws( 34) = 0.9728608149227403D+00
        ws( 35) = 0.1179038479157450D+01
        ws( 36) = 0.1771465115019731D+01
        endif
        if( idomain .eq.  266 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.1256637061435917D+02
        rk1r = 0.1884955592153876D+02
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  36
        err = 0.9378075159858884D-13
        xs(  1) = 0.6666890267603252D+00
        xs(  2) = 0.1529996942154308D+01
        xs(  3) = 0.2397622212905168D+01
        xs(  4) = 0.3265200717180550D+01
        xs(  5) = 0.4131641602923267D+01
        xs(  6) = 0.4996395811607092D+01
        xs(  7) = 0.5859109400799894D+01
        xs(  8) = 0.6719547496313480D+01
        xs(  9) = 0.7577575143927978D+01
        xs( 10) = 0.8433152979733450D+01
        xs( 11) = 0.9286338709562758D+01
        xs( 12) = 0.1013728954855221D+02
        xs( 13) = 0.1098626554890236D+02
        xs( 14) = 0.1183363167757343D+02
        xs( 15) = 0.1267985996571271D+02
        xs( 16) = 0.1352552888653851D+02
        xs( 17) = 0.1437132237835775D+02
        xs( 18) = 0.1521802415103345D+02
        xs( 19) = 0.1606651185737191D+02
        xs( 20) = 0.1691774564693767D+02
        xs( 21) = 0.1777275416266233D+02
        xs( 22) = 0.1863261774500366D+02
        xs( 23) = 0.1949845081667578D+02
        xs( 24) = 0.2037138716865710D+02
        xs( 25) = 0.2125254798744586D+02
        xs( 26) = 0.2214302518338341D+02
        xs( 27) = 0.2304392083088154D+02
        xs( 28) = 0.2395626690218410D+02
        xs( 29) = 0.2488105915328172D+02
        xs( 30) = 0.2581932411807841D+02
        xs( 31) = 0.2677088437908482D+02
        xs( 32) = 0.2774037505255077D+02
        xs( 33) = 0.2872895786267033D+02
        xs( 34) = 0.2972870595836844D+02
        xs( 35) = 0.3072719261099694D+02
        xs( 36) = 0.3186153995895050D+02
        ws(  1) = 0.8553822091906154D+00
        ws(  2) = 0.8668899017723702D+00
        ws(  3) = 0.8678711479034221D+00
        ws(  4) = 0.8671255170656073D+00
        ws(  5) = 0.8656685580592997D+00
        ws(  6) = 0.8637819029303513D+00
        ws(  7) = 0.8616063500769136D+00
        ws(  8) = 0.8592474002770562D+00
        ws(  9) = 0.8568012720629611D+00
        ws( 10) = 0.8543639958693277D+00
        ws( 11) = 0.8520336533921797D+00
        ws( 12) = 0.8499113310684250D+00
        ws( 13) = 0.8481013623915903D+00
        ws( 14) = 0.8467097064431874D+00
        ws( 15) = 0.8458432720176985D+00
        ws( 16) = 0.8456086275149804D+00
        ws( 17) = 0.8461090594519768D+00
        ws( 18) = 0.8474410385630553D+00
        ws( 19) = 0.8496945351358144D+00
        ws( 20) = 0.8529448336937436D+00
        ws( 21) = 0.8572521960669057D+00
        ws( 22) = 0.8626623573025581D+00
        ws( 23) = 0.8691950226958061D+00
        ws( 24) = 0.8768661912611933D+00
        ws( 25) = 0.8856342062483480D+00
        ws( 26) = 0.8955102841329671D+00
        ws( 27) = 0.9064120151506135D+00
        ws( 28) = 0.9184235732824596D+00
        ws( 29) = 0.9309986439600432D+00
        ws( 30) = 0.9457282277191286D+00
        ws( 31) = 0.9589485135522524D+00
        ws( 32) = 0.9745406964317356D+00
        ws( 33) = 0.1000787194886174D+01
        ws( 34) = 0.1005595149735891D+01
        ws( 35) = 0.9836351970573869D+00
        ws( 36) = 0.1602203935662988D+01
        endif
        if( idomain .eq.  267 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.1256637061435917D+02
        rk1r = 0.2199114857512855D+02
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  39
        err = 0.4409282168980657D-13
        xs(  1) = 0.6718565863574026D+00
        xs(  2) = 0.1541865171958106D+01
        xs(  3) = 0.2416242456712224D+01
        xs(  4) = 0.3290589453798827D+01
        xs(  5) = 0.4163791623070937D+01
        xs(  6) = 0.5035262499190555D+01
        xs(  7) = 0.5904590704941674D+01
        xs(  8) = 0.6771461291135006D+01
        xs(  9) = 0.7635633942959705D+01
        xs( 10) = 0.8496937659999439D+01
        xs( 11) = 0.9355270951548444D+01
        xs( 12) = 0.1021060442865526D+02
        xs( 13) = 0.1106298428985815D+02
        xs( 14) = 0.1191253648477270D+02
        xs( 15) = 0.1275947072629117D+02
        xs( 16) = 0.1360408490501507D+02
        xs( 17) = 0.1444676847658649D+02
        xs( 18) = 0.1528800569000630D+02
        xs( 19) = 0.1612837748825540D+02
        xs( 20) = 0.1696856216758816D+02
        xs( 21) = 0.1780933346987863D+02
        xs( 22) = 0.1865155696556787D+02
        xs( 23) = 0.1949618358314902D+02
        xs( 24) = 0.2034423964501950D+02
        xs( 25) = 0.2119681247631489D+02
        xs( 26) = 0.2205503950455264D+02
        xs( 27) = 0.2292008696684026D+02
        xs( 28) = 0.2379314599288058D+02
        xs( 29) = 0.2467538029558590D+02
        xs( 30) = 0.2556790661756303D+02
        xs( 31) = 0.2647205031937696D+02
        xs( 32) = 0.2738889852984936D+02
        xs( 33) = 0.2831906430613455D+02
        xs( 34) = 0.2926381025163437D+02
        xs( 35) = 0.3022919009182787D+02
        xs( 36) = 0.3119938112722763D+02
        xs( 37) = 0.3220015516092650D+02
        xs( 38) = 0.3330299579668160D+02
        xs( 39) = 0.3430001294415064D+02
        ws(  1) = 0.8620147891396323D+00
        ws(  2) = 0.8736265578166696D+00
        ws(  3) = 0.8746346272374885D+00
        ws(  4) = 0.8738952976357038D+00
        ws(  5) = 0.8724152520725075D+00
        ws(  6) = 0.8704588998850032D+00
        ws(  7) = 0.8681453769313229D+00
        ws(  8) = 0.8655558255102896D+00
        ws(  9) = 0.8627609538131225D+00
        ws( 10) = 0.8598294793606847D+00
        ws( 11) = 0.8568321455505959D+00
        ws( 12) = 0.8538424564487996D+00
        ws( 13) = 0.8509382214753716D+00
        ws( 14) = 0.8482010239660800D+00
        ws( 15) = 0.8457170555572647D+00
        ws( 16) = 0.8435760517370846D+00
        ws( 17) = 0.8418718234610376D+00
        ws( 18) = 0.8406995307324308D+00
        ws( 19) = 0.8401571560888328D+00
        ws( 20) = 0.8403410966505956D+00
        ws( 21) = 0.8413454987031332D+00
        ws( 22) = 0.8432600256889712D+00
        ws( 23) = 0.8461647158935273D+00
        ws( 24) = 0.8501293048901660D+00
        ws( 25) = 0.8552054739049489D+00
        ws( 26) = 0.8614454443899900D+00
        ws( 27) = 0.8688499040934688D+00
        ws( 28) = 0.8774352308562645D+00
        ws( 29) = 0.8872574513185519D+00
        ws( 30) = 0.8980558198325839D+00
        ws( 31) = 0.9102403273913564D+00
        ws( 32) = 0.9238549710854860D+00
        ws( 33) = 0.9367571992038816D+00
        ws( 34) = 0.9538158339037052D+00
        ws( 35) = 0.9693223682871716D+00
        ws( 36) = 0.9981954298248477D+00
        ws( 37) = 0.9400790934584476D+00
        ws( 38) = 0.1173833656359757D+01
        ws( 39) = 0.1718317753502872D+01
        endif
        if( idomain .eq.  268 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.1256637061435917D+02
        rk1r = 0.2513274122871834D+02
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  41
        err = 0.6286249404984431D-13
        xs(  1) = 0.6835593681286366D+00
        xs(  2) = 0.1568732861534311D+01
        xs(  3) = 0.2458374423152174D+01
        xs(  4) = 0.3348015945170286D+01
        xs(  5) = 0.4236523280096775D+01
        xs(  6) = 0.5123289466869811D+01
        xs(  7) = 0.6007873328063745D+01
        xs(  8) = 0.6889917148963001D+01
        xs(  9) = 0.7769122724074103D+01
        xs( 10) = 0.8645243962588793D+01
        xs( 11) = 0.9518085463561530D+01
        xs( 12) = 0.1038750361796106D+02
        xs( 13) = 0.1125340901158792D+02
        xs( 14) = 0.1211576969969333D+02
        xs( 15) = 0.1297461513659472D+02
        xs( 16) = 0.1383004053425947D+02
        xs( 17) = 0.1468221168839418D+02
        xs( 18) = 0.1553136952860159D+02
        xs( 19) = 0.1637783504156992D+02
        xs( 20) = 0.1722201297507138D+02
        xs( 21) = 0.1806439568644639D+02
        xs( 22) = 0.1890556372333895D+02
        xs( 23) = 0.1974618827160989D+02
        xs( 24) = 0.2058702785773723D+02
        xs( 25) = 0.2142892545784941D+02
        xs( 26) = 0.2227280123869695D+02
        xs( 27) = 0.2311964917653993D+02
        xs( 28) = 0.2397052192659655D+02
        xs( 29) = 0.2482651076311193D+02
        xs( 30) = 0.2568876421622296D+02
        xs( 31) = 0.2655843824742734D+02
        xs( 32) = 0.2743670711478132D+02
        xs( 33) = 0.2832472441814707D+02
        xs( 34) = 0.2922390031674211D+02
        xs( 35) = 0.3013486928442294D+02
        xs( 36) = 0.3105909499731455D+02
        xs( 37) = 0.3199804510851596D+02
        xs( 38) = 0.3295681246190064D+02
        xs( 39) = 0.3394095123899996D+02
        xs( 40) = 0.3494811288987548D+02
        xs( 41) = 0.3604387908315778D+02
        ws(  1) = 0.8770326441615397D+00
        ws(  2) = 0.8888643641583985D+00
        ws(  3) = 0.8899181354466248D+00
        ws(  4) = 0.8891979806844112D+00
        ws(  5) = 0.8877195636006276D+00
        ws(  6) = 0.8857403295158842D+00
        ws(  7) = 0.8833681150622217D+00
        ws(  8) = 0.8806699605462048D+00
        ws(  9) = 0.8777001977792733D+00
        ws( 10) = 0.8745096876651047D+00
        ws( 11) = 0.8711493240485112D+00
        ws( 12) = 0.8676720147799520D+00
        ws( 13) = 0.8641333822914141D+00
        ws( 14) = 0.8605928156446537D+00
        ws( 15) = 0.8571138814013382D+00
        ws( 16) = 0.8537644984140655D+00
        ws( 17) = 0.8506178249909065D+00
        ws( 18) = 0.8477513140558620D+00
        ws( 19) = 0.8452470337076817D+00
        ws( 20) = 0.8431908797099689D+00
        ws( 21) = 0.8416710262821997D+00
        ws( 22) = 0.8407775502154921D+00
        ws( 23) = 0.8405981825246902D+00
        ws( 24) = 0.8412205770378910D+00
        ws( 25) = 0.8427277503985350D+00
        ws( 26) = 0.8451898891310202D+00
        ws( 27) = 0.8486806476011194D+00
        ws( 28) = 0.8532423783942208D+00
        ws( 29) = 0.8589399649360838D+00
        ws( 30) = 0.8657751537322028D+00
        ws( 31) = 0.8737318533098312D+00
        ws( 32) = 0.8828816182622843D+00
        ws( 33) = 0.8933682675248988D+00
        ws( 34) = 0.9048990694792018D+00
        ws( 35) = 0.9173188860447739D+00
        ws( 36) = 0.9309133647610222D+00
        ws( 37) = 0.9482492923285152D+00
        ws( 38) = 0.9669388471270173D+00
        ws( 39) = 0.9677733527699333D+00
        ws( 40) = 0.9407281639159063D+00
        ws( 41) = 0.1687626354003438D+01
        endif
        if( idomain .eq.  269 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.1256637061435917D+02
        rk1r = 0.2827433388230814D+02
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  42
        err = 0.6030929207974867D-13
        xs(  1) = 0.6912543357799880D+00
        xs(  2) = 0.1586417340437611D+01
        xs(  3) = 0.2486155755296498D+01
        xs(  4) = 0.3385980618728884D+01
        xs(  5) = 0.4284769961641827D+01
        xs(  6) = 0.5181929153865695D+01
        xs(  7) = 0.6077024033184102D+01
        xs(  8) = 0.6969696609726202D+01
        xs(  9) = 0.7859639432895133D+01
        xs( 10) = 0.8746586986151669D+01
        xs( 11) = 0.9630312882230346D+01
        xs( 12) = 0.1051062947696363D+02
        xs( 13) = 0.1138738896490074D+02
        xs( 14) = 0.1226048479692916D+02
        xs( 15) = 0.1312985434119211D+02
        xs( 16) = 0.1399548145590436D+02
        xs( 17) = 0.1485740022908625D+02
        xs( 18) = 0.1571569872475908D+02
        xs( 19) = 0.1657052379413692D+02
        xs( 20) = 0.1742208588535547D+02
        xs( 21) = 0.1827066485179756D+02
        xs( 22) = 0.1911661530352115D+02
        xs( 23) = 0.1996037336978643D+02
        xs( 24) = 0.2080246222959331D+02
        xs( 25) = 0.2164349790837968D+02
        xs( 26) = 0.2248419388240716D+02
        xs( 27) = 0.2332536641065311D+02
        xs( 28) = 0.2416793560434395D+02
        xs( 29) = 0.2501291960008293D+02
        xs( 30) = 0.2586144640793069D+02
        xs( 31) = 0.2671473820095013D+02
        xs( 32) = 0.2757412558215486D+02
        xs( 33) = 0.2844095611633470D+02
        xs( 34) = 0.2931686044884807D+02
        xs( 35) = 0.3020293719441691D+02
        xs( 36) = 0.3110112184819493D+02
        xs( 37) = 0.3201369852154860D+02
        xs( 38) = 0.3294147283772556D+02
        xs( 39) = 0.3388639437946845D+02
        xs( 40) = 0.3486867427371340D+02
        xs( 41) = 0.3585944887370045D+02
        xs( 42) = 0.3700411607755264D+02
        ws(  1) = 0.8869125012252626D+00
        ws(  2) = 0.8989186878204874D+00
        ws(  3) = 0.9000567388681683D+00
        ws(  4) = 0.8994283873319237D+00
        ws(  5) = 0.8980553665448556D+00
        ws(  6) = 0.8961916926708342D+00
        ws(  7) = 0.8939387656147987D+00
        ws(  8) = 0.8913553031194774D+00
        ws(  9) = 0.8884861206119556D+00
        ws( 10) = 0.8853712525455766D+00
        ws( 11) = 0.8820492072668533D+00
        ws( 12) = 0.8785593396843250D+00
        ws( 13) = 0.8749418609628933D+00
        ws( 14) = 0.8712393327005410D+00
        ws( 15) = 0.8674970224025441D+00
        ws( 16) = 0.8637627994603400D+00
        ws( 17) = 0.8600893012819824D+00
        ws( 18) = 0.8565321546088509D+00
        ws( 19) = 0.8531529300129091D+00
        ws( 20) = 0.8500177483667583D+00
        ws( 21) = 0.8471990683370186D+00
        ws( 22) = 0.8447746581995531D+00
        ws( 23) = 0.8428286200584562D+00
        ws( 24) = 0.8414511170979948D+00
        ws( 25) = 0.8407392928451599D+00
        ws( 26) = 0.8407884874493737D+00
        ws( 27) = 0.8417073120556243D+00
        ws( 28) = 0.8435996241661847D+00
        ws( 29) = 0.8465573990521267D+00
        ws( 30) = 0.8507029067423402D+00
        ws( 31) = 0.8560946484839115D+00
        ws( 32) = 0.8628421335291824D+00
        ws( 33) = 0.8710944067180433D+00
        ws( 34) = 0.8807788242471875D+00
        ws( 35) = 0.8919268244459500D+00
        ws( 36) = 0.9041794073691009D+00
        ws( 37) = 0.9221294076975849D+00
        ws( 38) = 0.9307194491619736D+00
        ws( 39) = 0.9425237272437960D+00
        ws( 40) = 0.1031285475819147D+01
        ws( 41) = 0.9151171565727219D+00
        ws( 42) = 0.1719231923591808D+01
        endif
        if( idomain .eq.  270 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.1256637061435917D+02
        rk1r = 0.3141592653589793D+02
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  45
        err = 0.7294818668434528D-13
        xs(  1) = 0.6961309365923437D+00
        xs(  2) = 0.1597631358517157D+01
        xs(  3) = 0.2503792639259356D+01
        xs(  4) = 0.3410121865692080D+01
        xs(  5) = 0.4315513381670809D+01
        xs(  6) = 0.5219388299502677D+01
        xs(  7) = 0.6121324029739917D+01
        xs(  8) = 0.7020968308896975D+01
        xs(  9) = 0.7918012935055751D+01
        xs( 10) = 0.8812183986721484D+01
        xs( 11) = 0.9703238323382232D+01
        xs( 12) = 0.1059096219025820D+02
        xs( 13) = 0.1147517121265321D+02
        xs( 14) = 0.1235571086791313D+02
        xs( 15) = 0.1323245758116395D+02
        xs( 16) = 0.1410532015408857D+02
        xs( 17) = 0.1497424180017820D+02
        xs( 18) = 0.1583920219086494D+02
        xs( 19) = 0.1670022068820128D+02
        xs( 20) = 0.1755735897401613D+02
        xs( 21) = 0.1841072521013188D+02
        xs( 22) = 0.1926047799778113D+02
        xs( 23) = 0.2010683051035056D+02
        xs( 24) = 0.2095005652946783D+02
        xs( 25) = 0.2179049425065363D+02
        xs( 26) = 0.2262855373340615D+02
        xs( 27) = 0.2346472057264252D+02
        xs( 28) = 0.2429956476856426D+02
        xs( 29) = 0.2513374255245060D+02
        xs( 30) = 0.2596800349951424D+02
        xs( 31) = 0.2680319839354853D+02
        xs( 32) = 0.2764027763599712D+02
        xs( 33) = 0.2848027931464544D+02
        xs( 34) = 0.2932439108275040D+02
        xs( 35) = 0.3017382969407774D+02
        xs( 36) = 0.3102989763765185D+02
        xs( 37) = 0.3189398955683555D+02
        xs( 38) = 0.3276826949253504D+02
        xs( 39) = 0.3365330385813214D+02
        xs( 40) = 0.3454927947261023D+02
        xs( 41) = 0.3546189053857606D+02
        xs( 42) = 0.3639166862395119D+02
        xs( 43) = 0.3737841162026860D+02
        xs( 44) = 0.3823157790083717D+02
        xs( 45) = 0.3943635694847719D+02
        ws(  1) = 0.8931750016561778D+00
        ws(  2) = 0.9053044398106362D+00
        ws(  3) = 0.9065179086721203D+00
        ws(  4) = 0.9059787300609495D+00
        ws(  5) = 0.9047120632702051D+00
        ws(  6) = 0.9029684778549349D+00
        ws(  7) = 0.9008445682755180D+00
        ws(  8) = 0.8983927914728957D+00
        ws(  9) = 0.8956508741448657D+00
        ws( 10) = 0.8926507587167262D+00
        ws( 11) = 0.8894222530427123D+00
        ws( 12) = 0.8859947323450862D+00
        ws( 13) = 0.8823975149231020D+00
        ws( 14) = 0.8786611687786589D+00
        ws( 15) = 0.8748170722344275D+00
        ws( 16) = 0.8708985537750419D+00
        ws( 17) = 0.8669412550316499D+00
        ws( 18) = 0.8629828375497220D+00
        ws( 19) = 0.8590643154467359D+00
        ws( 20) = 0.8552300941478554D+00
        ws( 21) = 0.8515286726836089D+00
        ws( 22) = 0.8480123325666596D+00
        ws( 23) = 0.8447382402578772D+00
        ws( 24) = 0.8417699144029813D+00
        ws( 25) = 0.8391744510888628D+00
        ws( 26) = 0.8370247626731440D+00
        ws( 27) = 0.8354023809446322D+00
        ws( 28) = 0.8343923528915314D+00
        ws( 29) = 0.8340895577627881D+00
        ws( 30) = 0.8345788373169112D+00
        ws( 31) = 0.8359646130763783D+00
        ws( 32) = 0.8383499586903816D+00
        ws( 33) = 0.8418237544047245D+00
        ws( 34) = 0.8465435869630670D+00
        ws( 35) = 0.8525279242874662D+00
        ws( 36) = 0.8600150550285646D+00
        ws( 37) = 0.8684132263866010D+00
        ws( 38) = 0.8782514325786315D+00
        ws( 39) = 0.8905299389803942D+00
        ws( 40) = 0.8996284810956545D+00
        ws( 41) = 0.9205395799752709D+00
        ws( 42) = 0.9559967126975286D+00
        ws( 43) = 0.9158495172036665D+00
        ws( 44) = 0.8068212900489675D+00
        ws( 45) = 0.1358728955285414D+01
        endif
        if( idomain .eq.  271 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.1256637061435917D+02
        rk1r = 0.3455751918948772D+02
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  47
        err = 0.6964257211420934D-13
        xs(  1) = 0.7029299951033139D+00
        xs(  2) = 0.1613258509994803D+01
        xs(  3) = 0.2528349825476237D+01
        xs(  4) = 0.3443697293281343D+01
        xs(  5) = 0.4358213108333967D+01
        xs(  6) = 0.5271338357418427D+01
        xs(  7) = 0.6182669013708943D+01
        xs(  8) = 0.7091868339894117D+01
        xs(  9) = 0.7998640071266670D+01
        xs( 10) = 0.8902718151021000D+01
        xs( 11) = 0.9803862832130251D+01
        xs( 12) = 0.1070185873149507D+02
        xs( 13) = 0.1159651450033040D+02
        xs( 14) = 0.1248766254606404D+02
        xs( 15) = 0.1337515960597275D+02
        xs( 16) = 0.1425888743124069D+02
        xs( 17) = 0.1513875380836299D+02
        xs( 18) = 0.1601469397124406D+02
        xs( 19) = 0.1688667246622351D+02
        xs( 20) = 0.1775468492381116D+02
        xs( 21) = 0.1861876091072221D+02
        xs( 22) = 0.1947896663179281D+02
        xs( 23) = 0.2033540830158865D+02
        xs( 24) = 0.2118823572367030D+02
        xs( 25) = 0.2203764672271941D+02
        xs( 26) = 0.2288389217339931D+02
        xs( 27) = 0.2372727956319113D+02
        xs( 28) = 0.2456817991473453D+02
        xs( 29) = 0.2540703262350900D+02
        xs( 30) = 0.2624435087855820D+02
        xs( 31) = 0.2708072660616284D+02
        xs( 32) = 0.2791684166860438D+02
        xs( 33) = 0.2875346049136698D+02
        xs( 34) = 0.2959144906577866D+02
        xs( 35) = 0.3043177004803218D+02
        xs( 36) = 0.3127548656132543D+02
        xs( 37) = 0.3212377402501183D+02
        xs( 38) = 0.3297786005627182D+02
        xs( 39) = 0.3383925423988271D+02
        xs( 40) = 0.3470925249890382D+02
        xs( 41) = 0.3558989257488763D+02
        xs( 42) = 0.3648231961398608D+02
        xs( 43) = 0.3738594233884743D+02
        xs( 44) = 0.3831741919538259D+02
        xs( 45) = 0.3924935162456823D+02
        xs( 46) = 0.4027057446801944D+02
        xs( 47) = 0.4124197682803674D+02
        ws(  1) = 0.9019045424591472D+00
        ws(  2) = 0.9141926143430159D+00
        ws(  3) = 0.9154898178286694D+00
        ws(  4) = 0.9150465910307001D+00
        ws(  5) = 0.9138960666007783D+00
        ws(  6) = 0.9122882904751394D+00
        ws(  7) = 0.9103172568509414D+00
        ws(  8) = 0.9080321967380379D+00
        ws(  9) = 0.9054669702041054D+00
        ws( 10) = 0.9026492710903419D+00
        ws( 11) = 0.8996041614154874D+00
        ws( 12) = 0.8963557592536997D+00
        ws( 13) = 0.8929278144050136D+00
        ws( 14) = 0.8893444040728117D+00
        ws( 15) = 0.8856300239055391D+00
        ws( 16) = 0.8818101885336678D+00
        ws( 17) = 0.8779117300292795D+00
        ws( 18) = 0.8739627028288735D+00
        ws( 19) = 0.8699935136742051D+00
        ws( 20) = 0.8660362154952962D+00
        ws( 21) = 0.8621266790543203D+00
        ws( 22) = 0.8583023860998859D+00
        ws( 23) = 0.8546056433275183D+00
        ws( 24) = 0.8510821643717023D+00
        ws( 25) = 0.8477817623067861D+00
        ws( 26) = 0.8447600027967503D+00
        ws( 27) = 0.8420757763217648D+00
        ws( 28) = 0.8397968208940740D+00
        ws( 29) = 0.8379940911555536D+00
        ws( 30) = 0.8367416270671471D+00
        ws( 31) = 0.8361211716328467D+00
        ws( 32) = 0.8362307120261853D+00
        ws( 33) = 0.8371431149981822D+00
        ws( 34) = 0.8389872785684978D+00
        ws( 35) = 0.8418318747809154D+00
        ws( 36) = 0.8458089335483459D+00
        ws( 37) = 0.8508852826373565D+00
        ws( 38) = 0.8573960407421120D+00
        ws( 39) = 0.8653988117609134D+00
        ws( 40) = 0.8752358847372880D+00
        ws( 41) = 0.8868713097033617D+00
        ws( 42) = 0.8969657818396876D+00
        ws( 43) = 0.9061136372418847D+00
        ws( 44) = 0.9425976948011924D+00
        ws( 45) = 0.9245304609910503D+00
        ws( 46) = 0.1078476018920890D+01
        ws( 47) = 0.1251344445054436D+01
        endif
        if( idomain .eq.  272 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.1256637061435917D+02
        rk1r = 0.3769911184307752D+02
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  49
        err = 0.6244824892515507D-13
        xs(  1) = 0.7109278938302721D+00
        xs(  2) = 0.1631634479154820D+01
        xs(  3) = 0.2557204730582181D+01
        xs(  4) = 0.3483106636684574D+01
        xs(  5) = 0.4408263948324122D+01
        xs(  6) = 0.5332133548633721D+01
        xs(  7) = 0.6254326321640170D+01
        xs(  8) = 0.7174518447074626D+01
        xs(  9) = 0.8092423809416298D+01
        xs( 10) = 0.9007783215397176D+01
        xs( 11) = 0.9920360341850522D+01
        xs( 12) = 0.1082993921799659D+02
        xs( 13) = 0.1173632355850404D+02
        xs( 14) = 0.1263933615241539D+02
        xs( 15) = 0.1353881888289956D+02
        xs( 16) = 0.1443463290416077D+02
        xs( 17) = 0.1532665909847234D+02
        xs( 18) = 0.1621479876660642D+02
        xs( 19) = 0.1709897450627818D+02
        xs( 20) = 0.1797913152475454D+02
        xs( 21) = 0.1885523887065998D+02
        xs( 22) = 0.1972729125070884D+02
        xs( 23) = 0.2059531101418821D+02
        xs( 24) = 0.2145935045174414D+02
        xs( 25) = 0.2231949400406208D+02
        xs( 26) = 0.2317586190913552D+02
        xs( 27) = 0.2402861272492564D+02
        xs( 28) = 0.2487794742404641D+02
        xs( 29) = 0.2572411344705262D+02
        xs( 30) = 0.2656740973297959D+02
        xs( 31) = 0.2740819019052500D+02
        xs( 32) = 0.2824687077677426D+02
        xs( 33) = 0.2908393683966218D+02
        xs( 34) = 0.2991994512407126D+02
        xs( 35) = 0.3075553675223060D+02
        xs( 36) = 0.3159144491860265D+02
        xs( 37) = 0.3242847360460253D+02
        xs( 38) = 0.3326758499726114D+02
        xs( 39) = 0.3410977241429462D+02
        xs( 40) = 0.3495618970135833D+02
        xs( 41) = 0.3580825139107836D+02
        xs( 42) = 0.3666719443176152D+02
        xs( 43) = 0.3753424385522838D+02
        xs( 44) = 0.3841100587152005D+02
        xs( 45) = 0.3930193409593869D+02
        xs( 46) = 0.4020716739768268D+02
        xs( 47) = 0.4112399950448432D+02
        xs( 48) = 0.4205045343759731D+02
        xs( 49) = 0.4318105582060074D+02
        ws(  1) = 0.9121718076278917D+00
        ws(  2) = 0.9246337152215759D+00
        ws(  3) = 0.9260053784211725D+00
        ws(  4) = 0.9256420777916509D+00
        ws(  5) = 0.9245862768181179D+00
        ws(  6) = 0.9230892183271142D+00
        ws(  7) = 0.9212427605493722D+00
        ws(  8) = 0.9190939717080591D+00
        ws(  9) = 0.9166735561088299D+00
        ws( 10) = 0.9140059556345561D+00
        ws( 11) = 0.9111123422053942D+00
        ws( 12) = 0.9080127337660499D+00
        ws( 13) = 0.9047263830880869D+00
        ws( 14) = 0.9012724074246184D+00
        ws( 15) = 0.8976698948083770D+00
        ws( 16) = 0.8939383412471376D+00
        ws( 17) = 0.8900976236609529D+00
        ws( 18) = 0.8861687706523008D+00
        ws( 19) = 0.8821735595907443D+00
        ws( 20) = 0.8781352276574750D+00
        ws( 21) = 0.8740786009010602D+00
        ws( 22) = 0.8700299565172408D+00
        ws( 23) = 0.8660182846032360D+00
        ws( 24) = 0.8620745275062314D+00
        ws( 25) = 0.8582327436411505D+00
        ws( 26) = 0.8545295791036535D+00
        ws( 27) = 0.8510057683196653D+00
        ws( 28) = 0.8477053855018707D+00
        ws( 29) = 0.8446762499232303D+00
        ws( 30) = 0.8419744129447696D+00
        ws( 31) = 0.8396583770638589D+00
        ws( 32) = 0.8377882848710027D+00
        ws( 33) = 0.8364352050482685D+00
        ws( 34) = 0.8356935651067307D+00
        ws( 35) = 0.8356126984732161D+00
        ws( 36) = 0.8363312465985083D+00
        ws( 37) = 0.8379253594145175D+00
        ws( 38) = 0.8404766246103608D+00
        ws( 39) = 0.8441557969256634D+00
        ws( 40) = 0.8488709561758901D+00
        ws( 41) = 0.8551473708687674D+00
        ws( 42) = 0.8629659012747621D+00
        ws( 43) = 0.8721709624873065D+00
        ws( 44) = 0.8816912809294297D+00
        ws( 45) = 0.8966425919941805D+00
        ws( 46) = 0.9158947421473238D+00
        ws( 47) = 0.9031537221555420D+00
        ws( 48) = 0.8141236414356500D+00
        ws( 49) = 0.1909113293010944D+01
        endif
        if( idomain .eq.  273 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.1256637061435917D+02
        rk1r = 0.4084070449666731D+02
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  53
        err = 0.3668438943223461D-13
        xs(  1) = 0.7092616164613726D+00
        xs(  2) = 0.1627830590549004D+01
        xs(  3) = 0.2551299741964164D+01
        xs(  4) = 0.3475173463829095D+01
        xs(  5) = 0.4398401917950675D+01
        xs(  6) = 0.5320464517130698D+01
        xs(  7) = 0.6240991530545614D+01
        xs(  8) = 0.7159675274537567D+01
        xs(  9) = 0.8076242323457489D+01
        xs( 10) = 0.8990442943065881D+01
        xs( 11) = 0.9902046554897877D+01
        xs( 12) = 0.1081083960313487D+02
        xs( 13) = 0.1171662448968693D+02
        xs( 14) = 0.1261921897636346D+02
        xs( 15) = 0.1351845601287428D+02
        xs( 16) = 0.1441418357874576D+02
        xs( 17) = 0.1530626489791208D+02
        xs( 18) = 0.1619457862739903D+02
        xs( 19) = 0.1707901933428013D+02
        xs( 20) = 0.1795949805231849D+02
        xs( 21) = 0.1883594298972913D+02
        xs( 22) = 0.1970830045339390D+02
        xs( 23) = 0.2057653594781056D+02
        xs( 24) = 0.2144063544776077D+02
        xs( 25) = 0.2230060689702659D+02
        xs( 26) = 0.2315648199455235D+02
        xs( 27) = 0.2400831829556947D+02
        xs( 28) = 0.2485620152248097D+02
        xs( 29) = 0.2570024822777531D+02
        xs( 30) = 0.2654060942761354D+02
        xs( 31) = 0.2737747338767307D+02
        xs( 32) = 0.2821107107169997D+02
        xs( 33) = 0.2904167887005433D+02
        xs( 34) = 0.2986962545615854D+02
        xs( 35) = 0.3069529691122353D+02
        xs( 36) = 0.3151914196654156D+02
        xs( 37) = 0.3234167964307343D+02
        xs( 38) = 0.3316350119495101D+02
        xs( 39) = 0.3398528887619435D+02
        xs( 40) = 0.3480779583198473D+02
        xs( 41) = 0.3563189126375652D+02
        xs( 42) = 0.3645852827656321D+02
        xs( 43) = 0.3728874901257457D+02
        xs( 44) = 0.3812376241940482D+02
        xs( 45) = 0.3896483173827380D+02
        xs( 46) = 0.3981312534307522D+02
        xs( 47) = 0.4067045577048778D+02
        xs( 48) = 0.4153865185736121D+02
        xs( 49) = 0.4241779623619388D+02
        xs( 50) = 0.4331517760144844D+02
        xs( 51) = 0.4421509926350460D+02
        xs( 52) = 0.4517566533490853D+02
        xs( 53) = 0.4615482256831932D+02
        ws(  1) = 0.9100392990327609D+00
        ws(  2) = 0.9225063394227307D+00
        ws(  3) = 0.9239359545817197D+00
        ws(  4) = 0.9236595128635222D+00
        ws(  5) = 0.9227149169613355D+00
        ws(  6) = 0.9213498412225888D+00
        ws(  7) = 0.9196532833713496D+00
        ws(  8) = 0.9176687791257332D+00
        ws(  9) = 0.9154237698329112D+00
        ws( 10) = 0.9129390790776082D+00
        ws( 11) = 0.9102325655921005D+00
        ws( 12) = 0.9073206115084963D+00
        ws( 13) = 0.9042187763082312D+00
        ws( 14) = 0.9009423598433884D+00
        ws( 15) = 0.8975063744769183D+00
        ws( 16) = 0.8939259532332656D+00
        ws( 17) = 0.8902164336100461D+00
        ws( 18) = 0.8863934407807746D+00
        ws( 19) = 0.8824731450039064D+00
        ws( 20) = 0.8784723227399635D+00
        ws( 21) = 0.8744085736905192D+00
        ws( 22) = 0.8703005481659700D+00
        ws( 23) = 0.8661680556337669D+00
        ws( 24) = 0.8620322102984616D+00
        ws( 25) = 0.8579158775848847D+00
        ws( 26) = 0.8538438345756816D+00
        ws( 27) = 0.8498429319737768D+00
        ws( 28) = 0.8459427905779952D+00
        ws( 29) = 0.8421757445810514D+00
        ws( 30) = 0.8385778157959684D+00
        ws( 31) = 0.8351883532223154D+00
        ws( 32) = 0.8320519902088843D+00
        ws( 33) = 0.8292179595454874D+00
        ws( 34) = 0.8267394624902858D+00
        ws( 35) = 0.8246783411410755D+00
        ws( 36) = 0.8230987848768512D+00
        ws( 37) = 0.8220703162938811D+00
        ws( 38) = 0.8216836747159848D+00
        ws( 39) = 0.8220203790074787D+00
        ws( 40) = 0.8231529867344637D+00
        ws( 41) = 0.8252081121490339D+00
        ws( 42) = 0.8282604095785175D+00
        ws( 43) = 0.8324007498723209D+00
        ws( 44) = 0.8377393827128143D+00
        ws( 45) = 0.8448520059126297D+00
        ws( 46) = 0.8525585382065864D+00
        ws( 47) = 0.8626716551940963D+00
        ws( 48) = 0.8737622835100518D+00
        ws( 49) = 0.8744124593101439D+00
        ws( 50) = 0.9131949210081679D+00
        ws( 51) = 0.8890992441766379D+00
        ws( 52) = 0.9897759804364376D+00
        ws( 53) = 0.9785849158635510D+00
        endif
        if( idomain .eq.  274 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.1256637061435917D+02
        rk1r = 0.4398229715025710D+02
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  55
        err = 0.4558842850473005D-13
        xs(  1) = 0.7155676479650535D+00
        xs(  2) = 0.1642323346488697D+01
        xs(  3) = 0.2574069979989294D+01
        xs(  4) = 0.3506298157541411D+01
        xs(  5) = 0.4437974366995147D+01
        xs(  6) = 0.5368597823438313D+01
        xs(  7) = 0.6297818876994035D+01
        xs(  8) = 0.7225348888977974D+01
        xs(  9) = 0.8150932426605952D+01
        xs( 10) = 0.9074336016184121D+01
        xs( 11) = 0.9995343882338812D+01
        xs( 12) = 0.1091375532581258D+02
        xs( 13) = 0.1182938371287428D+02
        xs( 14) = 0.1274205560772741D+02
        xs( 15) = 0.1365161048108647D+02
        xs( 16) = 0.1455790035809601D+02
        xs( 17) = 0.1546078972241061D+02
        xs( 18) = 0.1636015552312739D+02
        xs( 19) = 0.1725588736988382D+02
        xs( 20) = 0.1814788766215141D+02
        xs( 21) = 0.1903607211169015D+02
        xs( 22) = 0.1992037013647190D+02
        xs( 23) = 0.2080072551220711D+02
        xs( 24) = 0.2167709736922152D+02
        xs( 25) = 0.2254946094290515D+02
        xs( 26) = 0.2341780885849576D+02
        xs( 27) = 0.2428215225881685D+02
        xs( 28) = 0.2514252303503976D+02
        xs( 29) = 0.2599897434663839D+02
        xs( 30) = 0.2685158408217614D+02
        xs( 31) = 0.2770045610103826D+02
        xs( 32) = 0.2854572350861147D+02
        xs( 33) = 0.2938755147396874D+02
        xs( 34) = 0.3022613940122223D+02
        xs( 35) = 0.3106172843910520D+02
        xs( 36) = 0.3189460079711018D+02
        xs( 37) = 0.3272508922987319D+02
        xs( 38) = 0.3355358123172582D+02
        xs( 39) = 0.3438052025135349D+02
        xs( 40) = 0.3520642353281801D+02
        xs( 41) = 0.3603188031268206D+02
        xs( 42) = 0.3685757200738383D+02
        xs( 43) = 0.3768425081133347D+02
        xs( 44) = 0.3851279103389929D+02
        xs( 45) = 0.3934415689189305D+02
        xs( 46) = 0.4017952714761367D+02
        xs( 47) = 0.4101997706677076D+02
        xs( 48) = 0.4186730946000466D+02
        xs( 49) = 0.4272246655886276D+02
        xs( 50) = 0.4358673785210409D+02
        xs( 51) = 0.4446088879111526D+02
        xs( 52) = 0.4535372868617860D+02
        xs( 53) = 0.4627920013696123D+02
        xs( 54) = 0.4724930119577167D+02
        xs( 55) = 0.4832081218420124D+02
        ws(  1) = 0.9181355654022052D+00
        ws(  2) = 0.9307472709865670D+00
        ws(  3) = 0.9322499157868113D+00
        ws(  4) = 0.9320574265480039D+00
        ws(  5) = 0.9312158132096895D+00
        ws(  6) = 0.9299740246758862D+00
        ws(  7) = 0.9284203337445953D+00
        ws(  8) = 0.9265973355322183D+00
        ws(  9) = 0.9245308653921475D+00
        ws( 10) = 0.9222403987896158D+00
        ws( 11) = 0.9197418991024073D+00
        ws( 12) = 0.9170498904319874D+00
        ws( 13) = 0.9141779749123679D+00
        ws( 14) = 0.9111390920364302D+00
        ws( 15) = 0.9079459819401137D+00
        ws( 16) = 0.9046111583158165D+00
        ws( 17) = 0.9011470399303203D+00
        ws( 18) = 0.8975661788139728D+00
        ws( 19) = 0.8938812477696565D+00
        ws( 20) = 0.8901052973757898D+00
        ws( 21) = 0.8862518262741718D+00
        ws( 22) = 0.8823348072342192D+00
        ws( 23) = 0.8783691176445624D+00
        ws( 24) = 0.8743704128921429D+00
        ws( 25) = 0.8703554350818329D+00
        ws( 26) = 0.8663421375250561D+00
        ws( 27) = 0.8623500383750623D+00
        ws( 28) = 0.8584001935347423D+00
        ws( 29) = 0.8545155176057200D+00
        ws( 30) = 0.8507211863946283D+00
        ws( 31) = 0.8470446338371537D+00
        ws( 32) = 0.8435172174520617D+00
        ws( 33) = 0.8401716041320725D+00
        ws( 34) = 0.8370448967316702D+00
        ws( 35) = 0.8341797337702825D+00
        ws( 36) = 0.8316202498470678D+00
        ws( 37) = 0.8294200387086424D+00
        ws( 38) = 0.8276347607951665D+00
        ws( 39) = 0.8263314380039745D+00
        ws( 40) = 0.8255766225681060D+00
        ws( 41) = 0.8254529740483072D+00
        ws( 42) = 0.8260586736040755D+00
        ws( 43) = 0.8274576182941989D+00
        ws( 44) = 0.8297937561836105D+00
        ws( 45) = 0.8332044298876067D+00
        ws( 46) = 0.8377607232058415D+00
        ws( 47) = 0.8437803610446145D+00
        ws( 48) = 0.8510261867228229D+00
        ws( 49) = 0.8584388210189965D+00
        ws( 50) = 0.8718561149899294D+00
        ws( 51) = 0.8754454891104529D+00
        ws( 52) = 0.9047150888953883D+00
        ws( 53) = 0.9493485200228758D+00
        ws( 54) = 0.8106841268680318D+00
        ws( 55) = 0.1542200292459750D+01
        endif
        if( idomain .eq.  275 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.1256637061435917D+02
        rk1r = 0.4712388980384689D+02
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  58
        err = 0.4056860626860300D-13
        xs(  1) = 0.7174472652248277D+00
        xs(  2) = 0.1646658805881726D+01
        xs(  3) = 0.2580924409023503D+01
        xs(  4) = 0.3515750967463453D+01
        xs(  5) = 0.4450128527086167D+01
        xs(  6) = 0.5383580143753244D+01
        xs(  7) = 0.6315778329883760D+01
        xs(  8) = 0.7246455047628413D+01
        xs(  9) = 0.8175373358586691D+01
        xs( 10) = 0.9102316403327844D+01
        xs( 11) = 0.1002708281179294D+02
        xs( 12) = 0.1094948430048548D+02
        xs( 13) = 0.1186934439379877D+02
        xs( 14) = 0.1278649776848102D+02
        xs( 15) = 0.1370078959443288D+02
        xs( 16) = 0.1461207529131694D+02
        xs( 17) = 0.1552022017921333D+02
        xs( 18) = 0.1642509938673931D+02
        xs( 19) = 0.1732659770898804D+02
        xs( 20) = 0.1822460963699092D+02
        xs( 21) = 0.1911903943625962D+02
        xs( 22) = 0.2000980133945094D+02
        xs( 23) = 0.2089681984012474D+02
        xs( 24) = 0.2178003019931783D+02
        xs( 25) = 0.2265937879137702D+02
        xs( 26) = 0.2353482397650197D+02
        xs( 27) = 0.2440633687066796D+02
        xs( 28) = 0.2527390232641216D+02
        xs( 29) = 0.2613752010810467D+02
        xs( 30) = 0.2699720610892643D+02
        xs( 31) = 0.2785299426532731D+02
        xs( 32) = 0.2870493798085229D+02
        xs( 33) = 0.2955311215400607D+02
        xs( 34) = 0.3039761579659125D+02
        xs( 35) = 0.3123857454100975D+02
        xs( 36) = 0.3207614319472786D+02
        xs( 37) = 0.3291050977196390D+02
        xs( 38) = 0.3374189934058134D+02
        xs( 39) = 0.3457057720160296D+02
        xs( 40) = 0.3539685611878336D+02
        xs( 41) = 0.3622110147866243D+02
        xs( 42) = 0.3704373150868416D+02
        xs( 43) = 0.3786524416081246D+02
        xs( 44) = 0.3868619451210546D+02
        xs( 45) = 0.3950723558871907D+02
        xs( 46) = 0.4032909052907302D+02
        xs( 47) = 0.4115263512946308D+02
        xs( 48) = 0.4197876832146978D+02
        xs( 49) = 0.4280864759357065D+02
        xs( 50) = 0.4364378678627743D+02
        xs( 51) = 0.4448471585923704D+02
        xs( 52) = 0.4533349797665861D+02
        xs( 53) = 0.4619199984662960D+02
        xs( 54) = 0.4706806185337427D+02
        xs( 55) = 0.4794171856437096D+02
        xs( 56) = 0.4885515950164045D+02
        xs( 57) = 0.4977635757299687D+02
        xs( 58) = 0.5086548964526578D+02
        ws(  1) = 0.9205531884764476D+00
        ws(  2) = 0.9332337796373089D+00
        ws(  3) = 0.9348047876490075D+00
        ws(  4) = 0.9347032405703594D+00
        ws(  5) = 0.9339767580383718D+00
        ws(  6) = 0.9328730769859350D+00
        ws(  7) = 0.9314789952134112D+00
        ws(  8) = 0.9298351304657062D+00
        ws(  9) = 0.9279654115582566D+00
        ws( 10) = 0.9258871560903660D+00
        ws( 11) = 0.9236142949851796D+00
        ws( 12) = 0.9211592606283813D+00
        ws( 13) = 0.9185334053024726D+00
        ws( 14) = 0.9157475611587285D+00
        ws( 15) = 0.9128119998998043D+00
        ws( 16) = 0.9097369235041759D+00
        ws( 17) = 0.9065320330653326D+00
        ws( 18) = 0.9032071747190416D+00
        ws( 19) = 0.8997718878377607D+00
        ws( 20) = 0.8962360113354300D+00
        ws( 21) = 0.8926092975924178D+00
        ws( 22) = 0.8889019136480694D+00
        ws( 23) = 0.8851242861582338D+00
        ws( 24) = 0.8812874609843580D+00
        ws( 25) = 0.8774027475598905D+00
        ws( 26) = 0.8734827676319656D+00
        ws( 27) = 0.8695404685197889D+00
        ws( 28) = 0.8655903313145237D+00
        ws( 29) = 0.8616478757977803D+00
        ws( 30) = 0.8577297780996783D+00
        ws( 31) = 0.8538552623028095D+00
        ws( 32) = 0.8500444360137025D+00
        ws( 33) = 0.8463204483852546D+00
        ws( 34) = 0.8427077257813117D+00
        ws( 35) = 0.8392353643531445D+00
        ws( 36) = 0.8359331732453068D+00
        ws( 37) = 0.8328374056348296D+00
        ws( 38) = 0.8299854969094558D+00
        ws( 39) = 0.8274227456074323D+00
        ws( 40) = 0.8251971472582054D+00
        ws( 41) = 0.8233618533049233D+00
        ws( 42) = 0.8219874238808765D+00
        ws( 43) = 0.8211233014111899D+00
        ws( 44) = 0.8208920226357382D+00
        ws( 45) = 0.8213205436542027D+00
        ws( 46) = 0.8225583305787129D+00
        ws( 47) = 0.8246537567549118D+00
        ws( 48) = 0.8278631239298183D+00
        ws( 49) = 0.8321271088973495D+00
        ws( 50) = 0.8382184112298318D+00
        ws( 51) = 0.8446275191532140D+00
        ws( 52) = 0.8532764544837699D+00
        ws( 53) = 0.8642761724899817D+00
        ws( 54) = 0.8808996330734524D+00
        ws( 55) = 0.8865803345156865D+00
        ws( 56) = 0.8914163795468742D+00
        ws( 57) = 0.9365595773368440D+00
        ws( 58) = 0.1296945557296919D+01
        endif
        if( idomain .eq.  276 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.1256637061435917D+02
        rk1r = 0.5026548245743669D+02
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  61
        err = 0.2425881919457771D-13
        xs(  1) = 0.7191860270162040D+00
        xs(  2) = 0.1650666252684476D+01
        xs(  3) = 0.2587253229915396D+01
        xs(  4) = 0.3524464898284615D+01
        xs(  5) = 0.4461309895349543D+01
        xs(  6) = 0.5397329608133789D+01
        xs(  7) = 0.6332213479899807D+01
        xs(  8) = 0.7265708888984297D+01
        xs(  9) = 0.8197592208786878D+01
        xs( 10) = 0.9127658200290695D+01
        xs( 11) = 0.1005571505204330D+02
        xs( 12) = 0.1098158227644664D+02
        xs( 13) = 0.1190508935344182D+02
        xs( 14) = 0.1282607520237562D+02
        xs( 15) = 0.1374438754250299D+02
        xs( 16) = 0.1465988273872341D+02
        xs( 17) = 0.1557242542467301D+02
        xs( 18) = 0.1648188839902990D+02
        xs( 19) = 0.1738815249382882D+02
        xs( 20) = 0.1829110640879137D+02
        xs( 21) = 0.1919064674612436D+02
        xs( 22) = 0.2008667804789748D+02
        xs( 23) = 0.2097911270523887D+02
        xs( 24) = 0.2186787140893945D+02
        xs( 25) = 0.2275288308282185D+02
        xs( 26) = 0.2363408531855001D+02
        xs( 27) = 0.2451142495129880D+02
        xs( 28) = 0.2538485829144092D+02
        xs( 29) = 0.2625435211897668D+02
        xs( 30) = 0.2711988419155044D+02
        xs( 31) = 0.2798144451048835D+02
        xs( 32) = 0.2883903627063050D+02
        xs( 33) = 0.2969267713840291D+02
        xs( 34) = 0.3054240081257575D+02
        xs( 35) = 0.3138825910997120D+02
        xs( 36) = 0.3223032329621682D+02
        xs( 37) = 0.3306868639714569D+02
        xs( 38) = 0.3390346612615146D+02
        xs( 39) = 0.3473480799374680D+02
        xs( 40) = 0.3556288634105121D+02
        xs( 41) = 0.3638791030679124D+02
        xs( 42) = 0.3721012740689875D+02
        xs( 43) = 0.3802982606328161D+02
        xs( 44) = 0.3884734271698682D+02
        xs( 45) = 0.3966306946560857D+02
        xs( 46) = 0.4047745070532052D+02
        xs( 47) = 0.4129100229983479D+02
        xs( 48) = 0.4210432752445185D+02
        xs( 49) = 0.4291809926169380D+02
        xs( 50) = 0.4373306048067911D+02
        xs( 51) = 0.4455011286312589D+02
        xs( 52) = 0.4537024185151435D+02
        xs( 53) = 0.4619462795513139D+02
        xs( 54) = 0.4702458218775744D+02
        xs( 55) = 0.4786145404901375D+02
        xs( 56) = 0.4870612045977251D+02
        xs( 57) = 0.4956016826474392D+02
        xs( 58) = 0.5041993452991267D+02
        xs( 59) = 0.5132079347156254D+02
        xs( 60) = 0.5219345728818011D+02
        xs( 61) = 0.5341000375663291D+02
        ws(  1) = 0.9227882636280618D+00
        ws(  2) = 0.9355287628221286D+00
        ws(  3) = 0.9371550552101646D+00
        ws(  4) = 0.9371263546091608D+00
        ws(  5) = 0.9364915694698842D+00
        ws(  6) = 0.9354972702427444D+00
        ws(  7) = 0.9342288010202097D+00
        ws(  8) = 0.9327248848485495D+00
        ws(  9) = 0.9310076382654383D+00
        ws( 10) = 0.9290923964804862D+00
        ws( 11) = 0.9269912552283261D+00
        ws( 12) = 0.9247147654071908D+00
        ws( 13) = 0.9222725613729997D+00
        ws( 14) = 0.9196737508140898D+00
        ws( 15) = 0.9169270065803715D+00
        ws( 16) = 0.9140408262198356D+00
        ws( 17) = 0.9110233441330076D+00
        ws( 18) = 0.9078827429155168D+00
        ws( 19) = 0.9046268909218602D+00
        ws( 20) = 0.9012637023072448D+00
        ws( 21) = 0.8978010811946455D+00
        ws( 22) = 0.8942469022372338D+00
        ws( 23) = 0.8906092005524820D+00
        ws( 24) = 0.8868963479649855D+00
        ws( 25) = 0.8831165831164077D+00
        ws( 26) = 0.8792790267606703D+00
        ws( 27) = 0.8753929132347583D+00
        ws( 28) = 0.8714682443381506D+00
        ws( 29) = 0.8675156751244661D+00
        ws( 30) = 0.8635467875428714D+00
        ws( 31) = 0.8595743662882437D+00
        ws( 32) = 0.8556121000312898D+00
        ws( 33) = 0.8516751971604835D+00
        ws( 34) = 0.8477807596008862D+00
        ws( 35) = 0.8439476847006373D+00
        ws( 36) = 0.8401961584805128D+00
        ws( 37) = 0.8365496263028395D+00
        ws( 38) = 0.8330342232719847D+00
        ws( 39) = 0.8296782813254265D+00
        ws( 40) = 0.8265133207074835D+00
        ws( 41) = 0.8235759755876415D+00
        ws( 42) = 0.8209053392654083D+00
        ws( 43) = 0.8185479733306593D+00
        ws( 44) = 0.8165523834913914D+00
        ws( 45) = 0.8149714419303434D+00
        ws( 46) = 0.8138775719133992D+00
        ws( 47) = 0.8133347532519642D+00
        ws( 48) = 0.8134171398226632D+00
        ws( 49) = 0.8142419666389740D+00
        ws( 50) = 0.8158886732374638D+00
        ws( 51) = 0.8184202298435270D+00
        ws( 52) = 0.8219486663458647D+00
        ws( 53) = 0.8273122178838043D+00
        ws( 54) = 0.8326037342579322D+00
        ws( 55) = 0.8421188521137398D+00
        ws( 56) = 0.8474809497472915D+00
        ws( 57) = 0.8591904325914116D+00
        ws( 58) = 0.8669291044793999D+00
        ws( 59) = 0.9050218767736699D+00
        ws( 60) = 0.8638044407496372D+00
        ws( 61) = 0.1630854875869876D+01
        endif
        if( idomain .eq.  277 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.1570796326794897D+02
        rk1r = 0.2000000000000000D-01
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  31
        err = 0.3606564939292124D-13
        xs(  1) = 0.6715698483077018D+00
        xs(  2) = 0.1542040555880536D+01
        xs(  3) = 0.2418853710880488D+01
        xs(  4) = 0.3298701729071641D+01
        xs(  5) = 0.4181507722559078D+01
        xs(  6) = 0.5067655077458542D+01
        xs(  7) = 0.5957621877086047D+01
        xs(  8) = 0.6851891657386331D+01
        xs(  9) = 0.7750922952878172D+01
        xs( 10) = 0.8655139125436349D+01
        xs( 11) = 0.9564923112637072D+01
        xs( 12) = 0.1048061787478750D+02
        xs( 13) = 0.1140252912072500D+02
        xs( 14) = 0.1233092233634710D+02
        xs( 15) = 0.1326604090353889D+02
        xs( 16) = 0.1420810254211714D+02
        xs( 17) = 0.1515728046662016D+02
        xs( 18) = 0.1611383424906725D+02
        xs( 19) = 0.1707771112479828D+02
        xs( 20) = 0.1804931879030874D+02
        xs( 21) = 0.1902832178577479D+02
        xs( 22) = 0.2001868856244853D+02
        xs( 23) = 0.2101127386048334D+02
        xs( 24) = 0.2201016208001445D+02
        xs( 25) = 0.2303147933251161D+02
        xs( 26) = 0.2406242713596573D+02
        xs( 27) = 0.2509428142466863D+02
        xs( 28) = 0.2611599861236779D+02
        xs( 29) = 0.2714058349953920D+02
        xs( 30) = 0.3028973223089966D+02
        xs( 31) = 0.3038017742654323D+02
        ws(  1) = 0.8618657297228446D+00
        ws(  2) = 0.8748897521027519D+00
        ws(  3) = 0.8784252401432145D+00
        ws(  4) = 0.8812799153332466D+00
        ws(  5) = 0.8844000614534229D+00
        ws(  6) = 0.8879756566394787D+00
        ws(  7) = 0.8920389352515911D+00
        ws(  8) = 0.8965769334316978D+00
        ws(  9) = 0.9015566039780973D+00
        ws( 10) = 0.9069398757423947D+00
        ws( 11) = 0.9126850093413613D+00
        ws( 12) = 0.9187535185113206D+00
        ws( 13) = 0.9251129886469680D+00
        ws( 14) = 0.9317234608154400D+00
        ws( 15) = 0.9385490554057878D+00
        ws( 16) = 0.9455889402347168D+00
        ws( 17) = 0.9527590367724709D+00
        ws( 18) = 0.9602381146083363D+00
        ws( 19) = 0.9684551050940737D+00
        ws( 20) = 0.9744365016558760D+00
        ws( 21) = 0.9821852983398836D+00
        ws( 22) = 0.9914055522506389D+00
        ws( 23) = 0.1010406070668073D+01
        ws( 24) = 0.1013005984791245D+01
        ws( 25) = 0.9844355582026439D+00
        ws( 26) = 0.9715024096204514D+00
        ws( 27) = 0.1103871180519722D+01
        ws( 28) = 0.1381472786541122D+01
        ws( 29) = 0.1032642927241616D+01
        ws( 30) = -.5905811111569898D+01
        ws( 31) = 0.1153881225772722D+02
        endif
        if( idomain .eq.  278 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.1570796326794897D+02
        rk1r = 0.4000000000000000D-01
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  30
        err = 0.6860455995749233D-13
        xs(  1) = 0.6739978467403532D+00
        xs(  2) = 0.1547608433658859D+01
        xs(  3) = 0.2427567052067762D+01
        xs(  4) = 0.3310544081749185D+01
        xs(  5) = 0.4196451986898898D+01
        xs(  6) = 0.5085664958478787D+01
        xs(  7) = 0.5978651761815625D+01
        xs(  8) = 0.6875886387702978D+01
        xs(  9) = 0.7777816568107177D+01
        xs( 10) = 0.8684855738438161D+01
        xs( 11) = 0.9597374542056244D+01
        xs( 12) = 0.1051570172218758D+02
        xs( 13) = 0.1144012713611815D+02
        xs( 14) = 0.1237091348330225D+02
        xs( 15) = 0.1330827232116313D+02
        xs( 16) = 0.1425238155980096D+02
        xs( 17) = 0.1520344618788192D+02
        xs( 18) = 0.1616151890764233D+02
        xs( 19) = 0.1712701030941631D+02
        xs( 20) = 0.1809980792967684D+02
        xs( 21) = 0.1908036883518939D+02
        xs( 22) = 0.2006324645669946D+02
        xs( 23) = 0.2106371402029066D+02
        xs( 24) = 0.2207721475292057D+02
        xs( 25) = 0.2307456515787978D+02
        xs( 26) = 0.2407298023136465D+02
        xs( 27) = 0.2507750806185826D+02
        xs( 28) = 0.2620534422362113D+02
        xs( 29) = 0.2743296295060862D+02
        xs( 30) = 0.2824236902403329D+02
        ws(  1) = 0.8649798361528113D+00
        ws(  2) = 0.8780386082935584D+00
        ws(  3) = 0.8815645107864195D+00
        ws(  4) = 0.8843969500460356D+00
        ws(  5) = 0.8874853888619965D+00
        ws(  6) = 0.8910199746880351D+00
        ws(  7) = 0.8950329639601393D+00
        ws(  8) = 0.8995107638427557D+00
        ws(  9) = 0.9044200188716940D+00
        ws( 10) = 0.9097180993390594D+00
        ws( 11) = 0.9153725605370064D+00
        ws( 12) = 0.9213379880942166D+00
        ws( 13) = 0.9275576145793047D+00
        ws( 14) = 0.9340229742238635D+00
        ws( 15) = 0.9407275350990585D+00
        ws( 16) = 0.9475851918663918D+00
        ws( 17) = 0.9546286799877395D+00
        ws( 18) = 0.9616084008164418D+00
        ws( 19) = 0.9679928236911652D+00
        ws( 20) = 0.9780149175646144D+00
        ws( 21) = 0.9874967718327571D+00
        ws( 22) = 0.9883662622591115D+00
        ws( 23) = 0.9802100461083552D+00
        ws( 24) = 0.1002820562789244D+01
        ws( 25) = 0.1068468697848774D+01
        ws( 26) = 0.1143360067302089D+01
        ws( 27) = 0.9472405083662643D+00
        ws( 28) = 0.2193423545493379D+00
        ws( 29) = 0.1211481594327998D+01
        ws( 30) = 0.3781543118472469D+01
        endif
        if( idomain .eq.  279 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.1570796326794897D+02
        rk1r = 0.1000000000000000D+00
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  30
        err = 0.4596900227512575D-13
        xs(  1) = 0.6790439661762849D+00
        xs(  2) = 0.1559202829098334D+01
        xs(  3) = 0.2445775572161244D+01
        xs(  4) = 0.3335417962687547D+01
        xs(  5) = 0.4228051946609167D+01
        xs(  6) = 0.5124064470245306D+01
        xs(  7) = 0.6023937799779620D+01
        xs(  8) = 0.6928159039129157D+01
        xs(  9) = 0.7837189911567592D+01
        xs( 10) = 0.8751457187162671D+01
        xs( 11) = 0.9671345120305290D+01
        xs( 12) = 0.1059719769076180D+02
        xs( 13) = 0.1152932483498893D+02
        xs( 14) = 0.1246799734154589D+02
        xs( 15) = 0.1341345297146292D+02
        xs( 16) = 0.1436590969635749D+02
        xs( 17) = 0.1532554913622554D+02
        xs( 18) = 0.1629258250827243D+02
        xs( 19) = 0.1726717927066257D+02
        xs( 20) = 0.1824993526975539D+02
        xs( 21) = 0.1923888958668149D+02
        xs( 22) = 0.2023672308682370D+02
        xs( 23) = 0.2124536296376024D+02
        xs( 24) = 0.2226409839373321D+02
        xs( 25) = 0.2328358568219287D+02
        xs( 26) = 0.2430351479480801D+02
        xs( 27) = 0.2530946532005795D+02
        xs( 28) = 0.2633615772948354D+02
        xs( 29) = 0.2767403694484826D+02
        xs( 30) = 0.2856471658168472D+02
        ws(  1) = 0.8714578152078947D+00
        ws(  2) = 0.8846274692754944D+00
        ws(  3) = 0.8882032687940268D+00
        ws(  4) = 0.8910906470348574D+00
        ws(  5) = 0.8942460297132857D+00
        ws(  6) = 0.8978606854194354D+00
        ws(  7) = 0.9019673575157438D+00
        ws(  8) = 0.9065524510770383D+00
        ws(  9) = 0.9115810507671076D+00
        ws( 10) = 0.9170155590224344D+00
        ws( 11) = 0.9228185487025238D+00
        ws( 12) = 0.9289436422383127D+00
        ws( 13) = 0.9353488601312498D+00
        ws( 14) = 0.9420241660541046D+00
        ws( 15) = 0.9489356424235276D+00
        ws( 16) = 0.9560432852453797D+00
        ws( 17) = 0.9633167461117462D+00
        ws( 18) = 0.9706608992597547D+00
        ws( 19) = 0.9779610192936801D+00
        ws( 20) = 0.9870832950605297D+00
        ws( 21) = 0.9975297662751356D+00
        ws( 22) = 0.9986645830705235D+00
        ws( 23) = 0.9926025593720240D+00
        ws( 24) = 0.1024110980540127D+01
        ws( 25) = 0.1092254785104417D+01
        ws( 26) = 0.1092929497753000D+01
        ws( 27) = 0.9141119894760000D+00
        ws( 28) = 0.4245308993396747D+00
        ws( 29) = 0.1460574009239586D+01
        ws( 30) = 0.3359387458091700D+01
        endif
        if( idomain .eq.  280 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.1570796326794897D+02
        rk1r = 0.2000000000000000D+00
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  30
        err = 0.4238735752568234D-13
        xs(  1) = 0.6796400191033964D+00
        xs(  2) = 0.1560570196019495D+01
        xs(  3) = 0.2447916943870887D+01
        xs(  4) = 0.3338331652432287D+01
        xs(  5) = 0.4231735061879946D+01
        xs(  6) = 0.5128513702439922D+01
        xs(  7) = 0.6029149962083806D+01
        xs(  8) = 0.6934131440252687D+01
        xs(  9) = 0.7843921060103059D+01
        xs( 10) = 0.8758946846030010D+01
        xs( 11) = 0.9679595068270549D+01
        xs( 12) = 0.1060621215851694D+02
        xs( 13) = 0.1153911119077489D+02
        xs( 14) = 0.1247856472504335D+02
        xs( 15) = 0.1342481603001306D+02
        xs( 16) = 0.1437809008327159D+02
        xs( 17) = 0.1533856329498688D+02
        xs( 18) = 0.1630648774862357D+02
        xs( 19) = 0.1728190875696868D+02
        xs( 20) = 0.1826589164063969D+02
        xs( 21) = 0.1925519089200308D+02
        xs( 22) = 0.2025525069681968D+02
        xs( 23) = 0.2126489690995732D+02
        xs( 24) = 0.2228259970945838D+02
        xs( 25) = 0.2330501930847069D+02
        xs( 26) = 0.2433280705665291D+02
        xs( 27) = 0.2534251944604211D+02
        xs( 28) = 0.2633475154981555D+02
        xs( 29) = 0.2767201121261622D+02
        xs( 30) = 0.2862094164328817D+02
        ws(  1) = 0.8722224250958164D+00
        ws(  2) = 0.8854014989990732D+00
        ws(  3) = 0.8889767298503476D+00
        ws(  4) = 0.8918616370667647D+00
        ws(  5) = 0.8950138315899796D+00
        ws(  6) = 0.8986251268850092D+00
        ws(  7) = 0.9027288515710992D+00
        ws(  8) = 0.9073117282718254D+00
        ws(  9) = 0.9123392353906123D+00
        ws( 10) = 0.9177749502789130D+00
        ws( 11) = 0.9235805091538282D+00
        ws( 12) = 0.9297101864301435D+00
        ws( 13) = 0.9361261885549553D+00
        ws( 14) = 0.9428133231987057D+00
        ws( 15) = 0.9497362026688866D+00
        ws( 16) = 0.9568752009169037D+00
        ws( 17) = 0.9641511979533613D+00
        ws( 18) = 0.9715805888824256D+00
        ws( 19) = 0.9789252092642700D+00
        ws( 20) = 0.9880198422211277D+00
        ws( 21) = 0.9981929533319388D+00
        ws( 22) = 0.1000696645129960D+01
        ws( 23) = 0.9940450478084530D+00
        ws( 24) = 0.1023786632314719D+01
        ws( 25) = 0.1097726882135540D+01
        ws( 26) = 0.1089524175071968D+01
        ws( 27) = 0.9040057975836117D+00
        ws( 28) = 0.4762972597233827D+00
        ws( 29) = 0.1394941669831561D+01
        ws( 30) = 0.3396782331162962D+01
        endif
        if( idomain .eq.  281 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.1570796326794897D+02
        rk1r = 0.4000000000000000D+00
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  29
        err = 0.9088173657060647D-13
        xs(  1) = 0.6855749900212627D+00
        xs(  2) = 0.1574188975256341D+01
        xs(  3) = 0.2469254407623418D+01
        xs(  4) = 0.3367381776137145D+01
        xs(  5) = 0.4268479980925594D+01
        xs(  6) = 0.5172928324052130D+01
        xs(  7) = 0.6081202904083489D+01
        xs(  8) = 0.6993785887750978D+01
        xs(  9) = 0.7911132621747632D+01
        xs( 10) = 0.8833663483081406D+01
        xs( 11) = 0.9761754888454648D+01
        xs( 12) = 0.1069573674968906D+02
        xs( 13) = 0.1163589607890093D+02
        xs( 14) = 0.1258249179995207D+02
        xs( 15) = 0.1353570771032762D+02
        xs( 16) = 0.1449568320029670D+02
        xs( 17) = 0.1546255877030781D+02
        xs( 18) = 0.1643622307328025D+02
        xs( 19) = 0.1741723632718644D+02
        xs( 20) = 0.1840458973644495D+02
        xs( 21) = 0.1939730730801151D+02
        xs( 22) = 0.2039176918275605D+02
        xs( 23) = 0.2139918435772120D+02
        xs( 24) = 0.2241082576909162D+02
        xs( 25) = 0.2338466695114239D+02
        xs( 26) = 0.2427092562647108D+02
        xs( 27) = 0.2510445172023941D+02
        xs( 28) = 0.2714904516409239D+02
        xs( 29) = 0.2801219603470892D+02
        ws(  1) = 0.8798367819300074D+00
        ws(  2) = 0.8931157519221909D+00
        ws(  3) = 0.8966951423784616D+00
        ws(  4) = 0.8995667827385082D+00
        ws(  5) = 0.9026970793560058D+00
        ws(  6) = 0.9062802531769513D+00
        ws(  7) = 0.9103497005132691D+00
        ws(  8) = 0.9148917857936117D+00
        ws(  9) = 0.9198736703296163D+00
        ws( 10) = 0.9252487259136397D+00
        ws( 11) = 0.9309858448399243D+00
        ws( 12) = 0.9370369395372768D+00
        ws( 13) = 0.9433271733535676D+00
        ws( 14) = 0.9498535785487584D+00
        ws( 15) = 0.9566118514250714D+00
        ws( 16) = 0.9634437959244437D+00
        ws( 17) = 0.9704477118044937D+00
        ws( 18) = 0.9768686964743544D+00
        ws( 19) = 0.9826856032148218D+00
        ws( 20) = 0.9930087496111805D+00
        ws( 21) = 0.1005527577827476D+01
        ws( 22) = 0.9813154757763002D+00
        ws( 23) = 0.9720829197895512D+00
        ws( 24) = 0.1035850333092759D+01
        ws( 25) = 0.1057404697143547D+01
        ws( 26) = 0.9857557959731355D+00
        ws( 27) = 0.6840800058168223D+00
        ws( 28) = 0.1102337903005542D+01
        ws( 29) = 0.3962819106261408D+01
        endif
        if( idomain .eq.  282 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.1570796326794897D+02
        rk1r = 0.1000000000000000D+01
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  30
        err = 0.1481713561612419D-13
        xs(  1) = 0.5173817668524284D+00
        xs(  2) = 0.1271185592702057D+01
        xs(  3) = 0.2097358499591136D+01
        xs(  4) = 0.2953960170348020D+01
        xs(  5) = 0.3825169052560647D+01
        xs(  6) = 0.4705402039310599D+01
        xs(  7) = 0.5592575960439790D+01
        xs(  8) = 0.6485937816582255D+01
        xs(  9) = 0.7385296306481168D+01
        xs( 10) = 0.8290711051932959D+01
        xs( 11) = 0.9202351139079653D+01
        xs( 12) = 0.1012043638512984D+02
        xs( 13) = 0.1104519284257851D+02
        xs( 14) = 0.1197684805795232D+02
        xs( 15) = 0.1291560892955363D+02
        xs( 16) = 0.1386168705595787D+02
        xs( 17) = 0.1481525562115322D+02
        xs( 18) = 0.1577652699300667D+02
        xs( 19) = 0.1674564273343894D+02
        xs( 20) = 0.1772277976783982D+02
        xs( 21) = 0.1870803775275888D+02
        xs( 22) = 0.1970202564785702D+02
        xs( 23) = 0.2070480032428898D+02
        xs( 24) = 0.2171490296536099D+02
        xs( 25) = 0.2273763404572975D+02
        xs( 26) = 0.2376619453527084D+02
        xs( 27) = 0.2481576464087332D+02
        xs( 28) = 0.2583468611132395D+02
        xs( 29) = 0.2687038921892450D+02
        xs( 30) = 0.2918691670472148D+02
        ws(  1) = 0.6964810451250103D+00
        ws(  2) = 0.8000139468722351D+00
        ws(  3) = 0.8455256231470896D+00
        ws(  4) = 0.8653326413045678D+00
        ws(  5) = 0.8762474768094723D+00
        ws(  6) = 0.8839015339150244D+00
        ws(  7) = 0.8903315747665763D+00
        ws(  8) = 0.8963655795987819D+00
        ws(  9) = 0.9023627571036061D+00
        ws( 10) = 0.9084952869380813D+00
        ws( 11) = 0.9148247412622940D+00
        ws( 12) = 0.9213821053173298D+00
        ws( 13) = 0.9281659116711920D+00
        ws( 14) = 0.9351777711351157D+00
        ws( 15) = 0.9423941033973608D+00
        ws( 16) = 0.9497888936495262D+00
        ws( 17) = 0.9573670254776461D+00
        ws( 18) = 0.9651506425059075D+00
        ws( 19) = 0.9730955616367256D+00
        ws( 20) = 0.9815405735611097D+00
        ws( 21) = 0.9890994689160660D+00
        ws( 22) = 0.9982497919709170D+00
        ws( 23) = 0.1006733379689808D+01
        ws( 24) = 0.1013742063721760D+01
        ws( 25) = 0.1027380762113685D+01
        ws( 26) = 0.1037795924118566D+01
        ws( 27) = 0.1091216084613407D+01
        ws( 28) = 0.1014429879204040D+01
        ws( 29) = 0.9806822266556371D+00
        ws( 30) = 0.4445626812431686D+01
        endif
        if( idomain .eq.  283 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.1570796326794897D+02
        rk1r = 0.1570796326794897D+01
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  28
        err = 0.6358808893823845D-13
        xs(  1) = 0.6893262636015051D+00
        xs(  2) = 0.1582814036273036D+01
        xs(  3) = 0.2482816710401179D+01
        xs(  4) = 0.3385945133483764D+01
        xs(  5) = 0.4292129640073245D+01
        xs(  6) = 0.5201777511128367D+01
        xs(  7) = 0.6115397687050731D+01
        xs(  8) = 0.7033508976005975D+01
        xs(  9) = 0.7956610147587108D+01
        xs( 10) = 0.8885166616288336D+01
        xs( 11) = 0.9819606666490307D+01
        xs( 12) = 0.1076032572452640D+02
        xs( 13) = 0.1170768062167723D+02
        xs( 14) = 0.1266198323574948D+02
        xs( 15) = 0.1362356469402190D+02
        xs( 16) = 0.1459271023799981D+02
        xs( 17) = 0.1556961055690149D+02
        xs( 18) = 0.1655468878841113D+02
        xs( 19) = 0.1754797855845332D+02
        xs( 20) = 0.1854926626418336D+02
        xs( 21) = 0.1956287782173484D+02
        xs( 22) = 0.2058306178942595D+02
        xs( 23) = 0.2160571561638363D+02
        xs( 24) = 0.2264689476133818D+02
        xs( 25) = 0.2369549607837485D+02
        xs( 26) = 0.2480812443523415D+02
        xs( 27) = 0.2588731352602897D+02
        xs( 28) = 0.2685258410028272D+02
        ws(  1) = 0.8846540706689510D+00
        ws(  2) = 0.8980253169559635D+00
        ws(  3) = 0.9016614470004040D+00
        ws(  4) = 0.9046062290106570D+00
        ws(  5) = 0.9078349702487311D+00
        ws(  6) = 0.9115468025072617D+00
        ws(  7) = 0.9157804397724014D+00
        ws(  8) = 0.9205257226939267D+00
        ws(  9) = 0.9257533342075076D+00
        ws( 10) = 0.9314321800762723D+00
        ws( 11) = 0.9375161705967914D+00
        ws( 12) = 0.9439705665283747D+00
        ws( 13) = 0.9507966670324433D+00
        ws( 14) = 0.9579039782639389D+00
        ws( 15) = 0.9652440529636133D+00
        ws( 16) = 0.9730193276483048D+00
        ws( 17) = 0.9809443671063247D+00
        ws( 18) = 0.9892105241197897D+00
        ws( 19) = 0.9989165860955813D+00
        ws( 20) = 0.1002471637541352D+01
        ws( 21) = 0.1012104046377296D+01
        ws( 22) = 0.1043142482766171D+01
        ws( 23) = 0.1047408491066317D+01
        ws( 24) = 0.1016584502974249D+01
        ws( 25) = 0.9496122177591586D+00
        ws( 26) = 0.9754287537432307D+00
        ws( 27) = 0.1717035765120524D+01
        ws( 28) = 0.1640249125579322D+01
        endif
        if( idomain .eq.  284 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.1570796326794897D+02
        rk1r = 0.3141592653589793D+01
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  27
        err = 0.9012397310436253D-13
        xs(  1) = 0.6876591873717197D+00
        xs(  2) = 0.1578968850717044D+01
        xs(  3) = 0.2476737439904908D+01
        xs(  4) = 0.3377566234918410D+01
        xs(  5) = 0.4281373915012318D+01
        xs(  6) = 0.5188562488868286D+01
        xs(  7) = 0.6099644516109065D+01
        xs(  8) = 0.7015150587604688D+01
        xs(  9) = 0.7935599287562800D+01
        xs( 10) = 0.8861484921966287D+01
        xs( 11) = 0.9793267032262072D+01
        xs( 12) = 0.1073137412556072D+02
        xs( 13) = 0.1167620557218688D+02
        xs( 14) = 0.1262811968808128D+02
        xs( 15) = 0.1358745797576186D+02
        xs( 16) = 0.1455455193615023D+02
        xs( 17) = 0.1552969325412179D+02
        xs( 18) = 0.1651323142884843D+02
        xs( 19) = 0.1750524192822821D+02
        xs( 20) = 0.1850722958024954D+02
        xs( 21) = 0.1951557921955199D+02
        xs( 22) = 0.2053614193513371D+02
        xs( 23) = 0.2157303809019532D+02
        xs( 24) = 0.2261535204410204D+02
        xs( 25) = 0.2365287855984732D+02
        xs( 26) = 0.2469548417591665D+02
        xs( 27) = 0.2577124071597190D+02
        ws(  1) = 0.8825100097282906D+00
        ws(  2) = 0.8958194492659800D+00
        ws(  3) = 0.8993970045094732D+00
        ws(  4) = 0.9022692714151483D+00
        ws(  5) = 0.9054172525288309D+00
        ws(  6) = 0.9090467895247990D+00
        ws(  7) = 0.9132056224779382D+00
        ws(  8) = 0.9178935508208628D+00
        ws(  9) = 0.9230866749109479D+00
        ws( 10) = 0.9287588712510857D+00
        ws( 11) = 0.9348800876579663D+00
        ws( 12) = 0.9414013790602813D+00
        ws( 13) = 0.9483091205014735D+00
        ws( 14) = 0.9555866752435480D+00
        ws( 15) = 0.9631644731508426D+00
        ws( 16) = 0.9710560383593161D+00
        ws( 17) = 0.9792233687723138D+00
        ws( 18) = 0.9879234844286831D+00
        ws( 19) = 0.9960391883912637D+00
        ws( 20) = 0.1008088652334682D+01
        ws( 21) = 0.1014250366128696D+01
        ws( 22) = 0.1020064365478798D+01
        ws( 23) = 0.1031210650653074D+01
        ws( 24) = 0.1066504562577959D+01
        ws( 25) = 0.1124691201482195D+01
        ws( 26) = 0.1156977480417321D+01
        ws( 27) = 0.1105036750042582D+01
        endif
        if( idomain .eq.  285 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.1570796326794897D+02
        rk1r = 0.6283185307179586D+01
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  29
        err = 0.7947909465098468D-13
        xs(  1) = 0.6798516948587193D+00
        xs(  2) = 0.1560874878332496D+01
        xs(  3) = 0.2447896085009378D+01
        xs(  4) = 0.3337360197165209D+01
        xs(  5) = 0.4229025212131413D+01
        xs(  6) = 0.5123166996723906D+01
        xs(  7) = 0.6020214337898993D+01
        xs(  8) = 0.6920659114056140D+01
        xs(  9) = 0.7825023068113292D+01
        xs( 10) = 0.8733841623382812D+01
        xs( 11) = 0.9647649079441660D+01
        xs( 12) = 0.1056697277562668D+02
        xs( 13) = 0.1149232023536814D+02
        xs( 14) = 0.1242418155158911D+02
        xs( 15) = 0.1336301877387036D+02
        xs( 16) = 0.1430927270972476D+02
        xs( 17) = 0.1526337571597626D+02
        xs( 18) = 0.1622570907771782D+02
        xs( 19) = 0.1719681039153963D+02
        xs( 20) = 0.1817667370501821D+02
        xs( 21) = 0.1916716569513309D+02
        xs( 22) = 0.2016633692538289D+02
        xs( 23) = 0.2117694453287123D+02
        xs( 24) = 0.2219960654324647D+02
        xs( 25) = 0.2323209392923236D+02
        xs( 26) = 0.2427625670477730D+02
        xs( 27) = 0.2535399629235867D+02
        xs( 28) = 0.2647649571074066D+02
        xs( 29) = 0.2755972344182130D+02
        ws(  1) = 0.8724463378638651D+00
        ws(  2) = 0.8853228097057559D+00
        ws(  3) = 0.8883697524587210D+00
        ws(  4) = 0.8905401489704535D+00
        ws(  5) = 0.8928399163102364D+00
        ws(  6) = 0.8955163794173158D+00
        ws(  7) = 0.8986607331264284D+00
        ws(  8) = 0.9023160507677803D+00
        ws(  9) = 0.9065014921392781D+00
        ws( 10) = 0.9112246291512303D+00
        ws( 11) = 0.9164782666314844D+00
        ws( 12) = 0.9222533576168710D+00
        ws( 13) = 0.9285250141615883D+00
        ws( 14) = 0.9352729122173790D+00
        ws( 15) = 0.9424713723117784D+00
        ws( 16) = 0.9501067001513174D+00
        ws( 17) = 0.9581727140101565D+00
        ws( 18) = 0.9665992025578211D+00
        ws( 19) = 0.9755857466589759D+00
        ws( 20) = 0.9849191177495243D+00
        ws( 21) = 0.9933803727981214D+00
        ws( 22) = 0.1006306114814593D+01
        ws( 23) = 0.1022800661868546D+01
        ws( 24) = 0.1027476309644098D+01
        ws( 25) = 0.1014628404337584D+01
        ws( 26) = 0.1024769300330113D+01
        ws( 27) = 0.1110275982184853D+01
        ws( 28) = 0.1330880945216672D+01
        ws( 29) = 0.1680208839698974D+01
        endif
        if( idomain .eq.  286 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.1570796326794897D+02
        rk1r = 0.9424777960769379D+01
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  29
        err = 0.7893785230990007D-13
        xs(  1) = 0.6772937761486033D+00
        xs(  2) = 0.1554843217965531D+01
        xs(  3) = 0.2437991638773733D+01
        xs(  4) = 0.3322993151721671D+01
        xs(  5) = 0.4209417862858431D+01
        xs(  6) = 0.5097372519400590D+01
        xs(  7) = 0.5987141935913843D+01
        xs(  8) = 0.6879104755746856D+01
        xs(  9) = 0.7773703447153914D+01
        xs( 10) = 0.8671431049204832D+01
        xs( 11) = 0.9572817174343839D+01
        xs( 12) = 0.1047841994377505D+02
        xs( 13) = 0.1138881801136183D+02
        xs( 14) = 0.1230459196732113D+02
        xs( 15) = 0.1322632525868225D+02
        xs( 16) = 0.1415459357181202D+02
        xs( 17) = 0.1508996538972339D+02
        xs( 18) = 0.1603298556361600D+02
        xs( 19) = 0.1698418854902710D+02
        xs( 20) = 0.1794411731212048D+02
        xs( 21) = 0.1891316476944725D+02
        xs( 22) = 0.1989195415962692D+02
        xs( 23) = 0.2088108287000426D+02
        xs( 24) = 0.2188185503040268D+02
        xs( 25) = 0.2289472849753440D+02
        xs( 26) = 0.2391645177855875D+02
        xs( 27) = 0.2494660325465972D+02
        xs( 28) = 0.2598643964966181D+02
        xs( 29) = 0.2706733302918668D+02
        ws(  1) = 0.8691221871672613D+00
        ws(  2) = 0.8816795959399500D+00
        ws(  3) = 0.8842344433052325D+00
        ws(  4) = 0.8857185974659796D+00
        ws(  5) = 0.8871525612253583D+00
        ws(  6) = 0.8888055262729102D+00
        ws(  7) = 0.8907969003066840D+00
        ws(  8) = 0.8932029447479298D+00
        ws(  9) = 0.8960775173142597D+00
        ws( 10) = 0.8994639204507247D+00
        ws( 11) = 0.9034035387796674D+00
        ws( 12) = 0.9078984920929477D+00
        ws( 13) = 0.9129880713601364D+00
        ws( 14) = 0.9186555384576854D+00
        ws( 15) = 0.9249128836708576D+00
        ws( 16) = 0.9317227115080222D+00
        ws( 17) = 0.9390842847414693D+00
        ws( 18) = 0.9470246787768836D+00
        ws( 19) = 0.9554816743840674D+00
        ws( 20) = 0.9643837049772984D+00
        ws( 21) = 0.9742092417580166D+00
        ws( 22) = 0.9835120464476137D+00
        ws( 23) = 0.9933861657843641D+00
        ws( 24) = 0.1005912778993338D+01
        ws( 25) = 0.1023133354221828D+01
        ws( 26) = 0.1032764853829643D+01
        ws( 27) = 0.1054581499294064D+01
        ws( 28) = 0.9510109712784924D+00
        ws( 29) = 0.1572809939139531D+01
        endif
        if( idomain .eq.  287 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.1570796326794897D+02
        rk1r = 0.1256637061435917D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  32
        err = 0.6284116448095427D-13
        xs(  1) = 0.6789456284904631D+00
        xs(  2) = 0.1558416539904633D+01
        xs(  3) = 0.2442982045266453D+01
        xs(  4) = 0.3328601128436556D+01
        xs(  5) = 0.4214569956231415D+01
        xs(  6) = 0.5100740435084458D+01
        xs(  7) = 0.5987164730091806D+01
        xs(  8) = 0.6874014644799645D+01
        xs(  9) = 0.7761556150573259D+01
        xs( 10) = 0.8650137905817267D+01
        xs( 11) = 0.9540183423266674D+01
        xs( 12) = 0.1043218220949193D+02
        xs( 13) = 0.1132668047077601D+02
        xs( 14) = 0.1222427374982322D+02
        xs( 15) = 0.1312558871406557D+02
        xs( 16) = 0.1403128083551886D+02
        xs( 17) = 0.1494201274714515D+02
        xs( 18) = 0.1585846133383411D+02
        xs( 19) = 0.1678129556299687D+02
        xs( 20) = 0.1771116850629956D+02
        xs( 21) = 0.1864875168029049D+02
        xs( 22) = 0.1959468191506776D+02
        xs( 23) = 0.2054961066082968D+02
        xs( 24) = 0.2151420001149706D+02
        xs( 25) = 0.2248906380908964D+02
        xs( 26) = 0.2347504265578261D+02
        xs( 27) = 0.2447267324892272D+02
        xs( 28) = 0.2548690770072462D+02
        xs( 29) = 0.2650549548134978D+02
        xs( 30) = 0.2754623532752071D+02
        xs( 31) = 0.2864413173637797D+02
        xs( 32) = 0.2967015433803698D+02
        ws(  1) = 0.8711841644078246D+00
        ws(  2) = 0.8834007987049861D+00
        ws(  3) = 0.8852989513618796D+00
        ws(  4) = 0.8858437067611612D+00
        ws(  5) = 0.8860732908991968D+00
        ws(  6) = 0.8862774029536009D+00
        ws(  7) = 0.8866001703821358D+00
        ws(  8) = 0.8871441286760255D+00
        ws(  9) = 0.8879972177391217D+00
        ws( 10) = 0.8892370305572072D+00
        ws( 11) = 0.8909351575054240D+00
        ws( 12) = 0.8931538245910492D+00
        ws( 13) = 0.8959441161959025D+00
        ws( 14) = 0.8993443272555974D+00
        ws( 15) = 0.9033943543789821D+00
        ws( 16) = 0.9081006491867847D+00
        ws( 17) = 0.9134809011386854D+00
        ws( 18) = 0.9195287475578360D+00
        ws( 19) = 0.9262469689701791D+00
        ws( 20) = 0.9336031363038783D+00
        ws( 21) = 0.9416482468909892D+00
        ws( 22) = 0.9502955043017171D+00
        ws( 23) = 0.9597323100493879D+00
        ws( 24) = 0.9697517274771774D+00
        ws( 25) = 0.9798156849696408D+00
        ws( 26) = 0.9922028196840499D+00
        ws( 27) = 0.9983762197022776D+00
        ws( 28) = 0.1029984041131584D+01
        ws( 29) = 0.1035315648484270D+01
        ws( 30) = 0.9911690334799629D+00
        ws( 31) = 0.1239595700222875D+01
        ws( 32) = 0.1501855926582759D+01
        endif
        if( idomain .eq.  288 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.1570796326794897D+02
        rk1r = 0.1570796326794897D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  32
        err = 0.9450839997437388D-13
        xs(  1) = 0.6855708717221574D+00
        xs(  2) = 0.1573541704194734D+01
        xs(  3) = 0.2466458882712361D+01
        xs(  4) = 0.3360125781994539D+01
        xs(  5) = 0.4253710904300132D+01
        xs(  6) = 0.5146938283081473D+01
        xs(  7) = 0.6039726485575922D+01
        xs(  8) = 0.6932108347406359D+01
        xs(  9) = 0.7824207166001612D+01
        xs( 10) = 0.8716224837686454D+01
        xs( 11) = 0.9608441249040586D+01
        xs( 12) = 0.1050120718077501D+02
        xs( 13) = 0.1139494327021702D+02
        xs( 14) = 0.1229013438000101D+02
        xs( 15) = 0.1318732482084090D+02
        xs( 16) = 0.1408711709690656D+02
        xs( 17) = 0.1499015520105559D+02
        xs( 18) = 0.1589712422820290D+02
        xs( 19) = 0.1680873329844282D+02
        xs( 20) = 0.1772572100396848D+02
        xs( 21) = 0.1864884666199405D+02
        xs( 22) = 0.1957879813290280D+02
        xs( 23) = 0.2051638986171444D+02
        xs( 24) = 0.2146247006499820D+02
        xs( 25) = 0.2241760270374905D+02
        xs( 26) = 0.2338307470504328D+02
        xs( 27) = 0.2435872024455121D+02
        xs( 28) = 0.2534564584869446D+02
        xs( 29) = 0.2634357535715808D+02
        xs( 30) = 0.2735239284225737D+02
        xs( 31) = 0.2837767170859518D+02
        xs( 32) = 0.2947043983410664D+02
        ws(  1) = 0.8796641389199754D+00
        ws(  2) = 0.8918592214293538D+00
        ws(  3) = 0.8935203819768521D+00
        ws(  4) = 0.8936968113265307D+00
        ws(  5) = 0.8934316886230690D+00
        ws(  6) = 0.8930103657524816D+00
        ws(  7) = 0.8925721940518891D+00
        ws(  8) = 0.8922123291205719D+00
        ws(  9) = 0.8920182169527101D+00
        ws( 10) = 0.8920643601710126D+00
        ws( 11) = 0.8924269795521532D+00
        ws( 12) = 0.8931748727416760D+00
        ws( 13) = 0.8943765779600873D+00
        ws( 14) = 0.8960968367680004D+00
        ws( 15) = 0.8983870078694416D+00
        ws( 16) = 0.9013023764784581D+00
        ws( 17) = 0.9048870193119632D+00
        ws( 18) = 0.9091734021341946D+00
        ws( 19) = 0.9141858028431182D+00
        ws( 20) = 0.9198931154691042D+00
        ws( 21) = 0.9264510821871956D+00
        ws( 22) = 0.9335598458602767D+00
        ws( 23) = 0.9415422311296199D+00
        ws( 24) = 0.9503379381703534D+00
        ws( 25) = 0.9598398081954596D+00
        ws( 26) = 0.9711820891012823D+00
        ws( 27) = 0.9837398659108830D+00
        ws( 28) = 0.9894586108335832D+00
        ws( 29) = 0.9908887789484513D+00
        ws( 30) = 0.1021103027813280D+01
        ws( 31) = 0.9992982125975332D+00
        ws( 32) = 0.1600129202079070D+01
        endif
        if( idomain .eq.  289 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.1570796326794897D+02
        rk1r = 0.1884955592153876D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  34
        err = 0.2271422679762659D-13
        xs(  1) = 0.6886739702677492D+00
        xs(  2) = 0.1580595564521018D+01
        xs(  3) = 0.2477322161494535D+01
        xs(  4) = 0.3374537073632771D+01
        xs(  5) = 0.4271296494646204D+01
        xs(  6) = 0.5167205881704099D+01
        xs(  7) = 0.6062057533773143D+01
        xs(  8) = 0.6955750944335220D+01
        xs(  9) = 0.7848268407512001D+01
        xs( 10) = 0.8739669559164842D+01
        xs( 11) = 0.9630087542688003D+01
        xs( 12) = 0.1051972924717256D+02
        xs( 13) = 0.1140887505866695D+02
        xs( 14) = 0.1229787805576958D+02
        xs( 15) = 0.1318716327871917D+02
        xs( 16) = 0.1407722309658524D+02
        xs( 17) = 0.1496861753705330D+02
        xs( 18) = 0.1586196541677634D+02
        xs( 19) = 0.1675794506101174D+02
        xs( 20) = 0.1765728881133906D+02
        xs( 21) = 0.1856073173572900D+02
        xs( 22) = 0.1946915588682132D+02
        xs( 23) = 0.2038329067664659D+02
        xs( 24) = 0.2130404797950466D+02
        xs( 25) = 0.2223230599233935D+02
        xs( 26) = 0.2316905793443235D+02
        xs( 27) = 0.2411505730716944D+02
        xs( 28) = 0.2507145407133017D+02
        xs( 29) = 0.2604092313412438D+02
        xs( 30) = 0.2702207062603990D+02
        xs( 31) = 0.2801332946251378D+02
        xs( 32) = 0.2902396800130192D+02
        xs( 33) = 0.3014262983731733D+02
        xs( 34) = 0.3116184288566624D+02
        ws(  1) = 0.8836270836639989D+00
        ws(  2) = 0.8957622346108383D+00
        ws(  3) = 0.8972173093393709D+00
        ws(  4) = 0.8970773106537413D+00
        ws(  5) = 0.8963800589005091D+00
        ws(  6) = 0.8954050290781350D+00
        ws(  7) = 0.8942816738266306D+00
        ws(  8) = 0.8931020839667364D+00
        ws(  9) = 0.8919435644240068D+00
        ws( 10) = 0.8908807745159401D+00
        ws( 11) = 0.8899887084431451D+00
        ws( 12) = 0.8893419739035743D+00
        ws( 13) = 0.8890097324726050D+00
        ws( 14) = 0.8890678171051020D+00
        ws( 15) = 0.8895832568925268D+00
        ws( 16) = 0.8906271531510661D+00
        ws( 17) = 0.8922662043222540D+00
        ws( 18) = 0.8945506219498811D+00
        ws( 19) = 0.8975244781292055D+00
        ws( 20) = 0.9012937396541151D+00
        ws( 21) = 0.9057373567133354D+00
        ws( 22) = 0.9111659281321147D+00
        ws( 23) = 0.9173182865009145D+00
        ws( 24) = 0.9245057468502978D+00
        ws( 25) = 0.9322840809617174D+00
        ws( 26) = 0.9406281073500675D+00
        ws( 27) = 0.9513913099425899D+00
        ws( 28) = 0.9636803951505809D+00
        ws( 29) = 0.9719854701842455D+00
        ws( 30) = 0.9876069265097409D+00
        ws( 31) = 0.1009095161587947D+01
        ws( 32) = 0.9635316656714641D+00
        ws( 33) = 0.1179967580690143D+01
        ws( 34) = 0.1652335426695754D+01
        endif
        if( idomain .eq.  290 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.1570796326794897D+02
        rk1r = 0.2199114857512855D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  35
        err = 0.1992238262993271D-13
        xs(  1) = 0.6985275116758902D+00
        xs(  2) = 0.1603156765584428D+01
        xs(  3) = 0.2512527781435209D+01
        xs(  4) = 0.3422184059343303D+01
        xs(  5) = 0.4331086298796209D+01
        xs(  6) = 0.5238744925119373D+01
        xs(  7) = 0.6144854736314838D+01
        xs(  8) = 0.7049207305401791D+01
        xs(  9) = 0.7951670769754944D+01
        xs( 10) = 0.8852179544738810D+01
        xs( 11) = 0.9750731829074077D+01
        xs( 12) = 0.1064739248019874D+02
        xs( 13) = 0.1154228855343407D+02
        xs( 14) = 0.1243561723801267D+02
        xs( 15) = 0.1332764104028325D+02
        xs( 16) = 0.1421869437485060D+02
        xs( 17) = 0.1510917777954031D+02
        xs( 18) = 0.1599956481685604D+02
        xs( 19) = 0.1689040240001367D+02
        xs( 20) = 0.1778229674098883D+02
        xs( 21) = 0.1867592297407944D+02
        xs( 22) = 0.1957203207999558D+02
        xs( 23) = 0.2047141659679017D+02
        xs( 24) = 0.2137493517403707D+02
        xs( 25) = 0.2228351299073076D+02
        xs( 26) = 0.2319792422950996D+02
        xs( 27) = 0.2411940608122759D+02
        xs( 28) = 0.2504920192051941D+02
        xs( 29) = 0.2598826454154077D+02
        xs( 30) = 0.2693459543957062D+02
        xs( 31) = 0.2789752624658001D+02
        xs( 32) = 0.2887046379867594D+02
        xs( 33) = 0.2985496542276150D+02
        xs( 34) = 0.3087117340712085D+02
        xs( 35) = 0.3196352905498507D+02
        ws(  1) = 0.8962567193770630D+00
        ws(  2) = 0.9084707689766421D+00
        ws(  3) = 0.9097781188165058D+00
        ws(  4) = 0.9093838029641379D+00
        ws(  5) = 0.9083427315672951D+00
        ws(  6) = 0.9069255550988212D+00
        ws(  7) = 0.9052590969160684D+00
        ws(  8) = 0.9034240348746766D+00
        ws(  9) = 0.9014917804347820D+00
        ws( 10) = 0.8995257676250159D+00
        ws( 11) = 0.8975903371025673D+00
        ws( 12) = 0.8957512092179364D+00
        ws( 13) = 0.8940741626421989D+00
        ws( 14) = 0.8926270261097137D+00
        ws( 15) = 0.8914762456311732D+00
        ws( 16) = 0.8906981393517428D+00
        ws( 17) = 0.8903482943233358D+00
        ws( 18) = 0.8905151695022371D+00
        ws( 19) = 0.8912573198888689D+00
        ws( 20) = 0.8926510906627997D+00
        ws( 21) = 0.8947278199463981D+00
        ws( 22) = 0.8976121089711475D+00
        ws( 23) = 0.9013321311737960D+00
        ws( 24) = 0.9058428843864647D+00
        ws( 25) = 0.9114334615619306D+00
        ws( 26) = 0.9177188831546954D+00
        ws( 27) = 0.9253811030237080D+00
        ws( 28) = 0.9336763430832253D+00
        ws( 29) = 0.9435486236955346D+00
        ws( 30) = 0.9509336711847421D+00
        ws( 31) = 0.9648736618500721D+00
        ws( 32) = 0.9867890733148843D+00
        ws( 33) = 0.9687906539749171D+00
        ws( 34) = 0.1028259980926692D+01
        ws( 35) = 0.1585095974589009D+01
        endif
        if( idomain .eq.  291 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.1570796326794897D+02
        rk1r = 0.2513274122871834D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  37
        err = 0.5163897324068292D-13
        xs(  1) = 0.7060241921978937D+00
        xs(  2) = 0.1620362370739007D+01
        xs(  3) = 0.2539479070092292D+01
        xs(  4) = 0.3458862793845548D+01
        xs(  5) = 0.4377446646959252D+01
        xs(  6) = 0.5294717370454928D+01
        xs(  7) = 0.6210336258618826D+01
        xs(  8) = 0.7124058571035149D+01
        xs(  9) = 0.8035704792537105D+01
        xs( 10) = 0.8945154239307323D+01
        xs( 11) = 0.9852339425114151D+01
        xs( 12) = 0.1075724918932527D+02
        xs( 13) = 0.1165992496240375D+02
        xs( 14) = 0.1256046881090940D+02
        xs( 15) = 0.1345903565006638D+02
        xs( 16) = 0.1435584788842909D+02
        xs( 17) = 0.1525118091867702D+02
        xs( 18) = 0.1614538347557027D+02
        xs( 19) = 0.1703886337575581D+02
        xs( 20) = 0.1793210164794796D+02
        xs( 21) = 0.1882564118251933D+02
        xs( 22) = 0.1972009382036408D+02
        xs( 23) = 0.2061615016028966D+02
        xs( 24) = 0.2151460947840585D+02
        xs( 25) = 0.2241616704716562D+02
        xs( 26) = 0.2332182291114065D+02
        xs( 27) = 0.2423250729632347D+02
        xs( 28) = 0.2514925136887672D+02
        xs( 29) = 0.2607339119387899D+02
        xs( 30) = 0.2700411439265945D+02
        xs( 31) = 0.2794508955085209D+02
        xs( 32) = 0.2890149029952274D+02
        xs( 33) = 0.2987173155426184D+02
        xs( 34) = 0.3084093039124832D+02
        xs( 35) = 0.3184461299721730D+02
        xs( 36) = 0.3292870479044662D+02
        xs( 37) = 0.3392308747787860D+02
        ws(  1) = 0.9058767815587198D+00
        ws(  2) = 0.9182156832477510D+00
        ws(  3) = 0.9195192525527026D+00
        ws(  4) = 0.9190937407520506D+00
        ws(  5) = 0.9179923306753930D+00
        ws(  6) = 0.9164920296157414D+00
        ws(  7) = 0.9147066387461181D+00
        ws(  8) = 0.9127090499663388D+00
        ws(  9) = 0.9105628769958074D+00
        ws( 10) = 0.9083237028145285D+00
        ws( 11) = 0.9060448982765195D+00
        ws( 12) = 0.9037815838703631D+00
        ws( 13) = 0.9015891846843941D+00
        ws( 14) = 0.8995238031008429D+00
        ws( 15) = 0.8976449620464745D+00
        ws( 16) = 0.8960240287124215D+00
        ws( 17) = 0.8947029920372942D+00
        ws( 18) = 0.8937683317618181D+00
        ws( 19) = 0.8932740104197050D+00
        ws( 20) = 0.8932918318978447D+00
        ws( 21) = 0.8938966111978514D+00
        ws( 22) = 0.8951303472540268D+00
        ws( 23) = 0.8971046943450623D+00
        ws( 24) = 0.8998734068810699D+00
        ws( 25) = 0.9035358119893467D+00
        ws( 26) = 0.9079691955156883D+00
        ws( 27) = 0.9136207180852184D+00
        ws( 28) = 0.9197830337178104D+00
        ws( 29) = 0.9282236621286023D+00
        ws( 30) = 0.9357750927191725D+00
        ws( 31) = 0.9480507597637416D+00
        ws( 32) = 0.9635283308837863D+00
        ws( 33) = 0.9722404016155057D+00
        ws( 34) = 0.1002639544839804D+01
        ws( 35) = 0.9031949603016697D+00
        ws( 36) = 0.1075884399640140D+01
        ws( 37) = 0.2053918516270042D+01
        endif
        if( idomain .eq.  292 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.1570796326794897D+02
        rk1r = 0.2827433388230814D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  38
        err = 0.6783259339707003D-13
        xs(  1) = 0.7133727085776385D+00
        xs(  2) = 0.1637230232432262D+01
        xs(  3) = 0.2565970456026325D+01
        xs(  4) = 0.3495043786880479D+01
        xs(  5) = 0.4423389584640917D+01
        xs(  6) = 0.5350490212322417D+01
        xs(  7) = 0.6275998359559522D+01
        xs(  8) = 0.7199647233752657D+01
        xs(  9) = 0.8121224507550640D+01
        xs( 10) = 0.9040563910079989D+01
        xs( 11) = 0.9957539348239830D+01
        xs( 12) = 0.1087206698453242D+02
        xs( 13) = 0.1178409944207210D+02
        xs( 14) = 0.1269363843724583D+02
        xs( 15) = 0.1360071937352632D+02
        xs( 16) = 0.1450543253290151D+02
        xs( 17) = 0.1540790671144401D+02
        xs( 18) = 0.1630832880990167D+02
        xs( 19) = 0.1720692989690331D+02
        xs( 20) = 0.1810401298425534D+02
        xs( 21) = 0.1899990744798180D+02
        xs( 22) = 0.1989505187944725D+02
        xs( 23) = 0.2078990196357998D+02
        xs( 24) = 0.2168503122645867D+02
        xs( 25) = 0.2258101736170101D+02
        xs( 26) = 0.2347855178661615D+02
        xs( 27) = 0.2437844775481181D+02
        xs( 28) = 0.2528155847732997D+02
        xs( 29) = 0.2618839861514029D+02
        xs( 30) = 0.2710035296190974D+02
        xs( 31) = 0.2801842776068443D+02
        xs( 32) = 0.2894409512412687D+02
        xs( 33) = 0.2987724652698151D+02
        xs( 34) = 0.3081532744815103D+02
        xs( 35) = 0.3176266007098146D+02
        xs( 36) = 0.3272904008251294D+02
        xs( 37) = 0.3377401754623557D+02
        xs( 38) = 0.3486426645022634D+02
        ws(  1) = 0.9153015886851412D+00
        ws(  2) = 0.9277968880465703D+00
        ws(  3) = 0.9291758199449985D+00
        ws(  4) = 0.9288191127151824D+00
        ws(  5) = 0.9277905368735112D+00
        ws(  6) = 0.9263541235448057D+00
        ws(  7) = 0.9246171283523416D+00
        ws(  8) = 0.9226450236447080D+00
        ws(  9) = 0.9204826386972137D+00
        ws( 10) = 0.9181754508336517D+00
        ws( 11) = 0.9157621080597893D+00
        ws( 12) = 0.9132838847829613D+00
        ws( 13) = 0.9107838997370191D+00
        ws( 14) = 0.9082985373368150D+00
        ws( 15) = 0.9058777195443934D+00
        ws( 16) = 0.9035693204878521D+00
        ws( 17) = 0.9014119459089140D+00
        ws( 18) = 0.8994688589566161D+00
        ws( 19) = 0.8977882168555458D+00
        ws( 20) = 0.8964203305998609D+00
        ws( 21) = 0.8954647477696485D+00
        ws( 22) = 0.8949075952076374D+00
        ws( 23) = 0.8948722286637404D+00
        ws( 24) = 0.8954795606678408D+00
        ws( 25) = 0.8966289208275028D+00
        ws( 26) = 0.8985735101875396D+00
        ws( 27) = 0.9014729831221437D+00
        ws( 28) = 0.9045876039843181D+00
        ws( 29) = 0.9100215787275545D+00
        ws( 30) = 0.9142249357566674D+00
        ws( 31) = 0.9215979494637419D+00
        ws( 32) = 0.9310439990706972D+00
        ws( 33) = 0.9354794027671250D+00
        ws( 34) = 0.9337544408290825D+00
        ws( 35) = 0.9568346071641559D+00
        ws( 36) = 0.9872695486186563D+00
        ws( 37) = 0.1029967939844214D+01
        ws( 38) = 0.1626412230758031D+01
        endif
        if( idomain .eq.  293 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.1570796326794897D+02
        rk1r = 0.3141592653589793D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  40
        err = 0.9689970162825626D-13
        xs(  1) = 0.7220914603464126D+00
        xs(  2) = 0.1657249008794037D+01
        xs(  3) = 0.2597352311475047D+01
        xs(  4) = 0.3537800847608699D+01
        xs(  5) = 0.4477520344433777D+01
        xs(  6) = 0.5415981841547769D+01
        xs(  7) = 0.6352827170343194D+01
        xs(  8) = 0.7287772263423431D+01
        xs(  9) = 0.8220582459299649D+01
        xs( 10) = 0.9151064592569742D+01
        xs( 11) = 0.1007905610998238D+02
        xs( 12) = 0.1100443123047340D+02
        xs( 13) = 0.1192708903548078D+02
        xs( 14) = 0.1284697018964698D+02
        xs( 15) = 0.1376403857938671D+02
        xs( 16) = 0.1467829798943616D+02
        xs( 17) = 0.1558978891208752D+02
        xs( 18) = 0.1649858588637311D+02
        xs( 19) = 0.1740479993604280D+02
        xs( 20) = 0.1830860875887253D+02
        xs( 21) = 0.1921019110439597D+02
        xs( 22) = 0.2010983818442002D+02
        xs( 23) = 0.2100783028531518D+02
        xs( 24) = 0.2190455767173857D+02
        xs( 25) = 0.2280045693654562D+02
        xs( 26) = 0.2369598753718446D+02
        xs( 27) = 0.2459171399916349D+02
        xs( 28) = 0.2548843938508532D+02
        xs( 29) = 0.2638651161022167D+02
        xs( 30) = 0.2728695752313288D+02
        xs( 31) = 0.2819035309297443D+02
        xs( 32) = 0.2909816249212168D+02
        xs( 33) = 0.3001198887370064D+02
        xs( 34) = 0.3092936753375495D+02
        xs( 35) = 0.3185150624480246D+02
        xs( 36) = 0.3277788997947576D+02
        xs( 37) = 0.3375043067427137D+02
        xs( 38) = 0.3471933103758189D+02
        xs( 39) = 0.3559137002206171D+02
        xs( 40) = 0.3687422785719007D+02
        ws(  1) = 0.9264873920342191D+00
        ws(  2) = 0.9391514560804597D+00
        ws(  3) = 0.9405457437833404D+00
        ws(  4) = 0.9401966336259895D+00
        ws(  5) = 0.9391582255971942D+00
        ws(  6) = 0.9377060924125147D+00
        ws(  7) = 0.9359370552075791D+00
        ws(  8) = 0.9339140802605713D+00
        ws(  9) = 0.9316756555490125D+00
        ws( 10) = 0.9292614107685548D+00
        ws( 11) = 0.9267002047263514D+00
        ws( 12) = 0.9240313502923642D+00
        ws( 13) = 0.9212769730732679D+00
        ws( 14) = 0.9184781641395583D+00
        ws( 15) = 0.9156593762737629D+00
        ws( 16) = 0.9128682664912566D+00
        ws( 17) = 0.9101246360730324D+00
        ws( 18) = 0.9074852052973529D+00
        ws( 19) = 0.9049749719200927D+00
        ws( 20) = 0.9026605584682763D+00
        ws( 21) = 0.9005759958126914D+00
        ws( 22) = 0.8987615918916266D+00
        ws( 23) = 0.8972728465466017D+00
        ws( 24) = 0.8962508123722779D+00
        ws( 25) = 0.8956290154793883D+00
        ws( 26) = 0.8955103018491273D+00
        ws( 27) = 0.8961314024791731D+00
        ws( 28) = 0.8972026184380600D+00
        ws( 29) = 0.8994771832234179D+00
        ws( 30) = 0.9013168899710706D+00
        ws( 31) = 0.9051513283385402D+00
        ws( 32) = 0.9112439281648371D+00
        ws( 33) = 0.9152052110058008D+00
        ws( 34) = 0.9171483701297360D+00
        ws( 35) = 0.9302077057060589D+00
        ws( 36) = 0.9390667143327669D+00
        ws( 37) = 0.9372531627211433D+00
        ws( 38) = 0.9776216216709869D+00
        ws( 39) = 0.8536666363362614D+00
        ws( 40) = 0.1738654483915125D+01
        endif
        if( idomain .eq.  294 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.1570796326794897D+02
        rk1r = 0.3455751918948772D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  42
        err = 0.6771172688004752D-13
        xs(  1) = 0.7235832040241222D+00
        xs(  2) = 0.1660719537388763D+01
        xs(  3) = 0.2602860591888270D+01
        xs(  4) = 0.3545440862596958D+01
        xs(  5) = 0.4487399401871207D+01
        xs(  6) = 0.5428232966640851D+01
        xs(  7) = 0.6367591393378862D+01
        xs(  8) = 0.7305199528510614D+01
        xs(  9) = 0.8240823357839801D+01
        xs( 10) = 0.9174261130102034D+01
        xs( 11) = 0.1010534099804236D+02
        xs( 12) = 0.1103391401385182D+02
        xs( 13) = 0.1195986002487507D+02
        xs( 14) = 0.1288308005763060D+02
        xs( 15) = 0.1380350474279928D+02
        xs( 16) = 0.1472108641863253D+02
        xs( 17) = 0.1563581012693651D+02
        xs( 18) = 0.1654768456150604D+02
        xs( 19) = 0.1745675337361244D+02
        xs( 20) = 0.1836308742707868D+02
        xs( 21) = 0.1926680483497620D+02
        xs( 22) = 0.2016804462768053D+02
        xs( 23) = 0.2106700053667219D+02
        xs( 24) = 0.2196391029727894D+02
        xs( 25) = 0.2285905012919868D+02
        xs( 26) = 0.2375276867384625D+02
        xs( 27) = 0.2464544763283025D+02
        xs( 28) = 0.2553752127302723D+02
        xs( 29) = 0.2642961444785456D+02
        xs( 30) = 0.2732217062800291D+02
        xs( 31) = 0.2821594081213806D+02
        xs( 32) = 0.2911173863004092D+02
        xs( 33) = 0.3001032019330206D+02
        xs( 34) = 0.3091264473918990D+02
        xs( 35) = 0.3182057131233595D+02
        xs( 36) = 0.3273420389270278D+02
        xs( 37) = 0.3365332607382357D+02
        xs( 38) = 0.3457791056376203D+02
        xs( 39) = 0.3551910311542209D+02
        xs( 40) = 0.3647712445376181D+02
        xs( 41) = 0.3746164317285553D+02
        xs( 42) = 0.3856338219899617D+02
        ws(  1) = 0.9284232425074517D+00
        ws(  2) = 0.9411583957097631D+00
        ws(  3) = 0.9426261044729027D+00
        ws(  4) = 0.9423756946101512D+00
        ws(  5) = 0.9414641844812426D+00
        ws(  6) = 0.9401459815209419D+00
        ws(  7) = 0.9385255159915741D+00
        ws(  8) = 0.9366513087191704D+00
        ws(  9) = 0.9345621909963518D+00
        ws( 10) = 0.9322856455302343D+00
        ws( 11) = 0.9298490345561812D+00
        ws( 12) = 0.9272785756636135D+00
        ws( 13) = 0.9245956885247758D+00
        ws( 14) = 0.9218320801441289D+00
        ws( 15) = 0.9190088482923096D+00
        ws( 16) = 0.9161526292300988D+00
        ws( 17) = 0.9132956116521406D+00
        ws( 18) = 0.9104610361422625D+00
        ws( 19) = 0.9076878417787230D+00
        ws( 20) = 0.9050039293767905D+00
        ws( 21) = 0.9024496027728506D+00
        ws( 22) = 0.9000635604562311D+00
        ws( 23) = 0.8978888549402513D+00
        ws( 24) = 0.8959734327257979D+00
        ws( 25) = 0.8943699787429041D+00
        ws( 26) = 0.8931302845449164D+00
        ws( 27) = 0.8923190939549795D+00
        ws( 28) = 0.8919438515264807D+00
        ws( 29) = 0.8922652351422620D+00
        ws( 30) = 0.8931048631392638D+00
        ws( 31) = 0.8946541068863157D+00
        ws( 32) = 0.8970266193007749D+00
        ws( 33) = 0.9003526228716502D+00
        ws( 34) = 0.9049988663419877D+00
        ws( 35) = 0.9102281818405399D+00
        ws( 36) = 0.9180067878729761D+00
        ws( 37) = 0.9246501086003170D+00
        ws( 38) = 0.9316193171580658D+00
        ws( 39) = 0.9190428607752147D+00
        ws( 40) = 0.9698610157297498D+00
        ws( 41) = 0.9283180055388534D+00
        ws( 42) = 0.1733265924169096D+01
        endif
        if( idomain .eq.  295 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.1570796326794897D+02
        rk1r = 0.3769911184307752D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  43
        err = 0.8576301286458958D-13
        xs(  1) = 0.7314146314243265D+00
        xs(  2) = 0.1678696692156419D+01
        xs(  3) = 0.2631062917812701D+01
        xs(  4) = 0.3583899868910648D+01
        xs(  5) = 0.4536155509959611D+01
        xs(  6) = 0.5487322843958841D+01
        xs(  7) = 0.6437061362783920D+01
        xs(  8) = 0.7385095556468408D+01
        xs(  9) = 0.8331194973508161D+01
        xs( 10) = 0.9275154537624392D+01
        xs( 11) = 0.1021680005065104D+02
        xs( 12) = 0.1115597397174431D+02
        xs( 13) = 0.1209254529784171D+02
        xs( 14) = 0.1302639674868781D+02
        xs( 15) = 0.1395744127587517D+02
        xs( 16) = 0.1488559982493211D+02
        xs( 17) = 0.1581082772545742D+02
        xs( 18) = 0.1673309166990042D+02
        xs( 19) = 0.1765238670977929D+02
        xs( 20) = 0.1856872851878873D+02
        xs( 21) = 0.1948216209085269D+02
        xs( 22) = 0.2039276179059393D+02
        xs( 23) = 0.2130062812553715D+02
        xs( 24) = 0.2220588919885612D+02
        xs( 25) = 0.2310872970492409D+02
        xs( 26) = 0.2400936515639626D+02
        xs( 27) = 0.2490803646718725D+02
        xs( 28) = 0.2580506062104529D+02
        xs( 29) = 0.2670077011785093D+02
        xs( 30) = 0.2759568026200004D+02
        xs( 31) = 0.2849009397112280D+02
        xs( 32) = 0.2938470717189833D+02
        xs( 33) = 0.3028019759780870D+02
        xs( 34) = 0.3117715140533734D+02
        xs( 35) = 0.3207647322877729D+02
        xs( 36) = 0.3297915121595921D+02
        xs( 37) = 0.3388612861258336D+02
        xs( 38) = 0.3480036613783349D+02
        xs( 39) = 0.3571449752446401D+02
        xs( 40) = 0.3665059379216583D+02
        xs( 41) = 0.3757764408443434D+02
        xs( 42) = 0.3854869070745939D+02
        xs( 43) = 0.3961971244155289D+02
        ws(  1) = 0.9384685988564703D+00
        ws(  2) = 0.9513553302509978D+00
        ws(  3) = 0.9528710532546167D+00
        ws(  4) = 0.9526539909073267D+00
        ws(  5) = 0.9517763409239072D+00
        ws(  6) = 0.9505028083794116D+00
        ws(  7) = 0.9489268921500619D+00
        ws(  8) = 0.9471028238916414D+00
        ws(  9) = 0.9450622472642536D+00
        ws( 10) = 0.9428309859444975D+00
        ws( 11) = 0.9404316071519218D+00
        ws( 12) = 0.9378957725645206D+00
        ws( 13) = 0.9352258489614419D+00
        ws( 14) = 0.9324616185879090D+00
        ws( 15) = 0.9296137759746336D+00
        ws( 16) = 0.9267003225595237D+00
        ws( 17) = 0.9237480061754270D+00
        ws( 18) = 0.9207777491007259D+00
        ws( 19) = 0.9178112441727573D+00
        ws( 20) = 0.9148809876918855D+00
        ws( 21) = 0.9120077387723891D+00
        ws( 22) = 0.9092131053431476D+00
        ws( 23) = 0.9065315359842553D+00
        ws( 24) = 0.9040326797896561D+00
        ws( 25) = 0.9016899790039467D+00
        ws( 26) = 0.8996155707706383D+00
        ws( 27) = 0.8978196310039050D+00
        ws( 28) = 0.8962479450615765D+00
        ws( 29) = 0.8953416592715709D+00
        ws( 30) = 0.8946287321048445D+00
        ws( 31) = 0.8945092071019136D+00
        ws( 32) = 0.8948367281526804D+00
        ws( 33) = 0.8961847666626466D+00
        ws( 34) = 0.8979813837858461D+00
        ws( 35) = 0.9012492204339652D+00
        ws( 36) = 0.9062816249618078D+00
        ws( 37) = 0.9118864114923088D+00
        ws( 38) = 0.9124576102065066D+00
        ws( 39) = 0.9042591945128197D+00
        ws( 40) = 0.9314428316557808D+00
        ws( 41) = 0.9459292647988669D+00
        ws( 42) = 0.9550854272567396D+00
        ws( 43) = 0.1225156148775587D+01
        endif
        if( idomain .eq.  296 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.1570796326794897D+02
        rk1r = 0.4084070449666731D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  46
        err = 0.9342194860372819D-13
        xs(  1) = 0.7330354308690405D+00
        xs(  2) = 0.1682410067423046D+01
        xs(  3) = 0.2636920901931452D+01
        xs(  4) = 0.3591948798730641D+01
        xs(  5) = 0.4546456683775967D+01
        xs(  6) = 0.5499946842068019D+01
        xs(  7) = 0.6452088949639682D+01
        xs(  8) = 0.7402611661266484D+01
        xs(  9) = 0.8351287851928429D+01
        xs( 10) = 0.9297913089954582D+01
        xs( 11) = 0.1024230799530353D+02
        xs( 12) = 0.1118430913882258D+02
        xs( 13) = 0.1212377441149846D+02
        xs( 14) = 0.1306057476982856D+02
        xs( 15) = 0.1399460060891385D+02
        xs( 16) = 0.1492575598935503D+02
        xs( 17) = 0.1585396484724276D+02
        xs( 18) = 0.1677916258411631D+02
        xs( 19) = 0.1770130897242343D+02
        xs( 20) = 0.1862037545069953D+02
        xs( 21) = 0.1953635149636157D+02
        xs( 22) = 0.2044925663909360D+02
        xs( 23) = 0.2135912690363226D+02
        xs( 24) = 0.2226601150657539D+02
        xs( 25) = 0.2317001582613531D+02
        xs( 26) = 0.2407123745076237D+02
        xs( 27) = 0.2496983479119485D+02
        xs( 28) = 0.2586598017265234D+02
        xs( 29) = 0.2675990992826039D+02
        xs( 30) = 0.2765187013254346D+02
        xs( 31) = 0.2854220382358464D+02
        xs( 32) = 0.2943119901301255D+02
        xs( 33) = 0.3031933216618694D+02
        xs( 34) = 0.3120713196807440D+02
        xs( 35) = 0.3209501168940133D+02
        xs( 36) = 0.3298369156026341D+02
        xs( 37) = 0.3387361054665482D+02
        xs( 38) = 0.3476572326416259D+02
        xs( 39) = 0.3566144554397903D+02
        xs( 40) = 0.3656195551764585D+02
        xs( 41) = 0.3746356885938261D+02
        xs( 42) = 0.3837783992816959D+02
        xs( 43) = 0.3928647871070459D+02
        xs( 44) = 0.4022755114973508D+02
        xs( 45) = 0.4118780246283163D+02
        xs( 46) = 0.4235664011523789D+02
        ws(  1) = 0.9405459462547328D+00
        ws(  2) = 0.9534698536535887D+00
        ws(  3) = 0.9550382495735416D+00
        ws(  4) = 0.9548720460701939D+00
        ws(  5) = 0.9540647010515242D+00
        ws(  6) = 0.9528634037868786D+00
        ws(  7) = 0.9513737467426477D+00
        ws(  8) = 0.9496342046221778D+00
        ws(  9) = 0.9476840731583751D+00
        ws( 10) = 0.9455381144721796D+00
        ws( 11) = 0.9432232294256183D+00
        ws( 12) = 0.9407555175236527D+00
        ws( 13) = 0.9381530601692073D+00
        ws( 14) = 0.9354301339981120D+00
        ws( 15) = 0.9326042592779881D+00
        ws( 16) = 0.9296963923179657D+00
        ws( 17) = 0.9267111804213103D+00
        ws( 18) = 0.9236774183276975D+00
        ws( 19) = 0.9206057400071836D+00
        ws( 20) = 0.9175234108361116D+00
        ws( 21) = 0.9144385224652289D+00
        ws( 22) = 0.9113799756272264D+00
        ws( 23) = 0.9083677580311977D+00
        ws( 24) = 0.9054271068193789D+00
        ws( 25) = 0.9025805541245803D+00
        ws( 26) = 0.8998858411424823D+00
        ws( 27) = 0.8973442100723499D+00
        ws( 28) = 0.8949950135580345D+00
        ws( 29) = 0.8929176309211007D+00
        ws( 30) = 0.8910679769161188D+00
        ws( 31) = 0.8895946162551278D+00
        ws( 32) = 0.8884607078336435D+00
        ws( 33) = 0.8878428597907528D+00
        ws( 34) = 0.8877615635750764D+00
        ws( 35) = 0.8882102363427730D+00
        ws( 36) = 0.8890466901387735D+00
        ws( 37) = 0.8903307541494285D+00
        ws( 38) = 0.8933799244510074D+00
        ws( 39) = 0.8955413198687934D+00
        ws( 40) = 0.9016930950230480D+00
        ws( 41) = 0.9097448282928285D+00
        ws( 42) = 0.8951416027505096D+00
        ws( 43) = 0.9103968827013235D+00
        ws( 44) = 0.9581167387632338D+00
        ws( 45) = 0.7432019440912251D+00
        ws( 46) = 0.1865411967132415D+01
        endif
        if( idomain .eq.  297 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.1570796326794897D+02
        rk1r = 0.4398229715025710D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  50
        err = 0.3032961332106866D-13
        xs(  1) = 0.7321955312883898D+00
        xs(  2) = 0.1680511553734263D+01
        xs(  3) = 0.2633990932323970D+01
        xs(  4) = 0.3588051805752051D+01
        xs(  5) = 0.4541671224844123D+01
        xs(  6) = 0.5494372000625403D+01
        xs(  7) = 0.6445834163710769D+01
        xs(  8) = 0.7395799743977866D+01
        xs(  9) = 0.8344047338885463D+01
        xs( 10) = 0.9290378070811260D+01
        xs( 11) = 0.1023461311912407D+02
        xs( 12) = 0.1117658811116826D+02
        xs( 13) = 0.1211615516846051D+02
        xs( 14) = 0.1305317871139764D+02
        xs( 15) = 0.1398753740172921D+02
        xs( 16) = 0.1491912192354130D+02
        xs( 17) = 0.1584783676388817D+02
        xs( 18) = 0.1677359795286666D+02
        xs( 19) = 0.1769633449679898D+02
        xs( 20) = 0.1861598801274892D+02
        xs( 21) = 0.1953251453868050D+02
        xs( 22) = 0.2044588290376674D+02
        xs( 23) = 0.2135607778152132D+02
        xs( 24) = 0.2226309839960240D+02
        xs( 25) = 0.2316696107486531D+02
        xs( 26) = 0.2406770307266191D+02
        xs( 27) = 0.2496537923326069D+02
        xs( 28) = 0.2586006560881129D+02
        xs( 29) = 0.2675186391664786D+02
        xs( 30) = 0.2764090334080890D+02
        xs( 31) = 0.2852734105128552D+02
        xs( 32) = 0.2941137067798606D+02
        xs( 33) = 0.3029321479447679D+02
        xs( 34) = 0.3117314210990601D+02
        xs( 35) = 0.3205146026471072D+02
        xs( 36) = 0.3292851820696948D+02
        xs( 37) = 0.3380478691947792D+02
        xs( 38) = 0.3468057543219482D+02
        xs( 39) = 0.3555658239619582D+02
        xs( 40) = 0.3643333405896907D+02
        xs( 41) = 0.3731154423554461D+02
        xs( 42) = 0.3819198680631113D+02
        xs( 43) = 0.3907468981750484D+02
        xs( 44) = 0.3996262429289001D+02
        xs( 45) = 0.4085458202342461D+02
        xs( 46) = 0.4175132909467045D+02
        xs( 47) = 0.4266465991174383D+02
        xs( 48) = 0.4357031797310423D+02
        xs( 49) = 0.4452295095146257D+02
        xs( 50) = 0.4555273955554591D+02
        ws(  1) = 0.9394764264071030D+00
        ws(  2) = 0.9524259351105038D+00
        ws(  3) = 0.9540309355056331D+00
        ws(  4) = 0.9539431374890615D+00
        ws(  5) = 0.9532205953954767D+00
        ws(  6) = 0.9521288548525677D+00
        ws(  7) = 0.9507523056636006D+00
        ws(  8) = 0.9491424047096468D+00
        ws(  9) = 0.9473207448050170D+00
        ws( 10) = 0.9453113052197762D+00
        ws( 11) = 0.9431304896477047D+00
        ws( 12) = 0.9407944847134884D+00
        ws( 13) = 0.9383167682154020D+00
        ws( 14) = 0.9357101151677348D+00
        ws( 15) = 0.9329894260720110D+00
        ws( 16) = 0.9301649624234083D+00
        ws( 17) = 0.9272506169606676D+00
        ws( 18) = 0.9242591048753380D+00
        ws( 19) = 0.9212043316530300D+00
        ws( 20) = 0.9180952712769297D+00
        ws( 21) = 0.9149512882349375D+00
        ws( 22) = 0.9117833710264551D+00
        ws( 23) = 0.9086073657851143D+00
        ws( 24) = 0.9054395160576446D+00
        ws( 25) = 0.9022928986373725D+00
        ws( 26) = 0.8991979990219592D+00
        ws( 27) = 0.8961668930926207D+00
        ws( 28) = 0.8932199600568637D+00
        ws( 29) = 0.8904019053670567D+00
        ws( 30) = 0.8877101370560853D+00
        ws( 31) = 0.8852151856997527D+00
        ws( 32) = 0.8828949143600529D+00
        ws( 33) = 0.8808173022183077D+00
        ws( 34) = 0.8790937162846656D+00
        ws( 35) = 0.8776499301759840D+00
        ws( 36) = 0.8765923238250500D+00
        ws( 37) = 0.8760305361481099D+00
        ws( 38) = 0.8758759315850684D+00
        ws( 39) = 0.8762074926713620D+00
        ws( 40) = 0.8771846148202239D+00
        ws( 41) = 0.8788354515256726D+00
        ws( 42) = 0.8827232944714740D+00
        ws( 43) = 0.8837799999802545D+00
        ws( 44) = 0.8870860369409121D+00
        ws( 45) = 0.8861821461723379D+00
        ws( 46) = 0.8944184742731102D+00
        ws( 47) = 0.9095918831721438D+00
        ws( 48) = 0.8552856553626537D+00
        ws( 49) = 0.7903765430775946D+00
        ws( 50) = 0.1278520888749782D+01
        endif
        if( idomain .eq.  298 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.1570796326794897D+02
        rk1r = 0.4712388980384689D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  51
        err = 0.9382282514389189D-13
        xs(  1) = 0.7241181360547506D+00
        xs(  2) = 0.1662144480601642D+01
        xs(  3) = 0.2605746808015650D+01
        xs(  4) = 0.3550608692834749D+01
        xs(  5) = 0.4495913320191599D+01
        xs(  6) = 0.5441329097305173D+01
        xs(  7) = 0.6386634903174871D+01
        xs(  8) = 0.7331635197543418D+01
        xs(  9) = 0.8276125818950478D+01
        xs( 10) = 0.9219905776566277D+01
        xs( 11) = 0.1016276327251582D+02
        xs( 12) = 0.1110449376065566D+02
        xs( 13) = 0.1204489388794640D+02
        xs( 14) = 0.1298377126631497D+02
        xs( 15) = 0.1392094309782791D+02
        xs( 16) = 0.1485623831979845D+02
        xs( 17) = 0.1578950087236269D+02
        xs( 18) = 0.1672058815299117D+02
        xs( 19) = 0.1764937150522582D+02
        xs( 20) = 0.1857573743577221D+02
        xs( 21) = 0.1949958983967685D+02
        xs( 22) = 0.2042084092266129D+02
        xs( 23) = 0.2133942327884802D+02
        xs( 24) = 0.2225528531330928D+02
        xs( 25) = 0.2316838838348113D+02
        xs( 26) = 0.2407871212840012D+02
        xs( 27) = 0.2498624796576578D+02
        xs( 28) = 0.2589101672991262D+02
        xs( 29) = 0.2679304346985081D+02
        xs( 30) = 0.2769239765315684D+02
        xs( 31) = 0.2858914330183897D+02
        xs( 32) = 0.2948338481885558D+02
        xs( 33) = 0.3037526368878337D+02
        xs( 34) = 0.3126491078607714D+02
        xs( 35) = 0.3215258622169238D+02
        xs( 36) = 0.3303848985781814D+02
        xs( 37) = 0.3392288374987998D+02
        xs( 38) = 0.3480608681338366D+02
        xs( 39) = 0.3568858897486877D+02
        xs( 40) = 0.3657047083144724D+02
        xs( 41) = 0.3745317635991319D+02
        xs( 42) = 0.3833591640991014D+02
        xs( 43) = 0.3922156027983262D+02
        xs( 44) = 0.4010732226417235D+02
        xs( 45) = 0.4099674047938200D+02
        xs( 46) = 0.4189241694449880D+02
        xs( 47) = 0.4279812469128026D+02
        xs( 48) = 0.4368986969404095D+02
        xs( 49) = 0.4461085093324499D+02
        xs( 50) = 0.4557779060953587D+02
        xs( 51) = 0.4661141746416330D+02
        ws(  1) = 0.9291493149238934D+00
        ws(  2) = 0.9422802099348977D+00
        ws(  3) = 0.9444576685422837D+00
        ws(  4) = 0.9451558812796886D+00
        ws(  5) = 0.9454014888239703D+00
        ws(  6) = 0.9453945635802168D+00
        ws(  7) = 0.9451863370807811D+00
        ws(  8) = 0.9447799862861329D+00
        ws(  9) = 0.9441691035439151D+00
        ws( 10) = 0.9433530395296840D+00
        ws( 11) = 0.9423275127591145D+00
        ws( 12) = 0.9410993113450836D+00
        ws( 13) = 0.9396702344585151D+00
        ws( 14) = 0.9380536769039075D+00
        ws( 15) = 0.9362612326272511D+00
        ws( 16) = 0.9343038538031043D+00
        ws( 17) = 0.9321972109385208D+00
        ws( 18) = 0.9299547104293058D+00
        ws( 19) = 0.9275938392265040D+00
        ws( 20) = 0.9251222552411000D+00
        ws( 21) = 0.9225644256064263D+00
        ws( 22) = 0.9199267633803404D+00
        ws( 23) = 0.9172311882916676D+00
        ws( 24) = 0.9144895852851594D+00
        ws( 25) = 0.9117137765354920D+00
        ws( 26) = 0.9089281938502869D+00
        ws( 27) = 0.9061480275500609D+00
        ws( 28) = 0.9033868250372082D+00
        ws( 29) = 0.9006777266770818D+00
        ws( 30) = 0.8980465403763750D+00
        ws( 31) = 0.8954664380205137D+00
        ws( 32) = 0.8930367707469604D+00
        ws( 33) = 0.8907591827928456D+00
        ws( 34) = 0.8885689234094691D+00
        ws( 35) = 0.8867903044410771D+00
        ws( 36) = 0.8851062486147293D+00
        ws( 37) = 0.8837374610551839D+00
        ws( 38) = 0.8827992812388108D+00
        ws( 39) = 0.8822088158868113D+00
        ws( 40) = 0.8823169348834013D+00
        ws( 41) = 0.8825938995299710D+00
        ws( 42) = 0.8839549565066380D+00
        ws( 43) = 0.8863620473169235D+00
        ws( 44) = 0.8883995020236100D+00
        ws( 45) = 0.8864586955912480D+00
        ws( 46) = 0.9094780620870208D+00
        ws( 47) = 0.9006858932454453D+00
        ws( 48) = 0.8885628580454173D+00
        ws( 49) = 0.8820452681598288D+00
        ws( 50) = 0.8591383717212482D+00
        ws( 51) = 0.1560968753832352D+01
        endif
        if( idomain .eq.  299 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.1570796326794897D+02
        rk1r = 0.5026548245743669D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  54
        err = 0.9311531497881126D-13
        xs(  1) = 0.7418182786974704D+00
        xs(  2) = 0.1702624237688527D+01
        xs(  3) = 0.2668710016151707D+01
        xs(  4) = 0.3635463698081916D+01
        xs(  5) = 0.4601874924036347D+01
        xs(  6) = 0.5567486524038241D+01
        xs(  7) = 0.6531997772086744D+01
        xs(  8) = 0.7495167102238281D+01
        xs(  9) = 0.8456794033039911D+01
        xs( 10) = 0.9416689467567542D+01
        xs( 11) = 0.1037469084184635D+02
        xs( 12) = 0.1133064219008578D+02
        xs( 13) = 0.1228440460579717D+02
        xs( 14) = 0.1323584795075794D+02
        xs( 15) = 0.1418485462063052D+02
        xs( 16) = 0.1513131356290648D+02
        xs( 17) = 0.1607512822537676D+02
        xs( 18) = 0.1701620826795337D+02
        xs( 19) = 0.1795447196798400D+02
        xs( 20) = 0.1888984883174255D+02
        xs( 21) = 0.1982227656014039D+02
        xs( 22) = 0.2075169796854856D+02
        xs( 23) = 0.2167807295261056D+02
        xs( 24) = 0.2260136320522817D+02
        xs( 25) = 0.2352154836235129D+02
        xs( 26) = 0.2443860500097050D+02
        xs( 27) = 0.2535253866371055D+02
        xs( 28) = 0.2626334864317764D+02
        xs( 29) = 0.2717106095940554D+02
        xs( 30) = 0.2807571531938694D+02
        xs( 31) = 0.2897735016889185D+02
        xs( 32) = 0.2987604463690124D+02
        xs( 33) = 0.3077185907405265D+02
        xs( 34) = 0.3166493405284365D+02
        xs( 35) = 0.3255537670493956D+02
        xs( 36) = 0.3344333884416299D+02
        xs( 37) = 0.3432902572601279D+02
        xs( 38) = 0.3521260528298639D+02
        xs( 39) = 0.3609441269839711D+02
        xs( 40) = 0.3697467517300383D+02
        xs( 41) = 0.3785370962536954D+02
        xs( 42) = 0.3873185200661380D+02
        xs( 43) = 0.3961008908917241D+02
        xs( 44) = 0.4048772799126248D+02
        xs( 45) = 0.4136777797169884D+02
        xs( 46) = 0.4224835844501658D+02
        xs( 47) = 0.4312778301413680D+02
        xs( 48) = 0.4401797212675598D+02
        xs( 49) = 0.4490265211995205D+02
        xs( 50) = 0.4580229328075065D+02
        xs( 51) = 0.4674410981670997D+02
        xs( 52) = 0.4763131835163325D+02
        xs( 53) = 0.4866184795373730D+02
        xs( 54) = 0.4966192423272150D+02
        ws(  1) = 0.9518317049138099D+00
        ws(  2) = 0.9649916310644160D+00
        ws(  3) = 0.9666764625396372D+00
        ws(  4) = 0.9666851518756064D+00
        ws(  5) = 0.9660671416725901D+00
        ws(  6) = 0.9651051680142553D+00
        ws(  7) = 0.9638773721388998D+00
        ws(  8) = 0.9624300001912798D+00
        ws(  9) = 0.9607901455003210D+00
        ws( 10) = 0.9589757964563376D+00
        ws( 11) = 0.9570004466094553D+00
        ws( 12) = 0.9548786371411756D+00
        ws( 13) = 0.9526243138377506D+00
        ws( 14) = 0.9502436134201375D+00
        ws( 15) = 0.9477505782659557D+00
        ws( 16) = 0.9451517762624990D+00
        ws( 17) = 0.9424619890228542D+00
        ws( 18) = 0.9396846561834492D+00
        ws( 19) = 0.9368306320560269D+00
        ws( 20) = 0.9339139286109629D+00
        ws( 21) = 0.9309324159346466D+00
        ws( 22) = 0.9279042148007598D+00
        ws( 23) = 0.9248369059909514D+00
        ws( 24) = 0.9217420600650144D+00
        ws( 25) = 0.9186220410125315D+00
        ws( 26) = 0.9154958709303519D+00
        ws( 27) = 0.9123704371963326D+00
        ws( 28) = 0.9092578571268146D+00
        ws( 29) = 0.9061762473328649D+00
        ws( 30) = 0.9031322352659773D+00
        ws( 31) = 0.9001526648793551D+00
        ws( 32) = 0.8972380022526972D+00
        ws( 33) = 0.8944275746701241D+00
        ws( 34) = 0.8917282337535712D+00
        ws( 35) = 0.8891992619919477D+00
        ws( 36) = 0.8867441427639211D+00
        ws( 37) = 0.8846234444348969D+00
        ws( 38) = 0.8825950147268989D+00
        ws( 39) = 0.8809772764017340D+00
        ws( 40) = 0.8795718811385124D+00
        ws( 41) = 0.8784112074517572D+00
        ws( 42) = 0.8782978442974049D+00
        ws( 43) = 0.8773081599507963D+00
        ws( 44) = 0.8791648381210087D+00
        ws( 45) = 0.8793080857534141D+00
        ws( 46) = 0.8813908350491249D+00
        ws( 47) = 0.8839428215870735D+00
        ws( 48) = 0.8888478877104623D+00
        ws( 49) = 0.8991170118746215D+00
        ws( 50) = 0.8880520213830683D+00
        ws( 51) = 0.9713425502901253D+00
        ws( 52) = 0.9221604952275168D+00
        ws( 53) = 0.8402485904870056D+00
        ws( 54) = 0.1415431554669211D+01
        endif
        if( idomain .eq.  300 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.1884955592153876D+02
        rk1r = 0.2000000000000000D-01
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  27
        err = 0.9940066595175668D-13
        xs(  1) = 0.7002080311803092D+00
        xs(  2) = 0.1607652771155915D+01
        xs(  3) = 0.2521366959237084D+01
        xs(  4) = 0.3437714397696124D+01
        xs(  5) = 0.4356439888237787D+01
        xs(  6) = 0.5277783537627085D+01
        xs(  7) = 0.6202100806280315D+01
        xs(  8) = 0.7129773603533594D+01
        xs(  9) = 0.8061176265583953D+01
        xs( 10) = 0.8996657338631811D+01
        xs( 11) = 0.9936574495654174D+01
        xs( 12) = 0.1088117700730821D+02
        xs( 13) = 0.1183082601136462D+02
        xs( 14) = 0.1278567799931686D+02
        xs( 15) = 0.1374583194687053D+02
        xs( 16) = 0.1471243145095657D+02
        xs( 17) = 0.1568395232609496D+02
        xs( 18) = 0.1665779082242057D+02
        xs( 19) = 0.1764835018609960D+02
        xs( 20) = 0.1864522808768243D+02
        xs( 21) = 0.1960495964969705D+02
        xs( 22) = 0.2058946102481898D+02
        xs( 23) = 0.2174900720701604D+02
        xs( 24) = 0.2265991349174640D+02
        xs( 25) = 0.2352245325841479D+02
        xs( 26) = 0.2702575570350150D+02
        xs( 27) = 0.2775742876318784D+02
        ws(  1) = 0.8985801117630935D+00
        ws(  2) = 0.9119126501690709D+00
        ws(  3) = 0.9151596462513156D+00
        ws(  4) = 0.9175155809717481D+00
        ws(  5) = 0.9199797151186113D+00
        ws(  6) = 0.9227678122786472D+00
        ws(  7) = 0.9259320308583527D+00
        ws(  8) = 0.9294727310823255D+00
        ws(  9) = 0.9333952712485298D+00
        ws( 10) = 0.9376306999225682D+00
        ws( 11) = 0.9422166086059410D+00
        ws( 12) = 0.9470984069207425D+00
        ws( 13) = 0.9521531479879294D+00
        ws( 14) = 0.9577898492347504D+00
        ws( 15) = 0.9625894120318309D+00
        ws( 16) = 0.9679510372864001D+00
        ws( 17) = 0.9810221751817731D+00
        ws( 18) = 0.9753754845361597D+00
        ws( 19) = 0.9583299150530316D+00
        ws( 20) = 0.1042309480581230D+01
        ws( 21) = 0.1082647945433030D+01
        ws( 22) = 0.7276434798743578D+00
        ws( 23) = 0.9538150118116011D+00
        ws( 24) = 0.1688668830357437D+01
        ws( 25) = 0.1094014295270065D+01
        ws( 26) = 0.3425645555743684D+01
        ws( 27) = 0.2438767131307436D+01
        endif
        if( idomain .eq.  301 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.1884955592153876D+02
        rk1r = 0.4000000000000000D-01
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  27
        err = 0.9182005058462142D-13
        xs(  1) = 0.6968939814976830D+00
        xs(  2) = 0.1600019583544679D+01
        xs(  3) = 0.2509324451457506D+01
        xs(  4) = 0.3421154697105440D+01
        xs(  5) = 0.4335219511475742D+01
        xs(  6) = 0.5251718438989425D+01
        xs(  7) = 0.6170965367621689D+01
        xs(  8) = 0.7093293232644475D+01
        xs(  9) = 0.8019023174387693D+01
        xs( 10) = 0.8948462834148547D+01
        xs( 11) = 0.9881872558991505D+01
        xs( 12) = 0.1081944548463366D+02
        xs( 13) = 0.1176153875257645D+02
        xs( 14) = 0.1270805205695024D+02
        xs( 15) = 0.1365902212333362D+02
        xs( 16) = 0.1461546981244955D+02
        xs( 17) = 0.1557662098334311D+02
        xs( 18) = 0.1653814956956597D+02
        xs( 19) = 0.1751253918947466D+02
        xs( 20) = 0.1849220418858967D+02
        xs( 21) = 0.1945531804685471D+02
        xs( 22) = 0.2040706645292040D+02
        xs( 23) = 0.2148981104979559D+02
        xs( 24) = 0.2244165699392547D+02
        xs( 25) = 0.2326576402238148D+02
        xs( 26) = 0.2549989966688095D+02
        xs( 27) = 0.2845555805298060D+02
        ws(  1) = 0.8943212919145196D+00
        ws(  2) = 0.9075477435790943D+00
        ws(  3) = 0.9107020045202452D+00
        ws(  4) = 0.9129326805657711D+00
        ws(  5) = 0.9152344172535604D+00
        ws(  6) = 0.9178176214846973D+00
        ws(  7) = 0.9207302529807223D+00
        ws(  8) = 0.9239818460821599D+00
        ws(  9) = 0.9275327526524214D+00
        ws( 10) = 0.9313663068784679D+00
        ws( 11) = 0.9355256012609304D+00
        ws( 12) = 0.9397127519851091D+00
        ws( 13) = 0.9441756273545491D+00
        ws( 14) = 0.9492851512669219D+00
        ws( 15) = 0.9533807181420642D+00
        ws( 16) = 0.9561951254257424D+00
        ws( 17) = 0.9680647922022034D+00
        ws( 18) = 0.9690734663753376D+00
        ws( 19) = 0.9477512064667218D+00
        ws( 20) = 0.9925449185803036D+00
        ws( 21) = 0.1076381024285794D+01
        ws( 22) = 0.7934086180453840D+00
        ws( 23) = 0.8872355103581957D+00
        ws( 24) = 0.1524786997969138D+01
        ws( 25) = 0.9004128116800137D+00
        ws( 26) = 0.2464034171948282D+01
        ws( 27) = 0.4543907362828633D+01
        endif
        if( idomain .eq.  302 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.1884955592153876D+02
        rk1r = 0.1000000000000000D+00
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  27
        err = 0.2000997676208358D-13
        xs(  1) = 0.6908915477516827D+00
        xs(  2) = 0.1586420520504216D+01
        xs(  3) = 0.2488501813148588D+01
        xs(  4) = 0.3393733981877973D+01
        xs(  5) = 0.4302022966855198D+01
        xs(  6) = 0.5213731106850979D+01
        xs(  7) = 0.6129302431142590D+01
        xs(  8) = 0.7049178207466024D+01
        xs(  9) = 0.7973758549918018D+01
        xs( 10) = 0.8903426088542208D+01
        xs( 11) = 0.9838500639159188D+01
        xs( 12) = 0.1077928986939789D+02
        xs( 13) = 0.1172604093128676D+02
        xs( 14) = 0.1267908585217655D+02
        xs( 15) = 0.1363855567619850D+02
        xs( 16) = 0.1460455188738727D+02
        xs( 17) = 0.1557775899917447D+02
        xs( 18) = 0.1655807524675294D+02
        xs( 19) = 0.1754342311585087D+02
        xs( 20) = 0.1854663632797895D+02
        xs( 21) = 0.1953383355781479D+02
        xs( 22) = 0.2054795231735279D+02
        xs( 23) = 0.2159866708365673D+02
        xs( 24) = 0.2260325999979772D+02
        xs( 25) = 0.2361558459973390D+02
        xs( 26) = 0.2467257220313207D+02
        xs( 27) = 0.2794825727286972D+02
        ws(  1) = 0.8866664003144010D+00
        ws(  2) = 0.9000874049092421D+00
        ws(  3) = 0.9037552251237269D+00
        ws(  4) = 0.9067160359179670D+00
        ws(  5) = 0.9099263508435690D+00
        ws(  6) = 0.9135656477049178D+00
        ws(  7) = 0.9176505015102806D+00
        ws(  8) = 0.9221654995699627D+00
        ws(  9) = 0.9270685617830995D+00
        ws( 10) = 0.9323047296350943D+00
        ws( 11) = 0.9378931821170688D+00
        ws( 12) = 0.9437674177533981D+00
        ws( 13) = 0.9497804589616241D+00
        ws( 14) = 0.9561766988806099D+00
        ws( 15) = 0.9629166925039361D+00
        ws( 16) = 0.9695569878398754D+00
        ws( 17) = 0.9762371809813886D+00
        ws( 18) = 0.9852816108007455D+00
        ws( 19) = 0.9818982910950101D+00
        ws( 20) = 0.1019883728519662D+01
        ws( 21) = 0.9997856538890447D+00
        ws( 22) = 0.9883554842980650D+00
        ws( 23) = 0.1018721157203014D+01
        ws( 24) = 0.1035696277678298D+01
        ws( 25) = 0.1212608962456341D+01
        ws( 26) = 0.1305469934417764D+01
        ws( 27) = 0.5360655037119417D+01
        endif
        if( idomain .eq.  303 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.1884955592153876D+02
        rk1r = 0.2000000000000000D+00
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  25
        err = 0.6691774859407850D-13
        xs(  1) = 0.7122356419025975D+00
        xs(  2) = 0.1635270972320648D+01
        xs(  3) = 0.2564690704530625D+01
        xs(  4) = 0.3496800459911719D+01
        xs(  5) = 0.4431344906365795D+01
        xs(  6) = 0.5368572378411175D+01
        xs(  7) = 0.6308849254348586D+01
        xs(  8) = 0.7252568191370435D+01
        xs(  9) = 0.8200113493370074D+01
        xs( 10) = 0.9151849009746817D+01
        xs( 11) = 0.1010814838709155D+02
        xs( 12) = 0.1106921068741342D+02
        xs( 13) = 0.1203555894129012D+02
        xs( 14) = 0.1300728432360768D+02
        xs( 15) = 0.1398413641570347D+02
        xs( 16) = 0.1496740224154749D+02
        xs( 17) = 0.1595785829484685D+02
        xs( 18) = 0.1695003242016252D+02
        xs( 19) = 0.1795174191444248D+02
        xs( 20) = 0.1894842817541347D+02
        xs( 21) = 0.2000344749298192D+02
        xs( 22) = 0.2098467718353140D+02
        xs( 23) = 0.2192249282226368D+02
        xs( 24) = 0.2455031363301220D+02
        xs( 25) = 0.2519254534058624D+02
        ws(  1) = 0.9140161855556584D+00
        ws(  2) = 0.9275828807676934D+00
        ws(  3) = 0.9308951515140343D+00
        ws(  4) = 0.9333050820207917D+00
        ws(  5) = 0.9358295594228935D+00
        ws(  6) = 0.9386876857250692D+00
        ws(  7) = 0.9419323409152635D+00
        ws(  8) = 0.9455676587720536D+00
        ws(  9) = 0.9495916593359029D+00
        ws( 10) = 0.9539251310053098D+00
        ws( 11) = 0.9587037826091985D+00
        ws( 12) = 0.9636474674167780D+00
        ws( 13) = 0.9686857156196400D+00
        ws( 14) = 0.9747754797068796D+00
        ws( 15) = 0.9811189856453995D+00
        ws( 16) = 0.9822641223658916D+00
        ws( 17) = 0.9919861343804114D+00
        ws( 18) = 0.1017440900249504D+01
        ws( 19) = 0.9685562689993837D+00
        ws( 20) = 0.1027512167462440D+01
        ws( 21) = 0.9564740538617909D+00
        ws( 22) = 0.1147718891322504D+01
        ws( 23) = 0.1314337890502466D+01
        ws( 24) = 0.1359450870199509D+01
        ws( 25) = 0.3453364867643787D+01
        endif
        if( idomain .eq.  304 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.1884955592153876D+02
        rk1r = 0.4000000000000000D+00
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  24
        err = 0.9236257935584983D-13
        xs(  1) = 0.6897508936475648D+00
        xs(  2) = 0.1584272250150740D+01
        xs(  3) = 0.2486382619533342D+01
        xs(  4) = 0.3393089281810891D+01
        xs(  5) = 0.4304510293877371D+01
        xs(  6) = 0.5221046349895101D+01
        xs(  7) = 0.6143052967999220D+01
        xs(  8) = 0.7070805550636926D+01
        xs(  9) = 0.8004519289631604D+01
        xs( 10) = 0.8944357776995831D+01
        xs( 11) = 0.9890531184716004D+01
        xs( 12) = 0.1084305458899454D+02
        xs( 13) = 0.1180231195279923D+02
        xs( 14) = 0.1276829523808136D+02
        xs( 15) = 0.1374114670575289D+02
        xs( 16) = 0.1472039171369377D+02
        xs( 17) = 0.1570951901132787D+02
        xs( 18) = 0.1670609302443824D+02
        xs( 19) = 0.1769202763214842D+02
        xs( 20) = 0.1872942621424956D+02
        xs( 21) = 0.1974771834520772D+02
        xs( 22) = 0.2074199979570196D+02
        xs( 23) = 0.2180279407018735D+02
        xs( 24) = 0.2499281269506242D+02
        ws(  1) = 0.8853284210625145D+00
        ws(  2) = 0.8995134544825283D+00
        ws(  3) = 0.9044553953212066D+00
        ws(  4) = 0.9089998428757931D+00
        ws(  5) = 0.9139123727644975D+00
        ws(  6) = 0.9192191936441324D+00
        ws(  7) = 0.9248400887995581D+00
        ws(  8) = 0.9306985503560808D+00
        ws(  9) = 0.9367601357905175D+00
        ws( 10) = 0.9429541106126501D+00
        ws( 11) = 0.9493377304943731D+00
        ws( 12) = 0.9559895370714573D+00
        ws( 13) = 0.9621766304984214D+00
        ws( 14) = 0.9695950154600242D+00
        ws( 15) = 0.9778976688354504D+00
        ws( 16) = 0.9801161836406121D+00
        ws( 17) = 0.9880283211643927D+00
        ws( 18) = 0.1025851522603853D+01
        ws( 19) = 0.9474079382405747D+00
        ws( 20) = 0.1110723869605236D+01
        ws( 21) = 0.8505670381713846D+00
        ws( 22) = 0.1148019522599952D+01
        ws( 23) = 0.1602169275175986D+01
        ws( 24) = 0.4775722865417085D+01
        endif
        if( idomain .eq.  305 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.1884955592153876D+02
        rk1r = 0.1000000000000000D+01
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  24
        err = 0.8439873044837228D-13
        xs(  1) = 0.6973058955803128D+00
        xs(  2) = 0.1601111126457684D+01
        xs(  3) = 0.2511436035166946D+01
        xs(  4) = 0.3424810694836157D+01
        xs(  5) = 0.4341116787409053D+01
        xs(  6) = 0.5260714860737834D+01
        xs(  7) = 0.6184066421988770D+01
        xs(  8) = 0.7111638404247981D+01
        xs(  9) = 0.8043885809150906D+01
        xs( 10) = 0.8981207151038232D+01
        xs( 11) = 0.9924054531278795D+01
        xs( 12) = 0.1087261864678558D+02
        xs( 13) = 0.1182749877399795D+02
        xs( 14) = 0.1278880200373290D+02
        xs( 15) = 0.1375668566859359D+02
        xs( 16) = 0.1473133855767556D+02
        xs( 17) = 0.1571451839138482D+02
        xs( 18) = 0.1670762000360694D+02
        xs( 19) = 0.1769109364581696D+02
        xs( 20) = 0.1870884929577573D+02
        xs( 21) = 0.1975797124044887D+02
        xs( 22) = 0.2070655835576332D+02
        xs( 23) = 0.2178728201595310D+02
        xs( 24) = 0.2496828429840127D+02
        ws(  1) = 0.8948898092882192D+00
        ws(  2) = 0.9083664015956799D+00
        ws(  3) = 0.9119549683532823D+00
        ws(  4) = 0.9147969663322204D+00
        ws(  5) = 0.9178796172373486D+00
        ws(  6) = 0.9213950616222025D+00
        ws(  7) = 0.9253858197930207D+00
        ws(  8) = 0.9298339755651935D+00
        ws(  9) = 0.9347289312006886D+00
        ws( 10) = 0.9399957430779330D+00
        ws( 11) = 0.9456623794907605D+00
        ws( 12) = 0.9518122454727319D+00
        ws( 13) = 0.9575647030470331D+00
        ws( 14) = 0.9648675825378612D+00
        ws( 15) = 0.9730405899376483D+00
        ws( 16) = 0.9742360308055676D+00
        ws( 17) = 0.9879434048867205D+00
        ws( 18) = 0.1001683890377961D+01
        ws( 19) = 0.9954594267673540D+00
        ws( 20) = 0.1010486801116540D+01
        ws( 21) = 0.9427711317011314D+00
        ws( 22) = 0.1115982311196599D+01
        ws( 23) = 0.1576429559494254D+01
        ws( 24) = 0.4798030900853615D+01
        endif
        if( idomain .eq.  306 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.1884955592153876D+02
        rk1r = 0.1570796326794897D+01
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  27
        err = 0.2883986554956947D-13
        xs(  1) = 0.7105747866677815D+00
        xs(  2) = 0.1631468260355675D+01
        xs(  3) = 0.2558754903491033D+01
        xs(  4) = 0.3488765148806577D+01
        xs(  5) = 0.4421262409034452D+01
        xs(  6) = 0.5356516120511597D+01
        xs(  7) = 0.6294917431873177D+01
        xs(  8) = 0.7236887077981860D+01
        xs(  9) = 0.8182842765903777D+01
        xs( 10) = 0.9133196115484928D+01
        xs( 11) = 0.1008832193660119D+02
        xs( 12) = 0.1104859261676265D+02
        xs( 13) = 0.1201440274279436D+02
        xs( 14) = 0.1298597489408917D+02
        xs( 15) = 0.1396356547737255D+02
        xs( 16) = 0.1494800978360232D+02
        xs( 17) = 0.1593916944313958D+02
        xs( 18) = 0.1693599438602082D+02
        xs( 19) = 0.1794087339485545D+02
        xs( 20) = 0.1895504976114303D+02
        xs( 21) = 0.1997749756028352D+02
        xs( 22) = 0.2101029927942671D+02
        xs( 23) = 0.2201405495010450D+02
        xs( 24) = 0.2299910009813126D+02
        xs( 25) = 0.2433168185944707D+02
        xs( 26) = 0.2530203136606546D+02
        xs( 27) = 0.2620767879406264D+02
        ws(  1) = 0.9118881871379536D+00
        ws(  2) = 0.9254395217569112D+00
        ws(  3) = 0.9287757694434379D+00
        ws(  4) = 0.9312282891768277D+00
        ws(  5) = 0.9338155613746810D+00
        ws(  6) = 0.9367583218989758D+00
        ws(  7) = 0.9401145659490991D+00
        ws(  8) = 0.9438956148736934D+00
        ws(  9) = 0.9480839238391158D+00
        ws( 10) = 0.9526780361856076D+00
        ws( 11) = 0.9576624948677694D+00
        ws( 12) = 0.9629280236634643D+00
        ws( 13) = 0.9685957145298899D+00
        ws( 14) = 0.9749105120804449D+00
        ws( 15) = 0.9806873112540954D+00
        ws( 16) = 0.9863536970763211D+00
        ws( 17) = 0.9961550111889546D+00
        ws( 18) = 0.1004249935370392D+01
        ws( 19) = 0.1003681608820511D+01
        ws( 20) = 0.1007898127868431D+01
        ws( 21) = 0.1020661771387454D+01
        ws( 22) = 0.1084135152235150D+01
        ws( 23) = 0.1126297259141471D+01
        ws( 24) = 0.7315420652463925D+00
        ws( 25) = 0.7742983956730825D+00
        ws( 26) = 0.2102060658177248D+01
        ws( 27) = 0.1841019067813584D+01
        endif
        if( idomain .eq.  307 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.1884955592153876D+02
        rk1r = 0.3141592653589793D+01
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  23
        err = 0.6853159314290004D-13
        xs(  1) = 0.7174013470952512D+00
        xs(  2) = 0.1647102061775221D+01
        xs(  3) = 0.2583270165200367D+01
        xs(  4) = 0.3522188303559594D+01
        xs(  5) = 0.4463633404959051D+01
        xs(  6) = 0.5407900383433996D+01
        xs(  7) = 0.6355411859598714D+01
        xs(  8) = 0.7306653637038475D+01
        xs(  9) = 0.8262093520447962D+01
        xs( 10) = 0.9222234801101353D+01
        xs( 11) = 0.1018755512962511D+02
        xs( 12) = 0.1115844685529438D+02
        xs( 13) = 0.1213564807645640D+02
        xs( 14) = 0.1311918530772062D+02
        xs( 15) = 0.1410950943775332D+02
        xs( 16) = 0.1510937887487693D+02
        xs( 17) = 0.1611383775592342D+02
        xs( 18) = 0.1712846360927553D+02
        xs( 19) = 0.1815497144852227D+02
        xs( 20) = 0.1920723722164407D+02
        xs( 21) = 0.2019804322128563D+02
        xs( 22) = 0.2128438491569353D+02
        xs( 23) = 0.2241201251955989D+02
        ws(  1) = 0.9206048585981057D+00
        ws(  2) = 0.9343056847091892D+00
        ws(  3) = 0.9376636100510310D+00
        ws(  4) = 0.9401554719624304D+00
        ws(  5) = 0.9427836330566965D+00
        ws(  6) = 0.9458166491975009D+00
        ws(  7) = 0.9492928870777317D+00
        ws(  8) = 0.9532549613862499D+00
        ws(  9) = 0.9577209336814319D+00
        ws( 10) = 0.9626143371543646D+00
        ws( 11) = 0.9681250089295655D+00
        ws( 12) = 0.9738817524799266D+00
        ws( 13) = 0.9800060499554956D+00
        ws( 14) = 0.9883377012356115D+00
        ws( 15) = 0.9920986454101285D+00
        ws( 16) = 0.1002957688912461D+01
        ws( 17) = 0.1019008021402981D+01
        ws( 18) = 0.1003553434054365D+01
        ws( 19) = 0.1030897658189474D+01
        ws( 20) = 0.1078904566277796D+01
        ws( 21) = 0.1019604387292008D+01
        ws( 22) = 0.1105116149463870D+01
        ws( 23) = 0.1749951339380871D+01
        endif
        if( idomain .eq.  308 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.1884955592153876D+02
        rk1r = 0.6283185307179586D+01
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  25
        err = 0.5325026332115958D-13
        xs(  1) = 0.7134519747866650D+00
        xs(  2) = 0.1637964003716632D+01
        xs(  3) = 0.2568649440619062D+01
        xs(  4) = 0.3501702214173841D+01
        xs(  5) = 0.4436786780112095D+01
        xs(  6) = 0.5374107083434756D+01
        xs(  7) = 0.6314021191054909D+01
        xs(  8) = 0.7256950427467788D+01
        xs(  9) = 0.8203350190095190D+01
        xs( 10) = 0.9153690844514752D+01
        xs( 11) = 0.1010846996829804D+02
        xs( 12) = 0.1106816142617361D+02
        xs( 13) = 0.1203328572268294D+02
        xs( 14) = 0.1300433108625793D+02
        xs( 15) = 0.1398192355493979D+02
        xs( 16) = 0.1496626452751272D+02
        xs( 17) = 0.1595813201344241D+02
        xs( 18) = 0.1695860081003431D+02
        xs( 19) = 0.1796863170768920D+02
        xs( 20) = 0.1898454872597593D+02
        xs( 21) = 0.2001023716921964D+02
        xs( 22) = 0.2104635740010750D+02
        xs( 23) = 0.2213259093503910D+02
        xs( 24) = 0.2320921334997194D+02
        xs( 25) = 0.2418077814244607D+02
        ws(  1) = 0.9155451766689650D+00
        ws(  2) = 0.9289763157209489D+00
        ws(  3) = 0.9320157477749573D+00
        ws(  4) = 0.9340578946238890D+00
        ws(  5) = 0.9361510583341716D+00
        ws(  6) = 0.9385497724131233D+00
        ws(  7) = 0.9413490479819810D+00
        ws(  8) = 0.9445835472598382D+00
        ws(  9) = 0.9482902463040050D+00
        ws( 10) = 0.9524783230420738D+00
        ws( 11) = 0.9571427436709956D+00
        ws( 12) = 0.9623333378386834D+00
        ws( 13) = 0.9680289340473548D+00
        ws( 14) = 0.9740743181876778D+00
        ws( 15) = 0.9809665778258752D+00
        ws( 16) = 0.9887161540609627D+00
        ws( 17) = 0.9953490330307945D+00
        ws( 18) = 0.1002451637687504D+01
        ws( 19) = 0.1013371920292199D+01
        ws( 20) = 0.1043234553016132D+01
        ws( 21) = 0.1029179371907328D+01
        ws( 22) = 0.9575712077607689D+00
        ws( 23) = 0.1033531870899218D+01
        ws( 24) = 0.1501411026581219D+01
        ws( 25) = 0.1430571512826004D+01
        endif
        if( idomain .eq.  309 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.1884955592153876D+02
        rk1r = 0.9424777960769379D+01
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  26
        err = 0.7200678731862457D-13
        xs(  1) = 0.7112825297469531D+00
        xs(  2) = 0.1632803244382360D+01
        xs(  3) = 0.2560057499712540D+01
        xs(  4) = 0.3489034022150653D+01
        xs(  5) = 0.4419214468742029D+01
        xs(  6) = 0.5350645186925285D+01
        xs(  7) = 0.6283556645027426D+01
        xs(  8) = 0.7218275946680748D+01
        xs(  9) = 0.8155186161746538D+01
        xs( 10) = 0.9094722056787377D+01
        xs( 11) = 0.1003733175320196D+02
        xs( 12) = 0.1098355590295981D+02
        xs( 13) = 0.1193385002741480D+02
        xs( 14) = 0.1288883027022854D+02
        xs( 15) = 0.1384901929467448D+02
        xs( 16) = 0.1481504989929418D+02
        xs( 17) = 0.1578735890559897D+02
        xs( 18) = 0.1676665736531541D+02
        xs( 19) = 0.1775374296681018D+02
        xs( 20) = 0.1874839284150587D+02
        xs( 21) = 0.1975076469699821D+02
        xs( 22) = 0.2076669062636976D+02
        xs( 23) = 0.2179385772771777D+02
        xs( 24) = 0.2282508123034850D+02
        xs( 25) = 0.2391166459801688D+02
        xs( 26) = 0.2495765949535996D+02
        ws(  1) = 0.9127169211195724D+00
        ws(  2) = 0.9257987570257925D+00
        ws(  3) = 0.9282934428848360D+00
        ws(  4) = 0.9295951598496265D+00
        ws(  5) = 0.9307763547201900D+00
        ws(  6) = 0.9321245983102379D+00
        ws(  7) = 0.9337552806868954D+00
        ws(  8) = 0.9357484912470861D+00
        ws(  9) = 0.9381471952506075D+00
        ws( 10) = 0.9409926324636975D+00
        ws( 11) = 0.9443324578879230D+00
        ws( 12) = 0.9481360320207775D+00
        ws( 13) = 0.9525990988932861D+00
        ws( 14) = 0.9574050552830301D+00
        ws( 15) = 0.9630075342547861D+00
        ws( 16) = 0.9690416252788389D+00
        ws( 17) = 0.9757958560188617D+00
        ws( 18) = 0.9830583996314287D+00
        ws( 19) = 0.9899246006725686D+00
        ws( 20) = 0.1000832903854757D+01
        ws( 21) = 0.1009359022820274D+01
        ws( 22) = 0.1010169214973041D+01
        ws( 23) = 0.1024598088771491D+01
        ws( 24) = 0.1068804508225414D+01
        ws( 25) = 0.1209575708763227D+01
        ws( 26) = 0.1456537404776263D+01
        endif
        if( idomain .eq.  310 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.1884955592153876D+02
        rk1r = 0.1256637061435917D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  27
        err = 0.3410737956350481D-13
        xs(  1) = 0.7078530750190388D+00
        xs(  2) = 0.1624895858560771D+01
        xs(  3) = 0.2547539849598869D+01
        xs(  4) = 0.3471715597619522D+01
        xs(  5) = 0.4396819116055139D+01
        xs(  6) = 0.5322801673666862D+01
        xs(  7) = 0.6249788467285246D+01
        xs(  8) = 0.7177999719829740D+01
        xs(  9) = 0.8107725561811648D+01
        xs( 10) = 0.9039297662830785D+01
        xs( 11) = 0.9973119523355813D+01
        xs( 12) = 0.1090960792020029D+02
        xs( 13) = 0.1184923386028550D+02
        xs( 14) = 0.1279256528371621D+02
        xs( 15) = 0.1374010390645050D+02
        xs( 16) = 0.1469239303295833D+02
        xs( 17) = 0.1565012416354753D+02
        xs( 18) = 0.1661403737176090D+02
        xs( 19) = 0.1758418848800006D+02
        xs( 20) = 0.1856289758850851D+02
        xs( 21) = 0.1954733749125156D+02
        xs( 22) = 0.2054309817132674D+02
        xs( 23) = 0.2155230097032563D+02
        xs( 24) = 0.2256565066715661D+02
        xs( 25) = 0.2358534514075400D+02
        xs( 26) = 0.2461111885621896D+02
        xs( 27) = 0.2570122939626966D+02
        ws(  1) = 0.9083199210076105D+00
        ws(  2) = 0.9212574006071279D+00
        ws(  3) = 0.9235967274120649D+00
        ws(  4) = 0.9246707663228788D+00
        ws(  5) = 0.9255314054555438D+00
        ws(  6) = 0.9264575700801119D+00
        ws(  7) = 0.9275611863516959D+00
        ws(  8) = 0.9289133060761279D+00
        ws(  9) = 0.9305955805282492D+00
        ws( 10) = 0.9326250992285354D+00
        ws( 11) = 0.9350351455890863D+00
        ws( 12) = 0.9380535411384563D+00
        ws( 13) = 0.9412849080669584D+00
        ws( 14) = 0.9453057450840882D+00
        ws( 15) = 0.9498454616770809D+00
        ws( 16) = 0.9550475600682262D+00
        ws( 17) = 0.9604569620888607D+00
        ws( 18) = 0.9669596512778180D+00
        ws( 19) = 0.9727474749307552D+00
        ws( 20) = 0.9847707762688482D+00
        ws( 21) = 0.9904007047537547D+00
        ws( 22) = 0.9971447806130685D+00
        ws( 23) = 0.1005082254521043D+01
        ws( 24) = 0.1021236518462634D+01
        ws( 25) = 0.1064879644814810D+01
        ws( 26) = 0.9381612695243243D+00
        ws( 27) = 0.1639783337942716D+01
        endif
        if( idomain .eq.  311 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.1884955592153876D+02
        rk1r = 0.1570796326794897D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  28
        err = 0.9690584481817270D-13
        xs(  1) = 0.7165715347862153D+00
        xs(  2) = 0.1644812123857307D+01
        xs(  3) = 0.2578425026349039D+01
        xs(  4) = 0.3513159230069171D+01
        xs(  5) = 0.4448249935892373D+01
        xs(  6) = 0.5383496525521264D+01
        xs(  7) = 0.6318900615455522D+01
        xs(  8) = 0.7254549881116899D+01
        xs(  9) = 0.8190641824637856D+01
        xs( 10) = 0.9127397926294771D+01
        xs( 11) = 0.1006514805711583D+02
        xs( 12) = 0.1100421871925204D+02
        xs( 13) = 0.1194515695630337D+02
        xs( 14) = 0.1288822511131601D+02
        xs( 15) = 0.1383421473107831D+02
        xs( 16) = 0.1478353918633491D+02
        xs( 17) = 0.1573718741850705D+02
        xs( 18) = 0.1669539976605340D+02
        xs( 19) = 0.1765841776600732D+02
        xs( 20) = 0.1862905790335143D+02
        xs( 21) = 0.1960688644245565D+02
        xs( 22) = 0.2059214545459560D+02
        xs( 23) = 0.2158920938869668D+02
        xs( 24) = 0.2258651110843534D+02
        xs( 25) = 0.2362079344356863D+02
        xs( 26) = 0.2458760333687193D+02
        xs( 27) = 0.2583957263888970D+02
        xs( 28) = 0.2689793578681190D+02
        ws(  1) = 0.9194871174938845D+00
        ws(  2) = 0.9323781638920184D+00
        ws(  3) = 0.9343999254487285D+00
        ws(  4) = 0.9349625784665502D+00
        ws(  5) = 0.9351871639290527D+00
        ws(  6) = 0.9353152439236265D+00
        ws(  7) = 0.9355027607307450D+00
        ws(  8) = 0.9358409741360147D+00
        ws(  9) = 0.9363681096613687D+00
        ws( 10) = 0.9371958993062087D+00
        ws( 11) = 0.9383654655118679D+00
        ws( 12) = 0.9398988664984557D+00
        ws( 13) = 0.9418115718788354D+00
        ws( 14) = 0.9447180926273656D+00
        ws( 15) = 0.9473725335995876D+00
        ws( 16) = 0.9511324573051055D+00
        ws( 17) = 0.9556937172564397D+00
        ws( 18) = 0.9615671339588857D+00
        ws( 19) = 0.9664231850657671D+00
        ws( 20) = 0.9732542204658260D+00
        ws( 21) = 0.9783569535536322D+00
        ws( 22) = 0.9939679454649269D+00
        ws( 23) = 0.1011169805665084D+01
        ws( 24) = 0.9783758976504745D+00
        ws( 25) = 0.1069587228544953D+01
        ws( 26) = 0.8736544405371951D+00
        ws( 27) = 0.1151251826194431D+01
        ws( 28) = 0.2310753545707984D+01
        endif
        if( idomain .eq.  312 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.1884955592153876D+02
        rk1r = 0.1884955592153876D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  29
        err = 0.9547837496737468D-13
        xs(  1) = 0.7226929398022900D+00
        xs(  2) = 0.1658721742717304D+01
        xs(  3) = 0.2599932701914192D+01
        xs(  4) = 0.3541872936423920D+01
        xs(  5) = 0.4483640925606757D+01
        xs(  6) = 0.5424920204592767D+01
        xs(  7) = 0.6365574336987392D+01
        xs(  8) = 0.7305592421349990D+01
        xs(  9) = 0.8245011266707035D+01
        xs( 10) = 0.9183988140817529D+01
        xs( 11) = 0.1012269431517003D+02
        xs( 12) = 0.1106139641032996D+02
        xs( 13) = 0.1200041225466856D+02
        xs( 14) = 0.1294015701415587D+02
        xs( 15) = 0.1388099613589692D+02
        xs( 16) = 0.1482359068324617D+02
        xs( 17) = 0.1576831254374766D+02
        xs( 18) = 0.1671589604788147D+02
        xs( 19) = 0.1766715601483809D+02
        xs( 20) = 0.1862262074464271D+02
        xs( 21) = 0.1958335354456775D+02
        xs( 22) = 0.2055016345494951D+02
        xs( 23) = 0.2152320292170621D+02
        xs( 24) = 0.2250506978567059D+02
        xs( 25) = 0.2349269480146278D+02
        xs( 26) = 0.2449075528774203D+02
        xs( 27) = 0.2550238916566487D+02
        xs( 28) = 0.2656520437947990D+02
        xs( 29) = 0.2761748854097696D+02
        ws(  1) = 0.9272854544209264D+00
        ws(  2) = 0.9401198180601763D+00
        ws(  3) = 0.9418166075470323D+00
        ws(  4) = 0.9419370987808248D+00
        ws(  5) = 0.9415548933568265D+00
        ws(  6) = 0.9409814620027167D+00
        ws(  7) = 0.9403337291155390D+00
        ws(  8) = 0.9396975696548305D+00
        ws(  9) = 0.9391835280408964D+00
        ws( 10) = 0.9387784466763717D+00
        ws( 11) = 0.9386692556979161D+00
        ws( 12) = 0.9388007360604166D+00
        ws( 13) = 0.9392907025557143D+00
        ws( 14) = 0.9402412675161868D+00
        ws( 15) = 0.9415653025040996D+00
        ws( 16) = 0.9435695204453834D+00
        ws( 17) = 0.9461028796176773D+00
        ws( 18) = 0.9493116328187360D+00
        ws( 19) = 0.9534747902463740D+00
        ws( 20) = 0.9575602422592814D+00
        ws( 21) = 0.9630498499697447D+00
        ws( 22) = 0.9694736986446488D+00
        ws( 23) = 0.9753012289780685D+00
        ws( 24) = 0.9803891447677284D+00
        ws( 25) = 0.1000774686123309D+01
        ws( 26) = 0.9792009525635154D+00
        ws( 27) = 0.9987644145924824D+00
        ws( 28) = 0.1175754595131694D+01
        ws( 29) = 0.1519069519982686D+01
        endif
        if( idomain .eq.  313 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.1884955592153876D+02
        rk1r = 0.2199114857512855D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  30
        err = 0.7008730679097751D-13
        xs(  1) = 0.7286583753988546D+00
        xs(  2) = 0.1672387542787919D+01
        xs(  3) = 0.2621183846752838D+01
        xs(  4) = 0.3570486801754912D+01
        xs(  5) = 0.4519308143973194D+01
        xs(  6) = 0.5467232853832724D+01
        xs(  7) = 0.6414097327976939D+01
        xs(  8) = 0.7359733640792935D+01
        xs(  9) = 0.8304181182448016D+01
        xs( 10) = 0.9247399754153729D+01
        xs( 11) = 0.1018956704393027D+02
        xs( 12) = 0.1113076937333653D+02
        xs( 13) = 0.1207131088141466D+02
        xs( 14) = 0.1301141581367894D+02
        xs( 15) = 0.1395136764369461D+02
        xs( 16) = 0.1489178462910532D+02
        xs( 17) = 0.1583289496851904D+02
        xs( 18) = 0.1677527469089942D+02
        xs( 19) = 0.1771955937387915D+02
        xs( 20) = 0.1866658844781360D+02
        xs( 21) = 0.1961647395783311D+02
        xs( 22) = 0.2057059378719892D+02
        xs( 23) = 0.2152921158467103D+02
        xs( 24) = 0.2249595642992823D+02
        xs( 25) = 0.2346395803561928D+02
        xs( 26) = 0.2444845855997126D+02
        xs( 27) = 0.2544436839294050D+02
        xs( 28) = 0.2645059841062431D+02
        xs( 29) = 0.2738163044670802D+02
        xs( 30) = 0.2850401196571129D+02
        ws(  1) = 0.9349706004414458D+00
        ws(  2) = 0.9477765943571850D+00
        ws(  3) = 0.9493177795839856D+00
        ws(  4) = 0.9491455234782821D+00
        ws(  5) = 0.9484271642601672D+00
        ws(  6) = 0.9474075214962578D+00
        ws(  7) = 0.9462731168132094D+00
        ws(  8) = 0.9450584197474377D+00
        ws(  9) = 0.9437562098510541D+00
        ws( 10) = 0.9427450064960219D+00
        ws( 11) = 0.9416315561842918D+00
        ws( 12) = 0.9408105707100828D+00
        ws( 13) = 0.9402103828134991D+00
        ws( 14) = 0.9400753133947456D+00
        ws( 15) = 0.9401494042288074D+00
        ws( 16) = 0.9405444120810212D+00
        ws( 17) = 0.9416594967284048D+00
        ws( 18) = 0.9435124006840070D+00
        ws( 19) = 0.9450708579320425D+00
        ws( 20) = 0.9490336201491562D+00
        ws( 21) = 0.9516276622448928D+00
        ws( 22) = 0.9543204559810254D+00
        ws( 23) = 0.9586694051865444D+00
        ws( 24) = 0.9684125428406504D+00
        ws( 25) = 0.9881047595723129D+00
        ws( 26) = 0.9946771848529896D+00
        ws( 27) = 0.9795624304956909D+00
        ws( 28) = 0.9722843414703388D+00
        ws( 29) = 0.6040370193066953D+00
        ws( 30) = 0.2214727752741526D+01
        endif
        if( idomain .eq.  314 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.1884955592153876D+02
        rk1r = 0.2513274122871834D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  31
        err = 0.6440844881835919D-13
        xs(  1) = 0.7318033563087656D+00
        xs(  2) = 0.1679548757171032D+01
        xs(  3) = 0.2632357267387075D+01
        xs(  4) = 0.3585605029544974D+01
        xs(  5) = 0.4538284080112552D+01
        xs(  6) = 0.5489939416246732D+01
        xs(  7) = 0.6440346089133531D+01
        xs(  8) = 0.7389311258046509D+01
        xs(  9) = 0.8336806033965489D+01
        xs( 10) = 0.9282678931193514D+01
        xs( 11) = 0.1022711523384711D+02
        xs( 12) = 0.1117004886491442D+02
        xs( 13) = 0.1211171406619338D+02
        xs( 14) = 0.1305219694759044D+02
        xs( 15) = 0.1399174160292518D+02
        xs( 16) = 0.1493078834892200D+02
        xs( 17) = 0.1586935057778838D+02
        xs( 18) = 0.1680812020794463D+02
        xs( 19) = 0.1774733743926673D+02
        xs( 20) = 0.1868763419314438D+02
        xs( 21) = 0.1962957197360823D+02
        xs( 22) = 0.2057357716196675D+02
        xs( 23) = 0.2151997989411184D+02
        xs( 24) = 0.2247310933420063D+02
        xs( 25) = 0.2342514280203251D+02
        xs( 26) = 0.2438794019507321D+02
        xs( 27) = 0.2535579754928901D+02
        xs( 28) = 0.2633895228098614D+02
        xs( 29) = 0.2727385225160631D+02
        xs( 30) = 0.2843473625719376D+02
        xs( 31) = 0.2940908877884846D+02
        ws(  1) = 0.9389458574081769D+00
        ws(  2) = 0.9518087068845417D+00
        ws(  3) = 0.9533002169909998D+00
        ws(  4) = 0.9530610176750327D+00
        ws(  5) = 0.9522108758511340D+00
        ws(  6) = 0.9510630475777835D+00
        ws(  7) = 0.9497083754589737D+00
        ws(  8) = 0.9482265467162621D+00
        ws(  9) = 0.9466733458094843D+00
        ws( 10) = 0.9452253742718025D+00
        ws( 11) = 0.9435923916439951D+00
        ws( 12) = 0.9422695137408855D+00
        ws( 13) = 0.9410614011244188D+00
        ws( 14) = 0.9400721859465933D+00
        ws( 15) = 0.9392722106329296D+00
        ws( 16) = 0.9385124133027527D+00
        ws( 17) = 0.9385860613316878D+00
        ws( 18) = 0.9392161850885563D+00
        ws( 19) = 0.9396873521901902D+00
        ws( 20) = 0.9410634333839876D+00
        ws( 21) = 0.9425254550286267D+00
        ws( 22) = 0.9454956984469555D+00
        ws( 23) = 0.9476954780649820D+00
        ws( 24) = 0.9556622306820036D+00
        ws( 25) = 0.9637032681505081D+00
        ws( 26) = 0.9623844319177323D+00
        ws( 27) = 0.9515056105466775D+00
        ws( 28) = 0.9967883381737181D+00
        ws( 29) = 0.8528117876647153D+00
        ws( 30) = 0.1217058745246932D+01
        ws( 31) = 0.1768732544799761D+01
        endif
        if( idomain .eq.  315 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.1884955592153876D+02
        rk1r = 0.2827433388230814D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  33
        err = 0.7575908039446004D-13
        xs(  1) = 0.7351578781174459D+00
        xs(  2) = 0.1687113453104948D+01
        xs(  3) = 0.2644249761402916D+01
        xs(  4) = 0.3601791723056386D+01
        xs(  5) = 0.4558799523142106D+01
        xs(  6) = 0.5514731761523645D+01
        xs(  7) = 0.6469362426178289D+01
        xs(  8) = 0.7422466356265766D+01
        xs(  9) = 0.8373917032459165D+01
        xs( 10) = 0.9323600355277470D+01
        xs( 11) = 0.1027150071483607D+02
        xs( 12) = 0.1121761337238571D+02
        xs( 13) = 0.1216194228673339D+02
        xs( 14) = 0.1310462501877992D+02
        xs( 15) = 0.1404576295209321D+02
        xs( 16) = 0.1498548096135235D+02
        xs( 17) = 0.1592405454391814D+02
        xs( 18) = 0.1686164407967803D+02
        xs( 19) = 0.1779875978309501D+02
        xs( 20) = 0.1873562691896754D+02
        xs( 21) = 0.1967250134830266D+02
        xs( 22) = 0.2061025067762722D+02
        xs( 23) = 0.2154916355865226D+02
        xs( 24) = 0.2248930501356073D+02
        xs( 25) = 0.2343353556874905D+02
        xs( 26) = 0.2437952922377334D+02
        xs( 27) = 0.2532903621055882D+02
        xs( 28) = 0.2628517941615823D+02
        xs( 29) = 0.2724510315696391D+02
        xs( 30) = 0.2820235211589768D+02
        xs( 31) = 0.2918510255791684D+02
        xs( 32) = 0.3020476533353083D+02
        xs( 33) = 0.3124545969584291D+02
        ws(  1) = 0.9431436967685547D+00
        ws(  2) = 0.9561060949366589D+00
        ws(  3) = 0.9575796223698954D+00
        ws(  4) = 0.9574145545617690D+00
        ws(  5) = 0.9564807742950122D+00
        ws(  6) = 0.9553732876098976D+00
        ws(  7) = 0.9538608172239457D+00
        ws(  8) = 0.9522947297456957D+00
        ws(  9) = 0.9505769828728139D+00
        ws( 10) = 0.9487973279443449D+00
        ws( 11) = 0.9470095011554748D+00
        ws( 12) = 0.9452147975532434D+00
        ws( 13) = 0.9434946173700410D+00
        ws( 14) = 0.9418972428472486D+00
        ws( 15) = 0.9403026731190226D+00
        ws( 16) = 0.9392468606949250D+00
        ws( 17) = 0.9380400542711006D+00
        ws( 18) = 0.9372807594831365D+00
        ws( 19) = 0.9367767404707017D+00
        ws( 20) = 0.9368303834993925D+00
        ws( 21) = 0.9371304519858668D+00
        ws( 22) = 0.9384202701627755D+00
        ws( 23) = 0.9406259906576750D+00
        ws( 24) = 0.9398386714721118D+00
        ws( 25) = 0.9451848302987996D+00
        ws( 26) = 0.9490175292915761D+00
        ws( 27) = 0.9522527173101011D+00
        ws( 28) = 0.9583116196024511D+00
        ws( 29) = 0.9559600810378707D+00
        ws( 30) = 0.9086658159825668D+00
        ws( 31) = 0.9609389545781670D+00
        ws( 32) = 0.1071772223520608D+01
        ws( 33) = 0.1616212277013443D+01
        endif
        if( idomain .eq.  316 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.1884955592153876D+02
        rk1r = 0.3141592653589793D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  34
        err = 0.6744307448950397D-13
        xs(  1) = 0.7415244413923101D+00
        xs(  2) = 0.1702016967913241D+01
        xs(  3) = 0.2667549966902151D+01
        xs(  4) = 0.3633548966642921D+01
        xs(  5) = 0.4598865795084325D+01
        xs(  6) = 0.5563087821276503D+01
        xs(  7) = 0.6525871415004273D+01
        xs(  8) = 0.7487025435423705D+01
        xs(  9) = 0.8446366332734179D+01
        xs( 10) = 0.9403707363980804D+01
        xs( 11) = 0.1035908193244984D+02
        xs( 12) = 0.1131232832450945D+02
        xs( 13) = 0.1226351368394774D+02
        xs( 14) = 0.1321259473398386D+02
        xs( 15) = 0.1415967792742028D+02
        xs( 16) = 0.1510478889868094D+02
        xs( 17) = 0.1604811459006695D+02
        xs( 18) = 0.1698974258693657D+02
        xs( 19) = 0.1793006185754380D+02
        xs( 20) = 0.1886916849947534D+02
        xs( 21) = 0.1980715193780131D+02
        xs( 22) = 0.2074479170810573D+02
        xs( 23) = 0.2168226815785615D+02
        xs( 24) = 0.2261997532550823D+02
        xs( 25) = 0.2355899564997345D+02
        xs( 26) = 0.2449822843085643D+02
        xs( 27) = 0.2543806730399565D+02
        xs( 28) = 0.2638591318178117D+02
        xs( 29) = 0.2733471924042169D+02
        xs( 30) = 0.2829129929120947D+02
        xs( 31) = 0.2924531121958779D+02
        xs( 32) = 0.3020030383358004D+02
        xs( 33) = 0.3112626478404076D+02
        xs( 34) = 0.3219643805142203D+02
        ws(  1) = 0.9515483261205899D+00
        ws(  2) = 0.9645598250640748D+00
        ws(  3) = 0.9660197723944041D+00
        ws(  4) = 0.9657693297425783D+00
        ws(  5) = 0.9648311579555121D+00
        ws(  6) = 0.9635728876306160D+00
        ws(  7) = 0.9619522037503283D+00
        ws(  8) = 0.9602715460114232D+00
        ws(  9) = 0.9583575424706222D+00
        ws( 10) = 0.9564052093718718D+00
        ws( 11) = 0.9542951234427425D+00
        ws( 12) = 0.9522106624492169D+00
        ws( 13) = 0.9501244102582072D+00
        ws( 14) = 0.9481080763272173D+00
        ws( 15) = 0.9460916733651502D+00
        ws( 16) = 0.9442191019572466D+00
        ws( 17) = 0.9424698924448235D+00
        ws( 18) = 0.9408172746321509D+00
        ws( 19) = 0.9396533087932578D+00
        ws( 20) = 0.9385157663122932D+00
        ws( 21) = 0.9378489463819248D+00
        ws( 22) = 0.9375874916962486D+00
        ws( 23) = 0.9380054384881785D+00
        ws( 24) = 0.9372838636248416D+00
        ws( 25) = 0.9399053397520245D+00
        ws( 26) = 0.9415054316160787D+00
        ws( 27) = 0.9397256481305947D+00
        ws( 28) = 0.9495565549789896D+00
        ws( 29) = 0.9279639518675552D+00
        ws( 30) = 0.9465191225609990D+00
        ws( 31) = 0.9523018694019315D+00
        ws( 32) = 0.9212858273812335D+00
        ws( 33) = 0.1049728182853041D+01
        ws( 34) = 0.9169248556561272D+00
        endif
        if( idomain .eq.  317 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.1884955592153876D+02
        rk1r = 0.3455751918948772D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  37
        err = 0.8059459205706075D-13
        xs(  1) = 0.7434491031195878D+00
        xs(  2) = 0.1706394823317544D+01
        xs(  3) = 0.2674452492088118D+01
        xs(  4) = 0.3643023613142955D+01
        xs(  5) = 0.4611007315873163D+01
        xs(  6) = 0.5577938022197952D+01
        xs(  7) = 0.6543537839941709D+01
        xs(  8) = 0.7507512040332605D+01
        xs(  9) = 0.8469770062803175D+01
        xs( 10) = 0.9430041205050191D+01
        xs( 11) = 0.1038834462560608D+02
        xs( 12) = 0.1134449502271738D+02
        xs( 13) = 0.1229851662672955D+02
        xs( 14) = 0.1325033245822865D+02
        xs( 15) = 0.1419997583819390D+02
        xs( 16) = 0.1514746963575630D+02
        xs( 17) = 0.1609282826890704D+02
        xs( 18) = 0.1703620239618157D+02
        xs( 19) = 0.1797764705467116D+02
        xs( 20) = 0.1891744862361356D+02
        xs( 21) = 0.1985559862427210D+02
        xs( 22) = 0.2079243523649876D+02
        xs( 23) = 0.2172817432064976D+02
        xs( 24) = 0.2266315441564785D+02
        xs( 25) = 0.2359831098339474D+02
        xs( 26) = 0.2453263485750831D+02
        xs( 27) = 0.2546685520171621D+02
        xs( 28) = 0.2640455912986161D+02
        xs( 29) = 0.2734012467719921D+02
        xs( 30) = 0.2828328005470685D+02
        xs( 31) = 0.2922532221071689D+02
        xs( 32) = 0.3016145505271477D+02
        xs( 33) = 0.3111527214259693D+02
        xs( 34) = 0.3208198119291509D+02
        xs( 35) = 0.3303513535776653D+02
        xs( 36) = 0.3407867376205904D+02
        xs( 37) = 0.3516269887477461D+02
        ws(  1) = 0.9540040370226811D+00
        ws(  2) = 0.9670368450812976D+00
        ws(  3) = 0.9685625675370438D+00
        ws(  4) = 0.9684378842963467D+00
        ws(  5) = 0.9674506569634518D+00
        ws(  6) = 0.9663696807609441D+00
        ws(  7) = 0.9647758898744977D+00
        ws(  8) = 0.9631513384475882D+00
        ws(  9) = 0.9613084904097948D+00
        ws( 10) = 0.9592932848089516D+00
        ws( 11) = 0.9572531802281624D+00
        ws( 12) = 0.9550935834713788D+00
        ws( 13) = 0.9529019300695927D+00
        ws( 14) = 0.9506893929035282D+00
        ws( 15) = 0.9486112910437843D+00
        ws( 16) = 0.9463751742332090D+00
        ws( 17) = 0.9443726943062660D+00
        ws( 18) = 0.9423259521172849D+00
        ws( 19) = 0.9407577283008492D+00
        ws( 20) = 0.9387647505772408D+00
        ws( 21) = 0.9375053183027063D+00
        ws( 22) = 0.9362413964119312D+00
        ws( 23) = 0.9351986030417161D+00
        ws( 24) = 0.9352790441373203D+00
        ws( 25) = 0.9345258986715396D+00
        ws( 26) = 0.9345484380958945D+00
        ws( 27) = 0.9339930246813127D+00
        ws( 28) = 0.9390584790969564D+00
        ws( 29) = 0.9383945318534027D+00
        ws( 30) = 0.9456918683208984D+00
        ws( 31) = 0.9502751683716808D+00
        ws( 32) = 0.9206718182475012D+00
        ws( 33) = 0.9940762988977687D+00
        ws( 34) = 0.9016827043969676D+00
        ws( 35) = 0.9883121375623805D+00
        ws( 36) = 0.9939334760272189D+00
        ws( 37) = 0.1899130142275878D+01
        endif
        if( idomain .eq.  318 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.1884955592153876D+02
        rk1r = 0.3769911184307752D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  40
        err = 0.6530116191556939D-13
        xs(  1) = 0.7311125080957509D+00
        xs(  2) = 0.1678169151341249D+01
        xs(  3) = 0.2629954879338042D+01
        xs(  4) = 0.3581696005896873D+01
        xs(  5) = 0.4532294469792465D+01
        xs(  6) = 0.5481048510606662D+01
        xs(  7) = 0.6427479422134848D+01
        xs(  8) = 0.7371254536165691D+01
        xs(  9) = 0.8312058400465229D+01
        xs( 10) = 0.9249668270042172D+01
        xs( 11) = 0.1018400981598987D+02
        xs( 12) = 0.1111504709456353D+02
        xs( 13) = 0.1204292799601488D+02
        xs( 14) = 0.1296790014525845D+02
        xs( 15) = 0.1389029330340070D+02
        xs( 16) = 0.1481055672325308D+02
        xs( 17) = 0.1572914184547449D+02
        xs( 18) = 0.1664648920544474D+02
        xs( 19) = 0.1756296799745557D+02
        xs( 20) = 0.1847898630356877D+02
        xs( 21) = 0.1939460029350664D+02
        xs( 22) = 0.2031015825842232D+02
        xs( 23) = 0.2122573702683588D+02
        xs( 24) = 0.2214139105992872D+02
        xs( 25) = 0.2305713875430708D+02
        xs( 26) = 0.2397333437920113D+02
        xs( 27) = 0.2488984756875565D+02
        xs( 28) = 0.2580685226482223D+02
        xs( 29) = 0.2672539883717235D+02
        xs( 30) = 0.2764368868729552D+02
        xs( 31) = 0.2856426996232933D+02
        xs( 32) = 0.2948671809757475D+02
        xs( 33) = 0.3041278468859361D+02
        xs( 34) = 0.3133857756773642D+02
        xs( 35) = 0.3227404118927692D+02
        xs( 36) = 0.3319526343083354D+02
        xs( 37) = 0.3412404610205393D+02
        xs( 38) = 0.3509541294157881D+02
        xs( 39) = 0.3610381117769892D+02
        xs( 40) = 0.3810986138618039D+02
        ws(  1) = 0.9384371273470677D+00
        ws(  2) = 0.9508179327046018D+00
        ws(  3) = 0.9521111817929081D+00
        ws(  4) = 0.9513298941212537D+00
        ws(  5) = 0.9497233048050852D+00
        ws(  6) = 0.9476668158212364D+00
        ws(  7) = 0.9451634422200886D+00
        ws(  8) = 0.9423378409500819D+00
        ws(  9) = 0.9392397047260741D+00
        ws( 10) = 0.9359695350576894D+00
        ws( 11) = 0.9327048000315142D+00
        ws( 12) = 0.9294052038114181D+00
        ws( 13) = 0.9263780820028366D+00
        ws( 14) = 0.9236057934533337D+00
        ws( 15) = 0.9212661599208468D+00
        ws( 16) = 0.9193256718777105D+00
        ws( 17) = 0.9179012869463146D+00
        ws( 18) = 0.9168806594449888D+00
        ws( 19) = 0.9161534612185830D+00
        ws( 20) = 0.9158274807510473D+00
        ws( 21) = 0.9155567095702158D+00
        ws( 22) = 0.9155531751001506D+00
        ws( 23) = 0.9155019022101460D+00
        ws( 24) = 0.9156349179706349D+00
        ws( 25) = 0.9160580005868660D+00
        ws( 26) = 0.9161673855108177D+00
        ws( 27) = 0.9168603907291715D+00
        ws( 28) = 0.9176134528286980D+00
        ws( 29) = 0.9182925885071728D+00
        ws( 30) = 0.9193599522346072D+00
        ws( 31) = 0.9209767130670821D+00
        ws( 32) = 0.9230412096430561D+00
        ws( 33) = 0.9272807339286664D+00
        ws( 34) = 0.9351705306396525D+00
        ws( 35) = 0.9152330454576597D+00
        ws( 36) = 0.9257490532172944D+00
        ws( 37) = 0.9440534695481895D+00
        ws( 38) = 0.8988960198801142D+00
        ws( 39) = 0.1377357870131708D+01
        ws( 40) = 0.2163363561561731D+01
        endif
        if( idomain .eq.  319 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.1884955592153876D+02
        rk1r = 0.4084070449666731D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  41
        err = 0.7638897992510129D-13
        xs(  1) = 0.7496162329401002D+00
        xs(  2) = 0.1720587764878765D+01
        xs(  3) = 0.2696709981060754D+01
        xs(  4) = 0.3673492721130124D+01
        xs(  5) = 0.4649787749673362D+01
        xs(  6) = 0.5625099363067930D+01
        xs(  7) = 0.6599206088199654D+01
        xs(  8) = 0.7571797756201858D+01
        xs(  9) = 0.8542743830647829D+01
        xs( 10) = 0.9511796993097684D+01
        xs( 11) = 0.1047892866776272D+02
        xs( 12) = 0.1144392033780092D+02
        xs( 13) = 0.1240673057216976D+02
        xs( 14) = 0.1336727928595295D+02
        xs( 15) = 0.1432551146540875D+02
        xs( 16) = 0.1528132784100394D+02
        xs( 17) = 0.1623481111111733D+02
        xs( 18) = 0.1718583397308207D+02
        xs( 19) = 0.1813450563880154D+02
        xs( 20) = 0.1908080184836749D+02
        xs( 21) = 0.2002482601570151D+02
        xs( 22) = 0.2096656339026003D+02
        xs( 23) = 0.2190616036854216D+02
        xs( 24) = 0.2284387799948121D+02
        xs( 25) = 0.2377963849744212D+02
        xs( 26) = 0.2471383166645967D+02
        xs( 27) = 0.2564630265580180D+02
        xs( 28) = 0.2657795534830420D+02
        xs( 29) = 0.2750776876994809D+02
        xs( 30) = 0.2843911083336848D+02
        xs( 31) = 0.2936852554956873D+02
        xs( 32) = 0.3029813211620225D+02
        xs( 33) = 0.3122995581276256D+02
        xs( 34) = 0.3216433003933833D+02
        xs( 35) = 0.3309463250525688D+02
        xs( 36) = 0.3402863979774925D+02
        xs( 37) = 0.3497819860364510D+02
        xs( 38) = 0.3589795313588086D+02
        xs( 39) = 0.3693165106174698D+02
        xs( 40) = 0.3797860953311454D+02
        xs( 41) = 0.3909438287664881D+02
        ws(  1) = 0.9618752828362342D+00
        ws(  2) = 0.9751417044872928D+00
        ws(  3) = 0.9766951146198899D+00
        ws(  4) = 0.9766703848554698D+00
        ws(  5) = 0.9758183208791316D+00
        ws(  6) = 0.9747878435121878D+00
        ws(  7) = 0.9733862567471789D+00
        ws(  8) = 0.9717596961620034D+00
        ws(  9) = 0.9700822752154189D+00
        ws( 10) = 0.9680784496170644D+00
        ws( 11) = 0.9660861056817903D+00
        ws( 12) = 0.9638924551463499D+00
        ws( 13) = 0.9617269297328760D+00
        ws( 14) = 0.9593901249221684D+00
        ws( 15) = 0.9570020628705216D+00
        ws( 16) = 0.9546830780414958D+00
        ws( 17) = 0.9522594583710837D+00
        ws( 18) = 0.9497938314570692D+00
        ws( 19) = 0.9474593219709367D+00
        ws( 20) = 0.9452702690333830D+00
        ws( 21) = 0.9428463300921811D+00
        ws( 22) = 0.9405646673082610D+00
        ws( 23) = 0.9386113285297752D+00
        ws( 24) = 0.9364967854246817D+00
        ws( 25) = 0.9350799951581195D+00
        ws( 26) = 0.9334752151457594D+00
        ws( 27) = 0.9317170063248489D+00
        ws( 28) = 0.9315018788070266D+00
        ws( 29) = 0.9285167702413684D+00
        ws( 30) = 0.9297424661517910D+00
        ws( 31) = 0.9296313107855533D+00
        ws( 32) = 0.9290045092106125D+00
        ws( 33) = 0.9375518219690958D+00
        ws( 34) = 0.9256076503544636D+00
        ws( 35) = 0.9193397589481184D+00
        ws( 36) = 0.9245410148094703D+00
        ws( 37) = 0.9315073959761622D+00
        ws( 38) = 0.9281078392947777D+00
        ws( 39) = 0.1025499539459579D+01
        ws( 40) = 0.7867921775620155D+00
        ws( 41) = 0.1203831275402882D+01
        endif
        if( idomain .eq.  320 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.1884955592153876D+02
        rk1r = 0.4398229715025710D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  44
        err = 0.2639834563162499D-13
        xs(  1) = 0.7488973776125375D+00
        xs(  2) = 0.1718752035037866D+01
        xs(  3) = 0.2693973900968536D+01
        xs(  4) = 0.3669819883290273D+01
        xs(  5) = 0.4645300862093559D+01
        xs(  6) = 0.5619922249596350D+01
        xs(  7) = 0.6593412443457200D+01
        xs(  8) = 0.7565528399710848D+01
        xs(  9) = 0.8536092038373470D+01
        xs( 10) = 0.9504913449598797D+01
        xs( 11) = 0.1047188290411522D+02
        xs( 12) = 0.1143684795352076D+02
        xs( 13) = 0.1239970960226558D+02
        xs( 14) = 0.1336037505671165D+02
        xs( 15) = 0.1431878360329383D+02
        xs( 16) = 0.1527483384588828D+02
        xs( 17) = 0.1622851325485985D+02
        xs( 18) = 0.1717977534196009D+02
        xs( 19) = 0.1812857361779751D+02
        xs( 20) = 0.1907493903885382D+02
        xs( 21) = 0.2001885515782887D+02
        xs( 22) = 0.2096036593011490D+02
        xs( 23) = 0.2189949549438798D+02
        xs( 24) = 0.2283628660597126D+02
        xs( 25) = 0.2377091412190760D+02
        xs( 26) = 0.2470334271456040D+02
        xs( 27) = 0.2563373113516850D+02
        xs( 28) = 0.2656234561568310D+02
        xs( 29) = 0.2748934651626607D+02
        xs( 30) = 0.2841473334317707D+02
        xs( 31) = 0.2933895474948838D+02
        xs( 32) = 0.3026218821450785D+02
        xs( 33) = 0.3118462413455021D+02
        xs( 34) = 0.3210830860244349D+02
        xs( 35) = 0.3302973599416430D+02
        xs( 36) = 0.3395418480184418D+02
        xs( 37) = 0.3487890619717329D+02
        xs( 38) = 0.3581166100258097D+02
        xs( 39) = 0.3672503820247376D+02
        xs( 40) = 0.3765176744300621D+02
        xs( 41) = 0.3859887619112152D+02
        xs( 42) = 0.3951898930641590D+02
        xs( 43) = 0.4047351547399955D+02
        xs( 44) = 0.4174114308037658D+02
        ws(  1) = 0.9607744239143879D+00
        ws(  2) = 0.9741725755872466D+00
        ws(  3) = 0.9757750243777074D+00
        ws(  4) = 0.9757416622181539D+00
        ws(  5) = 0.9751192079584921D+00
        ws(  6) = 0.9740984789566336D+00
        ws(  7) = 0.9728308458938085D+00
        ws(  8) = 0.9713972040189602D+00
        ws(  9) = 0.9697011950252460D+00
        ws( 10) = 0.9679180286052069D+00
        ws( 11) = 0.9659767716097405D+00
        ws( 12) = 0.9639314268123630D+00
        ws( 13) = 0.9617898945520066D+00
        ws( 14) = 0.9595358091435395D+00
        ws( 15) = 0.9572573819424181D+00
        ws( 16) = 0.9548596457771601D+00
        ws( 17) = 0.9524665182929301D+00
        ws( 18) = 0.9500189397323184D+00
        ws( 19) = 0.9475945285648284D+00
        ws( 20) = 0.9451489375605437D+00
        ws( 21) = 0.9427182754043064D+00
        ws( 22) = 0.9402792338964699D+00
        ws( 23) = 0.9380008686019409D+00
        ws( 24) = 0.9355974703702080D+00
        ws( 25) = 0.9335195741260975D+00
        ws( 26) = 0.9313519969775772D+00
        ws( 27) = 0.9295128837128778D+00
        ws( 28) = 0.9278439114568692D+00
        ws( 29) = 0.9260631282294542D+00
        ws( 30) = 0.9247074559098613D+00
        ws( 31) = 0.9235141497312899D+00
        ws( 32) = 0.9232292832730099D+00
        ws( 33) = 0.9214257239623119D+00
        ws( 34) = 0.9246234755550838D+00
        ws( 35) = 0.9209957302774848D+00
        ws( 36) = 0.9261899870540767D+00
        ws( 37) = 0.9227562240292609D+00
        ws( 38) = 0.9344020279651076D+00
        ws( 39) = 0.9148975431719184D+00
        ws( 40) = 0.9008257225747109D+00
        ws( 41) = 0.9752475242985511D+00
        ws( 42) = 0.8873408553010351D+00
        ws( 43) = 0.8295740361019892D+00
        ws( 44) = 0.1812693446119048D+01
        endif
        if( idomain .eq.  321 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.1884955592153876D+02
        rk1r = 0.4712388980384689D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  46
        err = 0.3601670103987485D-13
        xs(  1) = 0.7535031031477880D+00
        xs(  2) = 0.1729320270139577D+01
        xs(  3) = 0.2710574936026724D+01
        xs(  4) = 0.3692491857317612D+01
        xs(  5) = 0.4674025756884550D+01
        xs(  6) = 0.5654791632941177D+01
        xs(  7) = 0.6634426311345651D+01
        xs(  8) = 0.7612755474409451D+01
        xs(  9) = 0.8589568466981722D+01
        xs( 10) = 0.9564697935615511D+01
        xs( 11) = 0.1053802438376267D+02
        xs( 12) = 0.1150939342856213D+02
        xs( 13) = 0.1247870464533433D+02
        xs( 14) = 0.1344587869474918D+02
        xs( 15) = 0.1441082166932156D+02
        xs( 16) = 0.1537346023821003D+02
        xs( 17) = 0.1633373382139201D+02
        xs( 18) = 0.1729161268147299D+02
        xs( 19) = 0.1824703560391258D+02
        xs( 20) = 0.1919999315202666D+02
        xs( 21) = 0.2015049011751638D+02
        xs( 22) = 0.2109851829060749D+02
        xs( 23) = 0.2204408136901430D+02
        xs( 24) = 0.2298718310356596D+02
        xs( 25) = 0.2392798122055330D+02
        xs( 26) = 0.2486642779210026D+02
        xs( 27) = 0.2580262719071324D+02
        xs( 28) = 0.2673669794207737D+02
        xs( 29) = 0.2766870883996107D+02
        xs( 30) = 0.2859900205038024D+02
        xs( 31) = 0.2952753040051712D+02
        xs( 32) = 0.3045453799072832D+02
        xs( 33) = 0.3138043386221828D+02
        xs( 34) = 0.3230537731050482D+02
        xs( 35) = 0.3322962685852014D+02
        xs( 36) = 0.3415357966725624D+02
        xs( 37) = 0.3507824815105315D+02
        xs( 38) = 0.3600475165500176D+02
        xs( 39) = 0.3693080152997277D+02
        xs( 40) = 0.3785523141625310D+02
        xs( 41) = 0.3878679690817684D+02
        xs( 42) = 0.3972859232535574D+02
        xs( 43) = 0.4066144368936830D+02
        xs( 44) = 0.4156105720460257D+02
        xs( 45) = 0.4267692604821475D+02
        xs( 46) = 0.4375883816288131D+02
        ws(  1) = 0.9667539346354139D+00
        ws(  2) = 0.9801100854756478D+00
        ws(  3) = 0.9818291771122020D+00
        ws(  4) = 0.9818215806290935D+00
        ws(  5) = 0.9812369453260469D+00
        ws(  6) = 0.9802222589630354D+00
        ws(  7) = 0.9790363583431050D+00
        ws(  8) = 0.9775812107896696D+00
        ws(  9) = 0.9760086086427368D+00
        ws( 10) = 0.9742264494952143D+00
        ws( 11) = 0.9723656785834121D+00
        ws( 12) = 0.9703702663377208D+00
        ws( 13) = 0.9682833481684830D+00
        ws( 14) = 0.9660528663098293D+00
        ws( 15) = 0.9638152989799077D+00
        ws( 16) = 0.9614432242680365D+00
        ws( 17) = 0.9590705719181108D+00
        ws( 18) = 0.9566523809543699D+00
        ws( 19) = 0.9542106296154159D+00
        ws( 20) = 0.9517481929436488D+00
        ws( 21) = 0.9492720515793966D+00
        ws( 22) = 0.9467635968487743D+00
        ws( 23) = 0.9443612377276633D+00
        ws( 24) = 0.9418716548074966D+00
        ws( 25) = 0.9396354386192320D+00
        ws( 26) = 0.9372825373937295D+00
        ws( 27) = 0.9351381040099035D+00
        ws( 28) = 0.9332759258465473D+00
        ws( 29) = 0.9309056646669696D+00
        ws( 30) = 0.9292016420743709D+00
        ws( 31) = 0.9280297060729872D+00
        ws( 32) = 0.9262547947220603D+00
        ws( 33) = 0.9251034895843396D+00
        ws( 34) = 0.9249883078144271D+00
        ws( 35) = 0.9238275482357879D+00
        ws( 36) = 0.9240847719715388D+00
        ws( 37) = 0.9246275399310198D+00
        ws( 38) = 0.9218237944719513D+00
        ws( 39) = 0.9302964504943546D+00
        ws( 40) = 0.9142117598092429D+00
        ws( 41) = 0.9278010211608682D+00
        ws( 42) = 0.9208445409276246D+00
        ws( 43) = 0.9585054898310030D+00
        ws( 44) = 0.7770210912786195D+00
        ws( 45) = 0.8911688286395099D+00
        ws( 46) = 0.1539178172053227D+01
        endif
        if( idomain .eq.  322 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.1884955592153876D+02
        rk1r = 0.5026548245743669D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  48
        err = 0.4479997631704128D-13
        xs(  1) = 0.7544297264767718D+00
        xs(  2) = 0.1731822785869001D+01
        xs(  3) = 0.2714498416008169D+01
        xs(  4) = 0.3697912757158429D+01
        xs(  5) = 0.4680995268669690D+01
        xs(  6) = 0.5663380610178858D+01
        xs(  7) = 0.6644697108372139D+01
        xs(  8) = 0.7624772510505754D+01
        xs(  9) = 0.8603439586060055D+01
        xs( 10) = 0.9580495433100532D+01
        xs( 11) = 0.1055583241767320D+02
        xs( 12) = 0.1152929256687197D+02
        xs( 13) = 0.1250080686079876D+02
        xs( 14) = 0.1347026350995010D+02
        xs( 15) = 0.1443753079241539D+02
        xs( 16) = 0.1540259252318258D+02
        xs( 17) = 0.1636535725242566D+02
        xs( 18) = 0.1732575860501944D+02
        xs( 19) = 0.1828373879123639D+02
        xs( 20) = 0.1923932822794480D+02
        xs( 21) = 0.2019242475804567D+02
        xs( 22) = 0.2114302891939908D+02
        xs( 23) = 0.2209114074586664D+02
        xs( 24) = 0.2303673785871890D+02
        xs( 25) = 0.2397992364183591D+02
        xs( 26) = 0.2492064653380067D+02
        xs( 27) = 0.2585897692493223D+02
        xs( 28) = 0.2679486268471308D+02
        xs( 29) = 0.2772857485691152D+02
        xs( 30) = 0.2865976199602133D+02
        xs( 31) = 0.2958948439723950D+02
        xs( 32) = 0.3051686967016784D+02
        xs( 33) = 0.3144224086421648D+02
        xs( 34) = 0.3236654617696796D+02
        xs( 35) = 0.3328899897660056D+02
        xs( 36) = 0.3420983752445354D+02
        xs( 37) = 0.3513076890551061D+02
        xs( 38) = 0.3604939625334287D+02
        xs( 39) = 0.3696985558015000D+02
        xs( 40) = 0.3789245452991169D+02
        xs( 41) = 0.3881358122847541D+02
        xs( 42) = 0.3972604367344416D+02
        xs( 43) = 0.4065539703270634D+02
        xs( 44) = 0.4155724048754020D+02
        xs( 45) = 0.4249618082066157D+02
        xs( 46) = 0.4343984646178529D+02
        xs( 47) = 0.4454259146653661D+02
        xs( 48) = 0.4540500363433902D+02
        ws(  1) = 0.9682932714488085D+00
        ws(  2) = 0.9815065036658644D+00
        ws(  3) = 0.9833407269161476D+00
        ws(  4) = 0.9833593986044512D+00
        ws(  5) = 0.9827727054050499D+00
        ws(  6) = 0.9818942646948829D+00
        ws(  7) = 0.9807253385758975D+00
        ws(  8) = 0.9794229086478718D+00
        ws(  9) = 0.9778331085454492D+00
        ws( 10) = 0.9762549801796473D+00
        ws( 11) = 0.9744225288354424D+00
        ws( 12) = 0.9724984669611471D+00
        ws( 13) = 0.9704950746877713D+00
        ws( 14) = 0.9683782366158100D+00
        ws( 15) = 0.9661803162043284D+00
        ws( 16) = 0.9639324002128179D+00
        ws( 17) = 0.9615824644686221D+00
        ws( 18) = 0.9592124186824804D+00
        ws( 19) = 0.9567895004544553D+00
        ws( 20) = 0.9543146699905030D+00
        ws( 21) = 0.9518663980693319D+00
        ws( 22) = 0.9493880282096501D+00
        ws( 23) = 0.9468671630650323D+00
        ws( 24) = 0.9444064857321257D+00
        ws( 25) = 0.9419093412317687D+00
        ws( 26) = 0.9395302090626113D+00
        ws( 27) = 0.9370919215871558D+00
        ws( 28) = 0.9347730640420091D+00
        ws( 29) = 0.9326320089994584D+00
        ws( 30) = 0.9305509531499861D+00
        ws( 31) = 0.9286369323887961D+00
        ws( 32) = 0.9262288008778153D+00
        ws( 33) = 0.9246565006942306D+00
        ws( 34) = 0.9235365889927915D+00
        ws( 35) = 0.9229621442760818D+00
        ws( 36) = 0.9212401033864671D+00
        ws( 37) = 0.9212993908014154D+00
        ws( 38) = 0.9199564865981683D+00
        ws( 39) = 0.9177840753021849D+00
        ws( 40) = 0.9322841285253745D+00
        ws( 41) = 0.9119984800522722D+00
        ws( 42) = 0.9291282548074355D+00
        ws( 43) = 0.9306318281642016D+00
        ws( 44) = 0.9068039828710097D+00
        ws( 45) = 0.9145396469717041D+00
        ws( 46) = 0.9525439527095603D+00
        ws( 47) = 0.7405341080294578D+00
        ws( 48) = 0.1626770930286439D+01
        endif
        if( idomain .eq.  323 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.2199114857512855D+02
        rk1r = 0.2000000000000000D-01
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =  19
        err = 0.6608882217208161D-13
        xs(  1) = 0.7527624950459664D+00
        xs(  2) = 0.1728339754490587D+01
        xs(  3) = 0.2710564297165880D+01
        xs(  4) = 0.3695485676224321D+01
        xs(  5) = 0.4682792991046306D+01
        xs(  6) = 0.5672727431254280D+01
        xs(  7) = 0.6665667439900292D+01
        xs(  8) = 0.7662037138697859D+01
        xs(  9) = 0.8662280799077799D+01
        xs( 10) = 0.9666837329169361D+01
        xs( 11) = 0.1067615942661181D+02
        xs( 12) = 0.1169069331600498D+02
        xs( 13) = 0.1271072659662310D+02
        xs( 14) = 0.1373768046531204D+02
        xs( 15) = 0.1476606003147551D+02
        xs( 16) = 0.1582118961334514D+02
        xs( 17) = 0.1682059925397026D+02
        xs( 18) = 0.1806177031673674D+02
        xs( 19) = 0.1894706412891025D+02
        ws(  1) = 0.9663507285113389D+00
        ws(  2) = 0.9804857439742529D+00
        ws(  3) = 0.9838129566177585D+00
        ws(  4) = 0.9861760160554902D+00
        ws(  5) = 0.9886432766889781D+00
        ws(  6) = 0.9914479619201126D+00
        ws(  7) = 0.9946765963283400D+00
        ws(  8) = 0.9983429763973393D+00
        ws(  9) = 0.1002472090825601D+01
        ws( 10) = 0.1007066978550423D+01
        ws( 11) = 0.1012127980368127D+01
        ws( 12) = 0.1017767773992720D+01
        ws( 13) = 0.1023602456665844D+01
        ws( 14) = 0.1031089500254438D+01
        ws( 15) = 0.1039080741154580D+01
        ws( 16) = 0.1022618775348380D+01
        ws( 17) = 0.1192183253455819D+01
        ws( 18) = 0.6336330244395512D+00
        ws( 19) = 0.2228905341961751D+01
        endif
        if( idomain .eq.  324 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.2199114857512855D+02
        rk1r = 0.4000000000000000D-01
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =  19
        err = 0.6608682404033088D-13
        xs(  1) = 0.7527662808031882D+00
        xs(  2) = 0.1728348404363259D+01
        xs(  3) = 0.2710577751228328D+01
        xs(  4) = 0.3695503772021878D+01
        xs(  5) = 0.4682815527402808D+01
        xs(  6) = 0.5672754140958759D+01
        xs(  7) = 0.6665698001759417D+01
        xs(  8) = 0.7662071178744141D+01
        xs(  9) = 0.8662317872817079D+01
        xs( 10) = 0.9666876955876806D+01
        xs( 11) = 0.1067620102922115D+02
        xs( 12) = 0.1169073628069500D+02
        xs( 13) = 0.1271077016487910D+02
        xs( 14) = 0.1373772387571644D+02
        xs( 15) = 0.1476610158640230D+02
        xs( 16) = 0.1582123082769459D+02
        xs( 17) = 0.1682062771390854D+02
        xs( 18) = 0.1806181901207312D+02
        xs( 19) = 0.1894707934535893D+02
        ws(  1) = 0.9663556731968757D+00
        ws(  2) = 0.9804906423331267D+00
        ws(  3) = 0.9838177250650898D+00
        ws(  4) = 0.9861805999858104D+00
        ws(  5) = 0.9886475917808915D+00
        ws(  6) = 0.9914519960633905D+00
        ws(  7) = 0.9946802813942627D+00
        ws(  8) = 0.9983462734366880D+00
        ws(  9) = 0.1002474931571352D+01
        ws( 10) = 0.1007069302399404D+01
        ws( 11) = 0.1012129745407204D+01
        ws( 12) = 0.1017768836885029D+01
        ws( 13) = 0.1023602723491785D+01
        ws( 14) = 0.1031089291538052D+01
        ws( 15) = 0.1039077467272195D+01
        ws( 16) = 0.1022621499167970D+01
        ws( 17) = 0.1192161517487121D+01
        ws( 18) = 0.6336791315776227D+00
        ws( 19) = 0.2228809140915717D+01
        endif
        if( idomain .eq.  325 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.2199114857512855D+02
        rk1r = 0.1000000000000000D+00
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =  19
        err = 0.6606704045375276D-13
        xs(  1) = 0.7527929343601854D+00
        xs(  2) = 0.1728409200677456D+01
        xs(  3) = 0.2710672279276808D+01
        xs(  4) = 0.3695630956257595D+01
        xs(  5) = 0.4682973916888656D+01
        xs(  6) = 0.5672941878041881D+01
        xs(  7) = 0.6665912814541060D+01
        xs(  8) = 0.7662310381472023D+01
        xs(  9) = 0.8662578306146360D+01
        xs( 10) = 0.9667155122211122D+01
        xs( 11) = 0.1067649277538793D+02
        xs( 12) = 0.1169103709514137D+02
        xs( 13) = 0.1271107444359950D+02
        xs( 14) = 0.1373802611532089D+02
        xs( 15) = 0.1476638987613175D+02
        xs( 16) = 0.1582151242364806D+02
        xs( 17) = 0.1682082665718713D+02
        xs( 18) = 0.1806210698781448D+02
        xs( 19) = 0.1894716897533727D+02
        ws(  1) = 0.9663902053488004D+00
        ws(  2) = 0.9805249029059774D+00
        ws(  3) = 0.9838511555453846D+00
        ws(  4) = 0.9862127559746291D+00
        ws(  5) = 0.9886780330206572D+00
        ws(  6) = 0.9914804087836869D+00
        ws(  7) = 0.9947061771021162D+00
        ws(  8) = 0.9983693864353149D+00
        ws(  9) = 0.1002494784128656D+01
        ws( 10) = 0.1007085429950026D+01
        ws( 11) = 0.1012141724332333D+01
        ws( 12) = 0.1017775703603174D+01
        ws( 13) = 0.1023604480910063D+01
        ws( 14) = 0.1031085808984111D+01
        ws( 15) = 0.1039054864964709D+01
        ws( 16) = 0.1022638660730815D+01
        ws( 17) = 0.1191995345683736D+01
        ws( 18) = 0.6340107418509299D+00
        ws( 19) = 0.2228010062901737D+01
        endif
        if( idomain .eq.  326 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.2199114857512855D+02
        rk1r = 0.2000000000000000D+00
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =  19
        err = 0.6601246733722752D-13
        xs(  1) = 0.7528889517370778D+00
        xs(  2) = 0.1728628286415022D+01
        xs(  3) = 0.2711012864082244D+01
        xs(  4) = 0.3696089136556587D+01
        xs(  5) = 0.4683544456969726D+01
        xs(  6) = 0.5673618046584601D+01
        xs(  7) = 0.6666686429538790D+01
        xs(  8) = 0.7663171818102659D+01
        xs(  9) = 0.8663516307975113D+01
        xs( 10) = 0.9668157266049930D+01
        xs( 11) = 0.1067754435905852D+02
        xs( 12) = 0.1169212211567579D+02
        xs( 13) = 0.1271217326490276D+02
        xs( 14) = 0.1373911952373965D+02
        xs( 15) = 0.1476743370150125D+02
        xs( 16) = 0.1582254155251954D+02
        xs( 17) = 0.1682154260064846D+02
        xs( 18) = 0.1806326928210732D+02
        xs( 19) = 0.1894753238919606D+02
        ws(  1) = 0.9665146253308292D+00
        ws(  2) = 0.9806484194805217D+00
        ws(  3) = 0.9839716315414421D+00
        ws(  4) = 0.9863286042263933D+00
        ws(  5) = 0.9887876126606455D+00
        ws(  6) = 0.9915826689494649D+00
        ws(  7) = 0.9947994463652770D+00
        ws(  8) = 0.9984526500611327D+00
        ws(  9) = 0.1002566388921686D+01
        ws( 10) = 0.1007143806699758D+01
        ws( 11) = 0.1012185449690357D+01
        ws( 12) = 0.1017801681502998D+01
        ws( 13) = 0.1023611726981187D+01
        ws( 14) = 0.1031076161427342D+01
        ws( 15) = 0.1038973342497123D+01
        ws( 16) = 0.1022701065330511D+01
        ws( 17) = 0.1191427251316261D+01
        ws( 18) = 0.6351751689139583D+00
        ws( 19) = 0.2225469617644530D+01
        endif
        if( idomain .eq.  327 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.2199114857512855D+02
        rk1r = 0.4000000000000000D+00
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =  19
        err = 0.6576036342958803D-13
        xs(  1) = 0.7533096835399157D+00
        xs(  2) = 0.1729587568756349D+01
        xs(  3) = 0.2712504414917306D+01
        xs(  4) = 0.3698096345363001D+01
        xs(  5) = 0.4686044967130608D+01
        xs(  6) = 0.5676582974335631D+01
        xs(  7) = 0.6670080517502002D+01
        xs(  8) = 0.7666953357982070D+01
        xs(  9) = 0.8667636228024413D+01
        xs( 10) = 0.9672561004523120D+01
        xs( 11) = 0.1068216701554186D+02
        xs( 12) = 0.1169689264094141D+02
        xs( 13) = 0.1271700396141460D+02
        xs( 14) = 0.1374392372533817D+02
        xs( 15) = 0.1477201657699126D+02
        xs( 16) = 0.1582704472269698D+02
        xs( 17) = 0.1682467740711838D+02
        xs( 18) = 0.1806824699271295D+02
        xs( 19) = 0.1894910209299839D+02
        ws(  1) = 0.9670584443315090D+00
        ws(  2) = 0.9811889514459446D+00
        ws(  3) = 0.9844994085699473D+00
        ws(  4) = 0.9868366494820395D+00
        ws(  5) = 0.9892688588660724D+00
        ws(  6) = 0.9920325123552332D+00
        ws(  7) = 0.9952103740484484D+00
        ws(  8) = 0.9988200967815546D+00
        ws(  9) = 0.1002882819761549D+01
        ws( 10) = 0.1007401999974204D+01
        ws( 11) = 0.1012378672689667D+01
        ws( 12) = 0.1017915462128156D+01
        ws( 13) = 0.1023641421823072D+01
        ws( 14) = 0.1031029510091245D+01
        ws( 15) = 0.1038603755399240D+01
        ws( 16) = 0.1022972649190721D+01
        ws( 17) = 0.1188886316116867D+01
        ws( 18) = 0.6402250279670222D+00
        ws( 19) = 0.2214445620050997D+01
        endif
        if( idomain .eq.  328 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.2199114857512855D+02
        rk1r = 0.1000000000000000D+01
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =  19
        err = 0.6752005314074412D-13
        xs(  1) = 0.7518851845442353D+00
        xs(  2) = 0.1726008731372326D+01
        xs(  3) = 0.2706785195268122D+01
        xs(  4) = 0.3690137366997659D+01
        xs(  5) = 0.4675728960284579D+01
        xs(  6) = 0.5663754973069902D+01
        xs(  7) = 0.6654561558314607D+01
        xs(  8) = 0.7648540237609024D+01
        xs(  9) = 0.8646106499007267D+01
        xs( 10) = 0.9647709514032053D+01
        xs( 11) = 0.1065376447640982D+02
        xs( 12) = 0.1166477636912834D+02
        xs( 13) = 0.1268103892524673D+02
        xs( 14) = 0.1370403878972236D+02
        xs( 15) = 0.1472911799848920D+02
        xs( 16) = 0.1577816135805640D+02
        xs( 17) = 0.1678614055836622D+02
        xs( 18) = 0.1796842845414485D+02
        xs( 19) = 0.1890838221459699D+02
        ws(  1) = 0.9649219153653429D+00
        ws(  2) = 0.9790823876764903D+00
        ws(  3) = 0.9823401767430251D+00
        ws(  4) = 0.9845644267690509D+00
        ws(  5) = 0.9868470667214512D+00
        ws(  6) = 0.9894552332784611D+00
        ws(  7) = 0.9924294759628453D+00
        ws(  8) = 0.9958467459347552D+00
        ws(  9) = 0.9996962843526914D+00
        ws( 10) = 0.1004007720222875D+01
        ws( 11) = 0.1008815092376562D+01
        ws( 12) = 0.1014137062396400D+01
        ws( 13) = 0.1020047447185274D+01
        ws( 14) = 0.1026655686135991D+01
        ws( 15) = 0.1038507477208719D+01
        ws( 16) = 0.1010406267118195D+01
        ws( 17) = 0.1219000020030951D+01
        ws( 18) = 0.5520122322354361D+00
        ws( 19) = 0.2276835764703605D+01
        endif
        if( idomain .eq.  329 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.2199114857512855D+02
        rk1r = 0.1570796326794897D+01
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =  19
        err = 0.9721052740197775D-13
        xs(  1) = 0.7476255338886284D+00
        xs(  2) = 0.1715803649090451D+01
        xs(  3) = 0.2690882755923215D+01
        xs(  4) = 0.3668738465312809D+01
        xs(  5) = 0.4649156983353463D+01
        xs(  6) = 0.5632334556320759D+01
        xs(  7) = 0.6618729629673161D+01
        xs(  8) = 0.7608702045225978D+01
        xs(  9) = 0.8602766925497235D+01
        xs( 10) = 0.9601314902322661D+01
        xs( 11) = 0.1060481158522846D+02
        xs( 12) = 0.1161369720171550D+02
        xs( 13) = 0.1262857122735926D+02
        xs( 14) = 0.1364849871753331D+02
        xs( 15) = 0.1468059955650076D+02
        xs( 16) = 0.1570331836000063D+02
        xs( 17) = 0.1677626993293666D+02
        xs( 18) = 0.1779540404693320D+02
        xs( 19) = 0.1992371033529193D+02
        ws(  1) = 0.9587093077216503D+00
        ws(  2) = 0.9730406521549231D+00
        ws(  3) = 0.9766877724563692D+00
        ws(  4) = 0.9791598000343925D+00
        ws(  5) = 0.9817923573406087D+00
        ws(  6) = 0.9848117244608948D+00
        ws(  7) = 0.9881828530319264D+00
        ws(  8) = 0.9921376146230613D+00
        ws(  9) = 0.9963668989278350D+00
        ws( 10) = 0.1001368916842164D+01
        ws( 11) = 0.1006321213241009D+01
        ws( 12) = 0.1012671255298304D+01
        ws( 13) = 0.1017795507089032D+01
        ws( 14) = 0.1029323055033923D+01
        ws( 15) = 0.1015112269647872D+01
        ws( 16) = 0.1121828698476664D+01
        ws( 17) = 0.7933318368092920D+00
        ws( 18) = 0.1706283111977412D+01
        ws( 19) = 0.2330927278795804D+01
        endif
        if( idomain .eq.  330 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.2199114857512855D+02
        rk1r = 0.3141592653589793D+01
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =  21
        err = 0.6926072579635121D-13
        xs(  1) = 0.7242826507039758D+00
        xs(  2) = 0.1661964630691056D+01
        xs(  3) = 0.2604755843099532D+01
        xs(  4) = 0.3547760075157145D+01
        xs(  5) = 0.4489756541602429D+01
        xs(  6) = 0.5429987314134691D+01
        xs(  7) = 0.6367716132411120D+01
        xs(  8) = 0.7302715295760654D+01
        xs(  9) = 0.8235127640057186D+01
        xs( 10) = 0.9166110369961631D+01
        xs( 11) = 0.1009818001256938D+02
        xs( 12) = 0.1103415571178576D+02
        xs( 13) = 0.1197759005486802D+02
        xs( 14) = 0.1293132501836247D+02
        xs( 15) = 0.1389633609085046D+02
        xs( 16) = 0.1487341399774964D+02
        xs( 17) = 0.1585797542674381D+02
        xs( 18) = 0.1687379464683016D+02
        xs( 19) = 0.1784459642990406D+02
        xs( 20) = 0.1982520289520841D+02
        xs( 21) = 0.2125429431194676D+02
        ws(  1) = 0.9290031151867777D+00
        ws(  2) = 0.9418392905137845D+00
        ws(  3) = 0.9431006568379442D+00
        ws(  4) = 0.9427298349129399D+00
        ws(  5) = 0.9411787332579598D+00
        ws(  6) = 0.9390677163890242D+00
        ws(  7) = 0.9364086295191848D+00
        ws(  8) = 0.9335011028618658D+00
        ws(  9) = 0.9315777414678952D+00
        ws( 10) = 0.9309212604860018D+00
        ws( 11) = 0.9333732763506627D+00
        ws( 12) = 0.9395987137479108D+00
        ws( 13) = 0.9479692081237427D+00
        ws( 14) = 0.9581828848602256D+00
        ws( 15) = 0.9751757838484322D+00
        ws( 16) = 0.9715709433442931D+00
        ws( 17) = 0.1034311298262026D+01
        ws( 18) = 0.8362871910791921D+00
        ws( 19) = 0.1505366789206412D+01
        ws( 20) = 0.1894487196631623D+01
        ws( 21) = 0.2282768942799921D+01
        endif
        if( idomain .eq.  331 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.2199114857512855D+02
        rk1r = 0.6283185307179586D+01
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =  21
        err = 0.8066451261417371D-13
        xs(  1) = 0.7239139651673469D+00
        xs(  2) = 0.1661048874512059D+01
        xs(  3) = 0.2603545832371935D+01
        xs(  4) = 0.3546502071908774D+01
        xs(  5) = 0.4488567171797456D+01
        xs(  6) = 0.5429141259891615D+01
        xs(  7) = 0.6367698506902835D+01
        xs(  8) = 0.7303574199855370D+01
        xs(  9) = 0.8236012941921702D+01
        xs( 10) = 0.9165674799619802D+01
        xs( 11) = 0.1009429390071918D+02
        xs( 12) = 0.1102283089635759D+02
        xs( 13) = 0.1195629282050817D+02
        xs( 14) = 0.1290070086358680D+02
        xs( 15) = 0.1385067609275716D+02
        xs( 16) = 0.1481899739466891D+02
        xs( 17) = 0.1580228046538790D+02
        xs( 18) = 0.1678704584917113D+02
        xs( 19) = 0.1779809646230124D+02
        xs( 20) = 0.1979457942410413D+02
        xs( 21) = 0.2117985855566407D+02
        ws(  1) = 0.9280611744607126D+00
        ws(  2) = 0.9413657742113647D+00
        ws(  3) = 0.9430127745508373D+00
        ws(  4) = 0.9427804974563558D+00
        ws(  5) = 0.9414054207001782D+00
        ws(  6) = 0.9397276979942381D+00
        ws(  7) = 0.9374359057425623D+00
        ws(  8) = 0.9340800171695695D+00
        ws(  9) = 0.9308021718296418D+00
        ws( 10) = 0.9286626598920849D+00
        ws( 11) = 0.9280704177060775D+00
        ws( 12) = 0.9297379582536907D+00
        ws( 13) = 0.9380710040653566D+00
        ws( 14) = 0.9490763899898297D+00
        ws( 15) = 0.9555716487504479D+00
        ws( 16) = 0.9775481487154473D+00
        ws( 17) = 0.1022991361517082D+01
        ws( 18) = 0.8217661938940048D+00
        ws( 19) = 0.1568835713232505D+01
        ws( 20) = 0.1941650236296425D+01
        ws( 21) = 0.1830476113076648D+01
        endif
        if( idomain .eq.  332 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.2199114857512855D+02
        rk1r = 0.9424777960769379D+01
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =  20
        err = 0.9778395041353299D-13
        xs(  1) = 0.7412054341373415D+00
        xs(  2) = 0.1702990493511280D+01
        xs(  3) = 0.2670448791532840D+01
        xs(  4) = 0.3640097176932746D+01
        xs(  5) = 0.4610868336757212D+01
        xs(  6) = 0.5582948644218418D+01
        xs(  7) = 0.6557416444836473D+01
        xs(  8) = 0.7533712713391384D+01
        xs(  9) = 0.8512481109588046D+01
        xs( 10) = 0.9494032569016145D+01
        xs( 11) = 0.1048004246404817D+02
        xs( 12) = 0.1146981509774196D+02
        xs( 13) = 0.1245968836356410D+02
        xs( 14) = 0.1346720212488166D+02
        xs( 15) = 0.1446115926796589D+02
        xs( 16) = 0.1547279497161613D+02
        xs( 17) = 0.1651663209406874D+02
        xs( 18) = 0.1745065550827952D+02
        xs( 19) = 0.1860733243527582D+02
        xs( 20) = 0.2067427440053831D+02
        ws(  1) = 0.9513202171848365D+00
        ws(  2) = 0.9657909315263575D+00
        ws(  3) = 0.9692568224701466D+00
        ws(  4) = 0.9698993051074182D+00
        ws(  5) = 0.9718007386928550D+00
        ws(  6) = 0.9729203749453812D+00
        ws(  7) = 0.9754674015423047D+00
        ws(  8) = 0.9776576402412342D+00
        ws(  9) = 0.9789715346601168D+00
        ws( 10) = 0.9846909999273196D+00
        ws( 11) = 0.9866208439197706D+00
        ws( 12) = 0.9906078520246590D+00
        ws( 13) = 0.9963937979397263D+00
        ws( 14) = 0.1003337574386414D+01
        ws( 15) = 0.1011521985166845D+01
        ws( 16) = 0.9806520755862322D+00
        ws( 17) = 0.1131021962229298D+01
        ws( 18) = 0.7962242638686515D+00
        ws( 19) = 0.1579182261354906D+01
        ws( 20) = 0.2846481823781834D+01
        endif
        if( idomain .eq.  333 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.2199114857512855D+02
        rk1r = 0.1256637061435917D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =  21
        err = 0.9955077950446852D-13
        xs(  1) = 0.7405670214138774D+00
        xs(  2) = 0.1698832658685525D+01
        xs(  3) = 0.2663316462354244D+01
        xs(  4) = 0.3628865646154940D+01
        xs(  5) = 0.4594917989010124D+01
        xs(  6) = 0.5561422583671974D+01
        xs(  7) = 0.6528523008655070D+01
        xs(  8) = 0.7496724254754238D+01
        xs(  9) = 0.8465574972151749D+01
        xs( 10) = 0.9436303635488883D+01
        xs( 11) = 0.1040941757250724D+02
        xs( 12) = 0.1138329825470729D+02
        xs( 13) = 0.1236114016453915D+02
        xs( 14) = 0.1334213694843746D+02
        xs( 15) = 0.1432268709858474D+02
        xs( 16) = 0.1530843492347172D+02
        xs( 17) = 0.1630308840837658D+02
        xs( 18) = 0.1728864569322095D+02
        xs( 19) = 0.1819456348177700D+02
        xs( 20) = 0.1950546940165243D+02
        xs( 21) = 0.2033014865854176D+02
        ws(  1) = 0.9486969829909550D+00
        ws(  2) = 0.9629546153489384D+00
        ws(  3) = 0.9650937716825593D+00
        ws(  4) = 0.9659542739377261D+00
        ws(  5) = 0.9659883175599777D+00
        ws(  6) = 0.9671347354078866D+00
        ws(  7) = 0.9677611118159331D+00
        ws(  8) = 0.9683439502276486D+00
        ws(  9) = 0.9695556349149844D+00
        ws( 10) = 0.9712096945968044D+00
        ws( 11) = 0.9738600612252998D+00
        ws( 12) = 0.9731738004006804D+00
        ws( 13) = 0.9813119480179894D+00
        ws( 14) = 0.9769793276790402D+00
        ws( 15) = 0.9866968313772428D+00
        ws( 16) = 0.9904102098740599D+00
        ws( 17) = 0.9396861368777630D+00
        ws( 18) = 0.1165413978366768D+01
        ws( 19) = 0.6949211378428913D+00
        ws( 20) = 0.1228525369445152D+01
        ws( 21) = 0.2056128841293142D+01
        endif
        if( idomain .eq.  334 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.2199114857512855D+02
        rk1r = 0.1570796326794897D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =  23
        err = 0.4022432374756185D-13
        xs(  1) = 0.7392646794105771D+00
        xs(  2) = 0.1696835602262367D+01
        xs(  3) = 0.2659763359428943D+01
        xs(  4) = 0.3623435257295181D+01
        xs(  5) = 0.4587079555887977D+01
        xs(  6) = 0.5550539728255915D+01
        xs(  7) = 0.6513889221425211D+01
        xs(  8) = 0.7477331137856904D+01
        xs(  9) = 0.8440973595418544D+01
        xs( 10) = 0.9405248733731074D+01
        xs( 11) = 0.1037051944994657D+02
        xs( 12) = 0.1133682995481853D+02
        xs( 13) = 0.1230474036204975D+02
        xs( 14) = 0.1327426416971607D+02
        xs( 15) = 0.1424748294505531D+02
        xs( 16) = 0.1522007549531332D+02
        xs( 17) = 0.1620180758482852D+02
        xs( 18) = 0.1719776425185486D+02
        xs( 19) = 0.1817287798982683D+02
        xs( 20) = 0.1921764657342458D+02
        xs( 21) = 0.2015569599871505D+02
        xs( 22) = 0.2113448717822179D+02
        xs( 23) = 0.2218825749737704D+02
        ws(  1) = 0.9488670446660917D+00
        ws(  2) = 0.9616444896785270D+00
        ws(  3) = 0.9632978763109351D+00
        ws(  4) = 0.9636521459082316D+00
        ws(  5) = 0.9635879736358779D+00
        ws(  6) = 0.9635526851482550D+00
        ws(  7) = 0.9635430803707381D+00
        ws(  8) = 0.9635940436841010D+00
        ws(  9) = 0.9638558084279610D+00
        ws( 10) = 0.9644336633424418D+00
        ws( 11) = 0.9654858385119320D+00
        ws( 12) = 0.9659814357762880D+00
        ws( 13) = 0.9693369310404524D+00
        ws( 14) = 0.9674312205356067D+00
        ws( 15) = 0.9748170651188155D+00
        ws( 16) = 0.9784268898314399D+00
        ws( 17) = 0.9727710096915059D+00
        ws( 18) = 0.1001953065404282D+01
        ws( 19) = 0.1018243572809464D+01
        ws( 20) = 0.9186932239993579D+00
        ws( 21) = 0.9952145037219766D+00
        ws( 22) = 0.1286370570166977D+01
        ws( 23) = 0.1240434331211719D+01
        endif
        if( idomain .eq.  335 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.2199114857512855D+02
        rk1r = 0.1884955592153876D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =  24
        err = 0.5896619553901969D-13
        xs(  1) = 0.7374425281029856D+00
        xs(  2) = 0.1692895610030097D+01
        xs(  3) = 0.2653634425220876D+01
        xs(  4) = 0.3615603815997351D+01
        xs(  5) = 0.4578015271561168D+01
        xs(  6) = 0.5540607746245539D+01
        xs(  7) = 0.6503251893586692D+01
        xs(  8) = 0.7466049636265233D+01
        xs(  9) = 0.8429511629604860D+01
        xs( 10) = 0.9393539337490470D+01
        xs( 11) = 0.1035830535511760D+02
        xs( 12) = 0.1132432804249450D+02
        xs( 13) = 0.1229265131215064D+02
        xs( 14) = 0.1326244041752269D+02
        xs( 15) = 0.1423208590969395D+02
        xs( 16) = 0.1521342397462294D+02
        xs( 17) = 0.1618484117302167D+02
        xs( 18) = 0.1716081262452931D+02
        xs( 19) = 0.1816224193312112D+02
        xs( 20) = 0.1914632682385686D+02
        xs( 21) = 0.2014393609685374D+02
        xs( 22) = 0.2114915747413354D+02
        xs( 23) = 0.2208164820800843D+02
        xs( 24) = 0.2326022665343857D+02
        ws(  1) = 0.9469882288452633D+00
        ws(  2) = 0.9595940938957787D+00
        ws(  3) = 0.9613837517064333D+00
        ws(  4) = 0.9619745765468209D+00
        ws(  5) = 0.9625311300863174D+00
        ws(  6) = 0.9628340294889924D+00
        ws(  7) = 0.9629955007007736D+00
        ws(  8) = 0.9632775586227166D+00
        ws(  9) = 0.9637448905129393D+00
        ws( 10) = 0.9640012496118643D+00
        ws( 11) = 0.9645442818372725D+00
        ws( 12) = 0.9675179225121640D+00
        ws( 13) = 0.9638708832238831D+00
        ws( 14) = 0.9780301566729623D+00
        ws( 15) = 0.9634944569788816D+00
        ws( 16) = 0.9744237406105154D+00
        ws( 17) = 0.9955048198673614D+00
        ws( 18) = 0.9572670090913108D+00
        ws( 19) = 0.9822534716971378D+00
        ws( 20) = 0.1074848620151485D+01
        ws( 21) = 0.9950143744191560D+00
        ws( 22) = 0.8492911142625104D+00
        ws( 23) = 0.6498424119016420D+00
        ws( 24) = 0.1972952183124030D+01
        endif
        if( idomain .eq.  336 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.2199114857512855D+02
        rk1r = 0.2199114857512855D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =  25
        err = 0.7049053435679241D-13
        xs(  1) = 0.7448884548423202D+00
        xs(  2) = 0.1710646984384565D+01
        xs(  3) = 0.2681319239689636D+01
        xs(  4) = 0.3652720813719324D+01
        xs(  5) = 0.4623898147609075D+01
        xs(  6) = 0.5594721431745350D+01
        xs(  7) = 0.6565185211096019D+01
        xs(  8) = 0.7535057496566828D+01
        xs(  9) = 0.8504586692556563D+01
        xs( 10) = 0.9474089985199390D+01
        xs( 11) = 0.1044372771789914D+02
        xs( 12) = 0.1141367329049129D+02
        xs( 13) = 0.1238348400468682D+02
        xs( 14) = 0.1335621258607208D+02
        xs( 15) = 0.1432720632459010D+02
        xs( 16) = 0.1530374630969598D+02
        xs( 17) = 0.1627958985319965D+02
        xs( 18) = 0.1725316459328879D+02
        xs( 19) = 0.1826029202883019D+02
        xs( 20) = 0.1921813091659534D+02
        xs( 21) = 0.2022058670241757D+02
        xs( 22) = 0.2122433656406882D+02
        xs( 23) = 0.2228176602915409D+02
        xs( 24) = 0.2323627816111850D+02
        xs( 25) = 0.2439847182660442D+02
        ws(  1) = 0.9571679008705294D+00
        ws(  2) = 0.9697214173948863D+00
        ws(  3) = 0.9712768680777089D+00
        ws(  4) = 0.9710835893100127D+00
        ws(  5) = 0.9710793772037367D+00
        ws(  6) = 0.9707344206566479D+00
        ws(  7) = 0.9704264155506325D+00
        ws(  8) = 0.9698338331967225D+00
        ws(  9) = 0.9692477743400627D+00
        ws( 10) = 0.9698365090608791D+00
        ws( 11) = 0.9687262928104684D+00
        ws( 12) = 0.9701207802510660D+00
        ws( 13) = 0.9708481046009605D+00
        ws( 14) = 0.9709242511106870D+00
        ws( 15) = 0.9723349370466489D+00
        ws( 16) = 0.9773730411301657D+00
        ws( 17) = 0.9808753958749798D+00
        ws( 18) = 0.9719474831563993D+00
        ws( 19) = 0.9872271519248974D+00
        ws( 20) = 0.1030225700165390D+01
        ws( 21) = 0.9656709039987660D+00
        ws( 22) = 0.8621033998504728D+00
        ws( 23) = 0.1068338266285687D+01
        ws( 24) = 0.8871611576219299D+00
        ws( 25) = 0.2150001992577400D+01
        endif
        if( idomain .eq.  337 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.2199114857512855D+02
        rk1r = 0.2513274122871834D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =  26
        err = 0.8565784703081264D-13
        xs(  1) = 0.7515551379075425D+00
        xs(  2) = 0.1724663580038687D+01
        xs(  3) = 0.2703432723249179D+01
        xs(  4) = 0.3682450007969230D+01
        xs(  5) = 0.4660985783050512D+01
        xs(  6) = 0.5638645631455945D+01
        xs(  7) = 0.6615294066943972D+01
        xs(  8) = 0.7591324848302823D+01
        xs(  9) = 0.8566185104479320D+01
        xs( 10) = 0.9540711129438916D+01
        xs( 11) = 0.1051352482307264D+02
        xs( 12) = 0.1148761989163767D+02
        xs( 13) = 0.1245878958741475D+02
        xs( 14) = 0.1343403387369331D+02
        xs( 15) = 0.1440327087827574D+02
        xs( 16) = 0.1537884355893733D+02
        xs( 17) = 0.1635652232120837D+02
        xs( 18) = 0.1732277745029955D+02
        xs( 19) = 0.1831401875720407D+02
        xs( 20) = 0.1927186043773904D+02
        xs( 21) = 0.2027338892978835D+02
        xs( 22) = 0.2125142250574436D+02
        xs( 23) = 0.2223425304789859D+02
        xs( 24) = 0.2315699401473908D+02
        xs( 25) = 0.2456511144431194D+02
        xs( 26) = 0.2560451429701828D+02
        ws(  1) = 0.9648505233731699D+00
        ws(  2) = 0.9775113077149653D+00
        ws(  3) = 0.9788260413098940D+00
        ws(  4) = 0.9790850638361815D+00
        ws(  5) = 0.9780531061300711D+00
        ws(  6) = 0.9774093049614264D+00
        ws(  7) = 0.9762067548739140D+00
        ws(  8) = 0.9755501557109524D+00
        ws(  9) = 0.9744850757274433D+00
        ws( 10) = 0.9737949087270875D+00
        ws( 11) = 0.9733250002393662D+00
        ws( 12) = 0.9729282943353590D+00
        ws( 13) = 0.9716267892937458D+00
        ws( 14) = 0.9738166558880864D+00
        ws( 15) = 0.9754309799210577D+00
        ws( 16) = 0.9680876728075436D+00
        ws( 17) = 0.9744575946292117D+00
        ws( 18) = 0.9885719403185836D+00
        ws( 19) = 0.9737603301058954D+00
        ws( 20) = 0.9568321032508970D+00
        ws( 21) = 0.1004267885927441D+01
        ws( 22) = 0.9528919657295719D+00
        ws( 23) = 0.1033709142877001D+01
        ws( 24) = 0.9319001057733043D+00
        ws( 25) = 0.1103200164121761D+01
        ws( 26) = 0.2253433307638524D+01
        endif
        if( idomain .eq.  338 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.2199114857512855D+02
        rk1r = 0.2827433388230814D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =  27
        err = 0.9415965092096320D-13
        xs(  1) = 0.7554692636982699D+00
        xs(  2) = 0.1734259455364795D+01
        xs(  3) = 0.2718249575701552D+01
        xs(  4) = 0.3702734302255233D+01
        xs(  5) = 0.4686855900188129D+01
        xs(  6) = 0.5670098488160263D+01
        xs(  7) = 0.6652666932854427D+01
        xs(  8) = 0.7633829212523289D+01
        xs(  9) = 0.8614364509470654D+01
        xs( 10) = 0.9592916994562467D+01
        xs( 11) = 0.1057156083253239D+02
        xs( 12) = 0.1154827727302899D+02
        xs( 13) = 0.1252493863677451D+02
        xs( 14) = 0.1349943811741401D+02
        xs( 15) = 0.1447636470958409D+02
        xs( 16) = 0.1545000381836754D+02
        xs( 17) = 0.1642446627656421D+02
        xs( 18) = 0.1740369581882476D+02
        xs( 19) = 0.1837171193457003D+02
        xs( 20) = 0.1936044538912651D+02
        xs( 21) = 0.2033446979771660D+02
        xs( 22) = 0.2131469514891887D+02
        xs( 23) = 0.2229698586255861D+02
        xs( 24) = 0.2329341947586816D+02
        xs( 25) = 0.2420641634231568D+02
        xs( 26) = 0.2531041602809408D+02
        xs( 27) = 0.2631132487583866D+02
        ws(  1) = 0.9703039903677422D+00
        ws(  2) = 0.9829412941098313D+00
        ws(  3) = 0.9844964418038678D+00
        ws(  4) = 0.9842391883061287D+00
        ws(  5) = 0.9838701304508150D+00
        ws(  6) = 0.9830128000016158D+00
        ws(  7) = 0.9819883238448482D+00
        ws(  8) = 0.9808477719462215D+00
        ws(  9) = 0.9791645690427694D+00
        ws( 10) = 0.9795198215962229D+00
        ws( 11) = 0.9758324863585192D+00
        ws( 12) = 0.9776154443145355D+00
        ws( 13) = 0.9762469921822285D+00
        ws( 14) = 0.9742308090167415D+00
        ws( 15) = 0.9750017285481332D+00
        ws( 16) = 0.9744889628291142D+00
        ws( 17) = 0.9755670576121065D+00
        ws( 18) = 0.9813382643669735D+00
        ws( 19) = 0.9744189084747664D+00
        ws( 20) = 0.9781272473264006D+00
        ws( 21) = 0.9626856219013284D+00
        ws( 22) = 0.9872172757263323D+00
        ws( 23) = 0.9484640758524665D+00
        ws( 24) = 0.9702064707341246D+00
        ws( 25) = 0.8653861984927331D+00
        ws( 26) = 0.1088210016002146D+01
        ws( 27) = 0.1758890444419841D+01
        endif
        if( idomain .eq.  339 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.2199114857512855D+02
        rk1r = 0.3141592653589793D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =  29
        err = 0.7916244697999385D-13
        xs(  1) = 0.7595990831382868D+00
        xs(  2) = 0.1745662904425221D+01
        xs(  3) = 0.2735784132572454D+01
        xs(  4) = 0.3726948685508256D+01
        xs(  5) = 0.4716684487617819D+01
        xs(  6) = 0.5705977480065365D+01
        xs(  7) = 0.6692847604899413D+01
        xs(  8) = 0.7679795538700104D+01
        xs(  9) = 0.8664003940625030D+01
        xs( 10) = 0.9647412509623736D+01
        xs( 11) = 0.1062878112722528D+02
        xs( 12) = 0.1160924062817436D+02
        xs( 13) = 0.1258768306469511D+02
        xs( 14) = 0.1356481541881492D+02
        xs( 15) = 0.1454075767825291D+02
        xs( 16) = 0.1551623688139875D+02
        xs( 17) = 0.1649106691632660D+02
        xs( 18) = 0.1746152234537963D+02
        xs( 19) = 0.1843957463304987D+02
        xs( 20) = 0.1940641742967231D+02
        xs( 21) = 0.2038196774921279D+02
        xs( 22) = 0.2135732669384339D+02
        xs( 23) = 0.2232977423580575D+02
        xs( 24) = 0.2330048618442315D+02
        xs( 25) = 0.2428855441224773D+02
        xs( 26) = 0.2525975898040829D+02
        xs( 27) = 0.2623618133016351D+02
        xs( 28) = 0.2722469020974047D+02
        xs( 29) = 0.2923434895560365D+02
        ws(  1) = 0.9762892302062178D+00
        ws(  2) = 0.9896588493097089D+00
        ws(  3) = 0.9910116961643382D+00
        ws(  4) = 0.9904397212925733D+00
        ws(  5) = 0.9895010409209452D+00
        ws(  6) = 0.9881815658494921D+00
        ws(  7) = 0.9870717541458780D+00
        ws(  8) = 0.9845814350428870D+00
        ws(  9) = 0.9855533700064844D+00
        ws( 10) = 0.9813469723864701D+00
        ws( 11) = 0.9804261093263791D+00
        ws( 12) = 0.9797924466229380D+00
        ws( 13) = 0.9783084721606735D+00
        ws( 14) = 0.9772279517532191D+00
        ws( 15) = 0.9743724290810813D+00
        ws( 16) = 0.9739955211289549D+00
        ws( 17) = 0.9759584687581329D+00
        ws( 18) = 0.9711528087666378D+00
        ws( 19) = 0.9767513713051780D+00
        ws( 20) = 0.9693244535723011D+00
        ws( 21) = 0.9757308813674008D+00
        ws( 22) = 0.9629579367169537D+00
        ws( 23) = 0.9678001452530877D+00
        ws( 24) = 0.9987183986332916D+00
        ws( 25) = 0.1002092487040325D+01
        ws( 26) = 0.9350578443553254D+00
        ws( 27) = 0.9668982089012628D+00
        ws( 28) = 0.1098580601461560D+01
        ws( 29) = 0.2788432905813068D+01
        endif
        if( idomain .eq.  340 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.2199114857512855D+02
        rk1r = 0.3455751918948772D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =  30
        err = 0.8547627228995774D-13
        xs(  1) = 0.7650526988819186D+00
        xs(  2) = 0.1759116641420510D+01
        xs(  3) = 0.2756923592080878D+01
        xs(  4) = 0.3755833188023334D+01
        xs(  5) = 0.4753511746885062D+01
        xs(  6) = 0.5750036842254639D+01
        xs(  7) = 0.6744719194258733D+01
        xs(  8) = 0.7738310805162276D+01
        xs(  9) = 0.8730422347567822D+01
        xs( 10) = 0.9720162780598145D+01
        xs( 11) = 0.1070946508912882D+02
        xs( 12) = 0.1169626416137647D+02
        xs( 13) = 0.1268067448877692D+02
        xs( 14) = 0.1366523623407716D+02
        xs( 15) = 0.1464574250931908D+02
        xs( 16) = 0.1562787384256919D+02
        xs( 17) = 0.1660746846546560D+02
        xs( 18) = 0.1758495860244121D+02
        xs( 19) = 0.1856421077417408D+02
        xs( 20) = 0.1953984908772598D+02
        xs( 21) = 0.2051469774625685D+02
        xs( 22) = 0.2149167465705586D+02
        xs( 23) = 0.2247692371862727D+02
        xs( 24) = 0.2344723835831242D+02
        xs( 25) = 0.2442927966972087D+02
        xs( 26) = 0.2541513808688617D+02
        xs( 27) = 0.2639894493083667D+02
        xs( 28) = 0.2723235215268894D+02
        xs( 29) = 0.2851440624527858D+02
        xs( 30) = 0.2954896528300121D+02
        ws(  1) = 0.9842733160078109D+00
        ws(  2) = 0.9974403933072578D+00
        ws(  3) = 0.9987643564916192D+00
        ws(  4) = 0.9981406390296637D+00
        ws(  5) = 0.9971375791909536D+00
        ws(  6) = 0.9958145553928672D+00
        ws(  7) = 0.9941006324171893D+00
        ws(  8) = 0.9915370846870025D+00
        ws(  9) = 0.9939310954989055D+00
        ws( 10) = 0.9872783448898695D+00
        ws( 11) = 0.9873565216692445D+00
        ws( 12) = 0.9863112246718302D+00
        ws( 13) = 0.9850191109651527D+00
        ws( 14) = 0.9850821743683960D+00
        ws( 15) = 0.9762840852735887D+00
        ws( 16) = 0.9818344263863741D+00
        ws( 17) = 0.9808754231091396D+00
        ws( 18) = 0.9782331345959813D+00
        ws( 19) = 0.9809731212294693D+00
        ws( 20) = 0.9733616460453819D+00
        ws( 21) = 0.9735782409168678D+00
        ws( 22) = 0.9613376201260382D+00
        ws( 23) = 0.9949343465555215D+00
        ws( 24) = 0.9662828688593949D+00
        ws( 25) = 0.1022023061822076D+01
        ws( 26) = 0.9413517921509225D+00
        ws( 27) = 0.1000305568325596D+01
        ws( 28) = 0.7602656021744671D+00
        ws( 29) = 0.7575427218735551D+00
        ws( 30) = 0.2230239191867085D+01
        endif
        if( idomain .eq.  341 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.2199114857512855D+02
        rk1r = 0.3769911184307752D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =  34
        err = 0.6805854906947594D-13
        xs(  1) = 0.5562330918684903D+00
        xs(  2) = 0.1403150495595616D+01
        xs(  3) = 0.2332083700640525D+01
        xs(  4) = 0.3293882201243401D+01
        xs(  5) = 0.4264807280709077D+01
        xs(  6) = 0.5242387840710692D+01
        xs(  7) = 0.6221051612596589D+01
        xs(  8) = 0.7200501092338703D+01
        xs(  9) = 0.8179964551026108D+01
        xs( 10) = 0.9157585601610034D+01
        xs( 11) = 0.1013557632752241D+02
        xs( 12) = 0.1111100630807835D+02
        xs( 13) = 0.1208519457388802D+02
        xs( 14) = 0.1305805095498964D+02
        xs( 15) = 0.1402855856768580D+02
        xs( 16) = 0.1499804759671510D+02
        xs( 17) = 0.1596579851550377D+02
        xs( 18) = 0.1693108081795975D+02
        xs( 19) = 0.1789580824717674D+02
        xs( 20) = 0.1885846683982043D+02
        xs( 21) = 0.1981984217883905D+02
        xs( 22) = 0.2077942500311521D+02
        xs( 23) = 0.2173910151411563D+02
        xs( 24) = 0.2269917618446111D+02
        xs( 25) = 0.2365083890697500D+02
        xs( 26) = 0.2461069892810897D+02
        xs( 27) = 0.2556740291678513D+02
        xs( 28) = 0.2652730960128951D+02
        xs( 29) = 0.2744806772680399D+02
        xs( 30) = 0.2843885054945967D+02
        xs( 31) = 0.2931878955227190D+02
        xs( 32) = 0.3030199016902415D+02
        xs( 33) = 0.3123084580769058D+02
        xs( 34) = 0.3269430474720363D+02
        ws(  1) = 0.7710405935045994D+00
        ws(  2) = 0.9006353789196225D+00
        ws(  3) = 0.9510141960208967D+00
        ws(  4) = 0.9668753125291366D+00
        ws(  5) = 0.9767285884097907D+00
        ws(  6) = 0.9770252965076563D+00
        ws(  7) = 0.9794563524291505D+00
        ws(  8) = 0.9796725847792309D+00
        ws(  9) = 0.9791182728146421D+00
        ws( 10) = 0.9775108930324031D+00
        ws( 11) = 0.9763173457812649D+00
        ws( 12) = 0.9745848236687017D+00
        ws( 13) = 0.9740129841524054D+00
        ws( 14) = 0.9725813729160190D+00
        ws( 15) = 0.9689190033005965D+00
        ws( 16) = 0.9693094782143064D+00
        ws( 17) = 0.9664163201513855D+00
        ws( 18) = 0.9656904551681708D+00
        ws( 19) = 0.9602970790275170D+00
        ws( 20) = 0.9668356954496033D+00
        ws( 21) = 0.9595717812572485D+00
        ws( 22) = 0.9581508694503235D+00
        ws( 23) = 0.9578067703489797D+00
        ws( 24) = 0.9543573103413001D+00
        ws( 25) = 0.9628977040412723D+00
        ws( 26) = 0.9638692518570603D+00
        ws( 27) = 0.9541493406217679D+00
        ws( 28) = 0.9472640240479721D+00
        ws( 29) = 0.9361946615350314D+00
        ws( 30) = 0.8848695841593806D+00
        ws( 31) = 0.9215692870620708D+00
        ws( 32) = 0.1100371023442223D+01
        ws( 33) = 0.6835247922242625D+00
        ws( 34) = 0.2223378535986098D+01
        endif
        if( idomain .eq.  342 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.2199114857512855D+02
        rk1r = 0.4084070449666731D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =  35
        err = 0.5374967473375501D-13
        xs(  1) = 0.7607220603538059D+00
        xs(  2) = 0.1751474481699120D+01
        xs(  3) = 0.2744849072822042D+01
        xs(  4) = 0.3739890122612974D+01
        xs(  5) = 0.4733160703647284D+01
        xs(  6) = 0.5726167719695396D+01
        xs(  7) = 0.6717615666176158D+01
        xs(  8) = 0.7707070860741406D+01
        xs(  9) = 0.8695700794487751D+01
        xs( 10) = 0.9682058512637756D+01
        xs( 11) = 0.1066680502037788D+02
        xs( 12) = 0.1164952819937393D+02
        xs( 13) = 0.1262971462337798D+02
        xs( 14) = 0.1360888861483609D+02
        xs( 15) = 0.1458466759653848D+02
        xs( 16) = 0.1555987013600859D+02
        xs( 17) = 0.1653228945888887D+02
        xs( 18) = 0.1750294083893363D+02
        xs( 19) = 0.1847263743063180D+02
        xs( 20) = 0.1943814080134384D+02
        xs( 21) = 0.2040309600157888D+02
        xs( 22) = 0.2136786115095167D+02
        xs( 23) = 0.2233188539686984D+02
        xs( 24) = 0.2329142751530931D+02
        xs( 25) = 0.2425204797721814D+02
        xs( 26) = 0.2520856380608641D+02
        xs( 27) = 0.2616518310880724D+02
        xs( 28) = 0.2711981366267213D+02
        xs( 29) = 0.2810083078165149D+02
        xs( 30) = 0.2904775291629648D+02
        xs( 31) = 0.2999316774608103D+02
        xs( 32) = 0.3092952019036799D+02
        xs( 33) = 0.3191996179367351D+02
        xs( 34) = 0.3284280636563201D+02
        xs( 35) = 0.3404613419381498D+02
        ws(  1) = 0.9804325780260595D+00
        ws(  2) = 0.9936839357684919D+00
        ws(  3) = 0.9934764952369191D+00
        ws(  4) = 0.9955172760327461D+00
        ws(  5) = 0.9923779769769189D+00
        ws(  6) = 0.9923228098337316D+00
        ws(  7) = 0.9906273422423495D+00
        ws(  8) = 0.9891810101942091D+00
        ws(  9) = 0.9877206406463489D+00
        ws( 10) = 0.9846067198809586D+00
        ws( 11) = 0.9835486615520826D+00
        ws( 12) = 0.9820485848430355D+00
        ws( 13) = 0.9802574656975737D+00
        ws( 14) = 0.9775962661941671D+00
        ws( 15) = 0.9755639971377321D+00
        ws( 16) = 0.9737489185586146D+00
        ws( 17) = 0.9715784052025910D+00
        ws( 18) = 0.9689750778927980D+00
        ws( 19) = 0.9695077297389875D+00
        ws( 20) = 0.9665337300424194D+00
        ws( 21) = 0.9637147057328003D+00
        ws( 22) = 0.9599832125220144D+00
        ws( 23) = 0.9663396650283148D+00
        ws( 24) = 0.9532538692116520D+00
        ws( 25) = 0.9717265300275770D+00
        ws( 26) = 0.9603882021112204D+00
        ws( 27) = 0.9586716212220006D+00
        ws( 28) = 0.9567090126255114D+00
        ws( 29) = 0.9325093246079676D+00
        ws( 30) = 0.9099792910868312D+00
        ws( 31) = 0.9543601608280713D+00
        ws( 32) = 0.9420579230921114D+00
        ws( 33) = 0.7719924927898345D+00
        ws( 34) = 0.1232719823554085D+01
        ws( 35) = 0.7615513634630180D+00
        endif
        if( idomain .eq.  343 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.2199114857512855D+02
        rk1r = 0.4398229715025710D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =  37
        err = 0.5934863920563682D-13
        xs(  1) = 0.7654927113782408D+00
        xs(  2) = 0.1758271396668485D+01
        xs(  3) = 0.2755698650383965D+01
        xs(  4) = 0.3754114811591906D+01
        xs(  5) = 0.4751457052686886D+01
        xs(  6) = 0.5748665598406494D+01
        xs(  7) = 0.6743960158572600D+01
        xs(  8) = 0.7738142855853873D+01
        xs(  9) = 0.8731086109273274D+01
        xs( 10) = 0.9721825343966232D+01
        xs( 11) = 0.1071117583565220D+02
        xs( 12) = 0.1169861815639849D+02
        xs( 13) = 0.1268364691686333D+02
        xs( 14) = 0.1366768720442827D+02
        xs( 15) = 0.1464848544302565D+02
        xs( 16) = 0.1562866065758144D+02
        xs( 17) = 0.1660581359446828D+02
        xs( 18) = 0.1758120076027782D+02
        xs( 19) = 0.1855507397916039D+02
        xs( 20) = 0.1952613123273300D+02
        xs( 21) = 0.2049567941040714D+02
        xs( 22) = 0.2146490798825463D+02
        xs( 23) = 0.2243162047775005D+02
        xs( 24) = 0.2339764026740096D+02
        xs( 25) = 0.2435773057820725D+02
        xs( 26) = 0.2532199591179647D+02
        xs( 27) = 0.2628309414453480D+02
        xs( 28) = 0.2724210286939553D+02
        xs( 29) = 0.2821061276873146D+02
        xs( 30) = 0.2917717235072295D+02
        xs( 31) = 0.3012058374960028D+02
        xs( 32) = 0.3107726109351003D+02
        xs( 33) = 0.3204105480459028D+02
        xs( 34) = 0.3299396989667724D+02
        xs( 35) = 0.3397705717169144D+02
        xs( 36) = 0.3510050157687528D+02
        xs( 37) = 0.3624827984096856D+02
        ws(  1) = 0.9861226713469062D+00
        ws(  2) = 0.9935894457723077D+00
        ws(  3) = 0.1000734340080109D+01
        ws(  4) = 0.9961435569063619D+00
        ws(  5) = 0.9982963041031319D+00
        ws(  6) = 0.9962637305109395D+00
        ws(  7) = 0.9942905610815007D+00
        ws(  8) = 0.9939942752451654D+00
        ws(  9) = 0.9917866895826329D+00
        ws( 10) = 0.9898803265690038D+00
        ws( 11) = 0.9885292744700758D+00
        ws( 12) = 0.9864295461018306D+00
        ws( 13) = 0.9846952802914131D+00
        ws( 14) = 0.9816146634959269D+00
        ws( 15) = 0.9806903534001817D+00
        ws( 16) = 0.9786849179927104D+00
        ws( 17) = 0.9763605748413882D+00
        ws( 18) = 0.9745660363865986D+00
        ws( 19) = 0.9738544034636457D+00
        ws( 20) = 0.9705541061298237D+00
        ws( 21) = 0.9675806824885009D+00
        ws( 22) = 0.9651866355904810D+00
        ws( 23) = 0.9687087405228365D+00
        ws( 24) = 0.9587943072461952D+00
        ws( 25) = 0.9691017431959816D+00
        ws( 26) = 0.9619900812962340D+00
        ws( 27) = 0.9610119184219238D+00
        ws( 28) = 0.9538895427252293D+00
        ws( 29) = 0.9599815090066188D+00
        ws( 30) = 0.9300765040791990D+00
        ws( 31) = 0.9549095354672889D+00
        ws( 32) = 0.9669500828991288D+00
        ws( 33) = 0.1018490670334084D+01
        ws( 34) = 0.6894198122575559D+00
        ws( 35) = 0.1049330497162916D+01
        ws( 36) = 0.7661705407730379D+00
        ws( 37) = 0.1585207738704352D+01
        endif
        if( idomain .eq.  344 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.2199114857512855D+02
        rk1r = 0.4712388980384689D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =  38
        err = 0.5189860071919917D-13
        xs(  1) = 0.7702105002787966D+00
        xs(  2) = 0.1766273709517037D+01
        xs(  3) = 0.2769692105990835D+01
        xs(  4) = 0.3772245137065725D+01
        xs(  5) = 0.4775315895561272D+01
        xs(  6) = 0.5776742092628036D+01
        xs(  7) = 0.6777413419225425D+01
        xs(  8) = 0.7776202320562747D+01
        xs(  9) = 0.8774433410869737D+01
        xs( 10) = 0.9769922195524011D+01
        xs( 11) = 0.1076440418919166D+02
        xs( 12) = 0.1175696295879245D+02
        xs( 13) = 0.1274692246404033D+02
        xs( 14) = 0.1373569845449101D+02
        xs( 15) = 0.1472201664338610D+02
        xs( 16) = 0.1570666747424085D+02
        xs( 17) = 0.1668870042145029D+02
        xs( 18) = 0.1766889035788879D+02
        xs( 19) = 0.1864807744274126D+02
        xs( 20) = 0.1962344794825884D+02
        xs( 21) = 0.2059731912074131D+02
        xs( 22) = 0.2157085947335079D+02
        xs( 23) = 0.2254126621277015D+02
        xs( 24) = 0.2351113493288347D+02
        xs( 25) = 0.2447614759641910D+02
        xs( 26) = 0.2544334935321480D+02
        xs( 27) = 0.2640677197512802D+02
        xs( 28) = 0.2736637841947358D+02
        xs( 29) = 0.2833490583343308D+02
        xs( 30) = 0.2929962398122519D+02
        xs( 31) = 0.3025546134040141D+02
        xs( 32) = 0.3121867966833412D+02
        xs( 33) = 0.3217086332532846D+02
        xs( 34) = 0.3312102845443045D+02
        xs( 35) = 0.3407559203586928D+02
        xs( 36) = 0.3508368882833261D+02
        xs( 37) = 0.3616978997800676D+02
        xs( 38) = 0.3719320225250535D+02
        ws(  1) = 0.9857567674651684D+00
        ws(  2) = 0.1004059526642584D+01
        ws(  3) = 0.1000975618851176D+01
        ws(  4) = 0.1003553287466786D+01
        ws(  5) = 0.1002865222540721D+01
        ws(  6) = 0.1000837257310163D+01
        ws(  7) = 0.9996926428625011D+00
        ws(  8) = 0.9985266937435772D+00
        ws(  9) = 0.9967893410003223D+00
        ws( 10) = 0.9947836205046638D+00
        ws( 11) = 0.9938584580471064D+00
        ws( 12) = 0.9912415052323931D+00
        ws( 13) = 0.9897090283240197D+00
        ws( 14) = 0.9870483301612482D+00
        ws( 15) = 0.9854854091484776D+00
        ws( 16) = 0.9832070966751806D+00
        ws( 17) = 0.9818444980284456D+00
        ws( 18) = 0.9783422042932687D+00
        ws( 19) = 0.9798713955339819D+00
        ws( 20) = 0.9745880628368458D+00
        ws( 21) = 0.9715870218503208D+00
        ws( 22) = 0.9700780867106586D+00
        ws( 23) = 0.9699735254533772D+00
        ws( 24) = 0.9690071514625972D+00
        ws( 25) = 0.9692846011494104D+00
        ws( 26) = 0.9658078314181815D+00
        ws( 27) = 0.9643636435250423D+00
        ws( 28) = 0.9480564840005701D+00
        ws( 29) = 0.9695486985474322D+00
        ws( 30) = 0.9455802352286399D+00
        ws( 31) = 0.9619614759516367D+00
        ws( 32) = 0.9669086952109799D+00
        ws( 33) = 0.9564522058253747D+00
        ws( 34) = 0.8981537117186281D+00
        ws( 35) = 0.8248653657239340D+00
        ws( 36) = 0.9853571682865753D+00
        ws( 37) = 0.7489861010707836D+00
        ws( 38) = 0.1511801467526757D+01
        endif
        if( idomain .eq.  345 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.2199114857512855D+02
        rk1r = 0.5026548245743669D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =  41
        err = 0.7594694709610722D-13
        xs(  1) = 0.7559541935628100D+00
        xs(  2) = 0.1731200654257863D+01
        xs(  3) = 0.2713777188413756D+01
        xs(  4) = 0.3696485070300646D+01
        xs(  5) = 0.4680785186956985D+01
        xs(  6) = 0.5664314376896983D+01
        xs(  7) = 0.6648009492492532D+01
        xs(  8) = 0.7631391604202106D+01
        xs(  9) = 0.8613885269449453D+01
        xs( 10) = 0.9596059555701215D+01
        xs( 11) = 0.1057731467965047D+02
        xs( 12) = 0.1155735165348180D+02
        xs( 13) = 0.1253653374293839D+02
        xs( 14) = 0.1351435461764232D+02
        xs( 15) = 0.1449107035545783D+02
        xs( 16) = 0.1546621551120034D+02
        xs( 17) = 0.1643973699939937D+02
        xs( 18) = 0.1741167980063142D+02
        xs( 19) = 0.1838239894338687D+02
        xs( 20) = 0.1935064467407404D+02
        xs( 21) = 0.2031780223980460D+02
        xs( 22) = 0.2128322670161591D+02
        xs( 23) = 0.2224644021120801D+02
        xs( 24) = 0.2320846586857579D+02
        xs( 25) = 0.2416791648448671D+02
        xs( 26) = 0.2512680875615285D+02
        xs( 27) = 0.2608319700930175D+02
        xs( 28) = 0.2703811891952251D+02
        xs( 29) = 0.2799088711919452D+02
        xs( 30) = 0.2894481506671157D+02
        xs( 31) = 0.2989384209382841D+02
        xs( 32) = 0.3084562023174417D+02
        xs( 33) = 0.3179130135010733D+02
        xs( 34) = 0.3274386834913524D+02
        xs( 35) = 0.3368570254110916D+02
        xs( 36) = 0.3462771797084587D+02
        xs( 37) = 0.3559025771234105D+02
        xs( 38) = 0.3645346918160794D+02
        xs( 39) = 0.3759076543067550D+02
        xs( 40) = 0.3838288746345180D+02
        xs( 41) = 0.4046635433039790D+02
        ws(  1) = 0.9747799075795387D+00
        ws(  2) = 0.9730590090601642D+00
        ws(  3) = 0.9869532388135842D+00
        ws(  4) = 0.9820834838485321D+00
        ws(  5) = 0.9845052423146428D+00
        ws(  6) = 0.9836330256465591D+00
        ws(  7) = 0.9835479860159712D+00
        ws(  8) = 0.9829327544044730D+00
        ws(  9) = 0.9821994057976950D+00
        ws( 10) = 0.9815447152914474D+00
        ws( 11) = 0.9809336190931063D+00
        ws( 12) = 0.9798800269713202D+00
        ws( 13) = 0.9787500342354326D+00
        ws( 14) = 0.9769123063466907D+00
        ws( 15) = 0.9756505030350023D+00
        ws( 16) = 0.9741736559145538D+00
        ws( 17) = 0.9731147850083642D+00
        ws( 18) = 0.9711569610778777D+00
        ws( 19) = 0.9698881614016874D+00
        ws( 20) = 0.9682367124006471D+00
        ws( 21) = 0.9658240861212132D+00
        ws( 22) = 0.9634531810605369D+00
        ws( 23) = 0.9622180763973901D+00
        ws( 24) = 0.9611798193647747D+00
        ws( 25) = 0.9605657824248218D+00
        ws( 26) = 0.9576001779288539D+00
        ws( 27) = 0.9552124921427090D+00
        ws( 28) = 0.9554282668505799D+00
        ws( 29) = 0.9514025280921599D+00
        ws( 30) = 0.9456029570394796D+00
        ws( 31) = 0.9533959566478322D+00
        ws( 32) = 0.9528535385476192D+00
        ws( 33) = 0.9555499465117092D+00
        ws( 34) = 0.9277219635176860D+00
        ws( 35) = 0.9711367108112618D+00
        ws( 36) = 0.8981137455843767D+00
        ws( 37) = 0.9234231009002009D+00
        ws( 38) = 0.9278403855850375D+00
        ws( 39) = 0.7929711308619802D+00
        ws( 40) = 0.1373806001670202D+01
        ws( 41) = 0.1720559335060634D+01
        endif
        if( idomain .eq.  346 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.2513274122871834D+02
        rk1r = 0.2000000000000000D-01
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =  17
        err = 0.2190552766017589D-13
        xs(  1) = 0.7462366751194819D+00
        xs(  2) = 0.1752413263360951D+01
        xs(  3) = 0.2754750854261152D+01
        xs(  4) = 0.3758087726982952D+01
        xs(  5) = 0.4763312556049040D+01
        xs(  6) = 0.5770387232776409D+01
        xs(  7) = 0.6780232558532585D+01
        xs(  8) = 0.7792750673836039D+01
        xs(  9) = 0.8808869736341109D+01
        xs( 10) = 0.9828482350768459D+01
        xs( 11) = 0.1085237964373015D+02
        xs( 12) = 0.1188064807146382D+02
        xs( 13) = 0.1291327976985317D+02
        xs( 14) = 0.1395147749640692D+02
        xs( 15) = 0.1499042972253103D+02
        xs( 16) = 0.1604246540641351D+02
        xs( 17) = 0.1700320036598414D+02
        ws(  1) = 0.1022217578451502D+01
        ws(  2) = 0.1000242043459257D+01
        ws(  3) = 0.1003668165732666D+01
        ws(  4) = 0.1004628670942015D+01
        ws(  5) = 0.1006966540181199D+01
        ws(  6) = 0.1009211511427527D+01
        ws(  7) = 0.1012124273327041D+01
        ws(  8) = 0.1015650772573534D+01
        ws(  9) = 0.1019281618978784D+01
        ws( 10) = 0.1024433123059339D+01
        ws( 11) = 0.1028889214275865D+01
        ws( 12) = 0.1036876503899384D+01
        ws( 13) = 0.1042812844446307D+01
        ws( 14) = 0.1059006770277367D+01
        ws( 15) = 0.1068218221161025D+01
        ws( 16) = 0.1163376605067930D+01
        ws( 17) = 0.1168932944058414D+01
        endif
        if( idomain .eq.  347 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.2513274122871834D+02
        rk1r = 0.4000000000000000D-01
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =  17
        err = 0.2194379238245869D-13
        xs(  1) = 0.7457992383391243D+00
        xs(  2) = 0.1752251199990472D+01
        xs(  3) = 0.2754633398202097D+01
        xs(  4) = 0.3757978020528395D+01
        xs(  5) = 0.4763207248261298D+01
        xs(  6) = 0.5770274981769397D+01
        xs(  7) = 0.6780114472194373D+01
        xs(  8) = 0.7792621143071404D+01
        xs(  9) = 0.8808727248042597D+01
        xs( 10) = 0.9828326200072334D+01
        xs( 11) = 0.1085220283797103D+02
        xs( 12) = 0.1188045523868985D+02
        xs( 13) = 0.1291305646359648D+02
        xs( 14) = 0.1395122979124886D+02
        xs( 15) = 0.1499013904351842D+02
        xs( 16) = 0.1604211621981195D+02
        xs( 17) = 0.1700282381410852D+02
        ws(  1) = 0.1023007199377930D+01
        ws(  2) = 0.1000229185835855D+01
        ws(  3) = 0.1003675010200103D+01
        ws(  4) = 0.1004618458999171D+01
        ws(  5) = 0.1006955470375084D+01
        ws(  6) = 0.1009200121512476D+01
        ws(  7) = 0.1012104972958183D+01
        ws(  8) = 0.1015637024651782D+01
        ws(  9) = 0.1019256455867990D+01
        ws( 10) = 0.1024413324093584D+01
        ws( 11) = 0.1028857607184999D+01
        ws( 12) = 0.1036842696932168D+01
        ws( 13) = 0.1042776029398067D+01
        ws( 14) = 0.1058932670161321D+01
        ws( 15) = 0.1068174574919441D+01
        ws( 16) = 0.1163098239936716D+01
        ws( 17) = 0.1168906196844932D+01
        endif
        if( idomain .eq.  348 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.2513274122871834D+02
        rk1r = 0.1000000000000000D+00
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =  17
        err = 0.2216116898334593D-13
        xs(  1) = 0.7434427671923476D+00
        xs(  2) = 0.1751392684263129D+01
        xs(  3) = 0.2754021043955169D+01
        xs(  4) = 0.3757415873334489D+01
        xs(  5) = 0.4762675385680688D+01
        xs(  6) = 0.5769713604408296D+01
        xs(  7) = 0.6779527132817279D+01
        xs(  8) = 0.7791980033394178D+01
        xs(  9) = 0.8808022258554702D+01
        xs( 10) = 0.9827553278706958D+01
        xs( 11) = 0.1085132563160871D+02
        xs( 12) = 0.1187949190111759D+02
        xs( 13) = 0.1291193626342875D+02
        xs( 14) = 0.1394997721978459D+02
        xs( 15) = 0.1498865462528395D+02
        xs( 16) = 0.1604027288665014D+02
        xs( 17) = 0.1700086930268970D+02
        ws(  1) = 0.1027325589838133D+01
        ws(  2) = 0.1000177389740667D+01
        ws(  3) = 0.1003716791696753D+01
        ws(  4) = 0.1004572165606288D+01
        ws(  5) = 0.1006901589706777D+01
        ws(  6) = 0.1009146345753015D+01
        ws(  7) = 0.1012009849930533D+01
        ws(  8) = 0.1015568026332140D+01
        ws(  9) = 0.1019128061372688D+01
        ws( 10) = 0.1024309020273317D+01
        ws( 11) = 0.1028697252416803D+01
        ws( 12) = 0.1036657879937234D+01
        ws( 13) = 0.1042579287842138D+01
        ws( 14) = 0.1058535281141233D+01
        ws( 15) = 0.1067928136602137D+01
        ws( 16) = 0.1161438621860983D+01
        ws( 17) = 0.1168375344602143D+01
        endif
        if( idomain .eq.  349 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.2513274122871834D+02
        rk1r = 0.2000000000000000D+00
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =  18
        err = 0.1101314314781265D-13
        xs(  1) = 0.7634744356478926D+00
        xs(  2) = 0.1752496444614169D+01
        xs(  3) = 0.2748309148403800D+01
        xs(  4) = 0.3746600775437068D+01
        xs(  5) = 0.4746969398052684D+01
        xs(  6) = 0.5749582032958903D+01
        xs(  7) = 0.6754713017035976D+01
        xs(  8) = 0.7762747471189544D+01
        xs(  9) = 0.8773997593560374D+01
        xs( 10) = 0.9788880519414581D+01
        xs( 11) = 0.1080768212861340D+02
        xs( 12) = 0.1183077166624929D+02
        xs( 13) = 0.1285842812718008D+02
        xs( 14) = 0.1389035916405963D+02
        xs( 15) = 0.1492910956060943D+02
        xs( 16) = 0.1595893899447929D+02
        xs( 17) = 0.1704073164808750D+02
        xs( 18) = 0.1797029026607183D+02
        ws(  1) = 0.9812980888406815D+00
        ws(  2) = 0.9950816111482689D+00
        ws(  3) = 0.9978938267140258D+00
        ws(  4) = 0.9999357752073857D+00
        ws(  5) = 0.1001981568480533D+01
        ws(  6) = 0.1004395858988775D+01
        ws(  7) = 0.1007140759678752D+01
        ws(  8) = 0.1010321545805272D+01
        ws(  9) = 0.1013947017065523D+01
        ws( 10) = 0.1017995447700131D+01
        ws( 11) = 0.1022708881938260D+01
        ws( 12) = 0.1027815122492655D+01
        ws( 13) = 0.1034402922107024D+01
        ws( 14) = 0.1040481206472766D+01
        ws( 15) = 0.1056031898160648D+01
        ws( 16) = 0.1054079200320685D+01
        ws( 17) = 0.1116416859073202D+01
        ws( 18) = 0.1355991698609735D+01
        endif
        if( idomain .eq.  350 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.2513274122871834D+02
        rk1r = 0.4000000000000000D+00
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =  18
        err = 0.1123702765385487D-13
        xs(  1) = 0.7637934344477915D+00
        xs(  2) = 0.1753346369119150D+01
        xs(  3) = 0.2749657826045977D+01
        xs(  4) = 0.3748436665246957D+01
        xs(  5) = 0.4749280396244412D+01
        xs(  6) = 0.5752348950742787D+01
        xs(  7) = 0.6757918183946128D+01
        xs(  8) = 0.7766365059045746D+01
        xs(  9) = 0.8778003219839800D+01
        xs( 10) = 0.9793234403030665D+01
        xs( 11) = 0.1081234482782419D+02
        xs( 12) = 0.1183568838370905D+02
        xs( 13) = 0.1286352772833887D+02
        xs( 14) = 0.1389556046600057D+02
        xs( 15) = 0.1493423526473716D+02
        xs( 16) = 0.1596387482279007D+02
        xs( 17) = 0.1704438724483340D+02
        xs( 18) = 0.1797268318622808D+02
        ws(  1) = 0.9819534264586415D+00
        ws(  2) = 0.9956055774649410D+00
        ws(  3) = 0.9984110484822042D+00
        ws(  4) = 0.1000427502216919D+01
        ws(  5) = 0.1002464162988089D+01
        ws(  6) = 0.1004859259357316D+01
        ws(  7) = 0.1007585040234187D+01
        ws(  8) = 0.1010740656696700D+01
        ws(  9) = 0.1014337545744883D+01
        ws( 10) = 0.1018364830124369D+01
        ws( 11) = 0.1023031429677491D+01
        ws( 12) = 0.1028116464845110D+01
        ws( 13) = 0.1034616477169024D+01
        ws( 14) = 0.1040661915456466D+01
        ws( 15) = 0.1056098718733821D+01
        ws( 16) = 0.1053698866151353D+01
        ws( 17) = 0.1115981823028511D+01
        ws( 18) = 0.1341999942778694D+01
        endif
        if( idomain .eq.  351 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.2513274122871834D+02
        rk1r = 0.1000000000000000D+01
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =  18
        err = 0.1297572621713705D-13
        xs(  1) = 0.7679668301731237D+00
        xs(  2) = 0.1762640376250531D+01
        xs(  3) = 0.2764179434861055D+01
        xs(  4) = 0.3768154709494719D+01
        xs(  5) = 0.4774150409960768D+01
        xs(  6) = 0.5782255083648137D+01
        xs(  7) = 0.6792770673349583D+01
        xs(  8) = 0.7805979588942658D+01
        xs(  9) = 0.8822223873685951D+01
        xs( 10) = 0.9841736857330449D+01
        xs( 11) = 0.1086481213447392D+02
        xs( 12) = 0.1189158412679539D+02
        xs( 13) = 0.1292217353142709D+02
        xs( 14) = 0.1395601291804894D+02
        xs( 15) = 0.1499456525924833D+02
        xs( 16) = 0.1602251028934331D+02
        xs( 17) = 0.1709109874215030D+02
        xs( 18) = 0.1800518727211079D+02
        ws(  1) = 0.9878088024278753D+00
        ws(  2) = 0.1000992481881212D+01
        ws(  3) = 0.1003869806754201D+01
        ws(  4) = 0.1005696032861288D+01
        ws(  5) = 0.1007725100452446D+01
        ws(  6) = 0.1009988505015836D+01
        ws(  7) = 0.1012614399103736D+01
        ws(  8) = 0.1015600854122394D+01
        ws(  9) = 0.1018996529390831D+01
        ws( 10) = 0.1022859339148306D+01
        ws( 11) = 0.1027115409578788D+01
        ws( 12) = 0.1031980493718186D+01
        ws( 13) = 0.1037500881099281D+01
        ws( 14) = 0.1043005549323068D+01
        ws( 15) = 0.1056757290517613D+01
        ws( 16) = 0.1046985779106224D+01
        ws( 17) = 0.1110278426931815D+01
        ws( 18) = 0.1207638771749301D+01
        endif
        if( idomain .eq.  352 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.2513274122871834D+02
        rk1r = 0.1570796326794897D+01
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =  18
        err = 0.1803396199442065D-13
        xs(  1) = 0.7521261685791472D+00
        xs(  2) = 0.1733321479161292D+01
        xs(  3) = 0.2719333454119948D+01
        xs(  4) = 0.3708056987852981D+01
        xs(  5) = 0.4698897414814180D+01
        xs(  6) = 0.5692178183063478D+01
        xs(  7) = 0.6688202927176702D+01
        xs(  8) = 0.7687449426318314D+01
        xs(  9) = 0.8690298680814035D+01
        xs( 10) = 0.9696864670557151D+01
        xs( 11) = 0.1070791024512878D+02
        xs( 12) = 0.1172331414492209D+02
        xs( 13) = 0.1274362457756665D+02
        xs( 14) = 0.1376859612451553D+02
        xs( 15) = 0.1479929781211068D+02
        xs( 16) = 0.1582700363786751D+02
        xs( 17) = 0.1688056978187043D+02
        xs( 18) = 0.1785199666914893D+02
        ws(  1) = 0.9780133808260829D+00
        ws(  2) = 0.9865420065383674D+00
        ws(  3) = 0.9883104194712670D+00
        ws(  4) = 0.9903726697591289D+00
        ws(  5) = 0.9927980950591220D+00
        ws(  6) = 0.9953282588447050D+00
        ws(  7) = 0.9987205675784930D+00
        ws(  8) = 0.1002195522999107D+01
        ws(  9) = 0.1006354948071145D+01
        ws( 10) = 0.1011245650937477D+01
        ws( 11) = 0.1016512425026999D+01
        ws( 12) = 0.1023280781888108D+01
        ws( 13) = 0.1029356852611085D+01
        ws( 14) = 0.1039657511769727D+01
        ws( 15) = 0.1046825155799958D+01
        ws( 16) = 0.1073629219468913D+01
        ws( 17) = 0.1012972589843676D+01
        ws( 18) = 0.1328077497877816D+01
        endif
        if( idomain .eq.  353 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.2513274122871834D+02
        rk1r = 0.3141592653589793D+01
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =  18
        err = 0.8125902411567833D-14
        xs(  1) = 0.7634308863158054D+00
        xs(  2) = 0.1746983269059865D+01
        xs(  3) = 0.2739323753739033D+01
        xs(  4) = 0.3733896406467034D+01
        xs(  5) = 0.4730368902946074D+01
        xs(  6) = 0.5729525332891634D+01
        xs(  7) = 0.6730822265462245D+01
        xs(  8) = 0.7735059633777047D+01
        xs(  9) = 0.8742235780222673D+01
        xs( 10) = 0.9753249595943670D+01
        xs( 11) = 0.1076827787570211D+02
        xs( 12) = 0.1178701302351436D+02
        xs( 13) = 0.1281271481290983D+02
        xs( 14) = 0.1384305133456964D+02
        xs( 15) = 0.1487533576375421D+02
        xs( 16) = 0.1589683451876857D+02
        xs( 17) = 0.1712770815448826D+02
        xs( 18) = 0.1801493157343056D+02
        ws(  1) = 0.9730475390812535D+00
        ws(  2) = 0.9908410953658044D+00
        ws(  3) = 0.9925936310257218D+00
        ws(  4) = 0.9962822124181236D+00
        ws(  5) = 0.9975939136479667D+00
        ws(  6) = 0.9998603073674130D+00
        ws(  7) = 0.1002956757311542D+01
        ws(  8) = 0.1005847243728434D+01
        ws(  9) = 0.1009409243825787D+01
        ws( 10) = 0.1012251333021934D+01
        ws( 11) = 0.1018360195155321D+01
        ws( 12) = 0.1021541034187421D+01
        ws( 13) = 0.1026781812016784D+01
        ws( 14) = 0.1046773030878350D+01
        ws( 15) = 0.1063187823102227D+01
        ws( 16) = 0.9284496021752775D+00
        ws( 17) = 0.1203215851544247D+01
        ws( 18) = 0.2162726651010409D+01
        endif
        if( idomain .eq.  354 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.2513274122871834D+02
        rk1r = 0.6283185307179586D+01
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =  18
        err = 0.2349572785088891D-13
        xs(  1) = 0.7831347943254043D+00
        xs(  2) = 0.1762522081155863D+01
        xs(  3) = 0.2752602105679918D+01
        xs(  4) = 0.3746445206941690D+01
        xs(  5) = 0.4743328191550984D+01
        xs(  6) = 0.5742358012986308D+01
        xs(  7) = 0.6742734938422580D+01
        xs(  8) = 0.7745060842495266D+01
        xs(  9) = 0.8750055303433523D+01
        xs( 10) = 0.9756591680263490D+01
        xs( 11) = 0.1076329221884612D+02
        xs( 12) = 0.1177239741777410D+02
        xs( 13) = 0.1278399177141730D+02
        xs( 14) = 0.1378858671137221D+02
        xs( 15) = 0.1479376471518480D+02
        xs( 16) = 0.1581110631732609D+02
        xs( 17) = 0.1679938763446471D+02
        xs( 18) = 0.1776597102704631D+02
        ws(  1) = 0.9386218818276478D+00
        ws(  2) = 0.9884071581790890D+00
        ws(  3) = 0.9989205174988314D+00
        ws(  4) = 0.1002862506673900D+01
        ws(  5) = 0.1002656310746872D+01
        ws(  6) = 0.1000112249214458D+01
        ws(  7) = 0.9975113067153158D+00
        ws(  8) = 0.9972392242546825D+00
        ws(  9) = 0.9998118971522275D+00
        ws( 10) = 0.1003684110142736D+01
        ws( 11) = 0.1012033747802570D+01
        ws( 12) = 0.1027185660423876D+01
        ws( 13) = 0.1040008233035474D+01
        ws( 14) = 0.1043887745465239D+01
        ws( 15) = 0.1065847551836693D+01
        ws( 16) = 0.1072088300055774D+01
        ws( 17) = 0.8722521683602545D+00
        ws( 18) = 0.1221044003553459D+01
        endif
        if( idomain .eq.  355 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.2513274122871834D+02
        rk1r = 0.9424777960769379D+01
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =  19
        err = 0.9258781374724512D-14
        xs(  1) = 0.7603610014686278D+00
        xs(  2) = 0.1732072807142285D+01
        xs(  3) = 0.2711331474480852D+01
        xs(  4) = 0.3693056463057877D+01
        xs(  5) = 0.4677143146319751D+01
        xs(  6) = 0.5662931411885916D+01
        xs(  7) = 0.6649746887605055D+01
        xs(  8) = 0.7638498178697661D+01
        xs(  9) = 0.8630331933467605D+01
        xs( 10) = 0.9625200693731715D+01
        xs( 11) = 0.1062115766113200D+02
        xs( 12) = 0.1162275828438537D+02
        xs( 13) = 0.1263330131737686D+02
        xs( 14) = 0.1363777277434009D+02
        xs( 15) = 0.1465917246430662D+02
        xs( 16) = 0.1569342027286595D+02
        xs( 17) = 0.1670751945909983D+02
        xs( 18) = 0.1777518042243605D+02
        xs( 19) = 0.1991803028103299D+02
        ws(  1) = 0.9517616772183269D+00
        ws(  2) = 0.9780116481640933D+00
        ws(  3) = 0.9829238328281352D+00
        ws(  4) = 0.9850744568972701D+00
        ws(  5) = 0.9855897694292404D+00
        ws(  6) = 0.9859801741065852D+00
        ws(  7) = 0.9862282690393448D+00
        ws(  8) = 0.9887410601864930D+00
        ws(  9) = 0.9928029773264715D+00
        ws( 10) = 0.9946419403169559D+00
        ws( 11) = 0.9983690680383061D+00
        ws( 12) = 0.1006785009273969D+01
        ws( 13) = 0.1015000114414730D+01
        ws( 14) = 0.1004382488432957D+01
        ws( 15) = 0.1039802396582589D+01
        ws( 16) = 0.1087719592686012D+01
        ws( 17) = 0.7996378010829047D+00
        ws( 18) = 0.1715378081836202D+01
        ws( 19) = 0.2451819834840280D+01
        endif
        if( idomain .eq.  356 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.2513274122871834D+02
        rk1r = 0.1256637061435917D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =  19
        err = 0.1314202363284410D-13
        xs(  1) = 0.7543778248171020D+00
        xs(  2) = 0.1725910248218187D+01
        xs(  3) = 0.2704913958768414D+01
        xs(  4) = 0.3685353193078046D+01
        xs(  5) = 0.4667689149063197D+01
        xs(  6) = 0.5651536198180868D+01
        xs(  7) = 0.6636005693212083D+01
        xs(  8) = 0.7622514471620521D+01
        xs(  9) = 0.8610820965344367D+01
        xs( 10) = 0.9602773277918384D+01
        xs( 11) = 0.1059528525514078D+02
        xs( 12) = 0.1159042185081963D+02
        xs( 13) = 0.1259636387675059D+02
        xs( 14) = 0.1359268377980988D+02
        xs( 15) = 0.1460855164485187D+02
        xs( 16) = 0.1561810948013790D+02
        xs( 17) = 0.1664463866192672D+02
        xs( 18) = 0.1767037173495314D+02
        xs( 19) = 0.1976049116387206D+02
        ws(  1) = 0.9605907986064891D+00
        ws(  2) = 0.9769962965348787D+00
        ws(  3) = 0.9794646268528755D+00
        ws(  4) = 0.9822134729555466D+00
        ws(  5) = 0.9821793514375966D+00
        ws(  6) = 0.9848237791681697D+00
        ws(  7) = 0.9848261167219516D+00
        ws(  8) = 0.9866868092627114D+00
        ws(  9) = 0.9905638262711705D+00
        ws( 10) = 0.9902305007587218D+00
        ws( 11) = 0.9940917813720672D+00
        ws( 12) = 0.9957233653085062D+00
        ws( 13) = 0.1008670801501819D+01
        ws( 14) = 0.9923794154519685D+00
        ws( 15) = 0.1021103972990189D+01
        ws( 16) = 0.1063374557414761D+01
        ws( 17) = 0.8191326673544826D+00
        ws( 18) = 0.1605747314921820D+01
        ws( 19) = 0.2697864790755134D+01
        endif
        if( idomain .eq.  357 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.2513274122871834D+02
        rk1r = 0.1570796326794897D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =  19
        err = 0.3225609080972217D-13
        xs(  1) = 0.7816103039454979D+00
        xs(  2) = 0.1748072358712811D+01
        xs(  3) = 0.2727499632930070D+01
        xs(  4) = 0.3711619491063636D+01
        xs(  5) = 0.4698236324678498D+01
        xs(  6) = 0.5686353817146183D+01
        xs(  7) = 0.6675171413068309D+01
        xs(  8) = 0.7664519767252275D+01
        xs(  9) = 0.8655896714988433D+01
        xs( 10) = 0.9647367079784511D+01
        xs( 11) = 0.1064087792475335D+02
        xs( 12) = 0.1163964542507707D+02
        xs( 13) = 0.1263784908743051D+02
        xs( 14) = 0.1363696320157955D+02
        xs( 15) = 0.1465113743905639D+02
        xs( 16) = 0.1566772531220227D+02
        xs( 17) = 0.1664615625643291D+02
        xs( 18) = 0.1833480871442363D+02
        xs( 19) = 0.1890943646965337D+02
        ws(  1) = 0.9174679885730199D+00
        ws(  2) = 0.9832552732912895D+00
        ws(  3) = 0.9921665380774246D+00
        ws(  4) = 0.9894242737094853D+00
        ws(  5) = 0.9869454432775119D+00
        ws(  6) = 0.9843107318171128D+00
        ws(  7) = 0.9868093108743473D+00
        ws(  8) = 0.9895389363715507D+00
        ws(  9) = 0.9913275543632317D+00
        ws( 10) = 0.9923757858391434D+00
        ws( 11) = 0.9926795913526010D+00
        ws( 12) = 0.1000617586952710D+01
        ws( 13) = 0.9882522543798035D+00
        ws( 14) = 0.1010095767159198D+01
        ws( 15) = 0.1007704080232293D+01
        ws( 16) = 0.9732912871093257D+00
        ws( 17) = 0.1258077521062512D+01
        ws( 18) = 0.5595245936043489D+00
        ws( 19) = 0.2802264171043034D+01
        endif
        if( idomain .eq.  358 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.2513274122871834D+02
        rk1r = 0.1884955592153876D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =  22
        err = 0.1635152179262640D-13
        xs(  1) = 0.5777375938992309D+00
        xs(  2) = 0.1422473715305669D+01
        xs(  3) = 0.2347607356497494D+01
        xs(  4) = 0.3304957077848920D+01
        xs(  5) = 0.4275350800398464D+01
        xs(  6) = 0.5251872392869298D+01
        xs(  7) = 0.6230683007603887D+01
        xs(  8) = 0.7211886805676426D+01
        xs(  9) = 0.8194950387964136D+01
        xs( 10) = 0.9179102404945358D+01
        xs( 11) = 0.1016343900335244D+02
        xs( 12) = 0.1114815134267095D+02
        xs( 13) = 0.1213986653791355D+02
        xs( 14) = 0.1311776307913774D+02
        xs( 15) = 0.1412013171742734D+02
        xs( 16) = 0.1508200162534491D+02
        xs( 17) = 0.1609222880694647D+02
        xs( 18) = 0.1703254847946507D+02
        xs( 19) = 0.1810208189771423D+02
        xs( 20) = 0.1898627798786095D+02
        xs( 21) = 0.2034906916087428D+02
        xs( 22) = 0.2188576433478675D+02
        ws(  1) = 0.7859968695241654D+00
        ws(  2) = 0.8962878599711471D+00
        ws(  3) = 0.9437207016409003D+00
        ws(  4) = 0.9654012520743885D+00
        ws(  5) = 0.9739890069653560D+00
        ws(  6) = 0.9782537668832066D+00
        ws(  7) = 0.9809729986821440D+00
        ws(  8) = 0.9821915756879210D+00
        ws(  9) = 0.9848628110474676D+00
        ws( 10) = 0.9833331694008950D+00
        ws( 11) = 0.9835615146459887D+00
        ws( 12) = 0.9854481194297994D+00
        ws( 13) = 0.9891034027086139D+00
        ws( 14) = 0.9767353387755248D+00
        ws( 15) = 0.9830494055648493D+00
        ws( 16) = 0.1022292948948705D+01
        ws( 17) = 0.8513960853988480D+00
        ws( 18) = 0.1195144966363531D+01
        ws( 19) = 0.6568454009289539D+00
        ws( 20) = 0.1438170797549250D+01
        ws( 21) = 0.1156045875519060D+01
        ws( 22) = 0.2377360231765250D+01
        endif
        if( idomain .eq.  359 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.2513274122871834D+02
        rk1r = 0.2199114857512855D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =  22
        err = 0.3516171898521383D-13
        xs(  1) = 0.5722732775578264D+00
        xs(  2) = 0.1415403304958105D+01
        xs(  3) = 0.2349421149265577D+01
        xs(  4) = 0.3315406163930927D+01
        xs(  5) = 0.4294413722282067D+01
        xs(  6) = 0.5278410615794726D+01
        xs(  7) = 0.6263700482710900D+01
        xs(  8) = 0.7249979541915944D+01
        xs(  9) = 0.8236839693302326D+01
        xs( 10) = 0.9225379660523789D+01
        xs( 11) = 0.1021375589213613D+02
        xs( 12) = 0.1120064303415254D+02
        xs( 13) = 0.1219242957229863D+02
        xs( 14) = 0.1317954560249566D+02
        xs( 15) = 0.1417989035092154D+02
        xs( 16) = 0.1512299294529667D+02
        xs( 17) = 0.1621009005806423D+02
        xs( 18) = 0.1703329239467977D+02
        xs( 19) = 0.1842494101956677D+02
        xs( 20) = 0.1914163138579662D+02
        xs( 21) = 0.2031863274561724D+02
        xs( 22) = 0.2222783271702869D+02
        ws(  1) = 0.7489182362411465D+00
        ws(  2) = 0.9066450111759449D+00
        ws(  3) = 0.9587303924304753D+00
        ws(  4) = 0.9765566634444751D+00
        ws(  5) = 0.9801478403652542D+00
        ws(  6) = 0.9836203711866920D+00
        ws(  7) = 0.9866476229998352D+00
        ws(  8) = 0.9872650428134840D+00
        ws(  9) = 0.9898044100395224D+00
        ws( 10) = 0.9887186948890504D+00
        ws( 11) = 0.9863886309837471D+00
        ws( 12) = 0.9823385839291724D+00
        ws( 13) = 0.9990056032473639D+00
        ws( 14) = 0.9540182556000270D+00
        ws( 15) = 0.1035978988371308D+01
        ws( 16) = 0.9260009788008379D+00
        ws( 17) = 0.9712574287372565D+00
        ws( 18) = 0.1128422743030045D+01
        ws( 19) = 0.8114445268247537D+00
        ws( 20) = 0.1490547174311038D+01
        ws( 21) = 0.9981260066249780D+00
        ws( 22) = 0.2146728205680684D+01
        endif
        if( idomain .eq.  360 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.2513274122871834D+02
        rk1r = 0.2513274122871834D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =  23
        err = 0.2091408842129692D-13
        xs(  1) = 0.7769270986580952D+00
        xs(  2) = 0.1765659483277961D+01
        xs(  3) = 0.2762916927864305D+01
        xs(  4) = 0.3761738220323111D+01
        xs(  5) = 0.4760074231123137D+01
        xs(  6) = 0.5756727349882916D+01
        xs(  7) = 0.6751625257958294D+01
        xs(  8) = 0.7745339409231177D+01
        xs(  9) = 0.8738164836484568D+01
        xs( 10) = 0.9730147107194661D+01
        xs( 11) = 0.1072181212426400D+02
        xs( 12) = 0.1171463099589476D+02
        xs( 13) = 0.1270525913262900D+02
        xs( 14) = 0.1370116905538630D+02
        xs( 15) = 0.1468887215831775D+02
        xs( 16) = 0.1568729907686953D+02
        xs( 17) = 0.1666499996543525D+02
        xs( 18) = 0.1766693252282115D+02
        xs( 19) = 0.1861651349673263D+02
        xs( 20) = 0.1964549520946822D+02
        xs( 21) = 0.2066882240517191D+02
        xs( 22) = 0.2153356491532592D+02
        xs( 23) = 0.2251155017086749D+02
        ws(  1) = 0.9702125629833496D+00
        ws(  2) = 0.1001760280315440D+01
        ws(  3) = 0.1001610584716025D+01
        ws(  4) = 0.9969755715532467D+00
        ws(  5) = 0.9948334181378226D+00
        ws(  6) = 0.9957423520909913D+00
        ws(  7) = 0.9972730525240383D+00
        ws(  8) = 0.9970035370872535D+00
        ws(  9) = 0.9941222922462187D+00
        ws( 10) = 0.9903813870559942D+00
        ws( 11) = 0.9869707792891022D+00
        ws( 12) = 0.9877514003333818D+00
        ws( 13) = 0.9797623947925465D+00
        ws( 14) = 0.9899087077395037D+00
        ws( 15) = 0.9843028016310117D+00
        ws( 16) = 0.9853157536463774D+00
        ws( 17) = 0.9484416861052855D+00
        ws( 18) = 0.1018157627371566D+01
        ws( 19) = 0.9574558535534199D+00
        ws( 20) = 0.1121856372752895D+01
        ws( 21) = 0.9599752708532870D+00
        ws( 22) = 0.7547216846477109D+00
        ws( 23) = 0.9044491342760712D+00
        endif
        if( idomain .eq.  361 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.2513274122871834D+02
        rk1r = 0.2827433388230814D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =  24
        err = 0.1669974144072993D-13
        xs(  1) = 0.7847862776779142D+00
        xs(  2) = 0.1774101414999554D+01
        xs(  3) = 0.2773121642272658D+01
        xs(  4) = 0.3773528338308723D+01
        xs(  5) = 0.4773130892211652D+01
        xs(  6) = 0.5771632555789216D+01
        xs(  7) = 0.6769088136555289D+01
        xs(  8) = 0.7764839525941505D+01
        xs(  9) = 0.8758657172866325D+01
        xs( 10) = 0.9750557866968096D+01
        xs( 11) = 0.1074393588667753D+02
        xs( 12) = 0.1173674826447398D+02
        xs( 13) = 0.1272213041136557D+02
        xs( 14) = 0.1372181785428134D+02
        xs( 15) = 0.1470719578978048D+02
        xs( 16) = 0.1569507121108408D+02
        xs( 17) = 0.1668610248993674D+02
        xs( 18) = 0.1767759030309765D+02
        xs( 19) = 0.1863622809124946D+02
        xs( 20) = 0.1963386519706148D+02
        xs( 21) = 0.2065769628377408D+02
        xs( 22) = 0.2160730228924484D+02
        xs( 23) = 0.2261959522941465D+02
        xs( 24) = 0.2463415089351429D+02
        ws(  1) = 0.9653227241596039D+00
        ws(  2) = 0.1005200701187908D+01
        ws(  3) = 0.1005229769858455D+01
        ws(  4) = 0.9991640685131121D+00
        ws(  5) = 0.9963700226590575D+00
        ws(  6) = 0.9969170868512225D+00
        ws(  7) = 0.9980088396079535D+00
        ws(  8) = 0.9970965101622254D+00
        ws(  9) = 0.9935592703804365D+00
        ws( 10) = 0.9936696003615793D+00
        ws( 11) = 0.9874027181206676D+00
        ws( 12) = 0.9986348822287386D+00
        ws( 13) = 0.9747369908862942D+00
        ws( 14) = 0.9966311171091505D+00
        ws( 15) = 0.9946338749144125D+00
        ws( 16) = 0.9874155064471672D+00
        ws( 17) = 0.9627227795421462D+00
        ws( 18) = 0.9809207535060273D+00
        ws( 19) = 0.1008317311670373D+01
        ws( 20) = 0.1061152368017154D+01
        ws( 21) = 0.8912897350702529D+00
        ws( 22) = 0.8040131057221415D+00
        ws( 23) = 0.1279188655002552D+01
        ws( 24) = 0.2720060436686568D+01
        endif
        if( idomain .eq.  362 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.2513274122871834D+02
        rk1r = 0.3141592653589793D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =  24
        err = 0.4378220207069082D-13
        xs(  1) = 0.8415569604274555D+00
        xs(  2) = 0.1804600273455236D+01
        xs(  3) = 0.2796854260295680D+01
        xs(  4) = 0.3797835458328614D+01
        xs(  5) = 0.4800482817627896D+01
        xs(  6) = 0.5801938437935443D+01
        xs(  7) = 0.6802015550072208D+01
        xs(  8) = 0.7800016937329362D+01
        xs(  9) = 0.8795795871486872D+01
        xs( 10) = 0.9789319346090837D+01
        xs( 11) = 0.1078620710663319D+02
        xs( 12) = 0.1178005576071158D+02
        xs( 13) = 0.1276747110564321D+02
        xs( 14) = 0.1376741331334884D+02
        xs( 15) = 0.1475473177443524D+02
        xs( 16) = 0.1573939530854162D+02
        xs( 17) = 0.1673439493939028D+02
        xs( 18) = 0.1772937227857631D+02
        xs( 19) = 0.1869340772947019D+02
        xs( 20) = 0.1966150794504134D+02
        xs( 21) = 0.2067691460109174D+02
        xs( 22) = 0.2164773942647999D+02
        xs( 23) = 0.2266004266439399D+02
        xs( 24) = 0.2464496123845731D+02
        ws(  1) = 0.9007609666815890D+00
        ws(  2) = 0.1020218306109142D+01
        ws(  3) = 0.1016300469924794D+01
        ws(  4) = 0.9968767029726757D+00
        ws(  5) = 0.9913861016774806D+00
        ws(  6) = 0.9976408238982655D+00
        ws(  7) = 0.1003712391573179D+01
        ws(  8) = 0.1003742387202381D+01
        ws(  9) = 0.9975278375844076D+00
        ws( 10) = 0.9959778266632007D+00
        ws( 11) = 0.9874192008078975D+00
        ws( 12) = 0.1000612772152566D+01
        ws( 13) = 0.9670749466056504D+00
        ws( 14) = 0.1000043175670418D+01
        ws( 15) = 0.9951666921333447D+00
        ws( 16) = 0.9793623186915486D+00
        ws( 17) = 0.9748019274568708D+00
        ws( 18) = 0.9505144186109170D+00
        ws( 19) = 0.1056329073282949D+01
        ws( 20) = 0.1045166318511968D+01
        ws( 21) = 0.8454375398289354D+00
        ws( 22) = 0.7654249880303794D+00
        ws( 23) = 0.1228870228503654D+01
        ws( 24) = 0.2648547699534966D+01
        endif
        if( idomain .eq.  363 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.2513274122871834D+02
        rk1r = 0.3455751918948772D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =  26
        err = 0.3154083241862428D-13
        xs(  1) = 0.8013740589055988D+00
        xs(  2) = 0.1784585428547335D+01
        xs(  3) = 0.2782850659885758D+01
        xs(  4) = 0.3787806760040311D+01
        xs(  5) = 0.4792217761222724D+01
        xs(  6) = 0.5794972361225085D+01
        xs(  7) = 0.6793204623193084D+01
        xs(  8) = 0.7792836516834683D+01
        xs(  9) = 0.8788155799709854D+01
        xs( 10) = 0.9786204209569782D+01
        xs( 11) = 0.1077641895483129D+02
        xs( 12) = 0.1177418162140119D+02
        xs( 13) = 0.1275330225743503D+02
        xs( 14) = 0.1375572652124913D+02
        xs( 15) = 0.1473108780467203D+02
        xs( 16) = 0.1571888514148727D+02
        xs( 17) = 0.1669880304569577D+02
        xs( 18) = 0.1766505969620624D+02
        xs( 19) = 0.1867731446764731D+02
        xs( 20) = 0.1962411859981198D+02
        xs( 21) = 0.2057274397384272D+02
        xs( 22) = 0.2158475812483260D+02
        xs( 23) = 0.2247175646721205D+02
        xs( 24) = 0.2360712734705579D+02
        xs( 25) = 0.2443471174205101D+02
        xs( 26) = 0.2698287951237846D+02
        ws(  1) = 0.9406365239741894D+00
        ws(  2) = 0.1012910599158449D+01
        ws(  3) = 0.1011493434278122D+01
        ws(  4) = 0.1001480397284709D+01
        ws(  5) = 0.9988994916464063D+00
        ws(  6) = 0.9992671185344162D+00
        ws(  7) = 0.1001919851316025D+01
        ws(  8) = 0.9960679921397554D+00
        ws(  9) = 0.1005342184407032D+01
        ws( 10) = 0.9820854067268817D+00
        ws( 11) = 0.9997371398268354D+00
        ws( 12) = 0.9877741898610706D+00
        ws( 13) = 0.9963989424618864D+00
        ws( 14) = 0.9697294645337323D+00
        ws( 15) = 0.9903865789492642D+00
        ws( 16) = 0.9956401324043702D+00
        ws( 17) = 0.9894439689362494D+00
        ws( 18) = 0.9088191110114564D+00
        ws( 19) = 0.1064772562616040D+01
        ws( 20) = 0.9512241284582856D+00
        ws( 21) = 0.9528567572766283D+00
        ws( 22) = 0.9303788025407833D+00
        ws( 23) = 0.8987929756643546D+00
        ws( 24) = 0.8954834238561707D+00
        ws( 25) = 0.1567305955007449D+01
        ws( 26) = 0.3195909318173185D+01
        endif
        if( idomain .eq.  364 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.2513274122871834D+02
        rk1r = 0.3769911184307752D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =  27
        err = 0.8794286586808447D-13
        xs(  1) = 0.1048662630496491D+01
        xs(  2) = 0.1935042317236979D+01
        xs(  3) = 0.2891481672793952D+01
        xs(  4) = 0.3884480692347182D+01
        xs(  5) = 0.4885860198207830D+01
        xs(  6) = 0.5885756604249679D+01
        xs(  7) = 0.6882154663803825D+01
        xs(  8) = 0.7880840685729728D+01
        xs(  9) = 0.8880404849720476D+01
        xs( 10) = 0.9877994250685852D+01
        xs( 11) = 0.1087664452277769D+02
        xs( 12) = 0.1187445756069097D+02
        xs( 13) = 0.1286464453684185D+02
        xs( 14) = 0.1386187417381159D+02
        xs( 15) = 0.1484963907726965D+02
        xs( 16) = 0.1584457489140549D+02
        xs( 17) = 0.1682245840827874D+02
        xs( 18) = 0.1781138270965701D+02
        xs( 19) = 0.1880419353543974D+02
        xs( 20) = 0.1978152418185862D+02
        xs( 21) = 0.2074437747429799D+02
        xs( 22) = 0.2172309970265162D+02
        xs( 23) = 0.2265582251163080D+02
        xs( 24) = 0.2364681144512996D+02
        xs( 25) = 0.2432800675231590D+02
        xs( 26) = 0.2600018386671174D+02
        xs( 27) = 0.2675336680318248D+02
        ws(  1) = 0.8548521106349266D+00
        ws(  2) = 0.1031669017352994D+01
        ws(  3) = 0.1005976300219269D+01
        ws(  4) = 0.9725014683018541D+00
        ws(  5) = 0.9807514284681219D+00
        ws(  6) = 0.9999278711123734D+00
        ws(  7) = 0.1012123700544465D+01
        ws(  8) = 0.1000764487958521D+01
        ws(  9) = 0.1010348007132622D+01
        ws( 10) = 0.9824356724833029D+00
        ws( 11) = 0.1003249044635869D+01
        ws( 12) = 0.9770358663534084D+00
        ws( 13) = 0.1018371674711571D+01
        ws( 14) = 0.9615614707524354D+00
        ws( 15) = 0.9939350178315252D+00
        ws( 16) = 0.9977380870210536D+00
        ws( 17) = 0.9838195197219520D+00
        ws( 18) = 0.9638925408069784D+00
        ws( 19) = 0.1027717526070781D+01
        ws( 20) = 0.9724749329360717D+00
        ws( 21) = 0.9541331638473901D+00
        ws( 22) = 0.9692433923404241D+00
        ws( 23) = 0.6857938159132417D+00
        ws( 24) = 0.1141902032147943D+01
        ws( 25) = 0.6546768855433946D+00
        ws( 26) = 0.9685467557610573D+00
        ws( 27) = 0.2393285914748889D+01
        endif
        if( idomain .eq.  365 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.2513274122871834D+02
        rk1r = 0.4084070449666731D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =  28
        err = 0.3820717279233734D-13
        xs(  1) = 0.5874999302369468D+00
        xs(  2) = 0.1464290480680227D+01
        xs(  3) = 0.2419352213530698D+01
        xs(  4) = 0.3398407339302404D+01
        xs(  5) = 0.4390770231644094D+01
        xs(  6) = 0.5387257792053714D+01
        xs(  7) = 0.6389774306634930D+01
        xs(  8) = 0.7388738376483962D+01
        xs(  9) = 0.8390463541403046D+01
        xs( 10) = 0.9394742390224833D+01
        xs( 11) = 0.1039163716924716D+02
        xs( 12) = 0.1138818907319455D+02
        xs( 13) = 0.1239118443381737D+02
        xs( 14) = 0.1338675137936598D+02
        xs( 15) = 0.1437949457888384D+02
        xs( 16) = 0.1537372919833166D+02
        xs( 17) = 0.1636624307704714D+02
        xs( 18) = 0.1735422156014529D+02
        xs( 19) = 0.1836750359558222D+02
        xs( 20) = 0.1932223323702277D+02
        xs( 21) = 0.2031437413604314D+02
        xs( 22) = 0.2133171113485525D+02
        xs( 23) = 0.2230100345189761D+02
        xs( 24) = 0.2329442492526388D+02
        xs( 25) = 0.2429734080579364D+02
        xs( 26) = 0.2527296444975937D+02
        xs( 27) = 0.2602791329876044D+02
        xs( 28) = 0.2826512912673201D+02
        ws(  1) = 0.8643160662756846D+00
        ws(  2) = 0.9127676316717471D+00
        ws(  3) = 0.9568511476716175D+00
        ws(  4) = 0.9934273294236275D+00
        ws(  5) = 0.9957604397679565D+00
        ws(  6) = 0.1005179521665127D+01
        ws(  7) = 0.9895340652172899D+00
        ws(  8) = 0.1019452784839053D+01
        ws(  9) = 0.9734024332409021D+00
        ws( 10) = 0.1022214553132050D+01
        ws( 11) = 0.9936360263422975D+00
        ws( 12) = 0.9950849695838400D+00
        ws( 13) = 0.9990127137771241D+00
        ws( 14) = 0.9834096664455574D+00
        ws( 15) = 0.1023918454727498D+01
        ws( 16) = 0.9871507226498117D+00
        ws( 17) = 0.9800593439057868D+00
        ws( 18) = 0.9764347863451944D+00
        ws( 19) = 0.1004238908001049D+01
        ws( 20) = 0.1032031988795828D+01
        ws( 21) = 0.9887705044736737D+00
        ws( 22) = 0.9240782303288414D+00
        ws( 23) = 0.1010814151428833D+01
        ws( 24) = 0.8902805412989063D+00
        ws( 25) = 0.9981758749806978D+00
        ws( 26) = 0.1015997512159278D+01
        ws( 27) = 0.1102376260252543D+01
        ws( 28) = 0.2658221697541740D+01
        endif
        if( idomain .eq.  366 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.2513274122871834D+02
        rk1r = 0.4398229715025710D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =  30
        err = 0.8467199669223935D-13
        xs(  1) = 0.1140534055437768D+01
        xs(  2) = 0.2025705879197160D+01
        xs(  3) = 0.2980945001558668D+01
        xs(  4) = 0.3960815682463292D+01
        xs(  5) = 0.4961741633124463D+01
        xs(  6) = 0.5948365383064572D+01
        xs(  7) = 0.6951330841374807D+01
        xs(  8) = 0.7949007582538365D+01
        xs(  9) = 0.8949247441154727D+01
        xs( 10) = 0.9952672391193678D+01
        xs( 11) = 0.1095716163931488D+02
        xs( 12) = 0.1195678189181263D+02
        xs( 13) = 0.1295262871650970D+02
        xs( 14) = 0.1395260489905346D+02
        xs( 15) = 0.1494893212141803D+02
        xs( 16) = 0.1594594566289560D+02
        xs( 17) = 0.1693665737287348D+02
        xs( 18) = 0.1793708833215548D+02
        xs( 19) = 0.1892434276859967D+02
        xs( 20) = 0.1991255920413890D+02
        xs( 21) = 0.2090075041607089D+02
        xs( 22) = 0.2188966373780252D+02
        xs( 23) = 0.2288463212548204D+02
        xs( 24) = 0.2386513991098014D+02
        xs( 25) = 0.2487253728177896D+02
        xs( 26) = 0.2586244122968308D+02
        xs( 27) = 0.2685641123925286D+02
        xs( 28) = 0.2773014701498003D+02
        xs( 29) = 0.2979854095570639D+02
        xs( 30) = 0.3068697886693336D+02
        ws(  1) = 0.9438560399619675D+00
        ws(  2) = 0.1027244533519473D+01
        ws(  3) = 0.9752698985351957D+00
        ws(  4) = 0.9616098354220158D+00
        ws(  5) = 0.9724954715195371D+00
        ws(  6) = 0.1024448262708781D+01
        ws(  7) = 0.9823469445405234D+00
        ws(  8) = 0.1031142726566739D+01
        ws(  9) = 0.9869422026302433D+00
        ws( 10) = 0.9913999295388436D+00
        ws( 11) = 0.9993191775404833D+00
        ws( 12) = 0.1000311946685957D+01
        ws( 13) = 0.1010616981216891D+01
        ws( 14) = 0.9911147001243183D+00
        ws( 15) = 0.9970494362494596D+00
        ws( 16) = 0.9940705328124102D+00
        ws( 17) = 0.9894483835938936D+00
        ws( 18) = 0.9971540970916662D+00
        ws( 19) = 0.1016962991729872D+01
        ws( 20) = 0.9855134176924687D+00
        ws( 21) = 0.9761058689637206D+00
        ws( 22) = 0.9698555706596945D+00
        ws( 23) = 0.9476650249738784D+00
        ws( 24) = 0.1035164866612734D+01
        ws( 25) = 0.9558323784340467D+00
        ws( 26) = 0.9361888158464239D+00
        ws( 27) = 0.1078457514317085D+01
        ws( 28) = 0.1046357456206026D+01
        ws( 29) = 0.2120483446596963D+01
        ws( 30) = 0.1330733775749550D+00
        endif
        if( idomain .eq.  367 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.2513274122871834D+02
        rk1r = 0.4712388980384689D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =  29
        err = 0.9836514711199936D-13
        xs(  1) = 0.1292859673527259D+01
        xs(  2) = 0.2282744674434295D+01
        xs(  3) = 0.3302181060148351D+01
        xs(  4) = 0.4338969759360210D+01
        xs(  5) = 0.5353829538382416D+01
        xs(  6) = 0.6374870238247845D+01
        xs(  7) = 0.7386416690095244D+01
        xs(  8) = 0.8395778633196352D+01
        xs(  9) = 0.9411347410640673D+01
        xs( 10) = 0.1042847186706833D+02
        xs( 11) = 0.1143658643051159D+02
        xs( 12) = 0.1244058501641969D+02
        xs( 13) = 0.1344545097103958D+02
        xs( 14) = 0.1445173951563382D+02
        xs( 15) = 0.1545589887645567D+02
        xs( 16) = 0.1645256705647608D+02
        xs( 17) = 0.1744953167105485D+02
        xs( 18) = 0.1846007153888218D+02
        xs( 19) = 0.1944224580973062D+02
        xs( 20) = 0.2043768511237857D+02
        xs( 21) = 0.2143362738114043D+02
        xs( 22) = 0.2241989671419707D+02
        xs( 23) = 0.2342319355156783D+02
        xs( 24) = 0.2440287716251594D+02
        xs( 25) = 0.2540879324900906D+02
        xs( 26) = 0.2638825453150786D+02
        xs( 27) = 0.2738230637679973D+02
        xs( 28) = 0.2828072560407104D+02
        xs( 29) = 0.3033378064939462D+02
        ws(  1) = 0.1147537084627417D+01
        ws(  2) = 0.1083334875575566D+01
        ws(  3) = 0.1021509235963054D+01
        ws(  4) = 0.9707054095866977D+00
        ws(  5) = 0.1049301432908307D+01
        ws(  6) = 0.9875235294483860D+00
        ws(  7) = 0.1062777141610151D+01
        ws(  8) = 0.9950405419690473D+00
        ws(  9) = 0.9965576081921264D+00
        ws( 10) = 0.1007637391249676D+01
        ws( 11) = 0.1008031152282866D+01
        ws( 12) = 0.1021594914505561D+01
        ws( 13) = 0.1000536797869917D+01
        ws( 14) = 0.9983822906690702D+00
        ws( 15) = 0.1003417120081687D+01
        ws( 16) = 0.1006869006282589D+01
        ws( 17) = 0.9861955582727162D+00
        ws( 18) = 0.1018302407548211D+01
        ws( 19) = 0.1010373437667477D+01
        ws( 20) = 0.9905688489687730D+00
        ws( 21) = 0.9739715708565897D+00
        ws( 22) = 0.9549853146505026D+00
        ws( 23) = 0.9708527406793093D+00
        ws( 24) = 0.1081530176224213D+01
        ws( 25) = 0.8765815690415786D+00
        ws( 26) = 0.9628824568191411D+00
        ws( 27) = 0.1030895125546990D+01
        ws( 28) = 0.1116823152383197D+01
        ws( 29) = 0.2028793839981964D+01
        endif
        if( idomain .eq.  368 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.2513274122871834D+02
        rk1r = 0.5026548245743669D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =  30
        err = 0.8758563622880293D-13
        xs(  1) = 0.7196322568382874D+00
        xs(  2) = 0.1766353790588673D+01
        xs(  3) = 0.2779840173818855D+01
        xs(  4) = 0.3796795285035910D+01
        xs(  5) = 0.4804195634031632D+01
        xs(  6) = 0.5827365224730717D+01
        xs(  7) = 0.6813544873362814D+01
        xs(  8) = 0.7858748772680586D+01
        xs(  9) = 0.8836394478667993D+01
        xs( 10) = 0.9847974719826519D+01
        xs( 11) = 0.1086214515769537D+02
        xs( 12) = 0.1185381332332723D+02
        xs( 13) = 0.1286757032264927D+02
        xs( 14) = 0.1385043164609688D+02
        xs( 15) = 0.1484778952238295D+02
        xs( 16) = 0.1584934849633132D+02
        xs( 17) = 0.1684296646986303D+02
        xs( 18) = 0.1783343403205164D+02
        xs( 19) = 0.1881778030367873D+02
        xs( 20) = 0.1979474725506690D+02
        xs( 21) = 0.2076739804415719D+02
        xs( 22) = 0.2175151990555480D+02
        xs( 23) = 0.2273574140484789D+02
        xs( 24) = 0.2365714805949338D+02
        xs( 25) = 0.2470736148500655D+02
        xs( 26) = 0.2560803991870364D+02
        xs( 27) = 0.2654935644119128D+02
        xs( 28) = 0.2733962813264665D+02
        xs( 29) = 0.2921229793181243D+02
        xs( 30) = 0.2974260994909493D+02
        ws(  1) = 0.1072769259394425D+01
        ws(  2) = 0.9987639115297577D+00
        ws(  3) = 0.1000158852833025D+01
        ws(  4) = 0.1031455785970498D+01
        ws(  5) = 0.9916497018783518D+00
        ws(  6) = 0.1053505815517093D+01
        ws(  7) = 0.9638666874572361D+00
        ws(  8) = 0.1014164568641626D+01
        ws(  9) = 0.1034386644387870D+01
        ws( 10) = 0.9963409057017388D+00
        ws( 11) = 0.9826907425795043D+00
        ws( 12) = 0.9927786439006463D+00
        ws( 13) = 0.1012825413913963D+01
        ws( 14) = 0.1017259829296058D+01
        ws( 15) = 0.9887628430173748D+00
        ws( 16) = 0.9576900770596065D+00
        ws( 17) = 0.9871858673056344D+00
        ws( 18) = 0.1002803967013485D+01
        ws( 19) = 0.1023111591367298D+01
        ws( 20) = 0.9877618811746163D+00
        ws( 21) = 0.9726728422735270D+00
        ws( 22) = 0.9488585952022197D+00
        ws( 23) = 0.9710057711975887D+00
        ws( 24) = 0.9266257006494789D+00
        ws( 25) = 0.7945767916395421D+00
        ws( 26) = 0.9979174787184560D+00
        ws( 27) = 0.1011256286455980D+01
        ws( 28) = 0.7951296766817693D+00
        ws( 29) = 0.1371329401616030D+01
        ws( 30) = 0.1356802649099597D+01
        endif
        if( idomain .eq.  369 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.2827433388230814D+02
        rk1r = 0.2000000000000000D-01
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   7
        err = 0.9895836075059428D-13
        xs(  1) = 0.4047010877830582D+01
        xs(  2) = 0.4915248727140497D+01
        xs(  3) = 0.5900640782008703D+01
        xs(  4) = 0.6930708394245323D+01
        xs(  5) = 0.7939095615265710D+01
        xs(  6) = 0.8984983302919016D+01
        xs(  7) = 0.9841123182375936D+01
        ws(  1) = 0.1496424673409271D+01
        ws(  2) = 0.1614992631611321D+01
        ws(  3) = 0.1217488531182182D+01
        ws(  4) = 0.1255768877558435D+01
        ws(  5) = 0.1226095226308160D+01
        ws(  6) = 0.1758718059140862D+01
        ws(  7) = 0.2210922980073346D+01
        endif
        if( idomain .eq.  370 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.2827433388230814D+02
        rk1r = 0.4000000000000000D-01
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   7
        err = 0.9896578748338628D-13
        xs(  1) = 0.4046972852973368D+01
        xs(  2) = 0.4915238872838324D+01
        xs(  3) = 0.5900674479642701D+01
        xs(  4) = 0.6930673790046020D+01
        xs(  5) = 0.7939059850655814D+01
        xs(  6) = 0.8984924330659020D+01
        xs(  7) = 0.9841051128116854D+01
        ws(  1) = 0.1496514137327079D+01
        ws(  2) = 0.1614698350389785D+01
        ws(  3) = 0.1217640221120645D+01
        ws(  4) = 0.1255975674024873D+01
        ws(  5) = 0.1226229028525910D+01
        ws(  6) = 0.1758640282346045D+01
        ws(  7) = 0.2210640752464129D+01
        endif
        if( idomain .eq.  371 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.2827433388230814D+02
        rk1r = 0.1000000000000000D+00
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   7
        err = 0.9900611694500589D-13
        xs(  1) = 0.4046681507521557D+01
        xs(  2) = 0.4915111730429509D+01
        xs(  3) = 0.5901046245509111D+01
        xs(  4) = 0.6930445324424102D+01
        xs(  5) = 0.7938717743413727D+01
        xs(  6) = 0.8984677279484266D+01
        xs(  7) = 0.9840608375615684D+01
        ws(  1) = 0.1497492231998991D+01
        ws(  2) = 0.1611939038585287D+01
        ws(  3) = 0.1218495778076973D+01
        ws(  4) = 0.1257947240575508D+01
        ws(  5) = 0.1226923322173494D+01
        ws(  6) = 0.1757652603675861D+01
        ws(  7) = 0.2209729561065940D+01
        endif
        if( idomain .eq.  372 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.2827433388230814D+02
        rk1r = 0.2000000000000000D+00
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   7
        err = 0.9916157864772597D-13
        xs(  1) = 0.4045712137445518D+01
        xs(  2) = 0.4914736905279727D+01
        xs(  3) = 0.5902035624613894D+01
        xs(  4) = 0.6929644788871103D+01
        xs(  5) = 0.7937745285159148D+01
        xs(  6) = 0.8983451853510969D+01
        xs(  7) = 0.9838904474774155D+01
        ws(  1) = 0.1500408328961546D+01
        ws(  2) = 0.1603723263423007D+01
        ws(  3) = 0.1221685653025995D+01
        ws(  4) = 0.1263491156847238D+01
        ws(  5) = 0.1229972429309067D+01
        ws(  6) = 0.1755299514044832D+01
        ws(  7) = 0.2204196011031659D+01
        endif
        if( idomain .eq.  373 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.2827433388230814D+02
        rk1r = 0.4000000000000000D+00
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   7
        err = 0.9985405777672540D-13
        xs(  1) = 0.4041758541498550D+01
        xs(  2) = 0.4913148975953443D+01
        xs(  3) = 0.5905696032409807D+01
        xs(  4) = 0.6926387228608936D+01
        xs(  5) = 0.7933791135506671D+01
        xs(  6) = 0.8977491755988179D+01
        xs(  7) = 0.9831317242263388D+01
        ws(  1) = 0.1513003973164357D+01
        ws(  2) = 0.1569692908159700D+01
        ws(  3) = 0.1236109599594211D+01
        ws(  4) = 0.1284487990652215D+01
        ws(  5) = 0.1245947153901876D+01
        ws(  6) = 0.1745138682654232D+01
        ws(  7) = 0.2176153493162511D+01
        endif
        if( idomain .eq.  374 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.2827433388230814D+02
        rk1r = 0.1000000000000000D+01
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   8
        err = 0.7555653564589248D-13
        xs(  1) = 0.3455933328023225D+01
        xs(  2) = 0.4384325585347684D+01
        xs(  3) = 0.5399358318152551D+01
        xs(  4) = 0.6391305601429313D+01
        xs(  5) = 0.7425871166876933D+01
        xs(  6) = 0.8408960337838600D+01
        xs(  7) = 0.9461027304581691D+01
        xs(  8) = 0.1034361217135691D+02
        ws(  1) = 0.1542736036946419D+01
        ws(  2) = 0.1157156367721528D+01
        ws(  3) = 0.1333228016012420D+01
        ws(  4) = 0.1219715155446150D+01
        ws(  5) = 0.1286686945275898D+01
        ws(  6) = 0.1362694255047207D+01
        ws(  7) = 0.1345961926141031D+01
        ws(  8) = 0.1860297395759172D+01
        endif
        if( idomain .eq.  375 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.2827433388230814D+02
        rk1r = 0.1570796326794897D+01
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   7
        err = 0.7541147874662387D-13
        xs(  1) = 0.3114125603762046D+01
        xs(  2) = 0.5015716563912858D+01
        xs(  3) = 0.6394928357684851D+01
        xs(  4) = 0.7043769699578343D+01
        xs(  5) = 0.9085294656701913D+01
        xs(  6) = 0.1107742494668608D+02
        xs(  7) = 0.1178427591391994D+02
        ws(  1) = 0.1610274837384437D+01
        ws(  2) = 0.1873182478163205D+01
        ws(  3) = 0.1489335338699623D+00
        ws(  4) = 0.2011369439340997D+01
        ws(  5) = 0.2541940855087597D+01
        ws(  6) = 0.3679614962766206D+01
        ws(  7) = 0.1691291297021490D+01
        endif
        if( idomain .eq.  376 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.2827433388230814D+02
        rk1r = 0.3141592653589793D+01
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   7
        err = 0.7666321916633989D-13
        xs(  1) = 0.3257438511872555D+01
        xs(  2) = 0.4011253092561795D+01
        xs(  3) = 0.4766868270761183D+01
        xs(  4) = 0.7082703619032593D+01
        xs(  5) = 0.7873646934376736D+01
        xs(  6) = 0.1031369596603454D+02
        xs(  7) = 0.1116086831170621D+02
        ws(  1) = 0.9445231653203706D+00
        ws(  2) = 0.1823475546187583D+01
        ws(  3) = 0.1349314449654518D+01
        ws(  4) = 0.1526498821815868D+01
        ws(  5) = 0.1694419038492074D+01
        ws(  6) = 0.2171027858891537D+01
        ws(  7) = 0.2266515782074409D+01
        endif
        if( idomain .eq.  377 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.2827433388230814D+02
        rk1r = 0.6283185307179586D+01
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   9
        err = 0.8779872844304739D-13
        xs(  1) = 0.2969176790367265D+01
        xs(  2) = 0.3956889938891961D+01
        xs(  3) = 0.4915806843980234D+01
        xs(  4) = 0.5863814798824639D+01
        xs(  5) = 0.6861256442170840D+01
        xs(  6) = 0.7871551039976186D+01
        xs(  7) = 0.8817034336495700D+01
        xs(  8) = 0.9767725654657434D+01
        xs(  9) = 0.1081490540891547D+02
        ws(  1) = 0.8082866510006395D+00
        ws(  2) = 0.1210533730303135D+01
        ws(  3) = 0.1303393352746534D+01
        ws(  4) = 0.1405410831098682D+01
        ws(  5) = 0.1480533394957621D+01
        ws(  6) = 0.1407404594157098D+01
        ws(  7) = 0.1246330745844257D+01
        ws(  8) = 0.1145785695481750D+01
        ws(  9) = 0.7697800531426893D+00
        endif
        if( idomain .eq.  378 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.2827433388230814D+02
        rk1r = 0.9424777960769379D+01
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   9
        err = 0.9979968048254229D-13
        xs(  1) = 0.3310310980648279D+01
        xs(  2) = 0.4257640178356143D+01
        xs(  3) = 0.5168020670018593D+01
        xs(  4) = 0.6066847983631528D+01
        xs(  5) = 0.7035337121362777D+01
        xs(  6) = 0.8028323631438704D+01
        xs(  7) = 0.8938083497026405D+01
        xs(  8) = 0.9875667190909262D+01
        xs(  9) = 0.1096000099495822D+02
        ws(  1) = 0.7935717458862677D+00
        ws(  2) = 0.1269734391466580D+01
        ws(  3) = 0.1374056664802702D+01
        ws(  4) = 0.1489216696308514D+01
        ws(  5) = 0.1525162102746579D+01
        ws(  6) = 0.1339384068905451D+01
        ws(  7) = 0.1089662014755386D+01
        ws(  8) = 0.1008294539567999D+01
        ws(  9) = 0.7165772791918267D+00
        endif
        if( idomain .eq.  379 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.2827433388230814D+02
        rk1r = 0.1256637061435917D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   9
        err = 0.9598138831881899D-13
        xs(  1) = 0.3470686765964768D+01
        xs(  2) = 0.4449444797310082D+01
        xs(  3) = 0.5419206295280071D+01
        xs(  4) = 0.6352198911944527D+01
        xs(  5) = 0.7322183031501506D+01
        xs(  6) = 0.8349164029255313D+01
        xs(  7) = 0.9325279038301749D+01
        xs(  8) = 0.1023611472089031D+02
        xs(  9) = 0.1126147323463838D+02
        ws(  1) = 0.8788936090895045D+00
        ws(  2) = 0.1402329392291785D+01
        ws(  3) = 0.1481288734517819D+01
        ws(  4) = 0.1443172662676041D+01
        ws(  5) = 0.1428208956250490D+01
        ws(  6) = 0.1341034478013122D+01
        ws(  7) = 0.1062981842294144D+01
        ws(  8) = 0.9238198677180276D+00
        ws(  9) = 0.7688892558929548D+00
        endif
        if( idomain .eq.  380 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.2827433388230814D+02
        rk1r = 0.1570796326794897D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =  10
        err = 0.6956796654219170D-13
        xs(  1) = 0.3420409122824117D+01
        xs(  2) = 0.4404244544936570D+01
        xs(  3) = 0.5399020906114899D+01
        xs(  4) = 0.6320328987621879D+01
        xs(  5) = 0.7256563831701612D+01
        xs(  6) = 0.8460523949387595D+01
        xs(  7) = 0.9673504918165417D+01
        xs(  8) = 0.1067865711887532D+02
        xs(  9) = 0.1147387779492934D+02
        xs( 10) = 0.1260989515850795D+02
        ws(  1) = 0.1219543923979805D+01
        ws(  2) = 0.1777904201329437D+01
        ws(  3) = 0.1439886737392786D+01
        ws(  4) = 0.8959259644857760D+00
        ws(  5) = 0.7388232578958684D+00
        ws(  6) = 0.8523005666026620D+00
        ws(  7) = 0.1257581357446932D+01
        ws(  8) = 0.1103879339265852D+01
        ws(  9) = 0.1456933942776186D+01
        ws( 10) = 0.2103918880206237D+01
        endif
        if( idomain .eq.  381 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.2827433388230814D+02
        rk1r = 0.1884955592153876D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   7
        err = 0.9739677573196927D-13
        xs(  1) = 0.3951026994950979D+01
        xs(  2) = 0.4585579381900883D+01
        xs(  3) = 0.5265913290502481D+01
        xs(  4) = 0.8046225316338003D+01
        xs(  5) = 0.9002150604426594D+01
        xs(  6) = 0.9753654855442273D+01
        xs(  7) = 0.1060101736622312D+02
        ws(  1) = 0.1606222507777138D+01
        ws(  2) = 0.1715175913553170D+01
        ws(  3) = 0.1297274179985403D+01
        ws(  4) = 0.1080037646370831D+01
        ws(  5) = 0.1724518390715787D+01
        ws(  6) = 0.1919281558635460D+01
        ws(  7) = 0.1921400763381424D+01
        endif
        if( idomain .eq.  382 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.2827433388230814D+02
        rk1r = 0.2199114857512855D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   6
        err = 0.8966789174055179D-13
        xs(  1) = 0.4345523552188738D+01
        xs(  2) = 0.5277394407292535D+01
        xs(  3) = 0.8329697560864952D+01
        xs(  4) = 0.9413176915614397D+01
        xs(  5) = 0.1024167587683251D+02
        xs(  6) = 0.1103706372847189D+02
        ws(  1) = 0.2510355591410048D+01
        ws(  2) = 0.1943905031876061D+01
        ws(  3) = 0.1302141224420868D+01
        ws(  4) = 0.2084347452455067D+01
        ws(  5) = 0.1675578808647610D+01
        ws(  6) = 0.1808693845633492D+01
        endif
        if( idomain .eq.  383 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.2827433388230814D+02
        rk1r = 0.2513274122871834D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   5
        err = 0.9988901914427862D-13
        xs(  1) = 0.4930829369835730D+01
        xs(  2) = 0.5884027651297354D+01
        xs(  3) = 0.9057397564142029D+01
        xs(  4) = 0.9965261642656733D+01
        xs(  5) = 0.1068686203995973D+02
        ws(  1) = 0.2513153997650405D+01
        ws(  2) = 0.1745250466399126D+01
        ws(  3) = 0.1853644260693619D+01
        ws(  4) = 0.2748707810613007D+01
        ws(  5) = 0.1943988034436056D+01
        endif
        if( idomain .eq.  384 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.2827433388230814D+02
        rk1r = 0.2827433388230814D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   6
        err = 0.9999439570659657D-13
        xs(  1) = 0.4311698605221125D+01
        xs(  2) = 0.5333680030497328D+01
        xs(  3) = 0.8369547574007203D+01
        xs(  4) = 0.9383118968247190D+01
        xs(  5) = 0.1018522236790223D+02
        xs(  6) = 0.1103807797852980D+02
        ws(  1) = 0.1968174147526658D+01
        ws(  2) = 0.1406179816623521D+01
        ws(  3) = 0.1561418367293986D+01
        ws(  4) = 0.2259335809400488D+01
        ws(  5) = 0.1797295098300101D+01
        ws(  6) = 0.1873277303490793D+01
        endif
        if( idomain .eq.  385 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.2827433388230814D+02
        rk1r = 0.3141592653589793D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   6
        err = 0.8486465539495415D-13
        xs(  1) = 0.5549172357118491D+01
        xs(  2) = 0.6410429889148385D+01
        xs(  3) = 0.9422854190822269D+01
        xs(  4) = 0.1062738310049089D+02
        xs(  5) = 0.1172286313652317D+02
        xs(  6) = 0.1353636536229337D+02
        ws(  1) = 0.2913972469153241D+01
        ws(  2) = 0.2381612222406938D+01
        ws(  3) = 0.8083107489393040D+00
        ws(  4) = 0.1833714888390149D+01
        ws(  5) = 0.1213812614179478D+01
        ws(  6) = 0.3243713637116339D+01
        endif
        if( idomain .eq.  386 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.2827433388230814D+02
        rk1r = 0.3455751918948772D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   8
        err = 0.9234418829669131D-13
        xs(  1) = 0.5211182612931878D+01
        xs(  2) = 0.6051430583407519D+01
        xs(  3) = 0.6995674406840835D+01
        xs(  4) = 0.8160839964902415D+01
        xs(  5) = 0.9859089918694837D+01
        xs(  6) = 0.1120141015122240D+02
        xs(  7) = 0.1245608941488490D+02
        xs(  8) = 0.1425064264324094D+02
        ws(  1) = 0.9281773734528836D+00
        ws(  2) = 0.2353567923684486D+01
        ws(  3) = 0.1953003453191763D+01
        ws(  4) = 0.5462255475961172D+00
        ws(  5) = 0.6712345625952592D+00
        ws(  6) = 0.1578559253944268D+01
        ws(  7) = 0.1736835391090928D+01
        ws(  8) = 0.2669187531879445D+01
        endif
        if( idomain .eq.  387 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.2827433388230814D+02
        rk1r = 0.3769911184307752D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =  10
        err = 0.7434819733266644D-13
        xs(  1) = 0.4664288304102842D+01
        xs(  2) = 0.5535886653615445D+01
        xs(  3) = 0.8505024515444806D+01
        xs(  4) = 0.9596008930055058D+01
        xs(  5) = 0.1056893656303875D+02
        xs(  6) = 0.1119839824609047D+02
        xs(  7) = 0.1231768323189723D+02
        xs(  8) = 0.1377521413226729D+02
        xs(  9) = 0.1640510879171348D+02
        xs( 10) = 0.1684236366934158D+02
        ws(  1) = 0.2502747823241171D+01
        ws(  2) = 0.1877244663047886D+01
        ws(  3) = 0.1057494661993555D+01
        ws(  4) = 0.1719158314320924D+01
        ws(  5) = 0.1187215621013880D+01
        ws(  6) = 0.9949487073712879D+00
        ws(  7) = 0.1064682499871172D+01
        ws(  8) = 0.9745930733628880D+00
        ws(  9) = 0.1172034306993620D+01
        ws( 10) = 0.1905490499603520D+01
        endif
        if( idomain .eq.  388 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.2827433388230814D+02
        rk1r = 0.4084070449666731D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =  11
        err = 0.7536488492136988D-13
        xs(  1) = 0.4961550041019237D+01
        xs(  2) = 0.5818751592139640D+01
        xs(  3) = 0.8648569728465720D+01
        xs(  4) = 0.9396749395704662D+01
        xs(  5) = 0.1012969566774988D+02
        xs(  6) = 0.1112196438400842D+02
        xs(  7) = 0.1192349199288099D+02
        xs(  8) = 0.1275424020049777D+02
        xs(  9) = 0.1418046251511359D+02
        xs( 10) = 0.1677476607318209D+02
        xs( 11) = 0.1735946880044902D+02
        ws(  1) = 0.2395686410640974D+01
        ws(  2) = 0.1800211733872054D+01
        ws(  3) = 0.9017419005490150D+00
        ws(  4) = 0.1008352901621867D+01
        ws(  5) = 0.1558190575069468D+01
        ws(  6) = 0.1431158771944098D+01
        ws(  7) = 0.5894900336410418D+00
        ws(  8) = 0.7069946366589855D+00
        ws(  9) = 0.8825497485874406D+00
        ws( 10) = 0.9370456892570492D+00
        ws( 11) = 0.2272375842637124D+01
        endif
        if( idomain .eq.  389 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.2827433388230814D+02
        rk1r = 0.4398229715025710D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =  12
        err = 0.7769510883279231D-13
        xs(  1) = 0.4650283254568808D+01
        xs(  2) = 0.5505024998340994D+01
        xs(  3) = 0.8500809470504244D+01
        xs(  4) = 0.9566804567168925D+01
        xs(  5) = 0.1053704853948819D+02
        xs(  6) = 0.1120339492294655D+02
        xs(  7) = 0.1224254101603346D+02
        xs(  8) = 0.1381885691297609D+02
        xs(  9) = 0.1511009795386120D+02
        xs( 10) = 0.1634965111360184D+02
        xs( 11) = 0.1694580196430593D+02
        xs( 12) = 0.2045737861115014D+02
        ws(  1) = 0.2696895288200407D+01
        ws(  2) = 0.1932807520226573D+01
        ws(  3) = 0.9885794085862967D+00
        ws(  4) = 0.1767304153682534D+01
        ws(  5) = 0.1245798781816185D+01
        ws(  6) = 0.1034645728593427D+01
        ws(  7) = 0.1242192462897024D+01
        ws(  8) = 0.1155829502919430D+01
        ws(  9) = 0.5067494692927125D+00
        ws( 10) = 0.1926120212035565D+00
        ws( 11) = 0.2094367544706300D+01
        ws( 12) = 0.3813517750932100D+01
        endif
        if( idomain .eq.  390 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.2827433388230814D+02
        rk1r = 0.4712388980384689D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =  14
        err = 0.6372586550740845D-13
        xs(  1) = 0.5065793386995467D+01
        xs(  2) = 0.5891911916769352D+01
        xs(  3) = 0.6714609605523817D+01
        xs(  4) = 0.9005005702103269D+01
        xs(  5) = 0.9857851133041448D+01
        xs(  6) = 0.1061620803114444D+02
        xs(  7) = 0.1142962793838503D+02
        xs(  8) = 0.1231243967097006D+02
        xs(  9) = 0.1316088344424453D+02
        xs( 10) = 0.1424248897291167D+02
        xs( 11) = 0.1613517851141296D+02
        xs( 12) = 0.1813317427763824D+02
        xs( 13) = 0.2017595805447447D+02
        xs( 14) = 0.2063395165290133D+02
        ws(  1) = 0.1887409447232290D+01
        ws(  2) = 0.2263589548108731D+01
        ws(  3) = 0.8782120349881732D+00
        ws(  4) = 0.5823514332805348D+00
        ws(  5) = 0.1091867962079578D+01
        ws(  6) = 0.1226978438741336D+01
        ws(  7) = 0.1347368513560982D+01
        ws(  8) = 0.9583682093715266D+00
        ws(  9) = 0.8340597657776643D+00
        ws( 10) = 0.8541062312691458D+00
        ws( 11) = 0.1344040548974168D+01
        ws( 12) = 0.1166842791245207D+01
        ws( 13) = 0.1744700066895570D+01
        ws( 14) = 0.1560469731576905D+01
        endif
        if( idomain .eq.  391 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.2827433388230814D+02
        rk1r = 0.5026548245743669D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =  14
        err = 0.8486181826776270D-13
        xs(  1) = 0.5687529542383948D+01
        xs(  2) = 0.6520539440404319D+01
        xs(  3) = 0.7380454021535730D+01
        xs(  4) = 0.8306416976113185D+01
        xs(  5) = 0.9655959978987985D+01
        xs(  6) = 0.1062353816411139D+02
        xs(  7) = 0.1160132864457400D+02
        xs(  8) = 0.1252715190257806D+02
        xs(  9) = 0.1344029993758563D+02
        xs( 10) = 0.1443065139077175D+02
        xs( 11) = 0.1625700163568228D+02
        xs( 12) = 0.1677646862243957D+02
        xs( 13) = 0.1991633621763191D+02
        xs( 14) = 0.2050964734282064D+02
        ws(  1) = 0.1577861647090974D+01
        ws(  2) = 0.2458042105726121D+01
        ws(  3) = 0.1407250661952107D+01
        ws(  4) = 0.2877937169946165D+00
        ws(  5) = 0.4011819308589726D+00
        ws(  6) = 0.1042014522192186D+01
        ws(  7) = 0.1403668100053596D+01
        ws(  8) = 0.1153841895535577D+01
        ws(  9) = 0.1032902242028740D+01
        ws( 10) = 0.9733010909049059D+00
        ws( 11) = 0.8543779279691054D+00
        ws( 12) = 0.7854698885105392D+00
        ws( 13) = 0.1519380127109941D+01
        ws( 14) = 0.2298512387704321D+01
        endif
        if( idomain .eq.  392 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.3141592653589793D+02
        rk1r = 0.2000000000000000D-01
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.8999863594016968D-14
        xs(  1) = 0.6976806058443427D+01
        ws(  1) = 0.9620316239720664D+01
        endif
        if( idomain .eq.  393 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.3141592653589793D+02
        rk1r = 0.4000000000000000D-01
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.9000076534027736D-14
        xs(  1) = 0.6976818060251658D+01
        ws(  1) = 0.9620564304687681D+01
        endif
        if( idomain .eq.  394 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.3141592653589793D+02
        rk1r = 0.1000000000000000D+00
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.9000920654896554D-14
        xs(  1) = 0.6976991877033875D+01
        ws(  1) = 0.9621720316617683D+01
        endif
        if( idomain .eq.  395 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.3141592653589793D+02
        rk1r = 0.2000000000000000D+00
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.9003944880543439D-14
        xs(  1) = 0.6977495828321378D+01
        ws(  1) = 0.9625697649894864D+01
        endif
        if( idomain .eq.  396 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.3141592653589793D+02
        rk1r = 0.4000000000000000D+00
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.9016325420092320D-14
        xs(  1) = 0.6979725248806859D+01
        ws(  1) = 0.9642229570353278D+01
        endif
        if( idomain .eq.  397 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.3141592653589793D+02
        rk1r = 0.1000000000000000D+01
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.9094225852815353D-14
        xs(  1) = 0.7004693229015541D+01
        ws(  1) = 0.9763044529104825D+01
        endif
        if( idomain .eq.  398 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.3141592653589793D+02
        rk1r = 0.1570796326794897D+01
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.9248396050580889D-14
        xs(  1) = 0.7031631049914096D+01
        ws(  1) = 0.9973211234692638D+01
        endif
        if( idomain .eq.  399 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.3141592653589793D+02
        rk1r = 0.3141592653589793D+01
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.8005529611026528D-14
        xs(  1) = 0.7504267856804541D+01
        ws(  1) = 0.8887058384065380D+01
        endif
        if( idomain .eq.  400 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.3141592653589793D+02
        rk1r = 0.6283185307179586D+01
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.9144531632859091D-14
        xs(  1) = 0.7533519334170216D+01
        ws(  1) = 0.1029299491902723D+02
        endif
        if( idomain .eq.  401 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.3141592653589793D+02
        rk1r = 0.9424777960769379D+01
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.9029327752508832D-14
        xs(  1) = 0.7530997318998930D+01
        ws(  1) = 0.1017322295358834D+02
        endif
        if( idomain .eq.  402 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.3141592653589793D+02
        rk1r = 0.1256637061435917D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.8862109749581143D-14
        xs(  1) = 0.7528121089315783D+01
        ws(  1) = 0.1001177314111711D+02
        endif
        if( idomain .eq.  403 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.3141592653589793D+02
        rk1r = 0.1570796326794897D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.8665418794257290D-14
        xs(  1) = 0.7525002051333587D+01
        ws(  1) = 0.9844565343405950D+01
        endif
        if( idomain .eq.  404 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.3141592653589793D+02
        rk1r = 0.1884955592153876D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.9048486643202440D-14
        xs(  1) = 0.6402123272633788D+01
        ws(  1) = 0.9543812241616052D+01
        endif
        if( idomain .eq.  405 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.3141592653589793D+02
        rk1r = 0.2199114857512855D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.1259383101357382D-13
        xs(  1) = 0.1201060567108334D+02
        ws(  1) = 0.1816018038858171D+02
        endif
        if( idomain .eq.  406 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.3141592653589793D+02
        rk1r = 0.2513274122871834D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.8675573412226455D-14
        xs(  1) = 0.8075199242866713D+01
        ws(  1) = 0.9694663280913588D+01
        endif
        if( idomain .eq.  407 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.3141592653589793D+02
        rk1r = 0.2827433388230814D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.8574930757262308D-14
        xs(  1) = 0.8071634734753307D+01
        ws(  1) = 0.9651919057310256D+01
        endif
        if( idomain .eq.  408 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.3141592653589793D+02
        rk1r = 0.3141592653589793D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.8563266482588801D-14
        xs(  1) = 0.8068212452132643D+01
        ws(  1) = 0.9709901899545949D+01
        endif
        if( idomain .eq.  409 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.3141592653589793D+02
        rk1r = 0.3455751918948772D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.9195453841545547D-14
        xs(  1) = 0.7506384305880967D+01
        ws(  1) = 0.1022894343328627D+02
        endif
        if( idomain .eq.  410 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.3141592653589793D+02
        rk1r = 0.3769911184307752D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.8102605645942179D-14
        xs(  1) = 0.9179588403629651D+01
        ws(  1) = 0.9636082326636467D+01
        endif
        if( idomain .eq.  411 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.3141592653589793D+02
        rk1r = 0.4084070449666731D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.1160074009124247D-13
        xs(  1) = 0.1197911838890316D+02
        ws(  1) = 0.1049893433866964D+02
        endif
        if( idomain .eq.  412 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.3141592653589793D+02
        rk1r = 0.4398229715025710D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.9461604153102973D-14
        xs(  1) = 0.8614246568463304D+01
        ws(  1) = 0.1037891730775895D+02
        endif
        if( idomain .eq.  413 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.3141592653589793D+02
        rk1r = 0.4712388980384689D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.1732567284651658D-13
        xs(  1) = 0.1478607065090202D+02
        ws(  1) = 0.1381178657459834D+02
        endif
        if( idomain .eq.  414 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.3141592653589793D+02
        rk1r = 0.5026548245743669D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.1370390658479321D-13
        xs(  1) = 0.1421396935002738D+02
        ws(  1) = 0.1130363601949674D+02
        endif
        if( idomain .eq.  415 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.3455751918948772D+02
        rk1r = 0.2000000000000000D-01
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3793789921418930D-15
        xs(  1) = 0.7537063482400751D+01
        ws(  1) = 0.1026016886464309D+02
        endif
        if( idomain .eq.  416 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.3455751918948772D+02
        rk1r = 0.4000000000000000D-01
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3794034494203456D-15
        xs(  1) = 0.7537106747804705D+01
        ws(  1) = 0.1026083122585142D+02
        endif
        if( idomain .eq.  417 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.3455751918948772D+02
        rk1r = 0.1000000000000000D+00
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3794187830407155D-15
        xs(  1) = 0.7537134439146585D+01
        ws(  1) = 0.1026124642992753D+02
        endif
        if( idomain .eq.  418 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.3455751918948772D+02
        rk1r = 0.2000000000000000D+00
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3796490463865440D-15
        xs(  1) = 0.7537778184270590D+01
        ws(  1) = 0.1026717208091085D+02
        endif
        if( idomain .eq.  419 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.3455751918948772D+02
        rk1r = 0.4000000000000000D+00
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3864654505456736D-15
        xs(  1) = 0.6973064238369234D+01
        ws(  1) = 0.9853504641625127D+01
        endif
        if( idomain .eq.  420 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.3455751918948772D+02
        rk1r = 0.1000000000000000D+01
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3860186059763106D-15
        xs(  1) = 0.7567392334889823D+01
        ws(  1) = 0.1041619594934339D+02
        endif
        if( idomain .eq.  421 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.3455751918948772D+02
        rk1r = 0.1570796326794897D+01
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.4200477298031452D-15
        xs(  1) = 0.8165810657115193D+01
        ws(  1) = 0.1119968169437377D+02
        endif
        if( idomain .eq.  422 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.3455751918948772D+02
        rk1r = 0.3141592653589793D+01
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3311511268336963D-15
        xs(  1) = 0.7502505283731742D+01
        ws(  1) = 0.8885437298447233D+01
        endif
        if( idomain .eq.  423 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.3455751918948772D+02
        rk1r = 0.6283185307179586D+01
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3837465342311473D-15
        xs(  1) = 0.7530675737461743D+01
        ws(  1) = 0.1040427372219196D+02
        endif
        if( idomain .eq.  424 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.3455751918948772D+02
        rk1r = 0.9424777960769379D+01
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3803064100998587D-15
        xs(  1) = 0.7528661618645076D+01
        ws(  1) = 0.1032822340732729D+02
        endif
        if( idomain .eq.  425 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.3455751918948772D+02
        rk1r = 0.1256637061435917D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3753872191450383D-15
        xs(  1) = 0.7526071069432035D+01
        ws(  1) = 0.1022873019807276D+02
        endif
        if( idomain .eq.  426 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.3455751918948772D+02
        rk1r = 0.1570796326794897D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3884570260205727D-15
        xs(  1) = 0.6403148632585242D+01
        ws(  1) = 0.9857709726506975D+01
        endif
        if( idomain .eq.  427 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.3455751918948772D+02
        rk1r = 0.1884955592153876D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3919953889668921D-15
        xs(  1) = 0.6401085155579945D+01
        ws(  1) = 0.9982867805247034D+01
        endif
        if( idomain .eq.  428 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.3455751918948772D+02
        rk1r = 0.2199114857512855D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3845401134103335D-15
        xs(  1) = 0.8077828717293057D+01
        ws(  1) = 0.1018808510874186D+02
        endif
        if( idomain .eq.  429 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.3455751918948772D+02
        rk1r = 0.2513274122871834D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3800047886369312D-15
        xs(  1) = 0.8074603149032139D+01
        ws(  1) = 0.1010473580693951D+02
        endif
        if( idomain .eq.  430 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.3455751918948772D+02
        rk1r = 0.2827433388230814D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3778486337985216D-15
        xs(  1) = 0.8071410562302447D+01
        ws(  1) = 0.1009420203159147D+02
        endif
        if( idomain .eq.  431 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.3455751918948772D+02
        rk1r = 0.3141592653589793D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3788233479311974D-15
        xs(  1) = 0.8068305786760980D+01
        ws(  1) = 0.1016796660628017D+02
        endif
        if( idomain .eq.  432 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.3455751918948772D+02
        rk1r = 0.3455751918948772D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3951903966822969D-15
        xs(  1) = 0.7506540902536113D+01
        ws(  1) = 0.1066907500303842D+02
        endif
        if( idomain .eq.  433 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.3455751918948772D+02
        rk1r = 0.3769911184307752D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3602545576547335D-15
        xs(  1) = 0.9180222706352689D+01
        ws(  1) = 0.1011677514842185D+02
        endif
        if( idomain .eq.  434 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.3455751918948772D+02
        rk1r = 0.4084070449666731D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.4143265672915544D-15
        xs(  1) = 0.1085645394100248D+02
        ws(  1) = 0.1024094794108135D+02
        endif
        if( idomain .eq.  435 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.3455751918948772D+02
        rk1r = 0.4398229715025710D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.4138572708966898D-15
        xs(  1) = 0.8615153081446438D+01
        ws(  1) = 0.1080093140831727D+02
        endif
        if( idomain .eq.  436 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.3455751918948772D+02
        rk1r = 0.4712388980384689D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.4959694926710892D-15
        xs(  1) = 0.1309385739341984D+02
        ws(  1) = 0.1110702237674590D+02
        endif
        if( idomain .eq.  437 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.3455751918948772D+02
        rk1r = 0.5026548245743669D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.5578560062280093D-15
        xs(  1) = 0.1421491867192786D+02
        ws(  1) = 0.1193627630793901D+02
        endif
