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

        if( idomain .eq.    1 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.0000000000000000D+00
        rk1r = 0.2000000000000000D-01
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  21
        err = 0.6722916952900796D-07
        xs(  1) = 0.4622470085766964D-03
        xs(  2) = 0.2377504657618651D-02
        xs(  3) = 0.5630229828379759D-02
        xs(  4) = 0.1000282625592769D-01
        xs(  5) = 0.1530210335319971D-01
        xs(  6) = 0.2137227323547714D-01
        xs(  7) = 0.2808921357998086D-01
        xs(  8) = 0.3535329609974199D-01
        xs(  9) = 0.4308427145519329D-01
        xs( 10) = 0.5121768918560838D-01
        xs( 11) = 0.5970212745545536D-01
        xs( 12) = 0.6849691792717286D-01
        xs( 13) = 0.7757028927701196D-01
        xs( 14) = 0.8689791682650511D-01
        xs( 15) = 0.9646188056351064D-01
        xs( 16) = 0.1062500511323294D+00
        xs( 17) = 0.1162559635087735D+00
        xs( 18) = 0.1264794122946934D+00
        xs( 19) = 0.1369282122374201D+00
        xs( 20) = 0.1476256123243411D+00
        xs( 21) = 0.1586626589243695D+00
        ws(  1) = 0.1179127434939096D-02
        ws(  2) = 0.2620185586023094D-02
        ws(  3) = 0.3847938226620115D-02
        ws(  4) = 0.4864939716452121D-02
        ws(  5) = 0.5707780808139064D-02
        ws(  6) = 0.6411995761475115D-02
        ws(  7) = 0.7005363167227129D-02
        ws(  8) = 0.7509485302430330D-02
        ws(  9) = 0.7941770329524901D-02
        ws( 10) = 0.8316535540858098D-02
        ws( 11) = 0.8645601484757431D-02
        ws( 12) = 0.8938728938333019D-02
        ws( 13) = 0.9204033381173591D-02
        ws( 14) = 0.9448402246127523D-02
        ws( 15) = 0.9677956344295304D-02
        ws( 16) = 0.9898645360660534D-02
        ws( 17) = 0.1011735670531755D-01
        ws( 18) = 0.1034495291279223D-01
        ws( 19) = 0.1060731460916839D-01
        ws( 20) = 0.1101526320361546D-01
        ws( 21) = 0.1259332951418082D-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 =  21
        err = 0.7631203937005587D-07
        xs(  1) = 0.4491768950107791D-03
        xs(  2) = 0.2318261435270347D-02
        xs(  3) = 0.5513502452673984D-02
        xs(  4) = 0.9833656989165248D-02
        xs(  5) = 0.1509052041193854D-01
        xs(  6) = 0.2112780899460511D-01
        xs(  7) = 0.2781953726626887D-01
        xs(  8) = 0.3506428628876139D-01
        xs(  9) = 0.4278037404476388D-01
        xs( 10) = 0.5090224569253753D-01
        xs( 11) = 0.5937762615669757D-01
        xs( 12) = 0.6816517727983376D-01
        xs( 13) = 0.7723258871059716D-01
        xs( 14) = 0.8655508351236754D-01
        xs( 15) = 0.9611434016935873D-01
        xs( 16) = 0.1058978490771183D+00
        xs( 17) = 0.1158987388520061D+00
        xs( 18) = 0.1261163267838142D+00
        xs( 19) = 0.1365578070226382D+00
        xs( 20) = 0.1472451970568069D+00
        xs( 21) = 0.1582679422236599D+00
        ws(  1) = 0.1146869871198987D-02
        ws(  2) = 0.2564525588371018D-02
        ws(  3) = 0.3791366348748059D-02
        ws(  4) = 0.4817333784294383D-02
        ws(  5) = 0.5670410459311655D-02
        ws(  6) = 0.6383273387334354D-02
        ws(  7) = 0.6983360163469081D-02
        ws(  8) = 0.7492583759790794D-02
        ws(  9) = 0.7928714302570543D-02
        ws( 10) = 0.8306358814052919D-02
        ws( 11) = 0.8637552610801132D-02
        ws( 12) = 0.8932211616704913D-02
        ws( 13) = 0.9198559664054633D-02
        ws( 14) = 0.9443551067308584D-02
        ws( 15) = 0.9673343584364157D-02
        ws( 16) = 0.9893893354287416D-02
        ws( 17) = 0.1011205342733715D-01
        ws( 18) = 0.1033862909354250D-01
        ws( 19) = 0.1059928543945396D-01
        ws( 20) = 0.1100292486991133D-01
        ws( 21) = 0.1258663405770327D-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 =  22
        err = 0.4275279197996703D-07
        xs(  1) = 0.4011409711480923D-03
        xs(  2) = 0.2086044432744803D-02
        xs(  3) = 0.5010665039864625D-02
        xs(  4) = 0.9024635150574594D-02
        xs(  5) = 0.1397003131181589D-01
        xs(  6) = 0.1970622338531955D-01
        xs(  7) = 0.2611475323247747D-01
        xs(  8) = 0.3309699520589770D-01
        xs(  9) = 0.4057117562203678D-01
        xs( 10) = 0.4847000994463008D-01
        xs( 11) = 0.5673871395908915D-01
        xs( 12) = 0.6533318684587028D-01
        xs( 13) = 0.7421836958327475D-01
        xs( 14) = 0.8336684042987064D-01
        xs( 15) = 0.9275772253502750D-01
        xs( 16) = 0.1023759085493814D+00
        xs( 17) = 0.1122116798256043D+00
        xs( 18) = 0.1222609161089723D+00
        xs( 19) = 0.1325257971360339D+00
        xs( 20) = 0.1430174817801634D+00
        xs( 21) = 0.1537594751824020D+00
        xs( 22) = 0.1649582123636465D+00
        ws(  1) = 0.1026299235261360D-02
        ws(  2) = 0.2327037545748540D-02
        ws(  3) = 0.3496269299939882D-02
        ws(  4) = 0.4504957477093858D-02
        ws(  5) = 0.5362351743065338D-02
        ws(  6) = 0.6090342496227851D-02
        ws(  7) = 0.6710330995357453D-02
        ws(  8) = 0.7240563075220756D-02
        ws(  9) = 0.7696617564070182D-02
        ws( 10) = 0.8091953074759201D-02
        ws( 11) = 0.8438137029536384D-02
        ws( 12) = 0.8744999987774308D-02
        ws( 13) = 0.9020839411415352D-02
        ws( 14) = 0.9272701304710616D-02
        ws( 15) = 0.9506723017956239D-02
        ws( 16) = 0.9728492521227664D-02
        ws( 17) = 0.9943712040749342D-02
        ws( 18) = 0.1015928379792502D-01
        ws( 19) = 0.1038577204273994D-01
        ws( 20) = 0.1065170405472394D-01
        ws( 21) = 0.1103360099087855D-01
        ws( 22) = 0.1305405166267712D-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 =  22
        err = 0.4450318643725056D-07
        xs(  1) = 0.3661558793959984D-03
        xs(  2) = 0.1921122724951846D-02
        xs(  3) = 0.4670780661216143D-02
        xs(  4) = 0.8514933923473062D-02
        xs(  5) = 0.1332023524880374D-01
        xs(  6) = 0.1895058239575235D-01
        xs(  7) = 0.2528293652845345D-01
        xs(  8) = 0.3221190625042948D-01
        xs(  9) = 0.3964962322091797D-01
        xs( 10) = 0.4752409360669667D-01
        xs( 11) = 0.5577711056962319D-01
        xs( 12) = 0.6436213645833304D-01
        xs( 13) = 0.7324237217499198D-01
        xs( 14) = 0.8238912984788389D-01
        xs( 15) = 0.9178057218729049D-01
        xs( 16) = 0.1014008145435779D+00
        xs( 17) = 0.1112394673212934D+00
        xs( 18) = 0.1212917350288275D+00
        xs( 19) = 0.1315590673563817D+00
        xs( 20) = 0.1420518010979223D+00
        xs( 21) = 0.1527919062563293D+00
        xs( 22) = 0.1639985641607173D+00
        ws(  1) = 0.9389746044431885D-03
        ws(  2) = 0.2164508635193883D-02
        ws(  3) = 0.3317560881450753D-02
        ws(  4) = 0.4347972003015224D-02
        ws(  5) = 0.5239701880245121D-02
        ws(  6) = 0.6000426474927254D-02
        ws(  7) = 0.6646725329073976D-02
        ws(  8) = 0.7196599089697696D-02
        ws(  9) = 0.7666871966496895D-02
        ws( 10) = 0.8072404696716081D-02
        ws( 11) = 0.8425908370406318D-02
        ws( 12) = 0.8738044845616156D-02
        ws( 13) = 0.9017684264940404D-02
        ws( 14) = 0.9272255205675459D-02
        ws( 15) = 0.9508130426056605D-02
        ws( 16) = 0.9731034070883665D-02
        ws( 17) = 0.9946690310582875D-02
        ws( 18) = 0.1016185827097092D-01
        ws( 19) = 0.1038711046471578D-01
        ws( 20) = 0.1064999369807116D-01
        ws( 21) = 0.1103748255143054D-01
        ws( 22) = 0.1299204509610080D-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 =  22
        err = 0.5294755834437144D-07
        xs(  1) = 0.3163845921795751D-03
        xs(  2) = 0.1678754761412797D-02
        xs(  3) = 0.4146670585174863D-02
        xs(  4) = 0.7684199088341769D-02
        xs(  5) = 0.1220055873612253D-01
        xs(  6) = 0.1758013655418759D-01
        xs(  7) = 0.2370525856869843D-01
        xs(  8) = 0.3046745376028270D-01
        xs(  9) = 0.3777218108980952D-01
        xs( 10) = 0.4554013159860643D-01
        xs( 11) = 0.5370656553205718D-01
        xs( 12) = 0.6221965346903650D-01
        xs( 13) = 0.7103851517775905D-01
        xs( 14) = 0.8013139750505342D-01
        xs( 15) = 0.8947418608396292D-01
        xs( 16) = 0.9904931586499389D-01
        xs( 17) = 0.1088452583129801D+00
        xs( 18) = 0.1188564209085382D+00
        xs( 19) = 0.1290838269942928D+00
        xs( 20) = 0.1395384774436382D+00
        xs( 21) = 0.1502490499257697D+00
        xs( 22) = 0.1613795913263271D+00
        ws(  1) = 0.8136783741514579D-03
        ws(  2) = 0.1915519075540009D-02
        ws(  3) = 0.3014192400550650D-02
        ws(  4) = 0.4045136560433166D-02
        ws(  5) = 0.4967939771695624D-02
        ws(  6) = 0.5771430316350658D-02
        ws(  7) = 0.6460663162478545D-02
        ws(  8) = 0.7047951896186996D-02
        ws(  9) = 0.7548298641422969D-02
        ws( 10) = 0.7976843171342268D-02
        ws( 11) = 0.8347423612656247D-02
        ws( 12) = 0.8671978198759764D-02
        ws( 13) = 0.8960499730768703D-02
        ws( 14) = 0.9221324712219673D-02
        ws( 15) = 0.9461497524708408D-02
        ws( 16) = 0.9687304583071370D-02
        ws( 17) = 0.9905000905867625D-02
        ws( 18) = 0.1012167441287775D-01
        ws( 19) = 0.1034902317083081D-01
        ws( 20) = 0.1061565114072601D-01
        ws( 21) = 0.1103797337010223D-01
        ws( 22) = 0.1275866355879854D-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 =  23
        err = 0.7091403081376098D-07
        xs(  1) = 0.2071589076830782D-03
        xs(  2) = 0.1123486331925493D-02
        xs(  3) = 0.2882133048645355D-02
        xs(  4) = 0.5593078472060338D-02
        xs(  5) = 0.9292192530844137D-02
        xs(  6) = 0.1393043766088388D-01
        xs(  7) = 0.1941171046061768D-01
        xs(  8) = 0.2562658781082914D-01
        xs(  9) = 0.3246955589056906D-01
        xs( 10) = 0.3984698543410626D-01
        xs( 11) = 0.4768026099792125D-01
        xs( 12) = 0.5590570627151726D-01
        xs( 13) = 0.6447283041103379D-01
        xs( 14) = 0.7334213827745777D-01
        xs( 15) = 0.8248312983120186D-01
        xs( 16) = 0.9187263577249782D-01
        xs( 17) = 0.1014939210628330D+00
        xs( 18) = 0.1113357885483251D+00
        xs( 19) = 0.1213921190378215D+00
        xs( 20) = 0.1316652204382312D+00
        xs( 21) = 0.1421645525020444D+00
        xs( 22) = 0.1528932497995665D+00
        xs( 23) = 0.1640532157515205D+00
        ws(  1) = 0.5354592493415487D-03
        ws(  2) = 0.1316327107647276D-02
        ws(  3) = 0.2220876689222392D-02
        ws(  4) = 0.3207062053473757D-02
        ws(  5) = 0.4182206786231683D-02
        ws(  6) = 0.5077692629223992D-02
        ws(  7) = 0.5866354750835712D-02
        ws(  8) = 0.6545689661784318D-02
        ws(  9) = 0.7124592633886222D-02
        ws( 10) = 0.7617170327967435D-02
        ws( 11) = 0.8038802615276246D-02
        ws( 12) = 0.8403715452781018D-02
        ws( 13) = 0.8723992521410956D-02
        ws( 14) = 0.9009596738970477D-02
        ws( 15) = 0.9268613881195514D-02
        ws( 16) = 0.9507813307299003D-02
        ws( 17) = 0.9733377577738600D-02
        ws( 18) = 0.9950551205773147D-02
        ws( 19) = 0.1016685014844348D-01
        ws( 20) = 0.1039651130427785D-01
        ws( 21) = 0.1065519026006664D-01
        ws( 22) = 0.1101296471914813D-01
        ws( 23) = 0.1294155979447453D-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 =  23
        err = 0.9427217302681488D-07
        xs(  1) = 0.1518140070449467D-03
        xs(  2) = 0.8276237488007369D-03
        xs(  3) = 0.2157201672219533D-02
        xs(  4) = 0.4323658753360028D-02
        xs(  5) = 0.7517891319109799D-02
        xs(  6) = 0.1181929036419700D-01
        xs(  7) = 0.1714416300959894D-01
        xs(  8) = 0.2332393992004231D-01
        xs(  9) = 0.3019470463158647D-01
        xs( 10) = 0.3762750780821272D-01
        xs( 11) = 0.4552595729335577D-01
        xs( 12) = 0.5381791009475898D-01
        xs( 13) = 0.6244882147578878D-01
        xs( 14) = 0.7137718745626531D-01
        xs( 15) = 0.8057144342947244D-01
        xs( 16) = 0.9000786106075039D-01
        xs( 17) = 0.9966911486503104D-01
        xs( 18) = 0.1095435282715092D+00
        xs( 19) = 0.1196248566506541D+00
        xs( 20) = 0.1299125843497552D+00
        xs( 21) = 0.1404129943478878D+00
        xs( 22) = 0.1511353822201213D+00
        xs( 23) = 0.1622033168430973D+00
        ws(  1) = 0.3927441562897805D-03
        ws(  2) = 0.9773618172574015D-03
        ws(  3) = 0.1713335822964094D-02
        ws(  4) = 0.2653767076170107D-02
        ws(  5) = 0.3749052040981674D-02
        ws(  6) = 0.4838018454189343D-02
        ws(  7) = 0.5781988628952939D-02
        ws(  8) = 0.6549858028212458D-02
        ws(  9) = 0.7170282498601864D-02
        ws( 10) = 0.7679409317180460D-02
        ws( 11) = 0.8105577244125296D-02
        ws( 12) = 0.8469313952376123D-02
        ws( 13) = 0.8785648245901351D-02
        ws( 14) = 0.9065877331812834D-02
        ws( 15) = 0.9318769596066874D-02
        ws( 16) = 0.9551362050230406D-02
        ws( 17) = 0.9769612627674697D-02
        ws( 18) = 0.9979328189449440D-02
        ws( 19) = 0.1018732813703352D-01
        ws( 20) = 0.1040437246881576D-01
        ws( 21) = 0.1065227024811561D-01
        ws( 22) = 0.1101538166335869D-01
        ws( 23) = 0.1260657451589325D-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 =  25
        err = 0.8037231188556959D-07
        xs(  1) = 0.7393796452638412D-04
        xs(  2) = 0.3983012822844543D-03
        xs(  3) = 0.1019630304140583D-02
        xs(  4) = 0.2011376144835556D-02
        xs(  5) = 0.3497007762192415D-02
        xs(  6) = 0.5659874071959649D-02
        xs(  7) = 0.8723963914013118D-02
        xs(  8) = 0.1286851635534891D-01
        xs(  9) = 0.1811170221572385D-01
        xs( 10) = 0.2430723358658654D-01
        xs( 11) = 0.3125845913084467D-01
        xs( 12) = 0.3880052556795104D-01
        xs( 13) = 0.4681480544849777D-01
        xs( 14) = 0.5521816239968722D-01
        xs( 15) = 0.6395136314283296D-01
        xs( 16) = 0.7297129906982976D-01
        xs( 17) = 0.8224623111936188D-01
        xs( 18) = 0.9175288067539022D-01
        xs( 19) = 0.1014746319488249D+00
        xs( 20) = 0.1114011196372710D+00
        xs( 21) = 0.1215264614287503D+00
        xs( 22) = 0.1318519185419247D+00
        xs( 23) = 0.1423932295590032D+00
        xs( 24) = 0.1531244156074351D+00
        xs( 25) = 0.1640318459257024D+00
        ws(  1) = 0.1907241847453277D-03
        ws(  2) = 0.4640513294803931D-03
        ws(  3) = 0.7906109114859015D-03
        ws(  4) = 0.1213237947480080D-02
        ws(  5) = 0.1788781896348940D-02
        ws(  6) = 0.2575725501182732D-02
        ws(  7) = 0.3584775994130862D-02
        ws(  8) = 0.4707447981684230D-02
        ws(  9) = 0.5752082058438474D-02
        ws( 10) = 0.6604826679989715D-02
        ws( 11) = 0.7270048451089924D-02
        ws( 12) = 0.7794542854794763D-02
        ws( 13) = 0.8220362155951047D-02
        ws( 14) = 0.8576611623717475D-02
        ws( 15) = 0.8882693849952631D-02
        ws( 16) = 0.9151955453783611D-02
        ws( 17) = 0.9394131520658587D-02
        ws( 18) = 0.9616609600143109D-02
        ws( 19) = 0.9825745171471178D-02
        ws( 20) = 0.1002748981088598D-01
        ws( 21) = 0.1022699273816399D-01
        ws( 22) = 0.1044435306601757D-01
        ws( 23) = 0.1070093152213087D-01
        ws( 24) = 0.1097586774330234D-01
        ws( 25) = 0.1223655585446200D-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 =  29
        err = 0.5252772371933676D-07
        xs(  1) = 0.2924068768793480D-04
        xs(  2) = 0.1555051213783933D-03
        xs(  3) = 0.3887659458408563D-03
        xs(  4) = 0.7404961879396881D-03
        xs(  5) = 0.1229447084865991D-02
        xs(  6) = 0.1884485635815455D-02
        xs(  7) = 0.2748999920036337D-02
        xs(  8) = 0.3887733667065428D-02
        xs(  9) = 0.5397044425445947D-02
        xs( 10) = 0.7418767420766026D-02
        xs( 11) = 0.1015306773846822D-01
        xs( 12) = 0.1385003957075342D-01
        xs( 13) = 0.1873395004456061D-01
        xs( 14) = 0.2485207832746162D-01
        xs( 15) = 0.3201948462903145D-01
        xs( 16) = 0.3996267479072195D-01
        xs( 17) = 0.4845816804174892D-01
        xs( 18) = 0.5736019170395324D-01
        xs( 19) = 0.6657956461854841D-01
        xs( 20) = 0.7606129291322702D-01
        xs( 21) = 0.8577044562899125D-01
        xs( 22) = 0.9568436309812867D-01
        xs( 23) = 0.1057883392600348D+00
        xs( 24) = 0.1160741616270135D+00
        xs( 25) = 0.1265386062938999D+00
        xs( 26) = 0.1371824858714471D+00
        xs( 27) = 0.1480210717603720D+00
        xs( 28) = 0.1589904628706408D+00
        xs( 29) = 0.1698607253404865D+00
        ws(  1) = 0.7520291601037073D-04
        ws(  2) = 0.1783497395177195D-03
        ws(  3) = 0.2900522145748378D-03
        ws(  4) = 0.4164877877964628D-03
        ws(  5) = 0.5661537800179742D-03
        ws(  6) = 0.7510433640128393D-03
        ws(  7) = 0.9886065512341171D-03
        ws(  8) = 0.1304682580672908D-02
        ws(  9) = 0.1737323561945663D-02
        ws( 10) = 0.2339503599318858D-02
        ws( 11) = 0.3171912698434032D-02
        ws( 12) = 0.4262432701586859D-02
        ws( 13) = 0.5514691705766866D-02
        ws( 14) = 0.6687489536446071D-02
        ws( 15) = 0.7599231896237323D-02
        ws( 16) = 0.8249685491001154D-02
        ws( 17) = 0.8717460550456939D-02
        ws( 18) = 0.9072107114703753D-02
        ws( 19) = 0.9357696782960744D-02
        ws( 20) = 0.9600052401018194D-02
        ws( 21) = 0.9814545849168469D-02
        ws( 22) = 0.1001096141369817D-01
        ws( 23) = 0.1019605584715467D-01
        ws( 24) = 0.1037625702341858D-01
        ws( 25) = 0.1055375815676552D-01
        ws( 26) = 0.1074321141202728D-01
        ws( 27) = 0.1099147472877020D-01
        ws( 28) = 0.1124969214037209D-01
        ws( 29) = 0.1161301078461537D-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 =  31
        err = 0.9329445112221569D-07
        xs(  1) = 0.1635291736939464D-04
        xs(  2) = 0.8657533775624068D-04
        xs(  3) = 0.2146492974235738D-03
        xs(  4) = 0.4037968544957820D-03
        xs(  5) = 0.6591061384964914D-03
        xs(  6) = 0.9880752153239049D-03
        xs(  7) = 0.1401356769649660D-02
        xs(  8) = 0.1913829845590096D-02
        xs(  9) = 0.2546181461051957D-02
        xs( 10) = 0.3327290887371465D-02
        xs( 11) = 0.4297900505231170D-02
        xs( 12) = 0.5516352819001975D-02
        xs( 13) = 0.7067601846150780D-02
        xs( 14) = 0.9077245331348155D-02
        xs( 15) = 0.1173206139895236D-01
        xs( 16) = 0.1530429269173230D-01
        xs( 17) = 0.2015468944960171D-01
        xs( 18) = 0.2662103542132626D-01
        xs( 19) = 0.3472612375742958D-01
        xs( 20) = 0.4407102552331268D-01
        xs( 21) = 0.5415772639058830D-01
        xs( 22) = 0.6464457031362622D-01
        xs( 23) = 0.7535201041611342D-01
        xs( 24) = 0.8619692716792809D-01
        xs( 25) = 0.9714464729260781D-01
        xs( 26) = 0.1081832699260416D+00
        xs( 27) = 0.1193124656622423D+00
        xs( 28) = 0.1305327321672466D+00
        xs( 29) = 0.1418387066218049D+00
        xs( 30) = 0.1531629964478363D+00
        xs( 31) = 0.1641018615654519D+00
        ws(  1) = 0.4201345137827482D-04
        ws(  2) = 0.9874274688737839D-04
        ws(  3) = 0.1579341749109636D-03
        ws(  4) = 0.2212002364358739D-03
        ws(  5) = 0.2906558684433380D-03
        ws(  6) = 0.3690403126265609D-03
        ws(  7) = 0.4599769392947734D-03
        ws(  8) = 0.5683784267145813D-03
        ws(  9) = 0.7010786467390065D-03
        ws( 10) = 0.8678377698816650D-03
        ws( 11) = 0.1082959383969466D-02
        ws( 12) = 0.1367874972751988D-02
        ws( 13) = 0.1755212168888502D-02
        ws( 14) = 0.2294761401935067D-02
        ws( 15) = 0.3059989036587464D-02
        ws( 16) = 0.4146013664327086D-02
        ws( 17) = 0.5616966243340157D-02
        ws( 18) = 0.7322636057469293D-02
        ws( 19) = 0.8813443076095259D-02
        ws( 20) = 0.9788939561385514D-02
        ws( 21) = 0.1032805818846058D-01
        ws( 22) = 0.1061697222072942D-01
        ws( 23) = 0.1078485486146155D-01
        ws( 24) = 0.1089954633212246D-01
        ws( 25) = 0.1099367275042899D-01
        ws( 26) = 0.1108251702376849D-01
        ws( 27) = 0.1117630055775520D-01
        ws( 28) = 0.1128052544857797D-01
        ws( 29) = 0.1141410955765080D-01
        ws( 30) = 0.1133222802421014D-01
        ws( 31) = 0.9678984339011277D-02
        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 =  35
        err = 0.7176966492062505D-07
        xs(  1) = 0.1022864511700021D-04
        xs(  2) = 0.5404392946841151D-04
        xs(  3) = 0.1334980384922014D-03
        xs(  4) = 0.2497449073541430D-03
        xs(  5) = 0.4045599452363686D-03
        xs(  6) = 0.6004891162955164D-03
        xs(  7) = 0.8410264687119273D-03
        xs(  8) = 0.1130843473675828D-02
        xs(  9) = 0.1476093576251283D-02
        xs( 10) = 0.1884825788736425D-02
        xs( 11) = 0.2367558838069467D-02
        xs( 12) = 0.2938092742221478D-02
        xs( 13) = 0.3614677511770053D-02
        xs( 14) = 0.4421724151208950D-02
        xs( 15) = 0.5392359413447971D-02
        xs( 16) = 0.6572312813256733D-02
        xs( 17) = 0.8025926725434352D-02
        xs( 18) = 0.9845613691952443D-02
        xs( 19) = 0.1216677198172319D-01
        xs( 20) = 0.1519047514196150D-01
        xs( 21) = 0.1921333821142011D-01
        xs( 22) = 0.2464313126930230D-01
        xs( 23) = 0.3190024624825819D-01
        xs( 24) = 0.4108732563940509D-01
        xs( 25) = 0.5177287197920229D-01
        xs( 26) = 0.6331876910360508D-01
        xs( 27) = 0.7525640050150824D-01
        xs( 28) = 0.8733951847964221D-01
        xs( 29) = 0.9946185946000519D-01
        xs( 30) = 0.1115868916242965D+00
        xs( 31) = 0.1237097556930025D+00
        xs( 32) = 0.1358325550242064D+00
        xs( 33) = 0.1479469627580899D+00
        xs( 34) = 0.1600186454215160D+00
        xs( 35) = 0.1714661223874895D+00
        ws(  1) = 0.2626694912652480D-04
        ws(  2) = 0.6148632164412948D-04
        ws(  3) = 0.9761123882629362D-04
        ws(  4) = 0.1351760625374684D-03
        ws(  5) = 0.1748754180298656D-03
        ws(  6) = 0.2175615011726029D-03
        ws(  7) = 0.2642867826258065D-03
        ws(  8) = 0.3163660304284465D-03
        ws(  9) = 0.3754662811408105D-03
        ws( 10) = 0.4437380158755153D-03
        ws( 11) = 0.5240090357346878D-03
        ws( 12) = 0.6200726042923310D-03
        ws( 13) = 0.7371239867091978D-03
        ws( 14) = 0.8824274290407545D-03
        ws( 15) = 0.1066367546351933D-02
        ws( 16) = 0.1304110277774101D-02
        ws( 17) = 0.1618277279297752D-02
        ws( 18) = 0.2043287630865484D-02
        ws( 19) = 0.2632015951910824D-02
        ws( 20) = 0.3464365078396445D-02
        ws( 21) = 0.4650400193521379D-02
        ws( 22) = 0.6285537947554246D-02
        ws( 23) = 0.8251492005495811D-02
        ws( 24) = 0.1004303751454408D-01
        ws( 25) = 0.1121454412883456D-01
        ws( 26) = 0.1179908330983461D-01
        ws( 27) = 0.1203680206195298D-01
        ws( 28) = 0.1211276750553424D-01
        ws( 29) = 0.1212584035818719D-01
        ws( 30) = 0.1212206103218719D-01
        ws( 31) = 0.1212528978643049D-01
        ws( 32) = 0.1214982093421525D-01
        ws( 33) = 0.1218872817270766D-01
        ws( 34) = 0.1210209475244857D-01
        ws( 35) = 0.1051494208149056D-01
        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 =  38
        err = 0.8678863567026889D-07
        xs(  1) = 0.7165769732811335D-05
        xs(  2) = 0.3782203903228387D-04
        xs(  3) = 0.9325104166198371D-04
        xs(  4) = 0.1739638628462929D-03
        xs(  5) = 0.2807365482615864D-03
        xs(  6) = 0.4146724096916835D-03
        xs(  7) = 0.5772672816166172D-03
        xs(  8) = 0.7704869989109066D-03
        xs(  9) = 0.9968620656443800D-03
        xs( 10) = 0.1259606640770076D-02
        xs( 11) = 0.1562771511013632D-02
        xs( 12) = 0.1911445214020574D-02
        xs( 13) = 0.2312022005673344D-02
        xs( 14) = 0.2772565423374639D-02
        xs( 15) = 0.3303307528784068D-02
        xs( 16) = 0.3917345058389921D-02
        xs( 17) = 0.4631627965963116D-02
        xs( 18) = 0.5468384462825932D-02
        xs( 19) = 0.6457222803826230D-02
        xs( 20) = 0.7638299672978645D-02
        xs( 21) = 0.9067190250264274D-02
        xs( 22) = 0.1082258151120640D-01
        xs( 23) = 0.1301870646284101D-01
        xs( 24) = 0.1582539150828471D-01
        xs( 25) = 0.1949934691388000D-01
        xs( 26) = 0.2442589051167391D-01
        xs( 27) = 0.3112638898702658D-01
        xs( 28) = 0.4006177610180343D-01
        xs( 29) = 0.5116427461467235D-01
        xs( 30) = 0.6374100740472528D-01
        xs( 31) = 0.7702335411891297D-01
        xs( 32) = 0.9053040788350117D-01
        xs( 33) = 0.1040395037526690D+00
        xs( 34) = 0.1174685600849652D+00
        xs( 35) = 0.1307954829553787D+00
        xs( 36) = 0.1440065916242073D+00
        xs( 37) = 0.1570165728543019D+00
        xs( 38) = 0.1694130327264755D+00
        ws(  1) = 0.1839715150298482D-04
        ws(  2) = 0.4297568449725284D-04
        ws(  3) = 0.6796588961607336D-04
        ws(  4) = 0.9358814808568929D-04
        ws(  5) = 0.1201400293934187D-03
        ws(  6) = 0.1479797193989742D-03
        ws(  7) = 0.1775361070320994D-03
        ws(  8) = 0.2093231159959764D-03
        ws(  9) = 0.2439601969518917D-03
        ws( 10) = 0.2822007722951502D-03
        ws( 11) = 0.3249726593538502D-03
        ws( 12) = 0.3734344900564012D-03
        ws( 13) = 0.4290548210796141D-03
        ws( 14) = 0.4937259880894088D-03
        ws( 15) = 0.5699248395639859D-03
        ws( 16) = 0.6609520310289877D-03
        ws( 17) = 0.7712843349131946D-03
        ws( 18) = 0.9071119699842332D-03
        ws( 19) = 0.1077178863135291D-02
        ws( 20) = 0.1294113642800568D-02
        ws( 21) = 0.1576581682516075D-02
        ws( 22) = 0.1952914673873780D-02
        ws( 23) = 0.2467126739605137D-02
        ws( 24) = 0.3188272475462724D-02
        ws( 25) = 0.4223331298713646D-02
        ws( 26) = 0.5719244222830904D-02
        ws( 27) = 0.7768405813825270D-02
        ws( 28) = 0.1009425967185400D-01
        ws( 29) = 0.1198247564741649D-01
        ws( 30) = 0.1303688662563670D-01
        ws( 31) = 0.1344916110577059D-01
        ws( 32) = 0.1353000284230483D-01
        ws( 33) = 0.1347630146785388D-01
        ws( 34) = 0.1338337857739037D-01
        ws( 35) = 0.1328702673460186D-01
        ws( 36) = 0.1316918778148940D-01
        ws( 37) = 0.1275726979659840D-01
        ws( 38) = 0.1008276407795523D-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 =  42
        err = 0.6889301399174551D-07
        xs(  1) = 0.5263668728853612D-05
        xs(  2) = 0.2776605619949954D-04
        xs(  3) = 0.6838362151578115D-04
        xs(  4) = 0.1273669969506189D-03
        xs(  5) = 0.2050911977504202D-03
        xs(  6) = 0.3020865201823313D-03
        xs(  7) = 0.4190673407853162D-03
        xs(  8) = 0.5569643050713883D-03
        xs(  9) = 0.7169610739563021D-03
        xs( 10) = 0.9005374248821301D-03
        xs( 11) = 0.1109521047859545D-02
        xs( 12) = 0.1346151423639888D-02
        xs( 13) = 0.1613159983296072D-02
        xs( 14) = 0.1913872155972043D-02
        xs( 15) = 0.2252339151799430D-02
        xs( 16) = 0.2633509543532368D-02
        xs( 17) = 0.3063455544098779D-02
        xs( 18) = 0.3549674687300309D-02
        xs( 19) = 0.4101497871943067D-02
        xs( 20) = 0.4730646773201055D-02
        xs( 21) = 0.5452011017509100D-02
        xs( 22) = 0.6284747943644632D-02
        xs( 23) = 0.7253870742843963D-02
        xs( 24) = 0.8392594374509873D-02
        xs( 25) = 0.9745875234058805D-02
        xs( 26) = 0.1137589675127518D-01
        xs( 27) = 0.1337086920179034D-01
        xs( 28) = 0.1585956673636512D-01
        xs( 29) = 0.1903534679048522D-01
        xs( 30) = 0.2319463231179868D-01
        xs( 31) = 0.2878743970906939D-01
        xs( 32) = 0.3641611424364751D-01
        xs( 33) = 0.4656901726313050D-01
        xs( 34) = 0.5907731660121705D-01
        xs( 35) = 0.7309529426552222D-01
        xs( 36) = 0.8776283082880486D-01
        xs( 37) = 0.1025692694229810D+00
        xs( 38) = 0.1172888268648372D+00
        xs( 39) = 0.1318406480320081D+00
        xs( 40) = 0.1461904046237546D+00
        xs( 41) = 0.1602784403770936D+00
        xs( 42) = 0.1736359838945822D+00
        ws(  1) = 0.1351190680402595D-04
        ws(  2) = 0.3152635479880457D-04
        ws(  3) = 0.4974954736347226D-04
        ws(  4) = 0.6827925847335397D-04
        ws(  5) = 0.8725704956272642D-04
        ws(  6) = 0.1068521263938718D-03
        ws(  7) = 0.1272640158383677D-03
        ws(  8) = 0.1487264751811602D-03
        ws(  9) = 0.1715128364534802D-03
        ws( 10) = 0.1959434254940821D-03
        ws( 11) = 0.2223957453798110D-03
        ws( 12) = 0.2513185614441998D-03
        ws( 13) = 0.2832506179192248D-03
        ws( 14) = 0.3188461029799872D-03
        ws( 15) = 0.3589089235743509D-03
        ws( 16) = 0.4044389494501671D-03
        ws( 17) = 0.4566959391123037D-03
        ws( 18) = 0.5172883839246138D-03
        ws( 19) = 0.5882988752565038D-03
        ws( 20) = 0.6724625935040935D-03
        ws( 21) = 0.7734329213484326D-03
        ws( 22) = 0.8961717096912274D-03
        ws( 23) = 0.1047552369909178D-02
        ws( 24) = 0.1237299264119788D-02
        ws( 25) = 0.1479485355449473D-02
        ws( 26) = 0.1795026027595845D-02
        ws( 27) = 0.2215993333799965D-02
        ws( 28) = 0.2792997283678916D-02
        ws( 29) = 0.3607032992774640D-02
        ws( 30) = 0.4786006057345816D-02
        ws( 31) = 0.6503799562013231D-02
        ws( 32) = 0.8846722779738019D-02
        ws( 33) = 0.1143237234642194D-01
        ws( 34) = 0.1342808806203385D-01
        ws( 35) = 0.1445888151665942D-01
        ws( 36) = 0.1479323814949391D-01
        ws( 37) = 0.1478508252107739D-01
        ws( 38) = 0.1464763586651198D-01
        ws( 39) = 0.1447793744495552D-01
        ws( 40) = 0.1426027338028014D-01
        ws( 41) = 0.1376168402857462D-01
        ws( 42) = 0.1106850025207794D-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 =  46
        err = 0.6933338379624700D-07
        xs(  1) = 0.4033602551187778D-05
        xs(  2) = 0.2126988345943611D-04
        xs(  3) = 0.5235052046992082D-04
        xs(  4) = 0.9741068239026496D-04
        xs(  5) = 0.1566494359543424D-03
        xs(  6) = 0.2303474672542788D-03
        xs(  7) = 0.3188818832226103D-03
        xs(  8) = 0.4227420848529029D-03
        xs(  9) = 0.5425470298529127D-03
        xs( 10) = 0.6790644043360524D-03
        xs( 11) = 0.8332324237293163D-03
        xs( 12) = 0.1006185252900871D-02
        xs( 13) = 0.1199283385355997D-02
        xs( 14) = 0.1414150505021483D-02
        xs( 15) = 0.1652718841680898D-02
        xs( 16) = 0.1917285650556483D-02
        xs( 17) = 0.2210583955780137D-02
        xs( 18) = 0.2535872181600231D-02
        xs( 19) = 0.2897048477413888D-02
        xs( 20) = 0.3298797969514376D-02
        xs( 21) = 0.3746784147488356D-02
        xs( 22) = 0.4247900543168429D-02
        xs( 23) = 0.4810605413444286D-02
        xs( 24) = 0.5445373297497015D-02
        xs( 25) = 0.6165311951725503D-02
        xs( 26) = 0.6987021013183611D-02
        xs( 27) = 0.7931809297606503D-02
        xs( 28) = 0.9027449749180577D-02
        xs( 29) = 0.1031078386933254D-01
        xs( 30) = 0.1183165925725157D-01
        xs( 31) = 0.1365910989490317D-01
        xs( 32) = 0.1589139040240419D-01
        xs( 33) = 0.1867257868938774D-01
        xs( 34) = 0.2222042774990328D-01
        xs( 35) = 0.2687204695563769D-01
        xs( 36) = 0.3314247516565023D-01
        xs( 37) = 0.4170919017933482D-01
        xs( 38) = 0.5306855662396703D-01
        xs( 39) = 0.6693702901335452D-01
        xs( 40) = 0.8233083277715499D-01
        xs( 41) = 0.9832035417733442D-01
        xs( 42) = 0.1143755578259507D+00
        xs( 43) = 0.1302691884109167D+00
        xs( 44) = 0.1459145428368687D+00
        xs( 45) = 0.1611785822837310D+00
        xs( 46) = 0.1756031186400420D+00
        ws(  1) = 0.1035345951477180D-04
        ws(  2) = 0.2413981166422124D-04
        ws(  3) = 0.3804330166242229D-04
        ws(  4) = 0.5210995772480006D-04
        ws(  5) = 0.6641408374820376D-04
        ws(  6) = 0.8104456649686960D-04
        ws(  7) = 0.9610554897602693D-04
        ws(  8) = 0.1117176943778081D-03
        ws(  9) = 0.1280197787940435D-03
        ws( 10) = 0.1451709216137260D-03
        ws( 11) = 0.1633536421856442D-03
        ws( 12) = 0.1827781512094366D-03
        ws( 13) = 0.2036879781051542D-03
        ws( 14) = 0.2263673659010084D-03
        ws( 15) = 0.2511510168931724D-03
        ws( 16) = 0.2784366215520083D-03
        ws( 17) = 0.3087011719745436D-03
        ws( 18) = 0.3425225398011006D-03
        ws( 19) = 0.3806077513352801D-03
        ws( 20) = 0.4238310023421447D-03
        ws( 21) = 0.4732847799539662D-03
        ws( 22) = 0.5303503003114637D-03
        ws( 23) = 0.5967950968380976D-03
        ws( 24) = 0.6749112642528368D-03
        ws( 25) = 0.7677127578589095D-03
        ws( 26) = 0.8792283524217689D-03
        ws( 27) = 0.1014934644616998D-02
        ws( 28) = 0.1182422993586698D-02
        ws( 29) = 0.1392453857449442D-02
        ws( 30) = 0.1660641366810500D-02
        ws( 31) = 0.2010369832443875D-02
        ws( 32) = 0.2477758260637415D-02
        ws( 33) = 0.3120156475190790D-02
        ws( 34) = 0.4030626823761445D-02
        ws( 35) = 0.5357970236039487D-02
        ws( 36) = 0.7301059293588388D-02
        ws( 37) = 0.9928459119538756D-02
        ws( 38) = 0.1274204719841467D-01
        ws( 39) = 0.1481396771105650D-01
        ws( 40) = 0.1581374698713866D-01
        ws( 41) = 0.1607992826699667D-01
        ws( 42) = 0.1599815164123364D-01
        ws( 43) = 0.1578989207860873D-01
        ws( 44) = 0.1559047260351427D-01
        ws( 45) = 0.1515711175162919D-01
        ws( 46) = 0.1233454551736300D-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 =  50
        err = 0.4827254393753366D-07
        xs(  1) = 0.3206662506803000D-05
        xs(  2) = 0.1690532003586001D-04
        xs(  3) = 0.4159037654165610D-04
        xs(  4) = 0.7733963377815779D-04
        xs(  5) = 0.1242657307095012D-03
        xs(  6) = 0.1825275794313170D-03
        xs(  7) = 0.2523389885179220D-03
        xs(  8) = 0.3339776532072158D-03
        xs(  9) = 0.4277945854512201D-03
        xs( 10) = 0.5342241501088453D-03
        xs( 11) = 0.6537949424028009D-03
        xs( 12) = 0.7871418645951643D-03
        xs( 13) = 0.9350199234271824D-03
        xs( 14) = 0.1098320316746674D-02
        xs( 15) = 0.1278089461200894D-02
        xs( 16) = 0.1475551811180112D-02
        xs( 17) = 0.1692137534474414D-02
        xs( 18) = 0.1929516253956731D-02
        xs( 19) = 0.2189638453520740D-02
        xs( 20) = 0.2474786721218343D-02
        xs( 21) = 0.2787639581042452D-02
        xs( 22) = 0.3131351485575694D-02
        xs( 23) = 0.3509653859755483D-02
        xs( 24) = 0.3926983871933849D-02
        xs( 25) = 0.4388650337512917D-02
        xs( 26) = 0.4901049098644587D-02
        xs( 27) = 0.5471946719580952D-02
        xs( 28) = 0.6110857629700235D-02
        xs( 29) = 0.6829554223385669D-02
        xs( 30) = 0.7642765589381973D-02
        xs( 31) = 0.8569157110292833D-02
        xs( 32) = 0.9632717101962668D-02
        xs( 33) = 0.1086478584397929D-01
        xs( 34) = 0.1230707958568720D-01
        xs( 35) = 0.1401633764198102D-01
        xs( 36) = 0.1607183226511766D-01
        xs( 37) = 0.1858778992212709D-01
        xs( 38) = 0.2173406008068991D-01
        xs( 39) = 0.2577122662016637D-01
        xs( 40) = 0.3110713665412328D-01
        xs( 41) = 0.3835408010107535D-01
        xs( 42) = 0.4824558955805350D-01
        xs( 43) = 0.6116558885598421D-01
        xs( 44) = 0.7658625856811502D-01
        xs( 45) = 0.9338248020941747D-01
        xs( 46) = 0.1106261499834207D+00
        xs( 47) = 0.1278225127451852D+00
        xs( 48) = 0.1447543855836512D+00
        xs( 49) = 0.1612682326175275D+00
        xs( 50) = 0.1767843395108300D+00
        ws(  1) = 0.8230418662423757D-05
        ws(  2) = 0.1918075945080505D-04
        ws(  3) = 0.3020180631681925D-04
        ws(  4) = 0.4131533484531297D-04
        ws(  5) = 0.5256320146264600D-04
        ws(  6) = 0.6399597697229230D-04
        ws(  7) = 0.7567296905525457D-04
        ws(  8) = 0.8766269611799524D-04
        ws(  9) = 0.1000433826265187D-03
        ws( 10) = 0.1129036471743379D-03
        ws( 11) = 0.1263435235836060D-03
        ws( 12) = 0.1404758879712003D-03
        ws( 13) = 0.1554284489745441D-03
        ws( 14) = 0.1713463629321080D-03
        ws( 15) = 0.1883955414608961D-03
        ws( 16) = 0.2067669618207976D-03
        ws( 17) = 0.2266820730012602D-03
        ws( 18) = 0.2483996000288633D-03
        ws( 19) = 0.2722241753292289D-03
        ws( 20) = 0.2985174598694144D-03
        ws( 21) = 0.3277123332119467D-03
        ws( 22) = 0.3603312610748563D-03
        ws( 23) = 0.3970102752012138D-03
        ws( 24) = 0.4385310141686398D-03
        ws( 25) = 0.4858632128676086D-03
        ws( 26) = 0.5402225607914157D-03
        ws( 27) = 0.6031500247325786D-03
        ws( 28) = 0.6766224657138856D-03
        ws( 29) = 0.7632094796392905D-03
        ws( 30) = 0.8663016283545093D-03
        ws( 31) = 0.9904464295534727D-03
        ws( 32) = 0.1141847852564349D-02
        ws( 33) = 0.1329167816510566D-02
        ws( 34) = 0.1564755727313089D-02
        ws( 35) = 0.1866772878355704D-02
        ws( 36) = 0.2262923365744944D-02
        ws( 37) = 0.2796739524288065D-02
        ws( 38) = 0.3538276174402286D-02
        ws( 39) = 0.4602802689912068D-02
        ws( 40) = 0.6171592929325744D-02
        ws( 41) = 0.8452612393013641D-02
        ws( 42) = 0.1140767280429004D-01
        ws( 43) = 0.1433759094561512D-01
        ws( 44) = 0.1629924769232350D-01
        ws( 45) = 0.1713598922956744D-01
        ws( 46) = 0.1727264170071105D-01
        ws( 47) = 0.1708953543496123D-01
        ws( 48) = 0.1676508611718203D-01
        ws( 49) = 0.1615108265400641D-01
        ws( 50) = 0.1289905567905613D-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 =  54
        err = 0.5180589578874455D-07
        xs(  1) = 0.2615322298461011D-05
        xs(  2) = 0.1378546107784145D-04
        xs(  3) = 0.3390437237034766D-04
        xs(  4) = 0.6301818933840632D-04
        xs(  5) = 0.1011924533060674D-03
        xs(  6) = 0.1485201653888546D-03
        xs(  7) = 0.2051272935838114D-03
        xs(  8) = 0.2711783571662580D-03
        xs(  9) = 0.3468821243286736D-03
        xs( 10) = 0.4324974787528961D-03
        xs( 11) = 0.5283395124646856D-03
        xs( 12) = 0.6347860120494846D-03
        xs( 13) = 0.7522845519786104D-03
        xs( 14) = 0.8813604656427640D-03
        xs( 15) = 0.1022625939838006D-02
        xs( 16) = 0.1176790551532601D-02
        xs( 17) = 0.1344673722958652D-02
        xs( 18) = 0.1527219436429162D-02
        xs( 19) = 0.1725513788196783D-02
        xs( 20) = 0.1940806091131571D-02
        xs( 21) = 0.2174534301841060D-02
        xs( 22) = 0.2428355973820294D-02
        xs( 23) = 0.2704185857633057D-02
        xs( 24) = 0.3004242104136651D-02
        xs( 25) = 0.3331103326445169D-02
        xs( 26) = 0.3687779529789720D-02
        xs( 27) = 0.4077800987679275D-02
        xs( 28) = 0.4505330343411648D-02
        xs( 29) = 0.4975305522989522D-02
        xs( 30) = 0.5493624199561151D-02
        xs( 31) = 0.6067382872743791D-02
        xs( 32) = 0.6705192820071934D-02
        xs( 33) = 0.7417600472966362D-02
        xs( 34) = 0.8217657972163488D-02
        xs( 35) = 0.9121712094897006D-02
        xs( 36) = 0.1015050581792064D-01
        xs( 37) = 0.1133076386739513D-01
        xs( 38) = 0.1269752743001811D-01
        xs( 39) = 0.1429766250781751D-01
        xs( 40) = 0.1619540658601049D-01
        xs( 41) = 0.1848143237787214D-01
        xs( 42) = 0.2128791551241656D-01
        xs( 43) = 0.2481417550761224D-01
        xs( 44) = 0.2937175112025600D-01
        xs( 45) = 0.3545506010157949D-01
        xs( 46) = 0.4379352220305833D-01
        xs( 47) = 0.5517876827417470D-01
        xs( 48) = 0.6983158425845273D-01
        xs( 49) = 0.8690771398871883D-01
        xs( 50) = 0.1051308549397041D+00
        xs( 51) = 0.1235977438253963D+00
        xs( 52) = 0.1418540139703788D+00
        xs( 53) = 0.1596236418761447D+00
        xs( 54) = 0.1762536631063359D+00
        ws(  1) = 0.6712381070663000D-05
        ws(  2) = 0.1563766652748667D-04
        ws(  3) = 0.2460744286221177D-04
        ws(  4) = 0.3363101380808852D-04
        ws(  5) = 0.4273292334785008D-04
        ws(  6) = 0.5194340393574696D-04
        ws(  7) = 0.6129817909765977D-04
        ws(  8) = 0.7083864168718181D-04
        ws(  9) = 0.8061193981418777D-04
        ws( 10) = 0.9067117792486757D-04
        ws( 11) = 0.1010757372917756D-03
        ws( 12) = 0.1118917265189997D-03
        ws( 13) = 0.1231927571020703D-03
        ws( 14) = 0.1350609272011297D-03
        ws( 15) = 0.1475880773516866D-03
        ws( 16) = 0.1608774739527474D-03
        ws( 17) = 0.1750459085445530D-03
        ws( 18) = 0.1902261837480702D-03
        ws( 19) = 0.2065703194594449D-03
        ws( 20) = 0.2242534311798596D-03
        ws( 21) = 0.2434786285607911D-03
        ws( 22) = 0.2644830759905004D-03
        ws( 23) = 0.2875454389064813D-03
        ws( 24) = 0.3129956481548851D-03
        ws( 25) = 0.3412269956304217D-03
        ws( 26) = 0.3727119375505287D-03
        ws( 27) = 0.4080224035295698D-03
        ws( 28) = 0.4478562370034789D-03
        ws( 29) = 0.4930731553938439D-03
        ws( 30) = 0.5447417243207500D-03
        ws( 31) = 0.6042039597980078D-03
        ws( 32) = 0.6731643147000985D-03
        ws( 33) = 0.7538134059069337D-03
        ws( 34) = 0.8490080881519614D-03
        ws( 35) = 0.9625315572980679D-03
        ws( 36) = 0.1099471871004115D-02
        ws( 37) = 0.1266828125660872D-02
        ws( 38) = 0.1474420715167967D-02
        ws( 39) = 0.1736410602371683D-02
        ws( 40) = 0.2073947395778281D-02
        ws( 41) = 0.2519729254291386D-02
        ws( 42) = 0.3125731540782506D-02
        ws( 43) = 0.3977489543588190D-02
        ws( 44) = 0.5218721224809699D-02
        ws( 45) = 0.7071376343436825D-02
        ws( 46) = 0.9749075836928326D-02
        ws( 47) = 0.1307121359289448D-01
        ws( 48) = 0.1607874908001988D-01
        ws( 49) = 0.1784506261329210D-01
        ws( 50) = 0.1845182236065750D-01
        ws( 51) = 0.1841444166689314D-01
        ws( 52) = 0.1807749796203994D-01
        ws( 53) = 0.1735866980296376D-01
        ws( 54) = 0.1356891345293201D-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 =  58
        err = 0.6052180850711874D-07
        xs(  1) = 0.2178912469324058D-05
        xs(  2) = 0.1148382672222091D-04
        xs(  3) = 0.2823778749021446D-04
        xs(  4) = 0.5246951720771246D-04
        xs(  5) = 0.8421876583461838D-04
        xs(  6) = 0.1235422557783715D-03
        xs(  7) = 0.1705174060695786D-03
        xs(  8) = 0.2252460388558986D-03
        xs(  9) = 0.2878581284886980D-03
        xs( 10) = 0.3585155438739202D-03
        xs( 11) = 0.4374158339938844D-03
        xs( 12) = 0.5247961200371542D-03
        xs( 13) = 0.6209371706450670D-03
        xs( 14) = 0.7261678237244711D-03
        xs( 15) = 0.8408698784813766D-03
        xs( 16) = 0.9654835899854343D-03
        xs( 17) = 0.1100513949278892D-02
        xs( 18) = 0.1246537975522087D-02
        xs( 19) = 0.1404213211213722D-02
        xs( 20) = 0.1574287668029810D-02
        xs( 21) = 0.1757611553431247D-02
        xs( 22) = 0.1955151188924598D-02
        xs( 23) = 0.2168005558371864D-02
        xs( 24) = 0.2397426038185662D-02
        xs( 25) = 0.2644840140924452D-02
        xs( 26) = 0.2911880028295721D-02
        xs( 27) = 0.3200417168742711D-02
        xs( 28) = 0.3512604575057566D-02
        xs( 29) = 0.3850928545159397D-02
        xs( 30) = 0.4218272568380414D-02
        xs( 31) = 0.4617996918375898D-02
        xs( 32) = 0.5054038277358435D-02
        xs( 33) = 0.5531035562152893D-02
        xs( 34) = 0.6054491827541988D-02
        xs( 35) = 0.6630981036004287D-02
        xs( 36) = 0.7268419019385414D-02
        xs( 37) = 0.7976424006579958D-02
        xs( 38) = 0.8766795275257628D-02
        xs( 39) = 0.9654170278883333D-02
        xs( 40) = 0.1065693481867253D-01
        xs( 41) = 0.1179850892593801D-01
        xs( 42) = 0.1310921394982860D-01
        xs( 43) = 0.1462903888568637D-01
        xs( 44) = 0.1641191858033834D-01
        xs( 45) = 0.1853265087604467D-01
        xs( 46) = 0.2109843720371144D-01
        xs( 47) = 0.2426823690691993D-01
        xs( 48) = 0.2828702468538727D-01
        xs( 49) = 0.3354588815977382D-01
        xs( 50) = 0.4066399121999022D-01
        xs( 51) = 0.5049857107469720D-01
        xs( 52) = 0.6379869733113915D-01
        xs( 53) = 0.8043394085664922D-01
        xs( 54) = 0.9921698906231700D-01
        xs( 55) = 0.1188417241551570D+00
        xs( 56) = 0.1385032951439695D+00
        xs( 57) = 0.1577435915650421D+00
        xs( 58) = 0.1758213218751763D+00
        ws(  1) = 0.5592164051590627D-05
        ws(  2) = 0.1302494549374381D-04
        ws(  3) = 0.2048743684024894D-04
        ws(  4) = 0.2798257780648798D-04
        ws(  5) = 0.3552531452723071D-04
        ws(  6) = 0.4313450556368565D-04
        ws(  7) = 0.5083269916274665D-04
        ws(  8) = 0.5864616883219660D-04
        ws(  9) = 0.6660492812173959D-04
        ws( 10) = 0.7474276102791066D-04
        ws( 11) = 0.8309727214061608D-04
        ws( 12) = 0.9171002157235809D-04
        ws( 13) = 0.1006268054273469D-03
        ws( 14) = 0.1098980434828002D-03
        ws( 15) = 0.1195793382139388D-03
        ws( 16) = 0.1297321300286207D-03
        ws( 17) = 0.1404246180734501D-03
        ws( 18) = 0.1517328602602795D-03
        ws( 19) = 0.1637420848704070D-03
        ws( 20) = 0.1765482984871618D-03
        ws( 21) = 0.1902602518574360D-03
        ws( 22) = 0.2050018573617666D-03
        ws( 23) = 0.2209150495701226D-03
        ws( 24) = 0.2381633582167343D-03
        ws( 25) = 0.2569362998138562D-03
        ws( 26) = 0.2774546873735328D-03
        ws( 27) = 0.2999775734194024D-03
        ws( 28) = 0.3248105619956040D-03
        ws( 29) = 0.3523166427138094D-03
        ws( 30) = 0.3829297989573803D-03
        ws( 31) = 0.4171729522461387D-03
        ws( 32) = 0.4556802295412312D-03
        ws( 33) = 0.4992281179923691D-03
        ws( 34) = 0.5487756248427850D-03
        ws( 35) = 0.6055161256538871D-03
        ws( 36) = 0.6709550685204777D-03
        ws( 37) = 0.7470106597366137D-03
        ws( 38) = 0.8361565546839710D-03
        ws( 39) = 0.9416368162141876D-03
        ws( 40) = 0.1067765177741614D-02
        ws( 41) = 0.1220391858459879D-02
        ws( 42) = 0.1407614171252385D-02
        ws( 43) = 0.1640914563542614D-02
        ws( 44) = 0.1937124966885346D-02
        ws( 45) = 0.2321899369880480D-02
        ws( 46) = 0.2835628794507935D-02
        ws( 47) = 0.3543806559663066D-02
        ws( 48) = 0.4557449692611339D-02
        ws( 49) = 0.6062522592354890D-02
        ws( 50) = 0.8321558640163908D-02
        ws( 51) = 0.1148814840937023D-01
        ws( 52) = 0.1509656555443778D-01
        ws( 53) = 0.1795392181821133D-01
        ws( 54) = 0.1938388317978794D-01
        ws( 55) = 0.1973572806914320D-01
        ws( 56) = 0.1954227664363307D-01
        ws( 57) = 0.1891548715426382D-01
        ws( 58) = 0.1496904668096327D-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 =  62
        err = 0.8576185321371031D-07
        xs(  1) = 0.1847867566099830D-05
        xs(  2) = 0.9738204769805191D-05
        xs(  3) = 0.2394155228634019D-04
        xs(  4) = 0.4447588281883551D-04
        xs(  5) = 0.7136523048458768D-04
        xs(  6) = 0.1046443046473471D-03
        xs(  7) = 0.1443611614582356D-03
        xs(  8) = 0.1905798340857723D-03
        xs(  9) = 0.2433829501340501D-03
        xs( 10) = 0.3028743078272091D-03
        xs( 11) = 0.3691814133539711D-03
        xs( 12) = 0.4424580082208162D-03
        xs( 13) = 0.5228866263628431D-03
        xs( 14) = 0.6106812668503860D-03
        xs( 15) = 0.7060902431938895D-03
        xs( 16) = 0.8093993189478559D-03
        xs( 17) = 0.9209351710094913D-03
        xs( 18) = 0.1041069311091581D-02
        xs( 19) = 0.1170222578020324D-02
        xs( 20) = 0.1308870302185222D-02
        xs( 21) = 0.1457548270883063D-02
        xs( 22) = 0.1616859637574777D-02
        xs( 23) = 0.1787483034054116D-02
        xs( 24) = 0.1970182061833398D-02
        xs( 25) = 0.2165816388489186D-02
        xs( 26) = 0.2375354891911701D-02
        xs( 27) = 0.2599891132430796D-02
        xs( 28) = 0.2840661846951217D-02
        xs( 29) = 0.3099068942841148D-02
        xs( 30) = 0.3376705839985987D-02
        xs( 31) = 0.3675389277493634D-02
        xs( 32) = 0.3997197825399795D-02
        xs( 33) = 0.4344518944566822D-02
        xs( 34) = 0.4720106468241340D-02
        xs( 35) = 0.5127151848191244D-02
        xs( 36) = 0.5569373229742179D-02
        xs( 37) = 0.6051126166496495D-02
        xs( 38) = 0.6577545623287759D-02
        xs( 39) = 0.7154727010593806D-02
        xs( 40) = 0.7789959183788961D-02
        xs( 41) = 0.8492032219780272D-02
        xs( 42) = 0.9271645901504482D-02
        xs( 43) = 0.1014195960700365D-01
        xs( 44) = 0.1111934951759852D-01
        xs( 45) = 0.1222446661864242D-01
        xs( 46) = 0.1348375170774754D-01
        xs( 47) = 0.1493165136846775D-01
        xs( 48) = 0.1661402791843400D-01
        xs( 49) = 0.1859372955348348D-01
        xs( 50) = 0.2095990139092184D-01
        xs( 51) = 0.2384334748997089D-01
        xs( 52) = 0.2744321179616619D-01
        xs( 53) = 0.3207605963754259D-01
        xs( 54) = 0.3825466003637484D-01
        xs( 55) = 0.4676325843539108D-01
        xs( 56) = 0.5855493277220362D-01
        xs( 57) = 0.7417195083944440D-01
        xs( 58) = 0.9297038003817963D-01
        xs( 59) = 0.1134653112868198D+00
        xs( 60) = 0.1344149996691487D+00
        xs( 61) = 0.1550815211228783D+00
        xs( 62) = 0.1746642967508049D+00
        ws(  1) = 0.4742440706895221D-05
        ws(  2) = 0.1104384110581908D-04
        ws(  3) = 0.1736557828006501D-04
        ws(  4) = 0.2370703690070473D-04
        ws(  5) = 0.3007739993865357D-04
        ws(  6) = 0.3648871331962805D-04
        ws(  7) = 0.4295562969035320D-04
        ws(  8) = 0.4949544386690467D-04
        ws(  9) = 0.5612804607864880D-04
        ws( 10) = 0.6287587870388794D-04
        ws( 11) = 0.6976391339618145D-04
        ws( 12) = 0.7681965412676940D-04
        ws( 13) = 0.8407320395627101D-04
        ws( 14) = 0.9155740970218696D-04
        ws( 15) = 0.9930811171659076D-04
        ws( 16) = 0.1073644218784930D-03
        ws( 17) = 0.1157691264682018D-03
        ws( 18) = 0.1245692082239875D-03
        ws( 19) = 0.1338164488520382D-03
        ws( 20) = 0.1435681828658832D-03
        ws( 21) = 0.1538881449978670D-03
        ws( 22) = 0.1648475358378487D-03
        ws( 23) = 0.1765263416340813D-03
        ws( 24) = 0.1890147729693224D-03
        ws( 25) = 0.2024151049798465D-03
        ws( 26) = 0.2168438544256397D-03
        ws( 27) = 0.2324343850966824D-03
        ws( 28) = 0.2493402603348088D-03
        ws( 29) = 0.2677389726226131D-03
        ws( 30) = 0.2878369753199440D-03
        ws( 31) = 0.3098755477423888D-03
        ws( 32) = 0.3341385114316562D-03
        ws( 33) = 0.3609615230888371D-03
        ws( 34) = 0.3907439487199538D-03
        ws( 35) = 0.4239646846203143D-03
        ws( 36) = 0.4612016443377415D-03
        ws( 37) = 0.5031570674232349D-03
        ws( 38) = 0.5506939132589218D-03
        ws( 39) = 0.6048786131853681D-03
        ws( 40) = 0.6670439962657412D-03
        ws( 41) = 0.7388763980450614D-03
        ws( 42) = 0.8225317712237293D-03
        ws( 43) = 0.9208077037777196D-03
        ws( 44) = 0.1037389297782264D-02
        ws( 45) = 0.1177215753824697D-02
        ws( 46) = 0.1347040968859435D-02
        ws( 47) = 0.1556312932163502D-02
        ws( 48) = 0.1818765188735706D-02
        ws( 49) = 0.2155248155909435D-02
        ws( 50) = 0.2598483396428257D-02
        ws( 51) = 0.3200806387853796D-02
        ws( 52) = 0.4050338770052563D-02
        ws( 53) = 0.5299188521757235D-02
        ws( 54) = 0.7189496778887668D-02
        ws( 55) = 0.9996109143374947D-02
        ws( 56) = 0.1369559635387657D-01
        ws( 57) = 0.1742425919504903D-01
        ws( 58) = 0.1990113283525807D-01
        ws( 59) = 0.2087935437657206D-01
        ws( 60) = 0.2090581007714987D-01
        ws( 61) = 0.2019362926989338D-01
        ws( 62) = 0.1611481032920239D-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 =  66
        err = 0.8866946576027509D-07
        xs(  1) = 0.1584531190147386D-05
        xs(  2) = 0.8349906303775738D-05
        xs(  3) = 0.2052603423504544D-04
        xs(  4) = 0.3812446057852592D-04
        xs(  5) = 0.6115990443313359D-04
        xs(  6) = 0.8965395178109802D-04
        xs(  7) = 0.1236370190693935D-03
        xs(  8) = 0.1631502622150774D-03
        xs(  9) = 0.2082474700187095D-03
        xs( 10) = 0.2589968976924063D-03
        xs( 11) = 0.3154830407353084D-03
        xs( 12) = 0.3778083646906767D-03
        xs( 13) = 0.4460950148361766D-03
        xs( 14) = 0.5204865317517560D-03
        xs( 15) = 0.6011496401455734D-03
        xs( 16) = 0.6882761540500094D-03
        xs( 17) = 0.7820850354517485D-03
        xs( 18) = 0.8828246527899624D-03
        xs( 19) = 0.9907753362710420D-03
        xs( 20) = 0.1106252255700426D-02
        xs( 21) = 0.1229608678343871D-02
        xs( 22) = 0.1361239705508080D-02
        xs( 23) = 0.1501586566524820D-02
        xs( 24) = 0.1651141545739487D-02
        xs( 25) = 0.1810453706010964D-02
        xs( 26) = 0.1980135526697423D-02
        xs( 27) = 0.2160870554222086D-02
        xs( 28) = 0.2353422350682871D-02
        xs( 29) = 0.2558645016474101D-02
        xs( 30) = 0.2777495414251228D-02
        xs( 31) = 0.3011047686025418D-02
        xs( 32) = 0.3260510380383538D-02
        xs( 33) = 0.3527246611535637D-02
        xs( 34) = 0.3812798431931204D-02
        xs( 35) = 0.4118915815548099D-02
        xs( 36) = 0.4447591569177056D-02
        xs( 37) = 0.4801104111698313D-02
        xs( 38) = 0.5182069006922431D-02
        xs( 39) = 0.5593502597146575D-02
        xs( 40) = 0.6038901046022065D-02
        xs( 41) = 0.6522338743838766D-02
        xs( 42) = 0.7048591904203769D-02
        xs( 43) = 0.7623296398880210D-02
        xs( 44) = 0.8253150685527171D-02
        xs( 45) = 0.8946178446795674D-02
        xs( 46) = 0.9712078016955075D-02
        xs( 47) = 0.1056268578054748D-01
        xs( 48) = 0.1151260912303019D-01
        xs( 49) = 0.1258010032490411D-01
        xs( 50) = 0.1378830367176868D-01
        xs( 51) = 0.1516706263124765D-01
        xs( 52) = 0.1675562025054472D-01
        xs( 53) = 0.1860686987510600D-01
        xs( 54) = 0.2079439056116970D-01
        xs( 55) = 0.2342426473761621D-01
        xs( 56) = 0.2665479352618997D-01
        xs( 57) = 0.3073211082535731D-01
        xs( 58) = 0.3605103136581445D-01
        xs( 59) = 0.4324630457429473D-01
        xs( 60) = 0.5325816556821838D-01
        xs( 61) = 0.6709853959950939D-01
        xs( 62) = 0.8501004291745182D-01
        xs( 63) = 0.1058183567114535D+00
        xs( 64) = 0.1278444142476066D+00
        xs( 65) = 0.1498832841752493D+00
        xs( 66) = 0.1707008239610263D+00
        ws(  1) = 0.4066542016002040D-05
        ws(  2) = 0.9468668171071096D-05
        ws(  3) = 0.1488529180110911D-04
        ws(  4) = 0.2031397554914984D-04
        ws(  5) = 0.2576047509441015D-04
        ws(  6) = 0.3123265643135796D-04
        ws(  7) = 0.3674030439454390D-04
        ws(  8) = 0.4229511606027032D-04
        ws(  9) = 0.4791064831760990D-04
        ws( 10) = 0.5360226019803453D-04
        ws( 11) = 0.5938707415968482D-04
        ws( 12) = 0.6528390423297692D-04
        ws( 13) = 0.7131328873653490D-04
        ws( 14) = 0.7749749985020002D-04
        ws( 15) = 0.8386065267058990D-04
        ws( 16) = 0.9042883312856559D-04
        ws( 17) = 0.9723028177881499D-04
        ws( 18) = 0.1042956270409315D-03
        ws( 19) = 0.1116582146261919D-03
        ws( 20) = 0.1193544409867832D-03
        ws( 21) = 0.1274241826045849D-03
        ws( 22) = 0.1359113280970019D-03
        ws( 23) = 0.1448643463092360D-03
        ws( 24) = 0.1543370119042285D-03
        ws( 25) = 0.1643892621179681D-03
        ws( 26) = 0.1750881543778611D-03
        ws( 27) = 0.1865089831499119D-03
        ws( 28) = 0.1987367579273305D-03
        ws( 29) = 0.2118678094492541D-03
        ws( 30) = 0.2260117224120744D-03
        ws( 31) = 0.2412939104043716D-03
        ws( 32) = 0.2578582555445464D-03
        ws( 33) = 0.2758707352654346D-03
        ws( 34) = 0.2955239968797172D-03
        ws( 35) = 0.3170421881721697D-03
        ws( 36) = 0.3406882101024281D-03
        ws( 37) = 0.3667717448732574D-03
        ws( 38) = 0.3956594686022558D-03
        ws( 39) = 0.4277887816651963D-03
        ws( 40) = 0.4636851432577401D-03
        ws( 41) = 0.5039837046062199D-03
        ws( 42) = 0.5494585413506495D-03
        ws( 43) = 0.6010626024433656D-03
        ws( 44) = 0.6599774230488509D-03
        ws( 45) = 0.7276869530898466D-03
        ws( 46) = 0.8060744748971367D-03
        ws( 47) = 0.8975614218483232D-03
        ws( 48) = 0.1005306882944255D-02
        ws( 49) = 0.1133503480660998D-02
        ws( 50) = 0.1287833807448712D-02
        ws( 51) = 0.1476156041152100D-02
        ws( 52) = 0.1709663313138662D-02
        ws( 53) = 0.2004906511044607D-02
        ws( 54) = 0.2387507045982638D-02
        ws( 55) = 0.2898058663188056D-02
        ws( 56) = 0.3603017940650461D-02
        ws( 57) = 0.4615874087084036D-02
        ws( 58) = 0.6125990159318854D-02
        ws( 59) = 0.8423975745652595D-02
        ws( 60) = 0.1178355425741118D-01
        ws( 61) = 0.1595547716153225D-01
        ws( 62) = 0.1964956344812999D-01
        ws( 63) = 0.2166777091153809D-01
        ws( 64) = 0.2219344415431961D-01
        ws( 65) = 0.2174531829115141D-01
        ws( 66) = 0.1763715441181136D-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 =  70
        err = 0.9475015449618929D-07
        xs(  1) = 0.1379655320353511D-05
        xs(  2) = 0.7269891675174270D-05
        xs(  3) = 0.1786939174492426D-04
        xs(  4) = 0.3318540161728838D-04
        xs(  5) = 0.5322653242975698D-04
        xs(  6) = 0.7800578575876376D-04
        xs(  7) = 0.1075420855059654D-03
        xs(  8) = 0.1418617343957734D-03
        xs(  9) = 0.1809998523807666D-03
        xs( 10) = 0.2250017578676619D-03
        xs( 11) = 0.2739242818033955D-03
        xs( 12) = 0.3278370350373516D-03
        xs( 13) = 0.3868236116480738D-03
        xs( 14) = 0.4509827883927713D-03
        xs( 15) = 0.5204297132010201D-03
        xs( 16) = 0.5952971500207597D-03
        xs( 17) = 0.6757367907280894D-03
        xs( 18) = 0.7619206566356417D-03
        xs( 19) = 0.8540426383300897D-03
        xs( 20) = 0.9523202188070455D-03
        xs( 21) = 0.1056996386603729D-02
        xs( 22) = 0.1168341803703477D-02
        xs( 23) = 0.1286657253230939D-02
        xs( 24) = 0.1412276414669853D-02
        xs( 25) = 0.1545569051703189D-02
        xs( 26) = 0.1686944625260633D-02
        xs( 27) = 0.1836856485478437D-02
        xs( 28) = 0.1995806644933259D-02
        xs( 29) = 0.2164351208874571D-02
        xs( 30) = 0.2343106842588005D-02
        xs( 31) = 0.2532758043433724D-02
        xs( 32) = 0.2734065629119701D-02
        xs( 33) = 0.2947876750508715D-02
        xs( 34) = 0.3175136457438202D-02
        xs( 35) = 0.3416901338781756D-02
        xs( 36) = 0.3674355499530921D-02
        xs( 37) = 0.3948829410014471D-02
        xs( 38) = 0.4241822638052000D-02
        xs( 39) = 0.4555030561935383D-02
        xs( 40) = 0.4890376597014640D-02
        xs( 41) = 0.5250051476418617D-02
        xs( 42) = 0.5636560168215932D-02
        xs( 43) = 0.6052779833331067D-02
        xs( 44) = 0.6502030989094006D-02
        xs( 45) = 0.6988166303519411D-02
        xs( 46) = 0.7515681591394935D-02
        xs( 47) = 0.8089855689810355D-02
        xs( 48) = 0.8716929743099055D-02
        xs( 49) = 0.9404338376809289D-02
        xs( 50) = 0.1016101356899585D-01
        xs( 51) = 0.1099778486402728D-01
        xs( 52) = 0.1192792476396040D-01
        xs( 53) = 0.1296789588678102D-01
        xs( 54) = 0.1413840491875774D-01
        xs( 55) = 0.1546591259571480D-01
        xs( 56) = 0.1698486716054263D-01
        xs( 57) = 0.1874119726794053D-01
        xs( 58) = 0.2079819409021512D-01
        xs( 59) = 0.2324659656351461D-01
        xs( 60) = 0.2622069618627650D-01
        xs( 61) = 0.2992679282908073D-01
        xs( 62) = 0.3469696924720614D-01
        xs( 63) = 0.4107983764781435D-01
        xs( 64) = 0.4994286604351363D-01
        xs( 65) = 0.6242802455085169D-01
        xs( 66) = 0.7938486824253939D-01
        xs( 67) = 0.1002820366218460D+00
        xs( 68) = 0.1233217810593539D+00
        xs( 69) = 0.1468501756029080D+00
        xs( 70) = 0.1695448156238700D+00
        ws(  1) = 0.3540698073412923D-05
        ws(  2) = 0.8243411285007340D-05
        ws(  3) = 0.1295660420173803D-04
        ws(  4) = 0.1767682453966501D-04
        ws(  5) = 0.2240758058092123D-04
        ws(  6) = 0.2715405408855515D-04
        ws(  7) = 0.3192290334224817D-04
        ws(  8) = 0.3672222622391029D-04
        ws(  9) = 0.4156153996179712D-04
        ws( 10) = 0.4645172057498158D-04
        ws( 11) = 0.5140491258394773D-04
        ws( 12) = 0.5643450645500633D-04
        ws( 13) = 0.6155509099083884D-04
        ws( 14) = 0.6678243349294765D-04
        ws( 15) = 0.7213352076262906D-04
        ws( 16) = 0.7762661266402118D-04
        ws( 17) = 0.8328131580863260D-04
        ws( 18) = 0.8911870297610189D-04
        ws( 19) = 0.9516147573492749D-04
        ws( 20) = 0.1014341464438616D-03
        ws( 21) = 0.1079632602134743D-03
        ws( 22) = 0.1147776593241293D-03
        ws( 23) = 0.1219087989050885D-03
        ws( 24) = 0.1293910934372689D-03
        ws( 25) = 0.1372623538474006D-03
        ws( 26) = 0.1455642686306241D-03
        ws( 27) = 0.1543430308146913D-03
        ws( 28) = 0.1636498608851234D-03
        ws( 29) = 0.1735419238508493D-03
        ws( 30) = 0.1840832861459022D-03
        ws( 31) = 0.1953457497676075D-03
        ws( 32) = 0.2074104231225003D-03
        ws( 33) = 0.2203691021005586D-03
        ws( 34) = 0.2343261482494669D-03
        ws( 35) = 0.2494006569752092D-03
        ws( 36) = 0.2657290338002405D-03
        ws( 37) = 0.2834682745232110D-03
        ws( 38) = 0.3028002223299326D-03
        ws( 39) = 0.3239355386622280D-03
        ws( 40) = 0.3471208967589899D-03
        ws( 41) = 0.3726453925692707D-03
        ws( 42) = 0.4008503427189395D-03
        ws( 43) = 0.4321409397038152D-03
        ws( 44) = 0.4670016293194702D-03
        ws( 45) = 0.5060160102796584D-03
        ws( 46) = 0.5498913780706161D-03
        ws( 47) = 0.5994932401831560D-03
        ws( 48) = 0.6558889067937054D-03
        ws( 49) = 0.7204105393930099D-03
        ws( 50) = 0.7947357230163626D-03
        ws( 51) = 0.8810068280903117D-03
        ws( 52) = 0.9819994523300182D-03
        ws( 53) = 0.1101369335897419D-02
        ws( 54) = 0.1244022874476941D-02
        ws( 55) = 0.1416677768618015D-02
        ws( 56) = 0.1628793941053318D-02
        ws( 57) = 0.1894248301710780D-02
        ws( 58) = 0.2234613158518870D-02
        ws( 59) = 0.2684134185733829D-02
        ws( 60) = 0.3297588007528637D-02
        ws( 61) = 0.4168421228776938D-02
        ws( 62) = 0.5461341564901104D-02
        ws( 63) = 0.7448756151047068D-02
        ws( 64) = 0.1047594545815215D-01
        ws( 65) = 0.1465964863927174D-01
        ws( 66) = 0.1916576324738232D-01
        ws( 67) = 0.2229461063934411D-01
        ws( 68) = 0.2350160418485177D-01
        ws( 69) = 0.2321207679983396D-01
        ws( 70) = 0.1920255881741429D-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 =  75
        err = 0.5460828089826349D-07
        xs(  1) = 0.1198080107518974D-05
        xs(  2) = 0.6312995699431578D-05
        xs(  3) = 0.1551677964148700D-04
        xs(  4) = 0.2881472268689555D-04
        xs(  5) = 0.4621262277060912D-04
        xs(  6) = 0.6771921089001839D-04
        xs(  7) = 0.9334726204495926D-04
        xs(  8) = 0.1231146306961952D-03
        xs(  9) = 0.1570452947746891D-03
        xs( 10) = 0.1951703566751504D-03
        xs( 11) = 0.2375290094733322D-03
        xs( 12) = 0.2841694600610172D-03
        xs( 13) = 0.3351497996483433D-03
        xs( 14) = 0.3905388551409019D-03
        xs( 15) = 0.4504170207739682D-03
        xs( 16) = 0.5148770970311112D-03
        xs( 17) = 0.5840251601669334D-03
        xs( 18) = 0.6579814660828550D-03
        xs( 19) = 0.7368814193772755D-03
        xs( 20) = 0.8208766332630244D-03
        xs( 21) = 0.9101360931655387D-03
        xs( 22) = 0.1004847445073856D-02
        xs( 23) = 0.1105218435532566D-02
        xs( 24) = 0.1211478516482269D-02
        xs( 25) = 0.1323880668954955D-02
        xs( 26) = 0.1442703457918766D-02
        xs( 27) = 0.1568253340074216D-02
        xs( 28) = 0.1700867306689329D-02
        xs( 29) = 0.1840915858847372D-02
        xs( 30) = 0.1988806414078438D-02
        xs( 31) = 0.2144987199133399D-02
        xs( 32) = 0.2309951633412063D-02
        xs( 33) = 0.2484243458157003D-02
        xs( 34) = 0.2668462554346543D-02
        xs( 35) = 0.2863271630190312D-02
        xs( 36) = 0.3069404016673517D-02
        xs( 37) = 0.3287672619220395D-02
        xs( 38) = 0.3518980354818558D-02
        xs( 39) = 0.3764332393011207D-02
        xs( 40) = 0.4024850390314249D-02
        xs( 41) = 0.4301789217167257D-02
        xs( 42) = 0.4596556866021496D-02
        xs( 43) = 0.4910737965630503D-02
        xs( 44) = 0.5246121760573913D-02
        xs( 45) = 0.5604735893494737D-02
        xs( 46) = 0.5988886919768983D-02
        xs( 47) = 0.6401209366445991D-02
        xs( 48) = 0.6844726151213438D-02
        xs( 49) = 0.7322922659602204D-02
        xs( 50) = 0.7839838432367036D-02
        xs( 51) = 0.8400182292500313D-02
        xs( 52) = 0.9009477203977087D-02
        xs( 53) = 0.9674245121816263D-02
        xs( 54) = 0.1040224608626212D-01
        xs( 55) = 0.1120279119606889D-01
        xs( 56) = 0.1208715871005406D-01
        xs( 57) = 0.1306915398732107D-01
        xs( 58) = 0.1416587224352463D-01
        xs( 59) = 0.1539877832367589D-01
        xs( 60) = 0.1679525107639210D-01
        xs( 61) = 0.1839088043929538D-01
        xs( 62) = 0.2023311816083654D-01
        xs( 63) = 0.2238733003662444D-01
        xs( 64) = 0.2494655900621198D-01
        xs( 65) = 0.2804724398616016D-01
        xs( 66) = 0.3189751352575002D-01
        xs( 67) = 0.3682724962063864D-01
        xs( 68) = 0.4337077692680215D-01
        xs( 69) = 0.5236902323981299D-01
        xs( 70) = 0.6494380618219117D-01
        xs( 71) = 0.8199424996615487D-01
        xs( 72) = 0.1031547492109115D+00
        xs( 73) = 0.1267359328345923D+00
        xs( 74) = 0.1510481803628581D+00
        xs( 75) = 0.1745670455646982D+00
        ws(  1) = 0.3074704289118368D-05
        ws(  2) = 0.7158204136655372D-05
        ws(  3) = 0.1125007727628154D-04
        ws(  4) = 0.1534675023203619D-04
        ws(  5) = 0.1945048704451184D-04
        ws(  6) = 0.2356480232716079D-04
        ws(  7) = 0.2769425754008469D-04
        ws(  8) = 0.3184445944134596D-04
        ws(  9) = 0.3602203484969242D-04
        ws( 10) = 0.4023460602986995D-04
        ws( 11) = 0.4449072260711612D-04
        ws( 12) = 0.4879984467386853D-04
        ws( 13) = 0.5317229082422068D-04
        ws( 14) = 0.5761920596971982D-04
        ws( 15) = 0.6215257742402758D-04
        ws( 16) = 0.6678523959770197D-04
        ws( 17) = 0.7153091389129820D-04
        ws( 18) = 0.7640424784790376D-04
        ws( 19) = 0.8142090784605026D-04
        ws( 20) = 0.8659766270291433D-04
        ws( 21) = 0.9195250684179190D-04
        ws( 22) = 0.9750479504832585D-04
        ws( 23) = 0.1032753982727779D-03
        ws( 24) = 0.1092868933968724D-03
        ws( 25) = 0.1155638012122982D-03
        ws( 26) = 0.1221328088567194D-03
        ws( 27) = 0.1290230702824294D-03
        ws( 28) = 0.1362665548193419D-03
        ws( 29) = 0.1438983867659560D-03
        ws( 30) = 0.1519573567852254D-03
        ws( 31) = 0.1604863642992754D-03
        ws( 32) = 0.1695330320268335D-03
        ws( 33) = 0.1791504856819705D-03
        ws( 34) = 0.1893980260788751D-03
        ws( 35) = 0.2003421997172653D-03
        ws( 36) = 0.2120578838649478D-03
        ws( 37) = 0.2246296037672073D-03
        ws( 38) = 0.2381531590281102D-03
        ws( 39) = 0.2527375851794741D-03
        ws( 40) = 0.2685072218709977D-03
        ws( 41) = 0.2856047062301415D-03
        ws( 42) = 0.3041942308134715D-03
        ws( 43) = 0.3244656119620525D-03
        ws( 44) = 0.3466392468747166D-03
        ws( 45) = 0.3709726308406220D-03
        ws( 46) = 0.3977675092516960D-03
        ws( 47) = 0.4273799678828378D-03
        ws( 48) = 0.4602329949599464D-03
        ws( 49) = 0.4968313613837304D-03
        ws( 50) = 0.5377826057344284D-03
        ws( 51) = 0.5838225594722272D-03
        ws( 52) = 0.6358503156315371D-03
        ws( 53) = 0.6949737170071215D-03
        ws( 54) = 0.7625732264095436D-03
        ws( 55) = 0.8403874856747326D-03
        ws( 56) = 0.9306360189528172D-03
        ws( 57) = 0.1036186062177240D-02
        ws( 58) = 0.1160802748362971D-02
        ws( 59) = 0.1309535748520292D-02
        ws( 60) = 0.1489282940028751D-02
        ws( 61) = 0.1709787073044970D-02
        ws( 62) = 0.1985422806106454D-02
        ws( 63) = 0.2338262987055635D-02
        ws( 64) = 0.2802486548029625D-02
        ws( 65) = 0.3432761098073515D-02
        ws( 66) = 0.4321406581789882D-02
        ws( 67) = 0.5625107446518782D-02
        ws( 68) = 0.7601641105912217D-02
        ws( 69) = 0.1058913994681439D-01
        ws( 70) = 0.1473208678843425D-01
        ws( 71) = 0.1931242110711462D-01
        ws( 72) = 0.2269449768607172D-01
        ws( 73) = 0.2417792288202013D-01
        ws( 74) = 0.2422066802734188D-01
        ws( 75) = 0.2075863013285125D-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 =  79
        err = 0.8066560889136327D-07
        xs(  1) = 0.1062232241852439D-05
        xs(  2) = 0.5596998399369298D-05
        xs(  3) = 0.1375613183606396D-04
        xs(  4) = 0.2554303163205487D-04
        xs(  5) = 0.4096088996834863D-04
        xs(  6) = 0.6001476278521961D-04
        xs(  7) = 0.8271246375038750D-04
        xs(  8) = 0.1090653951810400D-03
        xs(  9) = 0.1390893734596840D-03
        xs( 10) = 0.1728054341981030D-03
        xs( 11) = 0.2102405840759484D-03
        xs( 12) = 0.2514285248459146D-03
        xs( 13) = 0.2964103292223646D-03
        xs( 14) = 0.3452350774771595D-03
        xs( 15) = 0.3979604728202450D-03
        xs( 16) = 0.4546534490742568D-03
        xs( 17) = 0.5153907784630989D-03
        xs( 18) = 0.5802596959937997D-03
        xs( 19) = 0.6493585533375337D-03
        xs( 20) = 0.7227975173649734D-03
        xs( 21) = 0.8006993256389104D-03
        xs( 22) = 0.8832001129573637D-03
        xs( 23) = 0.9704503268365218D-03
        xs( 24) = 0.1062615737064704D-02
        xs( 25) = 0.1159878554256920D-02
        xs( 26) = 0.1262438696849246D-02
        xs( 27) = 0.1370515202996150D-02
        xs( 28) = 0.1484347810261737D-02
        xs( 29) = 0.1604198751414542D-02
        xs( 30) = 0.1730354742530543D-02
        xs( 31) = 0.1863129262154678D-02
        xs( 32) = 0.2002865117982641D-02
        xs( 33) = 0.2149937322046590D-02
        xs( 34) = 0.2304756420807867D-02
        xs( 35) = 0.2467772209124454D-02
        xs( 36) = 0.2639478000059464D-02
        xs( 37) = 0.2820415500044239D-02
        xs( 38) = 0.3011180382662939D-02
        xs( 39) = 0.3212428679046793D-02
        xs( 40) = 0.3424884111138982D-02
        xs( 41) = 0.3649346715291124D-02
        xs( 42) = 0.3886702581062596D-02
        xs( 43) = 0.4137935414325584D-02
        xs( 44) = 0.4404139893440911D-02
        xs( 45) = 0.4686537373331684D-02
        xs( 46) = 0.4986494367108129D-02
        xs( 47) = 0.5305544486387460D-02
        xs( 48) = 0.5645414360588116D-02
        xs( 49) = 0.6008054713597388D-02
        xs( 50) = 0.6395677632638138D-02
        xs( 51) = 0.6810801900682042D-02
        xs( 52) = 0.7256307639892544D-02
        xs( 53) = 0.7735503590794195D-02
        xs( 54) = 0.8252210130130539D-02
        xs( 55) = 0.8810862749396044D-02
        xs( 56) = 0.9416641191613931D-02
        xs( 57) = 0.1007563596788401D-01
        xs( 58) = 0.1079505979269848D-01
        xs( 59) = 0.1158352076667143D-01
        xs( 60) = 0.1245138539652492D-01
        xs( 61) = 0.1341126390120419D-01
        xs( 62) = 0.1447867371689622D-01
        xs( 63) = 0.1567296257539177D-01
        xs( 64) = 0.1701859585006386D-01
        xs( 65) = 0.1854709686123788D-01
        xs( 66) = 0.2030000411574657D-01
        xs( 67) = 0.2233375894881400D-01
        xs( 68) = 0.2472818863744701D-01
        xs( 69) = 0.2760023192595159D-01
        xs( 70) = 0.3112780973942607D-01
        xs( 71) = 0.3559219084256676D-01
        xs( 72) = 0.4144915108716926D-01
        xs( 73) = 0.4943179058625162D-01
        xs( 74) = 0.6062821324751037D-01
        xs( 75) = 0.7626999855187180D-01
        xs( 76) = 0.9678266617408890D-01
        xs( 77) = 0.1208351646757684D+00
        xs( 78) = 0.1463180727602586D+00
        xs( 79) = 0.1712495947664505D+00
        ws(  1) = 0.2726046515013710D-05
        ws(  2) = 0.6346097344820302D-05
        ws(  3) = 0.9972587431851709D-05
        ws(  4) = 0.1360172630720536D-04
        ws(  5) = 0.1723482301140778D-04
        ws(  6) = 0.2087421250013184D-04
        ws(  7) = 0.2452307444489157D-04
        ws(  8) = 0.2818540962004092D-04
        ws(  9) = 0.3186603997813967D-04
        ws( 10) = 0.3557056803138907D-04
        ws( 11) = 0.3930533700453250D-04
        ws( 12) = 0.4307738242312670D-04
        ws( 13) = 0.4689439744670379D-04
        ws( 14) = 0.5076470378579431D-04
        ws( 15) = 0.5469723231504678D-04
        ws( 16) = 0.5870150627601715D-04
        ws( 17) = 0.6278767952422239D-04
        ws( 18) = 0.6696653594378578D-04
        ws( 19) = 0.7124952898512032D-04
        ws( 20) = 0.7564884178942409D-04
        ws( 21) = 0.8017744772330097D-04
        ws( 22) = 0.8484918505862150D-04
        ws( 23) = 0.8967885425486169D-04
        ws( 24) = 0.9468231436982442D-04
        ws( 25) = 0.9987661607866988D-04
        ws( 26) = 0.1052801499516194D-03
        ws( 27) = 0.1109127905910302D-03
        ws( 28) = 0.1167960985472318D-03
        ws( 29) = 0.1229535314290616D-03
        ws( 30) = 0.1294106550092079D-03
        ws( 31) = 0.1361954730355728D-03
        ws( 32) = 0.1433386860826882D-03
        ws( 33) = 0.1508740884701769D-03
        ws( 34) = 0.1588390046806671D-03
        ws( 35) = 0.1672747084209560D-03
        ws( 36) = 0.1762270644905176D-03
        ws( 37) = 0.1857471055176231D-03
        ws( 38) = 0.1958918783819996D-03
        ws( 39) = 0.2067251878369788D-03
        ws( 40) = 0.2183188595900042D-03
        ws( 41) = 0.2307538343730931D-03
        ws( 42) = 0.2441216287097660D-03
        ws( 43) = 0.2585262180818619D-03
        ws( 44) = 0.2740859973300557D-03
        ws( 45) = 0.2909363476315341D-03
        ws( 46) = 0.3092328231185325D-03
        ws( 47) = 0.3291546677401281D-03
        ws( 48) = 0.3509095991021839D-03
        ws( 49) = 0.3747390270958128D-03
        ws( 50) = 0.4009257227022399D-03
        ws( 51) = 0.4298017111210795D-03
        ws( 52) = 0.4617598667080264D-03
        ws( 53) = 0.4972670420507801D-03
        ws( 54) = 0.5368831787660331D-03
        ws( 55) = 0.5812825800467780D-03
        ws( 56) = 0.6312859068009685D-03
        ws( 57) = 0.6879012779657348D-03
        ws( 58) = 0.7523750761996246D-03
        ws( 59) = 0.8262666487696596D-03
        ws( 60) = 0.9115535046039954D-03
        ws( 61) = 0.1010774470032511D-02
        ws( 62) = 0.1127249135469655D-02
        ws( 63) = 0.1265374522116292D-02
        ws( 64) = 0.1431098397999251D-02
        ws( 65) = 0.1632750259134774D-02
        ws( 66) = 0.1882331590595553D-02
        ws( 67) = 0.2198265636057523D-02
        ws( 68) = 0.2609705920739342D-02
        ws( 69) = 0.3163356029698914D-02
        ws( 70) = 0.3937506749568497D-02
        ws( 71) = 0.5065444868625631D-02
        ws( 72) = 0.6768791357061206D-02
        ws( 73) = 0.9379941876983156D-02
        ws( 74) = 0.1323410956056618D-01
        ws( 75) = 0.1814627648494965D-01
        ws( 76) = 0.2263203145151431D-01
        ws( 77) = 0.2510008648037635D-01
        ws( 78) = 0.2550422754205165D-01
        ws( 79) = 0.2147426264939171D-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 =  84
        err = 0.4332497975924793D-07
        xs(  1) = 0.9399428299149356D-06
        xs(  2) = 0.4952606177995851D-05
        xs(  3) = 0.1217217812548148D-04
        xs(  4) = 0.2260131356535328D-04
        xs(  5) = 0.3624220536029289D-04
        xs(  6) = 0.5309831249807577D-04
        xs(  7) = 0.7317502577963674D-04
        xs(  8) = 0.9648028855139918D-04
        xs(  9) = 0.1230252093938037D-03
        xs( 10) = 0.1528246720676914D-03
        xs( 11) = 0.1858979110540828D-03
        xs( 12) = 0.2222690671686146D-03
        xs( 13) = 0.2619677054825232D-03
        xs( 14) = 0.3050293030824135D-03
        xs( 15) = 0.3514957175011515D-03
        xs( 16) = 0.4014156324974263D-03
        xs( 17) = 0.4548450099744227D-03
        xs( 18) = 0.5118475305931462D-03
        xs( 19) = 0.5724950535221171D-03
        xs( 20) = 0.6368680932761901D-03
        xs( 21) = 0.7050563274536625D-03
        xs( 22) = 0.7771591418535710D-03
        xs( 23) = 0.8532862239530991D-03
        xs( 24) = 0.9335582138644211D-03
        xs( 25) = 0.1018107412915611D-02
        xs( 26) = 0.1107078571681095D-02
        xs( 27) = 0.1200629773969230D-02
        xs( 28) = 0.1298933404702578D-02
        xs( 29) = 0.1402177230036040D-02
        xs( 30) = 0.1510565614623417D-02
        xs( 31) = 0.1624320870035398D-02
        xs( 32) = 0.1743684778037290D-02
        xs( 33) = 0.1868920275095105D-02
        xs( 34) = 0.2000313346929780D-02
        xs( 35) = 0.2138175206069497D-02
        xs( 36) = 0.2282844663681467D-02
        xs( 37) = 0.2434690856129519D-02
        xs( 38) = 0.2594116337483588D-02
        xs( 39) = 0.2761560538779575D-02
        xs( 40) = 0.2937503720836701D-02
        xs( 41) = 0.3122471454893946D-02
        xs( 42) = 0.3317039778860398D-02
        xs( 43) = 0.3521841019950390D-02
        xs( 44) = 0.3737570538074209D-02
        xs( 45) = 0.3964994440756294D-02
        xs( 46) = 0.4204958557457765D-02
        xs( 47) = 0.4458398667431770D-02
        xs( 48) = 0.4726352595373245D-02
        xs( 49) = 0.5009974234038783D-02
        xs( 50) = 0.5310549818790677D-02
        xs( 51) = 0.5629517403370419D-02
        xs( 52) = 0.5968489640419677D-02
        xs( 53) = 0.6329280897069598D-02
        xs( 54) = 0.6713939598739128D-02
        xs( 55) = 0.7124787123693237D-02
        xs( 56) = 0.7564464738037794D-02
        xs( 57) = 0.8035990807478993D-02
        xs( 58) = 0.8542830766850159D-02
        xs( 59) = 0.9088983443612577D-02
        xs( 60) = 0.9679089044763479D-02
        xs( 61) = 0.1031856364207662D-01
        xs( 62) = 0.1101376975635692D-01
        xs( 63) = 0.1177223726599171D-01
        xs( 64) = 0.1260294981715668D-01
        xs( 65) = 0.1351672356047741D-01
        xs( 66) = 0.1452670875583332D-01
        xs( 67) = 0.1564907943620764D-01
        xs( 68) = 0.1690399688930692D-01
        xs( 69) = 0.1831697105387488D-01
        xs( 70) = 0.1992091398471154D-01
        xs( 71) = 0.2175935560176965D-01
        xs( 72) = 0.2389168983540949D-01
        xs( 73) = 0.2640146554370276D-01
        xs( 74) = 0.2940967332944613D-01
        xs( 75) = 0.3309900621929298D-01
        xs( 76) = 0.3775815017934601D-01
        xs( 77) = 0.4385542921076942D-01
        xs( 78) = 0.5213466460145926D-01
        xs( 79) = 0.6366288930414601D-01
        xs( 80) = 0.7962537700714425D-01
        xs( 81) = 0.1004808114578183D+00
        xs( 82) = 0.1250360074989782D+00
        xs( 83) = 0.1512774314604168D+00
        xs( 84) = 0.1771940375896060D+00
        ws(  1) = 0.2412207419917410D-05
        ws(  2) = 0.5615405022457538D-05
        ws(  3) = 0.8824053224945461D-05
        ws(  4) = 0.1203456769107837D-04
        ws(  5) = 0.1524778229701085D-04
        ws(  6) = 0.1846531917162888D-04
        ws(  7) = 0.2168942106262753D-04
        ws(  8) = 0.2492294507520321D-04
        ws(  9) = 0.2816936788047885D-04
        ws( 10) = 0.3143275353658446D-04
        ws( 11) = 0.3471773934636330D-04
        ws( 12) = 0.3802949283389266D-04
        ws( 13) = 0.4137368871179288D-04
        ws( 14) = 0.4475647522421334D-04
        ws( 15) = 0.4818446015147285D-04
        ws( 16) = 0.5166469069295957D-04
        ws( 17) = 0.5520466767206363D-04
        ws( 18) = 0.5881234189441061D-04
        ws( 19) = 0.6249611690429184D-04
        ws( 20) = 0.6626489908491173D-04
        ws( 21) = 0.7012812190533108D-04
        ws( 22) = 0.7409577774543818D-04
        ws( 23) = 0.7817848231502992D-04
        ws( 24) = 0.8238753421264491D-04
        ws( 25) = 0.8673497345997233D-04
        ws( 26) = 0.9123367515457098D-04
        ws( 27) = 0.9589744243448791D-04
        ws( 28) = 0.1007410921237216D-03
        ws( 29) = 0.1057805962953238D-03
        ws( 30) = 0.1110331996837397D-03
        ws( 31) = 0.1165175805330168D-03
        ws( 32) = 0.1222540269406289D-03
        ws( 33) = 0.1282645932223109D-03
        ws( 34) = 0.1345733801574624D-03
        ws( 35) = 0.1412067611782487D-03
        ws( 36) = 0.1481936246509714D-03
        ws( 37) = 0.1555657955144662D-03
        ws( 38) = 0.1633583391562973D-03
        ws( 39) = 0.1716100331493504D-03
        ws( 40) = 0.1803638391012770D-03
        ws( 41) = 0.1896675404627790D-03
        ws( 42) = 0.1995743825015925D-03
        ws( 43) = 0.2101438673172402D-03
        ws( 44) = 0.2214427019060746D-03
        ws( 45) = 0.2335459085818729D-03
        ws( 46) = 0.2465380868271114D-03
        ws( 47) = 0.2605148732915419D-03
        ws( 48) = 0.2755850329981936D-03
        ws( 49) = 0.2918722921601618D-03
        ws( 50) = 0.3095181776801248D-03
        ws( 51) = 0.3286853151621144D-03
        ws( 52) = 0.3495610210662438D-03
        ws( 53) = 0.3723622491791451D-03
        ws( 54) = 0.3973412782222308D-03
        ws( 55) = 0.4247930305827789D-03
        ws( 56) = 0.4550641028236706D-03
        ws( 57) = 0.4885641833131137D-03
        ws( 58) = 0.5257804144622909D-03
        ws( 59) = 0.5672960821831961D-03
        ws( 60) = 0.6138150031831053D-03
        ws( 61) = 0.6661909396575789D-03
        ws( 62) = 0.7254715875044045D-03
        ws( 63) = 0.7929544229196311D-03
        ws( 64) = 0.8702651959492981D-03
        ws( 65) = 0.9594627053671756D-03
        ws( 66) = 0.1063187500746452D-02
        ws( 67) = 0.1184892180056493D-02
        ws( 68) = 0.1329161028082733D-02
        ws( 69) = 0.1502221388829563D-02
        ws( 70) = 0.1712834472290475D-02
        ws( 71) = 0.1973811839498187D-02
        ws( 72) = 0.2304575792453450D-02
        ws( 73) = 0.2734757988905524D-02
        ws( 74) = 0.3311393423411006D-02
        ws( 75) = 0.4114168238834437D-02
        ws( 76) = 0.5280419285142977D-02
        ws( 77) = 0.7036912749764447D-02
        ws( 78) = 0.9701660455858635D-02
        ws( 79) = 0.1356614301878862D-01
        ws( 80) = 0.1845976449124589D-01
        ws( 81) = 0.2303159903227070D-01
        ws( 82) = 0.2572008689018621D-01
        ws( 83) = 0.2649587306812935D-01
        ws( 84) = 0.2359981775564952D-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 =  21
        err = 0.6579340158246253D-07
        xs(  1) = 0.4637083107876522D-03
        xs(  2) = 0.2384140022922782D-02
        xs(  3) = 0.5643369331013447D-02
        xs(  4) = 0.1002207587762935D-01
        xs(  5) = 0.1532659304204833D-01
        xs(  6) = 0.2140116231484598D-01
        xs(  7) = 0.2812174638937155D-01
        xs(  8) = 0.3538876984870024D-01
        xs(  9) = 0.4312203196306403D-01
        xs( 10) = 0.5125715045892494D-01
        xs( 11) = 0.5974279421896771D-01
        xs( 12) = 0.6853840194279777D-01
        xs( 13) = 0.7761231958636441D-01
        xs( 14) = 0.8694034903765700D-01
        xs( 15) = 0.9650471000952884D-01
        xs( 16) = 0.1062934341261382D+00
        xs( 17) = 0.1163002583663217D+00
        xs( 18) = 0.1265252530047777D+00
        xs( 19) = 0.1369766561354468D+00
        xs( 20) = 0.1476786268368647D+00
        xs( 21) = 0.1587251861697396D+00
        ws(  1) = 0.1182735298435786D-02
        ws(  2) = 0.2626439106223638D-02
        ws(  3) = 0.3854405953695697D-02
        ws(  4) = 0.4870628621407263D-02
        ws(  5) = 0.5712584028853855D-02
        ws(  6) = 0.6416006242547151D-02
        ws(  7) = 0.7008648244227803D-02
        ws(  8) = 0.7512089794556866D-02
        ws(  9) = 0.7943750696981333D-02
        ws( 10) = 0.8317971923953883D-02
        ws( 11) = 0.8646593994337901D-02
        ws( 12) = 0.8939390408943834D-02
        ws( 13) = 0.9204485298847207D-02
        ws( 14) = 0.9448776699751200D-02
        ws( 15) = 0.9678401204268579D-02
        ws( 16) = 0.9899336463518225D-02
        ws( 17) = 0.1011852243128946D-01
        ws( 18) = 0.1034690966424137D-01
        ws( 19) = 0.1061055834096379D-01
        ws( 20) = 0.1102173850547174D-01
        ws( 21) = 0.1260141697166081D-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 =  21
        err = 0.7397600096454226D-07
        xs(  1) = 0.4500192361215244D-03
        xs(  2) = 0.2321997044994482D-02
        xs(  3) = 0.5520790171748027D-02
        xs(  4) = 0.9844466308025612D-02
        xs(  5) = 0.1510480889136360D-01
        xs(  6) = 0.2114554669887047D-01
        xs(  7) = 0.2784057305022285D-01
        xs(  8) = 0.3508831630179342D-01
        xs(  9) = 0.4280700058594785D-01
        xs( 10) = 0.5093105781860126D-01
        xs( 11) = 0.5940826365683813D-01
        xs( 12) = 0.6819737074821997D-01
        xs( 13) = 0.7726618170373685D-01
        xs( 14) = 0.8659004694984992D-01
        xs( 15) = 0.9615078536962023D-01
        xs( 16) = 0.1059360446079178D+00
        xs( 17) = 0.1159391433195798D+00
        xs( 18) = 0.1261596375041098D+00
        xs( 19) = 0.1366050491240083D+00
        xs( 20) = 0.1472980720389430D+00
        xs( 21) = 0.1583286702436771D+00
        ws(  1) = 0.1148933872801261D-02
        ws(  2) = 0.2567957385808675D-02
        ws(  3) = 0.3794933575424630D-02
        ws(  4) = 0.4820820524149483D-02
        ws(  5) = 0.5673885659869043D-02
        ws(  6) = 0.6386674075358104D-02
        ws(  7) = 0.6986528622747892D-02
        ws(  8) = 0.7495387863796604D-02
        ws(  9) = 0.7931101416594305D-02
        ws( 10) = 0.8308351768546073D-02
        ws( 11) = 0.8639225897985384D-02
        ws( 12) = 0.8933669309270495D-02
        ws( 13) = 0.9199922418022087D-02
        ws( 14) = 0.9444952755039508D-02
        ws( 15) = 0.9674931433468354D-02
        ws( 16) = 0.9895837810838802D-02
        ws( 17) = 0.1011456640337940D-01
        ws( 18) = 0.1034197743211892D-01
        ws( 19) = 0.1060386215432075D-01
        ws( 20) = 0.1101033544885595D-01
        ws( 21) = 0.1259047833995141D-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 =  21
        err = 0.9512011042330312D-07
        xs(  1) = 0.4313505385042892D-03
        xs(  2) = 0.2236754223123758D-02
        xs(  3) = 0.5349849911076694D-02
        xs(  4) = 0.9590188494656598D-02
        xs(  5) = 0.1477724154262762D-01
        xs(  6) = 0.2075604143781158D-01
        xs(  7) = 0.2739977281561829D-01
        xs(  8) = 0.3460555376518014D-01
        xs(  9) = 0.4229011802808442D-01
        xs( 10) = 0.5038641544349158D-01
        xs( 11) = 0.5884085548585752D-01
        xs( 12) = 0.6761098396963065D-01
        xs( 13) = 0.7666356130150292D-01
        xs( 14) = 0.8597302707267158D-01
        xs( 15) = 0.9552039039413605D-01
        xs( 16) = 0.1052925667008175D+00
        xs( 17) = 0.1152820880129090D+00
        xs( 18) = 0.1254877361231936D+00
        xs( 19) = 0.1359163440108339D+00
        xs( 20) = 0.1465884476153122D+00
        xs( 21) = 0.1575955309457091D+00
        ws(  1) = 0.1102799781657367D-02
        ws(  2) = 0.2486821922744914D-02
        ws(  3) = 0.3708230655577714D-02
        ws(  4) = 0.4741977448114907D-02
        ws(  5) = 0.5606300325399011D-02
        ws(  6) = 0.6330247570606612D-02
        ws(  7) = 0.6940141931725215D-02
        ws(  8) = 0.7457599839387192D-02
        ws(  9) = 0.7900402335317028D-02
        ws( 10) = 0.8283305783318987D-02
        ws( 11) = 0.8618543974808886D-02
        ws( 12) = 0.8916230463061624D-02
        ws( 13) = 0.9184762346021549D-02
        ws( 14) = 0.9431218650535650D-02
        ws( 15) = 0.9661878910078052D-02
        ws( 16) = 0.9882769432592685D-02
        ws( 17) = 0.1010075947049476D-01
        ws( 18) = 0.1032703977783470D-01
        ws( 19) = 0.1058746394321993D-01
        ws( 20) = 0.1098911288817641D-01
        ws( 21) = 0.1259993400587797D-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 =  22
        err = 0.4314183243787831D-07
        xs(  1) = 0.3661364491067199D-03
        xs(  2) = 0.1921106068168182D-02
        xs(  3) = 0.4670797994981671D-02
        xs(  4) = 0.8514947174248812D-02
        xs(  5) = 0.1332037314380297D-01
        xs(  6) = 0.1895112898703542D-01
        xs(  7) = 0.2528411613690385D-01
        xs(  8) = 0.3221375654461323D-01
        xs(  9) = 0.3965200944541496D-01
        xs( 10) = 0.4752678562625412D-01
        xs( 11) = 0.5577985785923265D-01
        xs( 12) = 0.6436471838750671D-01
        xs( 13) = 0.7324462508933025D-01
        xs( 14) = 0.8239095974548050D-01
        xs( 15) = 0.9178196029939623D-01
        xs( 16) = 0.1014018238197902D+00
        xs( 17) = 0.1112402483763300D+00
        xs( 18) = 0.1212925355746773D+00
        xs( 19) = 0.1315602704187958D+00
        xs( 20) = 0.1420539482567037D+00
        xs( 21) = 0.1527954515491797D+00
        xs( 22) = 0.1640031235524303D+00
        ws(  1) = 0.9389414088754675D-03
        ws(  2) = 0.2164549574155030D-02
        ws(  3) = 0.3317567250011706D-02
        ws(  4) = 0.4347992594842264D-02
        ws(  5) = 0.5239960080435766D-02
        ws(  6) = 0.6000973386514770D-02
        ws(  7) = 0.6647410696379743D-02
        ws(  8) = 0.7197225365201423D-02
        ws(  9) = 0.7667301760668161D-02
        ws( 10) = 0.8072583488167494D-02
        ws( 11) = 0.8425845376799976D-02
        ws( 12) = 0.8737786568179768D-02
        ws( 13) = 0.9017295688800497D-02
        ws( 14) = 0.9271809092591603D-02
        ws( 15) = 0.9507704192682454D-02
        ws( 16) = 0.9730711622363278D-02
        ws( 17) = 0.9946556496766528D-02
        ws( 18) = 0.1016201418443487D-01
        ws( 19) = 0.1038767586340160D-01
        ws( 20) = 0.1065114172487440D-01
        ws( 21) = 0.1103614811746210D-01
        ws( 22) = 0.1300451660788525D-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 =  22
        err = 0.5131854367834316D-07
        xs(  1) = 0.3165616052896407D-03
        xs(  2) = 0.1680058251820896D-02
        xs(  3) = 0.4150623568647818D-02
        xs(  4) = 0.7691937325420895D-02
        xs(  5) = 0.1221256536684709D-01
        xs(  6) = 0.1759662040168754D-01
        xs(  7) = 0.2372635543739136D-01
        xs(  8) = 0.3049323834724220D-01
        xs(  9) = 0.3780266068709150D-01
        xs( 10) = 0.4557525716967735D-01
        xs( 11) = 0.5374624441120166D-01
        xs( 12) = 0.6226375404495826D-01
        xs( 13) = 0.7108686599724098D-01
        xs( 14) = 0.8018378003232678D-01
        xs( 15) = 0.8953032429099746D-01
        xs( 16) = 0.9910886771386831D-01
        xs( 17) = 0.1089077776547771D+00
        xs( 18) = 0.1189213506954739D+00
        xs( 19) = 0.1291505198473532D+00
        xs( 20) = 0.1396059165482348D+00
        xs( 21) = 0.1503154069719305D+00
        xs( 22) = 0.1614536299321190D+00
        ws(  1) = 0.8141869820157428D-03
        ws(  2) = 0.1917386769972620D-02
        ws(  3) = 0.3017537497047180D-02
        ws(  4) = 0.4049241981337379D-02
        ws(  5) = 0.4972331325627151D-02
        ws(  6) = 0.5775984163817094D-02
        ws(  7) = 0.6465325019653360D-02
        ws(  8) = 0.7052653890319799D-02
        ws(  9) = 0.7552977269779749D-02
        ws( 10) = 0.7981449369697403D-02
        ws( 11) = 0.8351917547621407D-02
        ws( 12) = 0.8676321031070577D-02
        ws( 13) = 0.8964649674528752D-02
        ws( 14) = 0.9225228422075675D-02
        ws( 15) = 0.9465094588929227D-02
        ws( 16) = 0.9690514709666691D-02
        ws( 17) = 0.9907700260751880D-02
        ws( 18) = 0.1012378612223735D-01
        ws( 19) = 0.1035036047930722D-01
        ws( 20) = 0.1061554451443268D-01
        ws( 21) = 0.1103525759730024D-01
        ws( 22) = 0.1278370110611505D-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 =  23
        err = 0.6772388131909646D-07
        xs(  1) = 0.2085196299262885D-03
        xs(  2) = 0.1131196642707812D-02
        xs(  3) = 0.2902974437471970D-02
        xs(  4) = 0.5634416480091871D-02
        xs(  5) = 0.9358717390606532D-02
        xs(  6) = 0.1402264948057338D-01
        xs(  7) = 0.1952692724249681D-01
        xs(  8) = 0.2576039039266446D-01
        xs(  9) = 0.3261706354896383D-01
        xs( 10) = 0.4000373353444250D-01
        xs( 11) = 0.4784259970878358D-01
        xs( 12) = 0.5607086544744240D-01
        xs( 13) = 0.6463883158206905D-01
        xs( 14) = 0.7350764886132798D-01
        xs( 15) = 0.8264734503928577D-01
        xs( 16) = 0.9203514580948337D-01
        xs( 17) = 0.1016546436807125D+00
        xs( 18) = 0.1114950206455973D+00
        xs( 19) = 0.1215501605697994D+00
        xs( 20) = 0.1318227800309610D+00
        xs( 21) = 0.1423242770296073D+00
        xs( 22) = 0.1530546699038465D+00
        xs( 23) = 0.1642046327094789D+00
        ws(  1) = 0.5390164895775825D-03
        ws(  2) = 0.1325777174332336D-02
        ws(  3) = 0.2237842893632924D-02
        ws(  4) = 0.3230597720690698D-02
        ws(  5) = 0.4208297394047475D-02
        ws(  6) = 0.5102445424550891D-02
        ws(  7) = 0.5887324574970400D-02
        ws(  8) = 0.6561821938228805D-02
        ws(  9) = 0.7135948443919715D-02
        ws( 10) = 0.7624437165577885D-02
        ws( 11) = 0.8042866180073754D-02
        ws( 12) = 0.8405427257676071D-02
        ws( 13) = 0.8724073012020670D-02
        ws( 14) = 0.9008623928508794D-02
        ws( 15) = 0.9267059155993709D-02
        ws( 16) = 0.9506009538370859D-02
        ws( 17) = 0.9731718329240892D-02
        ws( 18) = 0.9949282233755434D-02
        ws( 19) = 0.1016568249676226D-01
        ws( 20) = 0.1039680845937062D-01
        ws( 21) = 0.1065918362688896D-01
        ws( 22) = 0.1100872111158973D-01
        ws( 23) = 0.1294684656895464D-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 =  23
        err = 0.8373490832146259D-07
        xs(  1) = 0.1519161571587698D-03
        xs(  2) = 0.8282351268126017D-03
        xs(  3) = 0.2159041797768416D-02
        xs(  4) = 0.4327881092214091D-02
        xs(  5) = 0.7525416835938849D-02
        xs(  6) = 0.1182953065491247D-01
        xs(  7) = 0.1715560962380863D-01
        xs(  8) = 0.2333561595611926D-01
        xs(  9) = 0.3020628248669873D-01
        xs( 10) = 0.3763893985134658D-01
        xs( 11) = 0.4553733264872402D-01
        xs( 12) = 0.5382945678736758D-01
        xs( 13) = 0.6246091540172473D-01
        xs( 14) = 0.7139034233618576D-01
        xs( 15) = 0.8058629010104244D-01
        xs( 16) = 0.9002513082158634D-01
        xs( 17) = 0.9968964995239246D-01
        xs( 18) = 0.1095682406741733D+00
        xs( 19) = 0.1196547583703360D+00
        xs( 20) = 0.1299489946634309D+00
        xs( 21) = 0.1404570293142363D+00
        xs( 22) = 0.1511873680369506D+00
        xs( 23) = 0.1622731452897022D+00
        ws(  1) = 0.3930144204417813D-03
        ws(  2) = 0.9781599118584118D-03
        ws(  3) = 0.1715080582396746D-02
        ws(  4) = 0.2656771655211042D-02
        ws(  5) = 0.3752354567569822D-02
        ws(  6) = 0.4839975418259486D-02
        ws(  7) = 0.5782567448444121D-02
        ws(  8) = 0.6549851144614137D-02
        ws(  9) = 0.7170134004631375D-02
        ws( 10) = 0.7679286791229782D-02
        ws( 11) = 0.8105609776849343D-02
        ws( 12) = 0.8469649160872983D-02
        ws( 13) = 0.8786430619347229D-02
        ws( 14) = 0.9067236018254638D-02
        ws( 15) = 0.9320807447806048D-02
        ws( 16) = 0.9554183117093442D-02
        ws( 17) = 0.9773320387608727D-02
        ws( 18) = 0.9983956649856447D-02
        ws( 19) = 0.1019305090123309D-01
        ws( 20) = 0.1041131184703219D-01
        ws( 21) = 0.1065930360943396D-01
        ws( 22) = 0.1102031435396940D-01
        ws( 23) = 0.1264297719801121D-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 =  25
        err = 0.8098446277047803D-07
        xs(  1) = 0.7412082381947665D-04
        xs(  2) = 0.3993073494654829D-03
        xs(  3) = 0.1022313240047537D-02
        xs(  4) = 0.2017020503497400D-02
        xs(  5) = 0.3507743133336047D-02
        xs(  6) = 0.5679250177662256D-02
        xs(  7) = 0.8757090982518532D-02
        xs(  8) = 0.1292030877411246D-01
        xs(  9) = 0.1818391299946361D-01
        xs( 10) = 0.2439813829086171D-01
        xs( 11) = 0.3136480493707626D-01
        xs( 12) = 0.3891905728149095D-01
        xs( 13) = 0.4694289262012804D-01
        xs( 14) = 0.5535388731597480D-01
        xs( 15) = 0.6409335639169078D-01
        xs( 16) = 0.7311851161067671D-01
        xs( 17) = 0.8239773637634255D-01
        xs( 18) = 0.9190774607927846D-01
        xs( 19) = 0.1016317979799597D+00
        xs( 20) = 0.1115593249074458D+00
        xs( 21) = 0.1216843359263114D+00
        xs( 22) = 0.1320072978285217D+00
        xs( 23) = 0.1425438965613648D+00
        xs( 24) = 0.1532735598022846D+00
        xs( 25) = 0.1641684781817861D+00
        ws(  1) = 0.1911981173035329D-03
        ws(  2) = 0.4652540592643831D-03
        ws(  3) = 0.7928307945068499D-03
        ws(  4) = 0.1217077931056347D-02
        ws(  5) = 0.1795364287911051D-02
        ws(  6) = 0.2586719743997819D-02
        ws(  7) = 0.3601288559085283D-02
        ws(  8) = 0.4727674517921464D-02
        ws(  9) = 0.5772070845241797D-02
        ws( 10) = 0.6621986611403447D-02
        ws( 11) = 0.7283786164796286D-02
        ws( 12) = 0.7805289753445115D-02
        ws( 13) = 0.8228849150139748D-02
        ws( 14) = 0.8583492734483661D-02
        ws( 15) = 0.8888402826925558D-02
        ws( 16) = 0.9156704593565459D-02
        ws( 17) = 0.9397966872621982D-02
        ws( 18) = 0.9619477557296830D-02
        ws( 19) = 0.9827448017887343D-02
        ws( 20) = 0.1002790046030304D-01
        ws( 21) = 0.1022587000455752D-01
        ws( 22) = 0.1044038188196973D-01
        ws( 23) = 0.1069622402569720D-01
        ws( 24) = 0.1097580647316344D-01
        ws( 25) = 0.1222629073934039D-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 =  29
        err = 0.5166822159259991D-07
        xs(  1) = 0.2926393293867889D-04
        xs(  2) = 0.1556295393855595D-03
        xs(  3) = 0.3890803301049226D-03
        xs(  4) = 0.7411037449000873D-03
        xs(  5) = 0.1230475054947230D-02
        xs(  6) = 0.1886101375834404D-02
        xs(  7) = 0.2751439648080926D-02
        xs(  8) = 0.3891356406466115D-02
        xs(  9) = 0.5402437704825662D-02
        xs( 10) = 0.7426954416152819D-02
        xs( 11) = 0.1016585670342635D-01
        xs( 12) = 0.1387025590178548D-01
        xs( 13) = 0.1876436147916701D-01
        xs( 14) = 0.2489264133222331D-01
        xs( 15) = 0.3206668036023499D-01
        xs( 16) = 0.4001198092154681D-01
        xs( 17) = 0.4850598192409747D-01
        xs( 18) = 0.5740420315819114D-01
        xs( 19) = 0.6661851251673610D-01
        xs( 20) = 0.7609466365160523D-01
        xs( 21) = 0.8579824193424666D-01
        xs( 22) = 0.9570694681807489D-01
        xs( 23) = 0.1058063083869829D+00
        xs( 24) = 0.1160882875553085D+00
        xs( 25) = 0.1265498477488716D+00
        xs( 26) = 0.1371921932409093D+00
        xs( 27) = 0.1480311774061274D+00
        xs( 28) = 0.1590037801581413D+00
        xs( 29) = 0.1698842231960789D+00
        ws(  1) = 0.7526279268945677D-04
        ws(  2) = 0.1784935151940950D-03
        ws(  3) = 0.2902907262351947D-03
        ws(  4) = 0.4168395262779555D-03
        ws(  5) = 0.5666493552205114D-03
        ws(  6) = 0.7517344163955115D-03
        ws(  7) = 0.9895831424834643D-03
        ws(  8) = 0.1306108453936134D-02
        ws(  9) = 0.1739508606678058D-02
        ws( 10) = 0.2343036081630168D-02
        ws( 11) = 0.3177773949176354D-02
        ws( 12) = 0.4271462907098634D-02
        ws( 13) = 0.5525538408755979D-02
        ws( 14) = 0.6696296028796418D-02
        ws( 15) = 0.7603546896095874D-02
        ws( 16) = 0.8249773950353916D-02
        ws( 17) = 0.8714611419194440D-02
        ws( 18) = 0.9067526387830215D-02
        ws( 19) = 0.9352274171605553D-02
        ws( 20) = 0.9594406025476983D-02
        ws( 21) = 0.9809103008496405D-02
        ws( 22) = 0.1000601194129982D-01
        ws( 23) = 0.1019178460609323D-01
        ws( 24) = 0.1037281481480201D-01
        ws( 25) = 0.1055130394106405D-01
        ws( 26) = 0.1074213192995916D-01
        ws( 27) = 0.1099200211816455D-01
        ws( 28) = 0.1125454275758104D-01
        ws( 29) = 0.1163781011771558D-01
        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 =  31
        err = 0.9042108690110242D-07
        xs(  1) = 0.1635618323697092D-04
        xs(  2) = 0.8659255877662661D-04
        xs(  3) = 0.2146916115249995D-03
        xs(  4) = 0.4038751532501538D-03
        xs(  5) = 0.6592306266213220D-03
        xs(  6) = 0.9882548124172407D-03
        xs(  7) = 0.1401598277983845D-02
        xs(  8) = 0.1914136664126770D-02
        xs(  9) = 0.2546551556985889D-02
        xs( 10) = 0.3327713534363079D-02
        xs( 11) = 0.4298351387522844D-02
        xs( 12) = 0.5516788336478765D-02
        xs( 13) = 0.7067957722907448D-02
        xs( 14) = 0.9077458647590079D-02
        xs( 15) = 0.1173217440556961D-01
        xs( 16) = 0.1530476258609632D-01
        xs( 17) = 0.2015680105172504D-01
        xs( 18) = 0.2662656182911493D-01
        xs( 19) = 0.3473625818619096D-01
        xs( 20) = 0.4408608427130873D-01
        xs( 21) = 0.5417746963793713D-01
        xs( 22) = 0.6466855808839712D-01
        xs( 23) = 0.7537981957354115D-01
        xs( 24) = 0.8622824451935579D-01
        xs( 25) = 0.9717931738643812D-01
        xs( 26) = 0.1082213306792793D+00
        xs( 27) = 0.1193542438857115D+00
        xs( 28) = 0.1305789709496158D+00
        xs( 29) = 0.1418910458424714D+00
        xs( 30) = 0.1532257650262782D+00
        xs( 31) = 0.1641870783706159D+00
        ws(  1) = 0.4202183394318233D-04
        ws(  2) = 0.9876228387752973D-04
        ws(  3) = 0.1579647860201128D-03
        ws(  4) = 0.2212414825583743D-03
        ws(  5) = 0.2907067905724743D-03
        ws(  6) = 0.3690992633695529D-03
        ws(  7) = 0.4600412555401870D-03
        ws(  8) = 0.5684438451773351D-03
        ws(  9) = 0.7011383626771757D-03
        ws( 10) = 0.8678809129121101D-03
        ws( 11) = 0.1082969453329302D-02
        ws( 12) = 0.1367830409359199D-02
        ws( 13) = 0.1755096564762157D-02
        ws( 14) = 0.2294605768308436D-02
        ws( 15) = 0.3060008880397411D-02
        ws( 16) = 0.4146858741773134D-02
        ws( 17) = 0.5619507250593179D-02
        ws( 18) = 0.7326805105253204D-02
        ws( 19) = 0.8818335156521221D-02
        ws( 20) = 0.9793803598631072D-02
        ws( 21) = 0.1033253247636592D-01
        ws( 22) = 0.1062099116701369D-01
        ws( 23) = 0.1078849603085512D-01
        ws( 24) = 0.1090294204362069D-01
        ws( 25) = 0.1099700208181793D-01
        ws( 26) = 0.1108600835628272D-01
        ws( 27) = 0.1118045189884632D-01
        ws( 28) = 0.1128599226518660D-01
        ws( 29) = 0.1142210092427140D-01
        ws( 30) = 0.1134472334464960D-01
        ws( 31) = 0.9729617856619924D-02
        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 =  35
        err = 0.6894495394204913D-07
        xs(  1) = 0.1023035537775265D-04
        xs(  2) = 0.5405300338865389D-04
        xs(  3) = 0.1335205939268280D-03
        xs(  4) = 0.2497873871489384D-03
        xs(  5) = 0.4046291253344339D-03
        xs(  6) = 0.6005920404324923D-03
        xs(  7) = 0.8411703310180864D-03
        xs(  8) = 0.1131035455797112D-02
        xs(  9) = 0.1476340618043683D-02
        xs( 10) = 0.1885134250285124D-02
        xs( 11) = 0.2367933964595955D-02
        xs( 12) = 0.2938537793510391D-02
        xs( 13) = 0.3615192379335576D-02
        xs( 14) = 0.4422303252500822D-02
        xs( 15) = 0.5392988541247328D-02
        xs( 16) = 0.6572965430941792D-02
        xs( 17) = 0.8026561061668361D-02
        xs( 18) = 0.9846177464601993D-02
        xs( 19) = 0.1216723620334295D-01
        xs( 20) = 0.1519096434452040D-01
        xs( 21) = 0.1921445367244798D-01
        xs( 22) = 0.2464620452332771D-01
        xs( 23) = 0.3190649680542325D-01
        xs( 24) = 0.4109654840570380D-01
        xs( 25) = 0.5178399100203933D-01
        xs( 26) = 0.6333083810377374D-01
        xs( 27) = 0.7526884927018855D-01
        xs( 28) = 0.8735210387232357D-01
        xs( 29) = 0.9947460082993625D-01
        xs( 30) = 0.1116000441667246D+00
        xs( 31) = 0.1237238477722631D+00
        xs( 32) = 0.1358483592651499D+00
        xs( 33) = 0.1479664736457126D+00
        xs( 34) = 0.1600487970493712D+00
        xs( 35) = 0.1714963188027685D+00
        ws(  1) = 0.2627134559280767D-04
        ws(  2) = 0.6149669481934340D-04
        ws(  3) = 0.9762788415997300D-04
        ws(  4) = 0.1351993228075967D-03
        ws(  5) = 0.1749056039584620D-03
        ws(  6) = 0.2175988291466993D-03
        ws(  7) = 0.2643313301078878D-03
        ws(  8) = 0.3164176839784367D-03
        ws(  9) = 0.3755246536285796D-03
        ws( 10) = 0.4438023024982504D-03
        ws( 11) = 0.5240777572042595D-03
        ws( 12) = 0.6201431816720222D-03
        ws( 13) = 0.7371921497788610D-03
        ws( 14) = 0.8824863056770348D-03
        ws( 15) = 0.1066406663979411D-02
        ws( 16) = 0.1304115508543447D-02
        ws( 17) = 0.1618233327254994D-02
        ws( 18) = 0.2043192994736210D-02
        ws( 19) = 0.2631933188485542D-02
        ws( 20) = 0.3464575604370195D-02
        ws( 21) = 0.4651584272875962D-02
        ws( 22) = 0.6288271968727516D-02
        ws( 23) = 0.8254822667357581D-02
        ws( 24) = 0.1004550568857122D-01
        ws( 25) = 0.1121590629544229D-01
        ws( 26) = 0.1179968654956251D-01
        ws( 27) = 0.1203701173782658D-01
        ws( 28) = 0.1211287350097058D-01
        ws( 29) = 0.1212609397178070D-01
        ws( 30) = 0.1212273016028723D-01
        ws( 31) = 0.1212692844813072D-01
        ws( 32) = 0.1215267156742511D-01
        ws( 33) = 0.1219267848705652D-01
        ws( 34) = 0.1213589825376158D-01
        ws( 35) = 0.1059177442611854D-01
        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 =  38
        err = 0.8297141273391069D-07
        xs(  1) = 0.7165237821154863D-05
        xs(  2) = 0.3781923006801892D-04
        xs(  3) = 0.9324409186048233D-04
        xs(  4) = 0.1739507650915355D-03
        xs(  5) = 0.2807149654137471D-03
        xs(  6) = 0.4146393950826839D-03
        xs(  7) = 0.5772189091139354D-03
        xs(  8) = 0.7704178959453086D-03
        xs(  9) = 0.9967648163421350D-03
        xs( 10) = 0.1259471006974547D-02
        xs( 11) = 0.1562583392373566D-02
        xs( 12) = 0.1911185202603850D-02
        xs( 13) = 0.2311663343249656D-02
        xs( 14) = 0.2772071035798147D-02
        xs( 15) = 0.3302625692624444D-02
        xs( 16) = 0.3916402864823245D-02
        xs( 17) = 0.4630321448781802D-02
        xs( 18) = 0.5466563229717829D-02
        xs( 19) = 0.6454665746333777D-02
        xs( 20) = 0.7634676002296403D-02
        xs( 21) = 0.9061997005078712D-02
        xs( 22) = 0.1081504192905841D-01
        xs( 23) = 0.1300760911771788D-01
        xs( 24) = 0.1580889267504699D-01
        xs( 25) = 0.1947485359952088D-01
        xs( 26) = 0.2439019870688281D-01
        xs( 27) = 0.3107659610821680D-01
        xs( 28) = 0.3999764499411065D-01
        xs( 29) = 0.5109045925527326D-01
        xs( 30) = 0.6366424689354654D-01
        xs( 31) = 0.7694823515465610D-01
        xs( 32) = 0.9045904307029320D-01
        xs( 33) = 0.1039728064451141D+00
        xs( 34) = 0.1174072274293925D+00
        xs( 35) = 0.1307407072879336D+00
        xs( 36) = 0.1439615932686952D+00
        xs( 37) = 0.1569888349118982D+00
        xs( 38) = 0.1694132672556254D+00
        ws(  1) = 0.1839578578111864D-04
        ws(  2) = 0.4297248860035442D-04
        ws(  3) = 0.6796078150606752D-04
        ws(  4) = 0.9358090699338445D-04
        ws(  5) = 0.1201302003856902D-03
        ws(  6) = 0.1479665232963327D-03
        ws(  7) = 0.1775183484568789D-03
        ws(  8) = 0.2092990759610476D-03
        ws(  9) = 0.2439274778470082D-03
        ws( 10) = 0.2821560855358270D-03
        ws( 11) = 0.3249115012023833D-03
        ws( 12) = 0.3733506533690194D-03
        ws( 13) = 0.4289396580925056D-03
        ws( 14) = 0.4935672954993186D-03
        ws( 15) = 0.5697051578740211D-03
        ws( 16) = 0.6606459106188730D-03
        ws( 17) = 0.7708542146817140D-03
        ws( 18) = 0.9065011099113617D-03
        ws( 19) = 0.1076300171466949D-02
        ws( 20) = 0.1292831035716141D-02
        ws( 21) = 0.1574680576142479D-02
        ws( 22) = 0.1950051570377296D-02
        ws( 23) = 0.2462767631434647D-02
        ws( 24) = 0.3181700151061772D-02
        ws( 25) = 0.4213801264662304D-02
        ws( 26) = 0.5706400469491560D-02
        ws( 27) = 0.7753472089041771D-02
        ws( 28) = 0.1008145449073398D-01
        ws( 29) = 0.1197628505916026D-01
        ws( 30) = 0.1303673494325774D-01
        ws( 31) = 0.1345216394847139D-01
        ws( 32) = 0.1353430456316897D-01
        ws( 33) = 0.1348122860857846D-01
        ws( 34) = 0.1338877821313044D-01
        ws( 35) = 0.1329254382795730D-01
        ws( 36) = 0.1317723265114537D-01
        ws( 37) = 0.1278266398252275D-01
        ws( 38) = 0.1021875683347045D-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 =  42
        err = 0.6621620858475068D-07
        xs(  1) = 0.5263358108148541D-05
        xs(  2) = 0.2776443404300212D-04
        xs(  3) = 0.6837969133964791D-04
        xs(  4) = 0.1273598166674723D-03
        xs(  5) = 0.2050798412057585D-03
        xs(  6) = 0.3020699909096866D-03
        xs(  7) = 0.4190444471936283D-03
        xs(  8) = 0.5569335046197519D-03
        xs(  9) = 0.7169202890646800D-03
        xs( 10) = 0.9004838248236177D-03
        xs( 11) = 0.1109450785716170D-02
        xs( 12) = 0.1346059307860875D-02
        xs( 13) = 0.1613039055105144D-02
        xs( 14) = 0.1913713123560201D-02
        xs( 15) = 0.2252129627971716D-02
        xs( 16) = 0.2633232995749659D-02
        xs( 17) = 0.3063089825133170D-02
        xs( 18) = 0.3549189948962285D-02
        xs( 19) = 0.4100853564174557D-02
        xs( 20) = 0.4729787310845198D-02
        xs( 21) = 0.5450859292745291D-02
        xs( 22) = 0.6283195572094545D-02
        xs( 23) = 0.7251763091872402D-02
        xs( 24) = 0.8389707360581412D-02
        xs( 25) = 0.9741878587493190D-02
        xs( 26) = 0.1137029616408882D-01
        xs( 27) = 0.1336291156863954D-01
        xs( 28) = 0.1584809674724895D-01
        xs( 29) = 0.1901864330580999D-01
        xs( 30) = 0.2317024731696689D-01
        xs( 31) = 0.2875191426693471D-01
        xs( 32) = 0.3636481514152302D-01
        xs( 33) = 0.4649849016509497D-01
        xs( 34) = 0.5899025633709223D-01
        xs( 35) = 0.7299886987842757D-01
        xs( 36) = 0.8766302714284456D-01
        xs( 37) = 0.1024694611616051D+00
        xs( 38) = 0.1171907617561902D+00
        xs( 39) = 0.1317455482270596D+00
        xs( 40) = 0.1460998146888983D+00
        xs( 41) = 0.1601965046861438D+00
        xs( 42) = 0.1735699621381862D+00
        ws(  1) = 0.1351111126777028D-04
        ws(  2) = 0.3152453518098955D-04
        ws(  3) = 0.4974676080189587D-04
        ws(  4) = 0.6827554842835540D-04
        ws(  5) = 0.8725239602787076D-04
        ws(  6) = 0.1068464025543319D-03
        ws(  7) = 0.1272569531315107D-03
        ws(  8) = 0.1487176355945584D-03
        ws(  9) = 0.1715015821190179D-03
        ws( 10) = 0.1959288810214349D-03
        ws( 11) = 0.2223767433329657D-03
        ws( 12) = 0.2512935645946732D-03
        ws( 13) = 0.2832176046207698D-03
        ws( 14) = 0.3188023967459732D-03
        ws( 15) = 0.3588509629846739D-03
        ws( 16) = 0.4043619357212778D-03
        ws( 17) = 0.4565933424245670D-03
        ws( 18) = 0.5171511779551300D-03
        ws( 19) = 0.5881144731634880D-03
        ws( 20) = 0.6722131490080624D-03
        ws( 21) = 0.7730927173804277D-03
        ws( 22) = 0.8957030359896991D-03
        ws( 23) = 0.1046899143912480D-02
        ws( 24) = 0.1236376381053287D-02
        ws( 25) = 0.1478162253121847D-02
        ws( 26) = 0.1793099028490906D-02
        ws( 27) = 0.2213139683548691D-02
        ws( 28) = 0.2788731193890816D-02
        ws( 29) = 0.3600713320219094D-02
        ws( 30) = 0.4776797553772802D-02
        ws( 31) = 0.6490495519743598D-02
        ws( 32) = 0.8828578433089039D-02
        ws( 33) = 0.1141325611397723D-01
        ws( 34) = 0.1341496068987597D-01
        ws( 35) = 0.1445297618744108D-01
        ws( 36) = 0.1479191762132595D-01
        ws( 37) = 0.1478605697313779D-01
        ws( 38) = 0.1464947458719093D-01
        ws( 39) = 0.1447944172317851D-01
        ws( 40) = 0.1426086306834105D-01
        ws( 41) = 0.1376797060528910D-01
        ws( 42) = 0.1111391048473814D-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 =  46
        err = 0.6456385999221222D-07
        xs(  1) = 0.4033250852419542D-05
        xs(  2) = 0.2126803576971348D-04
        xs(  3) = 0.5234600106377110D-04
        xs(  4) = 0.9740233736799709D-04
        xs(  5) = 0.1566361216382171D-03
        xs(  6) = 0.2303280196134254D-03
        xs(  7) = 0.3188550692377154D-03
        xs(  8) = 0.4227065377868897D-03
        xs(  9) = 0.5425011693843849D-03
        xs( 10) = 0.6790063406137775D-03
        xs( 11) = 0.8331598432673285D-03
        xs( 12) = 0.1006095282795523D-02
        xs( 13) = 0.1199172427984843D-02
        xs( 14) = 0.1414014033475157D-02
        xs( 15) = 0.1652551140314411D-02
        xs( 16) = 0.1917079483645159D-02
        xs( 17) = 0.2210330137769967D-02
        xs( 18) = 0.2535559002181706D-02
        xs( 19) = 0.2896660944893810D-02
        xs( 20) = 0.3298316784931126D-02
        xs( 21) = 0.3746184293284303D-02
        xs( 22) = 0.4247149362624794D-02
        xs( 23) = 0.4809659875445187D-02
        xs( 24) = 0.5444176173317920D-02
        xs( 25) = 0.6163786275628118D-02
        xs( 26) = 0.6985061979717057D-02
        xs( 27) = 0.7929272290493446D-02
        xs( 28) = 0.9024132524346029D-02
        xs( 29) = 0.1030639920433859D-01
        xs( 30) = 0.1182579395367761D-01
        xs( 31) = 0.1365116015248260D-01
        xs( 32) = 0.1588046408360944D-01
        xs( 33) = 0.1865739185358005D-01
        xs( 34) = 0.2219928925177095D-01
        xs( 35) = 0.2684293730788436D-01
        xs( 36) = 0.3310282894866776D-01
        xs( 37) = 0.4165538728270084D-01
        xs( 38) = 0.5299800618045457D-01
        xs( 39) = 0.6685283875965721D-01
        xs( 40) = 0.8224006078688734D-01
        xs( 41) = 0.9822883504004148D-01
        xs( 42) = 0.1142868347383002D+00
        xs( 43) = 0.1301856393901766D+00
        xs( 44) = 0.1458395258925544D+00
        xs( 45) = 0.1611173033617898D+00
        xs( 46) = 0.1755813384271970D+00
        ws(  1) = 0.1035255753557067D-04
        ws(  2) = 0.2413772413420556D-04
        ws(  3) = 0.3804004963586740D-04
        ws(  4) = 0.5210556054790741D-04
        ws(  5) = 0.6640853932307690D-04
        ws(  6) = 0.8103783294626877D-04
        ws(  7) = 0.9609752794279544D-04
        ws(  8) = 0.1117082143046891D-03
        ws(  9) = 0.1280085806634766D-03
        ws( 10) = 0.1451576425371893D-03
        ws( 11) = 0.1633377950537867D-03
        ws( 12) = 0.1827590991809752D-03
        ws( 13) = 0.2036649016121173D-03
        ws( 14) = 0.2263392169057248D-03
        ws( 15) = 0.2511164545114699D-03
        ws( 16) = 0.2783939305871847D-03
        ws( 17) = 0.3086481429672641D-03
        ws( 18) = 0.3424563033303184D-03
        ws( 19) = 0.3805245706787016D-03
        ws( 20) = 0.4237259328917629D-03
        ws( 21) = 0.4731512517889307D-03
        ws( 22) = 0.5301794623159018D-03
        ws( 23) = 0.5965748833304648D-03
        ws( 24) = 0.6746250542949313D-03
        ws( 25) = 0.7673372920450597D-03
        ws( 26) = 0.8787305521741466D-03
        ws( 27) = 0.1014267063529492D-02
        ws( 28) = 0.1181516181013700D-02
        ws( 29) = 0.1391205170323171D-02
        ws( 30) = 0.1658897652342642D-02
        ws( 31) = 0.2007896933412151D-02
        ws( 32) = 0.2474211129917268D-02
        ws( 33) = 0.3115112102786309D-02
        ws( 34) = 0.4023717052426677D-02
        ws( 35) = 0.5348861655090672D-02
        ws( 36) = 0.7288876991501045D-02
        ws( 37) = 0.9912405149046956D-02
        ws( 38) = 0.1272572385511549D-01
        ws( 39) = 0.1480373141086883D-01
        ws( 40) = 0.1581051245503592D-01
        ws( 41) = 0.1608124441129164D-01
        ws( 42) = 0.1600207429455737D-01
        ws( 43) = 0.1579487374158563D-01
        ws( 44) = 0.1559646570793367D-01
        ws( 45) = 0.1516158974027345D-01
        ws( 46) = 0.1242650734268718D-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 =  50
        err = 0.4651324650567811D-07
        xs(  1) = 0.3206814341840949D-05
        xs(  2) = 0.1690612827583759D-04
        xs(  3) = 0.4159239583720832D-04
        xs(  4) = 0.7734345919870801D-04
        xs(  5) = 0.1242719931200390D-03
        xs(  6) = 0.1825369264827348D-03
        xs(  7) = 0.2523520534366695D-03
        xs(  8) = 0.3339950166148476D-03
        xs(  9) = 0.4278167339663136D-03
        xs( 10) = 0.5342514328752254D-03
        xs( 11) = 0.6538275253247302D-03
        xs( 12) = 0.7871796819742892D-03
        xs( 13) = 0.9350626232299727D-03
        xs( 14) = 0.1098367196156779D-02
        xs( 15) = 0.1278139389147082D-02
        xs( 16) = 0.1475603130690552D-02
        xs( 17) = 0.1692187936443018D-02
        xs( 18) = 0.1929562616026399D-02
        xs( 19) = 0.2189676630608201D-02
        xs( 20) = 0.2474811269677841D-02
        xs( 21) = 0.2787643390135912D-02
        xs( 22) = 0.3131325292360434D-02
        xs( 23) = 0.3509585601782612D-02
        xs( 24) = 0.3926857796873130D-02
        xs( 25) = 0.4388445802549621D-02
        xs( 26) = 0.4900738902366707D-02
        xs( 27) = 0.5471494776717657D-02
        xs( 28) = 0.6110215697663529D-02
        xs( 29) = 0.6828657208484301D-02
        xs( 30) = 0.7641524709431791D-02
        xs( 31) = 0.8567449748432409D-02
        xs( 32) = 0.9630371874685809D-02
        xs( 33) = 0.1086155975326784D-01
        xs( 34) = 0.1230262332121302D-01
        xs( 35) = 0.1401014146689198D-01
        xs( 36) = 0.1606313740007571D-01
        xs( 37) = 0.1857546409133795D-01
        xs( 38) = 0.2171649642999041D-01
        xs( 39) = 0.2574632314137323D-01
        xs( 40) = 0.3107220475181596D-01
        xs( 41) = 0.3830553326093352D-01
        xs( 42) = 0.4817957228318184D-01
        xs( 43) = 0.6108222738731302D-01
        xs( 44) = 0.7649255978796263D-01
        xs( 45) = 0.9328685275355728D-01
        xs( 46) = 0.1105341851538591D+00
        xs( 47) = 0.1277378611269989D+00
        xs( 48) = 0.1446814339391623D+00
        xs( 49) = 0.1612166443865633D+00
        xs( 50) = 0.1767569181679914D+00
        ws(  1) = 0.8230809260426065D-05
        ws(  2) = 0.1918168696728122D-04
        ws(  3) = 0.3020330787321751D-04
        ws(  4) = 0.4131745150745005D-04
        ws(  5) = 0.5256596201345766D-04
        ws(  6) = 0.6399938355860748D-04
        ws(  7) = 0.7567698940940545D-04
        ws(  8) = 0.8766725713944611D-04
        ws(  9) = 0.1000483688954820D-03
        ws( 10) = 0.1129088989292573D-03
        ws( 11) = 0.1263488337801317D-03
        ws( 12) = 0.1404809990362575D-03
        ws( 13) = 0.1554330444530426D-03
        ws( 14) = 0.1713500557949237D-03
        ws( 15) = 0.1883978584895330D-03
        ws( 16) = 0.2067673196315596D-03
        ws( 17) = 0.2266797454242266D-03
        ws( 18) = 0.2483936784358750D-03
        ws( 19) = 0.2722135119699488D-03
        ws( 20) = 0.2985005899993169D-03
        ws( 21) = 0.3276873679465313D-03
        ws( 22) = 0.3602957594078227D-03
        ws( 23) = 0.3969610367533692D-03
        ws( 24) = 0.4384638110653189D-03
        ws( 25) = 0.4857724133208985D-03
        ws( 26) = 0.5401005722165158D-03
        ws( 27) = 0.6029865177950523D-03
        ws( 28) = 0.6764032184527292D-03
        ws( 29) = 0.7629146725194740D-03
        ws( 30) = 0.8659031351735448D-03
        ws( 31) = 0.9899039680035832D-03
        ws( 32) = 0.1141102838760792D-02
        ws( 33) = 0.1328133672803163D-02
        ws( 34) = 0.1563303386336817D-02
        ws( 35) = 0.1864704656909748D-02
        ws( 36) = 0.2259931682427594D-02
        ws( 37) = 0.2792388214301415D-02
        ws( 38) = 0.3532069992562021D-02
        ws( 39) = 0.4594237639180439D-02
        ws( 40) = 0.6159944752185812D-02
        ws( 41) = 0.8436907827910055D-02
        ws( 42) = 0.1138908698840252D-01
        ws( 43) = 0.1432286801726835D-01
        ws( 44) = 0.1629345667474623D-01
        ws( 45) = 0.1713734668959410D-01
        ws( 46) = 0.1727825809452389D-01
        ws( 47) = 0.1709862593894334D-01
        ws( 48) = 0.1678203152390668D-01
        ws( 49) = 0.1620684630191770D-01
        ws( 50) = 0.1308103561951381D-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 =  54
        err = 0.4894405967183258D-07
        xs(  1) = 0.2615330577431776D-05
        xs(  2) = 0.1378551646632807D-04
        xs(  3) = 0.3390455458484559D-04
        xs(  4) = 0.6301864100982653D-04
        xs(  5) = 0.1011933887916784D-03
        xs(  6) = 0.1485218670198640D-03
        xs(  7) = 0.2051300966386558D-03
        xs(  8) = 0.2711826276551547D-03
        xs(  9) = 0.3468882328013806D-03
        xs( 10) = 0.4325057729278043D-03
        xs( 11) = 0.5283502893950122D-03
        xs( 12) = 0.6347994898452140D-03
        xs( 13) = 0.7523008416231925D-03
        xs( 14) = 0.8813795409599144D-03
        xs( 15) = 0.1022647604855909D-02
        xs( 16) = 0.1176814402785945D-02
        xs( 17) = 0.1344699104676567D-02
        xs( 18) = 0.1527245386156699D-02
        xs( 19) = 0.1725538969791919D-02
        xs( 20) = 0.1940828710613552D-02
        xs( 21) = 0.2174551998430124D-02
        xs( 22) = 0.2428365683243088D-02
        xs( 23) = 0.2704183635652952D-02
        xs( 24) = 0.3004222898939303D-02
        xs( 25) = 0.3331060680573278D-02
        xs( 26) = 0.3687705183571448D-02
        xs( 27) = 0.4077684366137200D-02
        xs( 28) = 0.4505157866429362D-02
        xs( 29) = 0.4975059669934816D-02
        xs( 30) = 0.5493282236887261D-02
        xs( 31) = 0.6066915112866203D-02
        xs( 32) = 0.6704560204972106D-02
        xs( 33) = 0.7416751120365052D-02
        xs( 34) = 0.8216522329721199D-02
        xs( 35) = 0.9120195690258360D-02
        xs( 36) = 0.1014847878367540D-01
        xs( 37) = 0.1132804507772774D-01
        xs( 38) = 0.1269386052383105D-01
        xs( 39) = 0.1429267904090748D-01
        xs( 40) = 0.1618856528030977D-01
        xs( 41) = 0.1847192544240585D-01
        xs( 42) = 0.2127456904883997D-01
        xs( 43) = 0.2479540012582909D-01
        xs( 44) = 0.2934548498940835D-01
        xs( 45) = 0.3541818126623936D-01
        xs( 46) = 0.4374016711642236D-01
        xs( 47) = 0.5510049431969783D-01
        xs( 48) = 0.6972509769896845D-01
        xs( 49) = 0.8678085837781191D-01
        xs( 50) = 0.1049950689481605D+00
        xs( 51) = 0.1234616697262725D+00
        xs( 52) = 0.1417241772963592D+00
        xs( 53) = 0.1595086957503556D+00
        xs( 54) = 0.1761574366395596D+00
        ws(  1) = 0.6712403931696567D-05
        ws(  2) = 0.1563774445961705D-04
        ws(  3) = 0.2460762939675701D-04
        ws(  4) = 0.3363137830776729D-04
        ws(  5) = 0.4273353795870099D-04
        ws(  6) = 0.5194433049337453D-04
        ws(  7) = 0.6129946057300791D-04
        ws(  8) = 0.7084029592260247D-04
        ws(  9) = 0.8061395783514876D-04
        ws( 10) = 0.9067352285986416D-04
        ws( 11) = 0.1010783446083363D-03
        ws( 12) = 0.1118945031930559D-03
        ws( 13) = 0.1231955812975915D-03
        ws( 14) = 0.1350636461710936D-03
        ws( 15) = 0.1475905033332545D-03
        ws( 16) = 0.1608793785578793D-03
        ws( 17) = 0.1750470138855002D-03
        ws( 18) = 0.1902261522302357D-03
        ws( 19) = 0.2065687388759985D-03
        ws( 20) = 0.2242497935099545D-03
        ws( 21) = 0.2434723038960775D-03
        ws( 22) = 0.2644732805765471D-03
        ws( 23) = 0.2875311879618375D-03
        ws( 24) = 0.3129757000823757D-03
        ws( 25) = 0.3411997636426320D-03
        ws( 26) = 0.3726753861912015D-03
        ws( 27) = 0.4079739074955505D-03
        ws( 28) = 0.4477923710594499D-03
        ws( 29) = 0.4929894082494625D-03
        ws( 30) = 0.5446321034917263D-03
        ws( 31) = 0.6040604439986064D-03
        ws( 32) = 0.6729760009851714D-03
        ws( 33) = 0.7535653444874997D-03
        ws( 34) = 0.8486794631373729D-03
        ws( 35) = 0.9620928495320402D-03
        ws( 36) = 0.1098880907520856D-02
        ws( 37) = 0.1266023242099768D-02
        ws( 38) = 0.1473311055408253D-02
        ws( 39) = 0.1734858998718551D-02
        ws( 40) = 0.2071739115322692D-02
        ws( 41) = 0.2516544268588910D-02
        ws( 42) = 0.3121167208758163D-02
        ws( 43) = 0.3971124208129052D-02
        ws( 44) = 0.5209954911743767D-02
        ws( 45) = 0.7058447312070623D-02
        ws( 46) = 0.9728456433896073D-02
        ws( 47) = 0.1304283137236884D-01
        ws( 48) = 0.1605293225282507D-01
        ws( 49) = 0.1783064301521133D-01
        ws( 50) = 0.1844775315259223D-01
        ws( 51) = 0.1841749756834004D-01
        ws( 52) = 0.1808832787675376D-01
        ws( 53) = 0.1739826640469812D-01
        ws( 54) = 0.1368609743245002D-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 =  58
        err = 0.5522188467843559D-07
        xs(  1) = 0.2178803469379275D-05
        xs(  2) = 0.1148325713339069D-04
        xs(  3) = 0.2823640693205010D-04
        xs(  4) = 0.5246700064681089D-04
        xs(  5) = 0.8421481565292647D-04
        xs(  6) = 0.1235365969461398D-03
        xs(  7) = 0.1705097749608657D-03
        xs(  8) = 0.2252361678019279D-03
        xs(  9) = 0.2878457268513432D-03
        xs( 10) = 0.3585002777291252D-03
        xs( 11) = 0.4373973043331737D-03
        xs( 12) = 0.5247738396657327D-03
        xs( 13) = 0.6209105403075883D-03
        xs( 14) = 0.7261361054107379D-03
        xs( 15) = 0.8408321667980427D-03
        xs( 16) = 0.9654387803895076D-03
        xs( 17) = 0.1100460701080075D-02
        xs( 18) = 0.1246474667138941D-02
        xs( 19) = 0.1404137889898974D-02
        xs( 20) = 0.1574197988251683D-02
        xs( 21) = 0.1757504700596084D-02
        xs( 22) = 0.1955023788904667D-02
        xs( 23) = 0.2167853563120461D-02
        xs( 24) = 0.2397244586818799D-02
        xs( 25) = 0.2644623384642691D-02
        xs( 26) = 0.2911620913160250D-02
        xs( 27) = 0.3200107160121895D-02
        xs( 28) = 0.3512233305274884D-02
        xs( 29) = 0.3850483364083406D-02
        xs( 30) = 0.4217737968273660D-02
        xs( 31) = 0.4617353777795568D-02
        xs( 32) = 0.5053262877167384D-02
        xs( 33) = 0.5530098270360243D-02
        xs( 34) = 0.6053355329619633D-02
        xs( 35) = 0.6629597973043852D-02
        xs( 36) = 0.7266728746034070D-02
        xs( 37) = 0.7974348012076226D-02
        xs( 38) = 0.8764230738357824D-02
        xs( 39) = 0.9650980741509304D-02
        xs( 40) = 0.1065293671040530D-01
        xs( 41) = 0.1179345146135269D-01
        xs( 42) = 0.1310274910682560D-01
        xs( 43) = 0.1462067556857852D-01
        xs( 44) = 0.1640094823027841D-01
        xs( 45) = 0.1851802335866162D-01
        xs( 46) = 0.2107858450478266D-01
        xs( 47) = 0.2424089398040888D-01
        xs( 48) = 0.2824901499747266D-01
        xs( 49) = 0.3349250398322063D-01
        xs( 50) = 0.4058711370235489D-01
        xs( 51) = 0.5038475610367109D-01
        xs( 52) = 0.6363584699836985D-01
        xs( 53) = 0.8022803995693098D-01
        xs( 54) = 0.9898992118415705D-01
        xs( 55) = 0.1186128178822898D+00
        xs( 56) = 0.1382842779306467D+00
        xs( 57) = 0.1575445936672317D+00
        xs( 58) = 0.1756562085137265D+00
        ws(  1) = 0.5591884819885522D-05
        ws(  2) = 0.1302430625868538D-04
        ws(  3) = 0.2048645854493073D-04
        ws(  4) = 0.2798128873689672D-04
        ws(  5) = 0.3552374021013959D-04
        ws(  6) = 0.4313266441293336D-04
        ws(  7) = 0.5083059525579125D-04
        ws(  8) = 0.5864378887765230D-04
        ws(  9) = 0.6660223963004782D-04
        ws( 10) = 0.7473970979958062D-04
        ws( 11) = 0.8309378176309904D-04
        ws( 12) = 0.9170599189818637D-04
        ws( 13) = 0.1006221118030268D-03
        ws( 14) = 0.1098925332177580D-03
        ws( 15) = 0.1195728286084091D-03
        ws( 16) = 0.1297244046395760D-03
        ws( 17) = 0.1404154193239754D-03
        ws( 18) = 0.1517218834589871D-03
        ws( 19) = 0.1637289706560504D-03
        ws( 20) = 0.1765326177591958D-03
        ws( 21) = 0.1902414936277749D-03
        ws( 22) = 0.2049794093040116D-03
        ws( 23) = 0.2208881724921437D-03
        ws( 24) = 0.2381311590310350D-03
        ws( 25) = 0.2568976890973253D-03
        ws( 26) = 0.2774083349700890D-03
        ws( 27) = 0.2999218350015893D-03
        ws( 28) = 0.3247433999547228D-03
        ws( 29) = 0.3522355087923184D-03
        ws( 30) = 0.3828314963608838D-03
        ws( 31) = 0.4170534127143767D-03
        ws( 32) = 0.4555342723031036D-03
        ws( 33) = 0.4990490210350664D-03
        ws( 34) = 0.5485546491572195D-03
        ws( 35) = 0.6052417804816727D-03
        ws( 36) = 0.6706120435437827D-03
        ws( 37) = 0.7465782394384818D-03
        ws( 38) = 0.8356063495034552D-03
        ws( 39) = 0.9409292773869383D-03
        ws( 40) = 0.1066844532728572D-02
        ws( 41) = 0.1219177830900508D-02
        ws( 42) = 0.1405990052928279D-02
        ws( 43) = 0.1638706310455155D-02
        ws( 44) = 0.1934063333319588D-02
        ws( 45) = 0.2317560287636089D-02
        ws( 46) = 0.2829401006886269D-02
        ws( 47) = 0.3534907470140902D-02
        ws( 48) = 0.4544781463483202D-02
        ws( 49) = 0.6043899783150061D-02
        ws( 50) = 0.8292167654811489D-02
        ws( 51) = 0.1144358150657742D-01
        ws( 52) = 0.1504651478429028D-01
        ws( 53) = 0.1792089852192594D-01
        ws( 54) = 0.1937380668857230D-01
        ws( 55) = 0.1974076715489131D-01
        ws( 56) = 0.1955591981533908D-01
        ws( 57) = 0.1894213037043562D-01
        ws( 58) = 0.1506350657300043D-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 =  62
        err = 0.8048321891920404D-07
        xs(  1) = 0.1847975113172173D-05
        xs(  2) = 0.9738768723751383D-05
        xs(  3) = 0.2394292718172920D-04
        xs(  4) = 0.4447840634447950D-04
        xs(  5) = 0.7136921647901658D-04
        xs(  6) = 0.1046500360075424D-03
        xs(  7) = 0.1443688837468395D-03
        xs(  8) = 0.1905897484461813D-03
        xs(  9) = 0.2433952071786528D-03
        xs( 10) = 0.3028890004631684D-03
        xs( 11) = 0.3691985701060605D-03
        xs( 12) = 0.4424775851841226D-03
        xs( 13) = 0.5229084992227933D-03
        xs( 14) = 0.6107052207976628D-03
        xs( 15) = 0.7061159619349504D-03
        xs( 16) = 0.8094263711553293D-03
        xs( 17) = 0.9209629947794596D-03
        xs( 18) = 0.1041097195120379D-02
        xs( 19) = 0.1170249638662032D-02
        xs( 20) = 0.1308895455851229D-02
        xs( 21) = 0.1457570200912812D-02
        xs( 22) = 0.1616876754470158D-02
        xs( 23) = 0.1787493425856204D-02
        xs( 24) = 0.1970183433666760D-02
        xs( 25) = 0.2165805990425557D-02
        xs( 26) = 0.2375329428787356D-02
        xs( 27) = 0.2599846652375858D-02
        xs( 28) = 0.2840593604061967D-02
        xs( 29) = 0.3098971225647159D-02
        xs( 30) = 0.3376571761555670D-02
        xs( 31) = 0.3675210503803063D-02
        xs( 32) = 0.3996964231938405D-02
        xs( 33) = 0.4344218182186555D-02
        xs( 34) = 0.4719723412766975D-02
        xs( 35) = 0.5126667875287342D-02
        xs( 36) = 0.5568765275386172D-02
        xs( 37) = 0.6050365497684525D-02
        xs( 38) = 0.6576596174911884D-02
        xs( 39) = 0.7153543188373370D-02
        xs( 40) = 0.7788482847190956D-02
        xs( 41) = 0.8490188545742438D-02
        xs( 42) = 0.9269337641372574D-02
        xs( 43) = 0.1013905882619150D-01
        xs( 44) = 0.1111568584783834D-01
        xs( 45) = 0.1221981014755786D-01
        xs( 46) = 0.1347778816738351D-01
        xs( 47) = 0.1492394611474757D-01
        xs( 48) = 0.1660396466034514D-01
        xs( 49) = 0.1858040078910702D-01
        xs( 50) = 0.2094194336882370D-01
        xs( 51) = 0.2381877241671056D-01
        xs( 52) = 0.2740926438387234D-01
        xs( 53) = 0.3202888637934305D-01
        xs( 54) = 0.3818831678661916D-01
        xs( 55) = 0.4666846595684394D-01
        xs( 56) = 0.5842141296897249D-01
        xs( 57) = 0.7400031546968132D-01
        xs( 58) = 0.9278047252772398D-01
        xs( 59) = 0.1132803726802784D+00
        xs( 60) = 0.1342504692573766D+00
        xs( 61) = 0.1549507501534631D+00
        xs( 62) = 0.1745818770711637D+00
        ws(  1) = 0.4742716178207337D-05
        ws(  2) = 0.1104447713183862D-04
        ws(  3) = 0.1736656153331152D-04
        ws(  4) = 0.2370834708933001D-04
        ws(  5) = 0.3007900937466302D-04
        ws(  6) = 0.3649058831477050D-04
        ws(  7) = 0.4295772908242612D-04
        ws(  8) = 0.4949772020852134D-04
        ws(  9) = 0.5613044520170792D-04
        ws( 10) = 0.6287833998374301D-04
        ws( 11) = 0.6976636835240006D-04
        ws( 12) = 0.7682202620939001D-04
        ws( 13) = 0.8407540833700274D-04
        ws( 14) = 0.9155935061627674D-04
        ws( 15) = 0.9930968103657825D-04
        ws( 16) = 0.1073654977076775D-03
        ws( 17) = 0.1157695689375144D-03
        ws( 18) = 0.1245688574181801D-03
        ws( 19) = 0.1338151194936158D-03
        ws( 20) = 0.1435656593863741D-03
        ws( 21) = 0.1538841758683020D-03
        ws( 22) = 0.1648418250404623D-03
        ws( 23) = 0.1765185384442337D-03
        ws( 24) = 0.1890044606959269D-03
        ws( 25) = 0.2024017869935587D-03
        ws( 26) = 0.2168269333205955D-03
        ws( 27) = 0.2324131407206435D-03
        ws( 28) = 0.2493138187478677D-03
        ws( 29) = 0.2677062710169548D-03
        ws( 30) = 0.2877967143585555D-03
        ws( 31) = 0.3098261212443752D-03
        ws( 32) = 0.3340779294870826D-03
        ws( 33) = 0.3608873077584463D-03
        ws( 34) = 0.3906529983142370D-03
        ws( 35) = 0.4238530643546529D-03
        ws( 36) = 0.4610643650317035D-03
        ws( 37) = 0.5029877028901080D-03
        ws( 38) = 0.5504841460198022D-03
        ws( 39) = 0.6046175587010094D-03
        ws( 40) = 0.6667172678214346D-03
        ws( 41) = 0.7384647574796545D-03
        ws( 42) = 0.8220091788516039D-03
        ws( 43) = 0.9201382720781891D-03
        ws( 44) = 0.1036523163035597D-02
        ws( 45) = 0.1176082367711987D-02
        ws( 46) = 0.1345540576027287D-02
        ws( 47) = 0.1554300405322124D-02
        ws( 48) = 0.1816014313249811D-02
        ws( 49) = 0.2151392093121380D-02
        ws( 50) = 0.2592975777176822D-02
        ws( 51) = 0.3192954343985452D-02
        ws( 52) = 0.4039274718519933D-02
        ws( 53) = 0.5283466636670229D-02
        ws( 54) = 0.7166273616557523D-02
        ws( 55) = 0.9962078803832035D-02
        ws( 56) = 0.1365392141652443D-01
        ws( 57) = 0.1739360149896680D-01
        ws( 58) = 0.1989555768511265D-01
        ws( 59) = 0.2089318012351821D-01
        ws( 60) = 0.2093317464682324D-01
        ws( 61) = 0.2025187519058519D-01
        ws( 62) = 0.1628911415572283D-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 =  66
        err = 0.8362085306904004D-07
        xs(  1) = 0.1584402302354188D-05
        xs(  2) = 0.8349232396850293D-05
        xs(  3) = 0.2052440115686059D-04
        xs(  4) = 0.3812148691601450D-04
        xs(  5) = 0.6115524987764466D-04
        xs(  6) = 0.8964731834401912D-04
        xs(  7) = 0.1236281484316882D-03
        xs(  8) = 0.1631389277527409D-03
        xs(  9) = 0.2082334660666407D-03
        xs( 10) = 0.2589800269988051D-03
        xs( 11) = 0.3154631016364370D-03
        xs( 12) = 0.3777851365257293D-03
        xs( 13) = 0.4460682449295593D-03
        xs( 14) = 0.5204559211960882D-03
        xs( 15) = 0.6011148307847669D-03
        xs( 16) = 0.6882367141649850D-03
        xs( 17) = 0.7820404456229602D-03
        xs( 18) = 0.8827742910714767D-03
        xs( 19) = 0.9907184619094480D-03
        xs( 20) = 0.1106187990331500D-02
        xs( 21) = 0.1229535985156965D-02
        xs( 22) = 0.1361157366483480D-02
        xs( 23) = 0.1501493155081697D-02
        xs( 24) = 0.1651035393424449D-02
        xs( 25) = 0.1810332864023047D-02
        xs( 26) = 0.1979997721817534D-02
        xs( 27) = 0.2160713133733131D-02
        xs( 28) = 0.2353242217646186D-02
        xs( 29) = 0.2558438551499664D-02
        xs( 30) = 0.2777258379904943D-02
        xs( 31) = 0.3010775110720205D-02
        xs( 32) = 0.3260196417285526D-02
        xs( 33) = 0.3526884366910183D-02
        xs( 34) = 0.3812379745363578D-02
        xs( 35) = 0.4118430998237803D-02
        xs( 36) = 0.4447029069202926D-02
        xs( 37) = 0.4800450085407597D-02
        xs( 38) = 0.5181306790907355D-02
        xs( 39) = 0.5592612037984529D-02
        xs( 40) = 0.6037857585555280D-02
        xs( 41) = 0.6521112326575015D-02
        xs( 42) = 0.7047145426505621D-02
        xs( 43) = 0.7621583710710172D-02
        xs( 44) = 0.8251113973891926D-02
        xs( 45) = 0.8943744548962809D-02
        xs( 46) = 0.9709153320417279D-02
        xs( 47) = 0.1055914901138367D-01
        xs( 48) = 0.1150830135490499D-01
        xs( 49) = 0.1257481070068156D-01
        xs( 50) = 0.1378174739752053D-01
        xs( 51) = 0.1515884696476411D-01
        xs( 52) = 0.1674519081442733D-01
        xs( 53) = 0.1859342793604873D-01
        xs( 54) = 0.2077676812218861D-01
        xs( 55) = 0.2340078642478103D-01
        xs( 56) = 0.2662317824526844D-01
        xs( 57) = 0.3068936046825227D-01
        xs( 58) = 0.3599326791141160D-01
        xs( 59) = 0.4316823842898928D-01
        xs( 60) = 0.5315193224681251D-01
        xs( 61) = 0.6695680511545632D-01
        xs( 62) = 0.8483786437602427D-01
        xs( 63) = 0.1056334644590160D+00
        xs( 64) = 0.1276623424653918D+00
        xs( 65) = 0.1497142859710633D+00
        xs( 66) = 0.1705504412489039D+00
        ws(  1) = 0.4066211564083486D-05
        ws(  2) = 0.9467911528608054D-05
        ws(  3) = 0.1488413597353228D-04
        ws(  4) = 0.2031245759811687D-04
        ws(  5) = 0.2575863800006424D-04
        ws(  6) = 0.3123054253545828D-04
        ws(  7) = 0.3673794956762280D-04
        ws(  8) = 0.4229254661801724D-04
        ws(  9) = 0.4790788003901565D-04
        ws( 10) = 0.5359929438789554D-04
        ws( 11) = 0.5938389977208629D-04
        ws( 12) = 0.6528049532117961D-04
        ws( 13) = 0.7130960631341503D-04
        ws( 14) = 0.7749349122418440D-04
        ws( 15) = 0.8385625138982780D-04
        ws( 16) = 0.9042395872424071D-04
        ws( 17) = 0.9722483919930373D-04
        ws( 18) = 0.1042895060767952D-03
        ws( 19) = 0.1116512873652826D-03
        ws( 20) = 0.1193465598159710D-03
        ws( 21) = 0.1274151779620879D-03
        ws( 22) = 0.1359010064013957D-03
        ws( 23) = 0.1448524830873569D-03
        ws( 24) = 0.1543233465928834D-03
        ws( 25) = 0.1643734942093490D-03
        ws( 26) = 0.1750699334120990D-03
        ws( 27) = 0.1864878990469903D-03
        ws( 28) = 0.1987123302179400D-03
        ws( 29) = 0.2118394706997754D-03
        ws( 30) = 0.2259788007545649D-03
        ws( 31) = 0.2412556047283169D-03
        ws( 32) = 0.2578136122539721D-03
        ws( 33) = 0.2758186048575665D-03
        ws( 34) = 0.2954629905697991D-03
        ws( 35) = 0.3169706241425894D-03
        ws( 36) = 0.3406040291682986D-03
        ws( 37) = 0.3666724042663198D-03
        ws( 38) = 0.3955418550840703D-03
        ws( 39) = 0.4276489742380065D-03
        ws( 40) = 0.4635182436833704D-03
        ws( 41) = 0.5037835212039569D-03
        ws( 42) = 0.5492171070586523D-03
        ws( 43) = 0.6007696911442778D-03
        ws( 44) = 0.6596197495094560D-03
        ws( 45) = 0.7272468848254942D-03
        ws( 46) = 0.8055283783902111D-03
        ws( 47) = 0.8968771618319027D-03
        ws( 48) = 0.1004440621935720D-02
        ws( 49) = 0.1132393892261266D-02
        ws( 50) = 0.1286392434969404D-02
        ws( 51) = 0.1474252130891904D-02
        ws( 52) = 0.1707099815371639D-02
        ws( 53) = 0.2001383701495072D-02
        ws( 54) = 0.2382583538125969D-02
        ws( 55) = 0.2891169163340694D-02
        ws( 56) = 0.3593515853199918D-02
        ws( 57) = 0.4602960670280256D-02
        ws( 58) = 0.6108668210177720D-02
        ws( 59) = 0.8400209434669709D-02
        ws( 60) = 0.1175083696097954D-01
        ws( 61) = 0.1591947649604850D-01
        ws( 62) = 0.1962720115703601D-01
        ws( 63) = 0.2166398284652061D-01
        ws( 64) = 0.2220179607270987D-01
        ws( 65) = 0.2176910511626590D-01
        ws( 66) = 0.1770215438254102D-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 =  70
        err = 0.8804371899920625D-07
        xs(  1) = 0.1379737446217395D-05
        xs(  2) = 0.7270323569940875D-05
        xs(  3) = 0.1787045540995160D-04
        xs(  4) = 0.3318738111142875D-04
        xs(  5) = 0.5322971231300904D-04
        xs(  6) = 0.7801044808877012D-04
        xs(  7) = 0.1075485047131033D-03
        xs(  8) = 0.1418701718623251D-03
        xs(  9) = 0.1810105501897722D-03
        xs( 10) = 0.2250149339160387D-03
        xs( 11) = 0.2739401243158078D-03
        xs( 12) = 0.3278556987072808D-03
        xs( 13) = 0.3868452132385630D-03
        xs( 14) = 0.4510074037618309D-03
        xs( 15) = 0.5204573732516544D-03
        xs( 16) = 0.5953278376356884D-03
        xs( 17) = 0.6757704370183919D-03
        xs( 18) = 0.7619571368082819D-03
        xs( 19) = 0.8540817664461943D-03
        xs( 20) = 0.9523617419841376D-03
        xs( 21) = 0.1057039978127594D-02
        xs( 22) = 0.1168387054375333D-02
        xs( 23) = 0.1286703661650452D-02
        xs( 24) = 0.1412323375279072D-02
        xs( 25) = 0.1545615839546297D-02
        xs( 26) = 0.1686990378765869D-02
        xs( 27) = 0.1836900186542471D-02
        xs( 28) = 0.1995847093590996D-02
        xs( 29) = 0.2164386994486110D-02
        xs( 30) = 0.2343136307891979D-02
        xs( 31) = 0.2532779240237591D-02
        xs( 32) = 0.2734076269948537D-02
        xs( 33) = 0.2947874144224742D-02
        xs( 34) = 0.3175117432717099D-02
        xs( 35) = 0.3416862155176522D-02
        xs( 36) = 0.3674291737764004D-02
        xs( 37) = 0.3948735828273632D-02
        xs( 38) = 0.4241692999097001D-02
        xs( 39) = 0.4554857439541281D-02
        xs( 40) = 0.4890151085068400D-02
        xs( 41) = 0.5249762863317492D-02
        xs( 42) = 0.5636195541281460D-02
        xs( 43) = 0.6052323528243626D-02
        xs( 44) = 0.6501463873067959D-02
        xs( 45) = 0.6987464939302097D-02
        xs( 46) = 0.7514817018997054D-02
        xs( 47) = 0.8088791887667672D-02
        xs( 48) = 0.8715621587851783D-02
        xs( 49) = 0.9402728824270769D-02
        xs( 50) = 0.1015902993696616D-01
        xs( 51) = 0.1099533327003546D-01
        xs( 52) = 0.1192488243818333D-01
        xs( 53) = 0.1296410022830805D-01
        xs( 54) = 0.1413363778127502D-01
        xs( 55) = 0.1545987761513308D-01
        xs( 56) = 0.1697715148672714D-01
        xs( 57) = 0.1873120687546194D-01
        xs( 58) = 0.2078505730295399D-01
        xs( 59) = 0.2322906400467274D-01
        xs( 60) = 0.2619710379827398D-01
        xs( 61) = 0.2989502525631159D-01
        xs( 62) = 0.3465418706614020D-01
        xs( 63) = 0.4102182721960760D-01
        xs( 64) = 0.4986275974309962D-01
        xs( 65) = 0.6231494593569539D-01
        xs( 66) = 0.7923114152759039D-01
        xs( 67) = 0.1000989169907537D+00
        xs( 68) = 0.1231319766988047D+00
        xs( 69) = 0.1466745472615771D+00
        xs( 70) = 0.1694065395121133D+00
        ws(  1) = 0.3540908426686196D-05
        ws(  2) = 0.8243901686260011D-05
        ws(  3) = 0.1295737730147504D-04
        ws(  4) = 0.1767788268537578D-04
        ws(  5) = 0.2240892320073251D-04
        ws(  6) = 0.2715567528720780D-04
        ws(  7) = 0.3192479369438007D-04
        ws(  8) = 0.3672436926191375D-04
        ws(  9) = 0.4156391373580627D-04
        ws( 10) = 0.4645429811646600D-04
        ws( 11) = 0.5140766235320523D-04
        ws( 12) = 0.5643739260959639D-04
        ws( 13) = 0.6155807397042052D-04
        ws( 14) = 0.6678547046515038D-04
        ws( 15) = 0.7213656524233571D-04
        ws( 16) = 0.7762961467991719D-04
        ws( 17) = 0.8328422177579784D-04
        ws( 18) = 0.8912145454450357D-04
        ws( 19) = 0.9516400904104005D-04
        ws( 20) = 0.1014363910911177D-03
        ws( 21) = 0.1079651385330204D-03
        ws( 22) = 0.1147790839460460D-03
        ws( 23) = 0.1219096724036589D-03
        ws( 24) = 0.1293913045569706D-03
        ws( 25) = 0.1372617746185676D-03
        ws( 26) = 0.1455627532815965D-03
        ws( 27) = 0.1543404110645866D-03
        ws( 28) = 0.1636459407415781D-03
        ws( 29) = 0.1735364767196373D-03
        ws( 30) = 0.1840760440015653D-03
        ws( 31) = 0.1953363984050390D-03
        ws( 32) = 0.2073985950264817D-03
        ws( 33) = 0.2203543556359640D-03
        ws( 34) = 0.2343079629024010D-03
        ws( 35) = 0.2493784114776442D-03
        ws( 36) = 0.2657019863876479D-03
        ws( 37) = 0.2834355151255120D-03
        ws( 38) = 0.3027606716752087D-03
        ws( 39) = 0.3238878749613688D-03
        ws( 40) = 0.3470634821167406D-03
        ws( 41) = 0.3725762400954929D-03
        ws( 42) = 0.4007670128335035D-03
        ws( 43) = 0.4320403344978378D-03
        ws( 44) = 0.4668799035814882D-03
        ws( 45) = 0.5058683223861692D-03
        ws( 46) = 0.5497114798983382D-03
        ws( 47) = 0.5992731763095682D-03
        ws( 48) = 0.6556182887684397D-03
        ws( 49) = 0.7200757916953451D-03
        ws( 50) = 0.7943188088391876D-03
        ws( 51) = 0.8804830579981301D-03
        ws( 52) = 0.9813352036350297D-03
        ws( 53) = 0.1100517755034811D-02
        ws( 54) = 0.1242918708819503D-02
        ws( 55) = 0.1415227313414264D-02
        ws( 56) = 0.1626853357731011D-02
        ws( 57) = 0.1891593469988868D-02
        ws( 58) = 0.2230910874869544D-02
        ws( 59) = 0.2678975143875871D-02
        ws( 60) = 0.3290556489556309D-02
        ws( 61) = 0.4158988237534196D-02
        ws( 62) = 0.5448524656857729D-02
        ws( 63) = 0.7430696041048773D-02
        ws( 64) = 0.1044902939369796D-01
        ws( 65) = 0.1462079238970376D-01
        ws( 66) = 0.1912715783594429D-01
        ws( 67) = 0.2227636788730367D-01
        ws( 68) = 0.2350678481055059D-01
        ws( 69) = 0.2324853604397130D-01
        ws( 70) = 0.1932985308547317D-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 =  75
        err = 0.5036137986494516D-07
        xs(  1) = 0.1198200962046733D-05
        xs(  2) = 0.6313630621151475D-05
        xs(  3) = 0.1551833359178136D-04
        xs(  4) = 0.2881759209718103D-04
        xs(  5) = 0.4621719280003262D-04
        xs(  6) = 0.6772585471078794D-04
        xs(  7) = 0.9335634020150597D-04
        xs(  8) = 0.1231264913973741D-03
        xs(  9) = 0.1570602743786306D-03
        xs( 10) = 0.1951887798245707D-03
        xs( 11) = 0.2375511894724332D-03
        xs( 12) = 0.2841956988038895D-03
        xs( 13) = 0.3351803872888148D-03
        xs( 14) = 0.3905740698428440D-03
        xs( 15) = 0.4504571278894565D-03
        xs( 16) = 0.5149223481579259D-03
        xs( 17) = 0.5840757920478553D-03
        xs( 18) = 0.6580376993667538D-03
        xs( 19) = 0.7369434568901116D-03
        xs( 20) = 0.8209446579869713D-03
        xs( 21) = 0.9102102661805421D-03
        xs( 22) = 0.1004927902633763D-02
        xs( 23) = 0.1105305285679592D-02
        xs( 24) = 0.1211571835434448D-02
        xs( 25) = 0.1323980496489830D-02
        xs( 26) = 0.1442809791384394D-02
        xs( 27) = 0.1568366127911735D-02
        xs( 28) = 0.1700986440511582D-02
        xs( 29) = 0.1841041163346976D-02
        xs( 30) = 0.1988937636021206D-02
        xs( 31) = 0.2145123993163077D-02
        xs( 32) = 0.2310093545455041D-02
        xs( 33) = 0.2484389905342468D-02
        xs( 34) = 0.2668612800372974D-02
        xs( 35) = 0.2863424757112770D-02
        xs( 36) = 0.3069558886524661D-02
        xs( 37) = 0.3287827834265206D-02
        xs( 38) = 0.3519134201330743D-02
        xs( 39) = 0.3764482778769602D-02
        xs( 40) = 0.4024994763455238D-02
        xs( 41) = 0.4301924467949951D-02
        xs( 42) = 0.4596679206751553D-02
        xs( 43) = 0.4910842776092807D-02
        xs( 44) = 0.5246203394804041D-02
        xs( 45) = 0.5604787440738768D-02
        xs( 46) = 0.5988899905689195D-02
        xs( 47) = 0.6401173364972875D-02
        xs( 48) = 0.6844628264942519D-02
        xs( 49) = 0.7322746886935094D-02
        xs( 50) = 0.7839564789829612D-02
        xs( 51) = 0.8399785721462898D-02
        xs( 52) = 0.9008926058070689D-02
        xs( 53) = 0.9673499152587559D-02
        xs( 54) = 0.1040125369860597D-01
        xs( 55) = 0.1120148562474679D-01
        xs( 56) = 0.1208545242918225D-01
        xs( 57) = 0.1306693112505647D-01
        xs( 58) = 0.1416297726418430D-01
        xs( 59) = 0.1539500005451341D-01
        xs( 60) = 0.1679029856040406D-01
        xs( 61) = 0.1838434241866832D-01
        xs( 62) = 0.2022439334776892D-01
        xs( 63) = 0.2237550041002241D-01
        xs( 64) = 0.2493023044879423D-01
        xs( 65) = 0.2802442692956533D-01
        xs( 66) = 0.3186550896316380D-01
        xs( 67) = 0.3678237598109934D-01
        xs( 68) = 0.4330747244739358D-01
        xs( 69) = 0.5227747672565243D-01
        xs( 70) = 0.6480828303136332D-01
        xs( 71) = 0.8180136279747117D-01
        xs( 72) = 0.1029132260353363D+00
        xs( 73) = 0.1264723808219077D+00
        xs( 74) = 0.1507879721391593D+00
        xs( 75) = 0.1743295301303562D+00
        ws(  1) = 0.3075013951483122D-05
        ws(  2) = 0.7158921911425914D-05
        ws(  3) = 0.1125119627273968D-04
        ws(  4) = 0.1534826037311455D-04
        ws(  5) = 0.1945237630288780D-04
        ws(  6) = 0.2356705843909074D-04
        ws(  7) = 0.2769686805193040D-04
        ws(  8) = 0.3184741208711056D-04
        ws(  9) = 0.3602531792348643D-04
        ws( 10) = 0.4023820817282802D-04
        ws( 11) = 0.4449463240474722D-04
        ws( 12) = 0.4880405042130180D-04
        ws( 13) = 0.5317678087382544D-04
        ws( 14) = 0.5762396787316001D-04
        ws( 15) = 0.6215759807344235D-04
        ws( 16) = 0.6679050451741453D-04
        ws( 17) = 0.7153640779335772D-04
        ws( 18) = 0.7640995376812346D-04
        ws( 19) = 0.8142680702500046D-04
        ws( 20) = 0.8660373434740920D-04
        ws( 21) = 0.9195872769667516D-04
        ws( 22) = 0.9751113855363435D-04
        ws( 23) = 0.1032818345562427D-03
        ws( 24) = 0.1092933886353613D-03
        ws( 25) = 0.1155703160429210D-03
        ws( 26) = 0.1221392977656877D-03
        ws( 27) = 0.1290294807665243D-03
        ws( 28) = 0.1362728252316212D-03
        ws( 29) = 0.1439044448825044D-03
        ws( 30) = 0.1519631181933861D-03
        ws( 31) = 0.1604917289273915D-03
        ws( 32) = 0.1695378821621441D-03
        ws( 33) = 0.1791546803033906D-03
        ws( 34) = 0.1894013992898877D-03
        ws( 35) = 0.2003445515846271D-03
        ws( 36) = 0.2120589751510131D-03
        ws( 37) = 0.2246291501276097D-03
        ws( 38) = 0.2381508128561435D-03
        ws( 39) = 0.2527329334666129D-03
        ws( 40) = 0.2684997555784798D-03
        ws( 41) = 0.2855938153309713D-03
        ws( 42) = 0.3041791634061882D-03
        ws( 43) = 0.3244454484682405D-03
        ws( 44) = 0.3466128484924723D-03
        ws( 45) = 0.3709385955387107D-03
        ws( 46) = 0.3977240999611354D-03
        ws( 47) = 0.4273249901907447D-03
        ws( 48) = 0.4601636916080629D-03
        ws( 49) = 0.4967442291628151D-03
        ws( 50) = 0.5376731612866075D-03
        ws( 51) = 0.5836850540211584D-03
        ws( 52) = 0.6356772530970783D-03
        ws( 53) = 0.6947552542841783D-03
        ws( 54) = 0.7622963596748527D-03
        ws( 55) = 0.8400345506341519D-03
        ws( 56) = 0.9301828784275111D-03
        ws( 57) = 0.1035599498385874D-02
        ws( 58) = 0.1160035930637652D-02
        ws( 59) = 0.1308522965518439D-02
        ws( 60) = 0.1487927587474370D-02
        ws( 61) = 0.1707940819961830D-02
        ws( 62) = 0.1982843471944092D-02
        ws( 63) = 0.2334552389851246D-02
        ws( 64) = 0.2797099378837261D-02
        ws( 65) = 0.3425056097168465D-02
        ws( 66) = 0.4310578960779054D-02
        ws( 67) = 0.5609916982529558D-02
        ws( 68) = 0.7579265298362744D-02
        ws( 69) = 0.1055390128599006D-01
        ws( 70) = 0.1467937230405346D-01
        ws( 71) = 0.1925470841099250D-01
        ws( 72) = 0.2265822144780313D-01
        ws( 73) = 0.2416955117920372D-01
        ws( 74) = 0.2424079674433371D-01
        ws( 75) = 0.2084436004370081D-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 =  79
        err = 0.7636762390443977D-07
        xs(  1) = 0.1062307139679784D-05
        xs(  2) = 0.5597392434603128D-05
        xs(  3) = 0.1375709766184640D-04
        xs(  4) = 0.2554481819003770D-04
        xs(  5) = 0.4096374191530745D-04
        xs(  6) = 0.6001891973857611D-04
        xs(  7) = 0.8271816029396316D-04
        xs(  8) = 0.1090728606281430D-03
        xs(  9) = 0.1390988311888620D-03
        xs( 10) = 0.1728171013344683D-03
        xs( 11) = 0.2102546701549386D-03
        xs( 12) = 0.2514452311514194D-03
        xs( 13) = 0.2964298469511680D-03
        xs( 14) = 0.3452575864708356D-03
        xs( 15) = 0.3979861400590516D-03
        xs( 16) = 0.4546824268498245D-03
        xs( 17) = 0.5154232026660517D-03
        xs( 18) = 0.5802956844027590D-03
        xs( 19) = 0.6493982035454080D-03
        xs( 20) = 0.7228409048131520D-03
        xs( 21) = 0.8007465012207426D-03
        xs( 22) = 0.8832511006953386D-03
        xs( 23) = 0.9705051205992228D-03
        xs( 24) = 0.1062674297407980D-02
        xs( 25) = 0.1159940805024536D-02
        xs( 26) = 0.1262504520695820D-02
        xs( 27) = 0.1370584435685395D-02
        xs( 28) = 0.1484420234692588D-02
        xs( 29) = 0.1604274091237947D-02
        xs( 30) = 0.1730432653076194D-02
        xs( 31) = 0.1863209320708347D-02
        xs( 32) = 0.2002946813715802D-02
        xs( 33) = 0.2150020041232887D-02
        xs( 34) = 0.2304839430000546D-02
        xs( 35) = 0.2467854638121507D-02
        xs( 36) = 0.2639558819216260D-02
        xs( 37) = 0.2820493491526368D-02
        xs( 38) = 0.3011254110649678D-02
        xs( 39) = 0.3212496452404478D-02
        xs( 40) = 0.3424943937874541D-02
        xs( 41) = 0.3649396246845880D-02
        xs( 42) = 0.3886739046296116D-02
        xs( 43) = 0.4137955542766347D-02
        xs( 44) = 0.4404139815181005D-02
        xs( 45) = 0.4686512505122648D-02
        xs( 46) = 0.4986439266567570D-02
        xs( 47) = 0.5305452672742615D-02
        xs( 48) = 0.5645278091948897D-02
        xs( 49) = 0.6007864715316230D-02
        xs( 50) = 0.6395422744448705D-02
        xs( 51) = 0.6810468653042608D-02
        xs( 52) = 0.7255879678190659D-02
        xs( 53) = 0.7734961006716634D-02
        xs( 54) = 0.8251528504634020D-02
        xs( 55) = 0.8810011970564111D-02
        xs( 56) = 0.9415583939914624D-02
        xs( 57) = 0.1007432553779437D-01
        xs( 58) = 0.1079343724963267D-01
        xs( 59) = 0.1158151122950735D-01
        xs( 60) = 0.1244889249037832D-01
        xs( 61) = 0.1340816252589579D-01
        xs( 62) = 0.1447479919294000D-01
        xs( 63) = 0.1566809567262514D-01
        xs( 64) = 0.1701244164565256D-01
        xs( 65) = 0.1853924984574670D-01
        xs( 66) = 0.2028989126760027D-01
        xs( 67) = 0.2232054318716240D-01
        xs( 68) = 0.2471065358043259D-01
        xs( 69) = 0.2757673427497483D-01
        xs( 70) = 0.3109633186118526D-01
        xs( 71) = 0.3555025099883988D-01
        xs( 72) = 0.4139322362921681D-01
        xs( 73) = 0.4935582389812100D-01
        xs( 74) = 0.6052107777452464D-01
        xs( 75) = 0.7611649783515279D-01
        xs( 76) = 0.9657981124563832D-01
        xs( 77) = 0.1206031826701657D+00
        xs( 78) = 0.1460839480016401D+00
        xs( 79) = 0.1710397999696701D+00
        ws(  1) = 0.2726238555163448D-05
        ws(  2) = 0.6346543368788482D-05
        ws(  3) = 0.9973284381237389D-05
        ws(  4) = 0.1360267018583840D-04
        ws(  5) = 0.1723600882808200D-04
        ws(  6) = 0.2087563581613913D-04
        ws(  7) = 0.2452472962741013D-04
        ws(  8) = 0.2818729132093960D-04
        ws(  9) = 0.3186814181267745D-04
        ws( 10) = 0.3557288351703881D-04
        ws( 11) = 0.3930785825987628D-04
        ws( 12) = 0.4308009994294531D-04
        ws( 13) = 0.4689730082568001D-04
        ws( 14) = 0.5076778071496769D-04
        ws( 15) = 0.5470046932149348D-04
        ws( 16) = 0.5870488771350370D-04
        ws( 17) = 0.6279118795853239D-04
        ws( 18) = 0.6697015240648990D-04
        ws( 19) = 0.7125323244497763D-04
        ws( 20) = 0.7565260877203514D-04
        ws( 21) = 0.8018125257603138D-04
        ws( 22) = 0.8485299936596579D-04
        ws( 23) = 0.8968264637003834D-04
        ws( 24) = 0.9468604926932786D-04
        ws( 25) = 0.9988025510806300D-04
        ws( 26) = 0.1052836491911010D-03
        ws( 27) = 0.1109161001643379D-03
        ws( 28) = 0.1167991626510114D-03
        ws( 29) = 0.1229562867218704D-03
        ws( 30) = 0.1294130281614536D-03
        ws( 31) = 0.1361973813299388D-03
        ws( 32) = 0.1433400349265392D-03
        ws( 33) = 0.1508747664831044D-03
        ws( 34) = 0.1588388839870505D-03
        ws( 35) = 0.1672736423647917D-03
        ws( 36) = 0.1762248796248998D-03
        ws( 37) = 0.1857435989324951D-03
        ws( 38) = 0.1958868154639255D-03
        ws( 39) = 0.2067182912931902D-03
        ws( 40) = 0.2183098035682637D-03
        ws( 41) = 0.2307422296516509D-03
        ws( 42) = 0.2441070180410739D-03
        ws( 43) = 0.2585080547674155D-03
        ws( 44) = 0.2740636287231881D-03
        ws( 45) = 0.2909089931898695D-03
        ws( 46) = 0.3091995406035822D-03
        ws( 47) = 0.3291143141742176D-03
        ws( 48) = 0.3508607890631948D-03
        ws( 49) = 0.3746800632374350D-03
        ws( 50) = 0.4008545260851466D-03
        ws( 51) = 0.4297157066370738D-03
        ws( 52) = 0.4616558589795695D-03
        ws( 53) = 0.4971410544519397D-03
        ws( 54) = 0.5367301412726646D-03
        ws( 55) = 0.5810961213578358D-03
        ws( 56) = 0.6310578672513147D-03
        ws( 57) = 0.6876209309604933D-03
        ws( 58) = 0.7520285799036632D-03
        ws( 59) = 0.8258355890400463D-03
        ws( 60) = 0.9110131062817812D-03
        ws( 61) = 0.1010091406839091D-02
        ws( 62) = 0.1126376883486306D-02
        ws( 63) = 0.1264249650195169D-02
        ws( 64) = 0.1429630548177997D-02
        ws( 65) = 0.1630805287634024D-02
        ws( 66) = 0.1879701532435608D-02
        ws( 67) = 0.2194625287441689D-02
        ws( 68) = 0.2604634239734352D-02
        ws( 69) = 0.3156441855360138D-02
        ws( 70) = 0.3928391958098861D-02
        ws( 71) = 0.5053475463298873D-02
        ws( 72) = 0.6752389553804242D-02
        ws( 73) = 0.9355399165869978D-02
        ws( 74) = 0.1319531026870264D-01
        ws( 75) = 0.1809433639786275D-01
        ws( 76) = 0.2258997942149122D-01
        ws( 77) = 0.2508459246299886D-01
        ws( 78) = 0.2551791353860060D-01
        ws( 79) = 0.2157406873636969D-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 =  84
        err = 0.4192766385708214D-07
        xs(  1) = 0.9399391543991272D-06
        xs(  2) = 0.4952589012470760D-05
        xs(  3) = 0.1217214531716971D-04
        xs(  4) = 0.2260127679550774D-04
        xs(  5) = 0.3624219411467224D-04
        xs(  6) = 0.5309837648125475D-04
        xs(  7) = 0.7317523506334074D-04
        xs(  8) = 0.9648073269535119D-04
        xs(  9) = 0.1230259947953952D-03
        xs( 10) = 0.1528259187238552D-03
        xs( 11) = 0.1858997485623317D-03
        xs( 12) = 0.2222716309946662D-03
        xs( 13) = 0.2619711329362064D-03
        xs( 14) = 0.3050337295045599D-03
        xs( 15) = 0.3515012730126720D-03
        xs( 16) = 0.4014224385650374D-03
        xs( 17) = 0.4548531767129014D-03
        xs( 18) = 0.5118571541299039D-03
        xs( 19) = 0.5725062136020450D-03
        xs( 20) = 0.6368808510062599D-03
        xs( 21) = 0.7050707228511148D-03
        xs( 22) = 0.7771751918580947D-03
        xs( 23) = 0.8533039199970750D-03
        xs( 24) = 0.9335775193453637D-03
        xs( 25) = 0.1018128260521046D-02
        xs( 26) = 0.1107100860441079D-02
        xs( 27) = 0.1200653365577756D-02
        xs( 28) = 0.1298958120078095D-02
        xs( 29) = 0.1402202844819431D-02
        xs( 30) = 0.1510591853080947D-02
        xs( 31) = 0.1624347400256156D-02
        xs( 32) = 0.1743711205098234D-02
        xs( 33) = 0.1868946132052909D-02
        xs( 34) = 0.2000338086468025D-02
        xs( 35) = 0.2138198189084357D-02
        xs( 36) = 0.2282865147637184D-02
        xs( 37) = 0.2434707979560110D-02
        xs( 38) = 0.2594129102486544D-02
        xs( 39) = 0.2761567792261425D-02
        xs( 40) = 0.2937504129870454D-02
        xs( 41) = 0.3122463480018063D-02
        xs( 42) = 0.3317021639657421D-02
        xs( 43) = 0.3521810658661852D-02
        xs( 44) = 0.3737525571446584D-02
        xs( 45) = 0.3964932106669784D-02
        xs( 46) = 0.4204875648076975D-02
        xs( 47) = 0.4458291452629987D-02
        xs( 48) = 0.4726216724787366D-02
        xs( 49) = 0.5009804629974513D-02
        xs( 50) = 0.5310340530102639D-02
        xs( 51) = 0.5629261436900131D-02
        xs( 52) = 0.5968178756395915D-02
        xs( 53) = 0.6328905344081856D-02
        xs( 54) = 0.6713487801984440D-02
        xs( 55) = 0.7124245284720860D-02
        xs( 56) = 0.7563816335741990D-02
        xs( 57) = 0.8035215954510230D-02
        xs( 58) = 0.8541905418391695D-02
        xs( 59) = 0.9087878306534175D-02
        xs( 60) = 0.9677768193283027D-02
        xs( 61) = 0.1031698274711506D-01
        xs( 62) = 0.1101187364970518D-01
        xs( 63) = 0.1176995688019930D-01
        xs( 64) = 0.1260019760599385D-01
        xs( 65) = 0.1351338710961085D-01
        xs( 66) = 0.1452264216497635D-01
        xs( 67) = 0.1564409054370667D-01
        xs( 68) = 0.1689783013362576D-01
        xs( 69) = 0.1830928181865685D-01
        xs( 70) = 0.1991122242351111D-01
        xs( 71) = 0.2174696065258931D-01
        xs( 72) = 0.2387554348811512D-01
        xs( 73) = 0.2638007043471956D-01
        xs( 74) = 0.2938105582458186D-01
        xs( 75) = 0.3306066999421212D-01
        xs( 76) = 0.3770668319466238D-01
        xs( 77) = 0.4378523408158940D-01
        xs( 78) = 0.5203540423330707D-01
        xs( 79) = 0.6351563432077546D-01
        xs( 80) = 0.7940380057293335D-01
        xs( 81) = 0.1001744344679883D+00
        xs( 82) = 0.1246716255232778D+00
        xs( 83) = 0.1508953383888352D+00
        xs( 84) = 0.1768350165311553D+00
        ws(  1) = 0.2412198200028451D-05
        ws(  2) = 0.5615388567274155D-05
        ws(  3) = 0.8824040698627212D-05
        ws(  4) = 0.1203457529292576D-04
        ws(  5) = 0.1524782926901674D-04
        ws(  6) = 0.1846542606221445D-04
        ws(  7) = 0.2168960813633390D-04
        ws(  8) = 0.2492323055115309D-04
        ws(  9) = 0.2816976712871248D-04
        ws( 10) = 0.3143327822703757D-04
        ws( 11) = 0.3471839744243270D-04
        ws( 12) = 0.3803028774652237D-04
        ws( 13) = 0.4137462070000767D-04
        ws( 14) = 0.4475754039275286D-04
        ws( 15) = 0.4818565151138420D-04
        ws( 16) = 0.5166599852037697D-04
        ws( 17) = 0.5520607900292322D-04
        ws( 18) = 0.5881384150163055D-04
        ws( 19) = 0.6249768722222120D-04
        ws( 20) = 0.6626652045037205D-04
        ws( 21) = 0.7012977213543300D-04
        ws( 22) = 0.7409743248490130D-04
        ws( 23) = 0.7818011496269002D-04
        ws( 24) = 0.8238911537624716D-04
        ws( 25) = 0.8673647100756415D-04
        ws( 26) = 0.9123505369277313D-04
        ws( 27) = 0.9589866289072188D-04
        ws( 28) = 0.1007421117676072D-03
        ws( 29) = 0.1057813668231301D-03
        ws( 30) = 0.1110336672109848D-03
        ws( 31) = 0.1165176861631212D-03
        ws( 32) = 0.1222537029592893D-03
        ws( 33) = 0.1282637636678799D-03
        ws( 34) = 0.1345719595377371D-03
        ws( 35) = 0.1412046516742049D-03
        ws( 36) = 0.1481907162253976D-03
        ws( 37) = 0.1555619600832776D-03
        ws( 38) = 0.1633534321017748D-03
        ws( 39) = 0.1716038871261608D-03
        ws( 40) = 0.1803562620837200D-03
        ws( 41) = 0.1896583092910614D-03
        ws( 42) = 0.1995632391785829D-03
        ws( 43) = 0.2101305120542472D-03
        ws( 44) = 0.2214267837367075D-03
        ws( 45) = 0.2335270172936736D-03
        ws( 46) = 0.2465157410988295D-03
        ws( 47) = 0.2604885043133455D-03
        ws( 48) = 0.2755539704008206D-03
        ws( 49) = 0.2918357422698031D-03
        ws( 50) = 0.3094751852922512D-03
        ws( 51) = 0.3286347454555393D-03
        ws( 52) = 0.3495015039681859D-03
        ws( 53) = 0.3722921268098877D-03
        ws( 54) = 0.3972585433439910D-03
        ws( 55) = 0.4246952306173792D-03
        ws( 56) = 0.4549482170340670D-03
        ws( 57) = 0.4884264800913649D-03
        ws( 58) = 0.5256162577487140D-03
        ws( 59) = 0.5670995603001653D-03
        ws( 60) = 0.6135787101784110D-03
        ws( 61) = 0.6659053434977890D-03
        ws( 62) = 0.7251244746118457D-03
        ws( 63) = 0.7925299249748035D-03
        ws( 64) = 0.8697419282679361D-03
        ws( 65) = 0.9588119944713112D-03
        ws( 66) = 0.1062370280498509D-02
        ws( 67) = 0.1183854353624044D-02
        ws( 68) = 0.1327828596858498D-02
        ws( 69) = 0.1500487025877503D-02
        ws( 70) = 0.1710528144373646D-02
        ws( 71) = 0.1970653330901167D-02
        ws( 72) = 0.2300154632555591D-02
        ws( 73) = 0.2728602564261836D-02
        ws( 74) = 0.3303021135251827D-02
        ws( 75) = 0.4102967052276944D-02
        ws( 76) = 0.5265013724249290D-02
        ws( 77) = 0.7014105200633345D-02
        ws( 78) = 0.9664869271179665D-02
        ws( 79) = 0.1350528049469760D-01
        ws( 80) = 0.1837438188781504D-01
        ws( 81) = 0.2295492627901573D-01
        ws( 82) = 0.2568229378680751D-01
        ws( 83) = 0.2649370752875700D-01
        ws( 84) = 0.2368596214234298D-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 =  21
        err = 0.6932512591023899D-07
        xs(  1) = 0.4674443047543901D-03
        xs(  2) = 0.2401236868936091D-02
        xs(  3) = 0.5677489659747597D-02
        xs(  4) = 0.1007218061138086D-01
        xs(  5) = 0.1539002486679932D-01
        xs(  6) = 0.2147520758561790D-01
        xs(  7) = 0.2820404247152581D-01
        xs(  8) = 0.3547731105487653D-01
        xs(  9) = 0.4321511537945414D-01
        xs( 10) = 0.5135333946938224D-01
        xs( 11) = 0.5984089764767705D-01
        xs( 12) = 0.6863746059035196D-01
        xs( 13) = 0.7771159594525492D-01
        xs( 14) = 0.8703932461776304D-01
        xs( 15) = 0.9660309826613334D-01
        xs( 16) = 0.1063911985133652D+00
        xs( 17) = 0.1163976831261082D+00
        xs( 18) = 0.1266231278281460D+00
        xs( 19) = 0.1370763681964259D+00
        xs( 20) = 0.1477824970717025D+00
        xs( 21) = 0.1588433538803591D+00
        ws(  1) = 0.1191980349751004D-02
        ws(  2) = 0.2642703915860630D-02
        ws(  3) = 0.3871396809373524D-02
        ws(  4) = 0.4885369885084717D-02
        ws(  5) = 0.5724506623913318D-02
        ws(  6) = 0.6425374472294289D-02
        ws(  7) = 0.7015841556185069D-02
        ws(  8) = 0.7517436769485402D-02
        ws(  9) = 0.7947532305431873D-02
        ws( 10) = 0.8320442357872593D-02
        ws( 11) = 0.8647991162185438D-02
        ws( 12) = 0.8939940812281494D-02
        ws( 13) = 0.9204406956854528D-02
        ws( 14) = 0.9448293736631341D-02
        ws( 15) = 0.9677756043629545D-02
        ws( 16) = 0.9898797409034510D-02
        ws( 17) = 0.1011848235865853D-01
        ws( 18) = 0.1034797859240364D-01
        ws( 19) = 0.1061357569714236D-01
        ws( 20) = 0.1103029963276130D-01
        ws( 21) = 0.1261428634131323D-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 =  21
        err = 0.8287673857908477D-07
        xs(  1) = 0.4538914365076460D-03
        xs(  2) = 0.2339136400844164D-02
        xs(  3) = 0.5553567408001266D-02
        xs(  4) = 0.9890828114505658D-02
        xs(  5) = 0.1516197741923276D-01
        xs(  6) = 0.2121123252501074D-01
        xs(  7) = 0.2791296115211015D-01
        xs(  8) = 0.3516588260460516D-01
        xs(  9) = 0.4288842962256685D-01
        xs( 10) = 0.5101523509909799D-01
        xs( 11) = 0.5949428871153485D-01
        xs( 12) = 0.6828456734715450D-01
        xs( 13) = 0.7735410122881617D-01
        xs( 14) = 0.8667847289817808D-01
        xs( 15) = 0.9623974702416453D-01
        xs( 16) = 0.1060258357813208D+00
        xs( 17) = 0.1160303871377746D+00
        xs( 18) = 0.1262534330166480D+00
        xs( 19) = 0.1367030334924266D+00
        xs( 20) = 0.1474027151458026D+00
        xs( 21) = 0.1584461014724423D+00
        ws(  1) = 0.1158427948568268D-02
        ws(  2) = 0.2583560708226141D-02
        ws(  3) = 0.3809885205278851D-02
        ws(  4) = 0.4832967627346622D-02
        ws(  5) = 0.5683451531149182D-02
        ws(  6) = 0.6394222692316231D-02
        ws(  7) = 0.6992430874750035D-02
        ws(  8) = 0.7499875637950557D-02
        ws(  9) = 0.7934372502448158D-02
        ws( 10) = 0.8310613175010244D-02
        ws( 11) = 0.8640698025321964D-02
        ws( 12) = 0.8934579147684266D-02
        ws( 13) = 0.9200498873082504D-02
        ws( 14) = 0.9445434733106006D-02
        ws( 15) = 0.9675575580612760D-02
        ws( 16) = 0.9896930799303047D-02
        ws( 17) = 0.1011650763519226D-01
        ws( 18) = 0.1034535519530496D-01
        ws( 19) = 0.1060951734372725D-01
        ws( 20) = 0.1102170872634336D-01
        ws( 21) = 0.1259755139299552D-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 =  21
        err = 0.8302950060516478D-07
        xs(  1) = 0.4317751281843240D-03
        xs(  2) = 0.2239802087245998D-02
        xs(  3) = 0.5359254703542699D-02
        xs(  4) = 0.9609597762835494D-02
        xs(  5) = 0.1480896174153490D-01
        xs(  6) = 0.2080081077767574D-01
        xs(  7) = 0.2745709246604602D-01
        xs(  8) = 0.3467419883366969D-01
        xs(  9) = 0.4236859645620264D-01
        xs( 10) = 0.5047328267364811D-01
        xs( 11) = 0.5893488888994347D-01
        xs( 12) = 0.6771126132772132D-01
        xs( 13) = 0.7676948186644092D-01
        xs( 14) = 0.8608431451594876D-01
        xs( 15) = 0.9563708456236075D-01
        xs( 16) = 0.1054150058752704D+00
        xs( 17) = 0.1154109624482916D+00
        xs( 18) = 0.1256240711876947D+00
        xs( 19) = 0.1360612820945145D+00
        xs( 20) = 0.1467436389668264D+00
        xs( 21) = 0.1577588477145909D+00
        ws(  1) = 0.1104005828475122D-02
        ws(  2) = 0.2491164941921097D-02
        ws(  3) = 0.3716570999406065D-02
        ws(  4) = 0.4753404120228827D-02
        ws(  5) = 0.5619225305748698D-02
        ws(  6) = 0.6343211917248013D-02
        ws(  7) = 0.6952158312376983D-02
        ws(  8) = 0.7468192176385205D-02
        ws(  9) = 0.7909486780530790D-02
        ws( 10) = 0.8291036965562245D-02
        ws( 11) = 0.8625195307360662D-02
        ws( 12) = 0.8922119068398585D-02
        ws( 13) = 0.9190210746845791D-02
        ws( 14) = 0.9436550771559938D-02
        ws( 15) = 0.9667395660858107D-02
        ws( 16) = 0.9888773221507914D-02
        ws( 17) = 0.1010760979757221D-01
        ws( 18) = 0.1033494721489671D-01
        ws( 19) = 0.1059669947963192D-01
        ws( 20) = 0.1100187928868648D-01
        ws( 21) = 0.1258572041434456D-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 =  22
        err = 0.4428680103280562D-07
        xs(  1) = 0.3674490915913737D-03
        xs(  2) = 0.1927193004014315D-02
        xs(  3) = 0.4682747101537973D-02
        xs(  4) = 0.8531712238832636D-02
        xs(  5) = 0.1334052120135678D-01
        xs(  6) = 0.1897363781942479D-01
        xs(  7) = 0.2530826099754591D-01
        xs(  8) = 0.3223887354544399D-01
        xs(  9) = 0.3967741533628023D-01
        xs( 10) = 0.4755180465555592D-01
        xs( 11) = 0.5580387232846979D-01
        xs( 12) = 0.6438720539914104D-01
        xs( 13) = 0.7326517410113137D-01
        xs( 14) = 0.8240927759407528D-01
        xs( 15) = 0.9179787142441928D-01
        xs( 16) = 0.1014152712836465D+00
        xs( 17) = 0.1112512983357373D+00
        xs( 18) = 0.1213013959417710D+00
        xs( 19) = 0.1315673196396941D+00
        xs( 20) = 0.1420597234798130D+00
        xs( 21) = 0.1528002415979126D+00
        xs( 22) = 0.1640007713077040D+00
        ws(  1) = 0.9422120654759063D-03
        ws(  2) = 0.2170352340917050D-02
        ws(  3) = 0.3323107675472918D-02
        ws(  4) = 0.4352044510455152D-02
        ws(  5) = 0.5242758487868199D-02
        ws(  6) = 0.6002946337781000D-02
        ws(  7) = 0.6648716592549834D-02
        ws(  8) = 0.7197858715448594D-02
        ws(  9) = 0.7667247126668635D-02
        ws( 10) = 0.8071874292673182D-02
        ws( 11) = 0.8424561454313946D-02
        ws( 12) = 0.8736034197092528D-02
        ws( 13) = 0.9015191006719828D-02
        ws( 14) = 0.9269469684903928D-02
        ws( 15) = 0.9505248276192027D-02
        ws( 16) = 0.9728259429011690D-02
        ws( 17) = 0.9944230239583707D-02
        ws( 18) = 0.1015994506228766D-01
        ws( 19) = 0.1038603424598076D-01
        ws( 20) = 0.1065061948122888D-01
        ws( 21) = 0.1103176614619547D-01
        ws( 22) = 0.1300858422101904D-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 =  22
        err = 0.5082052822386542D-07
        xs(  1) = 0.3182186897415508D-03
        xs(  2) = 0.1688576903458947D-02
        xs(  3) = 0.4169748793022049D-02
        xs(  4) = 0.7722554376021136D-02
        xs(  5) = 0.1225402590858461D-01
        xs(  6) = 0.1764820688683020D-01
        xs(  7) = 0.2378756417178583D-01
        xs(  8) = 0.3056362120066051D-01
        xs(  9) = 0.3788176140796070D-01
        xs( 10) = 0.4566264546928334D-01
        xs( 11) = 0.5384155245160302D-01
        xs( 12) = 0.6236667975785167D-01
        xs( 13) = 0.7119715380420363D-01
        xs( 14) = 0.8030118685995490D-01
        xs( 15) = 0.8965457594555037D-01
        xs( 16) = 0.9923962736499872D-01
        xs( 17) = 0.1090445567591764D+00
        xs( 18) = 0.1190634247824171D+00
        xs( 19) = 0.1292970055749815D+00
        xs( 20) = 0.1397552861029915D+00
        xs( 21) = 0.1504630223306116D+00
        xs( 22) = 0.1616104508252756D+00
        ws(  1) = 0.8184330695321280D-03
        ws(  2) = 0.1926585627057441D-02
        ws(  3) = 0.3029012671170129D-02
        ws(  4) = 0.4060500920470039D-02
        ws(  5) = 0.4982773050219814D-02
        ws(  6) = 0.5785835451236559D-02
        ws(  7) = 0.6474724459623082D-02
        ws(  8) = 0.7061599616167224D-02
        ws(  9) = 0.7561471633949966D-02
        ws( 10) = 0.7989541035163961D-02
        ws( 11) = 0.8359676270438045D-02
        ws( 12) = 0.8683804906174646D-02
        ws( 13) = 0.8971891585070224D-02
        ws( 14) = 0.9232217389444488D-02
        ws( 15) = 0.9471782413597819D-02
        ws( 16) = 0.9696808724702181D-02
        ws( 17) = 0.9913379961757807D-02
        ws( 18) = 0.1012864143086118D-01
        ws( 19) = 0.1035415493582519D-01
        ws( 20) = 0.1061704240191701D-01
        ws( 21) = 0.1102886707560536D-01
        ws( 22) = 0.1282017439368526D-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 =  23
        err = 0.6774406168522196D-07
        xs(  1) = 0.2104720768849509D-03
        xs(  2) = 0.1142656758430582D-02
        xs(  3) = 0.2935585732840374D-02
        xs(  4) = 0.5702538346293882D-02
        xs(  5) = 0.9473139288993532D-02
        xs(  6) = 0.1418703204796426D-01
        xs(  7) = 0.1973944099237985D-01
        xs(  8) = 0.2601579092936888D-01
        xs(  9) = 0.3290823350804922D-01
        xs( 10) = 0.4032299906754408D-01
        xs( 11) = 0.4818266304984946D-01
        xs( 12) = 0.5642530260446639D-01
        xs( 13) = 0.6500228365499826D-01
        xs( 14) = 0.7387580543734526D-01
        xs( 15) = 0.8301686937431570D-01
        xs( 16) = 0.9240354149729572D-01
        xs( 17) = 0.1020200808767737D+00
        xs( 18) = 0.1118565128447708D+00
        xs( 19) = 0.1219070651538489D+00
        xs( 20) = 0.1321745366233005D+00
        xs( 21) = 0.1426739359768239D+00
        xs( 22) = 0.1534051549569149D+00
        xs( 23) = 0.1645195758916537D+00
        ws(  1) = 0.5441649610712850D-03
        ws(  2) = 0.1340348638458759D-02
        ws(  3) = 0.2266155006221469D-02
        ws(  4) = 0.3272639376748221D-02
        ws(  5) = 0.4257557751350342D-02
        ws(  6) = 0.5152204248074146D-02
        ws(  7) = 0.5933267569314832D-02
        ws(  8) = 0.6601342723320460D-02
        ws(  9) = 0.7167880863465576D-02
        ws( 10) = 0.7648766780903475D-02
        ws( 11) = 0.8060283188536832D-02
        ws( 12) = 0.8416941025427319D-02
        ws( 13) = 0.8730766478628539D-02
        ws( 14) = 0.9011500031587035D-02
        ws( 15) = 0.9267054321025312D-02
        ws( 16) = 0.9503857968863527D-02
        ws( 17) = 0.9728163387626058D-02
        ws( 18) = 0.9945091108788821D-02
        ws( 19) = 0.1016033215151143D-01
        ws( 20) = 0.1039168100738574D-01
        ws( 21) = 0.1066135350256921D-01
        ws( 22) = 0.1100097253566983D-01
        ws( 23) = 0.1290477784931610D-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 =  23
        err = 0.8283964407859251D-07
        xs(  1) = 0.1521865501733241D-03
        xs(  2) = 0.8298055144110437D-03
        xs(  3) = 0.2163493141326255D-02
        xs(  4) = 0.4337375460137710D-02
        xs(  5) = 0.7541334478539151D-02
        xs(  6) = 0.1184971104153701D-01
        xs(  7) = 0.1717502932191552D-01
        xs(  8) = 0.2335015702976296D-01
        xs(  9) = 0.3021405025833771D-01
        xs( 10) = 0.3763952626934816D-01
        xs( 11) = 0.4553108446000779D-01
        xs( 12) = 0.5381715233237798D-01
        xs( 13) = 0.6244363897215915D-01
        xs( 14) = 0.7136940368403953D-01
        xs( 15) = 0.8056315679395944D-01
        xs( 16) = 0.9000138056672172D-01
        xs( 17) = 0.9966696227739959D-01
        xs( 18) = 0.1095484198954044D+00
        xs( 19) = 0.1196397417278870D+00
        xs( 20) = 0.1299409719773608D+00
        xs( 21) = 0.1404587244008447D+00
        xs( 22) = 0.1512018585816021D+00
        xs( 23) = 0.1623155817860450D+00
        ws(  1) = 0.3937254629562033D-03
        ws(  2) = 0.9801385029624494D-03
        ws(  3) = 0.1718982690705400D-02
        ws(  4) = 0.2662871648611362D-02
        ws(  5) = 0.3758434703050178D-02
        ws(  6) = 0.4841870635427688D-02
        ws(  7) = 0.5779370595021846D-02
        ws(  8) = 0.6543695050903900D-02
        ws(  9) = 0.7162985753824449D-02
        ws( 10) = 0.7672190341646125D-02
        ws( 11) = 0.8099105549598961D-02
        ws( 12) = 0.8464090372032060D-02
        ws( 13) = 0.8782081047275613D-02
        ws( 14) = 0.9064285475622418D-02
        ws( 15) = 0.9319385210797733D-02
        ws( 16) = 0.9554378357936500D-02
        ws( 17) = 0.9775228449554410D-02
        ws( 18) = 0.9987707170471516D-02
        ws( 19) = 0.1019885751701264D-01
        ws( 20) = 0.1041942579590081D-01
        ws( 21) = 0.1066951545642878D-01
        ws( 22) = 0.1102792699661762D-01
        ws( 23) = 0.1270424531348092D-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 =  25
        err = 0.8034620222731162D-07
        xs(  1) = 0.7440556762013606D-04
        xs(  2) = 0.4008685403349680D-03
        xs(  3) = 0.1026446210332095D-02
        xs(  4) = 0.2025606240363276D-02
        xs(  5) = 0.3523762949562613D-02
        xs(  6) = 0.5707464276526691D-02
        xs(  7) = 0.8804189130674513D-02
        xs(  8) = 0.1299281790651459D-01
        xs(  9) = 0.1828457391508206D-01
        xs( 10) = 0.2452551777014819D-01
        xs( 11) = 0.3151574139204360D-01
        xs( 12) = 0.3909044946987866D-01
        xs( 13) = 0.4713238877543725D-01
        xs( 14) = 0.5556001816204381D-01
        xs( 15) = 0.6431537773841541D-01
        xs( 16) = 0.7335611280050042D-01
        xs( 17) = 0.8265074473694303D-01
        xs( 18) = 0.9217591940537441D-01
        xs( 19) = 0.1019146144775922D+00
        xs( 20) = 0.1118556683195636D+00
        xs( 21) = 0.1219926369789969D+00
        xs( 22) = 0.1323242289234786D+00
        xs( 23) = 0.1428634981848620D+00
        xs( 24) = 0.1536014656116389D+00
        xs( 25) = 0.1644852610208697D+00
        ws(  1) = 0.1919355534084557D-03
        ws(  2) = 0.4671123618878809D-03
        ws(  3) = 0.7962102898661804D-03
        ws(  4) = 0.1222783363622309D-02
        ws(  5) = 0.1804828180969202D-02
        ws(  6) = 0.2602006843634654D-02
        ws(  7) = 0.3623789638374034D-02
        ws(  8) = 0.4755285854539913D-02
        ws(  9) = 0.5800013590563597D-02
        ws( 10) = 0.6647216188997428D-02
        ws( 11) = 0.7305699539851645D-02
        ws( 12) = 0.7824421093574870D-02
        ws( 13) = 0.8246077676140010D-02
        ws( 14) = 0.8599657100642822D-02
        ws( 15) = 0.8904091641524451D-02
        ws( 16) = 0.9172196420499651D-02
        ws( 17) = 0.9413275021893376D-02
        ws( 18) = 0.9634457289619385D-02
        ws( 19) = 0.9841632248401316D-02
        ws( 20) = 0.1004071368727306D-01
        ws( 21) = 0.1023681572097750D-01
        ws( 22) = 0.1044587382903490D-01
        ws( 23) = 0.1069648719121691D-01
        ws( 24) = 0.1098848049936435D-01
        ws( 25) = 0.1220525318461261D-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 =  29
        err = 0.5083242420924050D-07
        xs(  1) = 0.2931041890735392D-04
        xs(  2) = 0.1558804087195770D-03
        xs(  3) = 0.3897229727246669D-03
        xs(  4) = 0.7423679103361425D-03
        xs(  5) = 0.1232658036234509D-02
        xs(  6) = 0.1889607065002558D-02
        xs(  7) = 0.2756843211779219D-02
        xs(  8) = 0.3899514395442752D-02
        xs(  9) = 0.5414677585598600D-02
        xs( 10) = 0.7445394784626168D-02
        xs( 11) = 0.1019387862871210D-01
        xs( 12) = 0.1391276609010924D-01
        xs( 13) = 0.1882622025829240D-01
        xs( 14) = 0.2497432618210278D-01
        xs( 15) = 0.3216248926410309D-01
        xs( 16) = 0.4011358234305882D-01
        xs( 17) = 0.4860596407581580D-01
        xs( 18) = 0.5749724814423915D-01
        xs( 19) = 0.6670132253326685D-01
        xs( 20) = 0.7616557801934803D-01
        xs( 21) = 0.8585685480154408D-01
        xs( 22) = 0.9575379838662224D-01
        xs( 23) = 0.1058425976145737D+00
        xs( 24) = 0.1161156952057902D+00
        xs( 25) = 0.1265705582487011D+00
        xs( 26) = 0.1372095533815752D+00
        xs( 27) = 0.1480499309680600D+00
        xs( 28) = 0.1590307361553593D+00
        xs( 29) = 0.1699344994528686D+00
        ws(  1) = 0.7538277225214802D-04
        ws(  2) = 0.1787862210635971D-03
        ws(  3) = 0.2907885297527120D-03
        ws(  4) = 0.4175958046923584D-03
        ws(  5) = 0.5677480633808630D-03
        ws(  6) = 0.7533089475119147D-03
        ws(  7) = 0.9918499826681167D-03
        ws(  8) = 0.1309426784226411D-02
        ws(  9) = 0.1744482872450344D-02
        ws( 10) = 0.2350673315637809D-02
        ws( 11) = 0.3189581300493604D-02
        ws( 12) = 0.4288695254590642D-02
        ws( 13) = 0.5546224667224283D-02
        ws( 14) = 0.6714108818741718D-02
        ws( 15) = 0.7613562766920379D-02
        ws( 16) = 0.8251543914764485D-02
        ws( 17) = 0.8709970613159319D-02
        ws( 18) = 0.9058633554640295D-02
        ws( 19) = 0.9340970538328481D-02
        ws( 20) = 0.9582125841884540D-02
        ws( 21) = 0.9796933994129916D-02
        ws( 22) = 0.9994746107174464D-02
        ws( 23) = 0.1018196658717740D-01
        ws( 24) = 0.1036487680042936D-01
        ws( 25) = 0.1054573277352386D-01
        ws( 26) = 0.1074001303834844D-01
        ws( 27) = 0.1099364083168782D-01
        ws( 28) = 0.1126965359301389D-01
        ws( 29) = 0.1171781390804501D-01
        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 =  31
        err = 0.8545467161412870D-07
        xs(  1) = 0.1636576834565991D-04
        xs(  2) = 0.8664275185568896D-04
        xs(  3) = 0.2148134676253305D-03
        xs(  4) = 0.4040969445374309D-03
        xs(  5) = 0.6595758568021497D-03
        xs(  6) = 0.9887394767771251D-03
        xs(  7) = 0.1402226672692850D-02
        xs(  8) = 0.1914894379388824D-02
        xs(  9) = 0.2547393363826165D-02
        xs( 10) = 0.3328541983062836D-02
        xs( 11) = 0.4298978811532387D-02
        xs( 12) = 0.5516870229369436D-02
        xs( 13) = 0.7066878637061729D-02
        xs( 14) = 0.9074147687662926D-02
        xs( 15) = 0.1172485282494094D-01
        xs( 16) = 0.1529080309167701D-01
        xs( 17) = 0.2013312938188950D-01
        xs( 18) = 0.2659132073259261D-01
        xs( 19) = 0.3469188380257534D-01
        xs( 20) = 0.4403854130606939D-01
        xs( 21) = 0.5413187617659941D-01
        xs( 22) = 0.6462772664810754D-01
        xs( 23) = 0.7534504214803069D-01
        xs( 24) = 0.8620017729862577D-01
        xs( 25) = 0.9715854016021586D-01
        xs( 26) = 0.1082086745682020D+00
        xs( 27) = 0.1193511515480092D+00
        xs( 28) = 0.1305879441794186D+00
        xs( 29) = 0.1419169523010129D+00
        xs( 30) = 0.1532789912857625D+00
        xs( 31) = 0.1642973948314944D+00
        ws(  1) = 0.4204639793718645D-04
        ws(  2) = 0.9881874308319863D-04
        ws(  3) = 0.1580511954870335D-03
        ws(  4) = 0.2213541600449855D-03
        ws(  5) = 0.2908397623172117D-03
        ws(  6) = 0.3692432555143371D-03
        ws(  7) = 0.4601816859732505D-03
        ws(  8) = 0.5685570658736739D-03
        ws(  9) = 0.7011848848363937D-03
        ws( 10) = 0.8677931032988438D-03
        ws( 11) = 0.1082629838435487D-02
        ws( 12) = 0.1367035007236203D-02
        ws( 13) = 0.1753495578245001D-02
        ws( 14) = 0.2291624070616994D-02
        ws( 15) = 0.3054818751167233D-02
        ws( 16) = 0.4138681241172526D-02
        ws( 17) = 0.5608415490184757D-02
        ws( 18) = 0.7315556193208346D-02
        ws( 19) = 0.8811992281703663D-02
        ws( 20) = 0.9793585586461998D-02
        ws( 21) = 0.1033622974973141D-01
        ws( 22) = 0.1062656397463548D-01
        ws( 23) = 0.1079492140261572D-01
        ws( 24) = 0.1090989398664914D-01
        ws( 25) = 0.1100458693586409D-01
        ws( 26) = 0.1109462301018567D-01
        ws( 27) = 0.1119133048018276D-01
        ws( 28) = 0.1130148090978537D-01
        ws( 29) = 0.1144761378715322D-01
        ws( 30) = 0.1138290660336119D-01
        ws( 31) = 0.9859230008936895D-02
        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 =  35
        err = 0.6373005612123165D-07
        xs(  1) = 0.1022452859785467D-04
        xs(  2) = 0.5402266433946596D-04
        xs(  3) = 0.1334474740406749D-03
        xs(  4) = 0.2496549092405311D-03
        xs(  5) = 0.4044221920922030D-03
        xs(  6) = 0.6002961832745022D-03
        xs(  7) = 0.8407703332390817D-03
        xs(  8) = 0.1130513507738414D-02
        xs(  9) = 0.1475673918598717D-02
        xs( 10) = 0.1884291840832075D-02
        xs( 11) = 0.2366872365711388D-02
        xs( 12) = 0.2937194728454655D-02
        xs( 13) = 0.3613477413837039D-02
        xs( 14) = 0.4420083674338128D-02
        xs( 15) = 0.5390067599554277D-02
        xs( 16) = 0.6569049639346920D-02
        xs( 17) = 0.8021211781574044D-02
        xs( 18) = 0.9838743967405993D-02
        xs( 19) = 0.1215677970560038D-01
        xs( 20) = 0.1517624882247416D-01
        xs( 21) = 0.1919410675082659D-01
        xs( 22) = 0.2461852093204092D-01
        xs( 23) = 0.3186821227940461D-01
        xs( 24) = 0.4104451407511592D-01
        xs( 25) = 0.5171926142271288D-01
        xs( 26) = 0.6325706482225418D-01
        xs( 27) = 0.7518925154379183D-01
        xs( 28) = 0.8726884485084142D-01
        xs( 29) = 0.9938922196667502D-01
        xs( 30) = 0.1115139542656780D+00
        xs( 31) = 0.1236387645280862D+00
        xs( 32) = 0.1357663352951017D+00
        xs( 33) = 0.1478934307043759D+00
        xs( 34) = 0.1600077468039073D+00
        xs( 35) = 0.1714324973864116D+00
        ws(  1) = 0.2625643515230901D-04
        ws(  2) = 0.6146278451399182D-04
        ws(  3) = 0.9757652709729831D-04
        ws(  4) = 0.1351322212989049D-03
        ws(  5) = 0.1748239087952588D-03
        ws(  6) = 0.2175025592287883D-03
        ws(  7) = 0.2642188955314016D-03
        ws(  8) = 0.3162853987051303D-03
        ws(  9) = 0.3753660963492627D-03
        ws( 10) = 0.4436073834993174D-03
        ws( 11) = 0.5238312159927790D-03
        ws( 12) = 0.6198221726379861D-03
        ws( 13) = 0.7367624387159740D-03
        ws( 14) = 0.8818962959333007D-03
        ws( 15) = 0.1065578085563018D-02
        ws( 16) = 0.1302930532054113D-02
        ws( 17) = 0.1616516217666640D-02
        ws( 18) = 0.2040693029368459D-02
        ws( 19) = 0.2628333304916514D-02
        ws( 20) = 0.3459636982415631D-02
        ws( 21) = 0.4645237092621097D-02
        ws( 22) = 0.6279637807338668D-02
        ws( 23) = 0.8242178824904250D-02
        ws( 24) = 0.1003151743651047D-01
        ws( 25) = 0.1120493842761240D-01
        ws( 26) = 0.1179244033082229D-01
        ws( 27) = 0.1203241807014425D-01
        ws( 28) = 0.1211004724169931D-01
        ws( 29) = 0.1212471324677848D-01
        ws( 30) = 0.1212299104844215D-01
        ws( 31) = 0.1213030617322109D-01
        ws( 32) = 0.1215929887607352D-01
        ws( 33) = 0.1219771946735667D-01
        ws( 34) = 0.1225045014051552D-01
        ws( 35) = 0.1083756481657418D-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 =  38
        err = 0.7755613476506286D-07
        xs(  1) = 0.7164776590998100D-05
        xs(  2) = 0.3781683667988553D-04
        xs(  3) = 0.9323832955243862D-04
        xs(  4) = 0.1739402278333673D-03
        xs(  5) = 0.2806980083407370D-03
        xs(  6) = 0.4146136482929626D-03
        xs(  7) = 0.5771805814693023D-03
        xs(  8) = 0.7703608619553170D-03
        xs(  9) = 0.9966794245624519D-03
        xs( 10) = 0.1259342507587215D-02
        xs( 11) = 0.1562389822768901D-02
        xs( 12) = 0.1910894421015155D-02
        xs( 13) = 0.2311228787469736D-02
        xs( 14) = 0.2771425468584050D-02
        xs( 15) = 0.3301671940116662D-02
        xs( 16) = 0.3914999617294572D-02
        xs( 17) = 0.4628261429123464D-02
        xs( 18) = 0.5463538708466360D-02
        xs( 19) = 0.6450212927359857D-02
        xs( 20) = 0.7628083692155749D-02
        xs( 21) = 0.9052155607934634D-02
        xs( 22) = 0.1080018951209774D-01
        xs( 23) = 0.1298490611520317D-01
        xs( 24) = 0.1577379737966131D-01
        xs( 25) = 0.1942044786790882D-01
        xs( 26) = 0.2430683103942748D-01
        xs( 27) = 0.3095364021833323D-01
        xs( 28) = 0.3983089785583436D-01
        xs( 29) = 0.5089062908396186D-01
        xs( 30) = 0.6344983289644676D-01
        xs( 31) = 0.7673261805543849D-01
        xs( 32) = 0.9024872680472683D-01
        xs( 33) = 0.1037707056497005D+00
        xs( 34) = 0.1172152688257113D+00
        xs( 35) = 0.1305619958917817D+00
        xs( 36) = 0.1438039870764565D+00
        xs( 37) = 0.1568713076325866D+00
        xs( 38) = 0.1693555486987437D+00
        ws(  1) = 0.1839460670164035D-04
        ws(  2) = 0.4296982107147508D-04
        ws(  3) = 0.6795671999221209D-04
        ws(  4) = 0.9357538298207144D-04
        ws(  5) = 0.1201227671488494D-03
        ws(  6) = 0.1479561437911256D-03
        ws(  7) = 0.1775031819747490D-03
        ws(  8) = 0.2092762477611911D-03
        ws(  9) = 0.2438927488647610D-03
        ws( 10) = 0.2821034116467679D-03
        ws( 11) = 0.3248323579915364D-03
        ws( 12) = 0.3732330036761316D-03
        ws( 13) = 0.4287663611035025D-03
        ws( 14) = 0.4933136609386520D-03
        ws( 15) = 0.5693351897229798D-03
        ws( 16) = 0.6601060980767077D-03
        ws( 17) = 0.7700640802785022D-03
        ws( 18) = 0.9053368084788188D-03
        ws( 19) = 0.1074567590120538D-02
        ws( 20) = 0.1290219875589129D-02
        ws( 21) = 0.1570687740530654D-02
        ws( 22) = 0.1943846543975593D-02
        ws( 23) = 0.2452989015598859D-02
        ws( 24) = 0.3166294974369251D-02
        ws( 25) = 0.4190103769182017D-02
        ws( 26) = 0.5671905914910535D-02
        ws( 27) = 0.7709768638445369D-02
        ws( 28) = 0.1004043956214034D-01
        ws( 29) = 0.1195253992617123D-01
        ws( 30) = 0.1303018607662891D-01
        ws( 31) = 0.1345508979836742D-01
        ws( 32) = 0.1354136340697230D-01
        ws( 33) = 0.1349032595123453D-01
        ws( 34) = 0.1339913654018981D-01
        ws( 35) = 0.1330268032889702D-01
        ws( 36) = 0.1319674316265869D-01
        ws( 37) = 0.1284511220728184D-01
        ws( 38) = 0.1061441242605409D-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 =  42
        err = 0.6431319690214803D-07
        xs(  1) = 0.5261415629210305D-05
        xs(  2) = 0.2775421169949485D-04
        xs(  3) = 0.6835460067718080D-04
        xs(  4) = 0.1273132223580391D-03
        xs(  5) = 0.2050048721044928D-03
        xs(  6) = 0.3019592190457984D-03
        xs(  7) = 0.4188894532048697D-03
        xs(  8) = 0.5567243473120249D-03
        xs(  9) = 0.7166448788234493D-03
        xs( 10) = 0.9001271789867067D-03
        xs( 11) = 0.1108994127526941D-02
        xs( 12) = 0.1345478940982524D-02
        xs( 13) = 0.1612304926412176D-02
        xs( 14) = 0.1912786920226383D-02
        xs( 15) = 0.2250962232502907D-02
        xs( 16) = 0.2631761029878560D-02
        xs( 17) = 0.3061230874191213D-02
        xs( 18) = 0.3546835870518118D-02
        xs( 19) = 0.4097860939966971D-02
        xs( 20) = 0.4725963790205639D-02
        xs( 21) = 0.5445943301905135D-02
        xs( 22) = 0.6276826160924549D-02
        xs( 23) = 0.7243433574379128D-02
        xs( 24) = 0.8378693554752402D-02
        xs( 25) = 0.9727124630222893D-02
        xs( 26) = 0.1135023060439326D-01
        xs( 27) = 0.1333513825778555D-01
        xs( 28) = 0.1580887523039863D-01
        xs( 29) = 0.1896210808523198D-01
        xs( 30) = 0.2308733983620180D-01
        xs( 31) = 0.2862900544329053D-01
        xs( 32) = 0.3618438581757298D-01
        xs( 33) = 0.4625014069251530D-01
        xs( 34) = 0.5868705866657130D-01
        xs( 35) = 0.7266816435356659D-01
        xs( 36) = 0.8732610955369895D-01
        xs( 37) = 0.1021375050984414D+00
        xs( 38) = 0.1168688738801940D+00
        xs( 39) = 0.1314365467044623D+00
        xs( 40) = 0.1458053718630976D+00
        xs( 41) = 0.1599235580698225D+00
        xs( 42) = 0.1733552252169698D+00
        ws(  1) = 0.1350612766743392D-04
        ws(  2) = 0.3151296014058236D-04
        ws(  3) = 0.4972859393962192D-04
        ws(  4) = 0.6825067135974131D-04
        ws(  5) = 0.8722043270710349D-04
        ws(  6) = 0.1068065966040510D-03
        ws(  7) = 0.1272080628264593D-03
        ws(  8) = 0.1486578433563243D-03
        ws(  9) = 0.1714283885503092D-03
        ws( 10) = 0.1958389744072223D-03
        ws( 11) = 0.2222658107648988D-03
        ws( 12) = 0.2511560291945030D-03
        ws( 13) = 0.2830462512180337D-03
        ws( 14) = 0.3185878152442545D-03
        ws( 15) = 0.3585808057608772D-03
        ws( 16) = 0.4040198089085473D-03
        ws( 17) = 0.4561572601242620D-03
        ws( 18) = 0.5165911865023627D-03
        ws( 19) = 0.5873893325128894D-03
        ws( 20) = 0.6712651069610308D-03
        ws( 21) = 0.7718395339508145D-03
        ws( 22) = 0.8940254763451441D-03
        ws( 23) = 0.1044620955545537D-02
        ws( 24) = 0.1233231781960049D-02
        ws( 25) = 0.1473742627357274D-02
        ws( 26) = 0.1786761546674996D-02
        ws( 27) = 0.2203842337243316D-02
        ws( 28) = 0.2774781703756351D-02
        ws( 29) = 0.3579512100437499D-02
        ws( 30) = 0.4744478925017959D-02
        ws( 31) = 0.6441983340299161D-02
        ws( 32) = 0.8762988812908185D-02
        ws( 33) = 0.1134756362122223D-01
        ws( 34) = 0.1337352913288520D-01
        ws( 35) = 0.1443798786671531D-01
        ws( 36) = 0.1479268792852939D-01
        ws( 37) = 0.1479401331064626D-01
        ws( 38) = 0.1465969622769261D-01
        ws( 39) = 0.1448924006278712D-01
        ws( 40) = 0.1426559819948321D-01
        ws( 41) = 0.1375159702158065D-01
        ws( 42) = 0.1115646901017575D-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 =  46
        err = 0.5571875573133029D-07
        xs(  1) = 0.4030087596972498D-05
        xs(  2) = 0.2125141325198215D-04
        xs(  3) = 0.5230532950831978D-04
        xs(  4) = 0.9732723955340051D-04
        xs(  5) = 0.1565164134133711D-03
        xs(  6) = 0.2301535975651992D-03
        xs(  7) = 0.3186157192176135D-03
        xs(  8) = 0.4223916804523764D-03
        xs(  9) = 0.5420995539376769D-03
        xs( 10) = 0.6785056867777239D-03
        xs( 11) = 0.8325464265081402D-03
        xs( 12) = 0.1005353452521261D-02
        xs( 13) = 0.1198284033402778D-02
        xs( 14) = 0.1412957730014649D-02
        xs( 15) = 0.1651301530706528D-02
        xs( 16) = 0.1915606036324038D-02
        xs( 17) = 0.2208595817645983D-02
        xs( 18) = 0.2533518475235520D-02
        xs( 19) = 0.2894258240405432D-02
        xs( 20) = 0.3295482175025136D-02
        xs( 21) = 0.3742830064187450D-02
        xs( 22) = 0.4243164100606599D-02
        xs( 23) = 0.4804900447689383D-02
        xs( 24) = 0.5438456538910263D-02
        xs( 25) = 0.6156861448126127D-02
        xs( 26) = 0.6976604613515608D-02
        xs( 27) = 0.7918838027987995D-02
        xs( 28) = 0.9011107977087455D-02
        xs( 29) = 0.1028992129558024D-01
        xs( 30) = 0.1180462480719786D-01
        xs( 31) = 0.1362348290133684D-01
        xs( 32) = 0.1584354607290557D-01
        xs( 33) = 0.1860709031086247D-01
        xs( 34) = 0.2212945329146335D-01
        xs( 35) = 0.2674457203512738D-01
        xs( 36) = 0.3296236190969989D-01
        xs( 37) = 0.4145466931401313D-01
        xs( 38) = 0.5272686394470264D-01
        xs( 39) = 0.6652661321012340D-01
        xs( 40) = 0.8188848838675244D-01
        xs( 41) = 0.9787463297809235D-01
        xs( 42) = 0.1139420631400601D+00
        xs( 43) = 0.1298560009088584D+00
        xs( 44) = 0.1455306471434831D+00
        xs( 45) = 0.1608332693480695D+00
        xs( 46) = 0.1753650917843401D+00
        ws(  1) = 0.1034444475942458D-04
        ws(  2) = 0.2411893818694860D-04
        ws(  3) = 0.3801077474854090D-04
        ws(  4) = 0.5206601659047650D-04
        ws(  5) = 0.6635887734685566D-04
        ws(  6) = 0.8097804963195776D-04
        ws(  7) = 0.9602739565262588D-04
        ws(  8) = 0.1116272217073688D-03
        ws(  9) = 0.1279158860967697D-03
        ws( 10) = 0.1450520198016050D-03
        ws( 11) = 0.1632175725291588D-03
        ws( 12) = 0.1826220805456059D-03
        ws( 13) = 0.2035082619477715D-03
        ws( 14) = 0.2261593667463128D-03
        ws( 15) = 0.2509088412117857D-03
        ws( 16) = 0.2781527923916582D-03
        ws( 17) = 0.3083661613264872D-03
        ws( 18) = 0.3421241110073064D-03
        ws( 19) = 0.3801301344080122D-03
        ws( 20) = 0.4232535831868251D-03
        ws( 21) = 0.4725804527677479D-03
        ws( 22) = 0.5294829584029897D-03
        ws( 23) = 0.5957159827868923D-03
        ws( 24) = 0.6735538356409475D-03
        ws( 25) = 0.7659845824312212D-03
        ws( 26) = 0.8769989460447590D-03
        ws( 27) = 0.1012017196113256D-02
        ws( 28) = 0.1178544537770531D-02
        ws( 29) = 0.1387208877347089D-02
        ws( 30) = 0.1653417267378968D-02
        ws( 31) = 0.2000211338063645D-02
        ws( 32) = 0.2463181704541071D-02
        ws( 33) = 0.3099041895821275D-02
        ws( 34) = 0.4000261005569310D-02
        ws( 35) = 0.5314504831652651D-02
        ws( 36) = 0.7238026705097653D-02
        ws( 37) = 0.9843837933841222D-02
        ws( 38) = 0.1265842750688768D-01
        ws( 39) = 0.1476341535507110D-01
        ws( 40) = 0.1579853638702492D-01
        ws( 41) = 0.1608602119981821D-01
        ws( 42) = 0.1601473998574677D-01
        ws( 43) = 0.1580933483929827D-01
        ws( 44) = 0.1560808666846154D-01
        ws( 45) = 0.1515999941892080D-01
        ws( 46) = 0.1250797284483374D-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 =  50
        err = 0.4533446579900231D-07
        xs(  1) = 0.3206251615865747D-05
        xs(  2) = 0.1690321415136674D-04
        xs(  3) = 0.4158544693118462D-04
        xs(  4) = 0.7733108300128278D-04
        xs(  5) = 0.1242531363970938D-03
        xs(  6) = 0.1825108660695069D-03
        xs(  7) = 0.2523183402044338D-03
        xs(  8) = 0.3339533886804067D-03
        xs(  9) = 0.4277670137138724D-03
        xs( 10) = 0.5341934153857899D-03
        xs( 11) = 0.6537608600111042D-03
        xs( 12) = 0.7871037509962192D-03
        xs( 13) = 0.9349764088747287D-03
        xs( 14) = 0.1098269132326060D-02
        xs( 15) = 0.1278027191803501D-02
        xs( 16) = 0.1475473590926680D-02
        xs( 17) = 0.1692036660964850D-02
        xs( 18) = 0.1929383703735693D-02
        xs( 19) = 0.2189462255228617D-02
        xs( 20) = 0.2474551133634775D-02
        xs( 21) = 0.2787323995341461D-02
        xs( 22) = 0.3130928980657472D-02
        xs( 23) = 0.3509089266485265D-02
        xs( 24) = 0.3926231103728836D-02
        xs( 25) = 0.4387648776757999D-02
        xs( 26) = 0.4899718546808920D-02
        xs( 27) = 0.5470180331277450D-02
        xs( 28) = 0.6108511867779715D-02
        xs( 29) = 0.6826434372682369D-02
        xs( 30) = 0.7638604512415636D-02
        xs( 31) = 0.8563583272112121D-02
        xs( 32) = 0.9625206914152499D-02
        xs( 33) = 0.1085458935886676D-01
        xs( 34) = 0.1229310516088020D-01
        xs( 35) = 0.1399696750347263D-01
        xs( 36) = 0.1604460853708885D-01
        xs( 37) = 0.1854892209978836D-01
        xs( 38) = 0.2167784336551688D-01
        xs( 39) = 0.2568943977022711D-01
        xs( 40) = 0.3098786482086261D-01
        xs( 41) = 0.3817975151014668D-01
        xs( 42) = 0.4799530913860680D-01
        xs( 43) = 0.6083295718636321D-01
        xs( 44) = 0.7619499626369827D-01
        xs( 45) = 0.9296714331335743D-01
        xs( 46) = 0.1102120496168911D+00
        xs( 47) = 0.1274260386213799D+00
        xs( 48) = 0.1443916921000166D+00
        xs( 49) = 0.1609711579674672D+00
        xs( 50) = 0.1765631222629500D+00
        ws(  1) = 0.8229370914129836D-05
        ws(  2) = 0.1917845286890583D-04
        ws(  3) = 0.3019852192080186D-04
        ws(  4) = 0.4131143991845776D-04
        ws(  5) = 0.5255906875541905D-04
        ws(  6) = 0.6399191602353204D-04
        ws(  7) = 0.7566918262630673D-04
        ws(  8) = 0.8765924854243450D-04
        ws(  9) = 0.1000401883692350D-03
        ws( 10) = 0.1129004608393481D-03
        ws( 11) = 0.1263399321450008D-03
        ws( 12) = 0.1404713027515203D-03
        ws( 13) = 0.1554220827594212D-03
        ws( 14) = 0.1713371997789332D-03
        ws( 15) = 0.1883822942351806D-03
        ws( 16) = 0.2067480023354023D-03
        ws( 17) = 0.2266553415796722D-03
        ws( 18) = 0.2483624898999519D-03
        ws( 19) = 0.2721733653508434D-03
        ws( 20) = 0.2984486856327686D-03
        ws( 21) = 0.3276200663840340D-03
        ws( 22) = 0.3602083277610052D-03
        ws( 23) = 0.3968472256081568D-03
        ws( 24) = 0.4383153159128404D-03
        ws( 25) = 0.4855780941233067D-03
        ws( 26) = 0.5398453040571624D-03
        ws( 27) = 0.6026495685080557D-03
        ws( 28) = 0.6759557463662802D-03
        ws( 29) = 0.7623161445288547D-03
        ws( 30) = 0.8650953360234576D-03
        ws( 31) = 0.9888023146172919D-03
        ws( 32) = 0.1139582201299229D-02
        ws( 33) = 0.1326004953176544D-02
        ws( 34) = 0.1560277187499398D-02
        ws( 35) = 0.1860323325902183D-02
        ws( 36) = 0.2253445466635594D-02
        ws( 37) = 0.2782608517433286D-02
        ws( 38) = 0.3517298629311940D-02
        ws( 39) = 0.4572048080370716D-02
        ws( 40) = 0.6126396031375668D-02
        ws( 41) = 0.8386824474670563D-02
        ws( 42) = 0.1132384537861982D-01
        ws( 43) = 0.1426268190938860D-01
        ws( 44) = 0.1625855717526207D-01
        ws( 45) = 0.1712655147869800D-01
        ws( 46) = 0.1728296827816920D-01
        ws( 47) = 0.1711426061215796D-01
        ws( 48) = 0.1681469012463293D-01
        ws( 49) = 0.1631387827641892D-01
        ws( 50) = 0.1344461227738907D-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 =  54
        err = 0.4473884332961949D-07
        xs(  1) = 0.2615532349742260D-05
        xs(  2) = 0.1378661454557632D-04
        xs(  3) = 0.3390739619871564D-04
        xs(  4) = 0.6302427887460349D-04
        xs(  5) = 0.1012031311758264D-03
        xs(  6) = 0.1485372991471277D-03
        xs(  7) = 0.2051530749844956D-03
        xs(  8) = 0.2712152543679003D-03
        xs(  9) = 0.3469328177999125D-03
        xs( 10) = 0.4325647908551487D-03
        xs( 11) = 0.5284263349660355D-03
        xs( 12) = 0.6348952337655232D-03
        xs( 13) = 0.7524189893285406D-03
        xs( 14) = 0.8815227924910261D-03
        xs( 15) = 0.1022818616012639D-02
        xs( 16) = 0.1177015743121518D-02
        xs( 17) = 0.1344933209437220D-02
        xs( 18) = 0.1527514501034998D-02
        xs( 19) = 0.1725845079920868D-02
        xs( 20) = 0.1941173449095485D-02
        xs( 21) = 0.2174936524741830D-02
        xs( 22) = 0.2428790521955555D-02
        xs( 23) = 0.2704648460018870D-02
        xs( 24) = 0.3004726244901729D-02
        xs( 25) = 0.3331599555960765D-02
        xs( 26) = 0.3688274517333954D-02
        xs( 27) = 0.4078276291378140D-02
        xs( 28) = 0.4505760718444377D-02
        xs( 29) = 0.4975656579044650D-02
        xs( 30) = 0.5493849169051929D-02
        xs( 31) = 0.6067418104426446D-02
        xs( 32) = 0.6704951425650025D-02
        xs( 33) = 0.7416963112782074D-02
        xs( 34) = 0.8216459667360102D-02
        xs( 35) = 0.9119722114532863D-02
        xs( 36) = 0.1014739815315365D-01
        xs( 37) = 0.1132607145487684D-01
        xs( 38) = 0.1269057118318655D-01
        xs( 39) = 0.1428743932169611D-01
        xs( 40) = 0.1618039784950512D-01
        xs( 41) = 0.1845928634925790D-01
        xs( 42) = 0.2125502522660198D-01
        xs( 43) = 0.2476516738736559D-01
        xs( 44) = 0.2929835365952835D-01
        xs( 45) = 0.3534241672249609D-01
        xs( 46) = 0.4361350749262138D-01
        xs( 47) = 0.5489377421073448D-01
        xs( 48) = 0.6942832553337470D-01
        xs( 49) = 0.8642006257947980D-01
        xs( 50) = 0.1046066440807378D+00
        xs( 51) = 0.1230715811079712D+00
        xs( 52) = 0.1413495102983716D+00
        xs( 53) = 0.1591673083336500D+00
        xs( 54) = 0.1758548678302647D+00
        ws(  1) = 0.6712926249087825D-05
        ws(  2) = 0.1563903583112452D-04
        ws(  3) = 0.2460985999657542D-04
        ws(  4) = 0.3363478326751157D-04
        ws(  5) = 0.4273838862750440D-04
        ws(  6) = 0.5195090479123871D-04
        ws(  7) = 0.6130801981631218D-04
        ws(  8) = 0.7085106812800551D-04
        ws(  9) = 0.8062712981859711D-04
        ws( 10) = 0.9068923685471615D-04
        ws( 11) = 0.1010966984124023D-03
        ws( 12) = 0.1119155518850122D-03
        ws( 13) = 0.1232193391466221D-03
        ws( 14) = 0.1350900887112215D-03
        ws( 15) = 0.1476195659307286D-03
        ws( 16) = 0.1609109521506514D-03
        ws( 17) = 0.1750809377316655D-03
        ws( 18) = 0.1902622051773086D-03
        ws( 19) = 0.2066066183085518D-03
        ws( 20) = 0.2242890925020719D-03
        ws( 21) = 0.2435124757287977D-03
        ws( 22) = 0.2645135930554281D-03
        ws( 23) = 0.2875706587226399D-03
        ws( 24) = 0.3130130207957008D-03
        ws( 25) = 0.3412331572652177D-03
        ws( 26) = 0.3727024488409203D-03
        ws( 27) = 0.4079914018044764D-03
        ws( 28) = 0.4477958723345278D-03
        ws( 29) = 0.4929728401386291D-03
        ws( 30) = 0.5445870809091923D-03
        ws( 31) = 0.6039753075131540D-03
        ws( 32) = 0.6728343583813025D-03
        ws( 33) = 0.7533439544241347D-03
        ws( 34) = 0.8483448248251164D-03
        ws( 35) = 0.9615958645288811D-03
        ws( 36) = 0.1098149091433025D-02
        ws( 37) = 0.1264946713719738D-02
        ws( 38) = 0.1471721671059292D-02
        ws( 39) = 0.1732492208985385D-02
        ws( 40) = 0.2068157717747197D-02
        ws( 41) = 0.2511035712772468D-02
        ws( 42) = 0.3112648315876602D-02
        ws( 43) = 0.3957893900430091D-02
        ws( 44) = 0.5188527137759678D-02
        ws( 45) = 0.7020745491029941D-02
        ws( 46) = 0.9662719560969221D-02
        ws( 47) = 0.1295166608083277D-01
        ws( 48) = 0.1597114054348465D-01
        ws( 49) = 0.1778577964576390D-01
        ws( 50) = 0.1843511460266635D-01
        ws( 51) = 0.1842517595117419D-01
        ws( 52) = 0.1811471242567247D-01
        ws( 53) = 0.1748612997822477D-01
        ws( 54) = 0.1391723005249624D-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 =  58
        err = 0.4966664406771735D-07
        xs(  1) = 0.2180064937844361D-05
        xs(  2) = 0.1148988847759702D-04
        xs(  3) = 0.2825263694286830D-04
        xs(  4) = 0.5249695786524739D-04
        xs(  5) = 0.8426248952558003D-04
        xs(  6) = 0.1236058079444104D-03
        xs(  7) = 0.1706041530537590D-03
        xs(  8) = 0.2253591391297220D-03
        xs(  9) = 0.2880005066240917D-03
        xs( 10) = 0.3586898687685675D-03
        xs( 11) = 0.4376244985500678D-03
        xs( 12) = 0.5250412210216298D-03
        xs( 13) = 0.6212204875930711D-03
        xs( 14) = 0.7264907906310202D-03
        xs( 15) = 0.8412335507386935D-03
        xs( 16) = 0.9658886035952348D-03
        xs( 17) = 0.1100960464875571D-02
        xs( 18) = 0.1247025602022847D-02
        xs( 19) = 0.1404740916541881D-02
        xs( 20) = 0.1574853660626982D-02
        xs( 21) = 0.1758213124833154D-02
        xs( 22) = 0.1955784521636580D-02
        xs( 23) = 0.2168665473824669D-02
        xs( 24) = 0.2398105680885972D-02
        xs( 25) = 0.2645530569060482D-02
        xs( 26) = 0.2912569695774260D-02
        xs( 27) = 0.3201091255741785D-02
        xs( 28) = 0.3513244113046248D-02
        xs( 29) = 0.3851509283531966D-02
        xs( 30) = 0.4218763503813676D-02
        xs( 31) = 0.4618358326792111D-02
        xs( 32) = 0.5054219127737152D-02
        xs( 33) = 0.5530970004754190D-02
        xs( 34) = 0.6054094396646913D-02
        xs( 35) = 0.6630140177384221D-02
        xs( 36) = 0.7266988065570740D-02
        xs( 37) = 0.7974208369877752D-02
        xs( 38) = 0.8763534118851703D-02
        xs( 39) = 0.9649509714759728D-02
        xs( 40) = 0.1065038860042087D-01
        xs( 41) = 0.1178939923585276D-01
        xs( 42) = 0.1309658209424485D-01
        xs( 43) = 0.1461150628969960D-01
        xs( 44) = 0.1638745489754275D-01
        xs( 45) = 0.1849817725953402D-01
        xs( 46) = 0.2104922660353897D-01
        xs( 47) = 0.2419720671023616D-01
        xs( 48) = 0.2818362165569977D-01
        xs( 49) = 0.3339288001070069D-01
        xs( 50) = 0.4042924040997938D-01
        xs( 51) = 0.5012806387850490D-01
        xs( 52) = 0.6324233525815059D-01
        xs( 53) = 0.7970782123960346D-01
        xs( 54) = 0.9839824237619021D-01
        xs( 55) = 0.1180013682017322D+00
        xs( 56) = 0.1376852908832902D+00
        xs( 57) = 0.1569833531043029D+00
        xs( 58) = 0.1751638441960575D+00
        ws(  1) = 0.5595120366997596D-05
        ws(  2) = 0.1303180364283822D-04
        ws(  3) = 0.2049814150816338D-04
        ws(  4) = 0.2799703685685909D-04
        ws(  5) = 0.3554339701119287D-04
        ws(  6) = 0.4315604970920249D-04
        ws(  7) = 0.5085751032843521D-04
        ws(  8) = 0.5867402483360043D-04
        ws(  9) = 0.6663558480088417D-04
        ws( 10) = 0.7477595209277605D-04
        ws( 11) = 0.8313271152551973D-04
        ws( 12) = 0.9174740231357854D-04
        ws( 13) = 0.1006657982443565D-03
        ws( 14) = 0.1099382871636624D-03
        ws( 15) = 0.1196204354562929D-03
        ws( 16) = 0.1297736368709584D-03
        ws( 17) = 0.1404660229950305D-03
        ws( 18) = 0.1517735700944923D-03
        ws( 19) = 0.1637814069603619D-03
        ws( 20) = 0.1765853987465415D-03
        ws( 21) = 0.1902941251256886D-03
        ws( 22) = 0.2050312806701036D-03
        ws( 23) = 0.2209385145684077D-03
        ws( 24) = 0.2381790017590995D-03
        ws( 25) = 0.2569417948805156D-03
        ws( 26) = 0.2774471290779422D-03
        ws( 27) = 0.2999532836745781D-03
        ws( 28) = 0.3247648796922562D-03
        ws( 29) = 0.3522436082233772D-03
        ws( 30) = 0.3828217847373357D-03
        ws( 31) = 0.4170200412210050D-03
        ws( 32) = 0.4554695782245816D-03
        ws( 33) = 0.4989427090189728D-03
        ws( 34) = 0.5483929807938544D-03
        ws( 35) = 0.6050061257247327D-03
        ws( 36) = 0.6702769780639773D-03
        ws( 37) = 0.7461084829178632D-03
        ws( 38) = 0.8349523843513838D-03
        ws( 39) = 0.9400204344051602D-03
        ws( 40) = 0.1065578810430563D-02
        ws( 41) = 0.1217405232138040D-02
        ws( 42) = 0.1403487985174439D-02
        ws( 43) = 0.1635133276043079D-02
        ws( 44) = 0.1928873462205610D-02
        ws( 45) = 0.2309857442203616D-02
        ws( 46) = 0.2817807153194330D-02
        ws( 47) = 0.3517440976932262D-02
        ws( 48) = 0.4518048260734042D-02
        ws( 49) = 0.6000299366640866D-02
        ws( 50) = 0.8216102768296643D-02
        ws( 51) = 0.1132165845562631D-01
        ws( 52) = 0.1490390606372958D-01
        ws( 53) = 0.1781869270419308D-01
        ws( 54) = 0.1933161663877102D-01
        ws( 55) = 0.1973972469172717D-01
        ws( 56) = 0.1957877734290380D-01
        ws( 57) = 0.1899730253288312D-01
        ws( 58) = 0.1527162150699884D-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 =  62
        err = 0.7200902861858922D-07
        xs(  1) = 0.1848967585857813D-05
        xs(  2) = 0.9743964805865128D-05
        xs(  3) = 0.2395555620987637D-04
        xs(  4) = 0.4450149015361135D-04
        xs(  5) = 0.7140550053769729D-04
        xs(  6) = 0.1047019420281794D-03
        xs(  7) = 0.1444384839864330D-03
        xs(  8) = 0.1906787549904139D-03
        xs(  9) = 0.2435049763897063D-03
        xs( 10) = 0.3030205416644020D-03
        xs( 11) = 0.3693525594264339D-03
        xs( 12) = 0.4426543762508136D-03
        xs( 13) = 0.5231081332458976D-03
        xs( 14) = 0.6109274270731588D-03
        xs( 15) = 0.7063601542730990D-03
        xs( 16) = 0.8096916340911581D-03
        xs( 17) = 0.9212480609219433D-03
        xs( 18) = 0.1041400411220105D-02
        xs( 19) = 0.1170568919872282D-02
        xs( 20) = 0.1309228225467123D-02
        xs( 21) = 0.1457913314546687D-02
        xs( 22) = 0.1617226406428387D-02
        xs( 23) = 0.1787845027658915D-02
        xs( 24) = 0.1970531468098255D-02
        xs( 25) = 0.2166143834798169D-02
        xs( 26) = 0.2375649129057196D-02
        xs( 27) = 0.2600138645384331D-02
        xs( 28) = 0.2840846377923770D-02
        xs( 29) = 0.3099170889904919D-02
        xs( 30) = 0.3376701524437208D-02
        xs( 31) = 0.3675249997224144D-02
        xs( 32) = 0.3996888651800444D-02
        xs( 33) = 0.4343997213939097D-02
        xs( 34) = 0.4719319847366073D-02
        xs( 35) = 0.5126035826352786D-02
        xs( 36) = 0.5567847843139097D-02
        xs( 37) = 0.6049091712234063D-02
        xs( 38) = 0.6574876889792065D-02
        xs( 39) = 0.7151265665792396D-02
        xs( 40) = 0.7785503314244041D-02
        xs( 41) = 0.8486322103380257D-02
        xs( 42) = 0.9264344175830996D-02
        xs( 43) = 0.1013262300183980D-01
        xs( 44) = 0.1110738858610499D-01
        xs( 45) = 0.1220908738602096D-01
        xs( 46) = 0.1346387109835641D-01
        xs( 47) = 0.1490577349523251D-01
        xs( 48) = 0.1658003805390405D-01
        xs( 49) = 0.1854852516194262D-01
        xs( 50) = 0.2089879482297000D-01
        xs( 51) = 0.2375932548736690D-01
        xs( 52) = 0.2732600626062287D-01
        xs( 53) = 0.3191006622005176D-01
        xs( 54) = 0.3801410929012442D-01
        xs( 55) = 0.4640654899257372D-01
        xs( 56) = 0.5803373505428850D-01
        xs( 57) = 0.7347918841308707D-01
        xs( 58) = 0.9217831296611710D-01
        xs( 59) = 0.1126668907395814D+00
        xs( 60) = 0.1336739995078910D+00
        xs( 61) = 0.1544474885887035D+00
        xs( 62) = 0.1741823743824439D+00
        ws(  1) = 0.4745258684091716D-05
        ws(  2) = 0.1105032359761483D-04
        ws(  3) = 0.1737554667637941D-04
        ws(  4) = 0.2372022523922193D-04
        ws(  5) = 0.3009347675799860D-04
        ws(  6) = 0.3650730643358727D-04
        ws(  7) = 0.4297633937466809D-04
        ws(  8) = 0.4951786313496359D-04
        ws(  9) = 0.5615176872974854D-04
        ws( 10) = 0.6290050487849360D-04
        ws( 11) = 0.6978904634075952D-04
        ws( 12) = 0.7684489991372736D-04
        ws( 13) = 0.8409816764204343D-04
        ws( 14) = 0.9158168355559656D-04
        ws( 15) = 0.9933126521049547D-04
        ws( 16) = 0.1073859960076137D-03
        ws( 17) = 0.1157886129397714D-03
        ws( 18) = 0.1245860411604541D-03
        ws( 19) = 0.1338299839786991D-03
        ws( 20) = 0.1435776770857576D-03
        ws( 21) = 0.1538927364266678D-03
        ws( 22) = 0.1648462106897166D-03
        ws( 23) = 0.1765178977558316D-03
        ws( 24) = 0.1889977833333167D-03
        ws( 25) = 0.2023878632255004D-03
        ws( 26) = 0.2168043015555876D-03
        ws( 27) = 0.2323800351867311D-03
        ws( 28) = 0.2492680912317876D-03
        ws( 29) = 0.2676452988391858D-03
        ws( 30) = 0.2877172908555542D-03
        ws( 31) = 0.3097242694321810D-03
        ws( 32) = 0.3339487215589528D-03
        ws( 33) = 0.3607245968781196D-03
        ws( 34) = 0.3904490789804194D-03
        ws( 35) = 0.4235981921479357D-03
        ws( 36) = 0.4607461448203968D-03
        ws( 37) = 0.5025902051555926D-03
        ws( 38) = 0.5499867516292041D-03
        ws( 39) = 0.6039933431577653D-03
        ws( 40) = 0.6659306785424583D-03
        ws( 41) = 0.7374684215784425D-03
        ws( 42) = 0.8207390653800400D-03
        ws( 43) = 0.9185065948813699D-03
        ws( 44) = 0.1034408107356240D-02
        ws( 45) = 0.1173312689823960D-02
        ws( 46) = 0.1341873843129289D-02
        ws( 47) = 0.1549384932041980D-02
        ws( 48) = 0.1809308932871633D-02
        ws( 49) = 0.2142013847852226D-02
        ws( 50) = 0.2579525682806476D-02
        ws( 51) = 0.3173408480923624D-02
        ws( 52) = 0.4010527995839210D-02
        ws( 53) = 0.5239783234612874D-02
        ws( 54) = 0.7096944034722671D-02
        ws( 55) = 0.9854462973159849D-02
        ws( 56) = 0.1351481039524409D-01
        ws( 57) = 0.1727785173472518D-01
        ws( 58) = 0.1985163579317647D-01
        ws( 59) = 0.2090978937949439D-01
        ws( 60) = 0.2099057942303814D-01
        ws( 61) = 0.2038508542934434D-01
        ws( 62) = 0.1668964412247669D-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 =  66
        err = 0.7698008430949002D-07
        xs(  1) = 0.1584254022930279D-05
        xs(  2) = 0.8348458187315798D-05
        xs(  3) = 0.2052253241966139D-04
        xs(  4) = 0.3811810221403063D-04
        xs(  5) = 0.6114998407939879D-04
        xs(  6) = 0.8963985993862389D-04
        xs(  7) = 0.1236182305033061D-03
        xs(  8) = 0.1631263096223193D-03
        xs(  9) = 0.2082179110883645D-03
        xs( 10) = 0.2589612771717901D-03
        xs( 11) = 0.3154408519286208D-03
        xs( 12) = 0.3777590058351568D-03
        xs( 13) = 0.4460377508134406D-03
        xs( 14) = 0.5204204512308930D-03
        xs( 15) = 0.6010736166254257D-03
        xs( 16) = 0.6881888029989375D-03
        xs( 17) = 0.7819846716809624D-03
        xs( 18) = 0.8827092450570604D-03
        xs( 19) = 0.9906424574778916D-03
        xs( 20) = 0.1106099025350576D-02
        xs( 21) = 0.1229431698114761D-02
        xs( 22) = 0.1361034988823816D-02
        xs( 23) = 0.1501349453677581D-02
        xs( 24) = 0.1650866599838134D-02
        xs( 25) = 0.1810134594679607D-02
        xs( 26) = 0.1979764884647576D-02
        xs( 27) = 0.2160439811803813D-02
        xs( 28) = 0.2352921532396119D-02
        xs( 29) = 0.2558062501079868D-02
        xs( 30) = 0.2776817639239762D-02
        xs( 31) = 0.3010258788645521D-02
        xs( 32) = 0.3259591766566915D-02
        xs( 33) = 0.3526176426085332D-02
        xs( 34) = 0.3811550892495352D-02
        xs( 35) = 0.4117460412436869D-02
        xs( 36) = 0.4445892049999768D-02
        xs( 37) = 0.4799117193249689D-02
        xs( 38) = 0.5179742772235403D-02
        xs( 39) = 0.5590774474315399D-02
        xs( 40) = 0.6035695076757397D-02
        xs( 41) = 0.6518562321527611D-02
        xs( 42) = 0.7044131146928921D-02
        xs( 43) = 0.7618010261746883D-02
        xs( 44) = 0.8246863213128385D-02
        xs( 45) = 0.8938667948799141D-02
        xs( 46) = 0.9703062100162880D-02
        xs( 47) = 0.1055180029101398D-01
        xs( 48) = 0.1149937897479483D-01
        xs( 49) = 0.1256389729411449D-01
        xs( 50) = 0.1376828285805053D-01
        xs( 51) = 0.1514206309560119D-01
        xs( 52) = 0.1672400501116321D-01
        xs( 53) = 0.1856627856013498D-01
        xs( 54) = 0.2074135803550540D-01
        xs( 55) = 0.2335374103891882D-01
        xs( 56) = 0.2655959212981779D-01
        xs( 57) = 0.3060187900996886D-01
        xs( 58) = 0.3587025250770766D-01
        xs( 59) = 0.4299026323435215D-01
        xs( 60) = 0.5288775506007347D-01
        xs( 61) = 0.6657260214905446D-01
        xs( 62) = 0.8433496630529873D-01
        xs( 63) = 0.1050599166276972D+00
        xs( 64) = 0.1270676269566485D+00
        xs( 65) = 0.1491269742438740D+00
        xs( 66) = 0.1699813816208434D+00
        ws(  1) = 0.4065830989987777D-05
        ws(  2) = 0.9467044920783985D-05
        ws(  3) = 0.1488282261319349D-04
        ws(  4) = 0.2031074920841146D-04
        ws(  5) = 0.2575659232035820D-04
        ws(  6) = 0.3122821067648916D-04
        ws(  7) = 0.3673536743199283D-04
        ws(  8) = 0.4228972894680896D-04
        ws(  9) = 0.4790482029955917D-04
        ws( 10) = 0.5359595687765199D-04
        ws( 11) = 0.5938022431057528D-04
        ws( 12) = 0.6527639236323906D-04
        ws( 13) = 0.7130496046505758D-04
        ws( 14) = 0.7748815971939206D-04
        ws( 15) = 0.8385006376125427D-04
        ws( 16) = 0.9041671676989166D-04
        ws( 17) = 0.9721631500226077D-04
        ws( 18) = 0.1042794401284015D-03
        ws( 19) = 0.1116393840346477D-03
        ws( 20) = 0.1193324822790005D-03
        ws( 21) = 0.1273985436455385D-03
        ws( 22) = 0.1358813823970127D-03
        ws( 23) = 0.1448293708032416D-03
        ws( 24) = 0.1542961719320997D-03
        ws( 25) = 0.1643415997357528D-03
        ws( 26) = 0.1750325552060570D-03
        ws( 27) = 0.1864441477488772D-03
        ws( 28) = 0.1986611686136318D-03
        ws( 29) = 0.2117796824606887D-03
        ws( 30) = 0.2259089483955306D-03
        ws( 31) = 0.2411739860902423D-03
        ws( 32) = 0.2577182063168880D-03
        ws( 33) = 0.2757069886891155D-03
        ws( 34) = 0.2953322530266167D-03
        ws( 35) = 0.3168172525148701D-03
        ws( 36) = 0.3404237488311161D-03
        ws( 37) = 0.3664599721730260D-03
        ws( 38) = 0.3952908531823877D-03
        ws( 39) = 0.4273513886884536D-03
        ws( 40) = 0.4631641050907866D-03
        ws( 41) = 0.5033603040929024D-03
        ws( 42) = 0.5487087802763698D-03
        ws( 43) = 0.6001558392985762D-03
        ws( 44) = 0.6588739524470107D-03
        ws( 45) = 0.7263343718082457D-03
        ws( 46) = 0.8044027072209613D-03
        ws( 47) = 0.8954757680363034D-03
        ws( 48) = 0.1002678041906053D-02
        ws( 49) = 0.1130151006802338D-02
        ws( 50) = 0.1283499043438934D-02
        ws( 51) = 0.1470455395044773D-02
        ws( 52) = 0.1702014504162920D-02
        ws( 53) = 0.1994420640626713D-02
        ws( 54) = 0.2372846904390865D-02
        ws( 55) = 0.2877386554344354D-02
        ws( 56) = 0.3573825595549882D-02
        ws( 57) = 0.4574169711896356D-02
        ws( 58) = 0.6065137817447821D-02
        ws( 59) = 0.8331675738353328D-02
        ws( 60) = 0.1164585357248578D-01
        ws( 61) = 0.1579060930533758D-01
        ws( 62) = 0.1952803539470556D-01
        ws( 63) = 0.2162124474737943D-01
        ws( 64) = 0.2219863900759039D-01
        ws( 65) = 0.2179163256686609D-01
        ws( 66) = 0.1774939636970787D-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 =  70
        err = 0.8123161969276513D-07
        xs(  1) = 0.1379820794030124D-05
        xs(  2) = 0.7270762605185792D-05
        xs(  3) = 0.1787154699041142D-04
        xs(  4) = 0.3318943589140135D-04
        xs(  5) = 0.5323305250988519D-04
        xs(  6) = 0.7801539844235199D-04
        xs(  7) = 0.1075553766658785D-03
        xs(  8) = 0.1418792453204257D-03
        xs(  9) = 0.1810220529307783D-03
        xs( 10) = 0.2250290236814363D-03
        xs( 11) = 0.2739568709702142D-03
        xs( 12) = 0.3278750695401076D-03
        xs( 13) = 0.3868670588428010D-03
        xs( 14) = 0.4510314476817831D-03
        xs( 15) = 0.5204831998668266D-03
        xs( 16) = 0.5953548821808695D-03
        xs( 17) = 0.6757979746125565D-03
        xs( 18) = 0.7619842706741718D-03
        xs( 19) = 0.8541074137391332D-03
        xs( 20) = 0.9523846168652635D-03
        xs( 21) = 0.1057058573288177D-02
        xs( 22) = 0.1168399617743057D-02
        xs( 23) = 0.1286708169429078D-02
        xs( 24) = 0.1412317500428914D-02
        xs( 25) = 0.1545596912212096D-02
        xs( 26) = 0.1686955340045383D-02
        xs( 27) = 0.1836845536776914D-02
        xs( 28) = 0.1995768827153485D-02
        xs( 29) = 0.2164280524228828D-02
        xs( 30) = 0.2342996376367589D-02
        xs( 31) = 0.2532599808510667D-02
        xs( 32) = 0.2733850394386434D-02
        xs( 33) = 0.2947593821323238D-02
        xs( 34) = 0.3174773412780311D-02
        xs( 35) = 0.3416443722256271D-02
        xs( 36) = 0.3673786449653475D-02
        xs( 37) = 0.3948129188140717D-02
        xs( 38) = 0.4240968029574462D-02
        xs( 39) = 0.4553994246216759D-02
        xs( 40) = 0.4889126191924033D-02
        xs( 41) = 0.5248548456356466D-02
        xs( 42) = 0.5634758573190311D-02
        xs( 43) = 0.6050624520633172D-02
        xs( 44) = 0.6499455309639066D-02
        xs( 45) = 0.6985089419784110D-02
        xs( 46) = 0.7512004731070853D-02
        xs( 47) = 0.8085457196826948D-02
        xs( 48) = 0.8711658744536900D-02
        xs( 49) = 0.9398006184511804D-02
        xs( 50) = 0.1015338205515133D-01
        xs( 51) = 0.1098854966078983D-01
        xs( 52) = 0.1191669206467129D-01
        xs( 53) = 0.1295414931704926D-01
        xs( 54) = 0.1412145836508596D-01
        xs( 55) = 0.1544484211708063D-01
        xs( 56) = 0.1695839576197027D-01
        xs( 57) = 0.1870749973997502D-01
        xs( 58) = 0.2075459698868547D-01
        xs( 59) = 0.2318922009984719D-01
        xs( 60) = 0.2614420292782863D-01
        xs( 61) = 0.2982394695733628D-01
        xs( 62) = 0.3455684060304118D-01
        xs( 63) = 0.4088378190898052D-01
        xs( 64) = 0.4965902877366634D-01
        xs( 65) = 0.6200834230297848D-01
        xs( 66) = 0.7879369184032690D-01
        xs( 67) = 0.9955900303992472D-01
        xs( 68) = 0.1225569622888898D+00
        xs( 69) = 0.1461267390442700D+00
        xs( 70) = 0.1689576704877091D+00
        ws(  1) = 0.3541121751127758D-05
        ws(  2) = 0.8244403582010651D-05
        ws(  3) = 0.1295818185465582D-04
        ws(  4) = 0.1767900543421778D-04
        ws(  5) = 0.2241037252358564D-04
        ws(  6) = 0.2715744439012574D-04
        ws(  7) = 0.3192686244493418D-04
        ws(  8) = 0.3672669498983437D-04
        ws(  9) = 0.4156643503527553D-04
        ws( 10) = 0.4645693598562212D-04
        ws( 11) = 0.5141032113161032D-04
        ws( 12) = 0.5643996242428871D-04
        ws( 13) = 0.6156043270790184D-04
        ws( 14) = 0.6678748494926401D-04
        ws( 15) = 0.7213809150303648D-04
        ws( 16) = 0.7763049767158585D-04
        ws( 17) = 0.8328429603617594D-04
        ws( 18) = 0.8912054170471011D-04
        ws( 19) = 0.9516191510234898D-04
        ws( 20) = 0.1014329036372571D-03
        ws( 21) = 0.1079600257620235D-03
        ws( 22) = 0.1147720878191151D-03
        ws( 23) = 0.1219005067706231D-03
        ws( 24) = 0.1293796480461577D-03
        ws( 25) = 0.1372472615103478D-03
        ws( 26) = 0.1455449705242900D-03
        ws( 27) = 0.1543188876244487D-03
        ws( 28) = 0.1636201337690709D-03
        ws( 29) = 0.1735057642549602D-03
        ws( 30) = 0.1840397034144150D-03
        ws( 31) = 0.1952935877344420D-03
        ws( 32) = 0.2073483410637968D-03
        ws( 33) = 0.2202955068243037D-03
        ws( 34) = 0.2342391729791937D-03
        ws( 35) = 0.2492980871829281D-03
        ws( 36) = 0.2656082603431405D-03
        ws( 37) = 0.2833261202416768D-03
        ws( 38) = 0.3026329283203445D-03
        ws( 39) = 0.3237385726267847D-03
        ws( 40) = 0.3468886655441314D-03
        ws( 41) = 0.3723711603157152D-03
        ws( 42) = 0.4005259077815333D-03
        ws( 43) = 0.4317560207827299D-03
        ws( 44) = 0.4665434697043871D-03
        ws( 45) = 0.5054687913195778D-03
        ws( 46) = 0.5492348455581931D-03
        ws( 47) = 0.5987016779082910D-03
        ws( 48) = 0.6549292018936929D-03
        ws( 49) = 0.7192397051380910D-03
        ws( 50) = 0.7932969738705441D-03
        ws( 51) = 0.8792234534820236D-03
        ws( 52) = 0.9797676520711188D-03
        ws( 53) = 0.1098545382360365D-02
        ws( 54) = 0.1240407989668360D-02
        ws( 55) = 0.1411987378752467D-02
        ws( 56) = 0.1622592820011408D-02
        ws( 57) = 0.1885857537663679D-02
        ws( 58) = 0.2223000847847632D-02
        ws( 59) = 0.2667945176234291D-02
        ws( 60) = 0.3275249540732767D-02
        ws( 61) = 0.4137482388958830D-02
        ws( 62) = 0.5416452035526098D-02
        ws( 63) = 0.7379600689578793D-02
        ws( 64) = 0.1036642462192415D-01
        ws( 65) = 0.1449817828799599D-01
        ws( 66) = 0.1899926579091193D-01
        ws( 67) = 0.2220627041690246D-01
        ws( 68) = 0.2350764224884828D-01
        ws( 69) = 0.2333096166358373D-01
        ws( 70) = 0.1964411897881248D-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 =  75
        err = 0.4466009985671682D-07
        xs(  1) = 0.1198512973937589D-05
        xs(  2) = 0.6315269327063420D-05
        xs(  3) = 0.1552234069992395D-04
        xs(  4) = 0.2882498195785207D-04
        xs(  5) = 0.4622894331747276D-04
        xs(  6) = 0.6774290540055766D-04
        xs(  7) = 0.9337959057501514D-04
        xs(  8) = 0.1231568038093878D-03
        xs(  9) = 0.1570984780056528D-03
        xs( 10) = 0.1952356748688015D-03
        xs( 11) = 0.2376075525803872D-03
        xs( 12) = 0.2842622872272158D-03
        xs( 13) = 0.3352579431111214D-03
        xs( 14) = 0.3906633237817187D-03
        xs( 15) = 0.4505588019532564D-03
        xs( 16) = 0.5150371577712906D-03
        xs( 17) = 0.5842044476192110D-03
        xs( 18) = 0.6581809076863266D-03
        xs( 19) = 0.7371019210949045D-03
        xs( 20) = 0.8211190772051270D-03
        xs( 21) = 0.9104013353407067D-03
        xs( 22) = 0.1005136310792688D-02
        xs( 23) = 0.1105531713456867D-02
        xs( 24) = 0.1211816952824477D-02
        xs( 25) = 0.1324244959006274D-02
        xs( 26) = 0.1443094233953105D-02
        xs( 27) = 0.1568671158908528D-02
        xs( 28) = 0.1701312633755060D-02
        xs( 29) = 0.1841389047005785D-02
        xs( 30) = 0.1989307681234601D-02
        xs( 31) = 0.2145516596560510D-02
        xs( 32) = 0.2310509010034113D-02
        xs( 33) = 0.2484828416828586D-02
        xs( 34) = 0.2669074394880408D-02
        xs( 35) = 0.2863909286887565D-02
        xs( 36) = 0.3070065967961777D-02
        xs( 37) = 0.3288356798553288D-02
        xs( 38) = 0.3519684013314059D-02
        xs( 39) = 0.3765051953092352D-02
        xs( 40) = 0.4025581252806526D-02
        xs( 41) = 0.4302525519048048D-02
        xs( 42) = 0.4597291185341142D-02
        xs( 43) = 0.4911460944653632D-02
        xs( 44) = 0.5246821626444818D-02
        xs( 45) = 0.5605397842227399D-02
        xs( 46) = 0.5989492373264855D-02
        xs( 47) = 0.6401734996700713D-02
        xs( 48) = 0.6845142524315274D-02
        xs( 49) = 0.7323192605381010D-02
        xs( 50) = 0.7839914750667426D-02
        xs( 51) = 0.8400004905039268D-02
        xs( 52) = 0.9008969182020220D-02
        xs( 53) = 0.9673307366375918D-02
        xs( 54) = 0.1040074994407187D-01
        xs( 55) = 0.1120056835240726D-01
        xs( 56) = 0.1208398606714778D-01
        xs( 57) = 0.1306473289366590D-01
        xs( 58) = 0.1415979778962353D-01
        xs( 59) = 0.1539049628635583D-01
        xs( 60) = 0.1678399157452335D-01
        xs( 61) = 0.1837554370140382D-01
        xs( 62) = 0.2021207825751651D-01
        xs( 63) = 0.2235807595789732D-01
        xs( 64) = 0.2490522945938432D-01
        xs( 65) = 0.2798825438702297D-01
        xs( 66) = 0.3181300886805044D-01
        xs( 67) = 0.3670540993187830D-01
        xs( 68) = 0.4319091073890123D-01
        xs( 69) = 0.5209059487422324D-01
        xs( 70) = 0.6449824930865354D-01
        xs( 71) = 0.8131594227560537D-01
        xs( 72) = 0.1022639374351409D+00
        xs( 73) = 0.1257317160609170D+00
        xs( 74) = 0.1500267484535985D+00
        xs( 75) = 0.1735937671511456D+00
        ws(  1) = 0.3075813455252562D-05
        ws(  2) = 0.7160773474845218D-05
        ws(  3) = 0.1125407723685435D-04
        ws(  4) = 0.1535213884940334D-04
        ws(  5) = 0.1945721344960455D-04
        ws(  6) = 0.2357281454887083D-04
        ws(  7) = 0.2770350493984657D-04
        ws(  8) = 0.3185489380113279D-04
        ws(  9) = 0.3603361360896960D-04
        ws( 10) = 0.4024729157420692D-04
        ws( 11) = 0.4450448205704604D-04
        ws( 12) = 0.4881464885112216D-04
        ws( 13) = 0.5318811535765609D-04
        ws( 14) = 0.5763602811982419D-04
        ws( 15) = 0.6217037700646525D-04
        ws( 16) = 0.6680399589080545D-04
        ws( 17) = 0.7155060774464648D-04
        ws( 18) = 0.7642485867015811D-04
        ws( 19) = 0.8144241313219544D-04
        ws( 20) = 0.8662003767666110D-04
        ws( 21) = 0.9197572337582980D-04
        ws( 22) = 0.9752881937047294D-04
        ws( 23) = 0.1033001910534248D-03
        ws( 24) = 0.1093124089176833D-03
        ws( 25) = 0.1155899824744805D-03
        ws( 26) = 0.1221595869990698D-03
        ws( 27) = 0.1290503628267363D-03
        ws( 28) = 0.1362942601387910D-03
        ws( 29) = 0.1439263816383698D-03
        ws( 30) = 0.1519854919925966D-03
        ws( 31) = 0.1605144557347765D-03
        ws( 32) = 0.1695608586105729D-03
        ws( 33) = 0.1791777725511222D-03
        ws( 34) = 0.1894244432598736D-03
        ws( 35) = 0.2003673386067366D-03
        ws( 36) = 0.2120812451016372D-03
        ws( 37) = 0.2246505844735882D-03
        ws( 38) = 0.2381709993575032D-03
        ws( 39) = 0.2527513786662699D-03
        ws( 40) = 0.2685158229026055D-03
        ws( 41) = 0.2856067256454933D-03
        ws( 42) = 0.3041879251567146D-03
        ws( 43) = 0.3244488371410542D-03
        ws( 44) = 0.3466092932159339D-03
        ws( 45) = 0.3709261234609906D-03
        ws( 46) = 0.3977002447811189D-03
        ws( 47) = 0.4272865661174724D-03
        ws( 48) = 0.4601066099362674D-03
        ws( 49) = 0.4966632215611026D-03
        ws( 50) = 0.5375613684543511D-03
        ws( 51) = 0.5835335890292650D-03
        ws( 52) = 0.6354743684072797D-03
        ws( 53) = 0.6944852967105005D-03
        ws( 54) = 0.7619383677271509D-03
        ws( 55) = 0.8395598835475501D-03
        ws( 56) = 0.9295516106590779D-03
        ws( 57) = 0.1034756041690737D-02
        ws( 58) = 0.1158901510408135D-02
        ws( 59) = 0.1306986701477434D-02
        ws( 60) = 0.1485823236624135D-02
        ws( 61) = 0.1705007548978026D-02
        ws( 62) = 0.1978651190334110D-02
        ws( 63) = 0.2328378307347317D-02
        ws( 64) = 0.2787933617257536D-02
        ws( 65) = 0.3411635061406037D-02
        ws( 66) = 0.4290882810457339D-02
        ws( 67) = 0.5579616062582027D-02
        ws( 68) = 0.7527785021579594D-02
        ws( 69) = 0.1046064453933662D-01
        ws( 70) = 0.1452519591949224D-01
        ws( 71) = 0.1907031364221123D-01
        ws( 72) = 0.2252640994575798D-01
        ws( 73) = 0.2411737220159804D-01
        ws( 74) = 0.2425696762654976D-01
        ws( 75) = 0.2095579116878767D-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 =  79
        err = 0.6923530318883230D-07
        xs(  1) = 0.1062530552427142D-05
        xs(  2) = 0.5598568492163038D-05
        xs(  3) = 0.1375998281301265D-04
        xs(  4) = 0.2555016155805916D-04
        xs(  5) = 0.4097228476288407D-04
        xs(  6) = 0.6003139465089263D-04
        xs(  7) = 0.8273529254227003D-04
        xs(  8) = 0.1090953694834342D-03
        xs(  9) = 0.1391274300696295D-03
        xs( 10) = 0.1728524998698276D-03
        xs( 11) = 0.2102975736219286D-03
        xs( 12) = 0.2514963414753619D-03
        xs( 13) = 0.2964898616722586D-03
        xs( 14) = 0.3453271989106082D-03
        xs( 15) = 0.3980660387514557D-03
        xs( 16) = 0.4547732946014750D-03
        xs( 17) = 0.5155257157426068D-03
        xs( 18) = 0.5804105121813055D-03
        xs( 19) = 0.6495260073365255D-03
        xs( 20) = 0.7229823369727149D-03
        xs( 21) = 0.8009022037736379D-03
        xs( 22) = 0.8834217048262350D-03
        xs( 23) = 0.9706912440635212D-03
        xs( 24) = 0.1062876542732612D-02
        xs( 25) = 0.1160159757856592D-02
        xs( 26) = 0.1262740746681271D-02
        xs( 27) = 0.1370838475602054D-02
        xs( 28) = 0.1484692599296023D-02
        xs( 29) = 0.1604565256673711D-02
        xs( 30) = 0.1730743052326571D-02
        xs( 31) = 0.1863539334083143D-02
        xs( 32) = 0.2003296760347888D-02
        xs( 33) = 0.2150390162699707D-02
        xs( 34) = 0.2305229872360113D-02
        xs( 35) = 0.2468265435174340D-02
        xs( 36) = 0.2639989865817254D-02
        xs( 37) = 0.2820944510485914D-02
        xs( 38) = 0.3011724617470219D-02
        xs( 39) = 0.3212985712539061D-02
        xs( 40) = 0.3425450907826305D-02
        xs( 41) = 0.3649919504327835D-02
        xs( 42) = 0.3887276706158042D-02
        xs( 43) = 0.4138505156233814D-02
        xs( 44) = 0.4404698237591468D-02
        xs( 45) = 0.4687075739875700D-02
        xs( 46) = 0.4987002265251590D-02
        xs( 47) = 0.5306009084561965D-02
        xs( 48) = 0.5645819943711042D-02
        xs( 49) = 0.6008382019934744D-02
        xs( 50) = 0.6395902984727287D-02
        xs( 51) = 0.6810896135837423D-02
        xs( 52) = 0.7256234680420773D-02
        xs( 53) = 0.7735218777961918D-02
        xs( 54) = 0.8251657730715657D-02
        xs( 55) = 0.8809972943999614D-02
        xs( 56) = 0.9415326185356015D-02
        xs( 57) = 0.1007378431363564D-01
        xs( 58) = 0.1079252886785683D-01
        xs( 59) = 0.1158012700073043D-01
        xs( 60) = 0.1244688938805194D-01
        xs( 61) = 0.1340535117560215D-01
        xs( 62) = 0.1447092541143286D-01
        xs( 63) = 0.1566281350662793D-01
        xs( 64) = 0.1700527729384978D-01
        xs( 65) = 0.1852954185639447D-01
        xs( 66) = 0.2027668807400450D-01
        xs( 67) = 0.2230242400583208D-01
        xs( 68) = 0.2468547992867245D-01
        xs( 69) = 0.2754145173841665D-01
        xs( 70) = 0.3104672858874656D-01
        xs( 71) = 0.3548006191235939D-01
        xs( 72) = 0.4129214825180002D-01
        xs( 73) = 0.4920553599484421D-01
        xs( 74) = 0.6028768561883140D-01
        xs( 75) = 0.7575021921908484D-01
        xs( 76) = 0.9605797076980362D-01
        xs( 77) = 0.1199749711713380D+00
        xs( 78) = 0.1454317652995794D+00
        xs( 79) = 0.1704531735645854D+00
        ws(  1) = 0.2726811715410410D-05
        ws(  2) = 0.6347875246182049D-05
        ws(  3) = 0.9975369352249401D-05
        ws(  4) = 0.1360550056243476D-04
        ws(  5) = 0.1723957541377340D-04
        ws(  6) = 0.2087993205022134D-04
        ws(  7) = 0.2452974737398486D-04
        ws(  8) = 0.2819302566830671D-04
        ws(  9) = 0.3187458725461606D-04
        ws( 10) = 0.3558003629047336D-04
        ws( 11) = 0.3931571502298391D-04
        ws( 12) = 0.4308865611217213D-04
        ws( 13) = 0.4690655279175639D-04
        ws( 14) = 0.5077772330993423D-04
        ws( 15) = 0.5471109799254597D-04
        ws( 16) = 0.5871619617133098D-04
        ws( 17) = 0.6280316907929607D-04
        ws( 18) = 0.6698279909018481D-04
        ws( 19) = 0.7126653634045040D-04
        ws( 20) = 0.7566655990863071D-04
        ws( 21) = 0.8019584051592846D-04
        ws( 22) = 0.8486821215431387D-04
        ws( 23) = 0.8969846962285781D-04
        ws( 24) = 0.9470246681985625D-04
        ws( 25) = 0.9989724908048926D-04
        ws( 26) = 0.1053011972133565D-03
        ws( 27) = 0.1109341748800553D-03
        ws( 28) = 0.1168177316761685D-03
        ws( 29) = 0.1229753121333331D-03
        ws( 30) = 0.1294324615857608D-03
        ws( 31) = 0.1362171660857395D-03
        ws( 32) = 0.1433601035255462D-03
        ws( 33) = 0.1508950313459057D-03
        ws( 34) = 0.1588592423092996D-03
        ws( 35) = 0.1672939704617240D-03
        ws( 36) = 0.1762450222487020D-03
        ws( 37) = 0.1857633666933809D-03
        ws( 38) = 0.1959059819842358D-03
        ws( 39) = 0.2067365794874594D-03
        ws( 40) = 0.2183268719553043D-03
        ws( 41) = 0.2307576596059680D-03
        ws( 42) = 0.2441202997149444D-03
        ws( 43) = 0.2585185636972763D-03
        ws( 44) = 0.2740705959910774D-03
        ws( 45) = 0.2909114754027560D-03
        ws( 46) = 0.3091963703048977D-03
        ws( 47) = 0.3291040405657954D-03
        ws( 48) = 0.3508416091577438D-03
        ws( 49) = 0.3746497266690667D-03
        ws( 50) = 0.4008102097938538D-03
        ws( 51) = 0.4296538333463434D-03
        ws( 52) = 0.4615719500070297D-03
        ws( 53) = 0.4970294059042526D-03
        ws( 54) = 0.5365833137973060D-03
        ws( 55) = 0.5809046662326508D-03
        ws( 56) = 0.6308095142747281D-03
        ws( 57) = 0.6872991957183143D-03
        ws( 58) = 0.7516119081272387D-03
        ws( 59) = 0.8252948658467109D-03
        ws( 60) = 0.9103084655279804D-03
        ws( 61) = 0.1009168920833654D-02
        ws( 62) = 0.1125159314638817D-02
        ws( 63) = 0.1262629513720796D-02
        ws( 64) = 0.1427455744585964D-02
        ws( 65) = 0.1627845696700613D-02
        ws( 66) = 0.1875594347042225D-02
        ws( 67) = 0.2188779267949629D-02
        ws( 68) = 0.2596218065493854D-02
        ws( 69) = 0.3144458021010059D-02
        ws( 70) = 0.3911412214884200D-02
        ws( 71) = 0.5028635218334333D-02
        ws( 72) = 0.6714199676493184D-02
        ws( 73) = 0.9292553275264740D-02
        ws( 74) = 0.1308847518061637D-01
        ws( 75) = 0.1793930584572371D-01
        ws( 76) = 0.2244844129648772D-01
        ws( 77) = 0.2501787418877880D-01
        ws( 78) = 0.2554476915254746D-01
        ws( 79) = 0.2186913892050839D-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 =  84
        err = 0.4022230271887586D-07
        xs(  1) = 0.9400760852730134D-06
        xs(  2) = 0.4953313008026942D-05
        xs(  3) = 0.1217393487874882D-04
        xs(  4) = 0.2260462517708535D-04
        xs(  5) = 0.3624761245195455D-04
        xs(  6) = 0.5310639494325566D-04
        xs(  7) = 0.7318640052281678D-04
        xs(  8) = 0.9649560601275974D-04
        xs(  9) = 0.1230451452068227D-03
        xs( 10) = 0.1528499184576279D-03
        xs( 11) = 0.1859291661947060D-03
        xs( 12) = 0.2223070263410427D-03
        xs( 13) = 0.2620130515487192D-03
        xs( 14) = 0.3050826974361329D-03
        xs( 15) = 0.3515577934145512D-03
        xs( 16) = 0.4014869875182280D-03
        xs( 17) = 0.4549262005552016D-03
        xs( 18) = 0.5119390664855389D-03
        xs( 19) = 0.5725973933590490D-03
        xs( 20) = 0.6369816401063784D-03
        xs( 21) = 0.7051814233722185D-03
        xs( 22) = 0.7772960640382346D-03
        xs( 23) = 0.8534351794562487D-03
        xs( 24) = 0.9337193337888549D-03
        xs( 25) = 0.1018280745943353D-02
        xs( 26) = 0.1107264077069952D-02
        xs( 27) = 0.1200827311872980D-02
        xs( 28) = 0.1299142727458457D-02
        xs( 29) = 0.1402397970545932D-02
        xs( 30) = 0.1510797269390716D-02
        xs( 31) = 0.1624562786168752D-02
        xs( 32) = 0.1743936134436902D-02
        xs( 33) = 0.1869180056829072D-02
        xs( 34) = 0.2000580322889388D-02
        xs( 35) = 0.2138447895659586D-02
        xs( 36) = 0.2283121303386547D-02
        xs( 37) = 0.2434969356275629D-02
        xs( 38) = 0.2594394230761106D-02
        xs( 39) = 0.2761834926499486D-02
        xs( 40) = 0.2937771202149102D-02
        xs( 41) = 0.3122728048135472D-02
        xs( 42) = 0.3317280820577769D-02
        xs( 43) = 0.3522061059458344D-02
        xs( 44) = 0.3737763195452415D-02
        xs( 45) = 0.3965152250597476D-02
        xs( 46) = 0.4205072771129772D-02
        xs( 47) = 0.4458459025043164D-02
        xs( 48) = 0.4726347034785304D-02
        xs( 49) = 0.5009888572009958D-02
        xs( 50) = 0.5310367318319282D-02
        xs( 51) = 0.5629218269789372D-02
        xs( 52) = 0.5968050414111369D-02
        xs( 53) = 0.6328673649233927D-02
        xs( 54) = 0.6713130995915293D-02
        xs( 55) = 0.7123737215657838D-02
        xs( 56) = 0.7563125473069318D-02
        xs( 57) = 0.8034304087176421D-02
        xs( 58) = 0.8540726057133147D-02
        xs( 59) = 0.9086374467482993D-02
        xs( 60) = 0.9675869550876792D-02
        xs( 61) = 0.1031460203674153D-01
        xs( 62) = 0.1100890173904901D-01
        xs( 63) = 0.1176625654557170D-01
        xs( 64) = 0.1259559420374509D-01
        xs( 65) = 0.1350765528581258D-01
        xs( 66) = 0.1451548820757965D-01
        xs( 67) = 0.1563512656893033D-01
        xs( 68) = 0.1688653775511600D-01
        xs( 69) = 0.1829495883237765D-01
        xs( 70) = 0.1989288864527239D-01
        xs( 71) = 0.2172318297693221D-01
        xs( 72) = 0.2384415558402394D-01
        xs( 73) = 0.2633785703499903D-01
        xs( 74) = 0.2932343880224232D-01
        xs( 75) = 0.3298109147254518D-01
        xs( 76) = 0.3759492260210020D-01
        xs( 77) = 0.4362338217933929D-01
        xs( 78) = 0.5179032952672290D-01
        xs( 79) = 0.6312839393685821D-01
        xs( 80) = 0.7879375958052377D-01
        xs( 81) = 0.9930664563819266D-01
        xs( 82) = 0.1236245649001820D+00
        xs( 83) = 0.1497916006522773D+00
        xs( 84) = 0.1757978859607967D+00
        ws(  1) = 0.2412549862570076D-05
        ws(  2) = 0.5616212745778704D-05
        ws(  3) = 0.8825350097276306D-05
        ws(  4) = 0.1203638650325282D-04
        ws(  5) = 0.1525016139039306D-04
        ws(  6) = 0.1846829696274342D-04
        ws(  7) = 0.2169303378850483D-04
        ws(  8) = 0.2492722212660970D-04
        ws(  9) = 0.2817433011455841D-04
        ws( 10) = 0.3143841275540192D-04
        ws( 11) = 0.3472409763649829D-04
        ws( 12) = 0.3803654083102750D-04
        ws( 13) = 0.4138141057485287D-04
        ws( 14) = 0.4476484550343271D-04
        ws( 15) = 0.4819344653241232D-04
        ws( 16) = 0.5167425562577148D-04
        ws( 17) = 0.5521476638338069D-04
        ws( 18) = 0.5882292552853846D-04
        ws( 19) = 0.6250713180559776D-04
        ws( 20) = 0.6627628770062544D-04
        ws( 21) = 0.7013982093165633D-04
        ws( 22) = 0.7410771954912524D-04
        ws( 23) = 0.7819059440891316D-04
        ws( 24) = 0.8239973733740153D-04
        ws( 25) = 0.8674718185543649D-04
        ws( 26) = 0.9124579494271061D-04
        ws( 27) = 0.9590936997886197D-04
        ws( 28) = 0.1007527147220835D-03
        ws( 29) = 0.1057917862004703D-03
        ws( 30) = 0.1110438135448844D-03
        ws( 31) = 0.1165274617919374D-03
        ws( 32) = 0.1222629937833578D-03
        ws( 33) = 0.1282724413065527D-03
        ws( 34) = 0.1345798788234515D-03
        ws( 35) = 0.1412116429906906D-03
        ws( 36) = 0.1481965888761822D-03
        ws( 37) = 0.1555664891149864D-03
        ws( 38) = 0.1633563606525094D-03
        ws( 39) = 0.1716049166703677D-03
        ws( 40) = 0.1803550467910503D-03
        ws( 41) = 0.1896544423040131D-03
        ws( 42) = 0.1995562476202939D-03
        ws( 43) = 0.2101198423526262D-03
        ws( 44) = 0.2214117828895785D-03
        ws( 45) = 0.2335069178882064D-03
        ws( 46) = 0.2464896351800016D-03
        ws( 47) = 0.2604553109873145D-03
        ws( 48) = 0.2755124088352779D-03
        ws( 49) = 0.2917842881656478D-03
        ws( 50) = 0.3094119967512957D-03
        ws( 51) = 0.3285576235275989D-03
        ws( 52) = 0.3494077822684621D-03
        ws( 53) = 0.3721785521301168D-03
        ws( 54) = 0.3971211634845263D-03
        ws( 55) = 0.4245291960076553D-03
        ws( 56) = 0.4547475546636968D-03
        ws( 57) = 0.4881837642834521D-03
        ws( 58) = 0.5253222498077885D-03
        ws( 59) = 0.5667423963113010D-03
        ws( 60) = 0.6131434734805951D-03
        ws( 61) = 0.6653728098330670D-03
        ws( 62) = 0.7244699882291950D-03
        ws( 63) = 0.7917213879130083D-03
        ws( 64) = 0.8687359389858014D-03
        ws( 65) = 0.9575498934395685D-03
        ws( 66) = 0.1060772591084113D-02
        ws( 67) = 0.1181810480125467D-02
        ws( 68) = 0.1325185676525150D-02
        ws( 69) = 0.1497023736181439D-02
        ws( 70) = 0.1705896381656873D-02
        ws( 71) = 0.1964276044875320D-02
        ws( 72) = 0.2291134807994851D-02
        ws( 73) = 0.2715749746974656D-02
        ws( 74) = 0.3284750512688845D-02
        ws( 75) = 0.4076747490287957D-02
        ws( 76) = 0.5225640954079747D-02
        ws( 77) = 0.6950842756355325D-02
        ws( 78) = 0.9557263318291332D-02
        ws( 79) = 0.1332375390740350D-01
        ws( 80) = 0.1811701188266940D-01
        ws( 81) = 0.2271974553153793D-01
        ws( 82) = 0.2556455631880251D-01
        ws( 83) = 0.2649006724221179D-01
        ws( 84) = 0.2396656469391643D-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 =  21
        err = 0.7222794293318964D-07
        xs(  1) = 0.4782261320705225D-03
        xs(  2) = 0.2452251142050181D-02
        xs(  3) = 0.5784016189098697D-02
        xs(  4) = 0.1023586734339162D-01
        xs(  5) = 0.1560564123944082D-01
        xs(  6) = 0.2173538868422896D-01
        xs(  7) = 0.2850142996444112D-01
        xs(  8) = 0.3580524162949042D-01
        xs(  9) = 0.4356773194965996D-01
        xs( 10) = 0.5172552719237027D-01
        xs( 11) = 0.6022818457144449D-01
        xs( 12) = 0.6903592581484201D-01
        xs( 13) = 0.7811779472375688D-01
        xs( 14) = 0.8745023553916915D-01
        xs( 15) = 0.9701611622579440D-01
        xs( 16) = 0.1068041555803396D+00
        xs( 17) = 0.1168089460091871D+00
        xs( 18) = 0.1270320075513603D+00
        xs( 19) = 0.1374836879344050D+00
        xs( 20) = 0.1481911181028882D+00
        xs( 21) = 0.1592934000201802D+00
        ws(  1) = 0.1218902815729959D-02
        ws(  2) = 0.2693366278977181D-02
        ws(  3) = 0.3929427051636509D-02
        ws(  4) = 0.4940563226798635D-02
        ws(  5) = 0.5772862767670413D-02
        ws(  6) = 0.6466171768405727D-02
        ws(  7) = 0.7049581308974293D-02
        ws(  8) = 0.7544919884973327D-02
        ws(  9) = 0.7969545292166492D-02
        ws( 10) = 0.8337678644104460D-02
        ws( 11) = 0.8661044828571657D-02
        ws( 12) = 0.8949322918355080D-02
        ws( 13) = 0.9210561536163902D-02
        ws( 14) = 0.9451632425060103D-02
        ws( 15) = 0.9678705695009924D-02
        ws( 16) = 0.9897810747309339D-02
        ws( 17) = 0.1011620826600156D-01
        ws( 18) = 0.1034562706976580D-01
        ws( 19) = 0.1061288272033870D-01
        ws( 20) = 0.1103739803124492D-01
        ws( 21) = 0.1268683792463788D-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 =  21
        err = 0.8946412456388030D-07
        xs(  1) = 0.4635849923335945D-03
        xs(  2) = 0.2383892692972659D-02
        xs(  3) = 0.5643740394934669D-02
        xs(  4) = 0.1002434075291455D-01
        xs(  5) = 0.1533235125500286D-01
        xs(  6) = 0.2141184910462698D-01
        xs(  7) = 0.2813812141359793D-01
        xs(  8) = 0.3541072994688132D-01
        xs(  9) = 0.4314873842664401D-01
        xs( 10) = 0.5128729197416438D-01
        xs( 11) = 0.5977484533351149D-01
        xs( 12) = 0.6857082532840542D-01
        xs( 13) = 0.7764370641411102D-01
        xs( 14) = 0.8696952262091100D-01
        xs( 15) = 0.9653083205533015D-01
        xs( 16) = 0.1063160966161712D+00
        xs( 17) = 0.1163196768117364D+00
        xs( 18) = 0.1265427635781147D+00
        xs( 19) = 0.1369950526599602D+00
        xs( 20) = 0.1477029346552201D+00
        xs( 21) = 0.1587883285231489D+00
        ws(  1) = 0.1182480526991450D-02
        ws(  2) = 0.2626583000835772D-02
        ws(  3) = 0.3855583928487893D-02
        ws(  4) = 0.4873299742770959D-02
        ws(  5) = 0.5716872551074877D-02
        ws(  6) = 0.6421455979478819D-02
        ws(  7) = 0.7014426016054282D-02
        ws(  8) = 0.7517358073213708D-02
        ws(  9) = 0.7947897617801654D-02
        ws( 10) = 0.8320661897102941D-02
        ws( 11) = 0.8647724912009824D-02
        ws( 12) = 0.8939031398721249D-02
        ws( 13) = 0.9202820539539400D-02
        ws( 14) = 0.9446095035296179D-02
        ws( 15) = 0.9675099057837960D-02
        ws( 16) = 0.9895918211585494D-02
        ws( 17) = 0.1011586033038714D-01
        ws( 18) = 0.1034654943876230D-01
        ws( 19) = 0.1061462600366541D-01
        ws( 20) = 0.1103913664286173D-01
        ws( 21) = 0.1266025486807840D-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 =  21
        err = 0.6884745583055146D-07
        xs(  1) = 0.4332895198443166D-03
        xs(  2) = 0.2247019435606483D-02
        xs(  3) = 0.5375365240418847D-02
        xs(  4) = 0.9637613250182565D-02
        xs(  5) = 0.1485155000705865D-01
        xs(  6) = 0.2085945174853365D-01
        xs(  7) = 0.2753172689570445D-01
        xs(  8) = 0.3476350709053772D-01
        xs(  9) = 0.4247054126825709D-01
        xs( 10) = 0.5058561237126351D-01
        xs( 11) = 0.5905548718756104D-01
        xs( 12) = 0.6783835488906644D-01
        xs( 13) = 0.7690174676728362D-01
        xs( 14) = 0.8622094022251209D-01
        xs( 15) = 0.9577783102028783D-01
        xs( 16) = 0.1055602465815263D+00
        xs( 17) = 0.1155618579668902D+00
        xs( 18) = 0.1257828704556216D+00
        xs( 19) = 0.1362314067984468D+00
        xs( 20) = 0.1469309996246662D+00
        xs( 21) = 0.1579785920235734D+00
        ws(  1) = 0.1107775790601211D-02
        ws(  2) = 0.2498563653515650D-02
        ws(  3) = 0.3726963280421697D-02
        ws(  4) = 0.4766775083359188D-02
        ws(  5) = 0.5634790538387076D-02
        ws(  6) = 0.6359483932172224D-02
        ws(  7) = 0.6967659053879900D-02
        ws(  8) = 0.7481920496608913D-02
        ws(  9) = 0.7920998535895203D-02
        ws( 10) = 0.8300319628032141D-02
        ws( 11) = 0.8632508299232233D-02
        ws( 12) = 0.8927871498937133D-02
        ws( 13) = 0.9194884989651436D-02
        ws( 14) = 0.9440691475723170D-02
        ws( 15) = 0.9671591833037636D-02
        ws( 16) = 0.9893682577951013D-02
        ws( 17) = 0.1011416328192640D-01
        ws( 18) = 0.1034429808658692D-01
        ws( 19) = 0.1061027150737244D-01
        ws( 20) = 0.1102699207332294D-01
        ws( 21) = 0.1260568829563513D-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 =  22
        err = 0.4928874833080606D-07
        xs(  1) = 0.3759498311360177D-03
        xs(  2) = 0.1967895672588633D-02
        xs(  3) = 0.4767213400367413D-02
        xs(  4) = 0.8657668726614907D-02
        xs(  5) = 0.1349945162586123D-01
        xs(  6) = 0.1915696373707275D-01
        xs(  7) = 0.2550920644853121D-01
        xs(  8) = 0.3245220487446370D-01
        xs(  9) = 0.3989888077829505D-01
        xs( 10) = 0.4777779081343147D-01
        xs( 11) = 0.5603124503886788D-01
        xs( 12) = 0.6461323269437098D-01
        xs( 13) = 0.7348747548472991D-01
        xs( 14) = 0.8262577966694672D-01
        xs( 15) = 0.9200677128202946D-01
        xs( 16) = 0.1016150113283986D+00
        xs( 17) = 0.1114405363217876D+00
        xs( 18) = 0.1214790275995566D+00
        xs( 19) = 0.1317325326796791D+00
        xs( 20) = 0.1422115991117460D+00
        xs( 21) = 0.1529385829674466D+00
        xs( 22) = 0.1640938636370033D+00
        ws(  1) = 0.9635476241425093D-03
        ws(  2) = 0.2211017111185946D-02
        ws(  3) = 0.3367502055610916D-02
        ws(  4) = 0.4389641912369117D-02
        ws(  5) = 0.5271182010190283D-02
        ws(  6) = 0.6023646266067652D-02
        ws(  7) = 0.6663514253484966D-02
        ws(  8) = 0.7207991765973063D-02
        ws(  9) = 0.7673485590702118D-02
        ws( 10) = 0.8074755916760223D-02
        ws( 11) = 0.8424519595381390D-02
        ws( 12) = 0.8733443588589126D-02
        ws( 13) = 0.9010380410758988D-02
        ws( 14) = 0.9262725728534257D-02
        ws( 15) = 0.9496829689129920D-02
        ws( 16) = 0.9718397436304907D-02
        ws( 17) = 0.9933124832073729D-02
        ws( 18) = 0.1014785810056334D-01
        ws( 19) = 0.1037320909035377D-01
        ws( 20) = 0.1063769608120494D-01
        ws( 21) = 0.1100985062618930D-01
        ws( 22) = 0.1297338474049765D-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 =  22
        err = 0.6429835229960008D-07
        xs(  1) = 0.3254567453070197D-03
        xs(  2) = 0.1726850467210618D-02
        xs(  3) = 0.4259835144635408D-02
        xs(  4) = 0.7873330716694193D-02
        xs(  5) = 0.1246253968567156D-01
        xs(  6) = 0.1790562250012954D-01
        xs(  7) = 0.2408407851612161D-01
        xs(  8) = 0.3089073345982615D-01
        xs(  9) = 0.3823290533353941D-01
        xs( 10) = 0.4603312808531686D-01
        xs( 11) = 0.5422825885636262D-01
        xs( 12) = 0.6276773074799095D-01
        xs( 13) = 0.7161159602312271D-01
        xs( 14) = 0.8072874402645458D-01
        xs( 15) = 0.9009542969963034D-01
        xs( 16) = 0.9969429774760950D-01
        xs( 17) = 0.1095137108266242D+00
        xs( 18) = 0.1195475451610878D+00
        xs( 19) = 0.1297966861118762D+00
        xs( 20) = 0.1402705643990111D+00
        xs( 21) = 0.1509855221323925D+00
        xs( 22) = 0.1621551054531911D+00
        ws(  1) = 0.8370942757703998D-03
        ws(  2) = 0.1969455101647223D-02
        ws(  3) = 0.3087585483322459D-02
        ws(  4) = 0.4121235824745864D-02
        ws(  5) = 0.5036567706851710D-02
        ws(  6) = 0.5829732182568596D-02
        ws(  7) = 0.6509268375975252D-02
        ws(  8) = 0.7088584167348993D-02
        ws(  9) = 0.7582865822268566D-02
        ws( 10) = 0.8007087469502292D-02
        ws( 11) = 0.8374782325039538D-02
        ws( 12) = 0.8697540212535762D-02
        ws( 13) = 0.8985051423420168D-02
        ws( 14) = 0.9245360830580359D-02
        ws( 15) = 0.9485284535805837D-02
        ws( 16) = 0.9710958115537361D-02
        ws( 17) = 0.9928131132356762D-02
        ws( 18) = 0.1014382893286137D-01
        ws( 19) = 0.1036996621534819D-01
        ws( 20) = 0.1063134181754154D-01
        ws( 21) = 0.1101959063519524D-01
        ws( 22) = 0.1293215146684244D-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 =  22
        err = 0.8514694232492916D-07
        xs(  1) = 0.2200710454902922D-03
        xs(  2) = 0.1197725809283575D-02
        xs(  3) = 0.3088603312232695D-02
        xs(  4) = 0.6019630152395268D-02
        xs(  5) = 0.1001179486093821D-01
        xs(  6) = 0.1497752233979807D-01
        xs(  7) = 0.2078862949538485D-01
        xs(  8) = 0.2731816727524824D-01
        xs(  9) = 0.3445289226077086D-01
        xs( 10) = 0.4209718755189421D-01
        xs( 11) = 0.5017367632409209D-01
        xs( 12) = 0.5862150952595972D-01
        xs( 13) = 0.6739366193537268D-01
        xs( 14) = 0.7645425327466449D-01
        xs( 15) = 0.8577629986510719D-01
        xs( 16) = 0.9534023767821145D-01
        xs( 17) = 0.1051327795805656D+00
        xs( 18) = 0.1151466617182207D+00
        xs( 19) = 0.1253820317090608D+00
        xs( 20) = 0.1358456213340776D+00
        xs( 21) = 0.1465524933936925D+00
        xs( 22) = 0.1575947704099790D+00
        ws(  1) = 0.5693201305445816D-03
        ws(  2) = 0.1408909954577191D-02
        ws(  3) = 0.2396230609063545D-02
        ws(  4) = 0.3469195814111996D-02
        ws(  5) = 0.4499085061772642D-02
        ws(  6) = 0.5410370272620827D-02
        ws(  7) = 0.6190534088473601D-02
        ws(  8) = 0.6849606368496459D-02
        ws(  9) = 0.7403900464859818D-02
        ws( 10) = 0.7871828411501192D-02
        ws( 11) = 0.8271060636114842D-02
        ws( 12) = 0.8616823562658946D-02
        ws( 13) = 0.8921563297638171D-02
        ws( 14) = 0.9195202493452743D-02
        ws( 15) = 0.9445821195453138D-02
        ws( 16) = 0.9680356628607599D-02
        ws( 17) = 0.9904877991146088D-02
        ws( 18) = 0.1012698770983882D-01
        ws( 19) = 0.1035887093341493D-01
        ws( 20) = 0.1062390402665717D-01
        ws( 21) = 0.1102500101036988D-01
        ws( 22) = 0.1255336290415072D-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 =  23
        err = 0.7350355483292924D-07
        xs(  1) = 0.1528823377240470D-03
        xs(  2) = 0.8337171378654108D-03
        xs(  3) = 0.2174121208192611D-02
        xs(  4) = 0.4359105638318725D-02
        xs(  5) = 0.7576630016552345D-02
        xs(  6) = 0.1189406028279198D-01
        xs(  7) = 0.1721824482141940D-01
        xs(  8) = 0.2338332161051897D-01
        xs(  9) = 0.3023232296244255D-01
        xs( 10) = 0.3764094453652450D-01
        xs( 11) = 0.4551511790819921D-01
        xs( 12) = 0.5378403513540590D-01
        xs( 13) = 0.6239416753042802D-01
        xs( 14) = 0.7130486658000944D-01
        xs( 15) = 0.8048528617694063D-01
        xs( 16) = 0.8991228697185892D-01
        xs( 17) = 0.9956915828594121D-01
        xs( 18) = 0.1094448532189451D+00
        xs( 19) = 0.1195336575455289D+00
        xs( 20) = 0.1298366831106777D+00
        xs( 21) = 0.1403623872043760D+00
        xs( 22) = 0.1511188443139324D+00
        xs( 23) = 0.1622693939061798D+00
        ws(  1) = 0.3955395285106076D-03
        ws(  2) = 0.9849115349271082D-03
        ws(  3) = 0.1727836645709287D-02
        ws(  4) = 0.2675977813481230D-02
        ws(  5) = 0.3771156571912317D-02
        ws(  6) = 0.4846179531343119D-02
        ws(  7) = 0.5773121098875756D-02
        ws(  8) = 0.6530591353256603D-02
        ws(  9) = 0.7146779956498328D-02
        ws( 10) = 0.7654910614059921D-02
        ws( 11) = 0.8081735168393656D-02
        ws( 12) = 0.8447250745676487D-02
        ws( 13) = 0.8766292281941968D-02
        ws( 14) = 0.9050017464315907D-02
        ws( 15) = 0.9307048672859747D-02
        ws( 16) = 0.9544323235048099D-02
        ws( 17) = 0.9767889180343468D-02
        ws( 18) = 0.9983451492384270D-02
        ws( 19) = 0.1019820037650707D-01
        ws( 20) = 0.1042392482761560D-01
        ws( 21) = 0.1067882228803318D-01
        ws( 22) = 0.1103198755646179D-01
        ws( 23) = 0.1281178342746307D-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 =  25
        err = 0.7164825467404966D-07
        xs(  1) = 0.7481438680155967D-04
        xs(  2) = 0.4030944626211072D-03
        xs(  3) = 0.1032280040692478D-02
        xs(  4) = 0.2037615806241149D-02
        xs(  5) = 0.3546130059952027D-02
        xs(  6) = 0.5747367596777355D-02
        xs(  7) = 0.8872760735854728D-02
        xs(  8) = 0.1310175583080616D-01
        xs(  9) = 0.1843810254366887D-01
        xs( 10) = 0.2471898584198687D-01
        xs( 11) = 0.3174182983640943D-01
        xs( 12) = 0.3934335380524321D-01
        xs( 13) = 0.4740859395067602D-01
        xs( 14) = 0.5585801017671925D-01
        xs( 15) = 0.6463527583639471D-01
        xs( 16) = 0.7369930720654488D-01
        xs( 17) = 0.8301952631702648D-01
        xs( 18) = 0.9257320673666701D-01
        xs( 19) = 0.1023436953150214D+00
        xs( 20) = 0.1123193904040464D+00
        xs( 21) = 0.1224936450746659D+00
        xs( 22) = 0.1328632467367146D+00
        xs( 23) = 0.1434307341725780D+00
        xs( 24) = 0.1542038412125309D+00
        xs( 25) = 0.1650991713920810D+00
        ws(  1) = 0.1929924874431829D-03
        ws(  2) = 0.4697418016508548D-03
        ws(  3) = 0.8009198798386602D-03
        ws(  4) = 0.1230683520854943D-02
        ws(  5) = 0.1818140085391170D-02
        ws(  6) = 0.2624497999554080D-02
        ws(  7) = 0.3658863513388886D-02
        ws(  8) = 0.4799542382294358D-02
        ws(  9) = 0.5843297893909208D-02
        ws( 10) = 0.6683437796087183D-02
        ws( 11) = 0.7335032413294974D-02
        ws( 12) = 0.7849114045944645D-02
        ws( 13) = 0.8268319654688577D-02
        ws( 14) = 0.8621261689279187D-02
        ws( 15) = 0.8926510980096548D-02
        ws( 16) = 0.9196516544293576D-02
        ws( 17) = 0.9440222598586623D-02
        ws( 18) = 0.9664590875626024D-02
        ws( 19) = 0.9874973604724880D-02
        ws( 20) = 0.1007659662302524D-01
        ws( 21) = 0.1027544171455499D-01
        ws( 22) = 0.1048038421263984D-01
        ws( 23) = 0.1071610559476406D-01
        ws( 24) = 0.1104835374756217D-01
        ws( 25) = 0.1213004507144093D-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 =  29
        err = 0.4646586462770748D-07
        xs(  1) = 0.2943395417272992D-04
        xs(  2) = 0.1565386928711672D-03
        xs(  3) = 0.3913750434816343D-03
        xs(  4) = 0.7455349861314580D-03
        xs(  5) = 0.1237970497337033D-02
        xs(  6) = 0.1897878281802077D-02
        xs(  7) = 0.2769188169337766D-02
        xs(  8) = 0.3917546398571077D-02
        xs(  9) = 0.5440844932053538D-02
        xs( 10) = 0.7483554096059199D-02
        xs( 11) = 0.1025014637552427D-01
        xs( 12) = 0.1399599042576051D-01
        xs( 13) = 0.1894556895132667D-01
        xs( 14) = 0.2513344678885089D-01
        xs( 15) = 0.3235687702251182D-01
        xs( 16) = 0.4033380228047784D-01
        xs( 17) = 0.4884148778084853D-01
        xs( 18) = 0.5773827022670490D-01
        xs( 19) = 0.6693929341117386D-01
        xs( 20) = 0.7639331461251359D-01
        xs( 21) = 0.8606854959942847D-01
        xs( 22) = 0.9594501598031981D-01
        xs( 23) = 0.1060101715267074D+00
        xs( 24) = 0.1162575615441245D+00
        xs( 25) = 0.1266858969527683D+00
        xs( 26) = 0.1372992099168203D+00
        xs( 27) = 0.1481162827745388D+00
        xs( 28) = 0.1590812443114757D+00
        xs( 29) = 0.1699682386024039D+00
        ws(  1) = 0.7570063251880962D-04
        ws(  2) = 0.1795430835519740D-03
        ws(  3) = 0.2920293366831209D-03
        ws(  4) = 0.4194027727856099D-03
        ws(  5) = 0.5702616449848930D-03
        ws(  6) = 0.7567619168347643D-03
        ws(  7) = 0.9966253064596000D-03
        ws(  8) = 0.1316160824577579D-02
        ws(  9) = 0.1754248526877398D-02
        ws( 10) = 0.2365268763892122D-02
        ws( 11) = 0.3211705410413951D-02
        ws( 12) = 0.4320626132383307D-02
        ws( 13) = 0.5585553430542211D-02
        ws( 14) = 0.6752838726313394D-02
        ws( 15) = 0.7644550853211331D-02
        ws( 16) = 0.8272079725159783D-02
        ws( 17) = 0.8720182808452772D-02
        ws( 18) = 0.9059632917242551D-02
        ws( 19) = 0.9334097484097279D-02
        ws( 20) = 0.9568757730962163D-02
        ws( 21) = 0.9778447609074257D-02
        ws( 22) = 0.9972495457831724D-02
        ws( 23) = 0.1015712738105080D-01
        ws( 24) = 0.1033844370809705D-01
        ws( 25) = 0.1051893837495538D-01
        ws( 26) = 0.1071501488076741D-01
        ws( 27) = 0.1097481170728636D-01
        ws( 28) = 0.1127086312354298D-01
        ws( 29) = 0.1171308277203881D-01
        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 =  31
        err = 0.7697041589272744D-07
        xs(  1) = 0.1638614824635015D-04
        xs(  2) = 0.8675009841815153D-04
        xs(  3) = 0.2150768800876084D-03
        xs(  4) = 0.4045841109514660D-03
        xs(  5) = 0.6603514069390994D-03
        xs(  6) = 0.9898628639642010D-03
        xs(  7) = 0.1403749060999739D-02
        xs(  8) = 0.1916853182029407D-02
        xs(  9) = 0.2549802288705244D-02
        xs( 10) = 0.3331372663289105D-02
        xs( 11) = 0.4302127592518207D-02
        xs( 12) = 0.5520101301146248D-02
        xs( 13) = 0.7069734564040313D-02
        xs( 14) = 0.9075826629983783D-02
        xs( 15) = 0.1172409997332027D-01
        xs( 16) = 0.1528600453351087D-01
        xs( 17) = 0.2012246714724465D-01
        xs( 18) = 0.2657300485655286D-01
        xs( 19) = 0.3466804157866113D-01
        xs( 20) = 0.4401689058975653D-01
        xs( 21) = 0.5412014413740304D-01
        xs( 22) = 0.6463083162346425D-01
        xs( 23) = 0.7536592531591146D-01
        xs( 24) = 0.8624105355942666D-01
        xs( 25) = 0.9722173665967417D-01
        xs( 26) = 0.1082972781872039D+00
        xs( 27) = 0.1194696610195733D+00
        xs( 28) = 0.1307436427470655D+00
        xs( 29) = 0.1421229232123739D+00
        xs( 30) = 0.1535703941461386D+00
        xs( 31) = 0.1647782744046704D+00
        ws(  1) = 0.4209869562669020D-04
        ws(  2) = 0.9894037742273614D-04
        ws(  3) = 0.1582414628900745D-03
        ws(  4) = 0.2216108959465338D-03
        ws(  5) = 0.2911589469909552D-03
        ws(  6) = 0.3696184007669220D-03
        ws(  7) = 0.4606023197214393D-03
        ws(  8) = 0.5690054419322953D-03
        ws(  9) = 0.7016299757506311D-03
        ws( 10) = 0.8681793784302366D-03
        ws( 11) = 0.1082858268572158D-02
        ws( 12) = 0.1366934886469304D-02
        ws( 13) = 0.1752788139140624D-02
        ws( 14) = 0.2289898651434666D-02
        ws( 15) = 0.3051615489819686D-02
        ws( 16) = 0.4133776982034549D-02
        ws( 17) = 0.5601506983502095D-02
        ws( 18) = 0.7307831118103780D-02
        ws( 19) = 0.8809794279627484D-02
        ws( 20) = 0.9800066286415414D-02
        ws( 21) = 0.1034905350395754D-01
        ws( 22) = 0.1064307815212251D-01
        ws( 23) = 0.1081383788727449D-01
        ws( 24) = 0.1093094660590182D-01
        ws( 25) = 0.1102825973354927D-01
        ws( 26) = 0.1112205646589492D-01
        ws( 27) = 0.1122529424895202D-01
        ws( 28) = 0.1134678781093431D-01
        ws( 29) = 0.1151172502011332D-01
        ws( 30) = 0.1148273243276157D-01
        ws( 31) = 0.1034008911014476D-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 =  34
        err = 0.9290029359781755D-07
        xs(  1) = 0.1039475810424746D-04
        xs(  2) = 0.5492308002463408D-04
        xs(  3) = 0.1356764788925682D-03
        xs(  4) = 0.2538397891370062D-03
        xs(  5) = 0.4112386105459275D-03
        xs(  6) = 0.6104959535723562D-03
        xs(  7) = 0.8552198551742924D-03
        xs(  8) = 0.1150246269030045D-02
        xs(  9) = 0.1501962376577742D-02
        xs( 10) = 0.1918747533967637D-02
        xs( 11) = 0.2411588169626152D-02
        xs( 12) = 0.2994952834007565D-02
        xs( 13) = 0.3688061779055745D-02
        xs( 14) = 0.4516762567118559D-02
        xs( 15) = 0.5516361677875381D-02
        xs( 16) = 0.6735994792196782D-02
        xs( 17) = 0.8245484837774295D-02
        xs( 18) = 0.1014637087072254D-01
        xs( 19) = 0.1258975723467126D-01
        xs( 20) = 0.1580410505578880D-01
        xs( 21) = 0.2013077168788424D-01
        xs( 22) = 0.2602830595017944D-01
        xs( 23) = 0.3390313428256141D-01
        xs( 24) = 0.4371484136091886D-01
        xs( 25) = 0.5488656055682705D-01
        xs( 26) = 0.6676231115713435D-01
        xs( 27) = 0.7892459325171956D-01
        xs( 28) = 0.9117618157400902D-01
        xs( 29) = 0.1034423707923148D+00
        xs( 30) = 0.1157056470504756D+00
        xs( 31) = 0.1279716964218700D+00
        xs( 32) = 0.1402419641262229D+00
        xs( 33) = 0.1524874895424243D+00
        xs( 34) = 0.1644348452335301D+00
        ws(  1) = 0.2669368943646753D-04
        ws(  2) = 0.6248863196894416D-04
        ws(  3) = 0.9921255670659101D-04
        ws(  4) = 0.1374158654130734D-03
        ws(  5) = 0.1778158595113561D-03
        ws(  6) = 0.2212961781762115D-03
        ws(  7) = 0.2689523204332515D-03
        ws(  8) = 0.3221578171693028D-03
        ws(  9) = 0.3826609025701860D-03
        ws( 10) = 0.4527262080148493D-03
        ws( 11) = 0.5353458140232510D-03
        ws( 12) = 0.6345564193731209D-03
        ws( 13) = 0.7559235854036969D-03
        ws( 14) = 0.9072916460218710D-03
        ws( 15) = 0.1099985449973854D-02
        ws( 16) = 0.1350740506359926D-02
        ws( 17) = 0.1684873925982535D-02
        ws( 18) = 0.2141622274116840D-02
        ws( 19) = 0.2782579685104745D-02
        ws( 20) = 0.3702595294645776D-02
        ws( 21) = 0.5029441381839281D-02
        ws( 22) = 0.6841595793866889D-02
        ws( 23) = 0.8904188462185256D-02
        ws( 24) = 0.1061246761495183D-01
        ws( 25) = 0.1161629924873735D-01
        ws( 26) = 0.1206677953989623D-01
        ws( 27) = 0.1222665255889287D-01
        ws( 28) = 0.1226492108154297D-01
        ws( 29) = 0.1226438046707266D-01
        ws( 30) = 0.1226444753705040D-01
        ws( 31) = 0.1228504773761296D-01
        ws( 32) = 0.1234992039798625D-01
        ws( 33) = 0.1215204118545994D-01
        ws( 34) = 0.1081497406954530D-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 =  38
        err = 0.6122806160304923D-07
        xs(  1) = 0.7169208134790572D-05
        xs(  2) = 0.3784012567976104D-04
        xs(  3) = 0.9329527062322833D-04
        xs(  4) = 0.1740450437342019D-03
        xs(  5) = 0.2808638763198353D-03
        xs(  6) = 0.4148520668665700D-03
        xs(  7) = 0.5775005516540741D-03
        xs(  8) = 0.7707678438411723D-03
        xs(  9) = 0.9971739457748320D-03
        xs( 10) = 0.1259918257093602D-02
        xs( 11) = 0.1563030992274333D-02
        xs( 12) = 0.1911571835599708D-02
        xs( 13) = 0.2311894223872019D-02
        xs( 14) = 0.2772003081870781D-02
        xs( 15) = 0.3302045387322997D-02
        xs( 16) = 0.3914992139253376D-02
        xs( 17) = 0.4627604922569173D-02
        xs( 18) = 0.5461824763052687D-02
        xs( 19) = 0.6446813618173514D-02
        xs( 20) = 0.7622021291073554D-02
        xs( 21) = 0.9041888258424398D-02
        xs( 22) = 0.1078325145465168D-01
        xs( 23) = 0.1295730354048701D-01
        xs( 24) = 0.1572910396415434D-01
        xs( 25) = 0.1934876133420179D-01
        xs( 26) = 0.2419357488431860D-01
        xs( 27) = 0.3077977640464746D-01
        xs( 28) = 0.3958270985823390D-01
        xs( 29) = 0.5057848212053797D-01
        xs( 30) = 0.6310286977658212D-01
        xs( 31) = 0.7637548260732228D-01
        xs( 32) = 0.8989499860788286D-01
        xs( 33) = 0.1034272682393590D+00
        xs( 34) = 0.1168867354243288D+00
        xs( 35) = 0.1302546140691570D+00
        xs( 36) = 0.1435292479074539D+00
        xs( 37) = 0.1566646785470596D+00
        xs( 38) = 0.1692130778626236D+00
        ws(  1) = 0.1840597215323718D-04
        ws(  2) = 0.4299613860432888D-04
        ws(  3) = 0.6799761364570315D-04
        ws(  4) = 0.9363006818231924D-04
        ws(  5) = 0.1201899095471226D-03
        ws(  6) = 0.1480336898903240D-03
        ws(  7) = 0.1775881546526341D-03
        ws(  8) = 0.2093644836053641D-03
        ws(  9) = 0.2439784630447071D-03
        ws( 10) = 0.2821785919270624D-03
        ws( 11) = 0.3248858180023452D-03
        ws( 12) = 0.3732489086632607D-03
        ws( 13) = 0.4287219656793970D-03
        ws( 14) = 0.4931757740821789D-03
        ws( 15) = 0.5690548577464207D-03
        ws( 16) = 0.6596096431757116D-03
        ws( 17) = 0.7692395835227161D-03
        ws( 18) = 0.9040106733667616D-03
        ws( 19) = 0.1072466021576547D-02
        ws( 20) = 0.1286903571916989D-02
        ws( 21) = 0.1565444238605461D-02
        ws( 22) = 0.1935499605133780D-02
        ws( 23) = 0.2439603825622155D-02
        ws( 24) = 0.3144920775431510D-02
        ws( 25) = 0.4156711504144870D-02
        ws( 26) = 0.5621261499991433D-02
        ws( 27) = 0.7639774799572514D-02
        ws( 28) = 0.9966358183751686D-02
        ws( 29) = 0.1190223681857331D-01
        ws( 30) = 0.1300964861809303D-01
        ws( 31) = 0.1345325883328134D-01
        ws( 32) = 0.1354886071129745D-01
        ws( 33) = 0.1350299116082260D-01
        ws( 34) = 0.1341560231056090D-01
        ws( 35) = 0.1332306913880158D-01
        ws( 36) = 0.1324245328213206D-01
        ws( 37) = 0.1299074994021416D-01
        ws( 38) = 0.1135093460326490D-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 =  42
        err = 0.5887601008026473D-07
        xs(  1) = 0.5259263787620491D-05
        xs(  2) = 0.2774295121481284D-04
        xs(  3) = 0.6832722398053694D-04
        xs(  4) = 0.1272629996689406D-03
        xs(  5) = 0.2049251475245618D-03
        xs(  6) = 0.3018429742008794D-03
        xs(  7) = 0.4187286902836242D-03
        xs(  8) = 0.5565093403897932D-03
        xs(  9) = 0.7163633111621982D-03
        xs( 10) = 0.8997631389159935D-03
        xs( 11) = 0.1108526915272046D-02
        xs( 12) = 0.1344881592187824D-02
        xs( 13) = 0.1611542329118463D-02
        xs( 14) = 0.1911813312598376D-02
        xs( 15) = 0.2249717838224514D-02
        xs( 16) = 0.2630167461829797D-02
        xs( 17) = 0.3059184735204064D-02
        xs( 18) = 0.3544199737106633D-02
        xs( 19) = 0.4094450351606732D-02
        xs( 20) = 0.4721528658533701D-02
        xs( 21) = 0.5440139996604999D-02
        xs( 22) = 0.6269175784054020D-02
        xs( 23) = 0.7233257513652093D-02
        xs( 24) = 0.8365012878072160D-02
        xs( 25) = 0.9708499230727781D-02
        xs( 26) = 0.1132449828942497D-01
        xs( 27) = 0.1329896817793311D-01
        xs( 28) = 0.1575700661486560D-01
        xs( 29) = 0.1888618578814949D-01
        xs( 30) = 0.2297406083623104D-01
        xs( 31) = 0.2845633156841344D-01
        xs( 32) = 0.3591916244655686D-01
        xs( 33) = 0.4586482410687544D-01
        xs( 34) = 0.5819342346319913D-01
        xs( 35) = 0.7211015616050635D-01
        xs( 36) = 0.8674326189908527D-01
        xs( 37) = 0.1015529538780704D+00
        xs( 38) = 0.1162945247964092D+00
        xs( 39) = 0.1308798553704959D+00
        xs( 40) = 0.1452720998937183D+00
        xs( 41) = 0.1594222389199778D+00
        xs( 42) = 0.1729189585090994D+00
        ws(  1) = 0.1350061422262891D-04
        ws(  2) = 0.3150029711603804D-04
        ws(  3) = 0.4970907553366944D-04
        ws(  4) = 0.6822451484151109D-04
        ws(  5) = 0.8718752805730368D-04
        ws(  6) = 0.1067662995669102D-03
        ws(  7) = 0.1271590376247344D-03
        ws(  8) = 0.1485979512795284D-03
        ws(  9) = 0.1713545624298501D-03
        ws( 10) = 0.1957470617777876D-03
        ws( 11) = 0.2221503419847690D-03
        ws( 12) = 0.2510098786424188D-03
        ws( 13) = 0.2828601451922526D-03
        ws( 14) = 0.3183495848684631D-03
        ws( 15) = 0.3582743916028694D-03
        ws( 16) = 0.4036237459219103D-03
        ws( 17) = 0.4556425794250852D-03
        ws( 18) = 0.5159181176745459D-03
        ws( 19) = 0.5865027161136812D-03
        ws( 20) = 0.6700872517857149D-03
        ws( 21) = 0.7702588851198822D-03
        ws( 22) = 0.8918792473271226D-03
        ws( 23) = 0.1041666781349081D-02
        ws( 24) = 0.1229101364802125D-02
        ws( 25) = 0.1467866269233292D-02
        ws( 26) = 0.1778234512893969D-02
        ws( 27) = 0.2191179442476314D-02
        ws( 28) = 0.2755538793561091D-02
        ws( 29) = 0.3549859471032010D-02
        ws( 30) = 0.4697989362901155D-02
        ws( 31) = 0.6367506750183559D-02
        ws( 32) = 0.8652731492306578D-02
        ws( 33) = 0.1122517485590348D-01
        ws( 34) = 0.1328526301205585D-01
        ws( 35) = 0.1439611149902785D-01
        ws( 36) = 0.1478189269299129D-01
        ws( 37) = 0.1479923035948278D-01
        ws( 38) = 0.1467173890371344D-01
        ws( 39) = 0.1450427298815398D-01
        ws( 40) = 0.1429058559068013D-01
        ws( 41) = 0.1380500841352891D-01
        ws( 42) = 0.1131432114127849D-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 =  46
        err = 0.4343703049218514D-07
        xs(  1) = 0.4028820246135331D-05
        xs(  2) = 0.2124477597534365D-04
        xs(  3) = 0.5228918393204407D-04
        xs(  4) = 0.9729765624453847D-04
        xs(  5) = 0.1564696717433994D-03
        xs(  6) = 0.2300861109325051D-03
        xs(  7) = 0.3185238918873794D-03
        xs(  8) = 0.4222717074375198D-03
        xs(  9) = 0.5419471697741441D-03
        xs( 10) = 0.6783158597823327D-03
        xs( 11) = 0.8323129926615850D-03
        xs( 12) = 0.1005068677806884D-02
        xs( 13) = 0.1197938078328166D-02
        xs( 14) = 0.1412537986813322D-02
        xs( 15) = 0.1650791778901845D-02
        xs( 16) = 0.1914985353958352D-02
        xs( 17) = 0.2207837173211982D-02
        xs( 18) = 0.2532586831338555D-02
        xs( 19) = 0.2893108017781063D-02
        xs( 20) = 0.3294053821619747D-02
        xs( 21) = 0.3741045274130076D-02
        xs( 22) = 0.4240919236021945D-02
        xs( 23) = 0.4802057126997495D-02
        xs( 24) = 0.5434828237508956D-02
        xs( 25) = 0.6152194046996997D-02
        xs( 26) = 0.6970547321991770D-02
        xs( 27) = 0.7910899826547958D-02
        xs( 28) = 0.9000591393893786D-02
        xs( 29) = 0.1027581775226808D-01
        xs( 30) = 0.1178545123300454D-01
        xs( 31) = 0.1359701172797245D-01
        xs( 32) = 0.1580634848997765D-01
        xs( 33) = 0.1855385961245709D-01
        xs( 34) = 0.2205217539049302D-01
        xs( 35) = 0.2663078772401364D-01
        xs( 36) = 0.3278986910538792D-01
        xs( 37) = 0.4118678214712578D-01
        xs( 38) = 0.5233288797617314D-01
        xs( 39) = 0.6602234095443375D-01
        xs( 40) = 0.8132475858624937D-01
        xs( 41) = 0.9729520305842548D-01
        xs( 42) = 0.1133724293186876D+00
        xs( 43) = 0.1293096109053901D+00
        xs( 44) = 0.1450213426510000D+00
        xs( 45) = 0.1603745900399233D+00
        xs( 46) = 0.1750426760372527D+00
        ws(  1) = 0.1034119694006541D-04
        ws(  2) = 0.2411146822594764D-04
        ws(  3) = 0.3799926409072151D-04
        ws(  4) = 0.5205068771076048D-04
        ws(  5) = 0.6633991356363224D-04
        ws(  6) = 0.8095552281131164D-04
        ws(  7) = 0.9600120694394655D-04
        ws(  8) = 0.1115970441275254D-03
        ws(  9) = 0.1278811147333064D-03
        ws( 10) = 0.1450117167251746D-03
        ws( 11) = 0.1631704018875510D-03
        ws( 12) = 0.1825662217506782D-03
        ws( 13) = 0.2034413017785364D-03
        ws( 14) = 0.2260781518619631D-03
        ws( 15) = 0.2508092604241537D-03
        ws( 16) = 0.2780295030865214D-03
        ws( 17) = 0.3082122033218460D-03
        ws( 18) = 0.3419303272193796D-03
        ws( 19) = 0.3798844564759103D-03
        ws( 20) = 0.4229399014859083D-03
        ws( 21) = 0.4721770872470365D-03
        ws( 22) = 0.5289604483994028D-03
        ws( 23) = 0.5950336513707542D-03
        ws( 24) = 0.6726550969382135D-03
        ws( 25) = 0.7647892440351010D-03
        ws( 26) = 0.8753914737339691D-03
        ws( 27) = 0.1009829099611569D-02
        ws( 28) = 0.1175524913611143D-02
        ws( 29) = 0.1382977155784288D-02
        ws( 30) = 0.1647388080097881D-02
        ws( 31) = 0.1991449250409408D-02
        ws( 32) = 0.2450179398339819D-02
        ws( 33) = 0.3079534980954378D-02
        ws( 34) = 0.3970995864373862D-02
        ws( 35) = 0.5269204208701778D-02
        ws( 36) = 0.7163047123317430D-02
        ws( 37) = 0.9728331403307151D-02
        ws( 38) = 0.1253081111827025D-01
        ws( 39) = 0.1467687142339737D-01
        ws( 40) = 0.1576418810352843D-01
        ws( 41) = 0.1608552415352588D-01
        ws( 42) = 0.1603215812006365D-01
        ws( 43) = 0.1583427536770008D-01
        ws( 44) = 0.1562926335309078D-01
        ws( 45) = 0.1518530744747519D-01
        ws( 46) = 0.1270490576276673D-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 =  49
        err = 0.8478096031982229D-07
        xs(  1) = 0.3250022586570533D-05
        xs(  2) = 0.1713321444799796D-04
        xs(  3) = 0.4214807727741597D-04
        xs(  4) = 0.7836927059998613D-04
        xs(  5) = 0.1259058242130645D-03
        xs(  6) = 0.1849134220879932D-03
        xs(  7) = 0.2556037689829236D-03
        xs(  8) = 0.3382541853734644D-03
        xs(  9) = 0.4332174876017999D-03
        xs( 10) = 0.5409323630078616D-03
        xs( 11) = 0.6619345603791156D-03
        xs( 12) = 0.7968692363205955D-03
        xs( 13) = 0.9465050797514310D-03
        xs( 14) = 0.1111750861855860D-02
        xs( 15) = 0.1293674973851837D-02
        xs( 16) = 0.1493528908590593D-02
        xs( 17) = 0.1712775944030633D-02
        xs( 18) = 0.1953126068649499D-02
        xs( 19) = 0.2216578982204590D-02
        xs( 20) = 0.2505477346629111D-02
        xs( 21) = 0.2822573440424303D-02
        xs( 22) = 0.3171112868032120D-02
        xs( 23) = 0.3554940306628448D-02
        xs( 24) = 0.3978634930339381D-02
        xs( 25) = 0.4447685412803108D-02
        xs( 26) = 0.4968717916923929D-02
        xs( 27) = 0.5549797411632548D-02
        xs( 28) = 0.6200830686985121D-02
        xs( 29) = 0.6934114085178991D-02
        xs( 30) = 0.7765088465257359D-02
        xs( 31) = 0.8713409507279482D-02
        xs( 32) = 0.9804470776322271D-02
        xs( 33) = 0.1107167416760944D-01
        xs( 34) = 0.1255984696819211D-01
        xs( 35) = 0.1433058007728284D-01
        xs( 36) = 0.1647119836499005D-01
        xs( 37) = 0.1911029751056200D-01
        xs( 38) = 0.2244455215062118D-01
        xs( 39) = 0.2678411632156714D-01
        xs( 40) = 0.3262096114143040D-01
        xs( 41) = 0.4067537240630445D-01
        xs( 42) = 0.5170359553467060D-01
        xs( 43) = 0.6584928571401125D-01
        xs( 44) = 0.8222370420579037D-01
        xs( 45) = 0.9960453845506693D-01
        xs( 46) = 0.1171775241986682D+00
        xs( 47) = 0.1345555090609677D+00
        xs( 48) = 0.1515201061231376D+00
        xs( 49) = 0.1675322701432134D+00
        ws(  1) = 0.8341629042159367D-05
        ws(  2) = 0.1943836438157863D-04
        ws(  3) = 0.3060327309329974D-04
        ws(  4) = 0.4185712597530616D-04
        ws(  5) = 0.5324176894300054D-04
        ws(  6) = 0.6480854762138088D-04
        ws(  7) = 0.7661820504285804D-04
        ws(  8) = 0.8874125914278183D-04
        ws(  9) = 0.1012582748463008D-03
        ws( 10) = 0.1142605591108119D-03
        ws( 11) = 0.1278511256807243D-03
        ws( 12) = 0.1421460688417912D-03
        ws( 13) = 0.1572767547904970D-03
        ws( 14) = 0.1733924847671813D-03
        ws( 15) = 0.1906638444895041D-03
        ws( 16) = 0.2092873302465803D-03
        ws( 17) = 0.2294910250852586D-03
        ws( 18) = 0.2515416257387342D-03
        ws( 19) = 0.2757535463463623D-03
        ws( 20) = 0.3025005115919229D-03
        ws( 21) = 0.3322308696066483D-03
        ws( 22) = 0.3654865373490842D-03
        ws( 23) = 0.4029286519699602D-03
        ws( 24) = 0.4453716335692531D-03
        ws( 25) = 0.4938287340401596D-03
        ws( 26) = 0.5495738568875367D-03
        ws( 27) = 0.6142272251403498D-03
        ws( 28) = 0.6898764890260783D-03
        ws( 29) = 0.7792460767902113D-03
        ws( 30) = 0.8859541201244690D-03
        ws( 31) = 0.1014883140294378D-02
        ws( 32) = 0.1172751024072860D-02
        ws( 33) = 0.1369041957431952D-02
        ws( 34) = 0.1617426097405983D-02
        ws( 35) = 0.1938346150697399D-02
        ws( 36) = 0.2363893459084320D-02
        ws( 37) = 0.2946349864371528D-02
        ws( 38) = 0.3772667561133600D-02
        ws( 39) = 0.4987189373273761D-02
        ws( 40) = 0.6808739156433356D-02
        ws( 41) = 0.9438355930008245D-02
        ws( 42) = 0.1265353809619836D-01
        ws( 43) = 0.1547306246874640D-01
        ws( 44) = 0.1705808567264002D-01
        ws( 45) = 0.1756960773218068D-01
        ws( 46) = 0.1751873413930906D-01
        ws( 47) = 0.1722152015962582D-01
        ws( 48) = 0.1658898789593968D-01
        ws( 49) = 0.1312556953864614D-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 =  53
        err = 0.9549798062813674D-07
        xs(  1) = 0.2648133531121767D-05
        xs(  2) = 0.1395806144329960D-04
        xs(  3) = 0.3432743456273283D-04
        xs(  4) = 0.6380092123429781D-04
        xs(  5) = 0.1024423840703146D-03
        xs(  6) = 0.1503433509459957D-03
        xs(  7) = 0.2076289153044945D-03
        xs(  8) = 0.2744636380045519D-03
        xs(  9) = 0.3510575303000917D-03
        xs( 10) = 0.4376721235058325D-03
        xs( 11) = 0.5346267443737164D-03
        xs( 12) = 0.6423051894148797D-03
        xs( 13) = 0.7611629885272572D-03
        xs( 14) = 0.8917355883052881D-03
        xs( 15) = 0.1034647713831163D-02
        xs( 16) = 0.1190624222570709D-02
        xs( 17) = 0.1360502927703592D-02
        xs( 18) = 0.1545249824858596D-02
        xs( 19) = 0.1745977330822865D-02
        xs( 20) = 0.1963966099093508D-02
        xs( 21) = 0.2200691496461859D-02
        xs( 22) = 0.2457855863678138D-02
        xs( 23) = 0.2737427711922987D-02
        xs( 24) = 0.3041690180578566D-02
        xs( 25) = 0.3373300545565974D-02
        xs( 26) = 0.3735365072547275D-02
        xs( 27) = 0.4131532325681849D-02
        xs( 28) = 0.4566111686007357D-02
        xs( 29) = 0.5044224835767042D-02
        xs( 30) = 0.5572001707002213D-02
        xs( 31) = 0.6156835973493725D-02
        xs( 32) = 0.6807723124468727D-02
        xs( 33) = 0.7535716237250592D-02
        xs( 34) = 0.8354541432868829D-02
        xs( 35) = 0.9281463566480927D-02
        xs( 36) = 0.1033850255840215D-01
        xs( 37) = 0.1155420423395059D-01
        xs( 38) = 0.1296629536364648D-01
        xs( 39) = 0.1462573268978066D-01
        xs( 40) = 0.1660334294038150D-01
        xs( 41) = 0.1900129605914932D-01
        xs( 42) = 0.2197290693636255D-01
        xs( 43) = 0.2575708423251870D-01
        xs( 44) = 0.3073621730547236D-01
        xs( 45) = 0.3751599756425088D-01
        xs( 46) = 0.4693833922324053D-01
        xs( 47) = 0.5974210033314529D-01
        xs( 48) = 0.7578434742615983D-01
        xs( 49) = 0.9385954008257666D-01
        xs( 50) = 0.1126818541314599D+00
        xs( 51) = 0.1314964236678315D+00
        xs( 52) = 0.1499072570840964D+00
        xs( 53) = 0.1673070036545335D+00
        ws(  1) = 0.6796549833450706D-05
        ws(  2) = 0.1583298933154598D-04
        ws(  3) = 0.2491278634092873D-04
        ws(  4) = 0.3404472458097310D-04
        ws(  5) = 0.4325335832248582D-04
        ws(  6) = 0.5256933048123178D-04
        ws(  7) = 0.6202912691584169D-04
        ws(  8) = 0.7167521405060137D-04
        ws(  9) = 0.8155605160204104D-04
        ws( 10) = 0.9172624604649264D-04
        ws( 11) = 0.1022468459259293D-03
        ws( 12) = 0.1131858279982673D-03
        ws( 13) = 0.1246188537411504D-03
        ws( 14) = 0.1366302877613971D-03
        ws( 15) = 0.1493145587885582D-03
        ws( 16) = 0.1627778417314851D-03
        ws( 17) = 0.1771402638040167D-03
        ws( 18) = 0.1925385756952977D-03
        ws( 19) = 0.2091294397822524D-03
        ws( 20) = 0.2270934474231579D-03
        ws( 21) = 0.2466404253309061D-03
        ws( 22) = 0.2680155845262054D-03
        ws( 23) = 0.2915076585957155D-03
        ws( 24) = 0.3174589112499755D-03
        ws( 25) = 0.3462779946086214D-03
        ws( 26) = 0.3784571864420225D-03
        ws( 27) = 0.4145930562276535D-03
        ws( 28) = 0.4554160354624367D-03
        ws( 29) = 0.5018277298568409D-03
        ws( 30) = 0.5549527380384503D-03
        ws( 31) = 0.6162075217986035D-03
        ws( 32) = 0.6873989456950862D-03
        ws( 33) = 0.7708607180016990D-03
        ws( 34) = 0.8696473358231380D-03
        ws( 35) = 0.9878383200294047D-03
        ws( 36) = 0.1130953805573568D-02
        ws( 37) = 0.1306672782051665D-02
        ws( 38) = 0.1525896970906105D-02
        ws( 39) = 0.1804598208873087D-02
        ws( 40) = 0.2167335350319262D-02
        ws( 41) = 0.2653573582298247D-02
        ws( 42) = 0.3328515919321533D-02
        ws( 43) = 0.4302124325668435D-02
        ws( 44) = 0.5756088141609064D-02
        ws( 45) = 0.7948649029551938D-02
        ws( 46) = 0.1103490418495042D-01
        ws( 47) = 0.1455553353688904D-01
        ws( 48) = 0.1730452162822797D-01
        ws( 49) = 0.1862172417179509D-01
        ws( 50) = 0.1890351635446908D-01
        ws( 51) = 0.1868585484963974D-01
        ws( 52) = 0.1807611341519309D-01
        ws( 53) = 0.1475083708899428D-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 =  57
        err = 0.8403554643043606D-07
        xs(  1) = 0.2208690066781282D-05
        xs(  2) = 0.1164043289481117D-04
        xs(  3) = 0.2862149242745352D-04
        xs(  4) = 0.5317898239642228D-04
        xs(  5) = 0.8535065378154075D-04
        xs(  6) = 0.1251911946564575D-03
        xs(  7) = 0.1727762484558857D-03
        xs(  8) = 0.2282064066084753D-03
        xs(  9) = 0.2916111750020462D-03
        xs( 10) = 0.3631528862621930D-03
        xs( 11) = 0.4430306180019030D-03
        xs( 12) = 0.5314842092746521D-03
        xs( 13) = 0.6287984186605364D-03
        xs( 14) = 0.7353074663418817D-03
        xs( 15) = 0.8514000431792551D-03
        xs( 16) = 0.9775249530928982D-03
        xs( 17) = 0.1114197526674390D-02
        xs( 18) = 0.1262007178457253D-02
        xs( 19) = 0.1421626131732298D-02
        xs( 20) = 0.1593819686779774D-02
        xs( 21) = 0.1779458434992246D-02
        xs( 22) = 0.1979532559833955D-02
        xs( 23) = 0.2195169080672296D-02
        xs( 24) = 0.2427652445447552D-02
        xs( 25) = 0.2678449212374176D-02
        xs( 26) = 0.2949237743126368D-02
        xs( 27) = 0.3241944499690722D-02
        xs( 28) = 0.3558788288079190D-02
        xs( 29) = 0.3902334649878029D-02
        xs( 30) = 0.4275562927712256D-02
        xs( 31) = 0.4681950476246692D-02
        xs( 32) = 0.5125577864710107D-02
        xs( 33) = 0.5611262306599737D-02
        xs( 34) = 0.6144730799085293D-02
        xs( 35) = 0.6732840776742866D-02
        xs( 36) = 0.7383870743986856D-02
        xs( 37) = 0.8107910537395556D-02
        xs( 38) = 0.8917382692822069D-02
        xs( 39) = 0.9827760958912362D-02
        xs( 40) = 0.1085858351298637D-01
        xs( 41) = 0.1203488986815633D-01
        xs( 42) = 0.1338933922915745D-01
        xs( 43) = 0.1496541824891487D-01
        xs( 44) = 0.1682250035468683D-01
        xs( 45) = 0.1904424746336057D-01
        xs( 46) = 0.2175313108777276D-01
        xs( 47) = 0.2513601282299140D-01
        xs( 48) = 0.2948923993383313D-01
        xs( 49) = 0.3529039718103390D-01
        xs( 50) = 0.4327902439157536D-01
        xs( 51) = 0.5439030455099952D-01
        xs( 52) = 0.6921277022147972D-01
        xs( 53) = 0.8716808987721943D-01
        xs( 54) = 0.1067888334221029D+00
        xs( 55) = 0.1268425072805727D+00
        xs( 56) = 0.1466151985859056D+00
        xs( 57) = 0.1652649334221549D+00
        ws(  1) = 0.5668548104971542D-05
        ws(  2) = 0.1320211700316297D-04
        ws(  3) = 0.2076418108699201D-04
        ws(  4) = 0.2835701351533772D-04
        ws(  5) = 0.3599538590064942D-04
        ws(  6) = 0.4369823939092165D-04
        ws(  7) = 0.5148856323138903D-04
        ws(  8) = 0.5939327532783562D-04
        ws(  9) = 0.6744325158596443D-04
        ws( 10) = 0.7567327881972491D-04
        ws( 11) = 0.8412208821993694D-04
        ws( 12) = 0.9283248021681470D-04
        ws( 13) = 0.1018515649216840D-03
        ws( 14) = 0.1112312154397846D-03
        ws( 15) = 0.1210286317522657D-03
        ws( 16) = 0.1313069497640577D-03
        ws( 17) = 0.1421362919250612D-03
        ws( 18) = 0.1535948813244352D-03
        ws( 19) = 0.1657703663866525D-03
        ws( 20) = 0.1787616098336859D-03
        ws( 21) = 0.1926806317516941D-03
        ws( 22) = 0.2076551099577389D-03
        ws( 23) = 0.2238315933825571D-03
        ws( 24) = 0.2413790728373674D-03
        ws( 25) = 0.2604935868616225D-03
        ws( 26) = 0.2814038180498991D-03
        ws( 27) = 0.3043785949539391D-03
        ws( 28) = 0.3297354591187017D-03
        ws( 29) = 0.3578524326386219D-03
        ws( 30) = 0.3891819350869236D-03
        ws( 31) = 0.4242710850398604D-03
        ws( 32) = 0.4637836665413615D-03
        ws( 33) = 0.5085361068195473D-03
        ws( 34) = 0.5595390160788936D-03
        ws( 35) = 0.6180542273329686D-03
        ws( 36) = 0.6856788159389153D-03
        ws( 37) = 0.7644594972893197D-03
        ws( 38) = 0.8570470760373415D-03
        ws( 39) = 0.9669425618083568D-03
        ws( 40) = 0.1098841273534789D-02
        ws( 41) = 0.1259163126069737D-02
        ws( 42) = 0.1456901683556192D-02
        ws( 43) = 0.1705019545834831D-02
        ws( 44) = 0.2022855250634224D-02
        ws( 45) = 0.2440648751540849D-02
        ws( 46) = 0.3007527573572397D-02
        ws( 47) = 0.3806435731865276D-02
        ws( 48) = 0.4977974106426502D-02
        ws( 49) = 0.6747700541150483D-02
        ws( 50) = 0.9394110259723597D-02
        ws( 51) = 0.1294523044306022D-01
        ws( 52) = 0.1659837785148730D-01
        ws( 53) = 0.1904217341055305D-01
        ws( 54) = 0.1998939137389930D-01
        ws( 55) = 0.2000393536051656D-01
        ws( 56) = 0.1939937097992563D-01
        ws( 57) = 0.1569979519487264D-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 =  62
        err = 0.5184628853297127D-07
        xs(  1) = 0.1850648712957602D-05
        xs(  2) = 0.9752769145669156D-05
        xs(  3) = 0.2397696997374158D-04
        xs(  4) = 0.4454067382580577D-04
        xs(  5) = 0.7146718703639529D-04
        xs(  6) = 0.1047903719472873D-03
        xs(  7) = 0.1445573760448860D-03
        xs(  8) = 0.1908312983130177D-03
        xs(  9) = 0.2436938459960136D-03
        xs( 10) = 0.3032479181208514D-03
        xs( 11) = 0.3696201549603222D-03
        xs( 12) = 0.4429634536455840D-03
        xs( 13) = 0.5234595258518115D-03
        xs( 14) = 0.6113215410456608D-03
        xs( 15) = 0.7067969674178486D-03
        xs( 16) = 0.8101706795669606D-03
        xs( 17) = 0.9217683973379026D-03
        xs( 18) = 0.1041960579054998D-02
        xs( 19) = 0.1171166880726488D-02
        xs( 20) = 0.1309861280102980D-02
        xs( 21) = 0.1458578000855342D-02
        xs( 22) = 0.1617918373221192D-02
        xs( 23) = 0.1788558866699294D-02
        xs( 24) = 0.1971260514019240D-02
        xs( 25) = 0.2166879922137651D-02
        xs( 26) = 0.2376382280902407D-02
        xs( 27) = 0.2600856683286985D-02
        xs( 28) = 0.2841534457953008D-02
        xs( 29) = 0.3099810895935531D-02
        xs( 30) = 0.3377271340463130D-02
        xs( 31) = 0.3675722566840787D-02
        xs( 32) = 0.3997230770674787D-02
        xs( 33) = 0.4344168018962670D-02
        xs( 34) = 0.4719268875132892D-02
        xs( 35) = 0.5125700534406865D-02
        xs( 36) = 0.5567150279811947D-02
        xs( 37) = 0.6047934258947060D-02
        xs( 38) = 0.6573136499873015D-02
        xs( 39) = 0.7148786219412494D-02
        xs( 40) = 0.7782085214771480D-02
        xs( 41) = 0.8481708165167041D-02
        xs( 42) = 0.9258199829259166D-02
        xs( 43) = 0.1012450839470258D-01
        xs( 44) = 0.1109671860403771D-01
        xs( 45) = 0.1219507373816657D-01
        xs( 46) = 0.1344543811881549D-01
        xs( 47) = 0.1488143389914312D-01
        xs( 48) = 0.1654768847930818D-01
        xs( 49) = 0.1850506435290687D-01
        xs( 50) = 0.2083946055384304D-01
        xs( 51) = 0.2367686525404507D-01
        xs( 52) = 0.2720958367574529D-01
        xs( 53) = 0.3174204418245908D-01
        xs( 54) = 0.3776161024162251D-01
        xs( 55) = 0.4601012843600161D-01
        xs( 56) = 0.5741440876314996D-01
        xs( 57) = 0.7259835043578645D-01
        xs( 58) = 0.9110761866741796D-01
        xs( 59) = 0.1115312673786492D+00
        xs( 60) = 0.1325698645212615D+00
        xs( 61) = 0.1534469621397588D+00
        xs( 62) = 0.1733496700737051D+00
        ws(  1) = 0.4749565463754847D-05
        ws(  2) = 0.1106023474125904D-04
        ws(  3) = 0.1739080072826600D-04
        ws(  4) = 0.2374043909902412D-04
        ws(  5) = 0.3011818474908806D-04
        ws(  6) = 0.3653599817878425D-04
        ws(  7) = 0.4300848349422515D-04
        ws(  8) = 0.4955293572473481D-04
        ws(  9) = 0.5618926501480171D-04
        ws( 10) = 0.6293994452742715D-04
        ws( 11) = 0.6982997018409860D-04
        ws( 12) = 0.7688686901918303D-04
        ws( 13) = 0.8414075588032525D-04
        ws( 14) = 0.9162446735540111D-04
        ws( 15) = 0.9937380609990861D-04
        ws( 16) = 0.1074278402088291D-03
        ws( 17) = 0.1158292646578921D-03
        ws( 18) = 0.1246249557425203D-03
        ws( 19) = 0.1338665452772833D-03
        ws( 20) = 0.1436111761066671D-03
        ws( 21) = 0.1539223534980130D-03
        ws( 22) = 0.1648709783678126D-03
        ws( 23) = 0.1765366651906784D-03
        ws( 24) = 0.1890091807608445D-03
        ws( 25) = 0.2023902483295198D-03
        ws( 26) = 0.2167956790836932D-03
        ws( 27) = 0.2323579884768694D-03
        ws( 28) = 0.2492296784656458D-03
        ws( 29) = 0.2675869010277223D-03
        ws( 30) = 0.2876344897152631D-03
        ws( 31) = 0.3096115563492320D-03
        ws( 32) = 0.3337992653124764D-03
        ws( 33) = 0.3605298321539538D-03
        ws( 34) = 0.3901982929850544D-03
        ws( 35) = 0.4232777837059105D-03
        ws( 36) = 0.4603387595373886D-03
        ws( 37) = 0.5020736006935321D-03
        ws( 38) = 0.5493320225149880D-03
        ws( 39) = 0.6031627644539816D-03
        ws( 40) = 0.6648744587770048D-03
        ws( 41) = 0.7361201890737372D-03
        ws( 42) = 0.8190091252345977D-03
        ws( 43) = 0.9162721221292547D-03
        ws( 44) = 0.1031498374376547D-02
        ws( 45) = 0.1169487790729829D-02
        ws( 46) = 0.1336792747794901D-02
        ws( 47) = 0.1542552801548250D-02
        ws( 48) = 0.1799960188532521D-02
        ws( 49) = 0.2128866590585383D-02
        ws( 50) = 0.2560509972842212D-02
        ws( 51) = 0.3145606079057068D-02
        ws( 52) = 0.3969364994071653D-02
        ws( 53) = 0.5175311632401927D-02
        ws( 54) = 0.6987774075275156D-02
        ws( 55) = 0.9671572703002012D-02
        ws( 56) = 0.1325772576428695D-01
        ws( 57) = 0.1703367866817429D-01
        ws( 58) = 0.1972505706220765D-01
        ws( 59) = 0.2089983041559413D-01
        ws( 60) = 0.2106198023414922D-01
        ws( 61) = 0.2058997045691575D-01
        ws( 62) = 0.1739014797809999D-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 =  66
        err = 0.5813343890785284D-07
        xs(  1) = 0.1584790925815813D-05
        xs(  2) = 0.8351294482628637D-05
        xs(  3) = 0.2052954391089083D-04
        xs(  4) = 0.3813122186058013D-04
        xs(  5) = 0.6117120902126101D-04
        xs(  6) = 0.8967124603856948D-04
        xs(  7) = 0.1236618778786471D-03
        xs(  8) = 0.1631843379554020D-03
        xs(  9) = 0.2082924327343233D-03
        xs( 10) = 0.2590543668444838D-03
        xs( 11) = 0.3155545212888174D-03
        xs( 12) = 0.3778951735812620D-03
        xs( 13) = 0.4461982213312428D-03
        xs( 14) = 0.5206068898027030D-03
        xs( 15) = 0.6012875306876302D-03
        xs( 16) = 0.6884315220831128D-03
        xs( 17) = 0.7822573282153366D-03
        xs( 18) = 0.8830127534853411D-03
        xs( 19) = 0.9909774915337983D-03
        xs( 20) = 0.1106465990561349D-02
        xs( 21) = 0.1229830698868045D-02
        xs( 22) = 0.1361465791627107D-02
        xs( 23) = 0.1501811440405718D-02
        xs( 24) = 0.1651358706461508D-02
        xs( 25) = 0.1810655238058552D-02
        xs( 26) = 0.1980311875484712D-02
        xs( 27) = 0.2161010245895676D-02
        xs( 28) = 0.2353511654649065D-02
        xs( 29) = 0.2558667538008718D-02
        xs( 30) = 0.2777431595341567D-02
        xs( 31) = 0.3010874184322797D-02
        xs( 32) = 0.3260199319005202D-02
        xs( 33) = 0.3526764666970854D-02
        xs( 34) = 0.3812105659251078D-02
        xs( 35) = 0.4117964216057086D-02
        xs( 36) = 0.4446323282439264D-02
        xs( 37) = 0.4799449126063870D-02
        xs( 38) = 0.5179942211239140D-02
        xs( 39) = 0.5590800140894050D-02
        xs( 40) = 0.6035495346710257D-02
        xs( 41) = 0.6518072418299539D-02
        xs( 42) = 0.7043269263998963D-02
        xs( 43) = 0.7616672439803758D-02
        xs( 44) = 0.8244916423654894D-02
        xs( 45) = 0.8935940688756656D-02
        xs( 46) = 0.9699330795222835D-02
        xs( 47) = 0.1054677019624263D-01
        xs( 48) = 0.1149265726356923D-01
        xs( 49) = 0.1255495335681984D-01
        xs( 50) = 0.1375639007118384D-01
        xs( 51) = 0.1512620682634945D-01
        xs( 52) = 0.1670273377875633D-01
        xs( 53) = 0.1853746546325128D-01
        xs( 54) = 0.2070181244877431D-01
        xs( 55) = 0.2329866901884539D-01
        xs( 56) = 0.2648192742135754D-01
        xs( 57) = 0.3049073995902636D-01
        xs( 58) = 0.3570646447083150D-01
        xs( 59) = 0.4273588056616366D-01
        xs( 60) = 0.5247126892502539D-01
        xs( 61) = 0.6589863710976160D-01
        xs( 62) = 0.8336586824165365D-01
        xs( 63) = 0.1038762467249838D+00
        xs( 64) = 0.1257820433991319D+00
        xs( 65) = 0.1478137633694417D+00
        xs( 66) = 0.1686862354207370D+00
        ws(  1) = 0.4067208134198445D-05
        ws(  2) = 0.9470274651106250D-05
        ws(  3) = 0.1488795424144681D-04
        ws(  4) = 0.2031784488022769D-04
        ws(  5) = 0.2576571662094579D-04
        ws(  6) = 0.3123941638125829D-04
        ws(  7) = 0.3674868790078454D-04
        ws(  8) = 0.4230516917237846D-04
        ws(  9) = 0.4792235991467607D-04
        ws( 10) = 0.5361554383918534D-04
        ws( 11) = 0.5940178037616416D-04
        ws( 12) = 0.6529981425530854D-04
        ws( 13) = 0.7133012064271835D-04
        ws( 14) = 0.7751490978090610D-04
        ws( 15) = 0.8387823495345572D-04
        ws( 16) = 0.9044612254720616D-04
        ws( 17) = 0.9724674773587738D-04
        ws( 18) = 0.1043106712487303D-03
        ws( 19) = 0.1116711596535163D-03
        ws( 20) = 0.1193645188970399D-03
        ws( 21) = 0.1274305218559639D-03
        ws( 22) = 0.1359129445007936D-03
        ws( 23) = 0.1448601027569698D-03
        ws( 24) = 0.1543255929991567D-03
        ws( 25) = 0.1643691518921479D-03
        ws( 26) = 0.1750575795855942D-03
        ws( 27) = 0.1864658683984859D-03
        ws( 28) = 0.1986786553847198D-03
        ws( 29) = 0.2117918227113673D-03
        ws( 30) = 0.2259144005635216D-03
        ws( 31) = 0.2411711135555363D-03
        ws( 32) = 0.2577050308318507D-03
        ws( 33) = 0.2756810939151458D-03
        ws( 34) = 0.2952906494345241D-03
        ws( 35) = 0.3167562465617750D-03
        ws( 36) = 0.3403387670609976D-03
        ws( 37) = 0.3663452774827173D-03
        ws( 38) = 0.3951392301310875D-03
        ws( 39) = 0.4271537445017781D-03
        ws( 40) = 0.4629087915833587D-03
        ws( 41) = 0.5030324456380817D-03
        ws( 42) = 0.5482890274327738D-03
        ws( 43) = 0.5996189023428252D-03
        ws( 44) = 0.6581866118415002D-03
        ws( 45) = 0.7254521939719259D-03
        ws( 46) = 0.8032650398086208D-03
        ws( 47) = 0.8939997380162102D-03
        ws( 48) = 0.1000748140576153D-02
        ws( 49) = 0.1127604358021483D-02
        ws( 50) = 0.1280100852889810D-02
        ws( 51) = 0.1465855332457393D-02
        ws( 52) = 0.1695674489430499D-02
        ws( 53) = 0.1985502793454815D-02
        ws( 54) = 0.2360033062027694D-02
        ws( 55) = 0.2858778632398180D-02
        ws( 56) = 0.3546660798898627D-02
        ws( 57) = 0.4533100341580072D-02
        ws( 58) = 0.5997924822790139D-02
        ws( 59) = 0.8211808083910846D-02
        ws( 60) = 0.1143605559087645D-01
        ws( 61) = 0.1549473247406784D-01
        ws( 62) = 0.1925747729926069D-01
        ws( 63) = 0.2146676561295949D-01
        ws( 64) = 0.2214268220969041D-01
        ws( 65) = 0.2179251799797970D-01
        ws( 66) = 0.1779625365274412D-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 =  70
        err = 0.6694041594618620D-07
        xs(  1) = 0.1380460434101916D-05
        xs(  2) = 0.7274129998814164D-05
        xs(  3) = 0.1787983249869942D-04
        xs(  4) = 0.3320483685788521D-04
        xs(  5) = 0.5325776352623588D-04
        xs(  6) = 0.7805159162249525D-04
        xs(  7) = 0.1076051757405060D-03
        xs(  8) = 0.1419446975228909D-03
        xs(  9) = 0.1811051014647655D-03
        xs( 10) = 0.2251314851877687D-03
        xs( 11) = 0.2740804174353786D-03
        xs( 12) = 0.3280212152256807D-03
        xs( 13) = 0.3870371517139183D-03
        xs( 14) = 0.4512266641445573D-03
        xs( 15) = 0.5207045397627568D-03
        xs( 16) = 0.5956031679051420D-03
        xs( 17) = 0.6760738484808687D-03
        xs( 18) = 0.7622881910394240D-03
        xs( 19) = 0.8544396490778962D-03
        xs( 20) = 0.9527452365816809D-03
        xs( 21) = 0.1057447435939582D-02
        xs( 22) = 0.1168816354804611D-02
        xs( 23) = 0.1287152163268879D-02
        xs( 24) = 0.1412787857247055D-02
        xs( 25) = 0.1546092426935341D-02
        xs( 26) = 0.1687474452824749D-02
        xs( 27) = 0.1837386277672804D-02
        xs( 28) = 0.1996328752075530D-02
        xs( 29) = 0.2164856641344198D-02
        xs( 30) = 0.2343585041927099D-02
        xs( 31) = 0.2533196607065816D-02
        xs( 32) = 0.2734450011413974D-02
        xs( 33) = 0.2948189853101697D-02
        xs( 34) = 0.3175358152554341D-02
        xs( 35) = 0.3417007911539196D-02
        xs( 36) = 0.3674318961481498D-02
        xs( 37) = 0.3948616631815410D-02
        xs( 38) = 0.4241394216929527D-02
        xs( 39) = 0.4554339667882729D-02
        xs( 40) = 0.4889367153745690D-02
        xs( 41) = 0.5248656113326323D-02
        xs( 42) = 0.5634697791765195D-02
        xs( 43) = 0.6050352256473100D-02
        xs( 44) = 0.6498918517931844D-02
        xs( 45) = 0.6984222461516627D-02
        xs( 46) = 0.7510725944465488D-02
        xs( 47) = 0.8083664165148649D-02
        xs( 48) = 0.8709222128514530D-02
        xs( 49) = 0.9394761472238493D-02
        xs( 50) = 0.1014911781864309D-01
        xs( 51) = 0.1098299133795719D-01
        xs( 52) = 0.1190947851471754D-01
        xs( 53) = 0.1294479921897556D-01
        xs( 54) = 0.1410932111955850D-01
        xs( 55) = 0.1542902420873187D-01
        xs( 56) = 0.1693764286564425D-01
        xs( 57) = 0.1867999169895895D-01
        xs( 58) = 0.2071759157214505D-01
        xs( 59) = 0.2313851955118647D-01
        xs( 60) = 0.2607369319897525D-01
        xs( 61) = 0.2972476606315824D-01
        xs( 62) = 0.3441326199540851D-01
        xs( 63) = 0.4066266534136627D-01
        xs( 64) = 0.4929336466049451D-01
        xs( 65) = 0.6138472875735542D-01
        xs( 66) = 0.7780028619994887D-01
        xs( 67) = 0.9822961536277813D-01
        xs( 68) = 0.1210599186877975D+00
        xs( 69) = 0.1446242446348092D+00
        xs( 70) = 0.1675826949234875D+00
        ws(  1) = 0.3542762312547947D-05
        ws(  2) = 0.8248224121643075D-05
        ws(  3) = 0.1296419698237311D-04
        ws(  4) = 0.1768722003460356D-04
        ws(  5) = 0.2242077528577692D-04
        ws(  6) = 0.2716999812138609D-04
        ws(  7) = 0.3194150697531867D-04
        ws(  8) = 0.3674333963772274D-04
        ws(  9) = 0.4158496243051893D-04
        ws( 10) = 0.4647721029403029D-04
        ws( 11) = 0.5143219004101891D-04
        ws( 12) = 0.5646326376194265D-04
        ws( 13) = 0.6158499677052927D-04
        ws( 14) = 0.6681313823768292D-04
        ws( 15) = 0.7216465639485721D-04
        ws( 16) = 0.7765779440992537D-04
        ws( 17) = 0.8331214435451409D-04
        ws( 18) = 0.8914875457985527D-04
        ws( 19) = 0.9519029926010007D-04
        ws( 20) = 0.1014612533990549D-03
        ws( 21) = 0.1079881237978442D-03
        ws( 22) = 0.1147996965474540D-03
        ws( 23) = 0.1219273652488881D-03
        ws( 24) = 0.1294054638278695D-03
        ws( 25) = 0.1372717027281326D-03
        ws( 26) = 0.1455676571081468D-03
        ws( 27) = 0.1543393782028934D-03
        ws( 28) = 0.1636379200233054D-03
        ws( 29) = 0.1735202530446629D-03
        ws( 30) = 0.1840501824596317D-03
        ws( 31) = 0.1952992255247353D-03
        ws( 32) = 0.2073481577799212D-03
        ws( 33) = 0.2202883018409385D-03
        ws( 34) = 0.2342235355866484D-03
        ws( 35) = 0.2492723108809237D-03
        ws( 36) = 0.2655703084123707D-03
        ws( 37) = 0.2832734639424881D-03
        ws( 38) = 0.3025625277833691D-03
        ws( 39) = 0.3236467414963646D-03
        ws( 40) = 0.3467707205501199D-03
        ws( 41) = 0.3722214560366231D-03
        ws( 42) = 0.4003374238823378D-03
        ws( 43) = 0.4315198799490780D-03
        ws( 44) = 0.4662484673085121D-03
        ws( 45) = 0.5051008131127478D-03
        ws( 46) = 0.5487757281324746D-03
        ws( 47) = 0.5981278427642151D-03
        ws( 48) = 0.6542100831530926D-03
        ws( 49) = 0.7183348598412657D-03
        ws( 50) = 0.7921523905636526D-03
        ws( 51) = 0.8777655766592593D-03
        ws( 52) = 0.9778953202132276D-03
        ws( 53) = 0.1096116776718533D-02
        ws( 54) = 0.1237222473789893D-02
        ws( 55) = 0.1407752993844189D-02
        ws( 56) = 0.1616865011803612D-02
        ws( 57) = 0.1877925913275475D-02
        ws( 58) = 0.2211692712591655D-02
        ws( 59) = 0.2651542604869492D-02
        ws( 60) = 0.3251627060959129D-02
        ws( 61) = 0.4102740199644911D-02
        ws( 62) = 0.5359600655259197D-02
        ws( 63) = 0.7275758593660231D-02
        ws( 64) = 0.1017268679705069D-01
        ws( 65) = 0.1417327540247219D-01
        ws( 66) = 0.1861273371207701D-01
        ws( 67) = 0.2194621400381644D-01
        ws( 68) = 0.2343269104936931D-01
        ws( 69) = 0.2343686467820697D-01
        ws( 70) = 0.2010907341032888D-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 =  74
        err = 0.9344503202214475D-07
        xs(  1) = 0.1212106191556146D-05
        xs(  2) = 0.6386800439507273D-05
        xs(  3) = 0.1569769793490370D-04
        xs(  4) = 0.2914941611049061D-04
        xs(  5) = 0.4674681578409408D-04
        xs(  6) = 0.6849752296446712D-04
        xs(  7) = 0.9441312174694515D-04
        xs(  8) = 0.1245102703515774D-03
        xs(  9) = 0.1588118146753917D-03
        xs( 10) = 0.1973478629994092D-03
        xs( 11) = 0.2401568114630980D-03
        xs( 12) = 0.2872862943179784D-03
        xs( 13) = 0.3387940993115734D-03
        xs( 14) = 0.3947490413517953D-03
        xs( 15) = 0.4552318034110976D-03
        xs( 16) = 0.5203357935779456D-03
        xs( 17) = 0.5901680308846052D-03
        xs( 18) = 0.6648500644383862D-03
        xs( 19) = 0.7445189377584094D-03
        xs( 20) = 0.8293282769963236D-03
        xs( 21) = 0.9194494685184025D-03
        xs( 22) = 0.1015072974744892D-02
        xs( 23) = 0.1116409796874384D-02
        xs( 24) = 0.1223693115916932D-02
        xs( 25) = 0.1337180150454053D-02
        xs( 26) = 0.1457154267227959D-02
        xs( 27) = 0.1583927341495164D-02
        xs( 28) = 0.1717842471291140D-02
        xs( 29) = 0.1859277051315246D-02
        xs( 30) = 0.2008646243987526D-02
        xs( 31) = 0.2166407016238967D-02
        xs( 32) = 0.2333062628700554D-02
        xs( 33) = 0.2509167950956237D-02
        xs( 34) = 0.2695335461507078D-02
        xs( 35) = 0.2892242130925839D-02
        xs( 36) = 0.3100637541104815D-02
        xs( 37) = 0.3321353155414234D-02
        xs( 38) = 0.3555313108147149D-02
        xs( 39) = 0.3803546786601040D-02
        xs( 40) = 0.4067204044676417D-02
        xs( 41) = 0.4347572241886274D-02
        xs( 42) = 0.4646096869649376D-02
        xs( 43) = 0.4964406629704467D-02
        xs( 44) = 0.5304342544475080D-02
        xs( 45) = 0.5667993049278250D-02
        xs( 46) = 0.6057736886659193D-02
        xs( 47) = 0.6476295080671093D-02
        xs( 48) = 0.6926793977764527D-02
        xs( 49) = 0.7412844047600313D-02
        xs( 50) = 0.7938638499212960D-02
        xs( 51) = 0.8509074533490923D-02
        xs( 52) = 0.9129910592925037D-02
        xs( 53) = 0.9807964780438239D-02
        xs( 54) = 0.1055137336322260D-01
        xs( 55) = 0.1136993108320209D-01
        xs( 56) = 0.1227555174461877D-01
        xs( 57) = 0.1328289274564310D-01
        xs( 58) = 0.1441022966216583D-01
        xs( 59) = 0.1568067357723177D-01
        xs( 60) = 0.1712394249356213D-01
        xs( 61) = 0.1877911033212131D-01
        xs( 62) = 0.2069921330965073D-01
        xs( 63) = 0.2295947939028570D-01
        xs( 64) = 0.2567054958696870D-01
        xs( 65) = 0.2900061418910016D-01
        xs( 66) = 0.3321486867739898D-01
        xs( 67) = 0.3874208590835334D-01
        xs( 68) = 0.4627668796946537D-01
        xs( 69) = 0.5684962245288699D-01
        xs( 70) = 0.7163711449128696D-01
        xs( 71) = 0.9114152070150529D-01
        xs( 72) = 0.1142201774421973D+00
        xs( 73) = 0.1388449938088930D+00
        xs( 74) = 0.1630170007839568D+00
        ws(  1) = 0.3110688831402789D-05
        ws(  2) = 0.7241737197175892D-05
        ws(  3) = 0.1138066096777530D-04
        ws(  4) = 0.1552355794404844D-04
        ws(  5) = 0.1967249435809248D-04
        ws(  6) = 0.2383083595007477D-04
        ws(  7) = 0.2800311887490178D-04
        ws(  8) = 0.3219496083363762D-04
        ws(  9) = 0.3641312512632466D-04
        ws( 10) = 0.4066536575233797D-04
        ws( 11) = 0.4496045690474680D-04
        ws( 12) = 0.4930811905692701D-04
        ws( 13) = 0.5371894653171200D-04
        ws( 14) = 0.5820437368351364D-04
        ws( 15) = 0.6277670313532176D-04
        ws( 16) = 0.6744909686406521D-04
        ws( 17) = 0.7223562238155917D-04
        ws( 18) = 0.7715126821956027D-04
        ws( 19) = 0.8221206375520602D-04
        ws( 20) = 0.8743515631368260D-04
        ws( 21) = 0.9283894624719636D-04
        ws( 22) = 0.9844320628796815D-04
        ws( 23) = 0.1042692712049837D-03
        ws( 24) = 0.1103402004475369D-03
        ws( 25) = 0.1166810555674748D-03
        ws( 26) = 0.1233191104655669D-03
        ws( 27) = 0.1302841665300204D-03
        ws( 28) = 0.1376089345727721D-03
        ws( 29) = 0.1453293504214200D-03
        ws( 30) = 0.1534851235553388D-03
        ws( 31) = 0.1621202082459989D-03
        ws( 32) = 0.1712833943913873D-03
        ws( 33) = 0.1810292139090658D-03
        ws( 34) = 0.1914184984605509D-03
        ws( 35) = 0.2025196235007566D-03
        ws( 36) = 0.2144095934472965D-03
        ws( 37) = 0.2271754588956885D-03
        ws( 38) = 0.2409157555658508D-03
        ws( 39) = 0.2557429756063538D-03
        ws( 40) = 0.2717857593659893D-03
        ws( 41) = 0.2891911296698919D-03
        ws( 42) = 0.3081290940759534D-03
        ws( 43) = 0.3287966822684416D-03
        ws( 44) = 0.3514224997590062D-03
        ws( 45) = 0.3762740976172522D-03
        ws( 46) = 0.4036660478819927D-03
        ws( 47) = 0.4339701042133237D-03
        ws( 48) = 0.4676277875287785D-03
        ws( 49) = 0.5051692703255675D-03
        ws( 50) = 0.5472331838595128D-03
        ws( 51) = 0.5945954369289070D-03
        ws( 52) = 0.6482087141733840D-03
        ws( 53) = 0.7092502032153113D-03
        ws( 54) = 0.7791917947153086D-03
        ws( 55) = 0.8598991189820469D-03
        ws( 56) = 0.9537707429700065D-03
        ws( 57) = 0.1063937304901211D-02
        ws( 58) = 0.1194559793552536D-02
        ws( 59) = 0.1351237115057064D-02
        ws( 60) = 0.1541740666614442D-02
        ws( 61) = 0.1777300853852075D-02
        ws( 62) = 0.2075227416674338D-02
        ws( 63) = 0.2463402826290486D-02
        ws( 64) = 0.2986126503711580D-02
        ws( 65) = 0.3717140799185657D-02
        ws( 66) = 0.4781030383335826D-02
        ws( 67) = 0.6387386069285083D-02
        ws( 68) = 0.8855860115450065D-02
        ws( 69) = 0.1249918940910674D-01
        ws( 70) = 0.1718465802058744D-01
        ws( 71) = 0.2161490121877742D-01
        ws( 72) = 0.2418186322847879D-01
        ws( 73) = 0.2477398600826346D-01
        ws( 74) = 0.2124251854708800D-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 =  79
        err = 0.5324520723545463D-07
        xs(  1) = 0.1063040787112552D-05
        xs(  2) = 0.5601257273466985D-05
        xs(  3) = 0.1376659452055462D-04
        xs(  4) = 0.2556244601574070D-04
        xs(  5) = 0.4099200082736696D-04
        xs(  6) = 0.6006031038793435D-04
        xs(  7) = 0.8277518727746995D-04
        xs(  8) = 0.1091480328686792D-03
        xs(  9) = 0.1391946587078755D-03
        xs( 10) = 0.1729360964997614D-03
        xs( 11) = 0.2103993415233135D-03
        xs( 12) = 0.2516180822518013D-03
        xs( 13) = 0.2966333689185405D-03
        xs( 14) = 0.3454942567707388D-03
        xs( 15) = 0.3982584173659798D-03
        xs( 16) = 0.4549927472683248D-03
        xs( 17) = 0.5157739765591415D-03
        xs( 18) = 0.5806892951102613D-03
        xs( 19) = 0.6498370038987427D-03
        xs( 20) = 0.7233272150076602D-03
        xs( 21) = 0.8012826057015961D-03
        xs( 22) = 0.8838392481693516D-03
        xs( 23) = 0.9711475174214941D-03
        xs( 24) = 0.1063373103737761D-02
        xs( 25) = 0.1160698131564831D-02
        xs( 26) = 0.1263322421418460D-02
        xs( 27) = 0.1371464895767426D-02
        xs( 28) = 0.1485365156531147D-02
        xs( 29) = 0.1605285281262050D-02
        xs( 30) = 0.1731511801501891D-02
        xs( 31) = 0.1864357975145559D-02
        xs( 32) = 0.2004166352889894D-02
        xs( 33) = 0.2151311632341153D-02
        xs( 34) = 0.2306203978444439D-02
        xs( 35) = 0.2469292737478904D-02
        xs( 36) = 0.2641070676887536D-02
        xs( 37) = 0.2822078834406170D-02
        xs( 38) = 0.3012912086751048D-02
        xs( 39) = 0.3214225504267901D-02
        xs( 40) = 0.3426741632482810D-02
        xs( 41) = 0.3651259080064680D-02
        xs( 42) = 0.3888662201765632D-02
        xs( 43) = 0.4139932591146091D-02
        xs( 44) = 0.4406162340208402D-02
        xs( 45) = 0.4688569655000099D-02
        xs( 46) = 0.4988517172440366D-02
        xs( 47) = 0.5307533724613426D-02
        xs( 48) = 0.5647340022835167D-02
        xs( 49) = 0.6009879470790818D-02
        xs( 50) = 0.6397354983135907D-02
        xs( 51) = 0.6812273907010973D-02
        xs( 52) = 0.7257501880455264D-02
        xs( 53) = 0.7736329615492666D-02
        xs( 54) = 0.8252554134083184D-02
        xs( 55) = 0.8810581114127254D-02
        xs( 56) = 0.9415552159467868D-02
        xs( 57) = 0.1007350742889881D-01
        xs( 58) = 0.1079159316809214D-01
        xs( 59) = 0.1157833003740041D-01
        xs( 60) = 0.1244396543347678D-01
        xs( 61) = 0.1340094849649321D-01
        xs( 62) = 0.1446457223111749D-01
        xs( 63) = 0.1565386908098013D-01
        xs( 64) = 0.1699286687091447D-01
        xs( 65) = 0.1851244298986398D-01
        xs( 66) = 0.2025314136851430D-01
        xs( 67) = 0.2226979949431751D-01
        xs( 68) = 0.2463975534422018D-01
        xs( 69) = 0.2747673609374805D-01
        xs( 70) = 0.3095460915650741D-01
        xs( 71) = 0.3534703840529520D-01
        xs( 72) = 0.4109296709966816D-01
        xs( 73) = 0.4889112627198178D-01
        xs( 74) = 0.5976477990001184D-01
        xs( 75) = 0.7487910099204260D-01
        xs( 76) = 0.9476508076245573D-01
        xs( 77) = 0.1183900997687598D+00
        xs( 78) = 0.1437841008031713D+00
        xs( 79) = 0.1689673415401239D+00
        ws(  1) = 0.2728120963187378D-05
        ws(  2) = 0.6350925166799307D-05
        ws(  3) = 0.9980166121743631D-05
        ws(  4) = 0.1361205132613186D-04
        ws(  5) = 0.1724788849160515D-04
        ws(  6) = 0.2089002022228593D-04
        ws(  7) = 0.2454161872479523D-04
        ws(  8) = 0.2820669217177433D-04
        ws(  9) = 0.3189005356538730D-04
        ws( 10) = 0.3559730582115026D-04
        ws( 11) = 0.3933478776880678D-04
        ws( 12) = 0.4310952710660601D-04
        ws( 13) = 0.4692921400030669D-04
        ws( 14) = 0.5080216077654116D-04
        ws( 15) = 0.5473729833542742D-04
        ws( 16) = 0.5874414086130505D-04
        ws( 17) = 0.6283283779086814D-04
        ws( 18) = 0.6701417054590213D-04
        ws( 19) = 0.7129958793883622D-04
        ws( 20) = 0.7570126673450894D-04
        ws( 21) = 0.8023217767589792D-04
        ws( 22) = 0.8490615273810281D-04
        ws( 23) = 0.8973798364582291D-04
        ws( 24) = 0.9474352243106986D-04
        ws( 25) = 0.9993981257719296D-04
        ws( 26) = 0.1053452281954302D-03
        ws( 27) = 0.1109796256283941D-03
        ws( 28) = 0.1168645448029359D-03
        ws( 29) = 0.1230234215158423D-03
        ws( 30) = 0.1294817863576756D-03
        ws( 31) = 0.1362676072268154D-03
        ws( 32) = 0.1434115425798769D-03
        ws( 33) = 0.1509473181083571D-03
        ws( 34) = 0.1589121948721209D-03
        ws( 35) = 0.1673473692919331D-03
        ws( 36) = 0.1762985899523167D-03
        ws( 37) = 0.1858167635331497D-03
        ws( 38) = 0.1959588002469273D-03
        ws( 39) = 0.2067883107365107D-03
        ws( 40) = 0.2183768913211323D-03
        ws( 41) = 0.2308052024551398D-03
        ws( 42) = 0.2441644233176870D-03
        ws( 43) = 0.2585581032192150D-03
        ws( 44) = 0.2741041289776349D-03
        ws( 45) = 0.2909372404628569D-03
        ws( 46) = 0.3092121847612875D-03
        ws( 47) = 0.3291071870925349D-03
        ws( 48) = 0.3508287154564744D-03
        ws( 49) = 0.3746165700945755D-03
        ws( 50) = 0.4007514782709936D-03
        ws( 51) = 0.4295628463621229D-03
        ws( 52) = 0.4614402472824403D-03
        ws( 53) = 0.4968463369383034D-03
        ws( 54) = 0.5363349138154872D-03
        ws( 55) = 0.5805732745751521D-03
        ws( 56) = 0.6303721016679091D-03
        ws( 57) = 0.6867250402569562D-03
        ws( 58) = 0.7508607921503016D-03
        ws( 59) = 0.8243129884121745D-03
        ws( 60) = 0.9090221949621434D-03
        ws( 61) = 0.1007478067627982D-02
        ws( 62) = 0.1122921097095082D-02
        ws( 63) = 0.1259647150086130D-02
        ws( 64) = 0.1423449299764959D-02
        ws( 65) = 0.1622387972732406D-02
        ws( 66) = 0.1868015899225610D-02
        ws( 67) = 0.2177967656246940D-02
        ws( 68) = 0.2580518415214253D-02
        ws( 69) = 0.3121780588142990D-02
        ws( 70) = 0.3878516958790825D-02
        ws( 71) = 0.4977828013282068D-02
        ws( 72) = 0.6628911993081546D-02
        ws( 73) = 0.9139965876181983D-02
        ws( 74) = 0.1281429432192930D-01
        ws( 75) = 0.1752578225915443D-01
        ws( 76) = 0.2205970486021562D-01
        ws( 77) = 0.2483631415132073D-01
        ws( 78) = 0.2562388693897385D-01
        ws( 79) = 0.2266898527871631D-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 =  83
        err = 0.9269620431546495D-07
        xs(  1) = 0.9503022228650635D-06
        xs(  2) = 0.5007088049556626D-05
        xs(  3) = 0.1230561409752059D-04
        xs(  4) = 0.2284786214962793D-04
        xs(  5) = 0.3663510713835208D-04
        xs(  6) = 0.5366972799900665D-04
        xs(  7) = 0.7395594707150747D-04
        xs(  8) = 0.9750051582190626D-04
        xs(  9) = 0.1243133964658894D-03
        xs( 10) = 0.1544084138676148D-03
        xs( 11) = 0.1878038805971231D-03
        xs( 12) = 0.2245231645040680D-03
        xs( 13) = 0.2645952392730921D-03
        xs( 14) = 0.3080551770294946D-03
        xs( 15) = 0.3549446199031308D-03
        xs( 16) = 0.4053122421027343D-03
        xs( 17) = 0.4592141832800845D-03
        xs( 18) = 0.5167144990407178D-03
        xs( 19) = 0.5778856308102611D-03
        xs( 20) = 0.6428088663456884D-03
        xs( 21) = 0.7115748552671018D-03
        xs( 22) = 0.7842841587057023D-03
        xs( 23) = 0.8610478530272074D-03
        xs( 24) = 0.9419881791794850D-03
        xs( 25) = 0.1027239266457893D-02
        xs( 26) = 0.1116947934126495D-02
        xs( 27) = 0.1211274589581196D-02
        xs( 28) = 0.1310394207859686D-02
        xs( 29) = 0.1414497434722290D-02
        xs( 30) = 0.1523791859652423D-02
        xs( 31) = 0.1638503360398553D-02
        xs( 32) = 0.1758877653032881D-02
        xs( 33) = 0.1885182066714100D-02
        xs( 34) = 0.2017707459095362D-02
        xs( 35) = 0.2156770426958614D-02
        xs( 36) = 0.2302715771451878D-02
        xs( 37) = 0.2455919322082648D-02
        xs( 38) = 0.2616791065983886D-02
        xs( 39) = 0.2785778736846630D-02
        xs( 40) = 0.2963371920925180D-02
        xs( 41) = 0.3150106573587933D-02
        xs( 42) = 0.3346570475031851D-02
        xs( 43) = 0.3553409170728261D-02
        xs( 44) = 0.3771332882530263D-02
        xs( 45) = 0.4001124668989801D-02
        xs( 46) = 0.4243649580900458D-02
        xs( 47) = 0.4499865294400333D-02
        xs( 48) = 0.4770834797073267D-02
        xs( 49) = 0.5057740670480012D-02
        xs( 50) = 0.5361902459470697D-02
        xs( 51) = 0.5684796677802126D-02
        xs( 52) = 0.6028080731254332D-02
        xs( 53) = 0.6393621368517772D-02
        xs( 54) = 0.6783528535876058D-02
        xs( 55) = 0.7200196189552741D-02
        xs( 56) = 0.7646351825976880D-02
        xs( 57) = 0.8125117283879884D-02
        xs( 58) = 0.8640082117731191D-02
        xs( 59) = 0.9195396162784640D-02
        xs( 60) = 0.9795884273933861D-02
        xs( 61) = 0.1044719038746234D-01
        xs( 62) = 0.1115596395898808D-01
        xs( 63) = 0.1193009507816430D-01
        xs( 64) = 0.1277903030677899D-01
        xs( 65) = 0.1371418559004270D-01
        xs( 66) = 0.1474950719058564D-01
        xs( 67) = 0.1590226089243092D-01
        xs( 68) = 0.1719411274712316D-01
        xs( 69) = 0.1865270156817665D-01
        xs( 70) = 0.2031404323563425D-01
        xs( 71) = 0.2222665899751636D-01
        xs( 72) = 0.2445903032977091D-01
        xs( 73) = 0.2711102553146379D-01
        xs( 74) = 0.3033255081579468D-01
        xs( 75) = 0.3435619769263436D-01
        xs( 76) = 0.3955225228205506D-01
        xs( 77) = 0.4652174246930568D-01
        xs( 78) = 0.5620523710291934D-01
        xs( 79) = 0.6986718269991485D-01
        xs( 80) = 0.8861525696563269D-01
        xs( 81) = 0.1121829068477905D+00
        xs( 82) = 0.1385790409641722D+00
        xs( 83) = 0.1652612644303377D+00
        ws(  1) = 0.2438782177886962D-05
        ws(  2) = 0.5677028020496968D-05
        ws(  3) = 0.8920223171370901D-05
        ws(  4) = 0.1216447035577774D-04
        ws(  5) = 0.1541040664329527D-04
        ws(  6) = 0.1865952773274384D-04
        ws(  7) = 0.2191402304646226D-04
        ws(  8) = 0.2517676542272518D-04
        ws(  9) = 0.2845128978101944D-04
        ws( 10) = 0.3174178603099052D-04
        ws( 11) = 0.3505302893081615D-04
        ws( 12) = 0.3839036241757946D-04
        ws( 13) = 0.4175962759661517D-04
        ws( 14) = 0.4516717772141788D-04
        ws( 15) = 0.4861981637795145D-04
        ws( 16) = 0.5212477581016019D-04
        ws( 17) = 0.5568976931452988D-04
        ws( 18) = 0.5932293250149167D-04
        ws( 19) = 0.6303287222248289D-04
        ws( 20) = 0.6682869523552791D-04
        ws( 21) = 0.7072003091240077D-04
        ws( 22) = 0.7471707991777405D-04
        ws( 23) = 0.7883066925797811D-04
        ws( 24) = 0.8307232292239279D-04
        ws( 25) = 0.8745430692638670D-04
        ws( 26) = 0.9198974633793787D-04
        ws( 27) = 0.9669270715488448D-04
        ws( 28) = 0.1015782794416582D-03
        ws( 29) = 0.1066627512465119D-03
        ws( 30) = 0.1119637189018007D-03
        ws( 31) = 0.1175002048189107D-03
        ws( 32) = 0.1232929048953709D-03
        ws( 33) = 0.1293643594659445D-03
        ws( 34) = 0.1357391506204350D-03
        ws( 35) = 0.1424442044463873D-03
        ws( 36) = 0.1495090723806384D-03
        ws( 37) = 0.1569663027360910D-03
        ws( 38) = 0.1648517364098096D-03
        ws( 39) = 0.1732051292524109D-03
        ws( 40) = 0.1820704689401970D-03
        ws( 41) = 0.1914967069216406D-03
        ws( 42) = 0.2015385728496368D-03
        ws( 43) = 0.2122570521006731D-03
        ws( 44) = 0.2237207253371153D-03
        ws( 45) = 0.2360068509088182D-03
        ws( 46) = 0.2492023720015048D-03
        ws( 47) = 0.2634059991438598D-03
        ws( 48) = 0.2787298034795780D-03
        ws( 49) = 0.2953015435488566D-03
        ws( 50) = 0.3132677203896005D-03
        ws( 51) = 0.3327964819468521D-03
        ws( 52) = 0.3540821951015901D-03
        ws( 53) = 0.3773500507223775D-03
        ws( 54) = 0.4028624629342649D-03
        ws( 55) = 0.4309263957063766D-03
        ws( 56) = 0.4619039777691223D-03
        ws( 57) = 0.4962236604271745D-03
        ws( 58) = 0.5343957276357037D-03
        ws( 59) = 0.5770341769753950D-03
        ws( 60) = 0.6248795391875884D-03
        ws( 61) = 0.6788371729347268D-03
        ws( 62) = 0.7400196536244830D-03
        ws( 63) = 0.8098103294855421D-03
        ws( 64) = 0.8899536002647544D-03
        ws( 65) = 0.9826683071083929D-03
        ws( 66) = 0.1090834910319414D-02
        ws( 67) = 0.1218258154894087D-02
        ws( 68) = 0.1370013313347885D-02
        ws( 69) = 0.1553103931640725D-02
        ws( 70) = 0.1777541745823435D-02
        ws( 71) = 0.2058916992904628D-02
        ws( 72) = 0.2422185305379091D-02
        ws( 73) = 0.2906247947519031D-02
        ws( 74) = 0.3574715465994192D-02
        ws( 75) = 0.4532721441007879D-02
        ws( 76) = 0.5957438817795109D-02
        ws( 77) = 0.8137810295517465D-02
        ws( 78) = 0.1144642721009499D-01
        ws( 79) = 0.1608568799624039D-01
        ws( 80) = 0.2137962692150396D-01
        ws( 81) = 0.2538405852929306D-01
        ws( 82) = 0.2702827883511101D-01
        ws( 83) = 0.2449037888499121D-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 =  20
        err = 0.9487461524427649D-07
        xs(  1) = 0.5090967288003678D-03
        xs(  2) = 0.2603866342036599D-02
        xs(  3) = 0.6120114935988419D-02
        xs(  4) = 0.1079046929021321D-01
        xs(  5) = 0.1639161402453521D-01
        xs(  6) = 0.2275191463812282D-01
        xs(  7) = 0.2973977713940099D-01
        xs(  8) = 0.3725308235359857D-01
        xs(  9) = 0.4521204568813270D-01
        xs( 10) = 0.5355431444242810D-01
        xs( 11) = 0.6223135472950266D-01
        xs( 12) = 0.7120570747927761D-01
        xs( 13) = 0.8044893141355776D-01
        xs( 14) = 0.8994012233300636D-01
        xs( 15) = 0.9966508682388242D-01
        xs( 16) = 0.1096159300483713D+00
        xs( 17) = 0.1197915439525566D+00
        xs( 18) = 0.1302003355012538D+00
        xs( 19) = 0.1408637691832707D+00
        xs( 20) = 0.1518875568394945D+00
        ws(  1) = 0.1296703493546695D-02
        ws(  2) = 0.2851548198247508D-02
        ws(  3) = 0.4135170295739826D-02
        ws(  4) = 0.5168337752374072D-02
        ws(  5) = 0.6005575743597738D-02
        ws(  6) = 0.6693269647134590D-02
        ws(  7) = 0.7265550861055956D-02
        ws(  8) = 0.7747842311235050D-02
        ws(  9) = 0.8159753824007744D-02
        ws( 10) = 0.8516746981131010D-02
        ws( 11) = 0.8831143497392674D-02
        ws( 12) = 0.9112901839101026D-02
        ws( 13) = 0.9370231752478121D-02
        ws( 14) = 0.9610250409672063D-02
        ws( 15) = 0.9839735680078086D-02
        ws( 16) = 0.1006598864959939D-01
        ws( 17) = 0.1030097197633812D-01
        ws( 18) = 0.1057303840487353D-01
        ws( 19) = 0.1098231155526815D-01
        ws( 20) = 0.1262494008004098D-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 =  21
        err = 0.9206112431367664D-07
        xs(  1) = 0.4818566658151160D-03
        xs(  2) = 0.2472396913024563D-02
        xs(  3) = 0.5834813156281843D-02
        xs(  4) = 0.1032809607557824D-01
        xs(  5) = 0.1574455928504005D-01
        xs(  6) = 0.2192162570993260D-01
        xs(  7) = 0.2873289694146163D-01
        xs(  8) = 0.3607869729444620D-01
        xs(  9) = 0.4387969436199387D-01
        xs( 10) = 0.5207267827611150D-01
        xs( 11) = 0.6060747717931681D-01
        xs( 12) = 0.6944454665013611D-01
        xs( 13) = 0.7855306691276007D-01
        xs( 14) = 0.8790947269951147D-01
        xs( 15) = 0.9749649977963593D-01
        xs( 16) = 0.1073025538393818D+00
        xs( 17) = 0.1173215884847991D+00
        xs( 18) = 0.1275546185389916D+00
        xs( 19) = 0.1380114196481372D+00
        xs( 20) = 0.1487110917566068D+00
        xs( 21) = 0.1598485048686442D+00
        ws(  1) = 0.1228384180098307D-02
        ws(  2) = 0.2717142810073219D-02
        ws(  3) = 0.3966337541062739D-02
        ws(  4) = 0.4985538776463740D-02
        ws(  5) = 0.5820480858316489D-02
        ws(  6) = 0.6512747058936110D-02
        ws(  7) = 0.7093286016941010D-02
        ws(  8) = 0.7585161225902521D-02
        ws(  9) = 0.8006349973337275D-02
        ws( 10) = 0.8371299525520537D-02
        ws( 11) = 0.8691748011483733D-02
        ws( 12) = 0.8977303035969018D-02
        ws( 13) = 0.9235887510334865D-02
        ws( 14) = 0.9474226700239501D-02
        ws( 15) = 0.9698386890800543D-02
        ws( 16) = 0.9914103928722691D-02
        ws( 17) = 0.1012839568479603D-01
        ws( 18) = 0.1035348053059446D-01
        ws( 19) = 0.1061561468774548D-01
        ws( 20) = 0.1101938151900741D-01
        ws( 21) = 0.1282133254150192D-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 =  21
        err = 0.7410668192629904D-07
        xs(  1) = 0.4425567366250308D-03
        xs(  2) = 0.2290166024706008D-02
        xs(  3) = 0.5462969960727667D-02
        xs(  4) = 0.9768716958194109D-02
        xs(  5) = 0.1502177168305054D-01
        xs(  6) = 0.2106465675966165D-01
        xs(  7) = 0.2776834590918937D-01
        xs(  8) = 0.3502807356330704D-01
        xs(  9) = 0.4275942908645697D-01
        xs( 10) = 0.5089502969665471D-01
        xs( 11) = 0.5938157852965767D-01
        xs( 12) = 0.6817731866187728D-01
        xs( 13) = 0.7724993039446104D-01
        xs( 14) = 0.8657490746877411D-01
        xs( 15) = 0.9613446622744398D-01
        xs( 16) = 0.1059168386042818D+00
        xs( 17) = 0.1159162400037053D+00
        xs( 18) = 0.1261342014148886D+00
        xs( 19) = 0.1365809154890497D+00
        xs( 20) = 0.1472808316583918D+00
        xs( 21) = 0.1583873927224556D+00
        ws(  1) = 0.1130838982112670D-02
        ws(  2) = 0.2540385226547511D-02
        ws(  3) = 0.3772086678341868D-02
        ws(  4) = 0.4808182028124216D-02
        ws(  5) = 0.5671715936863227D-02
        ws(  6) = 0.6392627821228876D-02
        ws(  7) = 0.6997355421614464D-02
        ws(  8) = 0.7508088531381906D-02
        ws(  9) = 0.7943445087414168D-02
        ws( 10) = 0.8318923189033633D-02
        ws( 11) = 0.8647265194969967D-02
        ws( 12) = 0.8938891136184028D-02
        ws( 13) = 0.9202352760583543D-02
        ws( 14) = 0.9444872704680257D-02
        ws( 15) = 0.9672875724737861D-02
        ws( 16) = 0.9892505140138267D-02
        ws( 17) = 0.1011134416303254D-01
        ws( 18) = 0.1034190543481278D-01
        ws( 19) = 0.1061094179730593D-01
        ws( 20) = 0.1103727053822106D-01
        ws( 21) = 0.1272283674945000D-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 =  22
        err = 0.5015659569738492D-07
        xs(  1) = 0.3901305653849269D-03
        xs(  2) = 0.2040891281286830D-02
        xs(  3) = 0.4936354468354503D-02
        xs(  4) = 0.8942323214755236D-02
        xs(  5) = 0.1390028537893505D-01
        xs(  6) = 0.1966252512701378D-01
        xs(  7) = 0.2610336661004715D-01
        xs(  8) = 0.3311883573636279D-01
        xs(  9) = 0.4062380374191225D-01
        xs( 10) = 0.4854915278425279D-01
        xs( 11) = 0.5683923275460147D-01
        xs( 12) = 0.6544958704943792D-01
        xs( 13) = 0.7434500345985957D-01
        xs( 14) = 0.8349789527955305D-01
        xs( 15) = 0.9288707832091385D-01
        xs( 16) = 0.1024969380619831D+00
        xs( 17) = 0.1123167572834811D+00
        xs( 18) = 0.1223409806620791D+00
        xs( 19) = 0.1325700997515765D+00
        xs( 20) = 0.1430084014757421D+00
        xs( 21) = 0.1536765692020966D+00
        xs( 22) = 0.1645786488551793D+00
        ws(  1) = 0.9997914938254717D-03
        ws(  2) = 0.2290919628755661D-02
        ws(  3) = 0.3476726052027921D-02
        ws(  4) = 0.4508191624501008D-02
        ws(  5) = 0.5382968546344820D-02
        ws(  6) = 0.6120591111781314D-02
        ws(  7) = 0.6743814367736047D-02
        ws(  8) = 0.7272983231099333D-02
        ws(  9) = 0.7725475809718657D-02
        ws( 10) = 0.8115986714779090D-02
        ws( 11) = 0.8456799198356468D-02
        ws( 12) = 0.8758074646996640D-02
        ws( 13) = 0.9028198435070443D-02
        ws( 14) = 0.9274116269940891D-02
        ws( 15) = 0.9501813551493137D-02
        ws( 16) = 0.9716568434196427D-02
        ws( 17) = 0.9923399772810072D-02
        ws( 18) = 0.1012904096941424D-01
        ws( 19) = 0.1034343646065974D-01
        ws( 20) = 0.1058914531595008D-01
        ws( 21) = 0.1094415518644540D-01
        ws( 22) = 0.1252010417280642D-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 =  22
        err = 0.5964478784758391D-07
        xs(  1) = 0.3379347287778630D-03
        xs(  2) = 0.1792186906812858D-02
        xs(  3) = 0.4415000747257197D-02
        xs(  4) = 0.8141175915541862D-02
        xs(  5) = 0.1284945318466354D-01
        xs(  6) = 0.1840579955195855D-01
        xs(  7) = 0.2468454028003136D-01
        xs(  8) = 0.3157523229880530D-01
        xs(  9) = 0.3898461812010770D-01
        xs( 10) = 0.4683631479917539D-01
        xs( 11) = 0.5506911802746166D-01
        xs( 12) = 0.6363471594302694D-01
        xs( 13) = 0.7249538530261394D-01
        xs( 14) = 0.8162208213852462D-01
        xs( 15) = 0.9099285336147937D-01
        xs( 16) = 0.1005918977187144D+00
        xs( 17) = 0.1104091593965094D+00
        xs( 18) = 0.1204393767668122D+00
        xs( 19) = 0.1306844739006326D+00
        xs( 20) = 0.1411576465328708D+00
        xs( 21) = 0.1518713391604931D+00
        xs( 22) = 0.1629644221865276D+00
        ws(  1) = 0.8691163476929830D-03
        ws(  2) = 0.2042445066856915D-02
        ws(  3) = 0.3191729033075682D-02
        ws(  4) = 0.4239591705036546D-02
        ws(  5) = 0.5154318152664534D-02
        ws(  6) = 0.5937334214212549D-02
        ws(  7) = 0.6601711750190285D-02
        ws(  8) = 0.7164136226954278D-02
        ws(  9) = 0.7641935941461379D-02
        ws( 10) = 0.8051296849966152D-02
        ws( 11) = 0.8406300572521617D-02
        ws( 12) = 0.8718647417590455D-02
        ws( 13) = 0.8997900892838246D-02
        ws( 14) = 0.9251912039659903D-02
        ws( 15) = 0.9487160664356700D-02
        ws( 16) = 0.9709756862778201D-02
        ws( 17) = 0.9925271954881625D-02
        ws( 18) = 0.1013963855131788D-01
        ws( 19) = 0.1036703651676355D-01
        ws( 20) = 0.1063585048433232D-01
        ws( 21) = 0.1099414260864257D-01
        ws( 22) = 0.1291419153903835D-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 =  23
        err = 0.3523518606835236D-07
        xs(  1) = 0.2120488883229141D-03
        xs(  2) = 0.1151929695940343D-02
        xs(  3) = 0.2964598379442006D-02
        xs(  4) = 0.5775551408417188D-02
        xs(  5) = 0.9621117890256870D-02
        xs(  6) = 0.1443079171882090D-01
        xs(  7) = 0.2008359613219447D-01
        xs(  8) = 0.2645448634824454D-01
        xs(  9) = 0.3343162618568679D-01
        xs( 10) = 0.4092070783418313D-01
        xs( 11) = 0.4884493141696917D-01
        xs( 12) = 0.5714312536170742D-01
        xs( 13) = 0.6576719718367502D-01
        xs( 14) = 0.7467965657774479D-01
        xs( 15) = 0.8385153035037599D-01
        xs( 16) = 0.9326077992458032D-01
        xs( 17) = 0.1028912047511277D+00
        xs( 18) = 0.1127317576387388D+00
        xs( 19) = 0.1227763703518661D+00
        xs( 20) = 0.1330245016852449D+00
        xs( 21) = 0.1434808042993950D+00
        xs( 22) = 0.1541668547265485D+00
        xs( 23) = 0.1650155029837017D+00
        ws(  1) = 0.5482987713182829D-03
        ws(  2) = 0.1352478163597162D-02
        ws(  3) = 0.2295776215015211D-02
        ws(  4) = 0.3332429477884644D-02
        ws(  5) = 0.4345721577074559D-02
        ws(  6) = 0.5252687058089845D-02
        ws(  7) = 0.6031846289464869D-02
        ws(  8) = 0.6691238751500332D-02
        ws(  9) = 0.7247327835479026D-02
        ws( 10) = 0.7718069929518605D-02
        ws( 11) = 0.8120227646145024D-02
        ws( 12) = 0.8468190176086413D-02
        ws( 13) = 0.8773747693334340D-02
        ws( 14) = 0.9046386131250844D-02
        ws( 15) = 0.9293757441468287D-02
        ws( 16) = 0.9522220270261395D-02
        ws( 17) = 0.9737285529439997D-02
        ws( 18) = 0.9944155622919814D-02
        ws( 19) = 0.1014899401441011D-01
        ws( 20) = 0.1036253817899117D-01
        ws( 21) = 0.1060874715399428D-01
        ws( 22) = 0.1097283422873216D-01
        ws( 23) = 0.1234064119138966D-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 =  23
        err = 0.6144816163996366D-07
        xs(  1) = 0.1565389971204521D-03
        xs(  2) = 0.8539846059678837D-03
        xs(  3) = 0.2228183106890132D-02
        xs(  4) = 0.4468729504691768D-02
        xs(  5) = 0.7761834494945768D-02
        xs(  6) = 0.1216097736147448D-01
        xs(  7) = 0.1755657750503244D-01
        xs(  8) = 0.2377526878919004D-01
        xs(  9) = 0.3066009119509263D-01
        xs( 10) = 0.3808916243530010D-01
        xs( 11) = 0.4597077408578042D-01
        xs( 12) = 0.5423598323447865D-01
        xs( 13) = 0.6283287487298014D-01
        xs( 14) = 0.7172242249618432D-01
        xs( 15) = 0.8087551112048050D-01
        xs( 16) = 0.9027075167573653D-01
        xs( 17) = 0.9989313106782979D-01
        xs( 18) = 0.1097333178611569D+00
        xs( 19) = 0.1197868755916341D+00
        xs( 20) = 0.1300564044881729D+00
        xs( 21) = 0.1405545002401589D+00
        xs( 22) = 0.1512926521977624D+00
        xs( 23) = 0.1624003998744244D+00
        ws(  1) = 0.4050379815667685D-03
        ws(  2) = 0.1009284091687774D-02
        ws(  3) = 0.1771944720194787D-02
        ws(  4) = 0.2742864464316857D-02
        ws(  5) = 0.3852901031377078D-02
        ws(  6) = 0.4924881986248920D-02
        ws(  7) = 0.5836066086347180D-02
        ws(  8) = 0.6574973599196968D-02
        ws(  9) = 0.7174480828996063D-02
        ws( 10) = 0.7668506560693809D-02
        ws( 11) = 0.8083321834276312D-02
        ws( 12) = 0.8438513786119288D-02
        ws( 13) = 0.8748819006009427D-02
        ws( 14) = 0.9025482114750504D-02
        ws( 15) = 0.9277220024026535D-02
        ws( 16) = 0.9510914618286010D-02
        ws( 17) = 0.9732638400349674D-02
        ws( 18) = 0.9947987979503997D-02
        ws( 19) = 0.1016345508755341D-01
        ws( 20) = 0.1039228502520046D-01
        ws( 21) = 0.1065616598807726D-01
        ws( 22) = 0.1100315130304856D-01
        ws( 23) = 0.1283322399418555D-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 =  25
        err = 0.5734140365955639D-07
        xs(  1) = 0.7530518875561572D-04
        xs(  2) = 0.4057571008978490D-03
        xs(  3) = 0.1039175444187666D-02
        xs(  4) = 0.2051421281080462D-02
        xs(  5) = 0.3570545745728435D-02
        xs(  6) = 0.5787559943968899D-02
        xs(  7) = 0.8934984802862906D-02
        xs(  8) = 0.1319011963503595D-01
        xs(  9) = 0.1855018541324941D-01
        xs( 10) = 0.2484669226689888D-01
        xs( 11) = 0.3187625784406742D-01
        xs( 12) = 0.3947786215655913D-01
        xs( 13) = 0.4753919426563630D-01
        xs( 14) = 0.5598281275162486D-01
        xs( 15) = 0.6475405398176826D-01
        xs( 16) = 0.7381334708685099D-01
        xs( 17) = 0.8313159719064186D-01
        xs( 18) = 0.9268763490882732D-01
        xs( 19) = 0.1024666787748641D+00
        xs( 20) = 0.1124588547098331D+00
        xs( 21) = 0.1226597963640366D+00
        xs( 22) = 0.1330713924065568D+00
        xs( 23) = 0.1436924919660421D+00
        xs( 24) = 0.1545353195476525D+00
        xs( 25) = 0.1656030600837298D+00
        ws(  1) = 0.1942607189058675D-03
        ws(  2) = 0.4728692327505299D-03
        ws(  3) = 0.8063588390819731D-03
        ws(  4) = 0.1239233136285928D-02
        ws(  5) = 0.1831063645614610D-02
        ws(  6) = 0.2643363778752228D-02
        ws(  7) = 0.3683747893045157D-02
        ws(  8) = 0.4825729870314131D-02
        ws(  9) = 0.5863522788780270D-02
        ws( 10) = 0.6694376052840254D-02
        ws( 11) = 0.7337963061082103D-02
        ws( 12) = 0.7846798782596658D-02
        ws( 13) = 0.8263163841653619D-02
        ws( 14) = 0.8615091934407057D-02
        ws( 15) = 0.8920879375067388D-02
        ws( 16) = 0.9192915690477751D-02
        ws( 17) = 0.9440133184818655D-02
        ws( 18) = 0.9669691692426083D-02
        ws( 19) = 0.9887211232827185D-02
        ws( 20) = 0.1009757078576630D-01
        ws( 21) = 0.1030901821626093D-01
        ws( 22) = 0.1052955712053459D-01
        ws( 23) = 0.1076506788153677D-01
        ws( 24) = 0.1117223387732381D-01
        ws( 25) = 0.1226937828326312D-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 =  28
        err = 0.9606294746086517D-07
        xs(  1) = 0.3046168506742866D-04
        xs(  2) = 0.1620405542979531D-03
        xs(  3) = 0.4053143726471239D-03
        xs(  4) = 0.7726798346200296D-03
        xs(  5) = 0.1284570434991548D-02
        xs(  6) = 0.1972764041530878D-02
        xs(  7) = 0.2885603910880726D-02
        xs(  8) = 0.4096288859130214D-02
        xs(  9) = 0.5715654079043536D-02
        xs( 10) = 0.7909821056114132D-02
        xs( 11) = 0.1091571725390594D-01
        xs( 12) = 0.1502015325996226D-01
        xs( 13) = 0.2043348454590257D-01
        xs( 14) = 0.2710561000360467D-01
        xs( 15) = 0.3475496637448391D-01
        xs( 16) = 0.4308244826188610D-01
        xs( 17) = 0.5188112338087298D-01
        xs( 18) = 0.6102785208262002D-01
        xs( 19) = 0.7045105034380680D-01
        xs( 20) = 0.8010822630550531D-01
        xs( 21) = 0.8997388280107053D-01
        xs( 22) = 0.1000327663028652D+00
        xs( 23) = 0.1102773752973204D+00
        xs( 24) = 0.1207061749677382D+00
        xs( 25) = 0.1313227270232702D+00
        xs( 26) = 0.1421423670195247D+00
        xs( 27) = 0.1531276992064542D+00
        xs( 28) = 0.1641650012328258D+00
        ws(  1) = 0.7834771585596416D-04
        ws(  2) = 0.1859064554131488D-03
        ws(  3) = 0.3026709055722832D-03
        ws(  4) = 0.4354124130963407D-03
        ws(  5) = 0.5935807588461998D-03
        ws(  6) = 0.7907292068965936D-03
        ws(  7) = 0.1046939919243338D-02
        ws(  8) = 0.1392599327602170D-02
        ws(  9) = 0.1873492324157518D-02
        ws( 10) = 0.2554469470833550D-02
        ws( 11) = 0.3507170338059708D-02
        ws( 12) = 0.4740860070382963D-02
        ws( 13) = 0.6076882797380991D-02
        ws( 14) = 0.7215786487238529D-02
        ws( 15) = 0.8031431538714958D-02
        ws( 16) = 0.8589455091482959D-02
        ws( 17) = 0.8987968218217846D-02
        ws( 18) = 0.9293944640894803D-02
        ws( 19) = 0.9545620365149495D-02
        ws( 20) = 0.9764762969514987D-02
        ws( 21) = 0.9964319140298673D-02
        ws( 22) = 0.1015246053678529D-01
        ws( 23) = 0.1033727461598863D-01
        ws( 24) = 0.1052493183032062D-01
        ws( 25) = 0.1072647355914559D-01
        ws( 26) = 0.1095802056068062D-01
        ws( 27) = 0.1120667958226163D-01
        ws( 28) = 0.1239541128797289D-01
        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 =  31
        err = 0.6116774823524779D-07
        xs(  1) = 0.1641648087008741D-04
        xs(  2) = 0.8690908234280273D-04
        xs(  3) = 0.2154635949083770D-03
        xs(  4) = 0.4052903623426132D-03
        xs(  5) = 0.6614570239548205D-03
        xs(  6) = 0.9914294596920074D-03
        xs(  7) = 0.1405810465577779D-02
        xs(  8) = 0.1919398767143739D-02
        xs(  9) = 0.2552746871015548D-02
        xs( 10) = 0.3334501797885836D-02
        xs( 11) = 0.4304996295776627D-02
        xs( 12) = 0.5521847460805724D-02
        xs( 13) = 0.7068738539592734D-02
        xs( 14) = 0.9069080412756156D-02
        xs( 15) = 0.1170605440714708D-01
        xs( 16) = 0.1524651050823536D-01
        xs( 17) = 0.2004332204962444D-01
        xs( 18) = 0.2642936047864207D-01
        xs( 19) = 0.3445009177003216D-01
        xs( 20) = 0.4374337197687636D-01
        xs( 21) = 0.5381850672759432D-01
        xs( 22) = 0.6432247290069644D-01
        xs( 23) = 0.7506601123048359D-01
        xs( 24) = 0.8596177169831366D-01
        xs( 25) = 0.9697465085845801D-01
        xs( 26) = 0.1080953965906431D+00
        xs( 27) = 0.1193285693148365D+00
        xs( 28) = 0.1306851845191985D+00
        xs( 29) = 0.1421834953963665D+00
        xs( 30) = 0.1538445155820986D+00
        xs( 31) = 0.1655650403196561D+00
        ws(  1) = 0.4217644326988526D-04
        ws(  2) = 0.9911943175111632D-04
        ws(  3) = 0.1585166626052237D-03
        ws(  4) = 0.2219727914160792D-03
        ws(  5) = 0.2915928034762402D-03
        ws(  6) = 0.3701019767895015D-03
        ws(  7) = 0.4611011637324324D-03
        ws(  8) = 0.5694629118442421D-03
        ws(  9) = 0.7019496949463510D-03
        ws( 10) = 0.8681917050168975D-03
        ws( 11) = 0.1082257937446136D-02
        ws( 12) = 0.1365168536218652D-02
        ws( 13) = 0.1748847041220325D-02
        ws( 14) = 0.2281929908337511D-02
        ws( 15) = 0.3036247867953732D-02
        ws( 16) = 0.4104891507487919D-02
        ws( 17) = 0.5549498375471750D-02
        ws( 18) = 0.7233427804039060D-02
        ws( 19) = 0.8741214137156677D-02
        ws( 20) = 0.9758680886553066D-02
        ws( 21) = 0.1033291644166356D-01
        ws( 22) = 0.1064469846978353D-01
        ws( 23) = 0.1082863618437071D-01
        ws( 24) = 0.1095737645398225D-01
        ws( 25) = 0.1106676733099220D-01
        ws( 26) = 0.1117536908657858D-01
        ws( 27) = 0.1129715881792322D-01
        ws( 28) = 0.1144842045481637D-01
        ws( 29) = 0.1164318920776812D-01
        ws( 30) = 0.1172395515947239D-01
        ws( 31) = 0.1242037451240065D-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 =  34
        err = 0.7188161111752213D-07
        xs(  1) = 0.1038735912784342D-04
        xs(  2) = 0.5488535081335859D-04
        xs(  3) = 0.1355887160123834D-03
        xs(  4) = 0.2536881214178500D-03
        xs(  5) = 0.4110142861718206D-03
        xs(  6) = 0.6101925228678491D-03
        xs(  7) = 0.8548285446984844D-03
        xs(  8) = 0.1149749524876361D-02
        xs(  9) = 0.1501324828102841D-02
        xs( 10) = 0.1917903017379677D-02
        xs( 11) = 0.2410420224392121D-02
        xs( 12) = 0.2993263954180115D-02
        xs( 13) = 0.3685523264450318D-02
        xs( 14) = 0.4512830724973920D-02
        xs( 15) = 0.5510134325108064D-02
        xs( 16) = 0.6725960037539388D-02
        xs( 17) = 0.8229080297687060D-02
        xs( 18) = 0.1011916641837926D-01
        xs( 19) = 0.1254392017059348D-01
        xs( 20) = 0.1572582105664945D-01
        xs( 21) = 0.1999599072423148D-01
        xs( 22) = 0.2579672628599708D-01
        xs( 23) = 0.3352642101605755D-01
        xs( 24) = 0.4317914167499854D-01
        xs( 25) = 0.5422938751816361D-01
        xs( 26) = 0.6603356460544524D-01
        xs( 27) = 0.7816118852207218D-01
        xs( 28) = 0.9040250985069059D-01
        xs( 29) = 0.1026769596646052D+00
        xs( 30) = 0.1149670377377282D+00
        xs( 31) = 0.1272833434743481D+00
        xs( 32) = 0.1396378767109208D+00
        xs( 33) = 0.1520853961004561D+00
        xs( 34) = 0.1643760114836905D+00
        ws(  1) = 0.2667485281696255D-04
        ws(  2) = 0.6244753522732528D-04
        ws(  3) = 0.9915460049083865D-04
        ws(  4) = 0.1373469003081515D-03
        ws(  5) = 0.1777399242778875D-03
        ws(  6) = 0.2212135443290924D-03
        ws(  7) = 0.2688577728629888D-03
        ws(  8) = 0.3220385942279474D-03
        ws(  9) = 0.3824934929244190D-03
        ws( 10) = 0.4524714757606210D-03
        ws( 11) = 0.5349404912467966D-03
        ws( 12) = 0.6338985450016599D-03
        ws( 13) = 0.7548472845191518D-03
        ws( 14) = 0.9055232854929510D-03
        ws( 15) = 0.1097064050662702D-02
        ws( 16) = 0.1345877902623451D-02
        ws( 17) = 0.1676697419607121D-02
        ws( 18) = 0.2127649944986845D-02
        ws( 19) = 0.2758312080776367D-02
        ws( 20) = 0.3660324200293971D-02
        ws( 21) = 0.4955863389257150D-02
        ws( 22) = 0.6719354886442031D-02
        ws( 23) = 0.8742376537068681D-02
        ws( 24) = 0.1046626048356073D-01
        ws( 25) = 0.1152105456120761D-01
        ws( 26) = 0.1201623560426456D-01
        ws( 27) = 0.1220576119993942D-01
        ws( 28) = 0.1226433375507444D-01
        ws( 29) = 0.1228134091476934D-01
        ws( 30) = 0.1230132160312834D-01
        ws( 31) = 0.1236047497720132D-01
        ws( 32) = 0.1245445775993907D-01
        ws( 33) = 0.1243018670525672D-01
        ws( 34) = 0.1347802589354477D-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 =  38
        err = 0.4796908897215266D-07
        xs(  1) = 0.7192117267979552D-05
        xs(  2) = 0.3796078723381303D-04
        xs(  3) = 0.9359162650969484D-04
        xs(  4) = 0.1745948149433530D-03
        xs(  5) = 0.2817444820419790D-03
        xs(  6) = 0.4161406613813967D-03
        xs(  7) = 0.5792741374045116D-03
        xs(  8) = 0.7731034189755989D-03
        xs(  9) = 0.1000148544761187D-02
        xs( 10) = 0.1263608723266645D-02
        xs( 11) = 0.1567513259322649D-02
        xs( 12) = 0.1916919246366362D-02
        xs( 13) = 0.2318174269555302D-02
        xs( 14) = 0.2779271339019235D-02
        xs( 15) = 0.3310335045186896D-02
        xs( 16) = 0.3924296277048856D-02
        xs( 17) = 0.4637845844365200D-02
        xs( 18) = 0.5472802682333407D-02
        xs( 19) = 0.6458117677394967D-02
        xs( 20) = 0.7632872699497077D-02
        xs( 21) = 0.9050867875540092D-02
        xs( 22) = 0.1078780917874261D-01
        xs( 23) = 0.1295284778014042D-01
        xs( 24) = 0.1570736989693785D-01
        xs( 25) = 0.1929494455898563D-01
        xs( 26) = 0.2407983615417325D-01
        xs( 27) = 0.3055433851411526D-01
        xs( 28) = 0.3917966710217438D-01
        xs( 29) = 0.4997536683178425D-01
        xs( 30) = 0.6234506999272422D-01
        xs( 31) = 0.7552515182167790D-01
        xs( 32) = 0.8899642331199449D-01
        xs( 33) = 0.1025066681164911D+00
        xs( 34) = 0.1159599503129312D+00
        xs( 35) = 0.1293358995132575D+00
        xs( 36) = 0.1426273860502823D+00
        xs( 37) = 0.1558490063702241D+00
        xs( 38) = 0.1683736687521047D+00
        ws(  1) = 0.1846475777030811D-04
        ws(  2) = 0.4313288419135003D-04
        ws(  3) = 0.6821221660449880D-04
        ws(  4) = 0.9392224400163454D-04
        ws(  5) = 0.1205593574656682D-03
        ws(  6) = 0.1484801926863173D-03
        ws(  7) = 0.1781116352222225D-03
        ws(  8) = 0.2099649906827047D-03
        ws(  9) = 0.2446559797194099D-03
        ws( 10) = 0.2829326750603560D-03
        ws( 11) = 0.3257149295783819D-03
        ws( 12) = 0.3741491565476880D-03
        ws( 13) = 0.4296850810832724D-03
        ws( 14) = 0.4941854551766788D-03
        ws( 15) = 0.5700815270959939D-03
        ws( 16) = 0.6606004412381610D-03
        ws( 17) = 0.7701026307117323D-03
        ws( 18) = 0.9045875192037268D-03
        ws( 19) = 0.1072481954496011D-02
        ws( 20) = 0.1285879021795045D-02
        ws( 21) = 0.1562543332560468D-02
        ws( 22) = 0.1929228520808316D-02
        ws( 23) = 0.2427253214988032D-02
        ws( 24) = 0.3121674135002395D-02
        ws( 25) = 0.4113760093621822D-02
        ws( 26) = 0.5540135735636182D-02
        ws( 27) = 0.7493938741666605D-02
        ws( 28) = 0.9764819554928278D-02
        ws( 29) = 0.1171682574221605D-01
        ws( 30) = 0.1288775376064443D-01
        ws( 31) = 0.1338645968829124D-01
        ws( 32) = 0.1351618843166141D-01
        ws( 33) = 0.1349086036853197D-01
        ws( 34) = 0.1341730548926170D-01
        ws( 35) = 0.1333998295937509D-01
        ws( 36) = 0.1331968351500798D-01
        ws( 37) = 0.1325473613288130D-01
        ws( 38) = 0.1276577402279499D-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 =  42
        err = 0.4858153699518000D-07
        xs(  1) = 0.5257927748667780D-05
        xs(  2) = 0.2773610182417102D-04
        xs(  3) = 0.6831114130636058D-04
        xs(  4) = 0.1272347911542058D-03
        xs(  5) = 0.2048825192813581D-03
        xs(  6) = 0.3017836275280526D-03
        xs(  7) = 0.4186494570729208D-03
        xs(  8) = 0.5564051593227328D-03
        xs(  9) = 0.7162260974411313D-03
        xs( 10) = 0.8995804933493702D-03
        xs( 11) = 0.1108280615903566D-02
        xs( 12) = 0.1344545729563642D-02
        xs( 13) = 0.1611080885596578D-02
        xs( 14) = 0.1911176918983464D-02
        xs( 15) = 0.2248839306497831D-02
        xs( 16) = 0.2628955616964471D-02
        xs( 17) = 0.3057515638439832D-02
        xs( 18) = 0.3541904206711438D-02
        xs( 19) = 0.4091295543347366D-02
        xs( 20) = 0.4717191417304917D-02
        xs( 21) = 0.5434166441075347D-02
        xs( 22) = 0.6260919067925527D-02
        xs( 23) = 0.7221781505219929D-02
        xs( 24) = 0.8348936130846266D-02
        xs( 25) = 0.9685741395104289D-02
        xs( 26) = 0.1129185597434323D-01
        xs( 27) = 0.1325135258900126D-01
        xs( 28) = 0.1568604417798970D-01
        xs( 29) = 0.1877776383348818D-01
        xs( 30) = 0.2280352302132880D-01
        xs( 31) = 0.2817689187202322D-01
        xs( 32) = 0.3544656544765067D-01
        xs( 33) = 0.4509838921356361D-01
        xs( 34) = 0.5710567733334378D-01
        xs( 35) = 0.7078106794874946D-01
        xs( 36) = 0.8527857454243375D-01
        xs( 37) = 0.1000279808684161D+00
        xs( 38) = 0.1147533858867906D+00
        xs( 39) = 0.1293500896806962D+00
        xs( 40) = 0.1437866720655505D+00
        xs( 41) = 0.1580336030934047D+00
        xs( 42) = 0.1715756444451689D+00
        ws(  1) = 0.1349720795187579D-04
        ws(  2) = 0.3149278816855132D-04
        ws(  3) = 0.4969826363979408D-04
        ws(  4) = 0.6821118198169022D-04
        ws(  5) = 0.8717202472755489D-04
        ws(  6) = 0.1067482236535575D-03
        ws(  7) = 0.1271370257194712D-03
        ws(  8) = 0.1485695662055683D-03
        ws(  9) = 0.1713161659892229D-03
        ws( 10) = 0.1956936293445377D-03
        ws( 11) = 0.2220751947124360D-03
        ws( 12) = 0.2509042280706328D-03
        ws( 13) = 0.2827124298909740D-03
        ws( 14) = 0.3181444557085832D-03
        ws( 15) = 0.3579912905539405D-03
        ws( 16) = 0.4032348143735686D-03
        ws( 17) = 0.4551095657661024D-03
        ws( 18) = 0.5151877793307506D-03
        ws( 19) = 0.5854996700092490D-03
        ws( 20) = 0.6687040033244096D-03
        ws( 21) = 0.7683378788296005D-03
        ws( 22) = 0.8891866868790173D-03
        ws( 23) = 0.1037848126286425D-02
        ws( 24) = 0.1223604624682789D-02
        ws( 25) = 0.1459819042589201D-02
        ws( 26) = 0.1766208613817566D-02
        ws( 27) = 0.2172729122080801D-02
        ws( 28) = 0.2726366427038761D-02
        ws( 29) = 0.3502470865287171D-02
        ws( 30) = 0.4617624785686904D-02
        ws( 31) = 0.6223315010510437D-02
        ws( 32) = 0.8406144489953539D-02
        ws( 33) = 0.1089728511207154D-01
        ws( 34) = 0.1299131099140477D-01
        ws( 35) = 0.1421057622895672D-01
        ws( 36) = 0.1469017098411248D-01
        ws( 37) = 0.1476538463436046D-01
        ws( 38) = 0.1467184058326832D-01
        ws( 39) = 0.1452695120073223D-01
        ws( 40) = 0.1436987244238202D-01
        ws( 41) = 0.1425163403307411D-01
        ws( 42) = 0.1258495202253397D-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 =  45
        err = 0.8100647588282743D-07
        xs(  1) = 0.4095938590897283D-05
        xs(  2) = 0.2159801376945619D-04
        xs(  3) = 0.5315566835749215D-04
        xs(  4) = 0.9890260748317166D-04
        xs(  5) = 0.1590365358345711D-03
        xs(  6) = 0.2338377823992020D-03
        xs(  7) = 0.3236849843385056D-03
        xs(  8) = 0.4290718125346115D-03
        xs(  9) = 0.5506250253650316D-03
        xs( 10) = 0.6891244029281539D-03
        xs( 11) = 0.8455253072528949D-03
        xs( 12) = 0.1020984896306778D-02
        xs( 13) = 0.1216893560319529D-02
        xs( 14) = 0.1434912994553634D-02
        xs( 15) = 0.1677023079924749D-02
        xs( 16) = 0.1945580413692632D-02
        xs( 17) = 0.2243391861643827D-02
        xs( 18) = 0.2573807783274700D-02
        xs( 19) = 0.2940841147434828D-02
        xs( 20) = 0.3349321497000323D-02
        xs( 21) = 0.3805095598958264D-02
        xs( 22) = 0.4315291727793134D-02
        xs( 23) = 0.4888672019779536D-02
        xs( 24) = 0.5536110810997343D-02
        xs( 25) = 0.6271248956500420D-02
        xs( 26) = 0.7111410916798648D-02
        xs( 27) = 0.8078913888595121D-02
        xs( 28) = 0.9202969867404542D-02
        xs( 29) = 0.1052253629955769D-01
        xs( 30) = 0.1209068597022179D-01
        xs( 31) = 0.1398157392111000D-01
        xs( 32) = 0.1630207423020907D-01
        xs( 33) = 0.1921184401176291D-01
        xs( 34) = 0.2295793808282320D-01
        xs( 35) = 0.2792507083125273D-01
        xs( 36) = 0.3467804953249333D-01
        xs( 37) = 0.4388852764904256D-01
        xs( 38) = 0.5593532572928857D-01
        xs( 39) = 0.7038264745327413D-01
        xs( 40) = 0.8619730991369853D-01
        xs( 41) = 0.1024915245020392D+00
        xs( 42) = 0.1187904989631047D+00
        xs( 43) = 0.1349046189547784D+00
        xs( 44) = 0.1506956590251394D+00
        xs( 45) = 0.1659671695349164D+00
        ws(  1) = 0.1051339663641160D-04
        ws(  2) = 0.2451141940597969D-04
        ws(  3) = 0.3862546646509670D-04
        ws(  4) = 0.5290110486879037D-04
        ws(  5) = 0.6741321042101094D-04
        ws(  6) = 0.8225210864804864D-04
        ws(  7) = 0.9752427580489356D-04
        ws(  8) = 0.1133535096898928D-03
        ws(  9) = 0.1298825070509552D-03
        ws( 10) = 0.1472750478049312D-03
        ws( 11) = 0.1657190909083612D-03
        ws( 12) = 0.1854311856881622D-03
        ws( 13) = 0.2066623195457086D-03
        ws( 14) = 0.2297055645603607D-03
        ws( 15) = 0.2549061570721501D-03
        ws( 16) = 0.2826747721782527D-03
        ws( 17) = 0.3135045567589670D-03
        ws( 18) = 0.3479935758822708D-03
        ws( 19) = 0.3868747740430054D-03
        ws( 20) = 0.4310560301253165D-03
        ws( 21) = 0.4816744624774165D-03
        ws( 22) = 0.5401702623033466D-03
        ws( 23) = 0.6083920411959313D-03
        ws( 24) = 0.6887440270837980D-03
        ws( 25) = 0.7843983167004645D-03
        ws( 26) = 0.8996143071888708D-03
        ws( 27) = 0.1040213969013606D-02
        ws( 28) = 0.1214320472104901D-02
        ws( 29) = 0.1433546592174137D-02
        ws( 30) = 0.1714925579148497D-02
        ws( 31) = 0.2084346011705564D-02
        ws( 32) = 0.2582696805955649D-02
        ws( 33) = 0.3277140330549836D-02
        ws( 34) = 0.4278267898040020D-02
        ws( 35) = 0.5750651469070667D-02
        ws( 36) = 0.7873941947586602D-02
        ws( 37) = 0.1062209475200934D-01
        ws( 38) = 0.1339470732003150D-01
        ws( 39) = 0.1531147570969405D-01
        ws( 40) = 0.1616659902641195D-01
        ws( 41) = 0.1634605256688588D-01
        ws( 42) = 0.1622315786252689D-01
        ws( 43) = 0.1602541885943793D-01
        ws( 44) = 0.1564292309266349D-01
        ws( 45) = 0.1385508711955729D-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 =  49
        err = 0.6455037129219732D-07
        xs(  1) = 0.3251086028168226D-05
        xs(  2) = 0.1713893577495717D-04
        xs(  3) = 0.4216262980850122D-04
        xs(  4) = 0.7839751293666879D-04
        xs(  5) = 0.1259534362284873D-03
        xs(  6) = 0.1849869348226035D-03
        xs(  7) = 0.2557105038175721D-03
        xs(  8) = 0.3384021504120999D-03
        xs(  9) = 0.4334152575107544D-03
        xs( 10) = 0.5411889394339440D-03
        xs( 11) = 0.6622592174716018D-03
        xs( 12) = 0.7972713799371604D-03
        xs( 13) = 0.9469940688268510D-03
        xs( 14) = 0.1112335792899483D-02
        xs( 15) = 0.1294364461297933D-02
        xs( 16) = 0.1494330766729136D-02
        xs( 17) = 0.1713696729817812D-02
        xs( 18) = 0.1954170563055710D-02
        xs( 19) = 0.2217749423119371D-02
        xs( 20) = 0.2506772389322080D-02
        xs( 21) = 0.2823986663957407D-02
        xs( 22) = 0.3172630764291069D-02
        xs( 23) = 0.3556539496740167D-02
        xs( 24) = 0.3980278120933882D-02
        xs( 25) = 0.4449315688834819D-02
        xs( 26) = 0.4970250331909324D-02
        xs( 27) = 0.5551107468684427D-02
        xs( 28) = 0.6201736019903024D-02
        xs( 29) = 0.6934348366269880D-02
        xs( 30) = 0.7764260970051767D-02
        xs( 31) = 0.8710941120576857D-02
        xs( 32) = 0.9799496467045619D-02
        xs( 33) = 0.1106287488773550D-01
        xs( 34) = 0.1254518693256894D-01
        xs( 35) = 0.1430683357683398D-01
        xs( 36) = 0.1643301374417187D-01
        xs( 37) = 0.1904851450764108D-01
        xs( 38) = 0.2234349299953714D-01
        xs( 39) = 0.2661539494396165D-01
        xs( 40) = 0.3232577583120573D-01
        xs( 41) = 0.4013614823652644D-01
        xs( 42) = 0.5076218512660885D-01
        xs( 43) = 0.6444953101273886D-01
        xs( 44) = 0.8050505179722477D-01
        xs( 45) = 0.9776491650898513D-01
        xs( 46) = 0.1153618055021882D+00
        xs( 47) = 0.1328637191477057D+00
        xs( 48) = 0.1500593816407407D+00
        xs( 49) = 0.1664824223384599D+00
        ws(  1) = 0.8344371699490236D-05
        ws(  2) = 0.1944501313476432D-04
        ws(  3) = 0.3061440218334105D-04
        ws(  4) = 0.4187351334335520D-04
        ws(  5) = 0.5326426630437741D-04
        ws(  6) = 0.6483798411374501D-04
        ws(  7) = 0.7665532671339839D-04
        ws(  8) = 0.8878669373875852D-04
        ws(  9) = 0.1013125226753154D-03
        ws( 10) = 0.1143239704457920D-03
        ws( 11) = 0.1279238998374114D-03
        ws( 12) = 0.1422282593752674D-03
        ws( 13) = 0.1573682110712152D-03
        ws( 14) = 0.1734928362701533D-03
        ws( 15) = 0.1907724759018325D-03
        ws( 16) = 0.2094032291586959D-03
        ws( 17) = 0.2296126923852680D-03
        ws( 18) = 0.2516669575694411D-03
        ws( 19) = 0.2758795201675851D-03
        ws( 20) = 0.3026229039840693D-03
        ws( 21) = 0.3323436648505549D-03
        ws( 22) = 0.3655814695533698D-03
        ws( 23) = 0.4029940015104640D-03
        ws( 24) = 0.4453910712445911D-03
        ws( 25) = 0.4937788087006301D-03
        ws( 26) = 0.5494216060630600D-03
        ws( 27) = 0.6139252273922140D-03
        ws( 28) = 0.6893552433451529D-03
        ws( 29) = 0.7784049951530036D-03
        ws( 30) = 0.8846405735044775D-03
        ws( 31) = 0.1012868664355978D-02
        ws( 32) = 0.1169679351775308D-02
        ws( 33) = 0.1364347108608404D-02
        ws( 34) = 0.1610209128980524D-02
        ws( 35) = 0.1927048283249037D-02
        ws( 36) = 0.2345695872590398D-02
        ws( 37) = 0.2916300547483515D-02
        ws( 38) = 0.3722242739334348D-02
        ws( 39) = 0.4897536640017736D-02
        ws( 40) = 0.6635112749022823D-02
        ws( 41) = 0.9114364289942173D-02
        ws( 42) = 0.1219027279750417D-01
        ws( 43) = 0.1505844888935567D-01
        ws( 44) = 0.1684283700681812D-01
        ws( 45) = 0.1753163454824430D-01
        ws( 46) = 0.1759703144948451D-01
        ws( 47) = 0.1739940381478712D-01
        ws( 48) = 0.1704940669314929D-01
        ws( 49) = 0.1476846103403390D-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 =  53
        err = 0.6800807001215662D-07
        xs(  1) = 0.2652217103880943D-05
        xs(  2) = 0.1397968588548403D-04
        xs(  3) = 0.3438100495657068D-04
        xs(  4) = 0.6390145691626175D-04
        xs(  5) = 0.1026056583171941D-03
        xs(  6) = 0.1505859552494193D-03
        xs(  7) = 0.2079682588694443D-03
        xs(  8) = 0.2749179093447153D-03
        xs(  9) = 0.3516456527235115D-03
        xs( 10) = 0.4384137240321808D-03
        xs( 11) = 0.5355421470338095D-03
        xs( 12) = 0.6434154292663648D-03
        xs( 13) = 0.7624898647364879D-03
        xs( 14) = 0.8933017350923504D-03
        xs( 15) = 0.1036476699996358D-02
        xs( 16) = 0.1192740670796676D-02
        xs( 17) = 0.1362932649767056D-02
        xs( 18) = 0.1548019947156780D-02
        xs( 19) = 0.1749116415572827D-02
        xs( 20) = 0.1967504323028537D-02
        xs( 21) = 0.2204660702642017D-02
        xs( 22) = 0.2462289614495933D-02
        xs( 23) = 0.2742361314391974D-02
        xs( 24) = 0.3047160532076713D-02
        xs( 25) = 0.3379345900037891D-02
        xs( 26) = 0.3742024450530155D-02
        xs( 27) = 0.4138844647967445D-02
        xs( 28) = 0.4574114281081698D-02
        xs( 29) = 0.5052951160347823D-02
        xs( 30) = 0.5581477647572292D-02
        xs( 31) = 0.6167074245836558D-02
        xs( 32) = 0.6818715001164887D-02
        xs( 33) = 0.7547417062200512D-02
        xs( 34) = 0.8366851238911611D-02
        xs( 35) = 0.9294191309406749D-02
        xs( 36) = 0.1035131381765840D-01
        xs( 37) = 0.1156653115456075D-01
        xs( 38) = 0.1297719207533335D-01
        xs( 39) = 0.1463362764340320D-01
        xs( 40) = 0.1660552012513607D-01
        xs( 41) = 0.1899294202450981D-01
        xs( 42) = 0.2194587461455149D-01
        xs( 43) = 0.2569778618196325D-01
        xs( 44) = 0.3061713713983069D-01
        xs( 45) = 0.3727322888677987D-01
        xs( 46) = 0.4644292840287230D-01
        xs( 47) = 0.5882810488945217D-01
        xs( 48) = 0.7439812677686126D-01
        xs( 49) = 0.9212752262846852D-01
        xs( 50) = 0.1107737698635449D+00
        xs( 51) = 0.1295409845568013D+00
        xs( 52) = 0.1480175106606658D+00
        xs( 53) = 0.1655910963363694D+00
        ws(  1) = 0.6807044806462342D-05
        ws(  2) = 0.1585764638696106D-04
        ws(  3) = 0.2495212569035434D-04
        ws(  4) = 0.3409944144701489D-04
        ws(  5) = 0.4332425489879389D-04
        ws(  6) = 0.5265723137545212D-04
        ws(  7) = 0.6213483474018045D-04
        ws(  8) = 0.7179948429657643D-04
        ws(  9) = 0.8169960145570057D-04
        ws( 10) = 0.9188976918411892D-04
        ws( 11) = 0.1024310434875671D-03
        ws( 12) = 0.1133914337034903D-03
        ws( 13) = 0.1248466597088924D-03
        ws( 14) = 0.1368811794806649D-03
        ws( 15) = 0.1495895230196571D-03
        ws( 16) = 0.1630780006099021D-03
        ws( 17) = 0.1774668722751898D-03
        ws( 18) = 0.1928930016410954D-03
        ws( 19) = 0.2095132127947321D-03
        ws( 20) = 0.2275082330124899D-03
        ws( 21) = 0.2470878933270765D-03
        ws( 22) = 0.2684975042805866D-03
        ws( 23) = 0.2920257033733089D-03
        ws( 24) = 0.3180145973978002D-03
        ws( 25) = 0.3468724404352986D-03
        ws( 26) = 0.3790907916294124D-03
        ws( 27) = 0.4152650875979282D-03
        ws( 28) = 0.4561239280447550D-03
        ws( 29) = 0.5025660731653654D-03
        ws( 30) = 0.5557114458159720D-03
        ws( 31) = 0.6169700849178292D-03
        ws( 32) = 0.6881375507175720D-03
        ws( 33) = 0.7715312026200228D-03
        ws( 34) = 0.8701797687032662D-03
        ws( 35) = 0.9881185197154151D-03
        ws( 36) = 0.1130802738767423D-02
        ws( 37) = 0.1305793285525700D-02
        ws( 38) = 0.1523816424611743D-02
        ws( 39) = 0.1800492166395945D-02
        ws( 40) = 0.2159662775822121D-02
        ws( 41) = 0.2639626318166415D-02
        ws( 42) = 0.3304298556308692D-02
        ws( 43) = 0.4259738794003084D-02
        ws( 44) = 0.5673097235308448D-02
        ws( 45) = 0.7772650525507348D-02
        ws( 46) = 0.1069657451776730D-01
        ws( 47) = 0.1407659272202389D-01
        ws( 48) = 0.1687436172817296D-01
        ws( 49) = 0.1836530719387718D-01
        ws( 50) = 0.1879893542306390D-01
        ws( 51) = 0.1869670556949380D-01
        ws( 52) = 0.1830451174951484D-01
        ws( 53) = 0.1582145620799359D-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 =  57
        err = 0.6627980188646172D-07
        xs(  1) = 0.2212894817073846D-05
        xs(  2) = 0.1166260202053985D-04
        xs(  3) = 0.2867602011925144D-04
        xs(  4) = 0.5328031326888791D-04
        xs(  5) = 0.8551323984369940D-04
        xs(  6) = 0.1254294416561342D-03
        xs(  7) = 0.1731044571484304D-03
        xs(  8) = 0.2286387242657295D-03
        xs(  9) = 0.2921615564798360D-03
        xs( 10) = 0.3638350864582846D-03
        xs( 11) = 0.4438582040036179D-03
        xs( 12) = 0.5324705923914200D-03
        xs( 13) = 0.6299568885574558D-03
        xs( 14) = 0.7366512285006974D-03
        xs( 15) = 0.8529422700901638D-03
        xs( 16) = 0.9792788306374832D-03
        xs( 17) = 0.1116176290650608D-02
        xs( 18) = 0.1264224110017984D-02
        xs( 19) = 0.1424094574450621D-02
        xs( 20) = 0.1596553020963606D-02
        xs( 21) = 0.1782470000476562D-02
        xs( 22) = 0.1982835563938451D-02
        xs( 23) = 0.2198776415001525D-02
        xs( 24) = 0.2431576401253033D-02
        xs( 25) = 0.2682701108309681D-02
        xs( 26) = 0.2953827494894040D-02
        xs( 27) = 0.3246879800981110D-02
        xs( 28) = 0.3564073584938082D-02
        xs( 29) = 0.3907969791614626D-02
        xs( 30) = 0.4281541173963070D-02
        xs( 31) = 0.4688255832889333D-02
        xs( 32) = 0.5132181513042474D-02
        xs( 33) = 0.5618116969046885D-02
        xs( 34) = 0.6151763349040386D-02
        xs( 35) = 0.6739941834788061D-02
        xs( 36) = 0.7390879126996703D-02
        xs( 37) = 0.8114590128161066D-02
        xs( 38) = 0.8923390275356312D-02
        xs( 39) = 0.9832593100093786D-02
        xs( 40) = 0.1086149591793985D-01
        xs( 41) = 0.1203477187817464D-01
        xs( 42) = 0.1338451591760089D-01
        xs( 43) = 0.1495331649959314D-01
        xs( 44) = 0.1679902911420440D-01
        xs( 45) = 0.1900265121649746D-01
        xs( 46) = 0.2168199336205951D-01
        xs( 47) = 0.2501608885008017D-01
        xs( 48) = 0.2928571044512422D-01
        xs( 49) = 0.3493319715654254D-01
        xs( 50) = 0.4263062179731474D-01
        xs( 51) = 0.5323814181996729D-01
        xs( 52) = 0.6739511592350346D-01
        xs( 53) = 0.8479483017530276D-01
        xs( 54) = 0.1041620479165200D+00
        xs( 55) = 0.1242221719554738D+00
        xs( 56) = 0.1441834224503322D+00
        xs( 57) = 0.1632192958741464D+00
        ws(  1) = 0.5679341587089921D-05
        ws(  2) = 0.1322726846661664D-04
        ws(  3) = 0.2080375599837894D-04
        ws(  4) = 0.2841104653207113D-04
        ws(  5) = 0.3606385654974178D-04
        ws(  6) = 0.4378107112983940D-04
        ws(  7) = 0.5158562843327190D-04
        ws(  8) = 0.5950439472604533D-04
        ws(  9) = 0.6756822716428374D-04
        ws( 10) = 0.7581190791547176D-04
        ws( 11) = 0.8427420688289452D-04
        ws( 12) = 0.9299793687980688D-04
        ws( 13) = 0.1020302645521846D-03
        ws( 14) = 0.1114230942380806D-03
        ws( 15) = 0.1212336852229681D-03
        ws( 16) = 0.1315252097266070D-03
        ws( 17) = 0.1423678093013166D-03
        ws( 18) = 0.1538397109279637D-03
        ws( 19) = 0.1660285685468921D-03
        ws( 20) = 0.1790331817227574D-03
        ws( 21) = 0.1929654997923403D-03
        ws( 22) = 0.2079530711305042D-03
        ws( 23) = 0.2241421988112972D-03
        ws( 24) = 0.2417015460547123D-03
        ws( 25) = 0.2608267682547870D-03
        ws( 26) = 0.2817459801854989D-03
        ws( 27) = 0.3047269927678990D-03
        ws( 28) = 0.3300863018157148D-03
        ws( 29) = 0.3582001863382661D-03
        ws( 30) = 0.3895188582250653D-03
        ws( 31) = 0.4245862826754460D-03
        ws( 32) = 0.4640619928762806D-03
        ws( 33) = 0.5087555525645106D-03
        ws( 34) = 0.5596693691543907D-03
        ws( 35) = 0.6180524172036458D-03
        ws( 36) = 0.6854828772172626D-03
        ws( 37) = 0.7639803825709529D-03
        ws( 38) = 0.8561559212620117D-03
        ws( 39) = 0.9654433689989445D-03
        ws( 40) = 0.1096441134126999D-02
        ws( 41) = 0.1255410355106542D-02
        ws( 42) = 0.1451098983667055D-02
        ws( 43) = 0.1696020264110061D-02
        ws( 44) = 0.2008686971764556D-02
        ws( 45) = 0.2417804811576506D-02
        ws( 46) = 0.2970039676904454D-02
        ws( 47) = 0.3743975218870013D-02
        ws( 48) = 0.4867613152944129D-02
        ws( 49) = 0.6539324705071163D-02
        ws( 50) = 0.9005284365823900D-02
        ws( 51) = 0.1233142775573699D-01
        ws( 52) = 0.1593408882411192D-01
        ws( 53) = 0.1863021473143527D-01
        ws( 54) = 0.1988266777709667D-01
        ws( 55) = 0.2011521681209112D-01
        ws( 56) = 0.1975318432449405D-01
        ws( 57) = 0.1683446740743537D-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 =  61
        err = 0.8410265217725574D-07
        xs(  1) = 0.1878811885808531D-05
        xs(  2) = 0.9900971634662978D-05
        xs(  3) = 0.2434038111491988D-04
        xs(  4) = 0.4521333138805958D-04
        xs(  5) = 0.7254161950794091D-04
        xs(  6) = 0.1063574868976868D-03
        xs(  7) = 0.1467065370329503D-03
        xs(  8) = 0.1936506813994628D-03
        xs(  9) = 0.2472709187903086D-03
        xs( 10) = 0.3076701518226780D-03
        xs( 11) = 0.3749758080353107D-03
        xs( 12) = 0.4493425302785816D-03
        xs( 13) = 0.5309547457446522D-03
        xs( 14) = 0.6200294339184879D-03
        xs( 15) = 0.7168190270600200D-03
        xs( 16) = 0.8216146405847479D-03
        xs( 17) = 0.9347495896628046D-03
        xs( 18) = 0.1056603409688994D-02
        xs( 19) = 0.1187606451675094D-02
        xs( 20) = 0.1328245224565121D-02
        xs( 21) = 0.1479068567452694D-02
        xs( 22) = 0.1640694742783687D-02
        xs( 23) = 0.1813819861709051D-02
        xs( 24) = 0.1999227711986760D-02
        xs( 25) = 0.2197801235619736D-02
        xs( 26) = 0.2410536288328399D-02
        xs( 27) = 0.2638557731698993D-02
        xs( 28) = 0.2883138670990258D-02
        xs( 29) = 0.3145723325640757D-02
        xs( 30) = 0.3427954810789637D-02
        xs( 31) = 0.3731708084556646D-02
        xs( 32) = 0.4059130615530456D-02
        xs( 33) = 0.4412691949739446D-02
        xs( 34) = 0.4795244095827381D-02
        xs( 35) = 0.5210095857005090D-02
        xs( 36) = 0.5661108683914105D-02
        xs( 37) = 0.6152813072814884D-02
        xs( 38) = 0.6690558293068331D-02
        xs( 39) = 0.7280708063692254D-02
        xs( 40) = 0.7930889344996535D-02
        xs( 41) = 0.8650320853317158D-02
        xs( 42) = 0.9450258399931155D-02
        xs( 43) = 0.1034458799005890D-01
        xs( 44) = 0.1135066071221790D-01
        xs( 45) = 0.1249046811329705D-01
        xs( 46) = 0.1379232410020732D-01
        xs( 47) = 0.1529336496254154D-01
        xs( 48) = 0.1704336531333641D-01
        xs( 49) = 0.1911120132975180D-01
        xs( 50) = 0.2159625327551454D-01
        xs( 51) = 0.2464823789116857D-01
        xs( 52) = 0.2850081613940506D-01
        xs( 53) = 0.3352350586505079D-01
        xs( 54) = 0.4029644273094564D-01
        xs( 55) = 0.4965996618540307D-01
        xs( 56) = 0.6253162760463361D-01
        xs( 57) = 0.7925162020041907D-01
        xs( 58) = 0.9894606206178701D-01
        xs( 59) = 0.1200780967387850D+00
        xs( 60) = 0.1414473723352969D+00
        xs( 61) = 0.1619607361305245D+00
        ws(  1) = 0.4821822544629649D-05
        ws(  2) = 0.1122799746709077D-04
        ws(  3) = 0.1765326134599402D-04
        ws(  4) = 0.2409621605367276D-04
        ws(  5) = 0.3056568650856020D-04
        ws(  6) = 0.3707359497176439D-04
        ws(  7) = 0.4363478513496625D-04
        ws(  8) = 0.5026695460124556D-04
        ws(  9) = 0.5699062868692307D-04
        ws( 10) = 0.6382902565570076D-04
        ws( 11) = 0.7080802070289119D-04
        ws( 12) = 0.7795611326461229D-04
        ws( 13) = 0.8530443749520792D-04
        ws( 14) = 0.9288695532769514D-04
        ws( 15) = 0.1007406925799605D-03
        ws( 16) = 0.1089060191494410D-03
        ws( 17) = 0.1174270592420680D-03
        ws( 18) = 0.1263522185922006D-03
        ws( 19) = 0.1357348469056869D-03
        ws( 20) = 0.1456340538274119D-03
        ws( 21) = 0.1561155347517971D-03
        ws( 22) = 0.1672526729954699D-03
        ws( 23) = 0.1791280061280838D-03
        ws( 24) = 0.1918346175347811D-03
        ws( 25) = 0.2054781443902794D-03
        ws( 26) = 0.2201791108574694D-03
        ws( 27) = 0.2360755868974356D-03
        ws( 28) = 0.2533265314978558D-03
        ws( 29) = 0.2721160824757449D-03
        ws( 30) = 0.2926587000989085D-03
        ws( 31) = 0.3152049480389533D-03
        ws( 32) = 0.3400506903431058D-03
        ws( 33) = 0.3675461137772583D-03
        ws( 34) = 0.3981080089601226D-03
        ws( 35) = 0.4322372057144724D-03
        ws( 36) = 0.4705410493401798D-03
        ws( 37) = 0.5137560444535361D-03
        ws( 38) = 0.5627909001659036D-03
        ws( 39) = 0.6187744632948508D-03
        ws( 40) = 0.6831171191607740D-03
        ws( 41) = 0.7576122627029159D-03
        ws( 42) = 0.8445634484229418D-03
        ws( 43) = 0.9469683145960912D-03
        ws( 44) = 0.1068815182000768D-02
        ws( 45) = 0.1215477753234044D-02
        ws( 46) = 0.1394362938949839D-02
        ws( 47) = 0.1615913044622478D-02
        ws( 48) = 0.1895383249592668D-02
        ws( 49) = 0.2256538665300976D-02
        ws( 50) = 0.2737961575451827D-02
        ws( 51) = 0.3404114890768323D-02
        ws( 52) = 0.4361324559255449D-02
        ws( 53) = 0.5779432044123512D-02
        ws( 54) = 0.7908634198843353D-02
        ws( 55) = 0.1098297862978284D-01
        ws( 56) = 0.1483237974926243D-01
        ws( 57) = 0.1845011684649981D-01
        ws( 58) = 0.2066095680601376D-01
        ws( 59) = 0.2141365569349961D-01
        ws( 60) = 0.2120957937038364D-01
        ws( 61) = 0.1847721309417935D-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 =  66
        err = 0.4943352012621766D-07
        xs(  1) = 0.1587512911723816D-05
        xs(  2) = 0.8365647028627600D-05
        xs(  3) = 0.2056487966201388D-04
        xs(  4) = 0.3819697500349197D-04
        xs(  5) = 0.6127689631379304D-04
        xs(  6) = 0.8982644842811352D-04
        xs(  7) = 0.1238762071608095D-03
        xs(  8) = 0.1634673951043142D-03
        xs(  9) = 0.2086537681588832D-03
        xs( 10) = 0.2595034417657079D-03
        xs( 11) = 0.3161006825942884D-03
        xs( 12) = 0.3785476395484157D-03
        xs( 13) = 0.4469660737429081D-03
        xs( 14) = 0.5214990785948150D-03
        xs( 15) = 0.6023128859768290D-03
        xs( 16) = 0.6895987771950600D-03
        xs( 17) = 0.7835751456946396D-03
        xs( 18) = 0.8844897530631443D-03
        xs( 19) = 0.9926222796548898D-03
        xs( 20) = 0.1108287190630187D-02
        xs( 21) = 0.1231836983689915D-02
        xs( 22) = 0.1363665905868615D-02
        xs( 23) = 0.1504214221893572D-02
        xs( 24) = 0.1653973105899774D-02
        xs( 25) = 0.1813490314546525D-02
        xs( 26) = 0.1983376787481752D-02
        xs( 27) = 0.2164314238303923D-02
        xs( 28) = 0.2357064022962389D-02
        xs( 29) = 0.2562477550422411D-02
        xs( 30) = 0.2781508400090004D-02
        xs( 31) = 0.3015226674872957D-02
        xs( 32) = 0.3264835917778343D-02
        xs( 33) = 0.3531693099135743D-02
        xs( 34) = 0.3817332602738858D-02
        xs( 35) = 0.4123494775823590D-02
        xs( 36) = 0.4452160315372440D-02
        xs( 37) = 0.4805592477019954D-02
        xs( 38) = 0.5186387422368665D-02
        xs( 39) = 0.5597536892496959D-02
        xs( 40) = 0.6042505372932688D-02
        xs( 41) = 0.6525326368242285D-02
        xs( 42) = 0.7050722932903561D-02
        xs( 43) = 0.7624261028165502D-02
        xs( 44) = 0.8252546435082090D-02
        xs( 45) = 0.8943479219004338D-02
        xs( 46) = 0.9706589336033680D-02
        xs( 47) = 0.1055348122483278D-01
        xs( 48) = 0.1149844017881194D-01
        xs( 49) = 0.1255926134826564D-01
        xs( 50) = 0.1375843341441973D-01
        xs( 51) = 0.1512482934194170D-01
        xs( 52) = 0.1669621248266857D-01
        xs( 53) = 0.1852313866448135D-01
        xs( 54) = 0.2067541673117103D-01
        xs( 55) = 0.2325327465579963D-01
        xs( 56) = 0.2640624957072136D-01
        xs( 57) = 0.3036445235129960D-01
        xs( 58) = 0.3548658690684547D-01
        xs( 59) = 0.4232918972547106D-01
        xs( 60) = 0.5169963376165665D-01
        xs( 61) = 0.6451514790628968D-01
        xs( 62) = 0.8123637528359043D-01
        xs( 63) = 0.1011776942716352D+00
        xs( 64) = 0.1228318784880925D+00
        xs( 65) = 0.1448603343080620D+00
        xs( 66) = 0.1659785404555271D+00
        ws(  1) = 0.4074193841827156D-05
        ws(  2) = 0.9486568607740177D-05
        ws(  3) = 0.1491363747937712D-04
        ws(  4) = 0.2035300971888638D-04
        ws(  5) = 0.2581043439459253D-04
        ws(  6) = 0.3129373402968251D-04
        ws(  7) = 0.3681262013418632D-04
        ws(  8) = 0.4237868509217515D-04
        ws(  9) = 0.4800538455386177D-04
        ws( 10) = 0.5370797941812274D-04
        ws( 11) = 0.5950349719349454D-04
        ws( 12) = 0.6541068243132088D-04
        ws( 13) = 0.7145000366009396D-04
        ws( 14) = 0.7764367957716775D-04
        ws( 15) = 0.8401578177569273D-04
        ws( 16) = 0.9059236321934474D-04
        ws( 17) = 0.9740162432153196D-04
        ws( 18) = 0.1044741569095612D-03
        ws( 19) = 0.1118432534204479D-03
        ws( 20) = 0.1195452570972873D-03
        ws( 21) = 0.1276199646420293D-03
        ws( 22) = 0.1361111754888518D-03
        ws( 23) = 0.1450672256843214D-03
        ws( 24) = 0.1545417232005148D-03
        ws( 25) = 0.1645943936168644D-03
        ws( 26) = 0.1752920234676905D-03
        ws( 27) = 0.1867095935440648D-03
        ws( 28) = 0.1989316781923563D-03
        ws( 29) = 0.2120540683687407D-03
        ws( 30) = 0.2261856996678831D-03
        ws( 31) = 0.2414511078107934D-03
        ws( 32) = 0.2579931399163068D-03
        ws( 33) = 0.2759764795942775D-03
        ws( 34) = 0.2955920285724010D-03
        ws( 35) = 0.3170617235244854D-03
        ws( 36) = 0.3406457447312283D-03
        ws( 37) = 0.3666502212348029D-03
        ws( 38) = 0.3954370339222209D-03
        ws( 39) = 0.4274377233187497D-03
        ws( 40) = 0.4631695128131578D-03
        ws( 41) = 0.5032571302165382D-03
        ws( 42) = 0.5484603982587102D-03
        ws( 43) = 0.5997126090229729D-03
        ws( 44) = 0.6581692907217785D-03
        ws( 45) = 0.7252774060206210D-03
        ws( 46) = 0.8028668194549545D-03
        ws( 47) = 0.8932844759101808D-03
        ws( 48) = 0.9995797398896860D-03
        ws( 49) = 0.1125783324022356D-02
        ws( 50) = 0.1277332416124001D-02
        ws( 51) = 0.1461690806714028D-02
        ws( 52) = 0.1689399083267623D-02
        ws( 53) = 0.1975908632081031D-02
        ws( 54) = 0.2345049460290846D-02
        ws( 55) = 0.2835077909800670D-02
        ws( 56) = 0.3508438532166735D-02
        ws( 57) = 0.4466573667783912D-02
        ws( 58) = 0.5869134784503475D-02
        ws( 59) = 0.7952210824752327D-02
        ws( 60) = 0.1095123032053200D-01
        ws( 61) = 0.1477210693414127D-01
        ws( 62) = 0.1855021061506331D-01
        ws( 63) = 0.2105862835164097D-01
        ws( 64) = 0.2203800110626091D-01
        ws( 65) = 0.2189175352912585D-01
        ws( 66) = 0.1826737677436098D-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 =  70
        err = 0.4858359082960610D-07
        xs(  1) = 0.1380988008256705D-05
        xs(  2) = 0.7276958740402511D-05
        xs(  3) = 0.1788691434634914D-04
        xs(  4) = 0.3321830987108179D-04
        xs(  5) = 0.5327996874142000D-04
        xs(  6) = 0.7808506908060281D-04
        xs(  7) = 0.1076526219900955D-03
        xs(  8) = 0.1420089069922283D-03
        xs(  9) = 0.1811888951175976D-03
        xs( 10) = 0.2252376414884043D-03
        xs( 11) = 0.2742116108138035D-03
        xs( 12) = 0.3281799628933262D-03
        xs( 13) = 0.3872257779200312D-03
        xs( 14) = 0.4514472609659476D-03
        xs( 15) = 0.5209589474826412D-03
        xs( 16) = 0.5958929536120943D-03
        xs( 17) = 0.6764002924880303D-03
        xs( 18) = 0.7626522670497874D-03
        xs( 19) = 0.8548420153470285D-03
        xs( 20) = 0.9531862110897411D-03
        xs( 21) = 0.1057926967718800D-02
        xs( 22) = 0.1169334001656163D-02
        xs( 23) = 0.1287707050734373D-02
        xs( 24) = 0.1413378622782344D-02
        xs( 25) = 0.1546717170946359D-02
        xs( 26) = 0.1688130665465146D-02
        xs( 27) = 0.1838070725431561D-02
        xs( 28) = 0.1997037372671267D-02
        xs( 29) = 0.2165584433097595D-02
        xs( 30) = 0.2344325860190542D-02
        xs( 31) = 0.2533942971798636D-02
        xs( 32) = 0.2735192886557594D-02
        xs( 33) = 0.2948918280792308D-02
        xs( 34) = 0.3176058924452045D-02
        xs( 35) = 0.3417665122418835D-02
        xs( 36) = 0.3674913382343768D-02
        xs( 37) = 0.3949125110427218D-02
        xs( 38) = 0.4241788724109245D-02
        xs( 39) = 0.4554586185792222D-02
        xs( 40) = 0.4889424365923318D-02
        xs( 41) = 0.5248473604771146D-02
        xs( 42) = 0.5634213898365055D-02
        xs( 43) = 0.6049491030253371D-02
        xs( 44) = 0.6497586506097375D-02
        xs( 45) = 0.6982303302267254D-02
        xs( 46) = 0.7508074170932948D-02
        xs( 47) = 0.8080097101230073D-02
        xs( 48) = 0.8704507656623693D-02
        xs( 49) = 0.9388603206280864D-02
        xs( 50) = 0.1014113198148784D-01
        xs( 51) = 0.1097267755198283D-01
        xs( 52) = 0.1189617556525739D-01
        xs( 53) = 0.1292761868433893D-01
        xs( 54) = 0.1408705229006648D-01
        xs( 55) = 0.1539998833295750D-01
        xs( 56) = 0.1689945592061245D-01
        xs( 57) = 0.1862915908949626D-01
        xs( 58) = 0.2064871516271916D-01
        xs( 59) = 0.2304282266624419D-01
        xs( 60) = 0.2593685035910537D-01
        xs( 61) = 0.2952270341035971D-01
        xs( 62) = 0.3409925294689998D-01
        xs( 63) = 0.4013536319034019D-01
        xs( 64) = 0.4834700116660049D-01
        xs( 65) = 0.5968456655048816D-01
        xs( 66) = 0.7502167753080970D-01
        xs( 67) = 0.9444404587717641D-01
        xs( 68) = 0.1167600345489840D+00
        xs( 69) = 0.1403057673854619D+00
        xs( 70) = 0.1634671369756622D+00
        ws(  1) = 0.3544129393389876D-05
        ws(  2) = 0.8251472307975463D-05
        ws(  3) = 0.1296948706625853D-04
        ws(  4) = 0.1769474520146336D-04
        ws(  5) = 0.2243074837952510D-04
        ws(  6) = 0.2718259719991958D-04
        ws(  7) = 0.3195685868064323D-04
        ws(  8) = 0.3676151838833997D-04
        ws(  9) = 0.4160594856657612D-04
        ws( 10) = 0.4650093267308720D-04
        ws( 11) = 0.5145851325307502D-04
        ws( 12) = 0.5649201562168117D-04
        ws( 13) = 0.6161596126185601D-04
        ws( 14) = 0.6684607387400438D-04
        ws( 15) = 0.7219929795492299D-04
        ws( 16) = 0.7769386082630573D-04
        ws( 17) = 0.8334934127395932D-04
        ws( 18) = 0.8918676954457894D-04
        ws( 19) = 0.9522880842481509D-04
        ws( 20) = 0.1014998992922854D-03
        ws( 21) = 0.1080265271282313D-03
        ws( 22) = 0.1148374511727057D-03
        ws( 23) = 0.1219640098960606D-03
        ws( 24) = 0.1294404859278782D-03
        ws( 25) = 0.1373045366106567D-03
        ws( 26) = 0.1455976395197498D-03
        ws( 27) = 0.1543657281106358D-03
        ws( 28) = 0.1636597629472580D-03
        ws( 29) = 0.1735365617612816D-03
        ws( 30) = 0.1840597043470920D-03
        ws( 31) = 0.1953005405076049D-03
        ws( 32) = 0.2073395402627478D-03
        ws( 33) = 0.2202676520948165D-03
        ws( 34) = 0.2341884277439274D-03
        ws( 35) = 0.2492197377868635D-03
        ws( 36) = 0.2654966557226578D-03
        ws( 37) = 0.2831744221260504D-03
        ws( 38) = 0.3024326254666871D-03
        ws( 39) = 0.3234794623999717D-03
        ws( 40) = 0.3465578610447212D-03
        ws( 41) = 0.3719530313233513D-03
        ws( 42) = 0.4000006801764383D-03
        ws( 43) = 0.4310990975450719D-03
        ws( 44) = 0.4657238680184298D-03
        ws( 45) = 0.5044462834472672D-03
        ws( 46) = 0.5479589416813865D-03
        ws( 47) = 0.5971057839461985D-03
        ws( 48) = 0.6529268451837837D-03
        ws( 49) = 0.7167159447486040D-03
        ws( 50) = 0.7900970894406414D-03
        ws( 51) = 0.8751384518913020D-03
        ws( 52) = 0.9745067949179924D-03
        ws( 53) = 0.1091697095648355D-02
        ws( 54) = 0.1231389200481012D-02
        ws( 55) = 0.1399936882273203D-02
        ws( 56) = 0.1606199847501750D-02
        ws( 57) = 0.1862995512251923D-02
        ws( 58) = 0.2189982035984749D-02
        ws( 59) = 0.2618708445452301D-02
        ws( 60) = 0.3200670358362374D-02
        ws( 61) = 0.4019830271935877D-02
        ws( 62) = 0.5209884238940477D-02
        ws( 63) = 0.6981310354757678D-02
        ws( 64) = 0.9605094046776817D-02
        ws( 65) = 0.1322842168404104D-01
        ws( 66) = 0.1747357377238644D-01
        ws( 67) = 0.2115330714836061D-01
        ws( 68) = 0.2317972962581395D-01
        ws( 69) = 0.2371449037463673D-01
        ws( 70) = 0.2153306740456664D-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 =  74
        err = 0.6352497877265130D-07
        xs(  1) = 0.1214283521328914D-05
        xs(  2) = 0.6398264721730092D-05
        xs(  3) = 0.1572583572581748D-04
        xs(  4) = 0.2920156270893384D-04
        xs(  5) = 0.4683022429989479D-04
        xs(  6) = 0.6861933430160369D-04
        xs(  7) = 0.9458033638124829D-04
        xs(  8) = 0.1247297299848143D-03
        xs(  9) = 0.1590901875948827D-03
        xs( 10) = 0.1976916269797949D-03
        xs( 11) = 0.2405722624876474D-03
        xs( 12) = 0.2877795502412632D-03
        xs( 13) = 0.3393711162087450D-03
        xs( 14) = 0.3954156335991241D-03
        xs( 15) = 0.4559936643245044D-03
        xs( 16) = 0.5211985225179864D-03
        xs( 17) = 0.5911371589924733D-03
        xs( 18) = 0.6659310836869886D-03
        xs( 19) = 0.7457173312662610D-03
        xs( 20) = 0.8306495478566269D-03
        xs( 21) = 0.9208991603423697D-03
        xs( 22) = 0.1016656698475543D-02
        xs( 23) = 0.1118133263847339D-02
        xs( 24) = 0.1225562155738190D-02
        xs( 25) = 0.1339200730603503D-02
        xs( 26) = 0.1459332516986749D-02
        xs( 27) = 0.1586269575051144D-02
        xs( 28) = 0.1720355186257735D-02
        xs( 29) = 0.1861966936753429D-02
        xs( 30) = 0.2011520221059942D-02
        xs( 31) = 0.2169472204072964D-02
        xs( 32) = 0.2336326349015908D-02
        xs( 33) = 0.2512637753883974D-02
        xs( 34) = 0.2699019033202066D-02
        xs( 35) = 0.2896147299864589D-02
        xs( 36) = 0.3104772228718321D-02
        xs( 37) = 0.3325725274844519D-02
        xs( 38) = 0.3559930488548561D-02
        xs( 39) = 0.3808417048618078D-02
        xs( 40) = 0.4072334293820317D-02
        xs( 41) = 0.4352968987444862D-02
        xs( 42) = 0.4651765582664736D-02
        xs( 43) = 0.4970351278884315D-02
        xs( 44) = 0.5310565077610025D-02
        xs( 45) = 0.5674492445870578D-02
        xs( 46) = 0.6064508392699993D-02
        xs( 47) = 0.6483328548318792D-02
        xs( 48) = 0.6934072297730143D-02
        xs( 49) = 0.7420340388639458D-02
        xs( 50) = 0.7946312488899498D-02
        xs( 51) = 0.8516868120485386D-02
        xs( 52) = 0.9137740595217303D-02
        xs( 53) = 0.9815715584701351D-02
        xs( 54) = 0.1055888285069745D-01
        xs( 55) = 0.1137697255731199D-01
        xs( 56) = 0.1228180477890621D-01
        xs( 57) = 0.1328790285363826D-01
        xs( 58) = 0.1441334778110150D-01
        xs( 59) = 0.1568097087612985D-01
        xs( 60) = 0.1712006870155158D-01
        xs( 61) = 0.1876901412112775D-01
        xs( 62) = 0.2067962055018644D-01
        xs( 63) = 0.2292497269307261D-01
        xs( 64) = 0.2561237767201825D-01
        xs( 65) = 0.2890470575004119D-01
        xs( 66) = 0.3305411764029297D-01
        xs( 67) = 0.3845568333040189D-01
        xs( 68) = 0.4573476028467028D-01
        xs( 69) = 0.5581383110327355D-01
        xs( 70) = 0.6978568972454550D-01
        xs( 71) = 0.8834486680215151D-01
        xs( 72) = 0.1108513302608561D+00
        xs( 73) = 0.1354303780091465D+00
        xs( 74) = 0.1598859308252431D+00
        ws(  1) = 0.3116274314165487D-05
        ws(  2) = 0.7254723289104043D-05
        ws(  3) = 0.1140101481292367D-04
        ws(  4) = 0.1555121306960229D-04
        ws(  5) = 0.1970734212478174D-04
        ws(  6) = 0.2387276643073677D-04
        ws(  7) = 0.2805197438744994D-04
        ws(  8) = 0.3225056673209411D-04
        ws(  9) = 0.3647530696816011D-04
        ws( 10) = 0.4073393634845434D-04
        ws( 11) = 0.4503523380386982D-04
        ws( 12) = 0.4938892719392971D-04
        ws( 13) = 0.5380563724274214D-04
        ws( 14) = 0.5829681105744675D-04
        ws( 15) = 0.6287478603108472D-04
        ws( 16) = 0.6755273891165503D-04
        ws( 17) = 0.7234477293031907D-04
        ws( 18) = 0.7726589911272373D-04
        ws( 19) = 0.8233218423798894D-04
        ws( 20) = 0.8756079661039125D-04
        ws( 21) = 0.9297015921311134D-04
        ws( 22) = 0.9858007405528935D-04
        ws( 23) = 0.1044119082797827D-03
        ws( 24) = 0.1104887319210615D-03
        ws( 25) = 0.1168356315088330D-03
        ws( 26) = 0.1234799059320678D-03
        ws( 27) = 0.1304513694903546D-03
        ws( 28) = 0.1377827241725067D-03
        ws( 29) = 0.1455099431553369D-03
        ws( 30) = 0.1536727453447679D-03
        ws( 31) = 0.1623150406639488D-03
        ws( 32) = 0.1714856708833416D-03
        ws( 33) = 0.1812391200115041D-03
        ws( 34) = 0.1916361579007857D-03
        ws( 35) = 0.2027451754223924D-03
        ws( 36) = 0.2146430764004917D-03
        ws( 37) = 0.2274168227083423D-03
        ws( 38) = 0.2411648860110307D-03
        ws( 39) = 0.2559995114371667D-03
        ws( 40) = 0.2720491086185304D-03
        ws( 41) = 0.2894605915040390D-03
        ws( 42) = 0.3084033158919875D-03
        ws( 43) = 0.3290740082110317D-03
        ws( 44) = 0.3517004347829228D-03
        ws( 45) = 0.3765492872622195D-03
        ws( 46) = 0.4039341680959928D-03
        ws( 47) = 0.4342247632403056D-03
        ws( 48) = 0.4678612551544279D-03
        ws( 49) = 0.5053695291886065D-03
        ws( 50) = 0.5473854068375703D-03
        ws( 51) = 0.5946780988013214D-03
        ws( 52) = 0.6481937008895727D-03
        ws( 53) = 0.7090990409790109D-03
        ws( 54) = 0.7788498084051145D-03
        ws( 55) = 0.8592895630208260D-03
        ws( 56) = 0.9527815361823780D-03
        ws( 57) = 0.1062408434342263D-02
        ws( 58) = 0.1192259132569708D-02
        ws( 59) = 0.1347827675339091D-02
        ws( 60) = 0.1536695862677478D-02
        ws( 61) = 0.1769703025446514D-02
        ws( 62) = 0.2063481608116678D-02
        ws( 63) = 0.2444765199397249D-02
        ws( 64) = 0.2956628221735837D-02
        ws( 65) = 0.3669239039418494D-02
        ws( 66) = 0.4693867619110641D-02
        ws( 67) = 0.6211949867256706D-02
        ws( 68) = 0.8501407900980824D-02
        ws( 69) = 0.1184791972421145D-01
        ws( 70) = 0.1623083273484933D-01
        ws( 71) = 0.2078217830924543D-01
        ws( 72) = 0.2388915177014483D-01
        ws( 73) = 0.2500213730068102D-01
        ws( 74) = 0.2218943222682563D-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 =  78
        err = 0.9370425246237631D-07
        xs(  1) = 0.1078107476324652D-05
        xs(  2) = 0.5680482268914176D-05
        xs(  3) = 0.1396065056162227D-04
        xs(  4) = 0.2592104434723856D-04
        xs(  5) = 0.4156355124951651D-04
        xs(  6) = 0.6089167248554126D-04
        xs(  7) = 0.8391153790929744D-04
        xs(  8) = 0.1106328351500093D-03
        xs(  9) = 0.1410697212597385D-03
        xs( 10) = 0.1752416940850575D-03
        xs( 11) = 0.2131744164270474D-03
        xs( 12) = 0.2549004674731437D-03
        xs( 13) = 0.3004600597837542D-03
        xs( 14) = 0.3499017031697012D-03
        xs( 15) = 0.4032828025606844D-03
        xs( 16) = 0.4606703041874578D-03
        xs( 17) = 0.5221412873231052D-03
        xs( 18) = 0.5877836175021532D-03
        xs( 19) = 0.6576965834987772D-03
        xs( 20) = 0.7319916055490096D-03
        xs( 21) = 0.8107929957749283D-03
        xs( 22) = 0.8942387901677905D-03
        xs( 23) = 0.9824816856804340D-03
        xs( 24) = 0.1075690079048860D-02
        xs( 25) = 0.1174049177347198D-02
        xs( 26) = 0.1277762279349656D-02
        xs( 27) = 0.1387052251577268D-02
        xs( 28) = 0.1502163137144872D-02
        xs( 29) = 0.1623361972895928D-02
        xs( 30) = 0.1750940834845876D-02
        xs( 31) = 0.1885219202727604D-02
        xs( 32) = 0.2026546564375880D-02
        xs( 33) = 0.2175305383669481D-02
        xs( 34) = 0.2331914526190224D-02
        xs( 35) = 0.2496833055511614D-02
        xs( 36) = 0.2670564643460054D-02
        xs( 37) = 0.2853662646986398D-02
        xs( 38) = 0.3046735864839571D-02
        xs( 39) = 0.3250454994198294D-02
        xs( 40) = 0.3465560396399090D-02
        xs( 41) = 0.3692870813076134D-02
        xs( 42) = 0.3933293779836020D-02
        xs( 43) = 0.4187837243137126D-02
        xs( 44) = 0.4457623405274431D-02
        xs( 45) = 0.4743905650953698D-02
        xs( 46) = 0.5048087082319138D-02
        xs( 47) = 0.5371743415338681D-02
        xs( 48) = 0.5716650747841023D-02
        xs( 49) = 0.6084817113532509D-02
        xs( 50) = 0.6478521764788760D-02
        xs( 51) = 0.6900362479209524D-02
        xs( 52) = 0.7353314358801472D-02
        xs( 53) = 0.7840799007822136D-02
        xs( 54) = 0.8366773103050288D-02
        xs( 55) = 0.8935838372785538D-02
        xs( 56) = 0.9553375429584236D-02
        xs( 57) = 0.1022572679566832D-01
        xs( 58) = 0.1096042009608148D-01
        xs( 59) = 0.1176646623483118D-01
        xs( 60) = 0.1265475214042598D-01
        xs( 61) = 0.1363856386606126D-01
        xs( 62) = 0.1473433518401083D-01
        xs( 63) = 0.1596268431503624D-01
        xs( 64) = 0.1734985785868331D-01
        xs( 65) = 0.1892996574365955D-01
        xs( 66) = 0.2074848632027146D-01
        xs( 67) = 0.2286866803265232D-01
        xs( 68) = 0.2538220903068588D-01
        xs( 69) = 0.2842730343940383D-01
        xs( 70) = 0.3221911173542914D-01
        xs( 71) = 0.3709497944944411D-01
        xs( 72) = 0.4359030612547839D-01
        xs( 73) = 0.5252856773984583D-01
        xs( 74) = 0.6502506846325987D-01
        xs( 75) = 0.8219776550229779D-01
        xs( 76) = 0.1042242703102920D+00
        xs( 77) = 0.1295031573176159D+00
        xs( 78) = 0.1554921686197728D+00
        ws(  1) = 0.2766764290755120D-05
        ws(  2) = 0.6440546025672113D-05
        ws(  3) = 0.1012004489417817D-04
        ws(  4) = 0.1380103482580882D-04
        ws(  5) = 0.1748454675423582D-04
        ws(  6) = 0.2117270439263921D-04
        ws(  7) = 0.2486862921585941D-04
        ws(  8) = 0.2857631140736744D-04
        ws(  9) = 0.3230068786802330D-04
        ws( 10) = 0.3604752043477575D-04
        ws( 11) = 0.3982334317734898D-04
        ws( 12) = 0.4363545874251285D-04
        ws( 13) = 0.4749180505141254D-04
        ws( 14) = 0.5140102665514212D-04
        ws( 15) = 0.5537232319644254D-04
        ws( 16) = 0.5941551902482447D-04
        ws( 17) = 0.6354107977842469D-04
        ws( 18) = 0.6776011654015534D-04
        ws( 19) = 0.7208437485542622D-04
        ws( 20) = 0.7652637251803098D-04
        ws( 21) = 0.8109939932951935D-04
        ws( 22) = 0.8581762539761833D-04
        ws( 23) = 0.9069621482808624D-04
        ws( 24) = 0.9575141735908672D-04
        ws( 25) = 0.1010006401717522D-03
        ws( 26) = 0.1064626842277372D-03
        ws( 27) = 0.1121579047584552D-03
        ws( 28) = 0.1181083390866446D-03
        ws( 29) = 0.1243379697837113D-03
        ws( 30) = 0.1308729625437831D-03
        ws( 31) = 0.1377419753873265D-03
        ws( 32) = 0.1449764406487180D-03
        ws( 33) = 0.1526109517411894D-03
        ws( 34) = 0.1606837663512879D-03
        ws( 35) = 0.1692371523190406D-03
        ws( 36) = 0.1783181503142493D-03
        ws( 37) = 0.1879792207103890D-03
        ws( 38) = 0.1982788695725378D-03
        ws( 39) = 0.2092826423125588D-03
        ws( 40) = 0.2210644409514567D-03
        ws( 41) = 0.2337074506413861D-03
        ws( 42) = 0.2473062549965399D-03
        ws( 43) = 0.2619674070087869D-03
        ws( 44) = 0.2778135275192197D-03
        ws( 45) = 0.2949844295705918D-03
        ws( 46) = 0.3136405899477810D-03
        ws( 47) = 0.3339675939290488D-03
        ws( 48) = 0.3561811027633394D-03
        ws( 49) = 0.3805307556447097D-03
        ws( 50) = 0.4073105094619219D-03
        ws( 51) = 0.4368656491288404D-03
        ws( 52) = 0.4696069049933054D-03
        ws( 53) = 0.5060199799193983D-03
        ws( 54) = 0.5466930591199369D-03
        ws( 55) = 0.5923310417246103D-03
        ws( 56) = 0.6437965885210363D-03
        ws( 57) = 0.7021557366808951D-03
        ws( 58) = 0.7687262264612517D-03
        ws( 59) = 0.8451721025579089D-03
        ws( 60) = 0.9336017261834422D-03
        ws( 61) = 0.1036743296036895D-02
        ws( 62) = 0.1158213400900057D-02
        ws( 63) = 0.1302821222739909D-02
        ws( 64) = 0.1477159059716708D-02
        ws( 65) = 0.1690530542020625D-02
        ws( 66) = 0.1956879310058456D-02
        ws( 67) = 0.2298489619516423D-02
        ws( 68) = 0.2751100039106256D-02
        ws( 69) = 0.3374260571767908D-02
        ws( 70) = 0.4264307737082322D-02
        ws( 71) = 0.5574897959325400D-02
        ws( 72) = 0.7552530780365273D-02
        ws( 73) = 0.1051364479687172D-01
        ws( 74) = 0.1468114037041379D-01
        ws( 75) = 0.1971899106252630D-01
        ws( 76) = 0.2403634380766267D-01
        ws( 77) = 0.2612260615560220D-01
        ws( 78) = 0.2443638343045685D-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 =  83
        err = 0.6363682107512368D-07
        xs(  1) = 0.9524159463324211D-06
        xs(  2) = 0.5018218820210030D-05
        xs(  3) = 0.1233294963333283D-04
        xs(  4) = 0.2289856389545814D-04
        xs(  5) = 0.3671629186616940D-04
        xs(  6) = 0.5378845449325476D-04
        xs(  7) = 0.7411920362170968D-04
        xs(  8) = 0.9771521163805301D-04
        xs(  9) = 0.1245863555725464D-03
        xs( 10) = 0.1547463731965249D-03
        xs( 11) = 0.1882134948996328D-03
        xs( 12) = 0.2250110124813682D-03
        xs( 13) = 0.2651678358196465D-03
        xs( 14) = 0.3087189893467854D-03
        xs( 15) = 0.3557060874631844D-03
        xs( 16) = 0.4061777941770808D-03
        xs( 17) = 0.4601902617606071D-03
        xs( 18) = 0.5178075872678136D-03
        xs( 19) = 0.5791022811456461D-03
        xs( 20) = 0.6441557243875851D-03
        xs( 21) = 0.7130586908244530D-03
        xs( 22) = 0.7859118972210075D-03
        xs( 23) = 0.8628266084194383D-03
        xs( 24) = 0.9439252837485847D-03
        xs( 25) = 0.1029342309642015D-02
        xs( 26) = 0.1119224794750910D-02
        xs( 27) = 0.1213733473339051D-02
        xs( 28) = 0.1313043689727392D-02
        xs( 29) = 0.1417346494299171D-02
        xs( 30) = 0.1526849924222055D-02
        xs( 31) = 0.1641780354454569D-02
        xs( 32) = 0.1762384037353286D-02
        xs( 33) = 0.1888928903336331D-02
        xs( 34) = 0.2021706451511486D-02
        xs( 35) = 0.2161033976451344D-02
        xs( 36) = 0.2307257055621986D-02
        xs( 37) = 0.2460752339242164D-02
        xs( 38) = 0.2621930719934215D-02
        xs( 39) = 0.2791240902024308D-02
        xs( 40) = 0.2969173535794110D-02
        xs( 41) = 0.3156265713952586D-02
        xs( 42) = 0.3353106445710966D-02
        xs( 43) = 0.3560342627008487D-02
        xs( 44) = 0.3778685910928428D-02
        xs( 45) = 0.4008920884544738D-02
        xs( 46) = 0.4251914259271612D-02
        xs( 47) = 0.4508625488055406D-02
        xs( 48) = 0.4780119462052421D-02
        xs( 49) = 0.5067580793104836D-02
        xs( 50) = 0.5372331113017760D-02
        xs( 51) = 0.5695849219625986D-02
        xs( 52) = 0.6039794696936143D-02
        xs( 53) = 0.6406036615710545D-02
        xs( 54) = 0.6796687290079715D-02
        xs( 55) = 0.7214142895637635D-02
        xs( 56) = 0.7661132837040809D-02
        xs( 57) = 0.8140780427590468D-02
        xs( 58) = 0.8656676152168056D-02
        xs( 59) = 0.9212969137007272D-02
        xs( 60) = 0.9814482380535816D-02
        xs( 61) = 0.1046685476012856D-01
        xs( 62) = 0.1117672806165177D-01
        xs( 63) = 0.1195197819271309D-01
        xs( 64) = 0.1280202584197278D-01
        xs( 65) = 0.1373824795743876D-01
        xs( 66) = 0.1477453264082998D-01
        xs( 67) = 0.1592805656477154D-01
        xs( 68) = 0.1722035087309880D-01
        xs( 69) = 0.1867883395235837D-01
        xs( 70) = 0.2033913039386967D-01
        xs( 71) = 0.2224898197730962D-01
        xs( 72) = 0.2447551826786689D-01
        xs( 73) = 0.2711691663997618D-01
        xs( 74) = 0.3032110231137530D-01
        xs( 75) = 0.3431483868720949D-01
        xs( 76) = 0.3944851241434074D-01
        xs( 77) = 0.4627277784270545D-01
        xs( 78) = 0.5563090913383792D-01
        xs( 79) = 0.6865596249663922D-01
        xs( 80) = 0.8642812347580590D-01
        xs( 81) = 0.1090341323681082D+00
        xs( 82) = 0.1348773783253895D+00
        xs( 83) = 0.1614340544131375D+00
        ws(  1) = 0.2444205304998583D-05
        ws(  2) = 0.5689641493399555D-05
        ws(  3) = 0.8940014351340892D-05
        ws(  4) = 0.1219140329935968D-04
        ws(  5) = 0.1544443020906840D-04
        ws(  6) = 0.1870057613472165D-04
        ws(  7) = 0.2196202268440740D-04
        ws(  8) = 0.2523162991213663D-04
        ws(  9) = 0.2851293700471017D-04
        ws( 10) = 0.3181012544289085D-04
        ws( 11) = 0.3512798459985802D-04
        ws( 12) = 0.3847186301498665D-04
        ws( 13) = 0.4184761802717403D-04
        ws( 14) = 0.4526161645298899D-04
        ws( 15) = 0.4872068385886992D-04
        ws( 16) = 0.5223207732801588D-04
        ws( 17) = 0.5580352919808198D-04
        ws( 18) = 0.5944320502390777D-04
        ws( 19) = 0.6315973855828897D-04
        ws( 20) = 0.6696226441146706D-04
        ws( 21) = 0.7086044251262275D-04
        ws( 22) = 0.7486450590901036D-04
        ws( 23) = 0.7898531295054974D-04
        ws( 24) = 0.8323442124830253D-04
        ws( 25) = 0.8762413411977643D-04
        ws( 26) = 0.9216760818712179D-04
        ws( 27) = 0.9687895349776369D-04
        ws( 28) = 0.1017732969772592D-03
        ws( 29) = 0.1068669633616293D-03
        ws( 30) = 0.1121775992365083D-03
        ws( 31) = 0.1177242713520708D-03
        ws( 32) = 0.1235277206024188D-03
        ws( 33) = 0.1296105535129442D-03
        ws( 34) = 0.1359973837027777D-03
        ws( 35) = 0.1427152164852250D-03
        ws( 36) = 0.1497936623038523D-03
        ws( 37) = 0.1572653298223801D-03
        ws( 38) = 0.1651661432714072D-03
        ws( 39) = 0.1735359223934417D-03
        ws( 40) = 0.1824187656169016D-03
        ws( 41) = 0.1918636656244608D-03
        ws( 42) = 0.2019255004138721D-03
        ws( 43) = 0.2126653334744155D-03
        ws( 44) = 0.2241518458183708D-03
        ws( 45) = 0.2364623824320631D-03
        ws( 46) = 0.2496840640575837D-03
        ws( 47) = 0.2639156517362294D-03
        ws( 48) = 0.2792694388543943D-03
        ws( 49) = 0.2958731653285906D-03
        ws( 50) = 0.3138735497646855D-03
        ws( 51) = 0.3334387834590418D-03
        ws( 52) = 0.3547631326002768D-03
        ws( 53) = 0.3780720796600698D-03
        ws( 54) = 0.4036278156454094D-03
        ws( 55) = 0.4317372739152771D-03
        ws( 56) = 0.4627619474740601D-03
        ws( 57) = 0.4971301627192995D-03
        ws( 58) = 0.5353508355792500D-03
        ws( 59) = 0.5780367334657327D-03
        ws( 60) = 0.6259263422392532D-03
        ws( 61) = 0.6799217098772912D-03
        ws( 62) = 0.7411323325256905D-03
        ws( 63) = 0.8109313356721818D-03
        ws( 64) = 0.8910510410159696D-03
        ws( 65) = 0.9836950611486468D-03
        ws( 66) = 0.1091719572640259D-02
        ws( 67) = 0.1218892329038914D-02
        ws( 68) = 0.1370228028214230D-02
        ws( 69) = 0.1552616974027481D-02
        ws( 70) = 0.1775811740625087D-02
        ws( 71) = 0.2054891446408291D-02
        ws( 72) = 0.2414245692781470D-02
        ws( 73) = 0.2892716178193316D-02
        ws( 74) = 0.3552769245502141D-02
        ws( 75) = 0.4491806989965229D-02
        ws( 76) = 0.5865538293155042D-02
        ws( 77) = 0.7922983524029497D-02
        ws( 78) = 0.1098696485318792D-01
        ws( 79) = 0.1525944161768766D-01
        ws( 80) = 0.2031986786694971D-01
        ws( 81) = 0.2459870487427774D-01
        ws( 82) = 0.2669725824146553D-01
        ws( 83) = 0.2466990715956173D-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 =  22
        err = 0.8677445702598597D-07
        xs(  1) = 0.4465262873441906D-03
        xs(  2) = 0.2312017111182789D-02
        xs(  3) = 0.5515058875992463D-02
        xs(  4) = 0.9852969925486302D-02
        xs(  5) = 0.1512840282842060D-01
        xs(  6) = 0.2117720965196693D-01
        xs(  7) = 0.2786915102563140D-01
        xs(  8) = 0.3510159116044648D-01
        xs(  9) = 0.4279347177480551D-01
        xs( 10) = 0.5088066482595821D-01
        xs( 11) = 0.5931245122429732D-01
        xs( 12) = 0.6804881807379061D-01
        xs( 13) = 0.7705840395027343D-01
        xs( 14) = 0.8631692545794525D-01
        xs( 15) = 0.9580611525086845D-01
        xs( 16) = 0.1055130679599720D+00
        xs( 17) = 0.1154296406438668D+00
        xs( 18) = 0.1255534504385102D+00
        xs( 19) = 0.1358889972289695D+00
        xs( 20) = 0.1464535978801974D+00
        xs( 21) = 0.1571712746084316D+00
        xs( 22) = 0.1690046545663381D+00
        ws(  1) = 0.1141222210657840D-02
        ws(  2) = 0.2565570628432193D-02
        ws(  3) = 0.3805457762179367D-02
        ws(  4) = 0.4837077925221121D-02
        ws(  5) = 0.5686468608149673D-02
        ws(  6) = 0.6389556935568508D-02
        ws(  7) = 0.6977321592284314D-02
        ws(  8) = 0.7474126234700133D-02
        ws(  9) = 0.7899005967827505D-02
        ws( 10) = 0.8266973694195368D-02
        ws( 11) = 0.8589967827682113D-02
        ws( 12) = 0.8877575029267120D-02
        ws( 13) = 0.9137592715594025D-02
        ws( 14) = 0.9376474380945557D-02
        ws( 15) = 0.9599911554455965D-02
        ws( 16) = 0.9813010362083138D-02
        ws( 17) = 0.1002083845067224D-01
        ws( 18) = 0.1023150308211807D-01
        ws( 19) = 0.1045212219047693D-01
        ws( 20) = 0.1072424761096834D-01
        ws( 21) = 0.1087681151979621D-01
        ws( 22) = 0.1470603014719060D-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 =  22
        err = 0.7569182598848036D-07
        xs(  1) = 0.4410973375617943D-03
        xs(  2) = 0.2287012277644881D-02
        xs(  3) = 0.5465340374635783D-02
        xs(  4) = 0.9780952581688500D-02
        xs(  5) = 0.1503879434931829D-01
        xs(  6) = 0.2107429712056172D-01
        xs(  7) = 0.2775622983701917D-01
        xs(  8) = 0.3498109407861400D-01
        xs(  9) = 0.4266718381552445D-01
        xs( 10) = 0.5074989067510715D-01
        xs( 11) = 0.5917813372805916D-01
        xs( 12) = 0.6791162455914375D-01
        xs( 13) = 0.7691879011700523D-01
        xs( 14) = 0.8617518886203356D-01
        xs( 15) = 0.9566243316862175D-01
        xs( 16) = 0.1053675276512343D+00
        xs( 17) = 0.1152823024760096D+00
        xs( 18) = 0.1254043546409347D+00
        xs( 19) = 0.1357381446991186D+00
        xs( 20) = 0.1463010447705624D+00
        xs( 21) = 0.1570206149333264D+00
        xs( 22) = 0.1688621586748069D+00
        ws(  1) = 0.1127747062275196D-02
        ws(  2) = 0.2541717635257967D-02
        ws(  3) = 0.3781181144711248D-02
        ws(  4) = 0.4817078553516896D-02
        ws(  5) = 0.5671180166691046D-02
        ws(  6) = 0.6378062850453078D-02
        ws(  7) = 0.6968654108032830D-02
        ws(  8) = 0.7467534871919660D-02
        ws(  9) = 0.7893936236550231D-02
        ws( 10) = 0.8263011087816508D-02
        ws( 11) = 0.8586798049496676D-02
        ws( 12) = 0.8874957023402704D-02
        ws( 13) = 0.9135342363623849D-02
        ws( 14) = 0.9374457302383015D-02
        ws( 15) = 0.9598022217107347D-02
        ws( 16) = 0.9811185747491563D-02
        ws( 17) = 0.1001906266412305D-01
        ws( 18) = 0.1022969842744197D-01
        ws( 19) = 0.1045075960523122D-01
        ws( 20) = 0.1072171372308724D-01
        ws( 21) = 0.1090197273872826D-01
        ws( 22) = 0.1462687133121781D-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 =  23
        err = 0.3639920987852316D-07
        xs(  1) = 0.3937055906584733D-03
        xs(  2) = 0.2048444351728368D-02
        xs(  3) = 0.4923467015919614D-02
        xs(  4) = 0.8871932337380040D-02
        xs(  5) = 0.1373725870528059D-01
        xs(  6) = 0.1937924638324571D-01
        xs(  7) = 0.2568031709173106D-01
        xs(  8) = 0.3254353370079949D-01
        xs(  9) = 0.3988920514519640D-01
        xs( 10) = 0.4765195476361173D-01
        xs( 11) = 0.5577836341835849D-01
        xs( 12) = 0.6422502198101122D-01
        xs( 13) = 0.7295688659793095D-01
        xs( 14) = 0.8194590596127774D-01
        xs( 15) = 0.9116992040141617D-01
        xs( 16) = 0.1006117579045598D+00
        xs( 17) = 0.1102586845705952D+00
        xs( 18) = 0.1201020488874268D+00
        xs( 19) = 0.1301364794236324D+00
        xs( 20) = 0.1403629518953940D+00
        xs( 21) = 0.1507754854871790D+00
        xs( 22) = 0.1614492463023330D+00
        xs( 23) = 0.1720238709369963D+00
        ws(  1) = 0.1007416732818554D-02
        ws(  2) = 0.2286386972328940D-02
        ws(  3) = 0.3438331617893191D-02
        ws(  4) = 0.4432080654328393D-02
        ws(  5) = 0.5275135723627890D-02
        ws(  6) = 0.5989291139231981D-02
        ws(  7) = 0.6596753854101438D-02
        ws(  8) = 0.7116446343131236D-02
        ws(  9) = 0.7564039610656554D-02
        ws( 10) = 0.7952589372538767D-02
        ws( 11) = 0.8293021841402763D-02
        ws( 12) = 0.8594481244260528D-02
        ws( 13) = 0.8864599654814590D-02
        ws( 14) = 0.9109784205856016D-02
        ws( 15) = 0.9335447981987552D-02
        ws( 16) = 0.9546255085799461D-02
        ws( 17) = 0.9746609014730925D-02
        ws( 18) = 0.9940582456991283D-02
        ws( 19) = 0.1013236004442954D-01
        ws( 20) = 0.1033024469808831D-01
        ws( 21) = 0.1058351110854901D-01
        ws( 22) = 0.1060017463941903D-01
        ws( 23) = 0.1344134740068548D-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 =  21
        err = 0.4461684815640014D-07
        xs(  1) = 0.3797021992733759D-03
        xs(  2) = 0.1999955220635860D-02
        xs(  3) = 0.4883916450442738D-02
        xs(  4) = 0.8930259020049375D-02
        xs(  5) = 0.1398617429947192D-01
        xs(  6) = 0.1989161398887186D-01
        xs(  7) = 0.2650396267322749D-01
        xs(  8) = 0.3370499297727699D-01
        xs(  9) = 0.4140000786560809D-01
        xs( 10) = 0.4951446383769515D-01
        xs( 11) = 0.5799022325253515D-01
        xs( 12) = 0.6678222520584645D-01
        xs( 13) = 0.7585581880363990D-01
        xs( 14) = 0.8518474208083188D-01
        xs( 15) = 0.9474972023720982D-01
        xs( 16) = 0.1045377038299236D+00
        xs( 17) = 0.1145414627168058D+00
        xs( 18) = 0.1247605038352124D+00
        xs( 19) = 0.1352042626043106D+00
        xs( 20) = 0.1458859002301344D+00
        xs( 21) = 0.1569846232075552D+00
        ws(  1) = 0.9747526097850918D-03
        ws(  2) = 0.2262497431890550D-02
        ws(  3) = 0.3487952682972772D-02
        ws(  4) = 0.4578428293148153D-02
        ws(  5) = 0.5506341553258836D-02
        ws(  6) = 0.6280678446784545D-02
        ws(  7) = 0.6924340013206322D-02
        ws(  8) = 0.7461998814616975D-02
        ws(  9) = 0.7915672118188329D-02
        ws( 10) = 0.8303609229576450D-02
        ws( 11) = 0.8640451479909522D-02
        ws( 12) = 0.8937829697984217D-02
        ws( 13) = 0.9205056167231053D-02
        ws( 14) = 0.9449751783880637D-02
        ws( 15) = 0.9678551437605504D-02
        ws( 16) = 0.9897674608361898D-02
        ws( 17) = 0.1011378133533092D-01
        ws( 18) = 0.1033964141250965D-01
        ws( 19) = 0.1060746435611550D-01
        ws( 20) = 0.1100245888651296D-01
        ws( 21) = 0.1275023842461143D-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 =  22
        err = 0.5424623909958896D-07
        xs(  1) = 0.3349344170281072D-03
        xs(  2) = 0.1778536681353855D-02
        xs(  3) = 0.4394790496594278D-02
        xs(  4) = 0.8133910580674236D-02
        xs(  5) = 0.1287389858099385D-01
        xs(  6) = 0.1846849539557494D-01
        xs(  7) = 0.2478189966717370D-01
        xs(  8) = 0.3169961746425418D-01
        xs(  9) = 0.3912845548807830D-01
        xs( 10) = 0.4699364898033933D-01
        xs( 11) = 0.5523568148658989D-01
        xs( 12) = 0.6380743790215740D-01
        xs( 13) = 0.7267184269529796D-01
        xs( 14) = 0.8179998768395827D-01
        xs( 15) = 0.9116969045074130D-01
        xs( 16) = 0.1007645354394325D+00
        xs( 17) = 0.1105732073312408D+00
        xs( 18) = 0.1205891309146601D+00
        xs( 19) = 0.1308117717427806D+00
        xs( 20) = 0.1412444558556307D+00
        xs( 21) = 0.1519084422156281D+00
        xs( 22) = 0.1626572322296414D+00
        ws(  1) = 0.8615762679708861D-03
        ws(  2) = 0.2030778931633444D-02
        ws(  3) = 0.3193350551311424D-02
        ws(  4) = 0.4263558696931663D-02
        ws(  5) = 0.5191466483551214D-02
        ws(  6) = 0.5974953229225899D-02
        ws(  7) = 0.6632790237636104D-02
        ws(  8) = 0.7187165863823504D-02
        ws(  9) = 0.7658104073593802D-02
        ws( 10) = 0.8062412681304625D-02
        ws( 11) = 0.8413842872206614D-02
        ws( 12) = 0.8723530370702793D-02
        ws( 13) = 0.9000507886456016D-02
        ws( 14) = 0.9252164190725084D-02
        ws( 15) = 0.9484709630818704D-02
        ws( 16) = 0.9703673839990079D-02
        ws( 17) = 0.9914087917135741D-02
        ws( 18) = 0.1012205444580256D-01
        ws( 19) = 0.1034043881551491D-01
        ws( 20) = 0.1059039704387211D-01
        ws( 21) = 0.1099269615195577D-01
        ws( 22) = 0.1199918295680967D-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 =  22
        err = 0.8771695992431150D-07
        xs(  1) = 0.2240383432599194D-03
        xs(  2) = 0.1214441661432348D-02
        xs(  3) = 0.3114653142607456D-02
        xs(  4) = 0.6046747297274915D-02
        xs(  5) = 0.1004814241433449D-01
        xs(  6) = 0.1504673060746729D-01
        xs(  7) = 0.2091060497748544D-01
        xs(  8) = 0.2750059649648566D-01
        xs(  9) = 0.3469444345563794D-01
        xs( 10) = 0.4239252388271298D-01
        xs( 11) = 0.5051643620131439D-01
        xs( 12) = 0.5900552652514352D-01
        xs( 13) = 0.6781331512032064D-01
        xs( 14) = 0.7690448118570332D-01
        xs( 15) = 0.8625258358505504D-01
        xs( 16) = 0.9583846285117836D-01
        xs( 17) = 0.1056492969656615D+00
        xs( 18) = 0.1156783588958111D+00
        xs( 19) = 0.1259255687715434D+00
        xs( 20) = 0.1363989046279427D+00
        xs( 21) = 0.1471107999083216D+00
        xs( 22) = 0.1582364622419963D+00
        ws(  1) = 0.5790086288687266D-03
        ws(  2) = 0.1422280962855838D-02
        ws(  3) = 0.2400331579929006D-02
        ws(  4) = 0.3470516565677478D-02
        ws(  5) = 0.4519176756845667D-02
        ws(  6) = 0.5455084285850710D-02
        ws(  7) = 0.6249109235256092D-02
        ws(  8) = 0.6910428153963642D-02
        ws(  9) = 0.7460696830524611D-02
        ws( 10) = 0.7922460343005925D-02
        ws( 11) = 0.8315319170989436D-02
        ws( 12) = 0.8655172860871726D-02
        ws( 13) = 0.8954574335215055D-02
        ws( 14) = 0.9223433474534821D-02
        ws( 15) = 0.9469765886773231D-02
        ws( 16) = 0.9700360457886442D-02
        ws( 17) = 0.9921545180813514D-02
        ws( 18) = 0.1014050024923589D-01
        ws( 19) = 0.1036927394354975D-01
        ws( 20) = 0.1063778372074246D-01
        ws( 21) = 0.1101504289435370D-01
        ws( 22) = 0.1284001373710272D-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 =  22
        err = 0.7368375362341731D-07
        xs(  1) = 0.1630673530967432D-03
        xs(  2) = 0.8877280246959510D-03
        xs(  3) = 0.2307283282220033D-02
        xs(  4) = 0.4601615688404511D-02
        xs(  5) = 0.7944267104405376D-02
        xs(  6) = 0.1239283394045575D-01
        xs(  7) = 0.1785858598228995D-01
        xs(  8) = 0.2417873789060689D-01
        xs(  9) = 0.3119150458501774D-01
        xs( 10) = 0.3876573401310367D-01
        xs( 11) = 0.4680246635589295D-01
        xs( 12) = 0.5522847851780664D-01
        xs( 13) = 0.6398967207094441D-01
        xs( 14) = 0.7304603641277746D-01
        xs( 15) = 0.8236820917773555D-01
        xs( 16) = 0.9193512871091902D-01
        xs( 17) = 0.1017330300630126D+00
        xs( 18) = 0.1117546006551736D+00
        xs( 19) = 0.1219991509473710D+00
        xs( 20) = 0.1324775212633468D+00
        xs( 21) = 0.1432083175090446D+00
        xs( 22) = 0.1542938709402134D+00
        ws(  1) = 0.4217232653801851D-03
        ws(  2) = 0.1046535576711262D-02
        ws(  3) = 0.1823796984892789D-02
        ws(  4) = 0.2796016560669462D-02
        ws(  5) = 0.3899469294484584D-02
        ws(  6) = 0.4981307047249700D-02
        ws(  7) = 0.5921721820935035D-02
        ws(  8) = 0.6691197821680799D-02
        ws(  9) = 0.7312499964206053D-02
        ws( 10) = 0.7819590200812906D-02
        ws( 11) = 0.8241786722813407D-02
        ws( 12) = 0.8601314536924505D-02
        ws( 13) = 0.8914480491717067D-02
        ws( 14) = 0.9193459149466459D-02
        ws( 15) = 0.9447580535020391D-02
        ws( 16) = 0.9684533948960156D-02
        ws( 17) = 0.9911584567171249D-02
        ws( 18) = 0.1013562255581313D-01
        ws( 19) = 0.1037047355539099D-01
        ws( 20) = 0.1065053625690635D-01
        ws( 21) = 0.1106799358466764D-01
        ws( 22) = 0.1259634202206662D-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 =  27
        err = 0.2766188661425112D-07
        xs(  1) = 0.7133044420414353D-04
        xs(  2) = 0.3832480477237898D-03
        xs(  3) = 0.9760584279294701D-03
        xs(  4) = 0.1909547931576636D-02
        xs(  5) = 0.3280498116740242D-02
        xs(  6) = 0.5227845687273023D-02
        xs(  7) = 0.7921849578561551D-02
        xs(  8) = 0.1151951143587789D-01
        xs(  9) = 0.1609523342449109D-01
        xs( 10) = 0.2160566120039126D-01
        xs( 11) = 0.2792610039058610D-01
        xs( 12) = 0.3491344421621568D-01
        xs( 13) = 0.4244386210142685D-01
        xs( 14) = 0.5042180091340705D-01
        xs( 15) = 0.5877627258685462D-01
        xs( 16) = 0.6745473070810848D-01
        xs( 17) = 0.7641796222079660D-01
        xs( 18) = 0.8563652307641299D-01
        xs( 19) = 0.9508835174928448D-01
        xs( 20) = 0.1047573379104921D+00
        xs( 21) = 0.1146323909108325D+00
        xs( 22) = 0.1247063724903919D+00
        xs( 23) = 0.1349782716516535D+00
        xs( 24) = 0.1454478279133631D+00
        xs( 25) = 0.1561670530907686D+00
        xs( 26) = 0.1665427694583983D+00
        xs( 27) = 0.1795494787376743D+00
        ws(  1) = 0.1838894765970936D-03
        ws(  2) = 0.4450588541285691D-03
        ws(  3) = 0.7503797915254323D-03
        ws(  4) = 0.1132613510288471D-02
        ws(  5) = 0.1632568079985678D-02
        ws(  6) = 0.2291245689447613D-02
        ws(  7) = 0.3124262878315968D-02
        ws(  8) = 0.4084181343400002D-02
        ws(  9) = 0.5059266779923126D-02
        ws( 10) = 0.5939610852522032D-02
        ws( 11) = 0.6676802424440414D-02
        ws( 12) = 0.7277144186486795D-02
        ws( 13) = 0.7767851294457670D-02
        ws( 14) = 0.8176303249770636D-02
        ws( 15) = 0.8523967876890496D-02
        ws( 16) = 0.8826470065697386D-02
        ws( 17) = 0.9095125570243100D-02
        ws( 18) = 0.9338352495697351D-02
        ws( 19) = 0.9562660403629472D-02
        ws( 20) = 0.9773534090877998D-02
        ws( 21) = 0.9975389779228650D-02
        ws( 22) = 0.1017240320540162D-01
        ws( 23) = 0.1037657591796590D-01
        ws( 24) = 0.1055318556989416D-01
        ws( 25) = 0.1098637344626054D-01
        ws( 26) = 0.9573295601594449D-02
        ws( 27) = 0.1969791026779922D-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 =  30
        err = 0.9899201911370650D-07
        xs(  1) = 0.2982281947848242D-04
        xs(  2) = 0.1585989694184945D-03
        xs(  3) = 0.3964735649262641D-03
        xs(  4) = 0.7550268693352004D-03
        xs(  5) = 0.1253024807195523D-02
        xs(  6) = 0.1919041623461377D-02
        xs(  7) = 0.2795410643285049D-02
        xs(  8) = 0.3944082122333456D-02
        xs(  9) = 0.5454811533453138D-02
        xs( 10) = 0.7454948708537271D-02
        xs( 11) = 0.1011594723033811D-01
        xs( 12) = 0.1364160781351556D-01
        xs( 13) = 0.1821333821447424D-01
        xs( 14) = 0.2389616936322939D-01
        xs( 15) = 0.3058938605071441D-01
        xs( 16) = 0.3809046544381349D-01
        xs( 17) = 0.4619715138318201D-01
        xs( 18) = 0.5475717167224618D-01
        xs( 19) = 0.6366911766232693D-01
        xs( 20) = 0.7286803246021628D-01
        xs( 21) = 0.8231221610357703D-01
        xs( 22) = 0.9197464451091339D-01
        xs( 23) = 0.1018379362223609D+00
        xs( 24) = 0.1118910659678224D+00
        xs( 25) = 0.1221275930599128D+00
        xs( 26) = 0.1325479584446627D+00
        xs( 27) = 0.1431580974901627D+00
        xs( 28) = 0.1540340862471031D+00
        xs( 29) = 0.1648130058258243D+00
        xs( 30) = 0.1895740604977525D+00
        ws(  1) = 0.7670002026339728D-04
        ws(  2) = 0.1818932698707549D-03
        ws(  3) = 0.2957557137994443D-03
        ws(  4) = 0.4244361732317782D-03
        ws(  5) = 0.5762576391576247D-03
        ws(  6) = 0.7627352340628640D-03
        ws(  7) = 0.1000190671505152D-02
        ws(  8) = 0.1311939416254610D-02
        ws(  9) = 0.1730602759180847D-02
        ws( 10) = 0.2298371687028995D-02
        ws( 11) = 0.3058473427032296D-02
        ws( 12) = 0.4024886872979511D-02
        ws( 13) = 0.5130503071301917D-02
        ws( 14) = 0.6217028085787723D-02
        ws( 15) = 0.7133682414123174D-02
        ws( 16) = 0.7833998231569727D-02
        ws( 17) = 0.8354074521371740D-02
        ws( 18) = 0.8749337402093256D-02
        ws( 19) = 0.9063953485597178D-02
        ws( 20) = 0.9327062356428826D-02
        ws( 21) = 0.9556859479333267D-02
        ws( 22) = 0.9765062100235358D-02
        ws( 23) = 0.9959667270714744D-02
        ws( 24) = 0.1014587527094661D-01
        ws( 25) = 0.1032767965752822D-01
        ws( 26) = 0.1050782351916812D-01
        ws( 27) = 0.1067125754577344D-01
        ws( 28) = 0.1094937175368379D-01
        ws( 29) = 0.1280111114974756D-01
        ws( 30) = 0.5130866465520060D-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 =  32
        err = 0.5385535004202898D-07
        xs(  1) = 0.1594449289131995D-04
        xs(  2) = 0.8441403279333166D-04
        xs(  3) = 0.2092882667099584D-03
        xs(  4) = 0.3936788207290131D-03
        xs(  5) = 0.6424513171050772D-03
        xs(  6) = 0.9627019095546906D-03
        xs(  7) = 0.1364405409908490D-02
        xs(  8) = 0.1861335874493220D-02
        xs(  9) = 0.2472398337223133D-02
        xs( 10) = 0.3223586863860203D-02
        xs( 11) = 0.4150899833652035D-02
        xs( 12) = 0.5304714472591857D-02
        xs( 13) = 0.6756336023772051D-02
        xs( 14) = 0.8607566569422112D-02
        xs( 15) = 0.1100362298746643D-01
        xs( 16) = 0.1414666814263152D-01
        xs( 17) = 0.1829578813497127D-01
        xs( 18) = 0.2371599605647233D-01
        xs( 19) = 0.3054633326697744D-01
        xs( 20) = 0.3867661536072937D-01
        xs( 21) = 0.4779881422995777D-01
        xs( 22) = 0.5758248849972472D-01
        xs( 23) = 0.6778451150363925D-01
        xs( 24) = 0.7825735437755404D-01
        xs( 25) = 0.8891993537305307D-01
        xs( 26) = 0.9973097761981135D-01
        xs( 27) = 0.1106714268590601D+00
        xs( 28) = 0.1217355946292576D+00
        xs( 29) = 0.1329208540835611D+00
        xs( 30) = 0.1442565079230479D+00
        xs( 31) = 0.1558201429222922D+00
        xs( 32) = 0.1669705279704997D+00
        ws(  1) = 0.4096431931611862D-04
        ws(  2) = 0.9627825253788924D-04
        ws(  3) = 0.1539816519402761D-03
        ws(  4) = 0.2156027661089699D-03
        ws(  5) = 0.2831143269305320D-03
        ws(  6) = 0.3590342995477993D-03
        ws(  7) = 0.4466466783577552D-03
        ws(  8) = 0.5503332235397502D-03
        ws(  9) = 0.6760766321249947D-03
        ws( 10) = 0.8322289408054958D-03
        ws( 11) = 0.1030686270632973D-02
        ws( 12) = 0.1288669244408965D-02
        ws( 13) = 0.1631321888793416D-02
        ws( 14) = 0.2095090258621976D-02
        ws( 15) = 0.2730624117111566D-02
        ws( 16) = 0.3599364684963840D-02
        ws( 17) = 0.4745433427647747D-02
        ws( 18) = 0.6120818922987344D-02
        ws( 19) = 0.7520457063261300D-02
        ws( 20) = 0.8685199429678984D-02
        ws( 21) = 0.9502289554309037D-02
        ws( 22) = 0.1002460711575429D-01
        ws( 23) = 0.1035543674882071D-01
        ws( 24) = 0.1057721570539683D-01
        ws( 25) = 0.1074143534324170D-01
        ws( 26) = 0.1087757989738079D-01
        ws( 27) = 0.1100373757539502D-01
        ws( 28) = 0.1113268443677380D-01
        ws( 29) = 0.1125918651810503D-01
        ws( 30) = 0.1136665586149074D-01
        ws( 31) = 0.1188630462940523D-01
        ws( 32) = 0.1345578764738900D-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 =  36
        err = 0.6218691673800780D-07
        xs(  1) = 0.1025455014032162D-04
        xs(  2) = 0.5418353947441280D-04
        xs(  3) = 0.1338532669742820D-03
        xs(  4) = 0.2504307202748228D-03
        xs(  5) = 0.4056993358810529D-03
        xs(  6) = 0.6022000258762594D-03
        xs(  7) = 0.8433999532837258D-03
        xs(  8) = 0.1133910959524639D-02
        xs(  9) = 0.1479778018197648D-02
        xs( 10) = 0.1888867618925277D-02
        xs( 11) = 0.2371400337356082D-02
        xs( 12) = 0.2940692750575563D-02
        xs( 13) = 0.3614206713709571D-02
        xs( 14) = 0.4415054441420987D-02
        xs( 15) = 0.5374187292468190D-02
        xs( 16) = 0.6533618072468000D-02
        xs( 17) = 0.7951205995267115D-02
        xs( 18) = 0.9707764611724859D-02
        xs( 19) = 0.1191744179318891D-01
        xs( 20) = 0.1474191814005115D-01
        xs( 21) = 0.1840610825212282D-01
        xs( 22) = 0.2320129585015348D-01
        xs( 23) = 0.2943558019656447D-01
        xs( 24) = 0.3728813144732751D-01
        xs( 25) = 0.4664385017770874D-01
        xs( 26) = 0.5712160387936065D-01
        xs( 27) = 0.6829137106062373D-01
        xs( 28) = 0.7983493716088313D-01
        xs( 29) = 0.9156698231765942D-01
        xs( 30) = 0.1033954114916885D+00
        xs( 31) = 0.1152817151250928D+00
        xs( 32) = 0.1272221832320052D+00
        xs( 33) = 0.1392359642917399D+00
        xs( 34) = 0.1512089393566812D+00
        xs( 35) = 0.1638058292871380D+00
        xs( 36) = 0.1755323581804247D+00
        ws(  1) = 0.2633380233722903D-04
        ws(  2) = 0.6164877852353400D-04
        ws(  3) = 0.9788232222795892D-04
        ws(  4) = 0.1355676208034955D-03
        ws(  5) = 0.1753903150785446D-03
        ws(  6) = 0.2181853325803467D-03
        ws(  7) = 0.2649784223803452D-03
        ws(  8) = 0.3170447164080311D-03
        ws(  9) = 0.3759917572907511D-03
        ws( 10) = 0.4438787344831491D-03
        ws( 11) = 0.5233889871810552D-03
        ws( 12) = 0.6180815953901325D-03
        ws( 13) = 0.7327626862126494D-03
        ws( 14) = 0.8740388719149839D-03
        ws( 15) = 0.1051150998080044D-02
        ws( 16) = 0.1277237741983827D-02
        ws( 17) = 0.1571236064424305D-02
        ws( 18) = 0.1960666428826825D-02
        ws( 19) = 0.2485347914319993D-02
        ws( 20) = 0.3200941957044814D-02
        ws( 21) = 0.4176652776370355D-02
        ws( 22) = 0.5467615413891467D-02
        ws( 23) = 0.7034313931576568D-02
        ws( 24) = 0.8651157602951409D-02
        ws( 25) = 0.9992262601065944D-02
        ws( 26) = 0.1088876372856351D-01
        ws( 27) = 0.1139765731749597D-01
        ws( 28) = 0.1165936447064184D-01
        ws( 29) = 0.1179011131743107D-01
        ws( 30) = 0.1186154985475762D-01
        ws( 31) = 0.1191036241576602D-01
        ws( 32) = 0.1195636553635958D-01
        ws( 33) = 0.1211934856200585D-01
        ws( 34) = 0.1211005064755113D-01
        ws( 35) = 0.1160801028335830D-01
        ws( 36) = 0.1634764255809736D-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 =  39
        err = 0.2120230178635122D-07
        xs(  1) = 0.7110624062368770D-05
        xs(  2) = 0.3753043879874487D-04
        xs(  3) = 0.9252894208950093D-04
        xs(  4) = 0.1726052135296537D-03
        xs(  5) = 0.2785121195855033D-03
        xs(  6) = 0.4113139315878216D-03
        xs(  7) = 0.5724467917388775D-03
        xs(  8) = 0.7637908264452545D-03
        xs(  9) = 0.9877578858692871D-03
        xs( 10) = 0.1247400706335708D-02
        xs( 11) = 0.1546551897256202D-02
        xs( 12) = 0.1890004299339973D-02
        xs( 13) = 0.2283748441081417D-02
        xs( 14) = 0.2735290204756997D-02
        xs( 15) = 0.3254080816835385D-02
        xs( 16) = 0.3852106732258357D-02
        xs( 17) = 0.4544710285902552D-02
        xs( 18) = 0.5351748001973541D-02
        xs( 19) = 0.6299252034502245D-02
        xs( 20) = 0.7421854105366045D-02
        xs( 21) = 0.8766385869311232D-02
        xs( 22) = 0.1039731821083006D-01
        xs( 23) = 0.1240504801482775D-01
        xs( 24) = 0.1491856051006144D-01
        xs( 25) = 0.1812417756278299D-01
        xs( 26) = 0.2228816508319764D-01
        xs( 27) = 0.2776282648874313D-01
        xs( 28) = 0.3492301777741836D-01
        xs( 29) = 0.4397779183482672D-01
        xs( 30) = 0.5475998102760743D-01
        xs( 31) = 0.6677558627964907D-01
        xs( 32) = 0.7949049661685775D-01
        xs( 33) = 0.9252685076760765D-01
        xs( 34) = 0.1056780272949914D+00
        xs( 35) = 0.1188558592896185D+00
        xs( 36) = 0.1320258188124047D+00
        xs( 37) = 0.1452211028854524D+00
        xs( 38) = 0.1584728422872823D+00
        xs( 39) = 0.1714913036420098D+00
        ws(  1) = 0.1825551768710986D-04
        ws(  2) = 0.4264351489110585D-04
        ws(  3) = 0.6743514316024912D-04
        ws(  4) = 0.9284201186489232D-04
        ws(  5) = 0.1191481787251050D-03
        ws(  6) = 0.1466936095150927D-03
        ws(  7) = 0.1758840160540131D-03
        ws(  8) = 0.2072042288299674D-03
        ws(  9) = 0.2412363906174171D-03
        ws( 10) = 0.2786850491177401D-03
        ws( 11) = 0.3204122383485346D-03
        ws( 12) = 0.3674857642076837D-03
        ws( 13) = 0.4212464465628009D-03
        ws( 14) = 0.4834026178366972D-03
        ws( 15) = 0.5561629189821007D-03
        ws( 16) = 0.6424270388264632D-03
        ws( 17) = 0.7460624128825628D-03
        ws( 18) = 0.8723122294012885D-03
        ws( 19) = 0.1028409351872980D-02
        ws( 20) = 0.1224511749529718D-02
        ws( 21) = 0.1475162365706582D-02
        ws( 22) = 0.1801562436618598D-02
        ws( 23) = 0.2235082952472031D-02
        ws( 24) = 0.2822578954549783D-02
        ws( 25) = 0.3632801454846838D-02
        ws( 26) = 0.4754751473855492D-02
        ws( 27) = 0.6260331287104082D-02
        ws( 28) = 0.8099405743296191D-02
        ws( 29) = 0.9981423287269102D-02
        ws( 30) = 0.1149467175579379D-01
        ws( 31) = 0.1244413499367683D-01
        ws( 32) = 0.1292295057021314D-01
        ws( 33) = 0.1311688088098459D-01
        ws( 34) = 0.1316977080559322D-01
        ws( 35) = 0.1317689881781743D-01
        ws( 36) = 0.1319791966877166D-01
        ws( 37) = 0.1318449448628234D-01
        ws( 38) = 0.1345230512067432D-01
        ws( 39) = 0.1525136157976191D-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 =  42
        err = 0.3682491264328628D-07
        xs(  1) = 0.5318194411350163D-05
        xs(  2) = 0.2805330494321201D-04
        xs(  3) = 0.6908925147966224D-04
        xs(  4) = 0.1286758033822063D-03
        xs(  5) = 0.2071858962006728D-03
        xs(  6) = 0.3051462949735744D-03
        xs(  7) = 0.4232663864615307D-03
        xs(  8) = 0.5624705356004838D-03
        xs(  9) = 0.7239349491206206D-03
        xs( 10) = 0.9091306749886341D-03
        xs( 11) = 0.1119874993910687D-02
        xs( 12) = 0.1358394437489024D-02
        xs( 13) = 0.1627403435001500D-02
        xs( 14) = 0.1930203836330975D-02
        xs( 15) = 0.2270812817111753D-02
        xs( 16) = 0.2654128919829201D-02
        xs( 17) = 0.3086149813797811D-02
        xs( 18) = 0.3574260740513424D-02
        xs( 19) = 0.4127621878907128D-02
        xs( 20) = 0.4757694882055911D-02
        xs( 21) = 0.5478967578314186D-02
        xs( 22) = 0.6309968778789120D-02
        xs( 23) = 0.7274717353253020D-02
        xs( 24) = 0.8404822990435405D-02
        xs( 25) = 0.9742606344937238D-02
        xs( 26) = 0.1134583886233074D-01
        xs( 27) = 0.1329502876174874D-01
        xs( 28) = 0.1570492426330106D-01
        xs( 29) = 0.1874320978712378D-01
        xs( 30) = 0.2265760120297231D-01
        xs( 31) = 0.2779902012428139D-01
        xs( 32) = 0.3460003268436392D-01
        xs( 33) = 0.4343489402937297D-01
        xs( 34) = 0.5435831827773040D-01
        xs( 35) = 0.6697473346721081D-01
        xs( 36) = 0.8065841340802081D-01
        xs( 37) = 0.9487014670145749D-01
        xs( 38) = 0.1092771545098453D+00
        xs( 39) = 0.1237131476888713D+00
        xs( 40) = 0.1381104823808716D+00
        xs( 41) = 0.1525033876434135D+00
        xs( 42) = 0.1667499284995742D+00
        ws(  1) = 0.1365183323129838D-04
        ws(  2) = 0.3185196148562889D-04
        ws(  3) = 0.5026056182434679D-04
        ws(  4) = 0.6897425732058230D-04
        ws(  5) = 0.8813324566883608D-04
        ws(  6) = 0.1079052466872956D-03
        ws(  7) = 0.1284883872432192D-03
        ws(  8) = 0.1501152329148145D-03
        ws(  9) = 0.1730579197959032D-03
        ws( 10) = 0.1976353695986642D-03
        ws( 11) = 0.2242230617453227D-03
        ws( 12) = 0.2532665892293259D-03
        ws( 13) = 0.2852996041756167D-03
        ws( 14) = 0.3209679945992859D-03
        ws( 15) = 0.3610627994671381D-03
        ws( 16) = 0.4065642819230442D-03
        ws( 17) = 0.4587020200166610D-03
        ws( 18) = 0.5190378972847297D-03
        ws( 19) = 0.5895827688537150D-03
        ws( 20) = 0.6729613258808394D-03
        ws( 21) = 0.7726485124147219D-03
        ws( 22) = 0.8933228592731717D-03
        ws( 23) = 0.1041392016754548D-02
        ws( 24) = 0.1225795673623073D-02
        ws( 25) = 0.1459281810984962D-02
        ws( 26) = 0.1760416978372709D-02
        ws( 27) = 0.2156784294965100D-02
        ws( 28) = 0.2690479017843125D-02
        ws( 29) = 0.3426901493850583D-02
        ws( 30) = 0.4460528377150355D-02
        ws( 31) = 0.5896590327529752D-02
        ws( 32) = 0.7772869499459963D-02
        ws( 33) = 0.9909032978501648D-02
        ws( 34) = 0.1186727293038521D-01
        ws( 35) = 0.1325508835768621D-01
        ws( 36) = 0.1402088014871440D-01
        ws( 37) = 0.1434809854576700D-01
        ws( 38) = 0.1443988742669732D-01
        ws( 39) = 0.1443540981714047D-01
        ws( 40) = 0.1438532217162896D-01
        ws( 41) = 0.1421327677681574D-01
        ws( 42) = 0.1497175058118361D-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 =  45
        err = 0.4409503159721610D-07
        xs(  1) = 0.4126475870596311D-05
        xs(  2) = 0.2175820709995961D-04
        xs(  3) = 0.5354633922170395D-04
        xs(  4) = 0.9962024994752860D-04
        xs(  5) = 0.1601720611785083D-03
        xs(  6) = 0.2354758634119949D-03
        xs(  7) = 0.3259039089693030D-03
        xs(  8) = 0.4319437643164770D-03
        xs(  9) = 0.5542165639908659D-03
        xs( 10) = 0.6934969919873806D-03
        xs( 11) = 0.8507357387998011D-03
        xs( 12) = 0.1027085506445510D-02
        xs( 13) = 0.1223932077580196D-02
        xs( 14) = 0.1442931911771293D-02
        xs( 15) = 0.1686058276780858D-02
        xs( 16) = 0.1955658781419625D-02
        xs( 17) = 0.2254527556955556D-02
        xs( 18) = 0.2585996680812898D-02
        xs( 19) = 0.2954052424624344D-02
        xs( 20) = 0.3363485324500847D-02
        xs( 21) = 0.3820084733499621D-02
        xs( 22) = 0.4330894588103466D-02
        xs( 23) = 0.4904552111429764D-02
        xs( 24) = 0.5551743563051318D-02
        xs( 25) = 0.6285827152508746D-02
        xs( 26) = 0.7123694104167844D-02
        xs( 27) = 0.8086986221133807D-02
        xs( 28) = 0.9203842438975006D-02
        xs( 29) = 0.1051147214144793D-01
        xs( 30) = 0.1206003599386698D-01
        xs( 31) = 0.1391857502261507D-01
        xs( 32) = 0.1618446690993142D-01
        xs( 33) = 0.1899908314165868D-01
        xs( 34) = 0.2257302203436679D-01
        xs( 35) = 0.2721842012652384D-01
        xs( 36) = 0.3337005111283122D-01
        xs( 37) = 0.4154028346168028D-01
        xs( 38) = 0.5210414590429886D-01
        xs( 39) = 0.6497161434155090D-01
        xs( 40) = 0.7954259467911361D-01
        xs( 41) = 0.9507258109527510D-01
        xs( 42) = 0.1109982637060471D+00
        xs( 43) = 0.1269920325621205D+00
        xs( 44) = 0.1428208233473860D+00
        xs( 45) = 0.1582683567870824D+00
        ws(  1) = 0.1059168355323053D-04
        ws(  2) = 0.2469206929766763D-04
        ws(  3) = 0.3890503691661988D-04
        ws(  4) = 0.5327453714686219D-04
        ws(  5) = 0.6787449843078325D-04
        ws(  6) = 0.8279486098838647D-04
        ws(  7) = 0.9814219173850311D-04
        ws(  8) = 0.1140407105109526D-03
        ws(  9) = 0.1306336314371337D-03
        ws( 10) = 0.1480852425246147D-03
        ws( 11) = 0.1665838495129560D-03
        ws( 12) = 0.1863460312647979D-03
        ws( 13) = 0.2076224273783771D-03
        ws( 14) = 0.2307051631081085D-03
        ws( 15) = 0.2559376460099160D-03
        ws( 16) = 0.2837275346332019D-03
        ws( 17) = 0.3145634565993302D-03
        ws( 18) = 0.3490366936206799D-03
        ws( 19) = 0.3878700099433422D-03
        ws( 20) = 0.4319564572278364D-03
        ws( 21) = 0.4824108058970895D-03
        ws( 22) = 0.5406409411649695D-03
        ws( 23) = 0.6084449395736697D-03
        ws( 24) = 0.6881502631354562D-03
        ws( 25) = 0.7828122336717197D-03
        ws( 26) = 0.8965002363646366D-03
        ws( 27) = 0.1034732006660152D-02
        ws( 28) = 0.1205119023146399D-02
        ws( 29) = 0.1418404963483184D-02
        ws( 30) = 0.1690077966703580D-02
        ws( 31) = 0.2042979193280003D-02
        ws( 32) = 0.2511945962928256D-02
        ws( 33) = 0.3151805106219351D-02
        ws( 34) = 0.4047644942527532D-02
        ws( 35) = 0.5316035384258004D-02
        ws( 36) = 0.7076150108213303D-02
        ws( 37) = 0.9333550103093891D-02
        ws( 38) = 0.1178061501272017D-01
        ws( 39) = 0.1384642738258280D-01
        ws( 40) = 0.1516528923954573D-01
        ws( 41) = 0.1579831817061609D-01
        ws( 42) = 0.1599357092449790D-01
        ws( 43) = 0.1607398835173629D-01
        ws( 44) = 0.1584929693180177D-01
        ws( 45) = 0.1618904582694516D-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 =  49
        err = 0.8444388802632356D-07
        xs(  1) = 0.3260145402073110D-05
        xs(  2) = 0.1718712184170614D-04
        xs(  3) = 0.4228296195733372D-04
        xs(  4) = 0.7862568789833552D-04
        xs(  5) = 0.1263283768802670D-03
        xs(  6) = 0.1855509824562486D-03
        xs(  7) = 0.2565093808778450D-03
        xs(  8) = 0.3394848189051661D-03
        xs(  9) = 0.4348338183352403D-03
        xs( 10) = 0.5429985970220490D-03
        xs( 11) = 0.6645182951202452D-03
        xs( 12) = 0.8000414228995430D-03
        xs( 13) = 0.9503400162008695D-03
        xs( 14) = 0.1116326119691838D-02
        xs( 15) = 0.1299071325434040D-02
        xs( 16) = 0.1499830147009184D-02
        xs( 17) = 0.1720068399834856D-02
        xs( 18) = 0.1961497886250222D-02
        xs( 19) = 0.2226118964385436D-02
        xs( 20) = 0.2516273071607104D-02
        xs( 21) = 0.2834708199240641D-02
        xs( 22) = 0.3184661188429070D-02
        xs( 23) = 0.3569961375936133D-02
        xs( 24) = 0.3995162596496973D-02
        xs( 25) = 0.4465712948548210D-02
        xs( 26) = 0.4988175285348702D-02
        xs( 27) = 0.5570517869829050D-02
        xs( 28) = 0.6222497786367919D-02
        xs( 29) = 0.6956180731193195D-02
        xs( 30) = 0.7786653399052166D-02
        xs( 31) = 0.8733010481801525D-02
        xs( 32) = 0.9819759184767119D-02
        xs( 33) = 0.1107885313563662D-01
        xs( 34) = 0.1255273236123876D-01
        xs( 35) = 0.1429888930194527D-01
        xs( 36) = 0.1639706002525053D-01
        xs( 37) = 0.1896141255012227D-01
        xs( 38) = 0.2216070898903888D-01
        xs( 39) = 0.2624730707071831D-01
        xs( 40) = 0.3158759215444651D-01
        xs( 41) = 0.3867228868127886D-01
        xs( 42) = 0.4803361241643235D-01
        xs( 43) = 0.5997359013604201D-01
        xs( 44) = 0.7425469845015217D-01
        xs( 45) = 0.9016979329164938D-01
        xs( 46) = 0.1069606554909521D+00
        xs( 47) = 0.1240913330136593D+00
        xs( 48) = 0.1412537370640714D+00
        xs( 49) = 0.1579636116381514D+00
        ws(  1) = 0.8367673975525549D-05
        ws(  2) = 0.1950026892491785D-04
        ws(  3) = 0.3070389076259468D-04
        ws(  4) = 0.4200025201588716D-04
        ws(  5) = 0.5343163444618232D-04
        ws(  6) = 0.6504939872152258D-04
        ws(  7) = 0.7691410968358795D-04
        ws(  8) = 0.8909601600013760D-04
        ws(  9) = 0.1016754983940580D-03
        ws( 10) = 0.1147437054525846D-03
        ws( 11) = 0.1284035441462108D-03
        ws( 12) = 0.1427711131015536D-03
        ws( 13) = 0.1579777528669803D-03
        ws( 14) = 0.1741726675194804D-03
        ws( 15) = 0.1915263581578511D-03
        ws( 16) = 0.2102350128392727D-03
        ws( 17) = 0.2305260867902192D-03
        ws( 18) = 0.2526654118278540D-03
        ws( 19) = 0.2769659137342638D-03
        ws( 20) = 0.3037989326931047D-03
        ws( 21) = 0.3336090702425625D-03
        ws( 22) = 0.3669329610133201D-03
        ws( 23) = 0.4044235922320614D-03
        ws( 24) = 0.4468832567689874D-03
        ws( 25) = 0.4953064332742784D-03
        ws( 26) = 0.5509400050598357D-03
        ws( 27) = 0.6153628231764395D-03
        ws( 28) = 0.6905962562881993D-03
        ws( 29) = 0.7792680262160129D-03
        ws( 30) = 0.8848367317225470D-03
        ws( 31) = 0.1011928999051214D-02
        ws( 32) = 0.1166844545715840D-02
        ws( 33) = 0.1358342511863982D-02
        ws( 34) = 0.1598884539013896D-02
        ws( 35) = 0.1906522508511066D-02
        ws( 36) = 0.2308517800767962D-02
        ws( 37) = 0.2847810484891216D-02
        ws( 38) = 0.3592301207300158D-02
        ws( 39) = 0.4641632872514676D-02
        ws( 40) = 0.6121738501458489D-02
        ws( 41) = 0.8141132639322857D-02
        ws( 42) = 0.1063844969641467D-01
        ws( 43) = 0.1320076304252237D-01
        ws( 44) = 0.1523474387825140D-01
        ws( 45) = 0.1646400390419908D-01
        ws( 46) = 0.1702755212469320D-01
        ws( 47) = 0.1720028881718401D-01
        ws( 48) = 0.1716237721806209D-01
        ws( 49) = 0.1693954364850435D-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 =  53
        err = 0.9035588945784026D-07
        xs(  1) = 0.2661906143633338D-05
        xs(  2) = 0.1403108911623219D-04
        xs(  3) = 0.3450880535303727D-04
        xs(  4) = 0.6414242691027120D-04
        xs(  5) = 0.1029991043365712D-03
        xs(  6) = 0.1511738632606870D-03
        xs(  7) = 0.2087952339706705D-03
        xs(  8) = 0.2760309952004824D-03
        xs(  9) = 0.3530941575641828D-03
        xs( 10) = 0.4402491070798094D-03
        xs( 11) = 0.5378180167765593D-03
        xs( 12) = 0.6461875978952621D-03
        xs( 13) = 0.7658165005114289D-03
        xs( 14) = 0.8972435932316648D-03
        xs( 15) = 0.1041097421300950D-02
        xs( 16) = 0.1198107099599717D-02
        xs( 17) = 0.1369115152179183D-02
        xs( 18) = 0.1555092811397036D-02
        xs( 19) = 0.1757158173007927D-02
        xs( 20) = 0.1976598044789785D-02
        xs( 21) = 0.2214894296353137D-02
        xs( 22) = 0.2473755919381228D-02
        xs( 23) = 0.2755158037066120D-02
        xs( 24) = 0.3061389770125096D-02
        xs( 25) = 0.3395113547586459D-02
        xs( 26) = 0.3759438650117929D-02
        xs( 27) = 0.4158012913821932D-02
        xs( 28) = 0.4595139888432024D-02
        xs( 29) = 0.5075926719591077D-02
        xs( 30) = 0.5606474477183128D-02
        xs( 31) = 0.6194127235692394D-02
        xs( 32) = 0.6847798417513095D-02
        xs( 33) = 0.7578404897957985D-02
        xs( 34) = 0.8399460804620652D-02
        xs( 35) = 0.9327884738733310D-02
        xs( 36) = 0.1038513752102519D-01
        xs( 37) = 0.1159885849773908D-01
        xs( 38) = 0.1300526544923898D-01
        xs( 39) = 0.1465276045455621D-01
        xs( 40) = 0.1660745048684154D-01
        xs( 41) = 0.1896250322314672D-01
        xs( 42) = 0.2185425777746224D-01
        xs( 43) = 0.2548767068911785D-01
        xs( 44) = 0.3016900504817083D-01
        xs( 45) = 0.3633673167714395D-01
        xs( 46) = 0.4455641576996698D-01
        xs( 47) = 0.5537591631404357D-01
        xs( 48) = 0.6898322002626224D-01
        xs( 49) = 0.8493725321649107D-01
        xs( 50) = 0.1023759522269991D+00
        xs( 51) = 0.1204896144390683D+00
        xs( 52) = 0.1387727110212269D+00
        xs( 53) = 0.1565399010150554D+00
        ws(  1) = 0.6831952595991553D-05
        ws(  2) = 0.1591640562215256D-04
        ws(  3) = 0.2504651324596765D-04
        ws(  4) = 0.3423182000762676D-04
        ws(  5) = 0.4349727838734317D-04
        ws(  6) = 0.5287357207657910D-04
        ws(  7) = 0.6239703415219672D-04
        ws(  8) = 0.7210988301233869D-04
        ws(  9) = 0.8206039675419407D-04
        ws( 10) = 0.9230309122054821D-04
        ws( 11) = 0.1028990559567200D-03
        ws( 12) = 0.1139164123735979D-03
        ws( 13) = 0.1254310425502540D-03
        ws( 14) = 0.1375277206326415D-03
        ws( 15) = 0.1503012478100459D-03
        ws( 16) = 0.1638582675185401D-03
        ws( 17) = 0.1783194126603176D-03
        ws( 18) = 0.1938218939396956D-03
        ws( 19) = 0.2105228589962766D-03
        ws( 20) = 0.2286033285877951D-03
        ws( 21) = 0.2482733528850718D-03
        ws( 22) = 0.2697782953230945D-03
        ws( 23) = 0.2934064876825435D-03
        ws( 24) = 0.3194994878875832D-03
        ws( 25) = 0.3484647694611342D-03
        ws( 26) = 0.3807914615934296D-03
        ws( 27) = 0.4170719076541455D-03
        ws( 28) = 0.4580300987183305D-03
        ws( 29) = 0.5045563142182480D-03
        ws( 30) = 0.5577578067457574D-03
        ws( 31) = 0.6190262334672681D-03
        ws( 32) = 0.6901257457203723D-03
        ws( 33) = 0.7733264185142802D-03
        ws( 34) = 0.8715866180189824D-03
        ws( 35) = 0.9888111905375478D-03
        ws( 36) = 0.1130262301927072D-02
        ws( 37) = 0.1303156655834546D-02
        ws( 38) = 0.1517637135756275D-02
        ws( 39) = 0.1788222115356698D-02
        ws( 40) = 0.2136425104046505D-02
        ws( 41) = 0.2595977164358545D-02
        ws( 42) = 0.3221122915436694D-02
        ws( 43) = 0.4096188861113346D-02
        ws( 44) = 0.5339363273699936D-02
        ws( 45) = 0.7092455024251741D-02
        ws( 46) = 0.9444584774844457D-02
        ws( 47) = 0.1223169848728961D-01
        ws( 48) = 0.1490514656781368D-01
        ws( 49) = 0.1684976098211175D-01
        ws( 50) = 0.1789179958014008D-01
        ws( 51) = 0.1826769007427073D-01
        ws( 52) = 0.1829998511086772D-01
        ws( 53) = 0.1787183363907505D-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 =  57
        err = 0.8662126240064279D-07
        xs(  1) = 0.2228855485369646D-05
        xs(  2) = 0.1174659567262506D-04
        xs(  3) = 0.2888198809444758D-04
        xs(  4) = 0.5366158569887436D-04
        xs(  5) = 0.8612238187214278D-04
        xs(  6) = 0.1263182362001487D-03
        xs(  7) = 0.1743239994041951D-03
        xs(  8) = 0.2302396213103528D-03
        xs(  9) = 0.2941942271061359D-03
        xs( 10) = 0.3663501187715939D-03
        xs( 11) = 0.4469067920495050D-03
        xs( 12) = 0.5361049755234544D-03
        xs( 13) = 0.6342308652526389D-03
        xs( 14) = 0.7416206232388475D-03
        xs( 15) = 0.8586654556440828D-03
        xs( 16) = 0.9858172645925967D-03
        xs( 17) = 0.1123595101272292D-02
        xs( 18) = 0.1272592658071158D-02
        xs( 19) = 0.1433487039834880D-02
        xs( 20) = 0.1607049095594584D-02
        xs( 21) = 0.1794155596122207D-02
        xs( 22) = 0.1995803566067229D-02
        xs( 23) = 0.2213127500822439D-02
        xs( 24) = 0.2447419868004303D-02
        xs( 25) = 0.2700155838732742D-02
        xs( 26) = 0.2973022908212945D-02
        xs( 27) = 0.3267956955724817D-02
        xs( 28) = 0.3587186045883860D-02
        xs( 29) = 0.3933284535420435D-02
        xs( 30) = 0.4309239579675085D-02
        xs( 31) = 0.4718533993982150D-02
        xs( 32) = 0.5165250064995869D-02
        xs( 33) = 0.5654200640993906D-02
        xs( 34) = 0.6191097180887917D-02
        xs( 35) = 0.6782766854725939D-02
        xs( 36) = 0.7437432651870485D-02
        xs( 37) = 0.8165088106525276D-02
        xs( 38) = 0.8978000996148004D-02
        xs( 39) = 0.9891390451324981D-02
        xs( 40) = 0.1092437333070497D-01
        xs( 41) = 0.1210130526950707D-01
        xs( 42) = 0.1345373167068384D-01
        xs( 43) = 0.1502326807420470D-01
        xs( 44) = 0.1686592686215109D-01
        xs( 45) = 0.1905920379951043D-01
        xs( 46) = 0.2171416451504188D-01
        xs( 47) = 0.2499560843744705D-01
        xs( 48) = 0.2915139124511812D-01
        xs( 49) = 0.3454878826281397D-01
        xs( 50) = 0.4170503688117924D-01
        xs( 51) = 0.5124451769963873D-01
        xs( 52) = 0.6367245869473012D-01
        xs( 53) = 0.7900284465580829D-01
        xs( 54) = 0.9662005171311376D-01
        xs( 55) = 0.1156328173758439D+00
        xs( 56) = 0.1352865217178716D+00
        xs( 57) = 0.1547847637624511D+00
        ws(  1) = 0.5720292372620951D-05
        ws(  2) = 0.1332235115612970D-04
        ws(  3) = 0.2095251380753977D-04
        ws(  4) = 0.2861276770700251D-04
        ws(  5) = 0.3631774425309758D-04
        ws(  6) = 0.4408637114561716D-04
        ws(  7) = 0.5194174191650424D-04
        ws(  8) = 0.5991095932328324D-04
        ws(  9) = 0.6802523484948932D-04
        ws( 10) = 0.7631972833090332D-04
        ws( 11) = 0.8483366612844879D-04
        ws( 12) = 0.9361033117475404D-04
        ws( 13) = 0.1026973893207788D-03
        ws( 14) = 0.1121472344254836D-03
        ws( 15) = 0.1220176360125466D-03
        ws( 16) = 0.1323723684928723D-03
        ws( 17) = 0.1432821151452283D-03
        ws( 18) = 0.1548256762514197D-03
        ws( 19) = 0.1670913533765983D-03
        ws( 20) = 0.1801786507812178D-03
        ws( 21) = 0.1942002316137744D-03
        ws( 22) = 0.2092844531845518D-03
        ws( 23) = 0.2255784183552055D-03
        ws( 24) = 0.2432516895041968D-03
        ws( 25) = 0.2625008947281672D-03
        ws( 26) = 0.2835551587199303D-03
        ws( 27) = 0.3066833815822115D-03
        ws( 28) = 0.3322027749496274D-03
        ws( 29) = 0.3604906850822755D-03
        ws( 30) = 0.3919981545844975D-03
        ws( 31) = 0.4272688732050327D-03
        ws( 32) = 0.4669626723001881D-03
        ws( 33) = 0.5118867615106710D-03
        ws( 34) = 0.5630396197036207D-03
        ws( 35) = 0.6216640432731271D-03
        ws( 36) = 0.6893247799540521D-03
        ws( 37) = 0.7680197812189865D-03
        ws( 38) = 0.8603269460652007D-03
        ws( 39) = 0.9696162016500008D-03
        ws( 40) = 0.1100377183810274D-02
        ws( 41) = 0.1258697023453692D-02
        ws( 42) = 0.1453022948894160D-02
        ws( 43) = 0.1695272055602911D-02
        ws( 44) = 0.2002768700718210D-02
        ws( 45) = 0.2401964698819592D-02
        ws( 46) = 0.2934925023111309D-02
        ws( 47) = 0.3668662251647789D-02
        ws( 48) = 0.4703452158469910D-02
        ws( 49) = 0.6177922083313146D-02
        ws( 50) = 0.8242354974996313D-02
        ws( 51) = 0.1092806833299337D-01
        ws( 52) = 0.1393368099682097D-01
        ws( 53) = 0.1661656946084792D-01
        ws( 54) = 0.1846128289787751D-01
        ws( 55) = 0.1944791580080680D-01
        ws( 56) = 0.1984501665287941D-01
        ws( 57) = 0.1950462706461051D-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 =  62
        err = 0.8124893694863793D-07
        xs(  1) = 0.1873771080421206D-05
        xs(  2) = 0.9874472878830263D-05
        xs(  3) = 0.2427556335449254D-04
        xs(  4) = 0.4509380574898150D-04
        xs(  5) = 0.7235168420998005D-04
        xs(  6) = 0.1060822760553747D-03
        xs(  7) = 0.1463321169755932D-03
        xs(  8) = 0.1931639846016219D-03
        xs(  9) = 0.2466596390651376D-03
        xs( 10) = 0.3069224611694401D-03
        xs( 11) = 0.3740800328738060D-03
        xs( 12) = 0.4482866751322512D-03
        xs( 13) = 0.5297260325906451D-03
        xs( 14) = 0.6186137208659415D-03
        xs( 15) = 0.7152001992059038D-03
        xs( 16) = 0.8197739135295430D-03
        xs( 17) = 0.9326648019003907D-03
        xs( 18) = 0.1054248206063350D-02
        xs( 19) = 0.1184949409271624D-02
        xs( 20) = 0.1325248811079349D-02
        xs( 21) = 0.1475687953468994D-02
        xs( 22) = 0.1636876490507301D-02
        xs( 23) = 0.1809500276017027D-02
        xs( 24) = 0.1994330886409625D-02
        xs( 25) = 0.2192236804670664D-02
        xs( 26) = 0.2404196600165851D-02
        xs( 27) = 0.2631314311738696D-02
        xs( 28) = 0.2874838077868416D-02
        xs( 29) = 0.3136182055653183D-02
        xs( 30) = 0.3416952653899034D-02
        xs( 31) = 0.3718980166968200D-02
        xs( 32) = 0.4044357197298746D-02
        xs( 33) = 0.4395485190666105D-02
        xs( 34) = 0.4775131257199059D-02
        xs( 35) = 0.5186498649542769D-02
        xs( 36) = 0.5633314393593142D-02
        xs( 37) = 0.6119937673201922D-02
        xs( 38) = 0.6651498757885919D-02
        xs( 39) = 0.7234074507564528D-02
        xs( 40) = 0.7874914851085005D-02
        xs( 41) = 0.8582738679807678D-02
        xs( 42) = 0.9368124288138463D-02
        xs( 43) = 0.1024403245921376D-01
        xs( 44) = 0.1122651848016708D-01
        xs( 45) = 0.1233572079287800D-01
        xs( 46) = 0.1359727331249197D-01
        xs( 47) = 0.1504433691584761D-01
        xs( 48) = 0.1672060400879036D-01
        xs( 49) = 0.1868496959305569D-01
        xs( 50) = 0.2101933105297377D-01
        xs( 51) = 0.2384182276538003D-01
        xs( 52) = 0.2732767162106690D-01
        xs( 53) = 0.3173811980459267D-01
        xs( 54) = 0.3745504741230782D-01
        xs( 55) = 0.4500730063709383D-01
        xs( 56) = 0.5502773892563306D-01
        xs( 57) = 0.6803435189343897D-01
        xs( 58) = 0.8405712562595025D-01
        xs( 59) = 0.1024661234576514D+00
        xs( 60) = 0.1223089630511291D+00
        xs( 61) = 0.1427742278088538D+00
        xs( 62) = 0.1629465127284910D+00
        ws(  1) = 0.4808886208050830D-05
        ws(  2) = 0.1119805772401637D-04
        ws(  3) = 0.1760664565468029D-04
        ws(  4) = 0.2403352907213500D-04
        ws(  5) = 0.3048769353617771D-04
        ws(  6) = 0.3698119935161088D-04
        ws(  7) = 0.4352889712158810D-04
        ws(  8) = 0.5014842157042518D-04
        ws(  9) = 0.5686007636965057D-04
        ws( 10) = 0.6368679052196283D-04
        ws( 11) = 0.7065402784003473D-04
        ws( 12) = 0.7778981991812272D-04
        ws( 13) = 0.8512478429676486D-04
        ws( 14) = 0.9269228402971372D-04
        ws( 15) = 0.1005286865735007D-03
        ws( 16) = 0.1086736700412329D-03
        ws( 17) = 0.1171705847476289D-03
        ws( 18) = 0.1260670190960454D-03
        ws( 19) = 0.1354153529212691D-03
        ws( 20) = 0.1452735903591703D-03
        ws( 21) = 0.1557061739292770D-03
        ws( 22) = 0.1667850491136405D-03
        ws( 23) = 0.1785909295800765D-03
        ws( 24) = 0.1912148174951555D-03
        ws( 25) = 0.2047598667427226D-03
        ws( 26) = 0.2193434148936952D-03
        ws( 27) = 0.2350996706104789D-03
        ws( 28) = 0.2521831252976854D-03
        ws( 29) = 0.2707720372572286D-03
        ws( 30) = 0.2910735683211395D-03
        ws( 31) = 0.3133294582986015D-03
        ws( 32) = 0.3378239063083263D-03
        ws( 33) = 0.3648920994515827D-03
        ws( 34) = 0.3949324430878921D-03
        ws( 35) = 0.4284217559961118D-03
        ws( 36) = 0.4659339167272967D-03
        ws( 37) = 0.5081648274644908D-03
        ws( 38) = 0.5559663987294402D-03
        ws( 39) = 0.6103885553728512D-03
        ws( 40) = 0.6727388484241008D-03
        ws( 41) = 0.7446632812349377D-03
        ws( 42) = 0.8282563702593908D-03
        ws( 43) = 0.9262198114905560D-03
        ws( 44) = 0.1042085526040242D-02
        ws( 45) = 0.1180558262059851D-02
        ws( 46) = 0.1348025104648274D-02
        ws( 47) = 0.1553309594903507D-02
        ws( 48) = 0.1808916411090392D-02
        ws( 49) = 0.2133249710677820D-02
        ws( 50) = 0.2554815837789867D-02
        ws( 51) = 0.3118885058021452D-02
        ws( 52) = 0.3895759716093217D-02
        ws( 53) = 0.4988213596807777D-02
        ws( 54) = 0.6534175485505544D-02
        ws( 55) = 0.8679361137386266D-02
        ws( 56) = 0.1145503593283311D-01
        ws( 57) = 0.1456726481489510D-01
        ws( 58) = 0.1736626732994929D-01
        ws( 59) = 0.1928337658705931D-01
        ws( 60) = 0.2026124651949712D-01
        ws( 61) = 0.2069348122177272D-01
        ws( 62) = 0.2044920605065715D-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 =  66
        err = 0.9276282215826865D-07
        xs(  1) = 0.1608319925442041D-05
        xs(  2) = 0.8475248128609742D-05
        xs(  3) = 0.2083407207149226D-04
        xs(  4) = 0.3869634655809428D-04
        xs(  5) = 0.6207671432337677D-04
        xs(  6) = 0.9099661598948458D-04
        xs(  7) = 0.1254862673471390D-03
        xs(  8) = 0.1655865933790009D-03
        xs(  9) = 0.2113511672856916D-03
        xs( 10) = 0.2628480961312728D-03
        xs( 11) = 0.3201618717119178D-03
        xs( 12) = 0.3833951599414977D-03
        xs( 13) = 0.4526705870745268D-03
        xs( 14) = 0.5281325174495896D-03
        xs( 15) = 0.6099488910297546D-03
        xs( 16) = 0.6983131810512461D-03
        xs( 17) = 0.7934465135568119D-03
        xs( 18) = 0.8955999737620799D-03
        xs( 19) = 0.1005057193113649D-02
        xs( 20) = 0.1122137246714594D-02
        xs( 21) = 0.1247197984287617D-02
        xs( 22) = 0.1380639820776794D-02
        xs( 23) = 0.1522910049334013D-02
        xs( 24) = 0.1674507824416819D-02
        xs( 25) = 0.1835989946205697D-02
        xs( 26) = 0.2007977569308559D-02
        xs( 27) = 0.2191163930653563D-02
        xs( 28) = 0.2386323354203168D-02
        xs( 29) = 0.2594321892445435D-02
        xs( 30) = 0.2816129663156326D-02
        xs( 31) = 0.3052835354968393D-02
        xs( 32) = 0.3305663517372097D-02
        xs( 33) = 0.3575995019452815D-02
        xs( 34) = 0.3865391148289766D-02
        xs( 35) = 0.4175622817804879D-02
        xs( 36) = 0.4508705645844263D-02
        xs( 37) = 0.4866942297518469D-02
        xs( 38) = 0.5252974209959282D-02
        xs( 39) = 0.5669845064177146D-02
        xs( 40) = 0.6121078278675630D-02
        xs( 41) = 0.6610774838143670D-02
        xs( 42) = 0.7143735889521377D-02
        xs( 43) = 0.7725615976378830D-02
        xs( 44) = 0.8363121772999417D-02
        xs( 45) = 0.9064269107228958D-02
        xs( 46) = 0.9838717413376715D-02
        xs( 47) = 0.1069821795762411D-01
        xs( 48) = 0.1165721092599226D-01
        xs( 49) = 0.1273365558126588D-01
        xs( 50) = 0.1395020653238420D-01
        xs( 51) = 0.1533587200869327D-01
        xs( 52) = 0.1692843772084963D-01
        xs( 53) = 0.1877814464773330D-01
        xs( 54) = 0.2095388522911863D-01
        xs( 55) = 0.2355376650321293D-01
        xs( 56) = 0.2672184940297191D-01
        xs( 57) = 0.3067199303062005D-01
        xs( 58) = 0.3571906466588247D-01
        xs( 59) = 0.4231795861023005D-01
        xs( 60) = 0.5107796688101204D-01
        xs( 61) = 0.6265561938202051D-01
        xs( 62) = 0.7744635807289627D-01
        xs( 63) = 0.9522918554516266D-01
        xs( 64) = 0.1151953316243011D+00
        xs( 65) = 0.1363646494521217D+00
        xs( 66) = 0.1575701360417082D+00
        ws(  1) = 0.4127591580007578D-05
        ws(  2) = 0.9610778696581303D-05
        ws(  3) = 0.1510857199139559D-04
        ws(  4) = 0.2061838312021083D-04
        ws(  5) = 0.2614589159154281D-04
        ws(  6) = 0.3169891290432776D-04
        ws(  7) = 0.3728717449550980D-04
        ws(  8) = 0.4292237509733917D-04
        ws(  9) = 0.4861809631619860D-04
        ws( 10) = 0.5438981498278344D-04
        ws( 11) = 0.6025481653203416D-04
        ws( 12) = 0.6623216804501128D-04
        ws( 13) = 0.7234271564400581D-04
        ws( 14) = 0.7860910153890763D-04
        ws( 15) = 0.8505585723238607D-04
        ws( 16) = 0.9170954185242527D-04
        ws( 17) = 0.9859892636170622D-04
        ws( 18) = 0.1057552179555831D-03
        ws( 19) = 0.1132123453600702D-03
        ws( 20) = 0.1210073408812475D-03
        ws( 21) = 0.1291807950276228D-03
        ws( 22) = 0.1377773441182200D-03
        ws( 23) = 0.1468462079600692D-03
        ws( 24) = 0.1564420288817141D-03
        ws( 25) = 0.1666256164049661D-03
        ws( 26) = 0.1774650138800462D-03
        ws( 27) = 0.1890365781407502D-03
        ws( 28) = 0.2014264069994377D-03
        ws( 29) = 0.2147321126536519D-03
        ws( 30) = 0.2290645887456796D-03
        ws( 31) = 0.2445505440808492D-03
        ws( 32) = 0.2613355213125476D-03
        ws( 33) = 0.2795872096281417D-03
        ws( 34) = 0.2994996254447672D-03
        ws( 35) = 0.3212989492822632D-03
        ws( 36) = 0.3452496249291689D-03
        ws( 37) = 0.3716628567649132D-03
        ws( 38) = 0.4009069924417389D-03
        ws( 39) = 0.4334203273141760D-03
        ws( 40) = 0.4697275783869129D-03
        ws( 41) = 0.5104632063635487D-03
        ws( 42) = 0.5563980549859387D-03
        ws( 43) = 0.6084756494917210D-03
        ws( 44) = 0.6678664699202959D-03
        ws( 45) = 0.7360306676841703D-03
        ws( 46) = 0.8148147545527956D-03
        ws( 47) = 0.9065795347148700D-03
        ws( 48) = 0.1014380132878826D-02
        ws( 49) = 0.1142258154251433D-02
        ws( 50) = 0.1295638810424915D-02
        ws( 51) = 0.1481931381415962D-02
        ws( 52) = 0.1711475303418391D-02
        ws( 53) = 0.1999248420771717D-02
        ws( 54) = 0.2368309278409663D-02
        ws( 55) = 0.2855061051800027D-02
        ws( 56) = 0.3516242475152244D-02
        ws( 57) = 0.4435821765920398D-02
        ws( 58) = 0.5733633981544857D-02
        ws( 59) = 0.7567204246428712D-02
        ws( 60) = 0.1006764280894519D-01
        ws( 61) = 0.1316086543375580D-01
        ws( 62) = 0.1638355399864681D-01
        ws( 63) = 0.1903817237824780D-01
        ws( 64) = 0.2073028473051921D-01
        ws( 65) = 0.2153456423153116D-01
        ws( 66) = 0.2039646501400802D-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 =  70
        err = 0.9971202723061511D-07
        xs(  1) = 0.1399266948996353D-05
        xs(  2) = 0.7373176318639085D-05
        xs(  3) = 0.1812308174398412D-04
        xs(  4) = 0.3365604051135354D-04
        xs(  5) = 0.5398024142005601D-04
        xs(  6) = 0.7910811428288803D-04
        xs(  7) = 0.1090577777114513D-03
        xs(  8) = 0.1438545833672560D-03
        xs(  9) = 0.1835325797075880D-03
        xs( 10) = 0.2281359910854216D-03
        xs( 11) = 0.2777206103749295D-03
        xs( 12) = 0.3323551371085693D-03
        xs( 13) = 0.3921224744047379D-03
        xs( 14) = 0.4571209523843194D-03
        xs( 15) = 0.5274655830159439D-03
        xs( 16) = 0.6032893140874321D-03
        xs( 17) = 0.6847443747587096D-03
        xs( 18) = 0.7720037048420460D-03
        xs( 19) = 0.8652625016520253D-03
        xs( 20) = 0.9647399537375317D-03
        xs( 21) = 0.1070681137857078D-02
        xs( 22) = 0.1183359217842791D-02
        xs( 23) = 0.1303077924019327D-02
        xs( 24) = 0.1430174328477649D-02
        xs( 25) = 0.1565022031620162D-02
        xs( 26) = 0.1708034801222878D-02
        xs( 27) = 0.1859670779592244D-02
        xs( 28) = 0.2020437280350895D-02
        xs( 29) = 0.2190896266528816D-02
        xs( 30) = 0.2371670832990713D-02
        xs( 31) = 0.2563452486862264D-02
        xs( 32) = 0.2767009715472980D-02
        xs( 33) = 0.2983197930677665D-02
        xs( 34) = 0.3212971146081598D-02
        xs( 35) = 0.3457395601011857D-02
        xs( 36) = 0.3717665660601700D-02
        xs( 37) = 0.3995122896927136D-02
        xs( 38) = 0.4291278443748762D-02
        xs( 39) = 0.4607839525367487D-02
        xs( 40) = 0.4946741905250901D-02
        xs( 41) = 0.5310188549410296D-02
        xs( 42) = 0.5700695924776145D-02
        xs( 43) = 0.6121151479088714D-02
        xs( 44) = 0.6574884124191043D-02
        xs( 45) = 0.7065750308370406D-02
        xs( 46) = 0.7598243236766295D-02
        xs( 47) = 0.8177629130903981D-02
        xs( 48) = 0.8810119309096384D-02
        xs( 49) = 0.9503096489464305D-02
        xs( 50) = 0.1026540430975351D-01
        xs( 51) = 0.1110772927981821D-01
        xs( 52) = 0.1204311230038511D-01
        xs( 53) = 0.1308764102239233D-01
        xs( 54) = 0.1426143923705737D-01
        xs( 55) = 0.1559004776239869D-01
        xs( 56) = 0.1710638733736079D-01
        xs( 57) = 0.1885372680915128D-01
        xs( 58) = 0.2089052468376489D-01
        xs( 59) = 0.2329890503681244D-01
        xs( 60) = 0.2619845378367522D-01
        xs( 61) = 0.2976668846416984D-01
        xs( 62) = 0.3426641389886184D-01
        xs( 63) = 0.4008198153559165D-01
        xs( 64) = 0.4775877804273606D-01
        xs( 65) = 0.5799002142684071D-01
        xs( 66) = 0.7144646670362979D-01
        xs( 67) = 0.8840742360340435D-01
        xs( 68) = 0.1084378954868267D+00
        xs( 69) = 0.1305362129621080D+00
        xs( 70) = 0.1531535761180891D+00
        ws(  1) = 0.3591015733792374D-05
        ws(  2) = 0.8360470361054547D-05
        ws(  3) = 0.1314033320383268D-04
        ws(  4) = 0.1792691050961967D-04
        ws(  5) = 0.2272354826539682D-04
        ws(  6) = 0.2753518831677824D-04
        ws(  7) = 0.3236833038753249D-04
        ws(  8) = 0.3723093020425238D-04
        ws(  9) = 0.4213241489630941D-04
        ws( 10) = 0.4708368542793003D-04
        ws( 11) = 0.5209698245238384D-04
        ws( 12) = 0.5718586928446051D-04
        ws( 13) = 0.6236516895124101D-04
        ws( 14) = 0.6765093476041362D-04
        ws( 15) = 0.7306046206325068D-04
        ws( 16) = 0.7861234736402322D-04
        ws( 17) = 0.8432657472156850D-04
        ws( 18) = 0.9022458842304995D-04
        ws( 19) = 0.9632950617480242D-04
        ws( 20) = 0.1026662072048389D-03
        ws( 21) = 0.1092616462897285D-03
        ws( 22) = 0.1161450872651476D-03
        ws( 23) = 0.1233484478690106D-03
        ws( 24) = 0.1309065743822505D-03
        ws( 25) = 0.1388577247532027D-03
        ws( 26) = 0.1472440847263561D-03
        ws( 27) = 0.1561123363144672D-03
        ws( 28) = 0.1655142137005360D-03
        ws( 29) = 0.1755074898283553D-03
        ws( 30) = 0.1861567536848312D-03
        ws( 31) = 0.1975344625909089D-03
        ws( 32) = 0.2097223728707363D-03
        ws( 33) = 0.2228128360547925D-03
        ws( 34) = 0.2369110383956350D-03
        ws( 35) = 0.2521366119983915D-03
        ws( 36) = 0.2686267316510257D-03
        ws( 37) = 0.2865391580564192D-03
        ws( 38) = 0.3060559399858419D-03
        ws( 39) = 0.3273882076742304D-03
        ws( 40) = 0.3507829494510542D-03
        ws( 41) = 0.3765288014133653D-03
        ws( 42) = 0.4049659935219352D-03
        ws( 43) = 0.4364985416589796D-03
        ws( 44) = 0.4716076494953070D-03
        ws( 45) = 0.5108713340028932D-03
        ws( 46) = 0.5549894127013679D-03
        ws( 47) = 0.6048138146868726D-03
        ws( 48) = 0.6613922585426322D-03
        ws( 49) = 0.7260298128564548D-03
        ws( 50) = 0.8003584640140679D-03
        ws( 51) = 0.8864537869594757D-03
        ws( 52) = 0.9869773544548383D-03
        ws( 53) = 0.1105411285443647D-02
        ws( 54) = 0.1246410514291940D-02
        ws( 55) = 0.1416245378191925D-02
        ws( 56) = 0.1623569474477772D-02
        ws( 57) = 0.1880715327214517D-02
        ws( 58) = 0.2206341738339141D-02
        ws( 59) = 0.2630008365073684D-02
        ws( 60) = 0.3198222459509160D-02
        ws( 61) = 0.3981456276101123D-02
        ws( 62) = 0.5081266029323035D-02
        ws( 63) = 0.6640698470753055D-02
        ws( 64) = 0.8831053809187153D-02
        ws( 65) = 0.1174986386902093D-01
        ws( 66) = 0.1521638913051294D-01
        ws( 67) = 0.1862872804506408D-01
        ws( 68) = 0.2124306037531318D-01
        ws( 69) = 0.2283522007963205D-01
        ws( 70) = 0.2258391162313933D-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 =  75
        err = 0.4842798208762936D-07
        xs(  1) = 0.1211221767841501D-05
        xs(  2) = 0.6382221784409205D-05
        xs(  3) = 0.1568686269066793D-04
        xs(  4) = 0.2913037497049118D-04
        xs(  5) = 0.4671838445148406D-04
        xs(  6) = 0.6845938071103970D-04
        xs(  7) = 0.9436577180533023D-04
        xs(  8) = 0.1244549708473033D-03
        xs(  9) = 0.1587504341662282D-03
        xs( 10) = 0.1972827085920600D-03
        xs( 11) = 0.2400904315835812D-03
        xs( 12) = 0.2872212924669906D-03
        xs( 13) = 0.3387329416238938D-03
        xs( 14) = 0.3946938739130991D-03
        xs( 15) = 0.4551842919163456D-03
        xs( 16) = 0.5202969609997244D-03
        xs( 17) = 0.5901381008495423D-03
        xs( 18) = 0.6648283172366906D-03
        xs( 19) = 0.7445035813513881D-03
        xs( 20) = 0.8293162976746263D-03
        xs( 21) = 0.9194364682785451D-03
        xs( 22) = 0.1015053004912799D-02
        xs( 23) = 0.1116375184559647D-02
        xs( 24) = 0.1223634255852627D-02
        xs( 25) = 0.1337085271922141D-02
        xs( 26) = 0.1457009148247769D-02
        xs( 27) = 0.1583714982619733D-02
        xs( 28) = 0.1717542727766913D-02
        xs( 29) = 0.1858866182939064D-02
        xs( 30) = 0.2008096403733357D-02
        xs( 31) = 0.2165685598685644D-02
        xs( 32) = 0.2332131610263815D-02
        xs( 33) = 0.2507982964394674D-02
        xs( 34) = 0.2693844712246748D-02
        xs( 35) = 0.2890385249850220D-02
        xs( 36) = 0.3098344047693685D-02
        xs( 37) = 0.3318540675822492D-02
        xs( 38) = 0.3551885189787833D-02
        xs( 39) = 0.3799390336623244D-02
        xs( 40) = 0.4062185945222925D-02
        xs( 41) = 0.4341535544069488D-02
        xs( 42) = 0.4638856013181413D-02
        xs( 43) = 0.4955741426815091D-02
        xs( 44) = 0.5293990581931792D-02
        xs( 45) = 0.5655640466456878D-02
        xs( 46) = 0.6043006660906383D-02
        xs( 47) = 0.6458731866249147D-02
        xs( 48) = 0.6905845018860184D-02
        xs( 49) = 0.7387834844958890D-02
        xs( 50) = 0.7908739894226769D-02
        xs( 51) = 0.8473259888868252D-02
        xs( 52) = 0.9086898698609038D-02
        xs( 53) = 0.9756142509209987D-02
        xs( 54) = 0.1048869186898664D-01
        xs( 55) = 0.1129376327565965D-01
        xs( 56) = 0.1218248198123421D-01
        xs( 57) = 0.1316841347195893D-01
        xs( 58) = 0.1426828689531918D-01
        xs( 59) = 0.1550300430675184D-01
        xs( 60) = 0.1689905884197178D-01
        xs( 61) = 0.1849056077731841D-01
        xs( 62) = 0.2032237557450770D-01
        xs( 63) = 0.2245517155530488D-01
        xs( 64) = 0.2497378759687486D-01
        xs( 65) = 0.2800033656590876D-01
        xs( 66) = 0.3171380327116483D-01
        xs( 67) = 0.3637804144148840D-01
        xs( 68) = 0.4238009065326537D-01
        xs( 69) = 0.5027680958624051D-01
        xs( 70) = 0.6079606610471074D-01
        xs( 71) = 0.7466556626580771D-01
        xs( 72) = 0.9221118920663431D-01
        xs( 73) = 0.1130024967551819D+00
        xs( 74) = 0.1360314523665019D+00
        xs( 75) = 0.1598616405637580D+00
        ws(  1) = 0.3108424792599853D-05
        ws(  2) = 0.7236676489183586D-05
        ws(  3) = 0.1137331112655377D-04
        ws(  4) = 0.1551462420622782D-04
        ws(  5) = 0.1966279993805872D-04
        ws(  6) = 0.2382123867960214D-04
        ws(  7) = 0.2799442533167993D-04
        ws(  8) = 0.3218786664233891D-04
        ws(  9) = 0.3640813298392818D-04
        ws( 10) = 0.4066284016417553D-04
        ws( 11) = 0.4496054346326929D-04
        ws( 12) = 0.4931076999274371D-04
        ws( 13) = 0.5372392814795430D-04
        ws( 14) = 0.5821128908119031D-04
        ws( 15) = 0.6278499308328583D-04
        ws( 16) = 0.6745803321329365D-04
        ws( 17) = 0.7224433282366564D-04
        ws( 18) = 0.7715874458785345D-04
        ws( 19) = 0.8221716471082620D-04
        ws( 20) = 0.8743657962192138D-04
        ws( 21) = 0.9283522346610943D-04
        ws( 22) = 0.9843270302992932D-04
        ws( 23) = 0.1042501653694901D-03
        ws( 24) = 0.1103104536495515D-03
        ws( 25) = 0.1166383588016147D-03
        ws( 26) = 0.1232608642479107D-03
        ws( 27) = 0.1302074147015631D-03
        ws( 28) = 0.1375103184462781D-03
        ws( 29) = 0.1452050380265857D-03
        ws( 30) = 0.1533306938716888D-03
        ws( 31) = 0.1619305885666611D-03
        ws( 32) = 0.1710527600314750D-03
        ws( 33) = 0.1807506727237032D-03
        ws( 34) = 0.1910840972347727D-03
        ws( 35) = 0.2021200738747372D-03
        ws( 36) = 0.2139339460943026D-03
        ws( 37) = 0.2266107837472762D-03
        ws( 38) = 0.2402467970612623D-03
        ws( 39) = 0.2549515274387731D-03
        ws( 40) = 0.2708499557456920D-03
        ws( 41) = 0.2880849797732285D-03
        ws( 42) = 0.3068211887758178D-03
        ws( 43) = 0.3272488727442880D-03
        ws( 44) = 0.3495882722141390D-03
        ws( 45) = 0.3740966096301087D-03
        ws( 46) = 0.4010752614222674D-03
        ws( 47) = 0.4308787425360236D-03
        ws( 48) = 0.4639275236998127D-03
        ws( 49) = 0.5007234077004193D-03
        ws( 50) = 0.5418675803188030D-03
        ws( 51) = 0.5880868230163988D-03
        ws( 52) = 0.6402679852187825D-03
        ws( 53) = 0.6994981076038145D-03
        ws( 54) = 0.7671302285437013D-03
        ws( 55) = 0.8448580961798128D-03
        ws( 56) = 0.9348284210291185D-03
        ws( 57) = 0.1039806153986273D-02
        ws( 58) = 0.1163401053032243D-02
        ws( 59) = 0.1310416979365413D-02
        ws( 60) = 0.1487326209361718D-02
        ws( 61) = 0.1703074931451958D-02
        ws( 62) = 0.1970529911297577D-02
        ws( 63) = 0.2308986802463423D-02
        ws( 64) = 0.2748277543286159D-02
        ws( 65) = 0.3334184132564413D-02
        ws( 66) = 0.4136104503754247D-02
        ws( 67) = 0.5256000381273443D-02
        ws( 68) = 0.6840521711474158D-02
        ws( 69) = 0.9076822071069980D-02
        ws( 70) = 0.1209020527446177D-01
        ws( 71) = 0.1571073206588856D-01
        ws( 72) = 0.1930505520561200D-01
        ws( 73) = 0.2208868967072239D-01
        ws( 74) = 0.2379254551268537D-01
        ws( 75) = 0.2442003919585929D-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 =  79
        err = 0.6707567918781317D-07
        xs(  1) = 0.1075242725090319D-05
        xs(  2) = 0.5665465195352078D-05
        xs(  3) = 0.1392411511740621D-04
        xs(  4) = 0.2585414635017059D-04
        xs(  5) = 0.4145815645363778D-04
        xs(  6) = 0.6074043422113262D-04
        xs(  7) = 0.8370792741302740D-04
        xs(  8) = 0.1103711010907351D-03
        xs(  9) = 0.1407447884119346D-03
        xs( 10) = 0.1748490597110934D-03
        xs( 11) = 0.2127099858006980D-03
        xs( 12) = 0.2543604030437893D-03
        xs( 13) = 0.2998406116821000D-03
        xs( 14) = 0.3491990486483293D-03
        xs( 15) = 0.4024928986560037D-03
        xs( 16) = 0.4597887330079706D-03
        xs( 17) = 0.5211631097361826D-03
        xs( 18) = 0.5867032314270928D-03
        xs( 19) = 0.6565075907641205D-03
        xs( 20) = 0.7306866834861292D-03
        xs( 21) = 0.8093637542914308D-03
        xs( 22) = 0.8926756313485779D-03
        xs( 23) = 0.9807736518818125D-03
        xs( 24) = 0.1073824686004951D-02
        xs( 25) = 0.1172012246971835D-02
        xs( 26) = 0.1275537750732640D-02
        xs( 27) = 0.1384621951866197D-02
        xs( 28) = 0.1499506502370089D-02
        xs( 29) = 0.1620455787010683D-02
        xs( 30) = 0.1747758918226128D-02
        xs( 31) = 0.1881731990974656D-02
        xs( 32) = 0.2022720689665199D-02
        xs( 33) = 0.2171103194469784D-02
        xs( 34) = 0.2327293466700384D-02
        xs( 35) = 0.2491744980922665D-02
        xs( 36) = 0.2664955034647169D-02
        xs( 37) = 0.2847469689564122D-02
        xs( 38) = 0.3039889285552420D-02
        xs( 39) = 0.3242874837968502D-02
        xs( 40) = 0.3457155369916114D-02
        xs( 41) = 0.3683536555766946D-02
        xs( 42) = 0.3922910542530302D-02
        xs( 43) = 0.4176267257600532D-02
        xs( 44) = 0.4444707971321739D-02
        xs( 45) = 0.4729460948744668D-02
        xs( 46) = 0.5031899546076417D-02
        xs( 47) = 0.5353564255755821D-02
        xs( 48) = 0.5696188580502995D-02
        xs( 49) = 0.6061729227090357D-02
        xs( 50) = 0.6452403445807575D-02
        xs( 51) = 0.6870733632674310D-02
        xs( 52) = 0.7319601234825226D-02
        xs( 53) = 0.7802313011235905D-02
        xs( 54) = 0.8322682293912833D-02
        xs( 55) = 0.8885128276613285D-02
        xs( 56) = 0.9494803827965630D-02
        xs( 57) = 0.1015775634192425D-01
        xs( 58) = 0.1088113298371457D-01
        xs( 59) = 0.1167344511138656D-01
        xs( 60) = 0.1254490586626947D-01
        xs( 61) = 0.1350789182760715D-01
        xs( 62) = 0.1457757551045559D-01
        xs( 63) = 0.1577280244535576D-01
        xs( 64) = 0.1711729770994616D-01
        xs( 65) = 0.1864134037733812D-01
        xs( 66) = 0.2038438923304611D-01
        xs( 67) = 0.2239941866102483D-01
        xs( 68) = 0.2476027907219735D-01
        xs( 69) = 0.2757336112862867D-01
        xs( 70) = 0.3099433290644392D-01
        xs( 71) = 0.3525169379088636D-01
        xs( 72) = 0.4068124937441162D-01
        xs( 73) = 0.4777336285286825D-01
        xs( 74) = 0.5720269896426553D-01
        xs( 75) = 0.6975254407369563D-01
        xs( 76) = 0.8603390634707839D-01
        xs( 77) = 0.1060614985567894D+00
        xs( 78) = 0.1291607317240083D+00
        xs( 79) = 0.1537943683597402D+00
        ws(  1) = 0.2759417843934078D-05
        ws(  2) = 0.6423635533154674D-05
        ws(  3) = 0.1009400426771068D-04
        ws(  4) = 0.1376648001219075D-04
        ws(  5) = 0.1744224469774142D-04
        ws(  6) = 0.2112345468976452D-04
        ws(  7) = 0.2481325375501267D-04
        ws(  8) = 0.2851554966514824D-04
        ws(  9) = 0.3223516305086563D-04
        ws( 10) = 0.3597770815927048D-04
        ws( 11) = 0.3974959925881160D-04
        ws( 12) = 0.4355794760634629D-04
        ws( 13) = 0.4741054131811229D-04
        ws( 14) = 0.5131584479912159D-04
        ws( 15) = 0.5528293734489151D-04
        ws( 16) = 0.5932148068058691D-04
        ws( 17) = 0.6344179740864343D-04
        ws( 18) = 0.6765484956839635D-04
        ws( 19) = 0.7197227545549323D-04
        ws( 20) = 0.7640643730452096D-04
        ws( 21) = 0.8097049317384178D-04
        ws( 22) = 0.8567846774299889D-04
        ws( 23) = 0.9054536847654742D-04
        ws( 24) = 0.9558726569106652D-04
        ws( 25) = 0.1008214010530045D-03
        ws( 26) = 0.1062663761512609D-03
        ws( 27) = 0.1119422723043469D-03
        ws( 28) = 0.1178708602826951D-03
        ws( 29) = 0.1240758566022185D-03
        ws( 30) = 0.1305830485036992D-03
        ws( 31) = 0.1374206660904857D-03
        ws( 32) = 0.1446197084794252D-03
        ws( 33) = 0.1522142343024610D-03
        ws( 34) = 0.1602418197832588D-03
        ws( 35) = 0.1687440043048020D-03
        ws( 36) = 0.1777670246011580D-03
        ws( 37) = 0.1873622394626445D-03
        ws( 38) = 0.1975870032111359D-03
        ws( 39) = 0.2085054580063328D-03
        ws( 40) = 0.2201897188877145D-03
        ws( 41) = 0.2327211597324870D-03
        ws( 42) = 0.2461915813776686D-03
        ws( 43) = 0.2607051229124924D-03
        ws( 44) = 0.2763807254947342D-03
        ws( 45) = 0.2933537538937761D-03
        ws( 46) = 0.3117797493646220D-03
        ws( 47) = 0.3318381049510413D-03
        ws( 48) = 0.3537360378272854D-03
        ws( 49) = 0.3777140730575974D-03
        ws( 50) = 0.4040538484155875D-03
        ws( 51) = 0.4330856985402723D-03
        ws( 52) = 0.4651992819691071D-03
        ws( 53) = 0.5008582070606942D-03
        ws( 54) = 0.5406147480284820D-03
        ws( 55) = 0.5851333613419529D-03
        ws( 56) = 0.6352222652990432D-03
        ws( 57) = 0.6918695276315551D-03
        ws( 58) = 0.7562968567364918D-03
        ws( 59) = 0.8300218846819662D-03
        ws( 60) = 0.9149520393466358D-03
        ws( 61) = 0.1013534245856924D-02
        ws( 62) = 0.1128954164402682D-02
        ws( 63) = 0.1265427120434743D-02
        ws( 64) = 0.1428567860674120D-02
        ws( 65) = 0.1626025274692868D-02
        ws( 66) = 0.1868781895255890D-02
        ws( 67) = 0.2173392580871410D-02
        ws( 68) = 0.2565784955139898D-02
        ws( 69) = 0.3085937628816054D-02
        ws( 70) = 0.3793536419491234D-02
        ws( 71) = 0.4776303710246829D-02
        ws( 72) = 0.6163819918360362D-02
        ws( 73) = 0.8133816403693437D-02
        ws( 74) = 0.1086009196944889D-01
        ws( 75) = 0.1435011629442030D-01
        ws( 76) = 0.1821599503494495D-01
        ws( 77) = 0.2172591152285093D-01
        ws( 78) = 0.2432510532242338D-01
        ws( 79) = 0.2496628118745502D-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 =  84
        err = 0.3435750253151828D-07
        xs(  1) = 0.9520390030931483D-06
        xs(  2) = 0.5016226379400357D-05
        xs(  3) = 0.1232801913547517D-04
        xs(  4) = 0.2288931538177353D-04
        xs(  5) = 0.3670125923649086D-04
        xs(  6) = 0.5376606509562038D-04
        xs(  7) = 0.7408772615214353D-04
        xs(  8) = 0.9767274456242817D-04
        xs(  9) = 0.1245307695301830D-03
        xs( 10) = 0.1546752809564707D-03
        xs( 11) = 0.1881242027134097D-03
        xs( 12) = 0.2249004788127628D-03
        xs( 13) = 0.2650326237548608D-03
        xs( 14) = 0.3085552134357036D-03
        xs( 15) = 0.3555093747315655D-03
        xs( 16) = 0.4059432211461755D-03
        xs( 17) = 0.4599123066512758D-03
        xs( 18) = 0.5174800710720518D-03
        xs( 19) = 0.5787182999308694D-03
        xs( 20) = 0.6437075918262274D-03
        xs( 21) = 0.7125378625236551D-03
        xs( 22) = 0.7853088881393151D-03
        xs( 23) = 0.8621308991802801D-03
        xs( 24) = 0.9431252254610072D-03
        xs( 25) = 0.1028425008290349D-02
        xs( 26) = 0.1118175988412132D-02
        xs( 27) = 0.1212537380867692D-02
        xs( 28) = 0.1311682849974834D-02
        xs( 29) = 0.1415801589757944D-02
        xs( 30) = 0.1525099562857239D-02
        xs( 31) = 0.1639800823660730D-02
        xs( 32) = 0.1760149048646366D-02
        xs( 33) = 0.1886409252359008D-02
        xs( 34) = 0.2018869682220264D-02
        xs( 35) = 0.2157843986482669D-02
        xs( 36) = 0.2303673591664677D-02
        xs( 37) = 0.2456730466993123D-02
        xs( 38) = 0.2617420194035627D-02
        xs( 39) = 0.2786185475158584D-02
        xs( 40) = 0.2963510046339178D-02
        xs( 41) = 0.3149923143902843D-02
        xs( 42) = 0.3346004787045854D-02
        xs( 43) = 0.3552391530144542D-02
        xs( 44) = 0.3769783092634201D-02
        xs( 45) = 0.3998950232918696D-02
        xs( 46) = 0.4240743728822725D-02
        xs( 47) = 0.4496104373125044D-02
        xs( 48) = 0.4766075129637040D-02
        xs( 49) = 0.5051815193055412D-02
        xs( 50) = 0.5354616136252484D-02
        xs( 51) = 0.5675920915114859D-02
        xs( 52) = 0.6017347018967810D-02
        xs( 53) = 0.6380712946593680D-02
        xs( 54) = 0.6768069791444778D-02
        xs( 55) = 0.7181740505613165D-02
        xs( 56) = 0.7624365357800084D-02
        xs( 57) = 0.8098957950065492D-02
        xs( 58) = 0.8608975017884062D-02
        xs( 59) = 0.9158398869158252D-02
        xs( 60) = 0.9751841692494012D-02
        xs( 61) = 0.1039467765999552D-01
        xs( 62) = 0.1109320604417079D-01
        xs( 63) = 0.1185486548661870D-01
        xs( 64) = 0.1268850593888943D-01
        xs( 65) = 0.1360473670092127D-01
        xs( 66) = 0.1461640479208190D-01
        xs( 67) = 0.1573922899609277D-01
        xs( 68) = 0.1699270517735869D-01
        xs( 69) = 0.1840134380750284D-01
        xs( 70) = 0.1999640358352036D-01
        xs( 71) = 0.2181856751354586D-01
        xs( 72) = 0.2392221448921331D-01
        xs( 73) = 0.2638279189151243D-01
        xs( 74) = 0.2930854013804138D-01
        xs( 75) = 0.3285795853664206D-01
        xs( 76) = 0.3726416325131140D-01
        xs( 77) = 0.4286941189076203D-01
        xs( 78) = 0.5017329013715215D-01
        xs( 79) = 0.5986191780380145D-01
        xs( 80) = 0.7273790522584397D-01
        xs( 81) = 0.8945765057298735D-01
        xs( 82) = 0.1101075696516188D+00
        xs( 83) = 0.1339951422611831D+00
        xs( 84) = 0.1595374256215644D+00
        ws(  1) = 0.2443234600933084D-05
        ws(  2) = 0.5687374356691986D-05
        ws(  3) = 0.8936397602646628D-05
        ws(  4) = 0.1218637158722686D-04
        ws(  5) = 0.1543788229546573D-04
        ws(  6) = 0.1869238121274614D-04
        ws(  7) = 0.2195201359843995D-04
        ws(  8) = 0.2521961515190579D-04
        ws(  9) = 0.2849866932458331D-04
        ws( 10) = 0.3179333208867656D-04
        ws( 11) = 0.3510832905748415D-04
        ws( 12) = 0.3844896715441223D-04
        ws( 13) = 0.4182107564571938D-04
        ws( 14) = 0.4523095292363127D-04
        ws( 15) = 0.4868538070946561D-04
        ws( 16) = 0.5219156281291964D-04
        ws( 17) = 0.5575717155933725D-04
        ws( 18) = 0.5939031561120124D-04
        ws( 19) = 0.6309956850985693D-04
        ws( 20) = 0.6689399075644683D-04
        ws( 21) = 0.7078316780908560D-04
        ws( 22) = 0.7477724569853386D-04
        ws( 23) = 0.7888698628067316D-04
        ws( 24) = 0.8312384303000709D-04
        ws( 25) = 0.8749999899383200D-04
        ws( 26) = 0.9202847944404217D-04
        ws( 27) = 0.9672323149438178D-04
        ws( 28) = 0.1015992169590869D-03
        ws( 29) = 0.1066725691267674D-03
        ws( 30) = 0.1119606927229549D-03
        ws( 31) = 0.1174824148960965D-03
        ws( 32) = 0.1232581737995486D-03
        ws( 33) = 0.1293102347940977D-03
        ws( 34) = 0.1356628628608123D-03
        ws( 35) = 0.1423426026226704D-03
        ws( 36) = 0.1493785543246176D-03
        ws( 37) = 0.1568027352476410D-03
        ws( 38) = 0.1646504348298283D-03
        ws( 39) = 0.1729606791038473D-03
        ws( 40) = 0.1817765783342055D-03
        ws( 41) = 0.1911461921809282D-03
        ws( 42) = 0.2011230779699378D-03
        ws( 43) = 0.2117669005386755D-03
        ws( 44) = 0.2231445293838978D-03
        ws( 45) = 0.2353313918710962D-03
        ws( 46) = 0.2484121919082383D-03
        ws( 47) = 0.2624826954566006D-03
        ws( 48) = 0.2776517511176861D-03
        ws( 49) = 0.2940433337783259D-03
        ws( 50) = 0.3117986446447934D-03
        ws( 51) = 0.3310800633181034D-03
        ws( 52) = 0.3520747201698411D-03
        ws( 53) = 0.3749983132347154D-03
        ws( 54) = 0.4001017921335861D-03
        ws( 55) = 0.4276787633472499D-03
        ws( 56) = 0.4580720458902025D-03
        ws( 57) = 0.4916879211211661D-03
        ws( 58) = 0.5290082174099708D-03
        ws( 59) = 0.5706059668147554D-03
        ws( 60) = 0.6171727310930080D-03
        ws( 61) = 0.6695455439056666D-03
        ws( 62) = 0.7287464065459929D-03
        ws( 63) = 0.7960418965158468D-03
        ws( 64) = 0.8729991029133796D-03
        ws( 65) = 0.9615934666423531D-03
        ws( 66) = 0.1064347458083445D-02
        ws( 67) = 0.1184529897351860D-02
        ws( 68) = 0.1326480093223089D-02
        ws( 69) = 0.1495962990376476D-02
        ws( 70) = 0.1700870953096014D-02
        ws( 71) = 0.1952399487898034D-02
        ws( 72) = 0.2267276569065473D-02
        ws( 73) = 0.2671631897059859D-02
        ws( 74) = 0.3205873915741466D-02
        ws( 75) = 0.3931273600245390D-02
        ws( 76) = 0.4937302482713496D-02
        ws( 77) = 0.6355760819198421D-02
        ws( 78) = 0.8367288682029083D-02
        ws( 79) = 0.1114798950022256D-01
        ws( 80) = 0.1472177421285894D-01
        ws( 81) = 0.1873528800122010D-01
        ws( 82) = 0.2244753127337847D-01
        ws( 83) = 0.2511248386762108D-01
        ws( 84) = 0.2551131496954673D-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 =  20
        err = 0.9151548806185512D-07
        xs(  1) = 0.4504786663677753D-03
        xs(  2) = 0.2347298885529004D-02
        xs(  3) = 0.5644553226597901D-02
        xs(  4) = 0.1015502360204472D-01
        xs(  5) = 0.1566798640467159D-01
        xs(  6) = 0.2199487232430283D-01
        xs(  7) = 0.2898371221916826D-01
        xs(  8) = 0.3651699873209763D-01
        xs(  9) = 0.4450510522058183D-01
        xs( 10) = 0.5287987622569698D-01
        xs( 11) = 0.6158949719073783D-01
        xs( 12) = 0.7059467937440871D-01
        xs( 13) = 0.7986592318516079D-01
        xs( 14) = 0.8938163910458659D-01
        xs( 15) = 0.9912712082130992D-01
        xs( 16) = 0.1090939666026362D+00
        xs( 17) = 0.1192806454683505D+00
        xs( 18) = 0.1296959726910948D+00
        xs( 19) = 0.1403538733198700D+00
        xs( 20) = 0.1514318804220985D+00
        ws(  1) = 0.1153263684274191D-02
        ws(  2) = 0.2622996086965448D-02
        ws(  3) = 0.3939117118531700D-02
        ws(  4) = 0.5045920407561293D-02
        ws(  5) = 0.5948386620214423D-02
        ws(  6) = 0.6680121018677350D-02
        ws(  7) = 0.7278093384211837D-02
        ws(  8) = 0.7773651843103633D-02
        ws(  9) = 0.8191290788080469D-02
        ws( 10) = 0.8549687189956062D-02
        ws( 11) = 0.8863072410698036D-02
        ws( 12) = 0.9142463542070524D-02
        ws( 13) = 0.9396613091473814D-02
        ws( 14) = 0.9632905957259155D-02
        ws( 15) = 0.9858159886318989D-02
        ws( 16) = 0.1007938787604446D-01
        ws( 17) = 0.1030940965018729D-01
        ws( 18) = 0.1058118804446153D-01
        ws( 19) = 0.1098103391801517D-01
        ws( 20) = 0.1273146853251371D-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 =  20
        err = 0.9811125467201971D-07
        xs(  1) = 0.4480648550897551D-03
        xs(  2) = 0.2335746919375948D-02
        xs(  3) = 0.5620351960428443D-02
        xs(  4) = 0.1011813020978798D-01
        xs(  5) = 0.1562010191400147D-01
        xs(  6) = 0.2193807713097490D-01
        xs(  7) = 0.2891982786642813D-01
        xs(  8) = 0.3644738909017023D-01
        xs(  9) = 0.4443068622716808D-01
        xs( 10) = 0.5280120642061090D-01
        xs( 11) = 0.6150688470679360D-01
        xs( 12) = 0.7050827776939846D-01
        xs( 13) = 0.7977582171832619D-01
        xs( 14) = 0.8928790738589296D-01
        xs( 15) = 0.9902988595955356D-01
        xs( 16) = 0.1089935173680342D+00
        xs( 17) = 0.1191772480509463D+00
        xs( 18) = 0.1295902628377820D+00
        xs( 19) = 0.1402483890988678D+00
        xs( 20) = 0.1513265150833506D+00
        ws(  1) = 0.1147210664371347D-02
        ws(  2) = 0.2611418986900033D-02
        ws(  3) = 0.3926002302091357D-02
        ws(  4) = 0.5033929757259542D-02
        ws(  5) = 0.5938445304268841D-02
        ws(  6) = 0.6672190811263388D-02
        ws(  7) = 0.7271765741081447D-02
        ws(  8) = 0.7768453093016322D-02
        ws(  9) = 0.8186811040770063D-02
        ws( 10) = 0.8545624077852641D-02
        ws( 11) = 0.8859224203034213D-02
        ws( 12) = 0.9138723971252972D-02
        ws( 13) = 0.9392949720667673D-02
        ws( 14) = 0.9629317766663065D-02
        ws( 15) = 0.9854783611849547D-02
        ws( 16) = 0.1007633508026738D-01
        ws( 17) = 0.1030660798026839D-01
        ws( 18) = 0.1057973430248083D-01
        ws( 19) = 0.1098397943298307D-01
        ws( 20) = 0.1272365739762017D-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 =  21
        err = 0.7588749855952678D-07
        xs(  1) = 0.4075070525311881D-03
        xs(  2) = 0.2130760785397041D-02
        xs(  3) = 0.5154242936189222D-02
        xs(  4) = 0.9339911968389151D-02
        xs(  5) = 0.1451610679377483D-01
        xs(  6) = 0.2051608725316991D-01
        xs(  7) = 0.2719719958336905D-01
        xs(  8) = 0.3444462675678139D-01
        xs(  9) = 0.4216838930399139D-01
        xs( 10) = 0.5029863583270119D-01
        xs( 11) = 0.5878121943616677D-01
        xs( 12) = 0.6757416151126683D-01
        xs( 13) = 0.7664497240475394D-01
        xs( 14) = 0.8596866671615115D-01
        xs( 15) = 0.9552665582528255D-01
        xs( 16) = 0.1053054947577847D+00
        xs( 17) = 0.1152964958468160D+00
        xs( 18) = 0.1254985379575905D+00
        xs( 19) = 0.1359106928159534D+00
        xs( 20) = 0.1465448982035115D+00
        xs( 21) = 0.1572617795896949D+00
        ws(  1) = 0.1044091374433596D-02
        ws(  2) = 0.2391321223611812D-02
        ws(  3) = 0.3631912102333585D-02
        ws(  4) = 0.4710121815239187D-02
        ws(  5) = 0.5614180180934996D-02
        ws(  6) = 0.6361965018708227D-02
        ws(  7) = 0.6981185067555121D-02
        ws(  8) = 0.7498755718786051D-02
        ws(  9) = 0.7937203880443319D-02
        ws( 10) = 0.8314327472124575D-02
        ws( 11) = 0.8643895376152530D-02
        ws( 12) = 0.8936630364102124D-02
        ws( 13) = 0.9200903166854024D-02
        ws( 14) = 0.9443603366284021D-02
        ws( 15) = 0.9670733839256634D-02
        ws( 16) = 0.9886952192723109D-02
        ws( 17) = 0.1009926619769407D-01
        ws( 18) = 0.1032147367211215D-01
        ws( 19) = 0.1056569742170356D-01
        ws( 20) = 0.1096275683470481D-01
        ws( 21) = 0.1195378036903631D-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 =  19
        err = 0.8979000109113348D-07
        xs(  1) = 0.3859517556313570D-03
        xs(  2) = 0.2041223024667955D-02
        xs(  3) = 0.5016214004455939D-02
        xs(  4) = 0.9230273625249190D-02
        xs(  5) = 0.1452364767367794D-01
        xs(  6) = 0.2071098557345890D-01
        xs(  7) = 0.2762440709023642D-01
        xs(  8) = 0.3512858136126785D-01
        xs(  9) = 0.4311977330374397D-01
        xs( 10) = 0.5151998933212065D-01
        xs( 11) = 0.6027100291761720D-01
        xs( 12) = 0.6932960299905645D-01
        xs( 13) = 0.7866424468997835D-01
        xs( 14) = 0.8825265122438596D-01
        xs( 15) = 0.9808083903511206D-01
        xs( 16) = 0.1081435115581791D+00
        xs( 17) = 0.1184423247373723D+00
        xs( 18) = 0.1289898284802812D+00
        xs( 19) = 0.1399020696270393D+00
        ws(  1) = 0.9917705593755889D-03
        ws(  2) = 0.2320432030290276D-02
        ws(  3) = 0.3615994648397883D-02
        ws(  4) = 0.4784409723939701D-02
        ws(  5) = 0.5770707977906953D-02
        ws(  6) = 0.6575778080267654D-02
        ws(  7) = 0.7228554094560919D-02
        ws(  8) = 0.7762616716428952D-02
        ws(  9) = 0.8206880021754705D-02
        ws( 10) = 0.8583953558371054D-02
        ws( 11) = 0.8910996088202928D-02
        ws( 12) = 0.9201188831535107D-02
        ws( 13) = 0.9464972661339015D-02
        ws( 14) = 0.9711088378324059D-02
        ws( 15) = 0.9949206152242955D-02
        ws( 16) = 0.1019275752546136D-01
        ws( 17) = 0.1046764078866919D-01
        ws( 18) = 0.1087991083698605D-01
        ws( 19) = 0.1249438611719558D-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 =  21
        err = 0.2519671556586400D-07
        xs(  1) = 0.3072529276755927D-03
        xs(  2) = 0.1636773979783105D-02
        xs(  3) = 0.4076267217458909D-02
        xs(  4) = 0.7634730971906497D-02
        xs(  5) = 0.1224514760148743D-01
        xs(  6) = 0.1778258538679935D-01
        xs(  7) = 0.2410450183485281D-01
        xs(  8) = 0.3107910653238387D-01
        xs(  9) = 0.3859642262748865D-01
        xs( 10) = 0.4656914913916211D-01
        xs( 11) = 0.5492960360180076D-01
        xs( 12) = 0.6362594561268800D-01
        xs( 13) = 0.7261882120209975D-01
        xs( 14) = 0.8187884925098518D-01
        xs( 15) = 0.9138473153078595D-01
        xs( 16) = 0.1011220566100337D+00
        xs( 17) = 0.1110835628675777D+00
        xs( 18) = 0.1212685069228220D+00
        xs( 19) = 0.1316829725203214D+00
        xs( 20) = 0.1423464248406210D+00
        xs( 21) = 0.1534354285811562D+00
        ws(  1) = 0.7908207521568675D-03
        ws(  2) = 0.1877626606827474D-02
        ws(  3) = 0.3003571157971643D-02
        ws(  4) = 0.4101761867868976D-02
        ws(  5) = 0.5097488280921821D-02
        ws(  6) = 0.5953155766334005D-02
        ws(  7) = 0.6668549884463667D-02
        ws(  8) = 0.7262331109289707D-02
        ws(  9) = 0.7757810532393242D-02
        ws( 10) = 0.8176430408380224D-02
        ws( 11) = 0.8535904023874911D-02
        ws( 12) = 0.8850282179350504D-02
        ws( 13) = 0.9130657194874032D-02
        ws( 14) = 0.9386045458910662D-02
        ws( 15) = 0.9623827253819208D-02
        ws( 16) = 0.9851058977616166D-02
        ws( 17) = 0.1007586109725439D-01
        ws( 18) = 0.1030840092806256D-01
        ws( 19) = 0.1058164484477213D-01
        ws( 20) = 0.1097187890899543D-01
        ws( 21) = 0.1284941609364382D-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 =  21
        err = 0.8489030109213087D-07
        xs(  1) = 0.2176903331902536D-03
        xs(  2) = 0.1179089981876485D-02
        xs(  3) = 0.3023869712782711D-02
        xs(  4) = 0.5882882265741305D-02
        xs(  5) = 0.9819066038808359D-02
        xs(  6) = 0.1478547113542220D-01
        xs(  7) = 0.2065787811408639D-01
        xs(  8) = 0.2729021411921500D-01
        xs(  9) = 0.3454938435187030D-01
        xs( 10) = 0.4232694796533794D-01
        xs( 11) = 0.5053884343664935D-01
        xs( 12) = 0.5912127897144615D-01
        xs( 13) = 0.6802635260795176D-01
        xs( 14) = 0.7721848480899812D-01
        xs( 15) = 0.8667184668197087D-01
        xs( 16) = 0.9636878708323129D-01
        xs( 17) = 0.1062987695119709D+00
        xs( 18) = 0.1164590988556014D+00
        xs( 19) = 0.1268565503093703D+00
        xs( 20) = 0.1375036747508165D+00
        xs( 21) = 0.1484869177339508D+00
        ws(  1) = 0.5624568362733970D-03
        ws(  2) = 0.1380065450727784D-02
        ws(  3) = 0.2333000402097317D-02
        ws(  4) = 0.3396304416480524D-02
        ws(  5) = 0.4467509579543669D-02
        ws(  6) = 0.5443564311722867D-02
        ws(  7) = 0.6276334691122245D-02
        ws(  8) = 0.6965993194921933D-02
        ws(  9) = 0.7534298753927393D-02
        ws( 10) = 0.8006897797619855D-02
        ws( 11) = 0.8406345182601386D-02
        ws( 12) = 0.8750623919996139D-02
        ws( 13) = 0.9053699822609538D-02
        ws( 14) = 0.9326470705164092D-02
        ws( 15) = 0.9577884691593807D-02
        ws( 16) = 0.9815772176738811D-02
        ws( 17) = 0.1004809098403251D-01
        ws( 18) = 0.1028897442117334D-01
        ws( 19) = 0.1056778610671451D-01
        ws( 20) = 0.1098324718675867D-01
        ws( 21) = 0.1247228220784201D-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 =  22
        err = 0.7835386291682105D-07
        xs(  1) = 0.1581317065725194D-03
        xs(  2) = 0.8582235129993982D-03
        xs(  3) = 0.2217319899053053D-02
        xs(  4) = 0.4386640333631991D-02
        xs(  5) = 0.7517511650885505D-02
        xs(  6) = 0.1168394210986399D-01
        xs(  7) = 0.1684753812406826D-01
        xs(  8) = 0.2289075113287321D-01
        xs(  9) = 0.2967213181010405D-01
        xs( 10) = 0.3706192004662732D-01
        xs( 11) = 0.4495433250571952D-01
        xs( 12) = 0.5326751330366853D-01
        xs( 13) = 0.6193948133185872D-01
        xs( 14) = 0.7092377487305075D-01
        xs( 15) = 0.8018587071593312D-01
        xs( 16) = 0.8970069295013754D-01
        xs( 17) = 0.9945092212247501D-01
        xs( 18) = 0.1094259848287651D+00
        xs( 19) = 0.1196231940280985D+00
        xs( 20) = 0.1300478256503790D+00
        xs( 21) = 0.1407048341505956D+00
        xs( 22) = 0.1517656168795478D+00
        ws(  1) = 0.4086850060567097D-03
        ws(  2) = 0.1007892913117795D-02
        ws(  3) = 0.1736431793978349D-02
        ws(  4) = 0.2628931242258374D-02
        ws(  5) = 0.3645813303976426D-02
        ws(  6) = 0.4679931322593411D-02
        ws(  7) = 0.5626640141469343D-02
        ws(  8) = 0.6435624638148611D-02
        ws(  9) = 0.7105338074349977D-02
        ws( 10) = 0.7656629317416314D-02
        ws( 11) = 0.8114631691057941D-02
        ws( 12) = 0.8501481897550312D-02
        ws( 13) = 0.8834791877393751D-02
        ws( 14) = 0.9128142550331564D-02
        ws( 15) = 0.9392079010598634D-02
        ws( 16) = 0.9635230890201171D-02
        ws( 17) = 0.9864867884150278D-02
        ws( 18) = 0.1008894851012084D-01
        ws( 19) = 0.1032140144291648D-01
        ws( 20) = 0.1058852515647726D-01
        ws( 21) = 0.1096294756124976D-01
        ws( 22) = 0.1274171567220819D-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 =  25
        err = 0.3587653277121984D-07
        xs(  1) = 0.7757014205667502D-04
        xs(  2) = 0.4168338829744602D-03
        xs(  3) = 0.1061906035315902D-02
        xs(  4) = 0.2078347730259491D-02
        xs(  5) = 0.3571367325309564D-02
        xs(  6) = 0.5687735429259577D-02
        xs(  7) = 0.8596624845861689D-02
        xs(  8) = 0.1243722042887296D-01
        xs(  9) = 0.1725694481913249D-01
        xs( 10) = 0.2299666802137092D-01
        xs( 11) = 0.2953375285025988D-01
        xs( 12) = 0.3673438751518428D-01
        xs( 13) = 0.4448184998283530D-01
        xs( 14) = 0.5268349349422667D-01
        xs( 15) = 0.6126849502035668D-01
        xs( 16) = 0.7018336239160460D-01
        xs( 17) = 0.7938794737147128D-01
        xs( 18) = 0.8885242312150315D-01
        xs( 19) = 0.9855503701887378D-01
        xs( 20) = 0.1084813844885048D+00
        xs( 21) = 0.1186233466544201D+00
        xs( 22) = 0.1289785686577510D+00
        xs( 23) = 0.1395622697727764D+00
        xs( 24) = 0.1503644364161880D+00
        xs( 25) = 0.1618942110315292D+00
        ws(  1) = 0.1999816752425738D-03
        ws(  2) = 0.4841514724887178D-03
        ws(  3) = 0.8167692416421636D-03
        ws(  4) = 0.1233579137106285D-02
        ws(  5) = 0.1777194607148931D-02
        ws(  6) = 0.2484659231534350D-02
        ws(  7) = 0.3357530200047180D-02
        ws(  8) = 0.4331845687675145D-02
        ws(  9) = 0.5296865957407353D-02
        ws( 10) = 0.6161186824705375D-02
        ws( 11) = 0.6890232253289679D-02
        ws( 12) = 0.7491501258113708D-02
        ws( 13) = 0.7988035694154818D-02
        ws( 14) = 0.8403530541761439D-02
        ws( 15) = 0.8757630718609395D-02
        ws( 16) = 0.9065477363573471D-02
        ws( 17) = 0.9338804372566857D-02
        ws( 18) = 0.9586647869222496D-02
        ws( 19) = 0.9816616908541324D-02
        ws( 20) = 0.1003617821210221D-01
        ws( 21) = 0.1025081260698759D-01
        ws( 22) = 0.1047131615762489D-01
        ws( 23) = 0.1074755584752265D-01
        ws( 24) = 0.1104982869504020D-01
        ws( 25) = 0.1384393301232457D-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 =  30
        err = 0.2311041314195365D-07
        xs(  1) = 0.3005959345193681D-04
        xs(  2) = 0.1597877834156174D-03
        xs(  3) = 0.3991037752677928D-03
        xs(  4) = 0.7590039245851769D-03
        xs(  5) = 0.1257155798373610D-02
        xs(  6) = 0.1920196801764521D-02
        xs(  7) = 0.2787068777661702D-02
        xs(  8) = 0.3913700816861063D-02
        xs(  9) = 0.5379097376173409D-02
        xs( 10) = 0.7291830327564611D-02
        xs( 11) = 0.9793031058666008D-02
        xs( 12) = 0.1304624652624598D-01
        xs( 13) = 0.1720111725388507D-01
        xs( 14) = 0.2233552925827501D-01
        xs( 15) = 0.2841842201342927D-01
        xs( 16) = 0.3533107970956045D-01
        xs( 17) = 0.4292361096156010D-01
        xs( 18) = 0.5105897007697355D-01
        xs( 19) = 0.5962943046301374D-01
        xs( 20) = 0.6855602631988825D-01
        xs( 21) = 0.7778257780763861D-01
        xs( 22) = 0.8726955671312130D-01
        xs( 23) = 0.9698965773614845D-01
        xs( 24) = 0.1069243872273013D+00
        xs( 25) = 0.1170627890397953D+00
        xs( 26) = 0.1274008811192790D+00
        xs( 27) = 0.1379357101004123D+00
        xs( 28) = 0.1486944030751360D+00
        xs( 29) = 0.1597248620223940D+00
        xs( 30) = 0.1712012493385545D+00
        ws(  1) = 0.7730124366193467D-04
        ws(  2) = 0.1831552962308760D-03
        ws(  3) = 0.2972821942028427D-03
        ws(  4) = 0.4254253129368784D-03
        ws(  5) = 0.5752631967962682D-03
        ws(  6) = 0.7572315390209405D-03
        ws(  7) = 0.9857307255230854D-03
        ws(  8) = 0.1280584600771471D-02
        ws(  9) = 0.1668231741922281D-02
        ws( 10) = 0.2180885367659315D-02
        ws( 11) = 0.2849374634946076D-02
        ws( 12) = 0.3683080133854936D-02
        ws( 13) = 0.4640391032804012D-02
        ws( 14) = 0.5622819498732188D-02
        ws( 15) = 0.6522094367293242D-02
        ws( 16) = 0.7277479991598491D-02
        ws( 17) = 0.7884504089339635D-02
        ws( 18) = 0.8368298291995402D-02
        ws( 19) = 0.8759571309364935D-02
        ws( 20) = 0.9084368459168907D-02
        ws( 21) = 0.9362237161055159D-02
        ws( 22) = 0.9607277947293050D-02
        ws( 23) = 0.9829935984369625D-02
        ws( 24) = 0.1003760476641476D-01
        ws( 25) = 0.1023931432200462D-01
        ws( 26) = 0.1044186978614619D-01
        ws( 27) = 0.1065172761674575D-01
        ws( 28) = 0.1090419491724364D-01
        ws( 29) = 0.1078382501809753D-01
        ws( 30) = 0.1566513569637594D-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 =  32
        err = 0.6743565144626301D-07
        xs(  1) = 0.1656584546330475D-04
        xs(  2) = 0.8771101916277826D-04
        xs(  3) = 0.2174933873022554D-03
        xs(  4) = 0.4091901503064562D-03
        xs(  5) = 0.6679217354526821D-03
        xs(  6) = 0.1001161741224485D-02
        xs(  7) = 0.1419430640184611D-02
        xs(  8) = 0.1937269735607883D-02
        xs(  9) = 0.2574636265595727D-02
        xs( 10) = 0.3358934108528368D-02
        xs( 11) = 0.4327988261975962D-02
        xs( 12) = 0.5534404200077564D-02
        xs( 13) = 0.7051852535340868D-02
        xs( 14) = 0.8983587784833822D-02
        xs( 15) = 0.1147236133241538D-01
        xs( 16) = 0.1470670622604610D-01
        xs( 17) = 0.1890737951865310D-01
        xs( 18) = 0.2426843282480737D-01
        xs( 19) = 0.3085950488200234D-01
        xs( 20) = 0.3857128762819510D-01
        xs( 21) = 0.4717290491856876D-01
        xs( 22) = 0.5642017874020450D-01
        xs( 23) = 0.6612117034153209D-01
        xs( 24) = 0.7614671805432600D-01
        xs( 25) = 0.8641688533036330D-01
        xs( 26) = 0.9688472146061113D-01
        xs( 27) = 0.1075244607669700D+00
        xs( 28) = 0.1183239324176208D+00
        xs( 29) = 0.1292800498854882D+00
        xs( 30) = 0.1404155905364678D+00
        xs( 31) = 0.1517379343593492D+00
        xs( 32) = 0.1629368506555577D+00
        ws(  1) = 0.4256152531794807D-04
        ws(  2) = 0.1000487887702309D-03
        ws(  3) = 0.1600546300236315D-03
        ws(  4) = 0.2241841127032964D-03
        ws(  5) = 0.2945133059577414D-03
        ws(  6) = 0.3737042037820786D-03
        ws(  7) = 0.4652343973799848D-03
        ws(  8) = 0.5737368696134492D-03
        ws(  9) = 0.7055149568609467D-03
        ws( 10) = 0.8693136537686969D-03
        ws( 11) = 0.1077458566186064D-02
        ws( 12) = 0.1347508592048760D-02
        ws( 13) = 0.1704423283950915D-02
        ws( 14) = 0.2182698446832706D-02
        ws( 15) = 0.2826419448473354D-02
        ws( 16) = 0.3680027019494801D-02
        ws( 17) = 0.4755524455644642D-02
        ws( 18) = 0.5979346481519146D-02
        ws( 19) = 0.7183406549079011D-02
        ws( 20) = 0.8199590307600290D-02
        ws( 21) = 0.8961861236055656D-02
        ws( 22) = 0.9500620042988165D-02
        ws( 23) = 0.9880125251481048D-02
        ws( 24) = 0.1015795953288894D-01
        ws( 25) = 0.1037476957118935D-01
        ws( 26) = 0.1055684278351958D-01
        ws( 27) = 0.1072260684326392D-01
        ws( 28) = 0.1088381241562628D-01
        ws( 29) = 0.1104311381518110D-01
        ws( 30) = 0.1122327996869292D-01
        ws( 31) = 0.1159462531444752D-01
        ws( 32) = 0.1310139961134156D-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 =  36
        err = 0.5159142777198866D-07
        xs(  1) = 0.1056277968398575D-04
        xs(  2) = 0.5581373967043799D-04
        xs(  3) = 0.1378867964489253D-03
        xs(  4) = 0.2579914488822443D-03
        xs(  5) = 0.4179724932011810D-03
        xs(  6) = 0.6204559501741633D-03
        xs(  7) = 0.8690265913377813D-03
        xs(  8) = 0.1168458068046092D-02
        xs(  9) = 0.1525015001819877D-02
        xs( 10) = 0.1946857269389856D-02
        xs( 11) = 0.2444591703324224D-02
        xs( 12) = 0.3032036160892821D-02
        xs( 13) = 0.3727291440435997D-02
        xs( 14) = 0.4554266318304759D-02
        xs( 15) = 0.5544868867611065D-02
        xs( 16) = 0.6742174037561437D-02
        xs( 17) = 0.8205014473281813D-02
        xs( 18) = 0.1001451571276196D-01
        xs( 19) = 0.1228295168006207D-01
        xs( 20) = 0.1516431986958783D-01
        xs( 21) = 0.1886145513437325D-01
        xs( 22) = 0.2361294709291678D-01
        xs( 23) = 0.2963508299177879D-01
        xs( 24) = 0.3702135546578622D-01
        xs( 25) = 0.4567004205820221D-01
        xs( 26) = 0.5532278048602444D-01
        xs( 27) = 0.6568260703399778D-01
        xs( 28) = 0.7650565243299635D-01
        xs( 29) = 0.8762684044252173D-01
        xs( 30) = 0.9894715231568760D-01
        xs( 31) = 0.1104129968421129D+00
        xs( 32) = 0.1220000610118817D+00
        xs( 33) = 0.1336970300585118D+00
        xs( 34) = 0.1455300354797229D+00
        xs( 35) = 0.1573857653444162D+00
        xs( 36) = 0.1693501403459627D+00
        ws(  1) = 0.2712551434435638D-04
        ws(  2) = 0.6350573379391404D-04
        ws(  3) = 0.1008390408370528D-03
        ws(  4) = 0.1396754625398557D-03
        ws(  5) = 0.1807213600259723D-03
        ws(  6) = 0.2248392257505524D-03
        ws(  7) = 0.2730927035815895D-03
        ws(  8) = 0.3268077133396366D-03
        ws(  9) = 0.3876570976765816D-03
        ws( 10) = 0.4577827191249563D-03
        ws( 11) = 0.5399716020101267D-03
        ws( 12) = 0.6379092058364207D-03
        ws( 13) = 0.7565503128627990D-03
        ws( 14) = 0.9026657641343989D-03
        ws( 15) = 0.1085643295753347D-02
        ws( 16) = 0.1318664627581655D-02
        ws( 17) = 0.1620389328516887D-02
        ws( 18) = 0.2017140479212364D-02
        ws( 19) = 0.2545240464550395D-02
        ws( 20) = 0.3251445811119648D-02
        ws( 21) = 0.4183537535539031D-02
        ws( 22) = 0.5357353600386910D-02
        ws( 23) = 0.6703988706829466D-02
        ws( 24) = 0.8050858425055867D-02
        ws( 25) = 0.9201146943042053D-02
        ws( 26) = 0.1005322606462653D-01
        ws( 27) = 0.1062545394553914D-01
        ws( 28) = 0.1099341417351818D-01
        ws( 29) = 0.1123290154743765D-01
        ws( 30) = 0.1139944257195943D-01
        ws( 31) = 0.1152934710627625D-01
        ws( 32) = 0.1164503856681054D-01
        ws( 33) = 0.1176694841914559D-01
        ws( 34) = 0.1197253751051217D-01
        ws( 35) = 0.1196285275418115D-01
        ws( 36) = 0.1289890166026397D-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 =  39
        err = 0.4846697415471859D-07
        xs(  1) = 0.7411377608380809D-05
        xs(  2) = 0.3911787953523754D-04
        xs(  3) = 0.9644272644384228D-04
        xs(  4) = 0.1799061042343225D-03
        xs(  5) = 0.2902935598415359D-03
        xs(  6) = 0.4287185593424057D-03
        xs(  7) = 0.5966893857718581D-03
        xs(  8) = 0.7961888906880033D-03
        xs(  9) = 0.1029770640844048D-02
        xs( 10) = 0.1300677534172018D-02
        xs( 11) = 0.1612992367889592D-02
        xs( 12) = 0.1971833143288883D-02
        xs( 13) = 0.2383610062713755D-02
        xs( 14) = 0.2856367742830921D-02
        xs( 15) = 0.3400248704817453D-02
        xs( 16) = 0.4028129313248579D-02
        xs( 17) = 0.4756499033312972D-02
        xs( 18) = 0.5606696563232047D-02
        xs( 19) = 0.6606672189321198D-02
        xs( 20) = 0.7793519054795505D-02
        xs( 21) = 0.9217168444653737D-02
        xs( 22) = 0.1094583773292626D-01
        xs( 23) = 0.1307396473409761D-01
        xs( 24) = 0.1573352613628551D-01
        xs( 25) = 0.1910869494285276D-01
        xs( 26) = 0.2344582073198296D-01
        xs( 27) = 0.2903310900486193D-01
        xs( 28) = 0.3611794540953558D-01
        xs( 29) = 0.4477455798518132D-01
        xs( 30) = 0.5482788445384924D-01
        xs( 31) = 0.6593017159630633D-01
        xs( 32) = 0.7771771825103620D-01
        xs( 33) = 0.8991186409656193D-01
        xs( 34) = 0.1023363890298537D+00
        xs( 35) = 0.1148939924868168D+00
        xs( 36) = 0.1275402236730135D+00
        xs( 37) = 0.1402662208793817D+00
        xs( 38) = 0.1530785943026210D+00
        xs( 39) = 0.1654705788028602D+00
        ws(  1) = 0.1902766806299201D-04
        ws(  2) = 0.4444725859373631D-04
        ws(  3) = 0.7028752707686178D-04
        ws(  4) = 0.9676920483532166D-04
        ws(  5) = 0.1241901757306852D-03
        ws(  6) = 0.1529098833573147D-03
        ws(  7) = 0.1833606565658025D-03
        ws(  8) = 0.2160619964791488D-03
        ws(  9) = 0.2516395031992035D-03
        ws( 10) = 0.2908515360138799D-03
        ws( 11) = 0.3346268982929225D-03
        ws( 12) = 0.3841174060056027D-03
        ws( 13) = 0.4407696013282464D-03
        ws( 14) = 0.5064257304751341D-03
        ws( 15) = 0.5834678671521057D-03
        ws( 16) = 0.6750213881818954D-03
        ws( 17) = 0.7852456855158314D-03
        ws( 18) = 0.9197664687596421D-03
        ws( 19) = 0.1086306819281271D-02
        ws( 20) = 0.1295619741059336D-02
        ws( 21) = 0.1562918472368296D-02
        ws( 22) = 0.1909973509766021D-02
        ws( 23) = 0.2368019524586569D-02
        ws( 24) = 0.2981568322191319D-02
        ws( 25) = 0.3810069560667592D-02
        ws( 26) = 0.4913588334075231D-02
        ws( 27) = 0.6304716024377051D-02
        ws( 28) = 0.7878940058809899D-02
        ws( 29) = 0.9403581804824314D-02
        ws( 30) = 0.1064206990271867D-01
        ws( 31) = 0.1150015596860606D-01
        ws( 32) = 0.1202842712787379D-01
        ws( 33) = 0.1233135785583649D-01
        ws( 34) = 0.1250191913153686D-01
        ws( 35) = 0.1260682583430995D-01
        ws( 36) = 0.1267497753903368D-01
        ws( 37) = 0.1281338829037402D-01
        ws( 38) = 0.1311005482012926D-01
        ws( 39) = 0.1330198088118488D-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 =  42
        err = 0.6181304300894440D-07
        xs(  1) = 0.5487279988400938D-05
        xs(  2) = 0.2894407787498051D-04
        xs(  3) = 0.7127781820961713D-04
        xs(  4) = 0.1327379092708565D-03
        xs(  5) = 0.2136974564759539D-03
        xs(  6) = 0.3146860599439926D-03
        xs(  7) = 0.4364212264801781D-03
        xs(  8) = 0.5798438202303365D-03
        xs(  9) = 0.7461579212068907D-03
        xs( 10) = 0.9368765584307564D-03
        xs( 11) = 0.1153875556035231D-02
        xs( 12) = 0.1399459265623354D-02
        xs( 13) = 0.1676442872830965D-02
        xs( 14) = 0.1988256438144352D-02
        xs( 15) = 0.2339077401405048D-02
        xs( 16) = 0.2734002747169223D-02
        xs( 17) = 0.3179276334792238D-02
        xs( 18) = 0.3682588954218325D-02
        xs( 19) = 0.4253478656305558D-02
        xs( 20) = 0.4903875796466572D-02
        xs( 21) = 0.5648851866171787D-02
        xs( 22) = 0.6507659357315121D-02
        xs( 23) = 0.7505202239598817D-02
        xs( 24) = 0.8674159530734523D-02
        xs( 25) = 0.1005811417657400D-01
        xs( 26) = 0.1171617391203554D-01
        xs( 27) = 0.1372991504715247D-01
        xs( 28) = 0.1621398813727182D-01
        xs( 29) = 0.1933149591507899D-01
        xs( 30) = 0.2331154995176268D-01
        xs( 31) = 0.2845522992580754D-01
        xs( 32) = 0.3509928584516358D-01
        xs( 33) = 0.4350027702075528D-01
        xs( 34) = 0.5366929009693234D-01
        xs( 35) = 0.6531482301716977D-01
        xs( 36) = 0.7798506461629529D-01
        xs( 37) = 0.9126320849282737D-01
        xs( 38) = 0.1048605782599930D+00
        xs( 39) = 0.1186089657207453D+00
        xs( 40) = 0.1324250150562423D+00
        xs( 41) = 0.1462628621431975D+00
        xs( 42) = 0.1599607548117456D+00
        ws(  1) = 0.1408575130644150D-04
        ws(  2) = 0.3286171646492066D-04
        ws(  3) = 0.5184630041401572D-04
        ws(  4) = 0.7113558408787776D-04
        ws(  5) = 0.9087125778223867D-04
        ws(  6) = 0.1112249413232811D-03
        ws(  7) = 0.1324015471773389D-03
        ws(  8) = 0.1546435618605655D-03
        ws(  9) = 0.1782359245626465D-03
        ws( 10) = 0.2035128975623610D-03
        ws( 11) = 0.2308678010411309D-03
        ws( 12) = 0.2607670978349022D-03
        ws( 13) = 0.2937696141328606D-03
        ws( 14) = 0.3305509217889168D-03
        ws( 15) = 0.3719367454420792D-03
        ws( 16) = 0.4189496610460786D-03
        ws( 17) = 0.4728727616253478D-03
        ws( 18) = 0.5353332200648724D-03
        ws( 19) = 0.6084222792285402D-03
        ws( 20) = 0.6948669354279188D-03
        ws( 21) = 0.7982699394625568D-03
        ws( 22) = 0.9234612024683388D-03
        ws( 23) = 0.1077020041712035D-02
        ws( 24) = 0.1268083106902153D-02
        ws( 25) = 0.1509565194261465D-02
        ws( 26) = 0.1819977138500583D-02
        ws( 27) = 0.2226354956727429D-02
        ws( 28) = 0.2768651760139412D-02
        ws( 29) = 0.3504377446656774D-02
        ws( 30) = 0.4506398594720648D-02
        ws( 31) = 0.5839029770629818D-02
        ws( 32) = 0.7495071200801560D-02
        ws( 33) = 0.9310057960522674D-02
        ws( 34) = 0.1097649623007312D-01
        ws( 35) = 0.1223549890922753D-01
        ws( 36) = 0.1303412048872754D-01
        ws( 37) = 0.1347475286202249D-01
        ws( 38) = 0.1369498827384103D-01
        ws( 39) = 0.1380080028272711D-01
        ws( 40) = 0.1386558701861059D-01
        ws( 41) = 0.1385989205442617D-01
        ws( 42) = 0.1396525274917133D-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 =  46
        err = 0.3466312249388961D-07
        xs(  1) = 0.4151836246133176D-05
        xs(  2) = 0.2189308527294436D-04
        xs(  3) = 0.5388311751168555D-04
        xs(  4) = 0.1002588552017795D-03
        xs(  5) = 0.1612217441491669D-03
        xs(  6) = 0.2370560938648598D-03
        xs(  7) = 0.3281447038369123D-03
        xs(  8) = 0.4349858238301063D-03
        xs(  9) = 0.5582115968464642D-03
        xs( 10) = 0.6986083283305207D-03
        xs( 11) = 0.8571392241160884D-03
        xs( 12) = 0.1034970678186545D-02
        xs( 13) = 0.1233503553351737D-02
        xs( 14) = 0.1454411102726584D-02
        xs( 15) = 0.1699685334263160D-02
        xs( 16) = 0.1971694399856992D-02
        xs( 17) = 0.2273254574013829D-02
        xs( 18) = 0.2607721350880523D-02
        xs( 19) = 0.2979104919105002D-02
        xs( 20) = 0.3392218062319384D-02
        xs( 21) = 0.3852867891874422D-02
        xs( 22) = 0.4368106551153550D-02
        xs( 23) = 0.4946561519307749D-02
        xs( 24) = 0.5598875942324381D-02
        xs( 25) = 0.6338304917015979D-02
        xs( 26) = 0.7181536464485708D-02
        xs( 27) = 0.8149830560571308D-02
        xs( 28) = 0.9270625823418895D-02
        xs( 29) = 0.1057986556939205D-01
        xs( 30) = 0.1212540870845878D-01
        xs( 31) = 0.1397203644661919D-01
        xs( 32) = 0.1620897571603218D-01
        xs( 33) = 0.1896149251007424D-01
        xs( 34) = 0.2240743390448434D-01
        xs( 35) = 0.2679470090537488D-01
        xs( 36) = 0.3244487848894275D-01
        xs( 37) = 0.3971270768164152D-01
        xs( 38) = 0.4886515737839103D-01
        xs( 39) = 0.5991279059328159D-01
        xs( 40) = 0.7255045135491719D-01
        xs( 41) = 0.8629881502117345D-01
        xs( 42) = 0.1007066110621411D+00
        xs( 43) = 0.1154545944090371D+00
        xs( 44) = 0.1303541445155870D+00
        xs( 45) = 0.1452315648968248D+00
        xs( 46) = 0.1597712943737549D+00
        ws(  1) = 0.1065691407299860D-04
        ws(  2) = 0.2484671833681053D-04
        ws(  3) = 0.3915546029839693D-04
        ws(  4) = 0.5362933654613496D-04
        ws(  5) = 0.6834356699641842D-04
        ws(  6) = 0.8338865043138897D-04
        ws(  7) = 0.9887130620509368D-04
        ws(  8) = 0.1149159563965570D-03
        ws(  9) = 0.1316662640829493D-03
        ws( 10) = 0.1492872966753882D-03
        ws( 11) = 0.1679683775416569D-03
        ws( 12) = 0.1879273814988479D-03
        ws( 13) = 0.2094164738378938D-03
        ws( 14) = 0.2327296732877925D-03
        ws( 15) = 0.2582122961762931D-03
        ws( 16) = 0.2862737120256356D-03
        ws( 17) = 0.3174039840474954D-03
        ws( 18) = 0.3521954965771011D-03
        ws( 19) = 0.3913706067587497D-03
        ws( 20) = 0.4358193922100269D-03
        ws( 21) = 0.4866502003271948D-03
        ws( 22) = 0.5452577911849502D-03
        ws( 23) = 0.6134162342132172D-03
        ws( 24) = 0.6934083202550598D-03
        ws( 25) = 0.7882123012964176D-03
        ws( 26) = 0.9017679356396696D-03
        ws( 27) = 0.1039355488420257D-02
        ws( 28) = 0.1208169815463690D-02
        ws( 29) = 0.1418204606077800D-02
        ws( 30) = 0.1683557265401448D-02
        ws( 31) = 0.2024379964687506D-02
        ws( 32) = 0.2470093884190909D-02
        ws( 33) = 0.3064256241700645D-02
        ws( 34) = 0.3868813664508401D-02
        ws( 35) = 0.4959878780951505D-02
        ws( 36) = 0.6401639758207634D-02
        ws( 37) = 0.8181803159905989D-02
        ws( 38) = 0.1012619921347293D-01
        ws( 39) = 0.1191538779872574D-01
        ws( 40) = 0.1327617440541659D-01
        ws( 41) = 0.1414350609835372D-01
        ws( 42) = 0.1461882352842221D-01
        ws( 43) = 0.1485127902085552D-01
        ws( 44) = 0.1501579546726026D-01
        ws( 45) = 0.1497851540498666D-01
        ws( 46) = 0.1446499151229363D-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 =  49
        err = 0.6349994451298409D-07
        xs(  1) = 0.3353543607309457D-05
        xs(  2) = 0.1767852341193804D-04
        xs(  3) = 0.4348767561023635D-04
        xs(  4) = 0.8085487244954729D-04
        xs(  5) = 0.1298877699775617D-03
        xs(  6) = 0.1907405935874311D-03
        xs(  7) = 0.2636241595395658D-03
        xs(  8) = 0.3488164278177010D-03
        xs(  9) = 0.4466733700027251D-03
        xs( 10) = 0.5576403101672265D-03
        xs( 11) = 0.6822638872273068D-03
        xs( 12) = 0.8212051473147385D-03
        xs( 13) = 0.9752542630038986D-03
        xs( 14) = 0.1145347735508105D-02
        xs( 15) = 0.1332588850256021D-02
        xs( 16) = 0.1538271969933739D-02
        xs( 17) = 0.1763911851526943D-02
        xs( 18) = 0.2011279497378626D-02
        xs( 19) = 0.2282446782679376D-02
        xs( 20) = 0.2579841490799710D-02
        xs( 21) = 0.2906315375468765D-02
        xs( 22) = 0.3265229742298018D-02
        xs( 23) = 0.3660564593177063D-02
        xs( 24) = 0.4097057014533088D-02
        xs( 25) = 0.4580379326086483D-02
        xs( 26) = 0.5117368745412727D-02
        xs( 27) = 0.5716330189886484D-02
        xs( 28) = 0.6387440322211084D-02
        xs( 29) = 0.7143293986080412D-02
        xs( 30) = 0.7999643501591221D-02
        xs( 31) = 0.8976426534675714D-02
        xs( 32) = 0.1009923946888403D-01
        xs( 33) = 0.1140146758650494D-01
        xs( 34) = 0.1292738193448494D-01
        xs( 35) = 0.1473672614892327D-01
        xs( 36) = 0.1691196713661187D-01
        xs( 37) = 0.1957009191797834D-01
        xs( 38) = 0.2287980150216398D-01
        xs( 39) = 0.2708107746951044D-01
        xs( 40) = 0.3249783562842940D-01
        xs( 41) = 0.3952280701689153D-01
        xs( 42) = 0.4853036185578601D-01
        xs( 43) = 0.5969404504906025D-01
        xs( 44) = 0.7282705383911071D-01
        xs( 45) = 0.8743906759529371D-01
        xs( 46) = 0.1029727437938940D+00
        xs( 47) = 0.1189967616349960D+00
        xs( 48) = 0.1352050235147406D+00
        xs( 49) = 0.1511029979578187D+00
        ws(  1) = 0.8607280752083070D-05
        ws(  2) = 0.2005645363189761D-04
        ws(  3) = 0.3157361716222206D-04
        ws(  4) = 0.4317854850964240D-04
        ws(  5) = 0.5491278533530100D-04
        ws(  6) = 0.6682781756546597D-04
        ws(  7) = 0.7898546247869188D-04
        ws(  8) = 0.9145821755433605D-04
        ws(  9) = 0.1043296929488741D-03
        ws( 10) = 0.1176950800318643D-03
        ws( 11) = 0.1316620118772491D-03
        ws( 12) = 0.1463519004229793D-03
        ws( 13) = 0.1619020608739276D-03
        ws( 14) = 0.1784683872235305D-03
        ws( 15) = 0.1962291013320651D-03
        ws( 16) = 0.2153890070292864D-03
        ws( 17) = 0.2361851684784544D-03
        ws( 18) = 0.2588944957750332D-03
        ws( 19) = 0.2838436007526282D-03
        ws( 20) = 0.3114197298342512D-03
        ws( 21) = 0.3420864320758236D-03
        ws( 22) = 0.3764033238583647D-03
        ws( 23) = 0.4150529023898168D-03
        ws( 24) = 0.4588736110268179D-03
        ws( 25) = 0.5089055175049206D-03
        ws( 26) = 0.5664508163844292D-03
        ws( 27) = 0.6331590716561436D-03
        ws( 28) = 0.7111482451909814D-03
        ws( 29) = 0.8031677195788429D-03
        ws( 30) = 0.9128300521485336D-03
        ws( 31) = 0.1044967200894980D-02
        ws( 32) = 0.1206172125781265D-02
        ws( 33) = 0.1405588765458402D-02
        ws( 34) = 0.1656081727104487D-02
        ws( 35) = 0.1976157591360441D-02
        ws( 36) = 0.2393529572199899D-02
        ws( 37) = 0.2950489314508276D-02
        ws( 38) = 0.3708678331022214D-02
        ws( 39) = 0.4748003031120112D-02
        ws( 40) = 0.6152298356246511D-02
        ws( 41) = 0.7963377312154836D-02
        ws( 42) = 0.1008399973848655D-01
        ws( 43) = 0.1221126346525323D-01
        ws( 44) = 0.1396835175123460D-01
        ws( 45) = 0.1515835599530983D-01
        ws( 46) = 0.1583427893586543D-01
        ws( 47) = 0.1617423357658217D-01
        ws( 48) = 0.1639429556394478D-01
        ws( 49) = 0.1623075733145075D-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 =  53
        err = 0.6734715318915274D-07
        xs(  1) = 0.2733025975629185D-05
        xs(  2) = 0.1440523883320084D-04
        xs(  3) = 0.3542578140518459D-04
        xs(  4) = 0.6583834599890192D-04
        xs(  5) = 0.1057051202280392D-03
        xs(  6) = 0.1551155494724109D-03
        xs(  7) = 0.2141927419633554D-03
        xs(  8) = 0.2831000030096328D-03
        xs(  9) = 0.3620475947322630D-03
        xs( 10) = 0.4512994911612742D-03
        xs( 11) = 0.5511803207349579D-03
        xs( 12) = 0.6620824616033699D-03
        xs( 13) = 0.7844737448582085D-03
        xs( 14) = 0.9189059581263784D-03
        xs( 15) = 0.1066024660886445D-02
        xs( 16) = 0.1226580517632122D-02
        xs( 17) = 0.1401442604861695D-02
        xs( 18) = 0.1591614021712277D-02
        xs( 19) = 0.1798250759242605D-02
        xs( 20) = 0.2022684783364300D-02
        xs( 21) = 0.2266451532330188D-02
        xs( 22) = 0.2531322972525025D-02
        xs( 23) = 0.2819348464383997D-02
        xs( 24) = 0.3132905364840139D-02
        xs( 25) = 0.3474761136110036D-02
        xs( 26) = 0.3848150322347137D-02
        xs( 27) = 0.4256871049381686D-02
        xs( 28) = 0.4705407361817987D-02
        xs( 29) = 0.5199085911292551D-02
        xs( 30) = 0.5744277035718643D-02
        xs( 31) = 0.6348653217658143D-02
        xs( 32) = 0.7021532417870325D-02
        xs( 33) = 0.7774342831759812D-02
        xs( 34) = 0.8621243864628538D-02
        xs( 35) = 0.9579966040214095D-02
        xs( 36) = 0.1067300661473062D-01
        xs( 37) = 0.1192936915318603D-01
        xs( 38) = 0.1338705231754962D-01
        xs( 39) = 0.1509664545872933D-01
        xs( 40) = 0.1712699223848038D-01
        xs( 41) = 0.1957474252301663D-01
        xs( 42) = 0.2257933165119242D-01
        xs( 43) = 0.2634274171843410D-01
        xs( 44) = 0.3114987652091935D-01
        xs( 45) = 0.3738005810920782D-01
        xs( 46) = 0.4547880896122917D-01
        xs( 47) = 0.5582800740845423D-01
        xs( 48) = 0.6851741092669648D-01
        xs( 49) = 0.8320877181377043D-01
        xs( 50) = 0.9928154575812351D-01
        xs( 51) = 0.1161184851486231D+00
        xs( 52) = 0.1332225775511232D+00
        xs( 53) = 0.1498682396131724D+00
        ws(  1) = 0.7014401602362664D-05
        ws(  2) = 0.1633980742130814D-04
        ws(  3) = 0.2570813965223763D-04
        ws(  4) = 0.3512724482560163D-04
        ws(  5) = 0.4462109864280878D-04
        ws(  6) = 0.5422017046260403D-04
        ws(  7) = 0.6396132401519753D-04
        ws(  8) = 0.7388813250111131D-04
        ws(  9) = 0.8405093503497333D-04
        ws( 10) = 0.9450684564996845D-04
        ws( 11) = 0.1053200586319236D-03
        ws( 12) = 0.1165620575757930D-03
        ws( 13) = 0.1283123313862877D-03
        ws( 14) = 0.1406595013010034D-03
        ws( 15) = 0.1537027699087775D-03
        ws( 16) = 0.1675535447833973D-03
        ws( 17) = 0.1823375138667041D-03
        ws( 18) = 0.1981975855607013D-03
        ws( 19) = 0.2152974279050652D-03
        ws( 20) = 0.2338259733712714D-03
        ws( 21) = 0.2540021495941757D-03
        ws( 22) = 0.2760814661545212D-03
        ws( 23) = 0.3003647365360562D-03
        ws( 24) = 0.3272089974042300D-03
        ws( 25) = 0.3570399816515420D-03
        ws( 26) = 0.3903693819263733D-03
        ws( 27) = 0.4278168328831001D-03
        ws( 28) = 0.4701402049515667D-03
        ws( 29) = 0.5182742901775552D-03
        ws( 30) = 0.5733809842647123D-03
        ws( 31) = 0.6369166511816279D-03
        ws( 32) = 0.7107361220615993D-03
        ws( 33) = 0.7972308253273248D-03
        ws( 34) = 0.8995066770472068D-03
        ws( 35) = 0.1021658507427419D-02
        ws( 36) = 0.1169215641187612D-02
        ws( 37) = 0.1349784424305485D-02
        ws( 38) = 0.1573923855166084D-02
        ws( 39) = 0.1856581441093491D-02
        ws( 40) = 0.2219969791251431D-02
        ws( 41) = 0.2698430562373848D-02
        ws( 42) = 0.3344053986705302D-02
        ws( 43) = 0.4229999467731322D-02
        ws( 44) = 0.5447769379809991D-02
        ws( 45) = 0.7088914366068194D-02
        ws( 46) = 0.9176540697612742D-02
        ws( 47) = 0.1153959654164806D-01
        ws( 48) = 0.1377937255240319D-01
        ws( 49) = 0.1549287767928246D-01
        ws( 50) = 0.1654461417106705D-01
        ws( 51) = 0.1707347177644794D-01
        ws( 52) = 0.1730249985986942D-01
        ws( 53) = 0.1580231116669966D-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 =  57
        err = 0.9034468867314696D-07
        xs(  1) = 0.2276628682135604D-05
        xs(  2) = 0.1199824141571449D-04
        xs(  3) = 0.2950008730989210D-04
        xs(  4) = 0.5480810620092924D-04
        xs(  5) = 0.8795814059378291D-04
        xs(  6) = 0.1290023692608672D-03
        xs(  7) = 0.1780136314846319D-03
        xs(  8) = 0.2350898391988618D-03
        xs(  9) = 0.3003584803653180D-03
        xs( 10) = 0.3739810760612908D-03
        xs( 11) = 0.4561576126617781D-03
        xs( 12) = 0.5471308830060979D-03
        xs( 13) = 0.6471909256391772D-03
        xs( 14) = 0.7566797495495923D-03
        xs( 15) = 0.8759964080746365D-03
        xs( 16) = 0.1005603007988272D-02
        xs( 17) = 0.1146031408092208D-02
        xs( 18) = 0.1297890923055431D-02
        xs( 19) = 0.1461877140447673D-02
        xs( 20) = 0.1638782516631441D-02
        xs( 21) = 0.1829509210996521D-02
        xs( 22) = 0.2035084121488557D-02
        xs( 23) = 0.2256676482460919D-02
        xs( 24) = 0.2495618833778482D-02
        xs( 25) = 0.2753432919329016D-02
        xs( 26) = 0.3031860599054606D-02
        xs( 27) = 0.3332901435055613D-02
        xs( 28) = 0.3658858389852813D-02
        xs( 29) = 0.4012393518857378D-02
        xs( 30) = 0.4396596473992050D-02
        xs( 31) = 0.4815072000728034D-02
        xs( 32) = 0.5272049537756104D-02
        xs( 33) = 0.5772518432855656D-02
        xs( 34) = 0.6322399582156837D-02
        xs( 35) = 0.6928773013354118D-02
        xs( 36) = 0.7600173943628780D-02
        xs( 37) = 0.8346982902761327D-02
        xs( 38) = 0.9181942190686932D-02
        xs( 39) = 0.1012085362642021D-01
        xs( 40) = 0.1118357024286894D-01
        xs( 41) = 0.1239540758497839D-01
        xs( 42) = 0.1378912968420717D-01
        xs( 43) = 0.1540781904461148D-01
        xs( 44) = 0.1730932359433067D-01
        xs( 45) = 0.1957366270752494D-01
        xs( 46) = 0.2231472189380193D-01
        xs( 47) = 0.2569664514108993D-01
        xs( 48) = 0.2995395326832598D-01
        xs( 49) = 0.3541233350774610D-01
        xs( 50) = 0.4249829240746682D-01
        xs( 51) = 0.5169225576252835D-01
        xs( 52) = 0.6336052061245608D-01
        xs( 53) = 0.7751065696004537D-01
        xs( 54) = 0.9370107192295628D-01
        xs( 55) = 0.1112472985301035D+00
        xs( 56) = 0.1294942877614070D+00
        xs( 57) = 0.1476688638677852D+00
        ws(  1) = 0.5842888773929747D-05
        ws(  2) = 0.1360756575228138D-04
        ws(  3) = 0.2140009520597091D-04
        ws(  4) = 0.2922183123012768D-04
        ws(  5) = 0.3708687215530401D-04
        ws(  6) = 0.4501366026743519D-04
        ws(  7) = 0.5302511390198513D-04
        ws(  8) = 0.6114846526278409D-04
        ws(  9) = 0.6941565610775030D-04
        ws( 10) = 0.7786281467523705D-04
        ws( 11) = 0.8653064026527689D-04
        ws( 12) = 0.9546414768504992D-04
        ws( 13) = 0.1047128734077861D-03
        ws( 14) = 0.1143311777105322D-03
        ws( 15) = 0.1243790388309342D-03
        ws( 16) = 0.1349226889788999D-03
        ws( 17) = 0.1460355366165980D-03
        ws( 18) = 0.1577992471481984D-03
        ws( 19) = 0.1703050211380207D-03
        ws( 20) = 0.1836558105206144D-03
        ws( 21) = 0.1979684606648349D-03
        ws( 22) = 0.2133759202209419D-03
        ws( 23) = 0.2300304378234838D-03
        ws( 24) = 0.2481073384736527D-03
        ws( 25) = 0.2678104821221278D-03
        ws( 26) = 0.2893773826460408D-03
        ws( 27) = 0.3130871985009274D-03
        ws( 28) = 0.3392692457367854D-03
        ws( 29) = 0.3683144422243593D-03
        ws( 30) = 0.4006904006598997D-03
        ws( 31) = 0.4369632927900952D-03
        ws( 32) = 0.4778205491877040D-03
        ws( 33) = 0.5241001689766059D-03
        ws( 34) = 0.5768372544606404D-03
        ws( 35) = 0.6373256625068837D-03
        ws( 36) = 0.7071977327840089D-03
        ws( 37) = 0.7885325573048879D-03
        ws( 38) = 0.8840034597808427D-03
        ws( 39) = 0.9971051310871141D-03
        ws( 40) = 0.1132515032676110D-02
        ws( 41) = 0.1296574194924099D-02
        ws( 42) = 0.1497980155820362D-02
        ws( 43) = 0.1748920032457975D-02
        ws( 44) = 0.2067231494308935D-02
        ws( 45) = 0.2480151799176704D-02
        ws( 46) = 0.3028978718026721D-02
        ws( 47) = 0.3773590468279946D-02
        ws( 48) = 0.4795040420575922D-02
        ws( 49) = 0.6193376567227074D-02
        ws( 50) = 0.8061472444418717D-02
        ws( 51) = 0.1039232181109737D-01
        ws( 52) = 0.1294767047017419D-01
        ws( 53) = 0.1527524845400356D-01
        ws( 54) = 0.1699090363812730D-01
        ws( 55) = 0.1800993000197536D-01
        ws( 56) = 0.1842310622090665D-01
        ws( 57) = 0.1765184304004760D-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 =  62
        err = 0.7134541903265100D-07
        xs(  1) = 0.1906359145967320D-05
        xs(  2) = 0.1004647904286262D-04
        xs(  3) = 0.2469946368843793D-04
        xs(  4) = 0.4588379240033706D-04
        xs(  5) = 0.7362402387867769D-04
        xs(  6) = 0.1079554617679809D-03
        xs(  7) = 0.1489268629517048D-03
        xs(  8) = 0.1966031562149960D-03
        xs(  9) = 0.2510682188606838D-03
        xs( 10) = 0.3124276685106839D-03
        xs( 11) = 0.3808116418577499D-03
        xs( 12) = 0.4563775323544442D-03
        xs( 13) = 0.5393127964899640D-03
        xs( 14) = 0.6298377765487301D-03
        xs( 15) = 0.7282087343207489D-03
        xs( 16) = 0.8347212019068705D-03
        xs( 17) = 0.9497136915416455D-03
        xs( 18) = 0.1073571853266497D-02
        xs( 19) = 0.1206733147268686D-02
        xs( 20) = 0.1349692238589178D-02
        xs( 21) = 0.1503007301385048D-02
        xs( 22) = 0.1667307345254954D-02
        xs( 23) = 0.1843300695341545D-02
        xs( 24) = 0.2031784846428166D-02
        xs( 25) = 0.2233658191421651D-02
        xs( 26) = 0.2449933738482232D-02
        xs( 27) = 0.2681755364988490D-02
        xs( 28) = 0.2930417249322922D-02
        xs( 29) = 0.3197387130389825D-02
        xs( 30) = 0.3484333600875317D-02
        xs( 31) = 0.3793159368101084D-02
        xs( 32) = 0.4126041745445656D-02
        xs( 33) = 0.4485481922450916D-02
        xs( 34) = 0.4874364752805441D-02
        xs( 35) = 0.5296033174923221D-02
        xs( 36) = 0.5754380415147258D-02
        xs( 37) = 0.6253965434305381D-02
        xs( 38) = 0.6800159156791137D-02
        xs( 39) = 0.7399329629078534D-02
        xs( 40) = 0.8059082401950642D-02
        xs( 41) = 0.8788575682339209D-02
        xs( 42) = 0.9598932697632932D-02
        xs( 43) = 0.1050379142887728D-01
        xs( 44) = 0.1152005322052105D-01
        xs( 45) = 0.1266893043859259D-01
        xs( 46) = 0.1397743109367957D-01
        xs( 47) = 0.1548044847473074D-01
        xs( 48) = 0.1722380031642459D-01
        xs( 49) = 0.1926893779746202D-01
        xs( 50) = 0.2170061317567928D-01
        xs( 51) = 0.2463888200144006D-01
        xs( 52) = 0.2825596360274214D-01
        xs( 53) = 0.3279697954787355D-01
        xs( 54) = 0.3860089919580104D-01
        xs( 55) = 0.4610759597331747D-01
        xs( 56) = 0.5580340912293664D-01
        xs( 57) = 0.6804548368352485D-01
        xs( 58) = 0.8282160219988902D-01
        xs( 59) = 0.9967408748042052D-01
        xs( 60) = 0.1179130635019784D+00
        xs( 61) = 0.1368841938549522D+00
        xs( 62) = 0.1558748196861695D+00
        ws(  1) = 0.4892559472305162D-05
        ws(  2) = 0.1139346419897617D-04
        ws(  3) = 0.1791530677794727D-04
        ws(  4) = 0.2445739527830187D-04
        ws(  5) = 0.3102891222798807D-04
        ws(  6) = 0.3764204089257598D-04
        ws(  7) = 0.4431153528500605D-04
        ws(  8) = 0.5105497921790109D-04
        ws(  9) = 0.5789270791770072D-04
        ws( 10) = 0.6484783893452638D-04
        ws( 11) = 0.7194628408496605D-04
        ws( 12) = 0.7921669355256032D-04
        ws( 13) = 0.8669051113935006D-04
        ws( 14) = 0.9440209913971318D-04
        ws( 15) = 0.1023890126161271D-03
        ws( 16) = 0.1106922791116731D-03
        ws( 17) = 0.1193568949583902D-03
        ws( 18) = 0.1284322417294379D-03
        ws( 19) = 0.1379726802268106D-03
        ws( 20) = 0.1480384088963157D-03
        ws( 21) = 0.1586964104057532D-03
        ws( 22) = 0.1700215726316645D-03
        ws( 23) = 0.1820978445489476D-03
        ws( 24) = 0.1950199578854745D-03
        ws( 25) = 0.2088952878851814D-03
        ws( 26) = 0.2238461286054655D-03
        ws( 27) = 0.2400124287864340D-03
        ws( 28) = 0.2575555149634307D-03
        ws( 29) = 0.2766617771222340D-03
        ws( 30) = 0.2975476069998835D-03
        ws( 31) = 0.3204659749224212D-03
        ws( 32) = 0.3457146544116089D-03
        ws( 33) = 0.3736452551116746D-03
        ws( 34) = 0.4046760229311695D-03
        ws( 35) = 0.4393077477147677D-03
        ws( 36) = 0.4781441063795107D-03
        ws( 37) = 0.5219180311202166D-03
        ws( 38) = 0.5715267814616697D-03
        ws( 39) = 0.6280765324885315D-03
        ws( 40) = 0.6929485708372358D-03
        ws( 41) = 0.7678828764512959D-03
        ws( 42) = 0.8550919143918663D-03
        ws( 43) = 0.9574254367510726D-03
        ws( 44) = 0.1078609226618796D-02
        ws( 45) = 0.1223612569756620D-02
        ws( 46) = 0.1399155425848677D-02
        ws( 47) = 0.1614440455502202D-02
        ws( 48) = 0.1882381420598396D-02
        ws( 49) = 0.2221820283170885D-02
        ws( 50) = 0.2661257157674796D-02
        ws( 51) = 0.3243629815652235D-02
        ws( 52) = 0.4031016866277798D-02
        ws( 53) = 0.5107279146624712D-02
        ws( 54) = 0.6574573147313434D-02
        ws( 55) = 0.8522876958742778D-02
        ws( 56) = 0.1093293050539433D-01
        ws( 57) = 0.1355081353063249D-01
        ws( 58) = 0.1592057541510645D-01
        ws( 59) = 0.1766424058183717D-01
        ws( 60) = 0.1871854458794742D-01
        ws( 61) = 0.1920681796564200D-01
        ws( 62) = 0.1897569864647150D-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 =  66
        err = 0.9886634940385642D-07
        xs(  1) = 0.1638116012024077D-05
        xs(  2) = 0.8632468008930111D-05
        xs(  3) = 0.2122106709478681D-04
        xs(  4) = 0.3941630953183960D-04
        xs(  5) = 0.6323385590916065D-04
        xs(  6) = 0.9269611044334134D-04
        xs(  7) = 0.1278342312255877D-03
        xs(  8) = 0.1686898849333379D-03
        xs(  9) = 0.2153173108028943D-03
        xs( 10) = 0.2677852612837812D-03
        xs( 11) = 0.3261790149813779D-03
        xs( 12) = 0.3906023713926325D-03
        xs( 13) = 0.4611795720726409D-03
        xs( 14) = 0.5380572844192379D-03
        xs( 15) = 0.6214065377148690D-03
        xs( 16) = 0.7114248251801841D-03
        xs( 17) = 0.8083383118431750D-03
        xs( 18) = 0.9124042772028653D-03
        xs( 19) = 0.1023913835542276D-02
        xs( 20) = 0.1143194973141168D-02
        xs( 21) = 0.1270615968959477D-02
        xs( 22) = 0.1406589310721875D-02
        xs( 23) = 0.1551576200027226D-02
        xs( 24) = 0.1706091788279049D-02
        xs( 25) = 0.1870711262083890D-02
        xs( 26) = 0.2046076759396847D-02
        xs( 27) = 0.2232905394415795D-02
        xs( 28) = 0.2431998726454965D-02
        xs( 29) = 0.2644254006146113D-02
        xs( 30) = 0.2870677066585261D-02
        xs( 31) = 0.3112397494327705D-02
        xs( 32) = 0.3370686912548783D-02
        xs( 33) = 0.3646980516947902D-02
        xs( 34) = 0.3942902060002886D-02
        xs( 35) = 0.4260294921272919D-02
        xs( 36) = 0.4601259653778962D-02
        xs( 37) = 0.4968197885437931D-02
        xs( 38) = 0.5363866470048272D-02
        xs( 39) = 0.5791446179274717D-02
        xs( 40) = 0.6254623480868151D-02
        xs( 41) = 0.6757692799901212D-02
        xs( 42) = 0.7305687508131545D-02
        xs( 43) = 0.7904540819436043D-02
        xs( 44) = 0.8561297065414445D-02
        xs( 45) = 0.9284389108154899D-02
        xs( 46) = 0.1008398832278604D-01
        xs( 47) = 0.1097247425136232D-01
        xs( 48) = 0.1196506788725043D-01
        xs( 49) = 0.1308071085986179D-01
        xs( 50) = 0.1434331688277298D-01
        xs( 51) = 0.1578347211835492D-01
        xs( 52) = 0.1744089771149653D-01
        xs( 53) = 0.1936823828985651D-01
        xs( 54) = 0.2163726759931562D-01
        xs( 55) = 0.2434878515415350D-01
        xs( 56) = 0.2764677349449721D-01
        xs( 57) = 0.3173708410829102D-01
        xs( 58) = 0.3690938707088194D-01
        xs( 59) = 0.4355929553394259D-01
        xs( 60) = 0.5218213692381752D-01
        xs( 61) = 0.6327057264429455D-01
        xs( 62) = 0.7709286436094721D-01
        xs( 63) = 0.9348376083218835D-01
        xs( 64) = 0.1118717397371537D+00
        xs( 65) = 0.1315327053014924D+00
        xs( 66) = 0.1517749603804310D+00
        ws(  1) = 0.4204091240756579D-05
        ws(  2) = 0.9789282039087601D-05
        ws(  3) = 0.1538974984697352D-04
        ws(  4) = 0.2100330896693615D-04
        ws(  5) = 0.2663549385143957D-04
        ws(  6) = 0.3229417809529745D-04
        ws(  7) = 0.3798896766092077D-04
        ws(  8) = 0.4373134721563967D-04
        ws(  9) = 0.4953492975250968D-04
        ws( 10) = 0.5541515256839201D-04
        ws( 11) = 0.6138962334964167D-04
        ws( 12) = 0.6747776504080057D-04
        ws( 13) = 0.7370104580265342D-04
        ws( 14) = 0.8008284412629982D-04
        ws( 15) = 0.8664854341342664D-04
        ws( 16) = 0.9342569078428868D-04
        ws( 17) = 0.1004441229676155D-03
        ws( 18) = 0.1077362743864579D-03
        ws( 19) = 0.1153374426043306D-03
        ws( 20) = 0.1232861414914535D-03
        ws( 21) = 0.1316245230238098D-03
        ws( 22) = 0.1403989411882510D-03
        ws( 23) = 0.1496605908019798D-03
        ws( 24) = 0.1594663333151063D-03
        ws( 25) = 0.1698794988194569D-03
        ws( 26) = 0.1809708543581680D-03
        ws( 27) = 0.1928198117169316D-03
        ws( 28) = 0.2055161731481737D-03
        ws( 29) = 0.2191617656930527D-03
        ws( 30) = 0.2338723086953229D-03
        ws( 31) = 0.2497801122722779D-03
        ws( 32) = 0.2670375170469475D-03
        ws( 33) = 0.2858197892253545D-03
        ws( 34) = 0.3063298893481102D-03
        ws( 35) = 0.3288051923719663D-03
        ws( 36) = 0.3535236650949840D-03
        ws( 37) = 0.3808110973219467D-03
        ws( 38) = 0.4110548656605355D-03
        ws( 39) = 0.4447172945847576D-03
        ws( 40) = 0.4823508613318632D-03
        ws( 41) = 0.5246240594512830D-03
        ws( 42) = 0.5723507587444494D-03
        ws( 43) = 0.6265252778727307D-03
        ws( 44) = 0.6883870016576710D-03
        ws( 45) = 0.7594845803764477D-03
        ws( 46) = 0.8417665916051762D-03
        ws( 47) = 0.9377279074450721D-03
        ws( 48) = 0.1050595259723464D-02
        ws( 49) = 0.1184648749018782D-02
        ws( 50) = 0.1345621202230478D-02
        ws( 51) = 0.1541248580353474D-02
        ws( 52) = 0.1782277989438871D-02
        ws( 53) = 0.2084200975275417D-02
        ws( 54) = 0.2470425255469459D-02
        ws( 55) = 0.2976290531053598D-02
        ws( 56) = 0.3653632742299752D-02
        ws( 57) = 0.4574854061185596D-02
        ws( 58) = 0.5835596064734481D-02
        ws( 59) = 0.7548381522932527D-02
        ws( 60) = 0.9783468693505335D-02
        ws( 61) = 0.1244229765030283D-01
        ws( 62) = 0.1517412008849206D-01
        ws( 63) = 0.1750696146869163D-01
        ws( 64) = 0.1915948348776691D-01
        ws( 65) = 0.1993116637308921D-01
        ws( 66) = 0.2108478009955310D-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 =  71
        err = 0.9822661284988182D-07
        xs(  1) = 0.1411914740280631D-05
        xs(  2) = 0.7439681735805840D-05
        xs(  3) = 0.1828624220350239D-04
        xs(  4) = 0.3395824496447098D-04
        xs(  5) = 0.5446323799597941D-04
        xs(  6) = 0.7981283153920021D-04
        xs(  7) = 0.1100241468774811D-03
        xs(  8) = 0.1451214661728226D-03
        xs(  9) = 0.1851377018804061D-03
        xs( 10) = 0.2301159565028794D-03
        xs( 11) = 0.2801109635439531D-03
        xs( 12) = 0.3351904603268907D-03
        xs( 13) = 0.3954365264406877D-03
        xs( 14) = 0.4609468387061488D-03
        xs( 15) = 0.5318359251021142D-03
        xs( 16) = 0.6082364010041454D-03
        xs( 17) = 0.6903003081292379D-03
        xs( 18) = 0.7782005586509443D-03
        xs( 19) = 0.8721325366233460D-03
        xs( 20) = 0.9723157985583192D-03
        xs( 21) = 0.1078995943847183D-02
        xs( 22) = 0.1192446767915181D-02
        xs( 23) = 0.1312972784015834D-02
        xs( 24) = 0.1440912043162577D-02
        xs( 25) = 0.1576639271625942D-02
        xs( 26) = 0.1720569419333441D-02
        xs( 27) = 0.1873161909588452D-02
        xs( 28) = 0.2034925469213240D-02
        xs( 29) = 0.2206423527225336D-02
        xs( 30) = 0.2388280447900517D-02
        xs( 31) = 0.2581189085156866D-02
        xs( 32) = 0.2785919360104836D-02
        xs( 33) = 0.3003327826831107D-02
        xs( 34) = 0.3234369042752845D-02
        xs( 35) = 0.3480109522500314D-02
        xs( 36) = 0.3741743525725466D-02
        xs( 37) = 0.4020611205466026D-02
        xs( 38) = 0.4318220914172254D-02
        xs( 39) = 0.4636275929454786D-02
        xs( 40) = 0.4976705220885013D-02
        xs( 41) = 0.5341701443862628D-02
        xs( 42) = 0.5733767275519648D-02
        xs( 43) = 0.6155769715415193D-02
        xs( 44) = 0.6611008189718129D-02
        xs( 45) = 0.7103300090529224D-02
        xs( 46) = 0.7637083610072881D-02
        xs( 47) = 0.8217547501937272D-02
        xs( 48) = 0.8850796658150134D-02
        xs( 49) = 0.9544060030939399D-02
        xs( 50) = 0.1030596745368001D-01
        xs( 51) = 0.1114690608346004D-01
        xs( 52) = 0.1207948065656996D-01
        xs( 53) = 0.1311914169187799D-01
        xs( 54) = 0.1428504615979739D-01
        xs( 55) = 0.1560127700902724D-01
        xs( 56) = 0.1709852786323924D-01
        xs( 57) = 0.1881648429992933D-01
        xs( 58) = 0.2080750381744414D-01
        xs( 59) = 0.2314257381668740D-01
        xs( 60) = 0.2592082821296577D-01
        xs( 61) = 0.2928302575631465D-01
        xs( 62) = 0.3342897205557882D-01
        xs( 63) = 0.3863806268997342D-01
        xs( 64) = 0.4529022371171414D-01
        xs( 65) = 0.5386866094193093D-01
        xs( 66) = 0.6488368700285561D-01
        xs( 67) = 0.7867000799897253D-01
        xs( 68) = 0.9515385261318267D-01
        xs( 69) = 0.1138247867639453D+00
        xs( 70) = 0.1339367517056325D+00
        xs( 71) = 0.1545594229876722D+00
        ws(  1) = 0.3623447555460323D-05
        ws(  2) = 0.8435752609894339D-05
        ws(  3) = 0.1325829621087979D-04
        ws(  4) = 0.1808693898005647D-04
        ws(  5) = 0.2292495068087715D-04
        ws(  6) = 0.2777705678665720D-04
        ws(  7) = 0.3264959883326589D-04
        ws(  8) = 0.3755049366018533D-04
        ws(  9) = 0.4248913641147622D-04
        ws( 10) = 0.4747647537210838D-04
        ws( 11) = 0.5252481082755620D-04
        ws( 12) = 0.5764784467772382D-04
        ws( 13) = 0.6286054435035372D-04
        ws( 14) = 0.6817914378555531D-04
        ws( 15) = 0.7362110338275316D-04
        ws( 16) = 0.7920516522356683D-04
        ws( 17) = 0.8495144673725298D-04
        ws( 18) = 0.9088159623454134D-04
        ws( 19) = 0.9701891933162203D-04
        ws( 20) = 0.1033884966821669D-03
        ws( 21) = 0.1100173798762084D-03
        ws( 22) = 0.1169349737573891D-03
        ws( 23) = 0.1241733502929256D-03
        ws( 24) = 0.1317675658498638D-03
        ws( 25) = 0.1397559764300611D-03
        ws( 26) = 0.1481808072470304D-03
        ws( 27) = 0.1570888704346567D-03
        ws( 28) = 0.1665320513051424D-03
        ws( 29) = 0.1765679913716855D-03
        ws( 30) = 0.1872611807159979D-03
        ws( 31) = 0.1986842586730735D-03
        ws( 32) = 0.2109188649078675D-03
        ws( 33) = 0.2240569169395438D-03
        ws( 34) = 0.2382030060694557D-03
        ws( 35) = 0.2534767049406786D-03
        ws( 36) = 0.2700142928007748D-03
        ws( 37) = 0.2879720033081304D-03
        ws( 38) = 0.3075307987528998D-03
        ws( 39) = 0.3289001025002128D-03
        ws( 40) = 0.3523231558429666D-03
        ws( 41) = 0.3780855147968490D-03
        ws( 42) = 0.4065228563665721D-03
        ws( 43) = 0.4380305000598278D-03
        ws( 44) = 0.4730810087693730D-03
        ws( 45) = 0.5122403618300885D-03
        ws( 46) = 0.5561886660851364D-03
        ws( 47) = 0.6057532905172617D-03
        ws( 48) = 0.6619452557019270D-03
        ws( 49) = 0.7260139149472408D-03
        ws( 50) = 0.7995247222189406D-03
        ws( 51) = 0.8844429940022071D-03
        ws( 52) = 0.9832673947768153D-03
        ws( 53) = 0.1099227349066772D-02
        ws( 54) = 0.1236567864757114D-02
        ws( 55) = 0.1400971420101954D-02
        ws( 56) = 0.1600084915969419D-02
        ws( 57) = 0.1844459135964656D-02
        ws( 58) = 0.2149252677444582D-02
        ws( 59) = 0.2537185068569237D-02
        ws( 60) = 0.3042491773080818D-02
        ws( 61) = 0.3714856116917656D-02
        ws( 62) = 0.4623235682487229D-02
        ws( 63) = 0.5858060273126081D-02
        ws( 64) = 0.7527881188282845D-02
        ws( 65) = 0.9717647024973897D-02
        ws( 66) = 0.1237271293279573D-01
        ws( 67) = 0.1518841101988936D-01
        ws( 68) = 0.1768494767302918D-01
        ws( 69) = 0.1952286562106829D-01
        ws( 70) = 0.2063031306350527D-01
        ws( 71) = 0.2116330337893106D-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 =  76
        err = 0.4004914234843982D-07
        xs(  1) = 0.1222144229403265D-05
        xs(  2) = 0.6439734235237409D-05
        xs(  3) = 0.1582803665021679D-04
        xs(  4) = 0.2939200642860844D-04
        xs(  5) = 0.4713688403372877D-04
        xs(  6) = 0.6907061477797624D-04
        xs(  7) = 0.9520498631262881D-04
        xs(  8) = 0.1255566869644948D-03
        xs(  9) = 0.1601484237750662D-03
        xs( 10) = 0.1990099775025046D-03
        xs( 11) = 0.2421792413377394D-03
        xs( 12) = 0.2897032222365727D-03
        xs( 13) = 0.3416389754035513D-03
        xs( 14) = 0.3980545193502640D-03
        xs( 15) = 0.4590297136790502D-03
        xs( 16) = 0.5246571293801447D-03
        xs( 17) = 0.5950429429524469D-03
        xs( 18) = 0.6703078641047250D-03
        xs( 19) = 0.7505881419140057D-03
        xs( 20) = 0.8360366351066337D-03
        xs( 21) = 0.9268239719935899D-03
        xs( 22) = 0.1023139844089809D-02
        xs( 23) = 0.1125194454505896D-02
        xs( 24) = 0.1233220158948765D-02
        xs( 25) = 0.1347473294699315D-02
        xs( 26) = 0.1468236207938291D-02
        xs( 27) = 0.1595819573355641D-02
        xs( 28) = 0.1730565069347834D-02
        xs( 29) = 0.1872848376362941D-02
        xs( 30) = 0.2023082569952059D-02
        xs( 31) = 0.2181721988694355D-02
        xs( 32) = 0.2349266710898695D-02
        xs( 33) = 0.2526267657590683D-02
        xs( 34) = 0.2713332358450211D-02
        xs( 35) = 0.2911131611138160D-02
        xs( 36) = 0.3120407306112400D-02
        xs( 37) = 0.3341981438456941D-02
        xs( 38) = 0.3576766326865403D-02
        xs( 39) = 0.3825776653610887D-02
        xs( 40) = 0.4090143753042802D-02
        xs( 41) = 0.4371132065014761D-02
        xs( 42) = 0.4670158463802663D-02
        xs( 43) = 0.4988815533718425D-02
        xs( 44) = 0.5328899019675059D-02
        xs( 45) = 0.5692440236798874D-02
        xs( 46) = 0.6081745533874655D-02
        xs( 47) = 0.6499443880243740D-02
        xs( 48) = 0.6948543810893483D-02
        xs( 49) = 0.7432504355069330D-02
        xs( 50) = 0.7955322158482813D-02
        xs( 51) = 0.8521638144174493D-02
        xs( 52) = 0.9136872701229239D-02
        xs( 53) = 0.9807394941579286D-02
        xs( 54) = 0.1054073795863542D-01
        xs( 55) = 0.1134588064009053D-01
        xs( 56) = 0.1223361055188392D-01
        xs( 57) = 0.1321700139222407D-01
        xs( 58) = 0.1431205431952837D-01
        xs( 59) = 0.1553857174252860D-01
        xs( 60) = 0.1692138299146150D-01
        xs( 61) = 0.1849204904231674D-01
        xs( 62) = 0.2029130834404320D-01
        xs( 63) = 0.2237274015200177D-01
        xs( 64) = 0.2480854041277470D-01
        xs( 65) = 0.2769860568120564D-01
        xs( 66) = 0.3118374264178121D-01
        xs( 67) = 0.3546318799817248D-01
        xs( 68) = 0.4081524225583520D-01
        xs( 69) = 0.4761781736399133D-01
        xs( 70) = 0.5634819227534981D-01
        xs( 71) = 0.6751087924280078D-01
        xs( 72) = 0.8145897700095688D-01
        xs( 73) = 0.9817732064352179D-01
        xs( 74) = 0.1172131360221449D+00
        xs( 75) = 0.1378550113927479D+00
        xs( 76) = 0.1587722278250425D+00
        ws(  1) = 0.3136450657231683D-05
        ws(  2) = 0.7301825535932402D-05
        ws(  3) = 0.1147543591525687D-04
        ws(  4) = 0.1565337045170366D-04
        ws(  5) = 0.1983769881913637D-04
        ws(  6) = 0.2403169720911175D-04
        ws(  7) = 0.2823978723556158D-04
        ws(  8) = 0.3246738776990542D-04
        ws(  9) = 0.3672104108137687D-04
        ws( 10) = 0.4100836842995729D-04
        ws( 11) = 0.4533798283629180D-04
        ws( 12) = 0.4971947091293983D-04
        ws( 13) = 0.5416335115750653D-04
        ws( 14) = 0.5868102877640138D-04
        ws( 15) = 0.6328477423414950D-04
        ws( 16) = 0.6798774072109069D-04
        ws( 17) = 0.7280398929668942D-04
        ws( 18) = 0.7774854553903738D-04
        ws( 19) = 0.8283746864446759D-04
        ws( 20) = 0.8808793281857730D-04
        ws( 21) = 0.9351833038958151D-04
        ws( 22) = 0.9914841782063555D-04
        ws( 23) = 0.1049994994194740D-03
        ws( 24) = 0.1110946024989916D-03
        ws( 25) = 0.1174586874480104D-03
        ws( 26) = 0.1241188710602169D-03
        ws( 27) = 0.1311047579389249D-03
        ws( 28) = 0.1384487922633630D-03
        ws( 29) = 0.1461866049396282D-03
        ws( 30) = 0.1543574293438868D-03
        ws( 31) = 0.1630046683331891D-03
        ws( 32) = 0.1721765029908467D-03
        ws( 33) = 0.1819265387608974D-03
        ws( 34) = 0.1923145327423332D-03
        ws( 35) = 0.2034074700846382D-03
        ws( 36) = 0.2152807528157889D-03
        ws( 37) = 0.2280193673672383D-03
        ws( 38) = 0.2417192879722618D-03
        ws( 39) = 0.2564896520712586D-03
        ws( 40) = 0.2724549614531759D-03
        ws( 41) = 0.2897574160499949D-03
        ws( 42) = 0.3085603598828856D-03
        ws( 43) = 0.3290525325696451D-03
        ws( 44) = 0.3514523286896854D-03
        ws( 45) = 0.3760137033973939D-03
        ws( 46) = 0.4030341107404643D-03
        ws( 47) = 0.4328628128842839D-03
        ws( 48) = 0.4659121125928874D-03
        ws( 49) = 0.5026733359992991D-03
        ws( 50) = 0.5437335009072469D-03
        ws( 51) = 0.5897990722817458D-03
        ws( 52) = 0.6417280657656402D-03
        ws( 53) = 0.7005672523373197D-03
        ws( 54) = 0.7676092812541050D-03
        ws( 55) = 0.8444661958912404D-03
        ws( 56) = 0.9331620018395862D-03
        ws( 57) = 0.1036272327112956D-02
        ws( 58) = 0.1157113616313790D-02
        ws( 59) = 0.1300031542876022D-02
        ws( 60) = 0.1470811223794244D-02
        ws( 61) = 0.1677251200812002D-02
        ws( 62) = 0.1930104072599833D-02
        ws( 63) = 0.2244641947201083D-02
        ws( 64) = 0.2643389416867198D-02
        ws( 65) = 0.3159912634875121D-02
        ws( 66) = 0.3843223785322557D-02
        ws( 67) = 0.4761678053459499D-02
        ws( 68) = 0.6005284609170351D-02
        ws( 69) = 0.7680494452400393D-02
        ws( 70) = 0.9867419400385671D-02
        ws( 71) = 0.1252080991393657D-01
        ws( 72) = 0.1537371193114406D-01
        ws( 73) = 0.1797741560772214D-01
        ws( 74) = 0.1994464327986316D-01
        ws( 75) = 0.2127564094511944D-01
        ws( 76) = 0.2113252059554818D-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 =  79
        err = 0.8696553266824245D-07
        xs(  1) = 0.1100592952142838D-05
        xs(  2) = 0.5798920386419946D-05
        xs(  3) = 0.1425165141013108D-04
        xs(  4) = 0.2646111087488905D-04
        xs(  5) = 0.4242892489354906D-04
        xs(  6) = 0.6215818154318001D-04
        xs(  7) = 0.8565439597335089D-04
        xs(  8) = 0.1129265038585498D-03
        xs(  9) = 0.1439877532031772D-03
        xs( 10) = 0.1788567380861154D-03
        xs( 11) = 0.2175581596281226D-03
        xs( 12) = 0.2601237369173426D-03
        xs( 13) = 0.3065929754548172D-03
        xs( 14) = 0.3570138614162146D-03
        xs( 15) = 0.4114435490660924D-03
        xs( 16) = 0.4699490065123696D-03
        xs( 17) = 0.5326076148579581D-03
        xs( 18) = 0.5995078463547764D-03
        xs( 19) = 0.6707499320467809D-03
        xs( 20) = 0.7464466378263960D-03
        xs( 21) = 0.8267240132107108D-03
        xs( 22) = 0.9117222270896485D-03
        xs( 23) = 0.1001596476701583D-02
        xs( 24) = 0.1096518069080234D-02
        xs( 25) = 0.1196675625398164D-02
        xs( 26) = 0.1302276368848997D-02
        xs( 27) = 0.1413547552192576D-02
        xs( 28) = 0.1530738073108811D-02
        xs( 29) = 0.1654120412067924D-02
        xs( 30) = 0.1783992726970559D-02
        xs( 31) = 0.1920681128850556D-02
        xs( 32) = 0.2064542369561505D-02
        xs( 33) = 0.2215966984698769D-02
        xs( 34) = 0.2375382764655181D-02
        xs( 35) = 0.2543258529624506D-02
        xs( 36) = 0.2720108519047998D-02
        xs( 37) = 0.2906497595433285D-02
        xs( 38) = 0.3103047253250720D-02
        xs( 39) = 0.3310442207150019D-02
        xs( 40) = 0.3529438058491683D-02
        xs( 41) = 0.3760870305164955D-02
        xs( 42) = 0.4005664632675201D-02
        xs( 43) = 0.4264848760670560D-02
        xs( 44) = 0.4539566624011203D-02
        xs( 45) = 0.4831094949098724D-02
        xs( 46) = 0.5140862537202089D-02
        xs( 47) = 0.5470473213309900D-02
        xs( 48) = 0.5821732936499374D-02
        xs( 49) = 0.6196681958138128D-02
        xs( 50) = 0.6597633733740069D-02
        xs( 51) = 0.7027221848648756D-02
        xs( 52) = 0.7488457838406452D-02
        xs( 53) = 0.7984800807052279D-02
        xs( 54) = 0.8520243142696232D-02
        xs( 55) = 0.9099416939978856D-02
        xs( 56) = 0.9727727479350915D-02
        xs( 57) = 0.1041152282924627D-01
        xs( 58) = 0.1115831313199233D-01
        xs( 59) = 0.1197705027950759D-01
        xs( 60) = 0.1287849120079069D-01
        xs( 61) = 0.1387568375196148D-01
        xs( 62) = 0.1498462624429280D-01
        xs( 63) = 0.1622519001634676D-01
        xs( 64) = 0.1762239221000979D-01
        xs( 65) = 0.1920817397483945D-01
        xs( 66) = 0.2102406830376651D-01
        xs( 67) = 0.2312549559218852D-01
        xs( 68) = 0.2558875459122618D-01
        xs( 69) = 0.2852162233095031D-01
        xs( 70) = 0.3207814797548368D-01
        xs( 71) = 0.3647795752033403D-01
        xs( 72) = 0.4203144481212411D-01
        xs( 73) = 0.4916775206438567D-01
        xs( 74) = 0.5843705059910576D-01
        xs( 75) = 0.7042819703974057D-01
        xs( 76) = 0.8555643530443058D-01
        xs( 77) = 0.1037993785883472D+00
        xs( 78) = 0.1246227625241213D+00
        xs( 79) = 0.1467208030809793D+00
        ws(  1) = 0.2824452131574151D-05
        ws(  2) = 0.6574791794561475D-05
        ws(  3) = 0.1033090857028968D-04
        ws(  4) = 0.1408829636059217D-04
        ws(  5) = 0.1784786376427301D-04
        ws(  6) = 0.2161152637024180D-04
        ws(  7) = 0.2538234156408719D-04
        ws(  8) = 0.2916406323830770D-04
        ws(  9) = 0.3296155765862334D-04
        ws( 10) = 0.3678049650944212D-04
        ws( 11) = 0.4062759512198346D-04
        ws( 12) = 0.4451016156103915D-04
        ws( 13) = 0.4843631336749802D-04
        ws( 14) = 0.5241496081810803D-04
        ws( 15) = 0.5645556594777981D-04
        ws( 16) = 0.6056823308250273D-04
        ws( 17) = 0.6476371770193766D-04
        ws( 18) = 0.6905343566405278D-04
        ws( 19) = 0.7344952399087157D-04
        ws( 20) = 0.7796488656382633D-04
        ws( 21) = 0.8261321319311082D-04
        ws( 22) = 0.8740906362435077D-04
        ws( 23) = 0.9236796699610844D-04
        ws( 24) = 0.9750663593184243D-04
        ws( 25) = 0.1028429954494303D-03
        ws( 26) = 0.1083963442131817D-03
        ws( 27) = 0.1141874742053300D-03
        ws( 28) = 0.1202389503345473D-03
        ws( 29) = 0.1265753888796734D-03
        ws( 30) = 0.1332235513316433D-03
        ws( 31) = 0.1402126640646692D-03
        ws( 32) = 0.1475748530680729D-03
        ws( 33) = 0.1553456166889647D-03
        ws( 34) = 0.1635640183600898D-03
        ws( 35) = 0.1722731271587983D-03
        ws( 36) = 0.1815208797245952D-03
        ws( 37) = 0.1913607675728116D-03
        ws( 38) = 0.2018525531866041D-03
        ws( 39) = 0.2130631063954265D-03
        ws( 40) = 0.2250676739773374D-03
        ws( 41) = 0.2379509364872011D-03
        ws( 42) = 0.2518087459010121D-03
        ws( 43) = 0.2667498665162121D-03
        ws( 44) = 0.2828983612334366D-03
        ws( 45) = 0.3003960351583360D-03
        ws( 46) = 0.3194059824817048D-03
        ws( 47) = 0.3401158518477749D-03
        ws( 48) = 0.3627430084642320D-03
        ws( 49) = 0.3875398506944064D-03
        ws( 50) = 0.4148016555282708D-03
        ws( 51) = 0.4448754171098472D-03
        ws( 52) = 0.4781716584168855D-03
        ws( 53) = 0.5151779163768592D-03
        ws( 54) = 0.5564765624056322D-03
        ws( 55) = 0.6027691500212025D-03
        ws( 56) = 0.6549063327333844D-03
        ws( 57) = 0.7139314262429797D-03
        ws( 58) = 0.7811352267470932D-03
        ws( 59) = 0.8581239241385972D-03
        ws( 60) = 0.9469219377670837D-03
        ws( 61) = 0.1050114545479937D-02
        ws( 62) = 0.1171061688673292D-02
        ws( 63) = 0.1314207044569651D-02
        ws( 64) = 0.1485478579348323D-02
        ws( 65) = 0.1692938805177234D-02
        ws( 66) = 0.1947972771243945D-02
        ws( 67) = 0.2267423662283837D-02
        ws( 68) = 0.2676809342321496D-02
        ws( 69) = 0.3214278991691304D-02
        ws( 70) = 0.3934956799516619D-02
        ws( 71) = 0.4915860092990811D-02
        ws( 72) = 0.6262440594198910D-02
        ws( 73) = 0.8103086809686740D-02
        ws( 74) = 0.1053743831706054D-01
        ws( 75) = 0.1351963170827628D-01
        ws( 76) = 0.1673307741823834D-01
        ws( 77) = 0.1965155286613069D-01
        ws( 78) = 0.2196283242816991D-01
        ws( 79) = 0.2278946315535422D-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 =  85
        err = 0.1916101251364112D-07
        xs(  1) = 0.9572909745652698D-06
        xs(  2) = 0.5043974766703042D-05
        xs(  3) = 0.1239660683420028D-04
        xs(  4) = 0.2301767253647007D-04
        xs(  5) = 0.3690905954310620D-04
        xs(  6) = 0.5407379859155619D-04
        xs(  7) = 0.7451671015396587D-04
        xs(  8) = 0.9824505363994891D-04
        xs(  9) = 0.1252691228786666D-03
        xs( 10) = 0.1556029193015114D-03
        xs( 11) = 0.1892647364594356D-03
        xs( 12) = 0.2262777778630794D-03
        xs( 13) = 0.2666706989163898D-03
        xs( 14) = 0.3104781476402126D-03
        xs( 15) = 0.3577412781810534D-03
        xs( 16) = 0.4085082111051366D-03
        xs( 17) = 0.4628345027603286D-03
        xs( 18) = 0.5207836275933747D-03
        xs( 19) = 0.5824274370487248D-03
        xs( 20) = 0.6478466601432720D-03
        xs( 21) = 0.7171314182679548D-03
        xs( 22) = 0.7903817724279093D-03
        xs( 23) = 0.8677083204600963D-03
        xs( 24) = 0.9492328475122526D-03
        xs( 25) = 0.1035089049756559D-02
        xs( 26) = 0.1125423324742846D-02
        xs( 27) = 0.1220395649540485D-02
        xs( 28) = 0.1320180556967208D-02
        xs( 29) = 0.1424968233048414D-02
        xs( 30) = 0.1534965728440944D-02
        xs( 31) = 0.1650398298274804D-02
        xs( 32) = 0.1771510932860304D-02
        xs( 33) = 0.1898570082580458D-02
        xs( 34) = 0.2031865567092593D-02
        xs( 35) = 0.2171712706673036D-02
        xs( 36) = 0.2318454747932396D-02
        xs( 37) = 0.2472465610321383D-02
        xs( 38) = 0.2634152924850320D-02
        xs( 39) = 0.2803961525687907D-02
        xs( 40) = 0.2982377434127101D-02
        xs( 41) = 0.3169932351681611D-02
        xs( 42) = 0.3367208747974245D-02
        xs( 43) = 0.3574845679979508D-02
        xs( 44) = 0.3793545556175513D-02
        xs( 45) = 0.4024081779676266D-02
        xs( 46) = 0.4267307527172662D-02
        xs( 47) = 0.4524166101107019D-02
        xs( 48) = 0.4795702814960497D-02
        xs( 49) = 0.5083078602441386D-02
        xs( 50) = 0.5387586303579961D-02
        xs( 51) = 0.5710669662032764D-02
        xs( 52) = 0.6053945456764368D-02
        xs( 53) = 0.6419229977147126D-02
        xs( 54) = 0.6808570550987033D-02
        xs( 55) = 0.7224282661884121D-02
        xs( 56) = 0.7668995274337798D-02
        xs( 57) = 0.8145705880042554D-02
        xs( 58) = 0.8657846453773670D-02
        xs( 59) = 0.9209365085749700D-02
        xs( 60) = 0.9804825970277807D-02
        xs( 61) = 0.1044953337557298D-01
        xs( 62) = 0.1114969052964111D-01
        xs( 63) = 0.1191259955659678D-01
        xs( 64) = 0.1274691653941839D-01
        xs( 65) = 0.1366298019731644D-01
        xs( 66) = 0.1467324019651377D-01
        xs( 67) = 0.1579284155546738D-01
        xs( 68) = 0.1704042092654384D-01
        xs( 69) = 0.1843919261128283D-01
        xs( 70) = 0.2001843980046487D-01
        xs( 71) = 0.2181565940337737D-01
        xs( 72) = 0.2387992309539527D-01
        xs( 73) = 0.2627726006301755D-01
        xs( 74) = 0.2909894668649245D-01
        xs( 75) = 0.3247305384688612D-01
        xs( 76) = 0.3657949198651933D-01
        xs( 77) = 0.4166887444776036D-01
        xs( 78) = 0.4808526098073172D-01
        xs( 79) = 0.5628442209080880D-01
        xs( 80) = 0.6680881273421400D-01
        xs( 81) = 0.8016406149670606D-01
        xs( 82) = 0.9659813338057334D-01
        xs( 83) = 0.1159144022254232D+00
        xs( 84) = 0.1374720933099384D+00
        xs( 85) = 0.1599912890885015D+00
        ws(  1) = 0.2456719551090438D-05
        ws(  2) = 0.5718954055978534D-05
        ws(  3) = 0.8986594187682709D-05
        ws(  4) = 0.1225584313834697D-04
        ws(  5) = 0.1552743178098813D-04
        ws(  6) = 0.1880283971079073D-04
        ws(  7) = 0.2208418249277977D-04
        ws(  8) = 0.2537420013341989D-04
        ws(  9) = 0.2867626283748000D-04
        ws( 10) = 0.3199437292208852D-04
        ws( 11) = 0.3533312399590091D-04
        ws( 12) = 0.3869771536516589D-04
        ws( 13) = 0.4209388626858116D-04
        ws( 14) = 0.4552787470392209D-04
        ws( 15) = 0.4900640344874348D-04
        ws( 16) = 0.5253670765222336D-04
        ws( 17) = 0.5612644865588948D-04
        ws( 18) = 0.5978376727551639D-04
        ws( 19) = 0.6351729599856144D-04
        ws( 20) = 0.6733616082603984D-04
        ws( 21) = 0.7125002173811269D-04
        ws( 22) = 0.7526910930745653D-04
        ws( 23) = 0.7940427348913302D-04
        ws( 24) = 0.8366705120014656D-04
        ws( 25) = 0.8806973811528109D-04
        ws( 26) = 0.9262545758203533D-04
        ws( 27) = 0.9734826095738908D-04
        ws( 28) = 0.1022532318973105D-03
        ws( 29) = 0.1073566078096858D-03
        ws( 30) = 0.1126758990442586D-03
        ws( 31) = 0.1182300415478156D-03
        ws( 32) = 0.1240396037574696D-03
        ws( 33) = 0.1301269673138599D-03
        ws( 34) = 0.1365165117721577D-03
        ws( 35) = 0.1432349246952995D-03
        ws( 36) = 0.1503114333779122D-03
        ws( 37) = 0.1577781683136189D-03
        ws( 38) = 0.1656705286063220D-03
        ws( 39) = 0.1740276046847036D-03
        ws( 40) = 0.1828927458529108D-03
        ws( 41) = 0.1923140680127584D-03
        ws( 42) = 0.2023451185400350D-03
        ws( 43) = 0.2130456910932799D-03
        ws( 44) = 0.2244828198335869D-03
        ws( 45) = 0.2367316489871252D-03
        ws( 46) = 0.2498768650043788D-03
        ws( 47) = 0.2640142801133934D-03
        ws( 48) = 0.2792523636572378D-03
        ws( 49) = 0.2957143685567896D-03
        ws( 50) = 0.3135412840125914D-03
        ws( 51) = 0.3328944544312934D-03
        ws( 52) = 0.3539593173331836D-03
        ws( 53) = 0.3769503238397695D-03
        ws( 54) = 0.4021159746703156D-03
        ws( 55) = 0.4297454840975509D-03
        ws( 56) = 0.4601782290938757D-03
        ws( 57) = 0.4938136066437366D-03
        ws( 58) = 0.5311238909262525D-03
        ws( 59) = 0.5726720375441178D-03
        ws( 60) = 0.6191311245420566D-03
        ws( 61) = 0.6713142526725080D-03
        ws( 62) = 0.7302128837974549D-03
        ws( 63) = 0.7970424006203486D-03
        ws( 64) = 0.8733077065064440D-03
        ws( 65) = 0.9608849837958230D-03
        ws( 66) = 0.1062146121440386D-02
        ws( 67) = 0.1180144915010325D-02
        ws( 68) = 0.1318858490614103D-02
        ws( 69) = 0.1483531227573864D-02
        ws( 70) = 0.1681158612142203D-02
        ws( 71) = 0.1921372266968095D-02
        ws( 72) = 0.2218022422693779D-02
        ws( 73) = 0.2591672226719928D-02
        ws( 74) = 0.3072795955607315D-02
        ws( 75) = 0.3705087499223869D-02
        ws( 76) = 0.4549170969991690D-02
        ws( 77) = 0.5686532252670109D-02
        ws( 78) = 0.7222452383686620D-02
        ws( 79) = 0.9268319573862056D-02
        ws( 80) = 0.1186881687002752D-01
        ws( 81) = 0.1488715578818413D-01
        ws( 82) = 0.1794659815668493D-01
        ws( 83) = 0.2057424422507771D-01
        ws( 84) = 0.2252572668875485D-01
        ws( 85) = 0.2232893572505523D-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 =  23
        err = 0.8315395064439635D-07
        xs(  1) = 0.3719800807532683D+00
        xs(  2) = 0.8676053233426576D+00
        xs(  3) = 0.1395963960706033D+01
        xs(  4) = 0.1965072982183553D+01
        xs(  5) = 0.2579069266312231D+01
        xs(  6) = 0.3238139833955172D+01
        xs(  7) = 0.3940063293631305D+01
        xs(  8) = 0.4681507863903127D+01
        xs(  9) = 0.5458850242791589D+01
        xs( 10) = 0.6268614283885622D+01
        xs( 11) = 0.7107671785521464D+01
        xs( 12) = 0.7973312252938751D+01
        xs( 13) = 0.8863247697093804D+01
        xs( 14) = 0.9775589679770386D+01
        xs( 15) = 0.1070881866717950D+02
        xs( 16) = 0.1166175689835260D+02
        xs( 17) = 0.1263354629110275D+02
        xs( 18) = 0.1362369149554409D+02
        xs( 19) = 0.1463174620897819D+02
        xs( 20) = 0.1565924003606930D+02
        xs( 21) = 0.1670263007249160D+02
        xs( 22) = 0.1776908409290668D+02
        xs( 23) = 0.1886822902019924D+02
        ws(  1) = 0.4810221470220558D+00
        ws(  2) = 0.5105335923027293D+00
        ws(  3) = 0.5476506509321801D+00
        ws(  4) = 0.5912412819557472D+00
        ws(  5) = 0.6367541622242247D+00
        ws(  6) = 0.6809948272066548D+00
        ws(  7) = 0.7222834810222297D+00
        ws(  8) = 0.7599948301593834D+00
        ws(  9) = 0.7941074864793315D+00
        ws( 10) = 0.8248982404049823D+00
        ws( 11) = 0.8527650725114034D+00
        ws( 12) = 0.8781350916734505D+00
        ws( 13) = 0.9014219316657138D+00
        ws( 14) = 0.9230101528293144D+00
        ws( 15) = 0.9432541240180240D+00
        ws( 16) = 0.9624867614314637D+00
        ws( 17) = 0.9810265854886576D+00
        ws( 18) = 0.9991987447547434D+00
        ws( 19) = 0.1018131182909033D+01
        ws( 20) = 0.1029392374225438D+01
        ws( 21) = 0.1106828937018420D+01
        ws( 22) = 0.8396204248241351D+00
        ws( 23) = 0.1907100984891257D+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 =  23
        err = 0.9615002864829347D-07
        xs(  1) = 0.3725936991687373D+00
        xs(  2) = 0.8689159284400163D+00
        xs(  3) = 0.1397796334800574D+01
        xs(  4) = 0.1967244257709940D+01
        xs(  5) = 0.2581434156689612D+01
        xs(  6) = 0.3240598495972164D+01
        xs(  7) = 0.3942552721141273D+01
        xs(  8) = 0.4683990296132941D+01
        xs(  9) = 0.5461303755004257D+01
        xs( 10) = 0.6271026392676110D+01
        xs( 11) = 0.7110035443730894D+01
        xs( 12) = 0.7975623422285945D+01
        xs( 13) = 0.8865503877600673D+01
        xs( 14) = 0.9777788992532368D+01
        xs( 15) = 0.1071095923992627D+02
        xs( 16) = 0.1166383639168329D+02
        xs( 17) = 0.1263556141122957D+02
        xs( 18) = 0.1362563780387148D+02
        xs( 19) = 0.1463361358458699D+02
        xs( 20) = 0.1566103979347180D+02
        xs( 21) = 0.1670422135122271D+02
        xs( 22) = 0.1777109810086557D+02
        xs( 23) = 0.1886904370228453D+02
        ws(  1) = 0.4817816291926707D+00
        ws(  2) = 0.5111505617642276D+00
        ws(  3) = 0.5480768847647588D+00
        ws(  4) = 0.5914997503561940D+00
        ws(  5) = 0.6368907470497694D+00
        ws(  6) = 0.6810519540104866D+00
        ws(  7) = 0.7222920469324885D+00
        ws(  8) = 0.7599748600728781D+00
        ws(  9) = 0.7940711502956923D+00
        ws( 10) = 0.8248526503437343D+00
        ws( 11) = 0.8527142480434494D+00
        ws( 12) = 0.8780811870727622D+00
        ws( 13) = 0.9013659597237166D+00
        ws( 14) = 0.9229523936942983D+00
        ws( 15) = 0.9431943369617071D+00
        ws( 16) = 0.9624242753000700D+00
        ws( 17) = 0.9809601043469166D+00
        ws( 18) = 0.9991276597774309D+00
        ws( 19) = 0.1018044709289534D+01
        ws( 20) = 0.1029328709157948D+01
        ws( 21) = 0.1106602022304765D+01
        ws( 22) = 0.8398600897227632D+00
        ws( 23) = 0.1905743864483249D+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 =  25
        err = 0.2178896545732648D-07
        xs(  1) = 0.3463590212042758D+00
        xs(  2) = 0.8065974787209328D+00
        xs(  3) = 0.1295383546767841D+01
        xs(  4) = 0.1821086802338441D+01
        xs(  5) = 0.2389315417726100D+01
        xs(  6) = 0.3001935305873026D+01
        xs(  7) = 0.3658022543430065D+01
        xs(  8) = 0.4355021926519355D+01
        xs(  9) = 0.5089656271153823D+01
        xs( 10) = 0.5858506050408376D+01
        xs( 11) = 0.6658325728848357D+01
        xs( 12) = 0.7486188849490843D+01
        xs( 13) = 0.8339534849056024D+01
        xs( 14) = 0.9216164888742668D+01
        xs( 15) = 0.1011421396583740D+02
        xs( 16) = 0.1103211327163497D+02
        xs( 17) = 0.1196854774844106D+02
        xs( 18) = 0.1292242835866930D+02
        xs( 19) = 0.1389258972507326D+02
        xs( 20) = 0.1487963929728937D+02
        xs( 21) = 0.1587339681148804D+02
        xs( 22) = 0.1691168488545730D+02
        xs( 23) = 0.1787861968796659D+02
        xs( 24) = 0.1968045242943279D+02
        xs( 25) = 0.2013995215373671D+02
        ws(  1) = 0.4475208277619064D+00
        ws(  2) = 0.4731236664543758D+00
        ws(  3) = 0.5059799872333177D+00
        ws(  4) = 0.5463635529664553D+00
        ws(  5) = 0.5903861274597154D+00
        ws(  6) = 0.6346794115089374D+00
        ws(  7) = 0.6770539391120821D+00
        ws(  8) = 0.7163891732982092D+00
        ws(  9) = 0.7523045570882370D+00
        ws( 10) = 0.7848518372372403D+00
        ws( 11) = 0.8142991099110150D+00
        ws( 12) = 0.8410005107155216D+00
        ws( 13) = 0.8653255359697674D+00
        ws( 14) = 0.8876243937237108D+00
        ws( 15) = 0.9082130833923451D+00
        ws( 16) = 0.9273682883127449D+00
        ws( 17) = 0.9453120370599620D+00
        ws( 18) = 0.9623232331526946D+00
        ws( 19) = 0.9778540865705104D+00
        ws( 20) = 0.9944597852214886D+00
        ws( 21) = 0.1009014319990348D+01
        ws( 22) = 0.9688931488683677D+00
        ws( 23) = 0.1306033900147667D+01
        ws( 24) = 0.7389724839913963D+00
        ws( 25) = 0.2329130965761458D+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 =  23
        err = 0.9689134014954017D-07
        xs(  1) = 0.3604455522880971D+00
        xs(  2) = 0.8419841204273140D+00
        xs(  3) = 0.1357802351453618D+01
        xs(  4) = 0.1916399436077212D+01
        xs(  5) = 0.2522156390421693D+01
        xs(  6) = 0.3175208165075498D+01
        xs(  7) = 0.3873007495533350D+01
        xs(  8) = 0.4611787214103386D+01
        xs(  9) = 0.5387518676572961D+01
        xs( 10) = 0.6196409190738019D+01
        xs( 11) = 0.7035107219805584D+01
        xs( 12) = 0.7900755562826515D+01
        xs( 13) = 0.8790976664413117D+01
        xs( 14) = 0.9703833750203779D+01
        xs( 15) = 0.1063778910345005D+02
        xs( 16) = 0.1159167027552547D+02
        xs( 17) = 0.1256464646770665D+02
        xs( 18) = 0.1355625914110384D+02
        xs( 19) = 0.1456625221720135D+02
        xs( 20) = 0.1559541321547574D+02
        xs( 21) = 0.1664537795994359D+02
        xs( 22) = 0.1769596518446322D+02
        xs( 23) = 0.1883957312153907D+02
        ws(  1) = 0.4664669160372606D+00
        ws(  2) = 0.4971111038775192D+00
        ws(  3) = 0.5360652548230483D+00
        ws(  4) = 0.5818464892536562D+00
        ws(  5) = 0.6296610590075767D+00
        ws(  6) = 0.6759927732233573D+00
        ws(  7) = 0.7189622965018972D+00
        ws(  8) = 0.7579178707558886D+00
        ws(  9) = 0.7929098665461928D+00
        ws( 10) = 0.8243119005836474D+00
        ws( 11) = 0.8526083537676736D+00
        ws( 12) = 0.8782928994768685D+00
        ws( 13) = 0.9018275612294983D+00
        ws( 14) = 0.9236317892916103D+00
        ws( 15) = 0.9440861128223853D+00
        ws( 16) = 0.9635446293436630D+00
        ws( 17) = 0.9823511225630435D+00
        ws( 18) = 0.1000815688004754D+01
        ws( 19) = 0.1020363466975434D+01
        ws( 20) = 0.1031198894086931D+01
        ws( 21) = 0.1113007720750591D+01
        ws( 22) = 0.8344721792162694D+00
        ws( 23) = 0.1954788115648213D+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 =  23
        err = 0.9891113382604811D-07
        xs(  1) = 0.3545594145296641D+00
        xs(  2) = 0.8251860551266598D+00
        xs(  3) = 0.1324773426143435D+01
        xs(  4) = 0.1863210415179529D+01
        xs(  5) = 0.2447583478239330D+01
        xs(  6) = 0.3080397335418801D+01
        xs(  7) = 0.3760512236253119D+01
        xs(  8) = 0.4484679567252397D+01
        xs(  9) = 0.5248818834816564D+01
        xs( 10) = 0.6048811410158473D+01
        xs( 11) = 0.6880896899284555D+01
        xs( 12) = 0.7741823776664436D+01
        xs( 13) = 0.8628873948918342D+01
        xs( 14) = 0.9539834262320831D+01
        xs( 15) = 0.1047295365385097D+02
        xs( 16) = 0.1142690506540374D+02
        xs( 17) = 0.1240076016904045D+02
        xs( 18) = 0.1339398793445648D+02
        xs( 19) = 0.1440653661841678D+02
        xs( 20) = 0.1543752991819415D+02
        xs( 21) = 0.1649793854880341D+02
        xs( 22) = 0.1751087861556765D+02
        xs( 23) = 0.1877157040649513D+02
        ws(  1) = 0.4579411164297057D+00
        ws(  2) = 0.4835272208901833D+00
        ws(  3) = 0.5174570911903957D+00
        ws(  4) = 0.5606141625902075D+00
        ws(  5) = 0.6085298428946079D+00
        ws(  6) = 0.6568803428916919D+00
        ws(  7) = 0.7027863626414788D+00
        ws(  8) = 0.7448552945090130D+00
        ws(  9) = 0.7827305980133707D+00
        ws( 10) = 0.8166256156969712D+00
        ws( 11) = 0.8470032461686328D+00
        ws( 12) = 0.8743981691786111D+00
        ws( 13) = 0.8993343614798515D+00
        ws( 14) = 0.9222958524468083D+00
        ws( 15) = 0.9437242086198877D+00
        ws( 16) = 0.9640294939921608D+00
        ws( 17) = 0.9836145683773265D+00
        ws( 18) = 0.1002792153177262D+01
        ws( 19) = 0.1023195447156969D+01
        ws( 20) = 0.1034689366352933D+01
        ws( 21) = 0.1111663920527419D+01
        ws( 22) = 0.8576982744883745D+00
        ws( 23) = 0.2037978965009473D+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 =  24
        err = 0.4206461973358462D-07
        xs(  1) = 0.3272261067233129D+00
        xs(  2) = 0.7565501368181269D+00
        xs(  3) = 0.1202989913898556D+01
        xs(  4) = 0.1676045380055751D+01
        xs(  5) = 0.2187146623769309D+01
        xs(  6) = 0.2745082425261347D+01
        xs(  7) = 0.3353929024821924D+01
        xs(  8) = 0.4013342228754086D+01
        xs(  9) = 0.4720124769845314D+01
        xs( 10) = 0.5469822369386322D+01
        xs( 11) = 0.6257797021929488D+01
        xs( 12) = 0.7079778518448743D+01
        xs( 13) = 0.7932076080989149D+01
        xs( 14) = 0.8811614058728585D+01
        xs( 15) = 0.9715893383214736D+01
        xs( 16) = 0.1064293201136717D+02
        xs( 17) = 0.1159120983626862D+02
        xs( 18) = 0.1255962642634873D+02
        xs( 19) = 0.1354751581580269D+02
        xs( 20) = 0.1455448826306614D+02
        xs( 21) = 0.1558103738085036D+02
        xs( 22) = 0.1662998440627437D+02
        xs( 23) = 0.1767310098366224D+02
        xs( 24) = 0.1883014672408049D+02
        ws(  1) = 0.4212411386888112D+00
        ws(  2) = 0.4368116662630659D+00
        ws(  3) = 0.4578057208352714D+00
        ws(  4) = 0.4902821986202210D+00
        ws(  5) = 0.5334207673646020D+00
        ws(  6) = 0.5831219421839495D+00
        ws(  7) = 0.6344844678796459D+00
        ws(  8) = 0.6837812872256908D+00
        ws(  9) = 0.7290237051821008D+00
        ws( 10) = 0.7695898154447371D+00
        ws( 11) = 0.8056446827596674D+00
        ws( 12) = 0.8377028734316174D+00
        ws( 13) = 0.8663805326806481D+00
        ws( 14) = 0.8922802878209134D+00
        ws( 15) = 0.9159498481000615D+00
        ws( 16) = 0.9378769121617676D+00
        ws( 17) = 0.9585023943805840D+00
        ws( 18) = 0.9782397736766776D+00
        ws( 19) = 0.9974537333869740D+00
        ws( 20) = 0.1017655716917214D+01
        ws( 21) = 0.1028841425567511D+01
        ws( 22) = 0.1111771274786818D+01
        ws( 23) = 0.8316002960676429D+00
        ws( 24) = 0.1970744710528793D+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 =  24
        err = 0.6411530918895922D-07
        xs(  1) = 0.3391752902077487D+00
        xs(  2) = 0.7783423879284854D+00
        xs(  3) = 0.1222978144491342D+01
        xs(  4) = 0.1679929781271933D+01
        xs(  5) = 0.2162156095621864D+01
        xs(  6) = 0.2683531292379107D+01
        xs(  7) = 0.3254333801404317D+01
        xs(  8) = 0.3878933045031505D+01
        xs(  9) = 0.4556459122774752D+01
        xs( 10) = 0.5282955228615155D+01
        xs( 11) = 0.6053325637081251D+01
        xs( 12) = 0.6862506295519284D+01
        xs( 13) = 0.7705998441424844D+01
        xs( 14) = 0.8580033571346858D+01
        xs( 15) = 0.9481563537955966D+01
        xs( 16) = 0.1040818696523102D+02
        xs( 17) = 0.1135806907335678D+02
        xs( 18) = 0.1232987300361399D+02
        xs( 19) = 0.1332272182617002D+02
        xs( 20) = 0.1433629911308303D+02
        xs( 21) = 0.1536898023544241D+02
        xs( 22) = 0.1643320505146618D+02
        xs( 23) = 0.1743862432169319D+02
        xs( 24) = 0.1874420710602067D+02
        ws(  1) = 0.4350337768814768D+00
        ws(  2) = 0.4416049528405896D+00
        ws(  3) = 0.4489535832030093D+00
        ws(  4) = 0.4671880487552943D+00
        ws(  5) = 0.4996588364545085D+00
        ws(  6) = 0.5448455551409319D+00
        ws(  7) = 0.5974716417093047D+00
        ws(  8) = 0.6515414505804493D+00
        ws(  9) = 0.7028177445156806D+00
        ws( 10) = 0.7493062767100677D+00
        ws( 11) = 0.7905823416557182D+00
        ws( 12) = 0.8270269237519045D+00
        ws( 13) = 0.8593298726295048D+00
        ws( 14) = 0.8882339187199317D+00
        ws( 15) = 0.9144279841449378D+00
        ws( 16) = 0.9385164951508113D+00
        ws( 17) = 0.9610300205665518D+00
        ws( 18) = 0.9824569506247641D+00
        ws( 19) = 0.1003153382610146D+01
        ws( 20) = 0.1024657769064305D+01
        ws( 21) = 0.1037957438297644D+01
        ws( 22) = 0.1106650547039217D+01
        ws( 23) = 0.8870037371245134D+00
        ws( 24) = 0.2047528135798305D+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 =  26
        err = 0.8898146971589983D-07
        xs(  1) = 0.3562809051296630D+00
        xs(  2) = 0.8123231147349989D+00
        xs(  3) = 0.1260699311984214D+01
        xs(  4) = 0.1699254146560486D+01
        xs(  5) = 0.2131480158437528D+01
        xs(  6) = 0.2563718345545408D+01
        xs(  7) = 0.3005217171620659D+01
        xs(  8) = 0.3468747813898972D+01
        xs(  9) = 0.3969033384354778D+01
        xs( 10) = 0.4518726625760735D+01
        xs( 11) = 0.5124685743202878D+01
        xs( 12) = 0.5787361842867525D+01
        xs( 13) = 0.6502932307846924D+01
        xs( 14) = 0.7265825673149086D+01
        xs( 15) = 0.8070344698601312D+01
        xs( 16) = 0.8911406610236721D+01
        xs( 17) = 0.9784769816315102D+01
        xs( 18) = 0.1068702988352541D+02
        xs( 19) = 0.1161554165763042D+02
        xs( 20) = 0.1256833088230127D+02
        xs( 21) = 0.1354406311395420D+02
        xs( 22) = 0.1454185498442158D+02
        xs( 23) = 0.1556161717080095D+02
        xs( 24) = 0.1660745154922540D+02
        xs( 25) = 0.1764019420906552D+02
        xs( 26) = 0.1881842139036971D+02
        ws(  1) = 0.4556255499746680D+00
        ws(  2) = 0.4533450500239581D+00
        ws(  3) = 0.4431957306143779D+00
        ws(  4) = 0.4345367219959141D+00
        ws(  5) = 0.4309662280993109D+00
        ws(  6) = 0.4350328152204017D+00
        ws(  7) = 0.4501188342793623D+00
        ws(  8) = 0.4794711186890840D+00
        ws(  9) = 0.5232795761981881D+00
        ws( 10) = 0.5772584183580149D+00
        ws( 11) = 0.6346920912805396D+00
        ws( 12) = 0.6899780934889136D+00
        ws( 13) = 0.7402077560424153D+00
        ws( 14) = 0.7846181534525754D+00
        ws( 15) = 0.8235697747411234D+00
        ws( 16) = 0.8578478346897767D+00
        ws( 17) = 0.8883133508418581D+00
        ws( 18) = 0.9157691536931429D+00
        ws( 19) = 0.9409324438500288D+00
        ws( 20) = 0.9644402298167867D+00
        ws( 21) = 0.9868502290395671D+00
        ws( 22) = 0.1009781627984889D+01
        ws( 23) = 0.1023422236774237D+01
        ws( 24) = 0.1107949802092868D+01
        ws( 25) = 0.8310978603160987D+00
        ws( 26) = 0.2000957570732841D+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 =  30
        err = 0.8219972441012548D-07
        xs(  1) = 0.4153512638447730D+00
        xs(  2) = 0.9463992257517646D+00
        xs(  3) = 0.1465084624055944D+01
        xs(  4) = 0.1963290425178956D+01
        xs(  5) = 0.2438590308275353D+01
        xs(  6) = 0.2892445922471072D+01
        xs(  7) = 0.3328729300488602D+01
        xs(  8) = 0.3752013979928079D+01
        xs(  9) = 0.4166429438953950D+01
        xs( 10) = 0.4575382810527195D+01
        xs( 11) = 0.4982074908749092D+01
        xs( 12) = 0.5390614757467219D+01
        xs( 13) = 0.5807414645113566D+01
        xs( 14) = 0.6242292151627361D+01
        xs( 15) = 0.6708453528085634D+01
        xs( 16) = 0.7220553830674811D+01
        xs( 17) = 0.7790553809706881D+01
        xs( 18) = 0.8423772065322195D+01
        xs( 19) = 0.9118601033307060D+01
        xs( 20) = 0.9869263810320469D+01
        xs( 21) = 0.1066869496372758D+02
        xs( 22) = 0.1151020199558224D+02
        xs( 23) = 0.1238806264082386D+02
        xs( 24) = 0.1329749193481275D+02
        xs( 25) = 0.1423414290106751D+02
        xs( 26) = 0.1519538966892122D+02
        xs( 27) = 0.1616191204555165D+02
        xs( 28) = 0.1717832421372460D+02
        xs( 29) = 0.1802033075918749D+02
        xs( 30) = 0.1978148064821110D+02
        ws(  1) = 0.5310879227786969D+00
        ws(  2) = 0.5269228061950318D+00
        ws(  3) = 0.5092263202249568D+00
        ws(  4) = 0.4867952636126782D+00
        ws(  5) = 0.4640737976366891D+00
        ws(  6) = 0.4443137106131993D+00
        ws(  7) = 0.4290348963862460D+00
        ws(  8) = 0.4182270788673063D+00
        ws(  9) = 0.4111626375788723D+00
        ws( 10) = 0.4072583039491554D+00
        ws( 11) = 0.4067861873225267D+00
        ws( 12) = 0.4113416008700256D+00
        ws( 13) = 0.4238930193418456D+00
        ws( 14) = 0.4480932678255343D+00
        ws( 15) = 0.4867469520725692D+00
        ws( 16) = 0.5395249994378432D+00
        ws( 17) = 0.6013627034282716D+00
        ws( 18) = 0.6647511631982359D+00
        ws( 19) = 0.7238933382702275D+00
        ws( 20) = 0.7762273117895327D+00
        ws( 21) = 0.8215133117807636D+00
        ws( 22) = 0.8605463499512827D+00
        ws( 23) = 0.8943710477108299D+00
        ws( 24) = 0.9239159059638249D+00
        ws( 25) = 0.9483084437157947D+00
        ws( 26) = 0.9730551546945294D+00
        ws( 27) = 0.9701526253899494D+00
        ws( 28) = 0.9598625013199856D+00
        ws( 29) = 0.1081551434515369D+01
        ws( 30) = 0.2374016850513463D+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 =  33
        err = 0.9193798366129845D-07
        xs(  1) = 0.4976163847293559D+00
        xs(  2) = 0.1137768443332786D+01
        xs(  3) = 0.1771285913784734D+01
        xs(  4) = 0.2389878397512354D+01
        xs(  5) = 0.2988441257229792D+01
        xs(  6) = 0.3563212350071524D+01
        xs(  7) = 0.4111698195947409D+01
        xs(  8) = 0.4632813551673178D+01
        xs(  9) = 0.5127080787753858D+01
        xs( 10) = 0.5596782850387254D+01
        xs( 11) = 0.6045819595465913D+01
        xs( 12) = 0.6479010615069018D+01
        xs( 13) = 0.6901020020191927D+01
        xs( 14) = 0.7315609005841471D+01
        xs( 15) = 0.7725759037390523D+01
        xs( 16) = 0.8134591284935038D+01
        xs( 17) = 0.8546667298210131D+01
        xs( 18) = 0.8969128066654989D+01
        xs( 19) = 0.9412377184178149D+01
        xs( 20) = 0.9890064626209959D+01
        xs( 21) = 0.1041705459256490D+02
        xs( 22) = 0.1100476472627932D+02
        xs( 23) = 0.1165748420576943D+02
        xs( 24) = 0.1237297234230749D+02
        xs( 25) = 0.1314551848983973D+02
        xs( 26) = 0.1396853613396813D+02
        xs( 27) = 0.1483584897794235D+02
        xs( 28) = 0.1574230933433792D+02
        xs( 29) = 0.1668668909924176D+02
        xs( 30) = 0.1766063358393050D+02
        xs( 31) = 0.1865239709962564D+02
        xs( 32) = 0.1977348307822156D+02
        xs( 33) = 0.2080421027504484D+02
        ws(  1) = 0.6373439953676659D+00
        ws(  2) = 0.6387873399899697D+00
        ws(  3) = 0.6270397335291061D+00
        ws(  4) = 0.6093072466078767D+00
        ws(  5) = 0.5871913207473423D+00
        ws(  6) = 0.5619327669339513D+00
        ws(  7) = 0.5348545543959252D+00
        ws(  8) = 0.5074600350310413D+00
        ws(  9) = 0.4814564819040861D+00
        ws( 10) = 0.4586095479461510D+00
        ws( 11) = 0.4402871987674926D+00
        ws( 12) = 0.4268861843649264D+00
        ws( 13) = 0.4177569942349278D+00
        ws( 14) = 0.4119016016868871D+00
        ws( 15) = 0.4088954787444826D+00
        ws( 16) = 0.4095095272226473D+00
        ws( 17) = 0.4158215504214274D+00
        ws( 18) = 0.4308305745809901D+00
        ws( 19) = 0.4579721097260636D+00
        ws( 20) = 0.4999691716959969D+00
        ws( 21) = 0.5559857241814985D+00
        ws( 22) = 0.6201314794169226D+00
        ws( 23) = 0.6848803752069942D+00
        ws( 24) = 0.7451078054944522D+00
        ws( 25) = 0.7987995859656898D+00
        ws( 26) = 0.8461312617213179D+00
        ws( 27) = 0.8883349121441347D+00
        ws( 28) = 0.9232547005275556D+00
        ws( 29) = 0.9599501113100256D+00
        ws( 30) = 0.1013129923262583D+01
        ws( 31) = 0.9573288881522286D+00
        ws( 32) = 0.1077528821199625D+01
        ws( 33) = 0.1804605516222610D+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 =  37
        err = 0.7336208910942720D-07
        xs(  1) = 0.5374660865070208D+00
        xs(  2) = 0.1230751081704191D+01
        xs(  3) = 0.1921198230941005D+01
        xs(  4) = 0.2601956200269706D+01
        xs(  5) = 0.3269138352554445D+01
        xs(  6) = 0.3919668192439436D+01
        xs(  7) = 0.4551012325266418D+01
        xs(  8) = 0.5161108156540790D+01
        xs(  9) = 0.5748330024667264D+01
        xs( 10) = 0.6311486614163645D+01
        xs( 11) = 0.6849871930659287D+01
        xs( 12) = 0.7363389338627508D+01
        xs( 13) = 0.7852735628718007D+01
        xs( 14) = 0.8319575082621366D+01
        xs( 15) = 0.8766576808664110D+01
        xs( 16) = 0.9197180931568409D+01
        xs( 17) = 0.9615092067096706D+01
        xs( 18) = 0.1002375178094815D+02
        xs( 19) = 0.1042612730104703D+02
        xs( 20) = 0.1082490343280143D+02
        xs( 21) = 0.1122299060473579D+02
        xs( 22) = 0.1162434700576216D+02
        xs( 23) = 0.1203501235140638D+02
        xs( 24) = 0.1246403807403087D+02
        xs( 25) = 0.1292378657142107D+02
        xs( 26) = 0.1342866724273813D+02
        xs( 27) = 0.1399152617260142D+02
        xs( 28) = 0.1461947533748101D+02
        xs( 29) = 0.1531290976313408D+02
        xs( 30) = 0.1606766595723884D+02
        xs( 31) = 0.1687775184846792D+02
        xs( 32) = 0.1773711907773481D+02
        xs( 33) = 0.1864040101770669D+02
        xs( 34) = 0.1958387568825545D+02
        xs( 35) = 0.2056490914130003D+02
        xs( 36) = 0.2158879997207899D+02
        xs( 37) = 0.2260996983132893D+02
        ws(  1) = 0.6888772330835508D+00
        ws(  2) = 0.6935926238003065D+00
        ws(  3) = 0.6863501442758823D+00
        ws(  4) = 0.6745345149392410D+00
        ws(  5) = 0.6593199890999082D+00
        ws(  6) = 0.6413184625322630D+00
        ws(  7) = 0.6210266094572615D+00
        ws(  8) = 0.5988942166377401D+00
        ws(  9) = 0.5753501751237697D+00
        ws( 10) = 0.5508432494209488D+00
        ws( 11) = 0.5259080467332418D+00
        ws( 12) = 0.5012396836020226D+00
        ws( 13) = 0.4777292708892087D+00
        ws( 14) = 0.4563983052262775D+00
        ws( 15) = 0.4381876164227256D+00
        ws( 16) = 0.4236478539592879D+00
        ws( 17) = 0.4127516956228885D+00
        ws( 18) = 0.4050586491345654D+00
        ws( 19) = 0.4001315763352090D+00
        ws( 20) = 0.3978918297862549D+00
        ws( 21) = 0.3989241991488911D+00
        ws( 22) = 0.4047785862065439D+00
        ws( 23) = 0.4180535084586052D+00
        ws( 24) = 0.4420763302231100D+00
        ws( 25) = 0.4798852289187939D+00
        ws( 26) = 0.5321000854583949D+00
        ws( 27) = 0.5948210991423701D+00
        ws( 28) = 0.6610973676922002D+00
        ws( 29) = 0.7250122747892300D+00
        ws( 30) = 0.7834642872153097D+00
        ws( 31) = 0.8357687177962881D+00
        ws( 32) = 0.8819783280150257D+00
        ws( 33) = 0.9224804487504432D+00
        ws( 34) = 0.9663622397349267D+00
        ws( 35) = 0.1003785103775852D+01
        ws( 36) = 0.1061586023140553D+01
        ws( 37) = 0.1265002467422740D+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 =  39
        err = 0.7826158983150231D-07
        xs(  1) = 0.5759461118536057D+00
        xs(  2) = 0.1319755166513879D+01
        xs(  3) = 0.2062598155252767D+01
        xs(  4) = 0.2798197002085371D+01
        xs(  5) = 0.3523307442224146D+01
        xs(  6) = 0.4235388030262158D+01
        xs(  7) = 0.4932304532721221D+01
        xs(  8) = 0.5612248210917025D+01
        xs(  9) = 0.6273688524666705D+01
        xs( 10) = 0.6915332305368616D+01
        xs( 11) = 0.7536089227620323D+01
        xs( 12) = 0.8135048677524775D+01
        xs( 13) = 0.8711477107456433D+01
        xs( 14) = 0.9264851460632547D+01
        xs( 15) = 0.9794949022493826D+01
        xs( 16) = 0.1030199911816662D+02
        xs( 17) = 0.1078686108416525D+02
        xs( 18) = 0.1125115639832010D+02
        xs( 19) = 0.1169728720100818D+02
        xs( 20) = 0.1212830025117279D+02
        xs( 21) = 0.1254756034275612D+02
        xs( 22) = 0.1295826553984950D+02
        xs( 23) = 0.1336308498672732D+02
        xs( 24) = 0.1376427319763160D+02
        xs( 25) = 0.1416425655358376D+02
        xs( 26) = 0.1456630410497466D+02
        xs( 27) = 0.1497530751913823D+02
        xs( 28) = 0.1539902444401556D+02
        xs( 29) = 0.1584913134637894D+02
        xs( 30) = 0.1634056090937603D+02
        xs( 31) = 0.1688799890024040D+02
        xs( 32) = 0.1750118219304241D+02
        xs( 33) = 0.1818306996487623D+02
        xs( 34) = 0.1893174140183615D+02
        xs( 35) = 0.1974389348839242D+02
        xs( 36) = 0.2061622240274389D+02
        xs( 37) = 0.2152730850636610D+02
        xs( 38) = 0.2254978808789125D+02
        xs( 39) = 0.2357233997447401D+02
        ws(  1) = 0.7384317414296528D+00
        ws(  2) = 0.7449885975440506D+00
        ws(  3) = 0.7398556576108908D+00
        ws(  4) = 0.7308193605779053D+00
        ws(  5) = 0.7189812436519333D+00
        ws(  6) = 0.7048253480693776D+00
        ws(  7) = 0.6887069452642938D+00
        ws(  8) = 0.6709260098805936D+00
        ws(  9) = 0.6517396752161748D+00
        ws( 10) = 0.6313665730240262D+00
        ws( 11) = 0.6099955767176599D+00
        ws( 12) = 0.5878005786843613D+00
        ws( 13) = 0.5649676355795507D+00
        ws( 14) = 0.5417413334373101D+00
        ws( 15) = 0.5184888495982372D+00
        ws( 16) = 0.4957522008097689D+00
        ws( 17) = 0.4742415638808981D+00
        ws( 18) = 0.4547516093609975D+00
        ws( 19) = 0.4380232121165789D+00
        ws( 20) = 0.4245724491986836D+00
        ws( 21) = 0.4144878495523344D+00
        ws( 22) = 0.4073656421383926D+00
        ws( 23) = 0.4026377031578428D+00
        ws( 24) = 0.4001318852488748D+00
        ws( 25) = 0.4003686697711484D+00
        ws( 26) = 0.4045195662995859D+00
        ws( 27) = 0.4147572717795970D+00
        ws( 28) = 0.4346299123308389D+00
        ws( 29) = 0.4681374150765798D+00
        ws( 30) = 0.5172623606531546D+00
        ws( 31) = 0.5792412633957652D+00
        ws( 32) = 0.6476232367889504D+00
        ws( 33) = 0.7158679785398923D+00
        ws( 34) = 0.7803921356331590D+00
        ws( 35) = 0.8430640509820826D+00
        ws( 36) = 0.9029366956835304D+00
        ws( 37) = 0.9197945465175369D+00
        ws( 38) = 0.1071044675304742D+01
        ws( 39) = 0.1460897113203002D+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 =  44
        err = 0.6487964525502246D-07
        xs(  1) = 0.5888642249825805D+00
        xs(  2) = 0.1350013244189483D+01
        xs(  3) = 0.2111712922002757D+01
        xs(  4) = 0.2868344401443746D+01
        xs(  5) = 0.3617299454750898D+01
        xs(  6) = 0.4356585126428672D+01
        xs(  7) = 0.5084519222442033D+01
        xs(  8) = 0.5799652278081945D+01
        xs(  9) = 0.6500729254451855D+01
        xs( 10) = 0.7186658991798231D+01
        xs( 11) = 0.7856486100956326D+01
        xs( 12) = 0.8509365998445711D+01
        xs( 13) = 0.9144544516176866D+01
        xs( 14) = 0.9761343310740909D+01
        xs( 15) = 0.1035915220309553D+02
        xs( 16) = 0.1093743041799284D+02
        xs( 17) = 0.1149571978837020D+02
        xs( 18) = 0.1203367385080202D+02
        xs( 19) = 0.1255110785694972D+02
        xs( 20) = 0.1304807666047049D+02
        xs( 21) = 0.1352498546860483D+02
        xs( 22) = 0.1398272627034660D+02
        xs( 23) = 0.1442279932279804D+02
        xs( 24) = 0.1484732854873683D+02
        xs( 25) = 0.1525887556866869D+02
        xs( 26) = 0.1566007782557893D+02
        xs( 27) = 0.1605331300816085D+02
        xs( 28) = 0.1644063028181234D+02
        xs( 29) = 0.1682406804686900D+02
        xs( 30) = 0.1720618122402212D+02
        xs( 31) = 0.1759042252331355D+02
        xs( 32) = 0.1798150096412414D+02
        xs( 33) = 0.1838603181463158D+02
        xs( 34) = 0.1881320217579734D+02
        xs( 35) = 0.1927487745251612D+02
        xs( 36) = 0.1978432222010654D+02
        xs( 37) = 0.2035329281147663D+02
        xs( 38) = 0.2098935357096954D+02
        xs( 39) = 0.2169506510386001D+02
        xs( 40) = 0.2246859501897795D+02
        xs( 41) = 0.2330648389592532D+02
        xs( 42) = 0.2420930521448067D+02
        xs( 43) = 0.2517569557512432D+02
        xs( 44) = 0.2616318830915848D+02
        ws(  1) = 0.7551673483874907D+00
        ws(  2) = 0.7629842228605506D+00
        ws(  3) = 0.7596882429803197D+00
        ws(  4) = 0.7531586487270409D+00
        ws(  5) = 0.7444227028161992D+00
        ws(  6) = 0.7338693228388145D+00
        ws(  7) = 0.7217578807347802D+00
        ws(  8) = 0.7082995549878977D+00
        ws(  9) = 0.6936730109657893D+00
        ws( 10) = 0.6780276509033886D+00
        ws( 11) = 0.6614861412924179D+00
        ws( 12) = 0.6441482045236629D+00
        ws( 13) = 0.6260959118453114D+00
        ws( 14) = 0.6073999650282288D+00
        ws( 15) = 0.5881274731539102D+00
        ws( 16) = 0.5683521226976742D+00
        ws( 17) = 0.5481680681590221D+00
        ws( 18) = 0.5277079756845409D+00
        ws( 19) = 0.5071673123068764D+00
        ws( 20) = 0.4868354795465757D+00
        ws( 21) = 0.4671285499507036D+00
        ws( 22) = 0.4486025547809556D+00
        ws( 23) = 0.4319006560736050D+00
        ws( 24) = 0.4175913217891440D+00
        ws( 25) = 0.4059485217445068D+00
        ws( 26) = 0.3968538176084174D+00
        ws( 27) = 0.3899523993397500D+00
        ws( 28) = 0.3850117090605321D+00
        ws( 29) = 0.3822837769804821D+00
        ws( 30) = 0.3825135201585926D+00
        ws( 31) = 0.3867418033690590D+00
        ws( 32) = 0.3965053279967190D+00
        ws( 33) = 0.4140844068226516D+00
        ws( 34) = 0.4422528826113981D+00
        ws( 35) = 0.4833589163048575D+00
        ws( 36) = 0.5375483057901127D+00
        ws( 37) = 0.6016700884033704D+00
        ws( 38) = 0.6707676084729824D+00
        ws( 39) = 0.7403927124169103D+00
        ws( 40) = 0.8069548293054145D+00
        ws( 41) = 0.8670467031652165D+00
        ws( 42) = 0.9196030452983025D+00
        ws( 43) = 0.1046148048597438D+01
        ws( 44) = 0.1253914102792860D+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 =  47
        err = 0.5008252470880408D-07
        xs(  1) = 0.6106488421803589D+00
        xs(  2) = 0.1400303904471470D+01
        xs(  3) = 0.2191345480095488D+01
        xs(  4) = 0.2978373561749087D+01
        xs(  5) = 0.3759064762491851D+01
        xs(  6) = 0.4531683752019464D+01
        xs(  7) = 0.5294769032050792D+01
        xs(  8) = 0.6047058070500967D+01
        xs(  9) = 0.6787456077131509D+01
        xs( 10) = 0.7515013158872654D+01
        xs( 11) = 0.8228902562583293D+01
        xs( 12) = 0.8928399508441496D+01
        xs( 13) = 0.9612861542136415D+01
        xs( 14) = 0.1028171130846070D+02
        xs( 15) = 0.1093442214212213D+02
        xs( 16) = 0.1157050671278976D+02
        xs( 17) = 0.1218950926944660D+02
        xs( 18) = 0.1279100223061540D+02
        xs( 19) = 0.1337458815642424D+02
        xs( 20) = 0.1393990796014264D+02
        xs( 21) = 0.1448665705838793D+02
        xs( 22) = 0.1501461246962816D+02
        xs( 23) = 0.1552367571900717D+02
        xs( 24) = 0.1601394006116247D+02
        xs( 25) = 0.1648579431351741D+02
        xs( 26) = 0.1694006203428992D+02
        xs( 27) = 0.1737812826654160D+02
        xs( 28) = 0.1780195625467451D+02
        xs( 29) = 0.1821390038554749D+02
        xs( 30) = 0.1861632605008317D+02
        xs( 31) = 0.1901125651543057D+02
        xs( 32) = 0.1940036050961338D+02
        xs( 33) = 0.1978536114795842D+02
        xs( 34) = 0.2016858879044821D+02
        xs( 35) = 0.2055326533623264D+02
        xs( 36) = 0.2094343064459957D+02
        xs( 37) = 0.2134410883442364D+02
        xs( 38) = 0.2176229335854625D+02
        xs( 39) = 0.2220821109217460D+02
        xs( 40) = 0.2269544957786435D+02
        xs( 41) = 0.2323873927467435D+02
        xs( 42) = 0.2385003407193901D+02
        xs( 43) = 0.2453533634172023D+02
        xs( 44) = 0.2529533908295550D+02
        xs( 45) = 0.2613037469913053D+02
        xs( 46) = 0.2704814441271745D+02
        xs( 47) = 0.2801650716276577D+02
        ws(  1) = 0.7831959047970829D+00
        ws(  2) = 0.7918914356902116D+00
        ws(  3) = 0.7895092463397291D+00
        ws(  4) = 0.7841790843578542D+00
        ws(  5) = 0.7769175866538737D+00
        ws(  6) = 0.7680777990356138D+00
        ws(  7) = 0.7578827912643288D+00
        ws(  8) = 0.7465131951588049D+00
        ws(  9) = 0.7341248637990146D+00
        ws( 10) = 0.7208518565800275D+00
        ws( 11) = 0.7068064836113169D+00
        ws( 12) = 0.6920806156701139D+00
        ws( 13) = 0.6767474754397741D+00
        ws( 14) = 0.6608644663620645D+00
        ws( 15) = 0.6444760948125239D+00
        ws( 16) = 0.6276171528171647D+00
        ws( 17) = 0.6103166771117824D+00
        ws( 18) = 0.5926028688729240D+00
        ws( 19) = 0.5745088694241183D+00
        ws( 20) = 0.5560795444154265D+00
        ws( 21) = 0.5373807901290381D+00
        ws( 22) = 0.5185125400802812D+00
        ws( 23) = 0.4996277963681566D+00
        ws( 24) = 0.4809632619075496D+00
        ws( 25) = 0.4628801341407669D+00
        ws( 26) = 0.4458856162373580D+00
        ws( 27) = 0.4305771290327004D+00
        ws( 28) = 0.4174781421478302D+00
        ws( 29) = 0.4068111654944389D+00
        ws( 30) = 0.3983778292716044D+00
        ws( 31) = 0.3917536233321521D+00
        ws( 32) = 0.3867311775395185D+00
        ws( 33) = 0.3836533921473973D+00
        ws( 34) = 0.3833417635649730D+00
        ws( 35) = 0.3866832908650002D+00
        ws( 36) = 0.3944661421535358D+00
        ws( 37) = 0.4080321943095105D+00
        ws( 38) = 0.4300350622529384D+00
        ws( 39) = 0.4640977426819404D+00
        ws( 40) = 0.5128954379297740D+00
        ws( 41) = 0.5757523620527855D+00
        ws( 42) = 0.6477505235736772D+00
        ws( 43) = 0.7230451169779519D+00
        ws( 44) = 0.7957000584224259D+00
        ws( 45) = 0.8664892475822819D+00
        ws( 46) = 0.1006685070767871D+01
        ws( 47) = 0.1129465246616409D+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 =  50
        err = 0.9729915416419513D-07
        xs(  1) = 0.6289752593166787D+00
        xs(  2) = 0.1442557354675600D+01
        xs(  3) = 0.2258107155588693D+01
        xs(  4) = 0.3070353645004358D+01
        xs(  5) = 0.3877173629241677D+01
        xs(  6) = 0.4677023638133088D+01
        xs(  7) = 0.5468614409642880D+01
        xs(  8) = 0.6250834216775322D+01
        xs(  9) = 0.7022719350042423D+01
        xs( 10) = 0.7783435007733308D+01
        xs( 11) = 0.8532258181059088D+01
        xs( 12) = 0.9268560770717306D+01
        xs( 13) = 0.9991793547215069D+01
        xs( 14) = 0.1070147120018700D+02
        xs( 15) = 0.1139715900998876D+02
        xs( 16) = 0.1207846123222689D+02
        xs( 17) = 0.1274501138649571D+02
        xs( 18) = 0.1339646475111893D+02
        xs( 19) = 0.1403249323684431D+02
        xs( 20) = 0.1465278260647443D+02
        xs( 21) = 0.1525703210940768D+02
        xs( 22) = 0.1584495749223978D+02
        xs( 23) = 0.1641629875794905D+02
        xs( 24) = 0.1697083382576081D+02
        xs( 25) = 0.1750839801844850D+02
        xs( 26) = 0.1802891019574729D+02
        xs( 27) = 0.1853240881008451D+02
        xs( 28) = 0.1901910549472928D+02
        xs( 29) = 0.1948945742630332D+02
        xs( 30) = 0.1994424990592408D+02
        xs( 31) = 0.2038468509293247D+02
        xs( 32) = 0.2081245078338520D+02
        xs( 33) = 0.2122965498649949D+02
        xs( 34) = 0.2163852513520088D+02
        xs( 35) = 0.2204102677719158D+02
        xs( 36) = 0.2243872312897853D+02
        xs( 37) = 0.2283301104496291D+02
        xs( 38) = 0.2322561935798478D+02
        xs( 39) = 0.2361913486517807D+02
        xs( 40) = 0.2401738531564802D+02
        xs( 41) = 0.2442573648849777D+02
        xs( 42) = 0.2485163920938331D+02
        xs( 43) = 0.2530549798084092D+02
        xs( 44) = 0.2580086783328213D+02
        xs( 45) = 0.2635214889141641D+02
        xs( 46) = 0.2697085045944164D+02
        xs( 47) = 0.2766320321818398D+02
        xs( 48) = 0.2843355920182427D+02
        xs( 49) = 0.2928935090399475D+02
        xs( 50) = 0.3021905056495811D+02
        ws(  1) = 0.8067606982858714D+00
        ws(  2) = 0.8161053717819177D+00
        ws(  3) = 0.8143398741663124D+00
        ws(  4) = 0.8098193486959632D+00
        ws(  5) = 0.8035669773220727D+00
        ws(  6) = 0.7959191869391230D+00
        ws(  7) = 0.7870775068244567D+00
        ws(  8) = 0.7772017879235841D+00
        ws(  9) = 0.7664296375086986D+00
        ws( 10) = 0.7548814495978131D+00
        ws( 11) = 0.7426604899251932D+00
        ws( 12) = 0.7298534145920564D+00
        ws( 13) = 0.7165314749990151D+00
        ws( 14) = 0.7027515634930009D+00
        ws( 15) = 0.6885582532026576D+00
        ws( 16) = 0.6739852602443916D+00
        ws( 17) = 0.6590576798783599D+00
        ws( 18) = 0.6437944046501785D+00
        ws( 19) = 0.6282101906381415D+00
        ws( 20) = 0.6123183709358853D+00
        ws( 21) = 0.5961331302387967D+00
        ws( 22) = 0.5796740607036684D+00
        ws( 23) = 0.5629711702909520D+00
        ws( 24) = 0.5460710858601159D+00
        ws( 25) = 0.5290431654534297D+00
        ws( 26) = 0.5119867057112334D+00
        ws( 27) = 0.4950446172392800D+00
        ws( 28) = 0.4784235963726142D+00
        ws( 29) = 0.4624096060725361D+00
        ws( 30) = 0.4473742397606987D+00
        ws( 31) = 0.4337781678159374D+00
        ws( 32) = 0.4221099424326162D+00
        ws( 33) = 0.4126769007194013D+00
        ws( 34) = 0.4053936959449334D+00
        ws( 35) = 0.3998658123614484D+00
        ws( 36) = 0.3957506740715904D+00
        ws( 37) = 0.3931040794677833D+00
        ws( 38) = 0.3925372908452458D+00
        ws( 39) = 0.3951276519902514D+00
        ws( 40) = 0.4022576869197509D+00
        ws( 41) = 0.4156707112496332D+00
        ws( 42) = 0.4378619420165860D+00
        ws( 43) = 0.4721621825702930D+00
        ws( 44) = 0.5210376797311749D+00
        ws( 45) = 0.5834788707159533D+00
        ws( 46) = 0.6550415374738034D+00
        ws( 47) = 0.7288861433430242D+00
        ws( 48) = 0.8160125061768718D+00
        ws( 49) = 0.9405746847582086D+00
        ws( 50) = 0.9445076736888048D+00
        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 =  54
        err = 0.9540246336509774D-07
        xs(  1) = 0.6421231324857906D+00
        xs(  2) = 0.1472877407849946D+01
        xs(  3) = 0.2306033959126521D+01
        xs(  4) = 0.3136420339127682D+01
        xs(  5) = 0.3962061722840833D+01
        xs(  6) = 0.4781554153190831D+01
        xs(  7) = 0.5593732990557789D+01
        xs(  8) = 0.6397594826641010D+01
        xs(  9) = 0.7192270426936293D+01
        xs( 10) = 0.7977007803706821D+01
        xs( 11) = 0.8751158266522966D+01
        xs( 12) = 0.9514162122320540D+01
        xs( 13) = 0.1026553456179825D+02
        xs( 14) = 0.1100485245398474D+02
        xs( 15) = 0.1173174190747040D+02
        xs( 16) = 0.1244586770646885D+02
        xs( 17) = 0.1314692405649992D+02
        xs( 18) = 0.1383462675746863D+02
        xs( 19) = 0.1450870669003092D+02
        xs( 20) = 0.1516890427860924D+02
        xs( 21) = 0.1581496512389098D+02
        xs( 22) = 0.1644663676713824D+02
        xs( 23) = 0.1706366703542805D+02
        xs( 24) = 0.1766580435828131D+02
        xs( 25) = 0.1825280027506949D+02
        xs( 26) = 0.1882441374301255D+02
        xs( 27) = 0.1938041698850839D+02
        xs( 28) = 0.1992060388883331D+02
        xs( 29) = 0.2044480421302964D+02
        xs( 30) = 0.2095290788893711D+02
        xs( 31) = 0.2144490306279419D+02
        xs( 32) = 0.2192093703835296D+02
        xs( 33) = 0.2238140747378976D+02
        xs( 34) = 0.2282706880138259D+02
        xs( 35) = 0.2325910682330584D+02
        xs( 36) = 0.2367913532534246D+02
        xs( 37) = 0.2408906393979132D+02
        xs( 38) = 0.2449086455949985D+02
        xs( 39) = 0.2488647428120726D+02
        xs( 40) = 0.2527797515759957D+02
        xs( 41) = 0.2566772719435165D+02
        xs( 42) = 0.2605813529289987D+02
        xs( 43) = 0.2645133959163959D+02
        xs( 44) = 0.2684931056113389D+02
        xs( 45) = 0.2725455353461688D+02
        xs( 46) = 0.2767148017282181D+02
        xs( 47) = 0.2810808761406862D+02
        xs( 48) = 0.2857717184960292D+02
        xs( 49) = 0.2909554230301144D+02
        xs( 50) = 0.2968098757651530D+02
        xs( 51) = 0.3034495961405493D+02
        xs( 52) = 0.3109064927631331D+02
        xs( 53) = 0.3193152072726172D+02
        xs( 54) = 0.3291310606406174D+02
        ws(  1) = 0.8236677185310824D+00
        ws(  2) = 0.8334908620832220D+00
        ws(  3) = 0.8321887371666721D+00
        ws(  4) = 0.8282756283476733D+00
        ws(  5) = 0.8227767196510336D+00
        ws(  6) = 0.8160151253336362D+00
        ws(  7) = 0.8081756688266692D+00
        ws(  8) = 0.7994033945129096D+00
        ws(  9) = 0.7898227035911255D+00
        ws( 10) = 0.7795441730992863D+00
        ws( 11) = 0.7686637250747708D+00
        ws( 12) = 0.7572633901608208D+00
        ws( 13) = 0.7454111876118457D+00
        ws( 14) = 0.7331624284795794D+00
        ws( 15) = 0.7205607749577830D+00
        ws( 16) = 0.7076399997626496D+00
        ws( 17) = 0.6944254335676487D+00
        ws( 18) = 0.6809351937455541D+00
        ws( 19) = 0.6671814946813219D+00
        ws( 20) = 0.6531713571674640D+00
        ws( 21) = 0.6389082762901419D+00
        ws( 22) = 0.6243929743415254D+00
        ws( 23) = 0.6096256001882033D+00
        ws( 24) = 0.5946075793493574D+00
        ws( 25) = 0.5793439675717486D+00
        ws( 26) = 0.5638448946064470D+00
        ws( 27) = 0.5481270448101364D+00
        ws( 28) = 0.5322179698056138D+00
        ws( 29) = 0.5161637201137790D+00
        ws( 30) = 0.5000406813753507D+00
        ws( 31) = 0.4839727334047071D+00
        ws( 32) = 0.4681595706076064D+00
        ws( 33) = 0.4529056690012171D+00
        ws( 34) = 0.4386145622248606D+00
        ws( 35) = 0.4257326234003207D+00
        ws( 36) = 0.4146472301974312D+00
        ws( 37) = 0.4055407205479865D+00
        ws( 38) = 0.3983793203646442D+00
        ws( 39) = 0.3931836838574370D+00
        ws( 40) = 0.3902159632896486D+00
        ws( 41) = 0.3896951438990008D+00
        ws( 42) = 0.3914766956444478D+00
        ws( 43) = 0.3952486887470441D+00
        ws( 44) = 0.4010860704757952D+00
        ws( 45) = 0.4101072293718349D+00
        ws( 46) = 0.4250581263057261D+00
        ws( 47) = 0.4503016126874793D+00
        ws( 48) = 0.4907454125433699D+00
        ws( 49) = 0.5491505839655059D+00
        ws( 50) = 0.6239368377762935D+00
        ws( 51) = 0.7028458312152988D+00
        ws( 52) = 0.7954114202265412D+00
        ws( 53) = 0.9135915907109817D+00
        ws( 54) = 0.1194188890667934D+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 =  59
        err = 0.8580607858530839D-07
        xs(  1) = 0.6431567831126688D+00
        xs(  2) = 0.1475473484025110D+01
        xs(  3) = 0.2310723666936265D+01
        xs(  4) = 0.3144004130699870D+01
        xs(  5) = 0.3973584584530402D+01
        xs(  6) = 0.4798272857496236D+01
        xs(  7) = 0.5617079667308608D+01
        xs(  8) = 0.6429141766752422D+01
        xs(  9) = 0.7233696916644465D+01
        xs( 10) = 0.8030071815296523D+01
        xs( 11) = 0.8817672936383524D+01
        xs( 12) = 0.9595978195660347D+01
        xs( 13) = 0.1036452827873766D+02
        xs( 14) = 0.1112291826380623D+02
        xs( 15) = 0.1187078928217250D+02
        xs( 16) = 0.1260782079895730D+02
        xs( 17) = 0.1333372341256202D+02
        xs( 18) = 0.1404823237714588D+02
        xs( 19) = 0.1475110187985624D+02
        xs( 20) = 0.1544210009618993D+02
        xs( 21) = 0.1612100490884567D+02
        xs( 22) = 0.1678760036522667D+02
        xs( 23) = 0.1744167364039444D+02
        xs( 24) = 0.1808301279149096D+02
        xs( 25) = 0.1871140513603441D+02
        xs( 26) = 0.1932663647247992D+02
        xs( 27) = 0.1992849110287780D+02
        xs( 28) = 0.2051675293128304D+02
        xs( 29) = 0.2109120788763193D+02
        xs( 30) = 0.2165164806034895D+02
        xs( 31) = 0.2219787814532943D+02
        xs( 32) = 0.2272972534585345D+02
        xs( 33) = 0.2324705434811946D+02
        xs( 34) = 0.2374978961029142D+02
        xs( 35) = 0.2423794620894317D+02
        xs( 36) = 0.2471166855583286D+02
        xs( 37) = 0.2517127642508977D+02
        xs( 38) = 0.2561731611898942D+02
        xs( 39) = 0.2605060637895541D+02
        xs( 40) = 0.2647225630086692D+02
        xs( 41) = 0.2688361610525020D+02
        xs( 42) = 0.2728613134042908D+02
        xs( 43) = 0.2768118373133441D+02
        xs( 44) = 0.2807010332293320D+02
        xs( 45) = 0.2845437748831463D+02
        xs( 46) = 0.2883579374929196D+02
        xs( 47) = 0.2921635006207908D+02
        xs( 48) = 0.2959818657952156D+02
        xs( 49) = 0.2998385387576296D+02
        xs( 50) = 0.3037687282135944D+02
        xs( 51) = 0.3078245411406797D+02
        xs( 52) = 0.3120844753130279D+02
        xs( 53) = 0.3166629507069551D+02
        xs( 54) = 0.3217093706850796D+02
        xs( 55) = 0.3273913031792100D+02
        xs( 56) = 0.3338444119618626D+02
        xs( 57) = 0.3412520519288010D+02
        xs( 58) = 0.3497885334407341D+02
        xs( 59) = 0.3600813311106846D+02
        ws(  1) = 0.8250530997768962D+00
        ws(  2) = 0.8352730514665992D+00
        ws(  3) = 0.8346393119434518D+00
        ws(  4) = 0.8316540008326107D+00
        ws(  5) = 0.8273119354300945D+00
        ws(  6) = 0.8219007260843668D+00
        ws(  7) = 0.8155693842935312D+00
        ws(  8) = 0.8084279386836422D+00
        ws(  9) = 0.8005703192523489D+00
        ws( 10) = 0.7920806809937316D+00
        ws( 11) = 0.7830346955883040D+00
        ws( 12) = 0.7734994100901788D+00
        ws( 13) = 0.7635334194652931D+00
        ws( 14) = 0.7531868623778669D+00
        ws( 15) = 0.7425018697883498D+00
        ws( 16) = 0.7315130414276585D+00
        ws( 17) = 0.7202481601391931D+00
        ws( 18) = 0.7087288822485512D+00
        ws( 19) = 0.6969715563668807D+00
        ws( 20) = 0.6849879093964883D+00
        ws( 21) = 0.6727857811414927D+00
        ws( 22) = 0.6603696982856782D+00
        ws( 23) = 0.6477415542739557D+00
        ws( 24) = 0.6349013089034256D+00
        ws( 25) = 0.6218476833886040D+00
        ws( 26) = 0.6085790227240426D+00
        ws( 27) = 0.5950941799679226D+00
        ws( 28) = 0.5813937330323781D+00
        ws( 29) = 0.5674814278485659D+00
        ws( 30) = 0.5533662018431250D+00
        ws( 31) = 0.5390649293172975D+00
        ws( 32) = 0.5246065489489296D+00
        ws( 33) = 0.5100383409635096D+00
        ws( 34) = 0.4954340561646603D+00
        ws( 35) = 0.4809024319504545D+00
        ws( 36) = 0.4665946579919508D+00
        ws( 37) = 0.4527113106721033D+00
        ws( 38) = 0.4395041478862710D+00
        ws( 39) = 0.4272619004461506D+00
        ws( 40) = 0.4162655756277807D+00
        ws( 41) = 0.4066981995720426D+00
        ws( 42) = 0.3985625859225713D+00
        ws( 43) = 0.3917595502439673D+00
        ws( 44) = 0.3863246167860618D+00
        ws( 45) = 0.3825242668378143D+00
        ws( 46) = 0.3806436333250525D+00
        ws( 47) = 0.3808207473479063D+00
        ws( 48) = 0.3832676292395822D+00
        ws( 49) = 0.3886436717008657D+00
        ws( 50) = 0.3982481412153275D+00
        ws( 51) = 0.4141947131769825D+00
        ws( 52) = 0.4397038089125749D+00
        ws( 53) = 0.4785176936530142D+00
        ws( 54) = 0.5336037629428342D+00
        ws( 55) = 0.6049481962110986D+00
        ws( 56) = 0.6882321689227029D+00
        ws( 57) = 0.7989802396771073D+00
        ws( 58) = 0.8976045469669941D+00
        ws( 59) = 0.1412947349984187D+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 =  62
        err = 0.8375295501370071D-07
        xs(  1) = 0.6553532729476477D+00
        xs(  2) = 0.1503532865117463D+01
        xs(  3) = 0.2354891047800995D+01
        xs(  4) = 0.3204535458430098D+01
        xs(  5) = 0.4050802484469827D+01
        xs(  6) = 0.4892570459610631D+01
        xs(  7) = 0.5728918384876102D+01
        xs(  8) = 0.6559046784040474D+01
        xs(  9) = 0.7382253150468230D+01
        xs( 10) = 0.8197919638065574D+01
        xs( 11) = 0.9005504888312856D+01
        xs( 12) = 0.9804536187257071D+01
        xs( 13) = 0.1059460145689489D+02
        xs( 14) = 0.1137534153928327D+02
        xs( 15) = 0.1214644235411065D+02
        xs( 16) = 0.1290762756845750D+02
        xs( 17) = 0.1365865191003637D+02
        xs( 18) = 0.1439929509032236D+02
        xs( 19) = 0.1512935648883286D+02
        xs( 20) = 0.1584865051452293D+02
        xs( 21) = 0.1655700253586896D+02
        xs( 22) = 0.1725424547245552D+02
        xs( 23) = 0.1794021690410387D+02
        xs( 24) = 0.1861475659103508D+02
        xs( 25) = 0.1927770455532218D+02
        xs( 26) = 0.1992889935402909D+02
        xs( 27) = 0.2056817707094859D+02
        xs( 28) = 0.2119537068643999D+02
        xs( 29) = 0.2181030992312017D+02
        xs( 30) = 0.2241282158230830D+02
        xs( 31) = 0.2300273067199783D+02
        xs( 32) = 0.2357986267574827D+02
        xs( 33) = 0.2414404738247366D+02
        xs( 34) = 0.2469512428615444D+02
        xs( 35) = 0.2523295003140028D+02
        xs( 36) = 0.2575740867723219D+02
        xs( 37) = 0.2626842768048015D+02
        xs( 38) = 0.2676600110367392D+02
        xs( 39) = 0.2725022054145609D+02
        xs( 40) = 0.2772131313822494D+02
        xs( 41) = 0.2817968601328640D+02
        xs( 42) = 0.2862596884798068D+02
        xs( 43) = 0.2906103294175225D+02
        xs( 44) = 0.2948595999246488D+02
        xs( 45) = 0.2990193232261348D+02
        xs( 46) = 0.3031008113996984D+02
        xs( 47) = 0.3071145133882648D+02
        xs( 48) = 0.3110717699403978D+02
        xs( 49) = 0.3149869103825818D+02
        xs( 50) = 0.3188763122420120D+02
        xs( 51) = 0.3227553045848048D+02
        xs( 52) = 0.3266387973458683D+02
        xs( 53) = 0.3305475055148946D+02
        xs( 54) = 0.3345147690219501D+02
        xs( 55) = 0.3385926238378805D+02
        xs( 56) = 0.3428608542952678D+02
        xs( 57) = 0.3474399228935199D+02
        xs( 58) = 0.3524906578628632D+02
        xs( 59) = 0.3581853215402085D+02
        xs( 60) = 0.3646309504861824D+02
        xs( 61) = 0.3718739722614213D+02
        xs( 62) = 0.3805025171318079D+02
        ws(  1) = 0.8407196718987914D+00
        ws(  2) = 0.8512688556087952D+00
        ws(  3) = 0.8508655507309264D+00
        ws(  4) = 0.8481672519274512D+00
        ws(  5) = 0.8441835525774087D+00
        ws(  6) = 0.8392000306800843D+00
        ws(  7) = 0.8333628619106644D+00
        ws(  8) = 0.8267770624286519D+00
        ws(  9) = 0.8195327839223272D+00
        ws( 10) = 0.8117101380935515D+00
        ws( 11) = 0.8033817284707770D+00
        ws( 12) = 0.7946122622951228D+00
        ws( 13) = 0.7854585576159491D+00
        ws( 14) = 0.7759694134620354D+00
        ws( 15) = 0.7661862519638469D+00
        ws( 16) = 0.7561433827961078D+00
        ws( 17) = 0.7458686581466144D+00
        ws( 18) = 0.7353843582073721D+00
        ws( 19) = 0.7247075877391478D+00
        ws( 20) = 0.7138513913105797D+00
        ws( 21) = 0.7028248548313332D+00
        ws( 22) = 0.6916339927910206D+00
        ws( 23) = 0.6802821846209292D+00
        ws( 24) = 0.6687705591776769D+00
        ws( 25) = 0.6570984688163533D+00
        ws( 26) = 0.6452638272175213D+00
        ws( 27) = 0.6332637890494971D+00
        ws( 28) = 0.6210950401481850D+00
        ws( 29) = 0.6087545447258293D+00
        ws( 30) = 0.5962395697659491D+00
        ws( 31) = 0.5835494372315918D+00
        ws( 32) = 0.5706861339105629D+00
        ws( 33) = 0.5576563923070088D+00
        ws( 34) = 0.5444733206475135D+00
        ws( 35) = 0.5311585602064877D+00
        ws( 36) = 0.5177463010632705D+00
        ws( 37) = 0.5042901934139631D+00
        ws( 38) = 0.4908712549552076D+00
        ws( 39) = 0.4776047903684287D+00
        ws( 40) = 0.4646475432334597D+00
        ws( 41) = 0.4522027882822053D+00
        ws( 42) = 0.4405085989306636D+00
        ws( 43) = 0.4298018531297669D+00
        ws( 44) = 0.4202523518299219D+00
        ws( 45) = 0.4118818051463142D+00
        ws( 46) = 0.4045868235866905D+00
        ws( 47) = 0.3983381014127166D+00
        ws( 48) = 0.3933537558773958D+00
        ws( 49) = 0.3899547402682993D+00
        ws( 50) = 0.3881808926763860D+00
        ws( 51) = 0.3878534925032009D+00
        ws( 52) = 0.3891809736885769D+00
        ws( 53) = 0.3931095946363334D+00
        ws( 54) = 0.4011991142366780D+00
        ws( 55) = 0.4156760805234176D+00
        ws( 56) = 0.4399970753534746D+00
        ws( 57) = 0.4784633488013149D+00
        ws( 58) = 0.5347521708773826D+00
        ws( 59) = 0.6059429159989056D+00
        ws( 60) = 0.6781368716716130D+00
        ws( 61) = 0.7750155114601895D+00
        ws( 62) = 0.1046732349106367D+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 =  67
        err = 0.7590257051650644D-07
        xs(  1) = 0.6620754287104569D+00
        xs(  2) = 0.1519057431316599D+01
        xs(  3) = 0.2379484747242419D+01
        xs(  4) = 0.3238543695858482D+01
        xs(  5) = 0.4094671369689651D+01
        xs(  6) = 0.4946842047492384D+01
        xs(  7) = 0.5794219312964394D+01
        xs(  8) = 0.6636076242406690D+01
        xs(  9) = 0.7471769987656837D+01
        xs( 10) = 0.8300730341587396D+01
        xs( 11) = 0.9122452547277138D+01
        xs( 12) = 0.9936491098756528D+01
        xs( 13) = 0.1074245375697893D+02
        xs( 14) = 0.1153999553859578D+02
        xs( 15) = 0.1232881292646138D+02
        xs( 16) = 0.1310863811839100D+02
        xs( 17) = 0.1387923368942873D+02
        xs( 18) = 0.1464038765626525D+02
        xs( 19) = 0.1539190898323191D+02
        xs( 20) = 0.1613362354375549D+02
        xs( 21) = 0.1686537051273202D+02
        xs( 22) = 0.1758699916862769D+02
        xs( 23) = 0.1829836606997397D+02
        xs( 24) = 0.1899933267217459D+02
        xs( 25) = 0.1968976315189115D+02
        xs( 26) = 0.2036952269357154D+02
        xs( 27) = 0.2103847583547433D+02
        xs( 28) = 0.2169648520307056D+02
        xs( 29) = 0.2234341039453940D+02
        xs( 30) = 0.2297910718935992D+02
        xs( 31) = 0.2360342699373307D+02
        xs( 32) = 0.2421621664176693D+02
        xs( 33) = 0.2481731862026103D+02
        xs( 34) = 0.2540657176383539D+02
        xs( 35) = 0.2598381252394110D+02
        xs( 36) = 0.2654887685952908D+02
        xs( 37) = 0.2710160304203976D+02
        xs( 38) = 0.2764183611899987D+02
        xs( 39) = 0.2816943418696835D+02
        xs( 40) = 0.2868427747043252D+02
        xs( 41) = 0.2918628119209201D+02
        xs( 42) = 0.2967541359022222D+02
        xs( 43) = 0.3015171989885408D+02
        xs( 44) = 0.3061534933219954D+02
        xs( 45) = 0.3106658386204325D+02
        xs( 46) = 0.3150587087686976D+02
        xs( 47) = 0.3193385505949053D+02
        xs( 48) = 0.3235138791822980D+02
        xs( 49) = 0.3275948446384757D+02
        xs( 50) = 0.3315923518439850D+02
        xs( 51) = 0.3355174686571846D+02
        xs( 52) = 0.3393818568893592D+02
        xs( 53) = 0.3431992502124524D+02
        xs( 54) = 0.3469868249926072D+02
        xs( 55) = 0.3507639632695930D+02
        xs( 56) = 0.3545478542542725D+02
        xs( 57) = 0.3583517227906998D+02
        xs( 58) = 0.3621912577645623D+02
        xs( 59) = 0.3660955648595318D+02
        xs( 60) = 0.3701157712680503D+02
        xs( 61) = 0.3743315291450407D+02
        xs( 62) = 0.3788571949924363D+02
        xs( 63) = 0.3838483537043856D+02
        xs( 64) = 0.3894845003802827D+02
        xs( 65) = 0.3959432902455042D+02
        xs( 66) = 0.4035391520361689D+02
        xs( 67) = 0.4129666123899041D+02
        ws(  1) = 0.8493709860198769D+00
        ws(  2) = 0.8601984904170119D+00
        ws(  3) = 0.8600902519030434D+00
        ws(  4) = 0.8577883939800003D+00
        ws(  5) = 0.8542999640143762D+00
        ws(  6) = 0.8499029882885928D+00
        ws(  7) = 0.8447307738396234D+00
        ws(  8) = 0.8388761026126365D+00
        ws(  9) = 0.8324164456658411D+00
        ws( 10) = 0.8254202610902649D+00
        ws( 11) = 0.8179500135266840D+00
        ws( 12) = 0.8100618291869053D+00
        ws( 13) = 0.8018060583875820D+00
        ws( 14) = 0.7932270179583317D+00
        ws( 15) = 0.7843632134222694D+00
        ws( 16) = 0.7752476787920156D+00
        ws( 17) = 0.7659082096485365D+00
        ws( 18) = 0.7563679636458543D+00
        ws( 19) = 0.7466457417685232D+00
        ws( 20) = 0.7367566144007572D+00
        ws( 21) = 0.7267122440638731D+00
        ws( 22) = 0.7165211991663637D+00
        ws( 23) = 0.7061895524637628D+00
        ws( 24) = 0.6957210350567603D+00
        ws( 25) = 0.6851174886509722D+00
        ws( 26) = 0.6743790434165557D+00
        ws( 27) = 0.6635043565103369D+00
        ws( 28) = 0.6524909817035859D+00
        ws( 29) = 0.6413353769962100D+00
        ws( 30) = 0.6300334502770213D+00
        ws( 31) = 0.6185806305875183D+00
        ws( 32) = 0.6069724055978198D+00
        ws( 33) = 0.5952046637843443D+00
        ws( 34) = 0.5832743422787379D+00
        ws( 35) = 0.5711798043793656D+00
        ws( 36) = 0.5589218148031743D+00
        ws( 37) = 0.5465046479626243D+00
        ws( 38) = 0.5339377141041616D+00
        ws( 39) = 0.5212382331762357D+00
        ws( 40) = 0.5084339173778003D+00
        ws( 41) = 0.4955678232522298D+00
        ws( 42) = 0.4827040782557173D+00
        ws( 43) = 0.4699329280621358D+00
        ws( 44) = 0.4573723565644390D+00
        ws( 45) = 0.4451707175038120D+00
        ws( 46) = 0.4335104916115044D+00
        ws( 47) = 0.4226004678725078D+00
        ws( 48) = 0.4126361156955587D+00
        ws( 49) = 0.4037398780261547D+00
        ws( 50) = 0.3959453438994440D+00
        ws( 51) = 0.3892696881529118D+00
        ws( 52) = 0.3838338418573519D+00
        ws( 53) = 0.3799327100531366D+00
        ws( 54) = 0.3779140998628681D+00
        ws( 55) = 0.3778042704409784D+00
        ws( 56) = 0.3791811349946487D+00
        ws( 57) = 0.3818337989095734D+00
        ws( 58) = 0.3865402287524912D+00
        ws( 59) = 0.3951598078281714D+00
        ws( 60) = 0.4101907739167010D+00
        ws( 61) = 0.4348549537499110D+00
        ws( 62) = 0.4728754494728200D+00
        ws( 63) = 0.5283753865308526D+00
        ws( 64) = 0.6021044060982372D+00
        ws( 65) = 0.6941313965527792D+00
        ws( 66) = 0.8193647922617825D+00
        ws( 67) = 0.1271274278261896D+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 =  70
        err = 0.7888503155064551D-07
        xs(  1) = 0.6724660295010897D+00
        xs(  2) = 0.1542949295441109D+01
        xs(  3) = 0.2417053344264492D+01
        xs(  4) = 0.3289954480196289D+01
        xs(  5) = 0.4160126530757641D+01
        xs(  6) = 0.5026583476765418D+01
        xs(  7) = 0.5888526840606290D+01
        xs(  8) = 0.6745264475311821D+01
        xs(  9) = 0.7596186025511829D+01
        xs( 10) = 0.8440751994837122D+01
        xs( 11) = 0.9278487028276890D+01
        xs( 12) = 0.1010897459956372D+02
        xs( 13) = 0.1093185087141848D+02
        xs( 14) = 0.1174679936094543D+02
        xs( 15) = 0.1255354473043231D+02
        xs( 16) = 0.1335184762688784D+02
        xs( 17) = 0.1414149904080460D+02
        xs( 18) = 0.1492231575861305D+02
        xs( 19) = 0.1569413582826028D+02
        xs( 20) = 0.1645681459716621D+02
        xs( 21) = 0.1721022109518940D+02
        xs( 22) = 0.1795423504172592D+02
        xs( 23) = 0.1868874404616694D+02
        xs( 24) = 0.1941364152338182D+02
        xs( 25) = 0.2012882472128502D+02
        xs( 26) = 0.2083419273909354D+02
        xs( 27) = 0.2152964524540775D+02
        xs( 28) = 0.2221508092977987D+02
        xs( 29) = 0.2289039684797226D+02
        xs( 30) = 0.2355548730902109D+02
        xs( 31) = 0.2421024315990992D+02
        xs( 32) = 0.2485455105764094D+02
        xs( 33) = 0.2548829290799533D+02
        xs( 34) = 0.2611134627473155D+02
        xs( 35) = 0.2672358420542196D+02
        xs( 36) = 0.2732487559605895D+02
        xs( 37) = 0.2791508524600732D+02
        xs( 38) = 0.2849407499553594D+02
        xs( 39) = 0.2906170537727279D+02
        xs( 40) = 0.2961783835912068D+02
        xs( 41) = 0.3016234105275735D+02
        xs( 42) = 0.3069509109803790D+02
        xs( 43) = 0.3121598425208857D+02
        xs( 44) = 0.3172494247697042D+02
        xs( 45) = 0.3222192607032160D+02
        xs( 46) = 0.3270694930530236D+02
        xs( 47) = 0.3318009893727654D+02
        xs( 48) = 0.3364155986786804D+02
        xs( 49) = 0.3409166079972398D+02
        xs( 50) = 0.3453093895854180D+02
        xs( 51) = 0.3496017180610589D+02
        xs( 52) = 0.3538031325471114D+02
        xs( 53) = 0.3579235294193509D+02
        xs( 54) = 0.3619721516779373D+02
        xs( 55) = 0.3659582041204411D+02
        xs( 56) = 0.3698928270658840D+02
        xs( 57) = 0.3737906728749112D+02
        xs( 58) = 0.3776691271586788D+02
        xs( 59) = 0.3815441548389421D+02
        xs( 60) = 0.3854266408047783D+02
        xs( 61) = 0.3893251840583562D+02
        xs( 62) = 0.3932541807709228D+02
        xs( 63) = 0.3972420837102528D+02
        xs( 64) = 0.4013389837881934D+02
        xs( 65) = 0.4056278037522355D+02
        xs( 66) = 0.4102403834579312D+02
        xs( 67) = 0.4153669248279764D+02
        xs( 68) = 0.4212427065826668D+02
        xs( 69) = 0.4281773260731547D+02
        xs( 70) = 0.4363546104053317D+02
        ws(  1) = 0.8627147733895408D+00
        ws(  2) = 0.8737997521388547D+00
        ws(  3) = 0.8738444541870077D+00
        ws(  4) = 0.8717251077516006D+00
        ws(  5) = 0.8684586081236044D+00
        ws(  6) = 0.8643232601697466D+00
        ws(  7) = 0.8594484134506331D+00
        ws(  8) = 0.8539253247638158D+00
        ws(  9) = 0.8478279915286419D+00
        ws( 10) = 0.8412247538932968D+00
        ws( 11) = 0.8341760618854125D+00
        ws( 12) = 0.8267384440225158D+00
        ws( 13) = 0.8189614968808132D+00
        ws( 14) = 0.8108896696608072D+00
        ws( 15) = 0.8025613336134734D+00
        ws( 16) = 0.7940096457720092D+00
        ws( 17) = 0.7852627021245719D+00
        ws( 18) = 0.7763438041036447D+00
        ws( 19) = 0.7672722824032238D+00
        ws( 20) = 0.7580635098118115D+00
        ws( 21) = 0.7487295110529926D+00
        ws( 22) = 0.7392796150627990D+00
        ws( 23) = 0.7297206527821295D+00
        ws( 24) = 0.7200572381903062D+00
        ws( 25) = 0.7102923390277399D+00
        ws( 26) = 0.7004270257239344D+00
        ws( 27) = 0.6904610946473567D+00
        ws( 28) = 0.6803931401472769D+00
        ws( 29) = 0.6702210463871392D+00
        ws( 30) = 0.6599417146631676D+00
        ws( 31) = 0.6495511508038436D+00
        ws( 32) = 0.6390448950233371D+00
        ws( 33) = 0.6284184247607076D+00
        ws( 34) = 0.6176671409127770D+00
        ws( 35) = 0.6067868882533700D+00
        ws( 36) = 0.5957733308789684D+00
        ws( 37) = 0.5846229362651579D+00
        ws( 38) = 0.5733332857308437D+00
        ws( 39) = 0.5619044538840361D+00
        ws( 40) = 0.5503392935566676D+00
        ws( 41) = 0.5386455754421496D+00
        ws( 42) = 0.5268371170270917D+00
        ws( 43) = 0.5149359444528044D+00
        ws( 44) = 0.5029736994928093D+00
        ws( 45) = 0.4909955533014974D+00
        ws( 46) = 0.4790649722092804D+00
        ws( 47) = 0.4672644539465754D+00
        ws( 48) = 0.4557108054176125D+00
        ws( 49) = 0.4445798753819257D+00
        ws( 50) = 0.4341071814252332D+00
        ws( 51) = 0.4245199103208825D+00
        ws( 52) = 0.4159300256650787D+00
        ws( 53) = 0.4083023352600119D+00
        ws( 54) = 0.4015714416411854D+00
        ws( 55) = 0.3958218274140976D+00
        ws( 56) = 0.3913476110205532D+00
        ws( 57) = 0.3885192063325116D+00
        ws( 58) = 0.3874461739084179D+00
        ws( 59) = 0.3877352460748716D+00
        ws( 60) = 0.3888908883550162D+00
        ws( 61) = 0.3910447404835161D+00
        ws( 62) = 0.3952199860630372D+00
        ws( 63) = 0.4031834678146616D+00
        ws( 64) = 0.4175722165302664D+00
        ws( 65) = 0.4423784981930666D+00
        ws( 66) = 0.4833536993790578D+00
        ws( 67) = 0.5463930873497131D+00
        ws( 68) = 0.6305927161471948D+00
        ws( 69) = 0.7638748614964433D+00
        ws( 70) = 0.9292685397531778D+00
        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 =  76
        err = 0.3712352306789741D-07
        xs(  1) = 0.6173731498604803D+00
        xs(  2) = 0.1424301741876221D+01
        xs(  3) = 0.2248497151010093D+01
        xs(  4) = 0.3085650914929930D+01
        xs(  5) = 0.3931727914499837D+01
        xs(  6) = 0.4782915369215167D+01
        xs(  7) = 0.5636160933494621D+01
        xs(  8) = 0.6489159024020470D+01
        xs(  9) = 0.7340178652747338D+01
        xs( 10) = 0.8187900823356809D+01
        xs( 11) = 0.9031300214600172D+01
        xs( 12) = 0.9869563711405419D+01
        xs( 13) = 0.1070203624166790D+02
        xs( 14) = 0.1152818246092601D+02
        xs( 15) = 0.1234756036317544D+02
        xs( 16) = 0.1315980129531864D+02
        xs( 17) = 0.1396459535684549D+02
        xs( 18) = 0.1476167984562451D+02
        xs( 19) = 0.1555083021502286D+02
        xs( 20) = 0.1633185290396135D+02
        xs( 21) = 0.1710457926020188D+02
        xs( 22) = 0.1786886059529124D+02
        xs( 23) = 0.1862456399822928D+02
        xs( 24) = 0.1937156887784532D+02
        xs( 25) = 0.2010976415267056D+02
        xs( 26) = 0.2083904607588598D+02
        xs( 27) = 0.2155931599222167D+02
        xs( 28) = 0.2227047874665974D+02
        xs( 29) = 0.2297244078620115D+02
        xs( 30) = 0.2366510903615163D+02
        xs( 31) = 0.2434838994613230D+02
        xs( 32) = 0.2502218855260420D+02
        xs( 33) = 0.2568640794835181D+02
        xs( 34) = 0.2634094806372176D+02
        xs( 35) = 0.2698570531748310D+02
        xs( 36) = 0.2762057183917330D+02
        xs( 37) = 0.2824543559466628D+02
        xs( 38) = 0.2886018052918937D+02
        xs( 39) = 0.2946468663348017D+02
        xs( 40) = 0.3005882968351338D+02
        xs( 41) = 0.3064248125107439D+02
        xs( 42) = 0.3121550984741815D+02
        xs( 43) = 0.3177778294671785D+02
        xs( 44) = 0.3232916801773324D+02
        xs( 45) = 0.3286953485045718D+02
        xs( 46) = 0.3339876039520869D+02
        xs( 47) = 0.3391673509133210D+02
        xs( 48) = 0.3442336859690277D+02
        xs( 49) = 0.3491859627219299D+02
        xs( 50) = 0.3540239315933950D+02
        xs( 51) = 0.3587479352426136D+02
        xs( 52) = 0.3633590918418715D+02
        xs( 53) = 0.3678595546309096D+02
        xs( 54) = 0.3722530090738487D+02
        xs( 55) = 0.3765453037609425D+02
        xs( 56) = 0.3807447169300547D+02
        xs( 57) = 0.3848612804431153D+02
        xs( 58) = 0.3889052932479266D+02
        xs( 59) = 0.3928860950231790D+02
        xs( 60) = 0.3968122294506815D+02
        xs( 61) = 0.4006931453261754D+02
        xs( 62) = 0.4045410156157393D+02
        xs( 63) = 0.4083702343266454D+02
        xs( 64) = 0.4121935457274232D+02
        xs( 65) = 0.4160186225158921D+02
        xs( 66) = 0.4198505798690581D+02
        xs( 67) = 0.4236999759204591D+02
        xs( 68) = 0.4275904424833654D+02
        xs( 69) = 0.4315641698440923D+02
        xs( 70) = 0.4356892418100781D+02
        xs( 71) = 0.4400732354083798D+02
        xs( 72) = 0.4448707463285930D+02
        xs( 73) = 0.4502770329290267D+02
        xs( 74) = 0.4564601614070102D+02
        xs( 75) = 0.4633450456149861D+02
        xs( 76) = 0.4714963479532561D+02
        ws(  1) = 0.7942675261274007D+00
        ws(  2) = 0.8165136685097308D+00
        ws(  3) = 0.8313123687047765D+00
        ws(  4) = 0.8423009110921564D+00
        ws(  5) = 0.8492095457030143D+00
        ws(  6) = 0.8526579509922391D+00
        ws(  7) = 0.8534520783781555D+00
        ws(  8) = 0.8522583508386037D+00
        ws(  9) = 0.8495630140534616D+00
        ws( 10) = 0.8457118344031739D+00
        ws( 11) = 0.8409522468582424D+00
        ws( 12) = 0.8354662190507611D+00
        ws( 13) = 0.8293900237234678D+00
        ws( 14) = 0.8228291165318135D+00
        ws( 15) = 0.8158654859786181D+00
        ws( 16) = 0.8085648871971389D+00
        ws( 17) = 0.8009795947576087D+00
        ws( 18) = 0.7931520699916388D+00
        ws( 19) = 0.7851165449873152D+00
        ws( 20) = 0.7769008061928246D+00
        ws( 21) = 0.7685271893166670D+00
        ws( 22) = 0.7600133751652672D+00
        ws( 23) = 0.7513733693240090D+00
        ws( 24) = 0.7426179184389818D+00
        ws( 25) = 0.7337553901634721D+00
        ws( 26) = 0.7247920175753740D+00
        ws( 27) = 0.7157320152423808D+00
        ws( 28) = 0.7065778976850179D+00
        ws( 29) = 0.6973306827253708D+00
        ws( 30) = 0.6879902430443242D+00
        ws( 31) = 0.6785557573132487D+00
        ws( 32) = 0.6690253495334842D+00
        ws( 33) = 0.6593967214968450D+00
        ws( 34) = 0.6496662999230163D+00
        ws( 35) = 0.6398302133423820D+00
        ws( 36) = 0.6298841604445040D+00
        ws( 37) = 0.6198240075473915D+00
        ws( 38) = 0.6096458699572905D+00
        ws( 39) = 0.5993456515620509D+00
        ws( 40) = 0.5889190277419385D+00
        ws( 41) = 0.5783621346161691D+00
        ws( 42) = 0.5676730223005425D+00
        ws( 43) = 0.5568510211518319D+00
        ws( 44) = 0.5458973535799911D+00
        ws( 45) = 0.5348157341437672D+00
        ws( 46) = 0.5236169702132002D+00
        ws( 47) = 0.5123173524073822D+00
        ws( 48) = 0.5009386140317142D+00
        ws( 49) = 0.4895122470765954D+00
        ws( 50) = 0.4780870315000997D+00
        ws( 51) = 0.4667318990358105D+00
        ws( 52) = 0.4555344862533242D+00
        ws( 53) = 0.4446183878102417D+00
        ws( 54) = 0.4341693049735666D+00
        ws( 55) = 0.4244287736629022D+00
        ws( 56) = 0.4156238526694686D+00
        ws( 57) = 0.4078628484442478D+00
        ws( 58) = 0.4010951951123783D+00
        ws( 59) = 0.3952043426662571D+00
        ws( 60) = 0.3901763326567878D+00
        ws( 61) = 0.3862100877210853D+00
        ws( 62) = 0.3836112811061773D+00
        ws( 63) = 0.3824521586961287D+00
        ws( 64) = 0.3823332468396205D+00
        ws( 65) = 0.3827511305183371D+00
        ws( 66) = 0.3838017519253290D+00
        ws( 67) = 0.3864598686499327D+00
        ws( 68) = 0.3923200779335440D+00
        ws( 69) = 0.4035337532534878D+00
        ws( 70) = 0.4232243604246666D+00
        ws( 71) = 0.4561664592454924D+00
        ws( 72) = 0.5067410422301681D+00
        ws( 73) = 0.5771313303857077D+00
        ws( 74) = 0.6584287218014754D+00
        ws( 75) = 0.7283039120201147D+00
        ws( 76) = 0.9621634978206699D+00
        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 =  80
        err = 0.7334982866047465D-07
        xs(  1) = 0.6790848951933507D+00
        xs(  2) = 0.1558271395771014D+01
        xs(  3) = 0.2441442008025789D+01
        xs(  4) = 0.3323900819654768D+01
        xs(  5) = 0.4204270732946471D+01
        xs(  6) = 0.5081704057301418D+01
        xs(  7) = 0.5955525304343031D+01
        xs(  8) = 0.6825147605478145D+01
        xs(  9) = 0.7690048729368564D+01
        xs( 10) = 0.8549760452213064D+01
        xs( 11) = 0.9403863817882646D+01
        xs( 12) = 0.1025198563538734D+02
        xs( 13) = 0.1109379461947179D+02
        xs( 14) = 0.1192899844740472D+02
        xs( 15) = 0.1275733964248836D+02
        xs( 16) = 0.1357859225567813D+02
        xs( 17) = 0.1439255804395272D+02
        xs( 18) = 0.1519906293594884D+02
        xs( 19) = 0.1599795388229584D+02
        xs( 20) = 0.1678909564020201D+02
        xs( 21) = 0.1757236816550572D+02
        xs( 22) = 0.1834766398606780D+02
        xs( 23) = 0.1911488603680079D+02
        xs( 24) = 0.1987394557657859D+02
        xs( 25) = 0.2062476042741185D+02
        xs( 26) = 0.2136725355681430D+02
        xs( 27) = 0.2210135147932444D+02
        xs( 28) = 0.2282698324690323D+02
        xs( 29) = 0.2354407918644924D+02
        xs( 30) = 0.2425256994565880D+02
        xs( 31) = 0.2495238595703601D+02
        xs( 32) = 0.2564345631852834D+02
        xs( 33) = 0.2632570858801970D+02
        xs( 34) = 0.2699906771363341D+02
        xs( 35) = 0.2766345575438316D+02
        xs( 36) = 0.2831879138039733D+02
        xs( 37) = 0.2896498962654303D+02
        xs( 38) = 0.2960196181436772D+02
        xs( 39) = 0.3022961505860838D+02
        xs( 40) = 0.3084785197307162D+02
        xs( 41) = 0.3145657032070445D+02
        xs( 42) = 0.3205566354837869D+02
        xs( 43) = 0.3264502140668246D+02
        xs( 44) = 0.3322452981711047D+02
        xs( 45) = 0.3379407106577776D+02
        xs( 46) = 0.3435352423777096D+02
        xs( 47) = 0.3490276774831114D+02
        xs( 48) = 0.3544168081066508D+02
        xs( 49) = 0.3597014539651417D+02
        xs( 50) = 0.3648804870348122D+02
        xs( 51) = 0.3699528828878714D+02
        xs( 52) = 0.3749177799909418D+02
        xs( 53) = 0.3797745416971489D+02
        xs( 54) = 0.3845228593657677D+02
        xs( 55) = 0.3891629463517812D+02
        xs( 56) = 0.3936958009986633D+02
        xs( 57) = 0.3981234571727764D+02
        xs( 58) = 0.4024492180730086D+02
        xs( 59) = 0.4066779140459405D+02
        xs( 60) = 0.4108160180521580D+02
        xs( 61) = 0.4148713181363659D+02
        xs( 62) = 0.4188519547296609D+02
        xs( 63) = 0.4227649498727895D+02
        xs( 64) = 0.4266154008545151D+02
        xs( 65) = 0.4304081306000155D+02
        xs( 66) = 0.4341521074314633D+02
        xs( 67) = 0.4378643928467961D+02
        xs( 68) = 0.4415678308690931D+02
        xs( 69) = 0.4452820105597591D+02
        xs( 70) = 0.4490172320523188D+02
        xs( 71) = 0.4527790420055417D+02
        xs( 72) = 0.4565788505939614D+02
        xs( 73) = 0.4604427938443421D+02
        xs( 74) = 0.4644185625739712D+02
        xs( 75) = 0.4685839277854193D+02
        xs( 76) = 0.4730617714244001D+02
        xs( 77) = 0.4780301638175263D+02
        xs( 78) = 0.4837086390338410D+02
        xs( 79) = 0.4904633340388642D+02
        xs( 80) = 0.4981027838740996D+02
        ws(  1) = 0.8712405818967978D+00
        ws(  2) = 0.8826690559754212D+00
        ws(  3) = 0.8831316443547862D+00
        ws(  4) = 0.8815784180051520D+00
        ws(  5) = 0.8790241395141249D+00
        ws(  6) = 0.8757310863302326D+00
        ws(  7) = 0.8718138069492293D+00
        ws(  8) = 0.8673439901572182D+00
        ws(  9) = 0.8623802919264733D+00
        ws( 10) = 0.8569733836860632D+00
        ws( 11) = 0.8511712471669416D+00
        ws( 12) = 0.8450171740122712D+00
        ws( 13) = 0.8385521576842728D+00
        ws( 14) = 0.8318126252558229D+00
        ws( 15) = 0.8248321844911439D+00
        ws( 16) = 0.8176400567530074D+00
        ws( 17) = 0.8102625359186776D+00
        ws( 18) = 0.8027218128902912D+00
        ws( 19) = 0.7950375636803885D+00
        ws( 20) = 0.7872260135590952D+00
        ws( 21) = 0.7793011566730822D+00
        ws( 22) = 0.7712743478290148D+00
        ws( 23) = 0.7631549878437761D+00
        ws( 24) = 0.7549503889371407D+00
        ws( 25) = 0.7466665223215988D+00
        ws( 26) = 0.7383074886800480D+00
        ws( 27) = 0.7298765590553798D+00
        ws( 28) = 0.7213753884947997D+00
        ws( 29) = 0.7128049243321023D+00
        ws( 30) = 0.7041650533591256D+00
        ws( 31) = 0.6954551114645267D+00
        ws( 32) = 0.6866735773622057D+00
        ws( 33) = 0.6778184465165428D+00
        ws( 34) = 0.6688868341535890D+00
        ws( 35) = 0.6598756950236228D+00
        ws( 36) = 0.6507813956666854D+00
        ws( 37) = 0.6416003273675503D+00
        ws( 38) = 0.6323285639070387D+00
        ws( 39) = 0.6229617178864186D+00
        ws( 40) = 0.6134950258003167D+00
        ws( 41) = 0.6039239269809882D+00
        ws( 42) = 0.5942441637901151D+00
        ws( 43) = 0.5844524748105874D+00
        ws( 44) = 0.5745447749940974D+00
        ws( 45) = 0.5645174857392978D+00
        ws( 46) = 0.5543685880845716D+00
        ws( 47) = 0.5440982125000710D+00
        ws( 48) = 0.5337082534787845D+00
        ws( 49) = 0.5232019939577626D+00
        ws( 50) = 0.5125874154820513D+00
        ws( 51) = 0.5018773586280880D+00
        ws( 52) = 0.4910912397292222D+00
        ws( 53) = 0.4802556199131930D+00
        ws( 54) = 0.4694111004443568D+00
        ws( 55) = 0.4586224359070826D+00
        ws( 56) = 0.4479820097807149D+00
        ws( 57) = 0.4376039652757314D+00
        ws( 58) = 0.4276283588843725D+00
        ws( 59) = 0.4182191682755692D+00
        ws( 60) = 0.4095331724588693D+00
        ws( 61) = 0.4016653116014116D+00
        ws( 62) = 0.3945808520197699D+00
        ws( 63) = 0.3881006904073940D+00
        ws( 64) = 0.3820619984133540D+00
        ws( 65) = 0.3766252234927921D+00
        ws( 66) = 0.3724579698291216D+00
        ws( 67) = 0.3703986831082056D+00
        ws( 68) = 0.3706283060766209D+00
        ws( 69) = 0.3723703039811385D+00
        ws( 70) = 0.3747497018719617D+00
        ws( 71) = 0.3777908552487747D+00
        ws( 72) = 0.3825964998164597D+00
        ws( 73) = 0.3909852441011733D+00
        ws( 74) = 0.4054715190992511D+00
        ws( 75) = 0.4296370731089557D+00
        ws( 76) = 0.4688781004660037D+00
        ws( 77) = 0.5294964876865930D+00
        ws( 78) = 0.6088312720684825D+00
        ws( 79) = 0.7422480010606692D+00
        ws( 80) = 0.9091953915324220D+00
        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 =  85
        err = 0.5122024198921587D-07
        xs(  1) = 0.6818604168691929D+00
        xs(  2) = 0.1564700378376366D+01
        xs(  3) = 0.2451676412908242D+01
        xs(  4) = 0.3338148843682697D+01
        xs(  5) = 0.4222804818488004D+01
        xs(  6) = 0.5104857895047722D+01
        xs(  7) = 0.5983687797007175D+01
        xs(  8) = 0.6858757077673450D+01
        xs(  9) = 0.7729585665687367D+01
        xs( 10) = 0.8595741234979313D+01
        xs( 11) = 0.9456834177059269D+01
        xs( 12) = 0.1031251453619665D+02
        xs( 13) = 0.1116246900259396D+02
        xs( 14) = 0.1200641811026398D+02
        xs( 15) = 0.1284411340282483D+02
        xs( 16) = 0.1367533431107197D+02
        xs( 17) = 0.1449988556822795D+02
        xs( 18) = 0.1531759402253429D+02
        xs( 19) = 0.1612830636586812D+02
        xs( 20) = 0.1693188624908774D+02
        xs( 21) = 0.1772821222510092D+02
        xs( 22) = 0.1851717544272138D+02
        xs( 23) = 0.1929867770999833D+02
        xs( 24) = 0.2007262984351803D+02
        xs( 25) = 0.2083894986167620D+02
        xs( 26) = 0.2159756189244215D+02
        xs( 27) = 0.2234839452667220D+02
        xs( 28) = 0.2309138007450490D+02
        xs( 29) = 0.2382645321769541D+02
        xs( 30) = 0.2455355029580080D+02
        xs( 31) = 0.2527260842060777D+02
        xs( 32) = 0.2598356479758306D+02
        xs( 33) = 0.2668635604948268D+02
        xs( 34) = 0.2738091777266506D+02
        xs( 35) = 0.2806718375670755D+02
        xs( 36) = 0.2874508581897727D+02
        xs( 37) = 0.2941455311237679D+02
        xs( 38) = 0.3007551197786287D+02
        xs( 39) = 0.3072788550701460D+02
        xs( 40) = 0.3137159322887438D+02
        xs( 41) = 0.3200655097055247D+02
        xs( 42) = 0.3263267043174032D+02
        xs( 43) = 0.3324985921024654D+02
        xs( 44) = 0.3385802063760360D+02
        xs( 45) = 0.3445705382024602D+02
        xs( 46) = 0.3504685365301651D+02
        xs( 47) = 0.3562731090648441D+02
        xs( 48) = 0.3619831270359927D+02
        xs( 49) = 0.3675974284188100D+02
        xs( 50) = 0.3731148278378283D+02
        xs( 51) = 0.3785341240338562D+02
        xs( 52) = 0.3838541106973971D+02
        xs( 53) = 0.3890735923977974D+02
        xs( 54) = 0.3941914165562395D+02
        xs( 55) = 0.3992065113088160D+02
        xs( 56) = 0.4041179212387205D+02
        xs( 57) = 0.4089248867627709D+02
        xs( 58) = 0.4136269761444025D+02
        xs( 59) = 0.4182242426910132D+02
        xs( 60) = 0.4227173896944469D+02
        xs( 61) = 0.4271079832943819D+02
        xs( 62) = 0.4313986636000887D+02
        xs( 63) = 0.4355932047687547D+02
        xs( 64) = 0.4396964494778830D+02
        xs( 65) = 0.4437141646423374D+02
        xs( 66) = 0.4476525532999138D+02
        xs( 67) = 0.4515174501624442D+02
        xs( 68) = 0.4553140492791822D+02
        xs( 69) = 0.4590477747744934D+02
        xs( 70) = 0.4627259719374162D+02
        xs( 71) = 0.4663595382682382D+02
        xs( 72) = 0.4699630938993389D+02
        xs( 73) = 0.4735533536352532D+02
        xs( 74) = 0.4771474867738631D+02
        xs( 75) = 0.4807623453249488D+02
        xs( 76) = 0.4844144129643943D+02
        xs( 77) = 0.4881219959002742D+02
        xs( 78) = 0.4919111259158732D+02
        xs( 79) = 0.4958248192879216D+02
        xs( 80) = 0.4999361302449739D+02
        xs( 81) = 0.5043599738847104D+02
        xs( 82) = 0.5092580135975682D+02
        xs( 83) = 0.5148060704250474D+02
        xs( 84) = 0.5212767906341924D+02
        xs( 85) = 0.5286324915600996D+02
        ws(  1) = 0.8748181883645346D+00
        ws(  2) = 0.8863919687274091D+00
        ws(  3) = 0.8870302439186591D+00
        ws(  4) = 0.8857177937867009D+00
        ws(  5) = 0.8834671708734632D+00
        ws(  6) = 0.8805367167495042D+00
        ws(  7) = 0.8770338716605570D+00
        ws(  8) = 0.8730247656314239D+00
        ws(  9) = 0.8685604460929320D+00
        ws( 10) = 0.8636857900073310D+00
        ws( 11) = 0.8584418564383786D+00
        ws( 12) = 0.8528666759440867D+00
        ws( 13) = 0.8469957345400834D+00
        ws( 14) = 0.8408611282687348D+00
        ws( 15) = 0.8344927085007310D+00
        ws( 16) = 0.8279166497245052D+00
        ws( 17) = 0.8211570093369892D+00
        ws( 18) = 0.8142344364022333D+00
        ws( 19) = 0.8071675238023343D+00
        ws( 20) = 0.7999720623185784D+00
        ws( 21) = 0.7926617699157246D+00
        ws( 22) = 0.7852483209991717D+00
        ws( 23) = 0.7777414035492350D+00
        ws( 24) = 0.7701491923156210D+00
        ws( 25) = 0.7624782579223160D+00
        ws( 26) = 0.7547338804603656D+00
        ws( 27) = 0.7469201538815622D+00
        ws( 28) = 0.7390400550295013D+00
        ws( 29) = 0.7310956413766666D+00
        ws( 30) = 0.7230880475643003D+00
        ws( 31) = 0.7150177540319093D+00
        ws( 32) = 0.7068844350547825D+00
        ws( 33) = 0.6986873625732770D+00
        ws( 34) = 0.6904250358833570D+00
        ws( 35) = 0.6820955970649683D+00
        ws( 36) = 0.6736967144010098D+00
        ws( 37) = 0.6652256082937604D+00
        ws( 38) = 0.6566793089916982D+00
        ws( 39) = 0.6480543338973815D+00
        ws( 40) = 0.6393471091541529D+00
        ws( 41) = 0.6305536368510875D+00
        ws( 42) = 0.6216698913649051D+00
        ws( 43) = 0.6126915613681838D+00
        ws( 44) = 0.6036144840258932D+00
        ws( 45) = 0.5944343600715879D+00
        ws( 46) = 0.5851470763195650D+00
        ws( 47) = 0.5757486401657727D+00
        ws( 48) = 0.5662355577633214D+00
        ws( 49) = 0.5566049704853857D+00
        ws( 50) = 0.5468548541995505D+00
        ws( 51) = 0.5369842813115433D+00
        ws( 52) = 0.5269930725375539D+00
        ws( 53) = 0.5168839861034769D+00
        ws( 54) = 0.5066629848788444D+00
        ws( 55) = 0.4963398690592675D+00
        ws( 56) = 0.4859292736386300D+00
        ws( 57) = 0.4754563713747657D+00
        ws( 58) = 0.4649621284253849D+00
        ws( 59) = 0.4545025762162520D+00
        ws( 60) = 0.4441525031110932D+00
        ws( 61) = 0.4340101496038197D+00
        ws( 62) = 0.4241890034286479D+00
        ws( 63) = 0.4148000918447481D+00
        ws( 64) = 0.4059457404063925D+00
        ws( 65) = 0.3977023515491618D+00
        ws( 66) = 0.3900732931076354D+00
        ws( 67) = 0.3829910789084913D+00
        ws( 68) = 0.3764162449171923D+00
        ws( 69) = 0.3704482490053450D+00
        ws( 70) = 0.3653725378354509D+00
        ws( 71) = 0.3615879372793674D+00
        ws( 72) = 0.3594051796991865D+00
        ws( 73) = 0.3589342110773687D+00
        ws( 74) = 0.3601738064824721D+00
        ws( 75) = 0.3630704670460872D+00
        ws( 76) = 0.3676378565439901D+00
        ws( 77) = 0.3742933475004953D+00
        ws( 78) = 0.3842271158538683D+00
        ws( 79) = 0.3997088046292131D+00
        ws( 80) = 0.4244112443635711D+00
        ws( 81) = 0.4630491855289914D+00
        ws( 82) = 0.5203619557467475D+00
        ws( 83) = 0.5885306897189559D+00
        ws( 84) = 0.7139915129060378D+00
        ws( 85) = 0.8787602233525306D+00
        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 =  22
        err = 0.6665214525519269D-07
        xs(  1) = 0.5065885800295997D+00
        xs(  2) = 0.1168987280299321D+01
        xs(  3) = 0.1849139865412940D+01
        xs(  4) = 0.2549939206387796D+01
        xs(  5) = 0.3274728904816976D+01
        xs(  6) = 0.4025374623152080D+01
        xs(  7) = 0.4802400130593206D+01
        xs(  8) = 0.5605385466484270D+01
        xs(  9) = 0.6433346483528026D+01
        xs( 10) = 0.7285024521146488D+01
        xs( 11) = 0.8159082757912087D+01
        xs( 12) = 0.9054228490063393D+01
        xs( 13) = 0.9969283958589997D+01
        xs( 14) = 0.1090322465054881D+02
        xs( 15) = 0.1185519857434743D+02
        xs( 16) = 0.1282452765561029D+02
        xs( 17) = 0.1381080231143134D+02
        xs( 18) = 0.1481304973479780D+02
        xs( 19) = 0.1583531267254532D+02
        xs( 20) = 0.1685706709071386D+02
        xs( 21) = 0.1796289277716714D+02
        xs( 22) = 0.1895493793165824D+02
        ws(  1) = 0.6516760426901816D+00
        ws(  2) = 0.6711590691841197D+00
        ws(  3) = 0.6898138890422273D+00
        ws(  4) = 0.7123553514669776D+00
        ws(  5) = 0.7375307868497042D+00
        ws(  6) = 0.7638408192846829D+00
        ws(  7) = 0.7901337624859782D+00
        ws(  8) = 0.8156680991515451D+00
        ws(  9) = 0.8400410076383023D+00
        ws( 10) = 0.8630904306823151D+00
        ws( 11) = 0.8848097701734478D+00
        ws( 12) = 0.9052855319244733D+00
        ws( 13) = 0.9246561142794415D+00
        ws( 14) = 0.9430871818231085D+00
        ws( 15) = 0.9607615470000099D+00
        ws( 16) = 0.9778391763963887D+00
        ws( 17) = 0.9947083032118283D+00
        ws( 18) = 0.1010902737339286D+01
        ws( 19) = 0.1025280769283441D+01
        ws( 20) = 0.1077741740309192D+01
        ws( 21) = 0.8793169385015360D+00
        ws( 22) = 0.1771829117952949D+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 =  22
        err = 0.6873829262695193D-07
        xs(  1) = 0.5067438165503803D+00
        xs(  2) = 0.1169330663181233D+01
        xs(  3) = 0.1849645926167976D+01
        xs(  4) = 0.2550575651096454D+01
        xs(  5) = 0.3275463920421245D+01
        xs(  6) = 0.4026180674661410D+01
        xs(  7) = 0.4803255104968075D+01
        xs(  8) = 0.5606272322698625D+01
        xs(  9) = 0.6434252332998416D+01
        xs( 10) = 0.7285939641178498D+01
        xs( 11) = 0.8159999738483918D+01
        xs( 12) = 0.9055141558901072D+01
        xs( 13) = 0.9970188465754106D+01
        xs( 14) = 0.1090411667223113D+02
        xs( 15) = 0.1185607458862471D+02
        xs( 16) = 0.1282538423805607D+02
        xs( 17) = 0.1381163587132712D+02
        xs( 18) = 0.1481385452650763D+02
        xs( 19) = 0.1583609164960124D+02
        xs( 20) = 0.1685775398259213D+02
        xs( 21) = 0.1796372302653455D+02
        xs( 22) = 0.1895537073580329D+02
        ws(  1) = 0.6518716829573956D+00
        ws(  2) = 0.6713364333006804D+00
        ws(  3) = 0.6899608214709955D+00
        ws(  4) = 0.7124693257494930D+00
        ws(  5) = 0.7376147127192095D+00
        ws(  6) = 0.7638998929365329D+00
        ws(  7) = 0.7901733882966941D+00
        ws(  8) = 0.8156929295193263D+00
        ws(  9) = 0.8400546889217971D+00
        ws( 10) = 0.8630956729679495D+00
        ws( 11) = 0.8848085194691846D+00
        ws( 12) = 0.9052791448217465D+00
        ws( 13) = 0.9246454990128526D+00
        ws( 14) = 0.9430728959574511D+00
        ws( 15) = 0.9607438503098102D+00
        ws( 16) = 0.9778179177694062D+00
        ws( 17) = 0.9946839835901642D+00
        ws( 18) = 0.1010866552715773D+01
        ws( 19) = 0.1025274109706962D+01
        ws( 20) = 0.1077555879730842D+01
        ws( 21) = 0.8796731654224762D+00
        ws( 22) = 0.1771049000085306D+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 =  22
        err = 0.8338588267195507D-07
        xs(  1) = 0.5076763544897931D+00
        xs(  2) = 0.1171382550154979D+01
        xs(  3) = 0.1852643257696726D+01
        xs(  4) = 0.2554302399830624D+01
        xs(  5) = 0.3279712655572491D+01
        xs(  6) = 0.4030778058558121D+01
        xs(  7) = 0.4808068079939664D+01
        xs(  8) = 0.5611203790006366D+01
        xs(  9) = 0.6439233282217975D+01
        xs( 10) = 0.7290921395016199D+01
        xs( 11) = 0.8164947639966419D+01
        xs( 12) = 0.9060030265163986D+01
        xs( 13) = 0.9974998578457834D+01
        xs( 14) = 0.1090883232994551D+02
        xs( 15) = 0.1186068165130694D+02
        xs( 16) = 0.1282986871057520D+02
        xs( 17) = 0.1381598261762889D+02
        xs( 18) = 0.1481803716381434D+02
        xs( 19) = 0.1584012869287236D+02
        xs( 20) = 0.1686130747195205D+02
        xs( 21) = 0.1796800731917281D+02
        xs( 22) = 0.1895761771317357D+02
        ws(  1) = 0.6530438891696563D+00
        ws(  2) = 0.6723814790573682D+00
        ws(  3) = 0.6908001548222079D+00
        ws(  4) = 0.7130906892191147D+00
        ws(  5) = 0.7380433349754509D+00
        ws(  6) = 0.7641754500028897D+00
        ws(  7) = 0.7903350570865713D+00
        ws(  8) = 0.8157729194812213D+00
        ws(  9) = 0.8400770253786334D+00
        ws( 10) = 0.8630772554179618D+00
        ws( 11) = 0.8847607636020783D+00
        ws( 12) = 0.9052094883691616D+00
        ws( 13) = 0.9245585544173086D+00
        ws( 14) = 0.9429712307307814D+00
        ws( 15) = 0.9606284321038701D+00
        ws( 16) = 0.9776876305387494D+00
        ws( 17) = 0.9945412539453771D+00
        ws( 18) = 0.1010665462532760D+01
        ws( 19) = 0.1025230854607743D+01
        ws( 20) = 0.1076583773027547D+01
        ws( 21) = 0.8815307481563273D+00
        ws( 22) = 0.1767015309701215D+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 =  24
        err = 0.3147352576951925D-07
        xs(  1) = 0.4890403870098736D+00
        xs(  2) = 0.1128063990868409D+01
        xs(  3) = 0.1783452792951566D+01
        xs(  4) = 0.2458098682478990D+01
        xs(  5) = 0.3155672531463828D+01
        xs(  6) = 0.3878546395439242D+01
        xs(  7) = 0.4627740504517329D+01
        xs(  8) = 0.5403218035986997D+01
        xs(  9) = 0.6204239645093704D+01
        xs( 10) = 0.7029669633466356D+01
        xs( 11) = 0.7878201438455270D+01
        xs( 12) = 0.8748507329374174D+01
        xs( 13) = 0.9639330326704258D+01
        xs( 14) = 0.1054953704853368D+02
        xs( 15) = 0.1147814495625452D+02
        xs( 16) = 0.1242433259931071D+02
        xs( 17) = 0.1338753798393867D+02
        xs( 18) = 0.1436673813400459D+02
        xs( 19) = 0.1536402185204376D+02
        xs( 20) = 0.1637327266112269D+02
        xs( 21) = 0.1739401654318428D+02
        xs( 22) = 0.1848787252594286D+02
        xs( 23) = 0.1943465685421879D+02
        xs( 24) = 0.2184501490647192D+02
        ws(  1) = 0.6289798994064442D+00
        ws(  2) = 0.6471141513101711D+00
        ws(  3) = 0.6643265639953299D+00
        ws(  4) = 0.6855938807190780D+00
        ws(  5) = 0.7099483049341966D+00
        ws(  6) = 0.7359639991215844D+00
        ws(  7) = 0.7624119387211109D+00
        ws(  8) = 0.7884147342848362D+00
        ws(  9) = 0.8134354683802768D+00
        ws( 10) = 0.8372042974361507D+00
        ws( 11) = 0.8596365341472340D+00
        ws( 12) = 0.8807649580164867D+00
        ws( 13) = 0.9006916390709290D+00
        ws( 14) = 0.9195571945114032D+00
        ws( 15) = 0.9375296146093974D+00
        ws( 16) = 0.9547051404460719D+00
        ws( 17) = 0.9716843414661148D+00
        ws( 18) = 0.9871429762602179D+00
        ws( 19) = 0.1002970590701498D+01
        ws( 20) = 0.1032941182862715D+01
        ws( 21) = 0.9828652659053904D+00
        ws( 22) = 0.1127529324360452D+01
        ws( 23) = 0.1257102998174604D+01
        ws( 24) = 0.3530422165550602D+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 =  22
        err = 0.4905211474671813D-07
        xs(  1) = 0.4970127733790701D+00
        xs(  2) = 0.1147419729479487D+01
        xs(  3) = 0.1816336850239382D+01
        xs(  4) = 0.2506877633805528D+01
        xs(  5) = 0.3222388148791670D+01
        xs(  6) = 0.3964655386411267D+01
        xs(  7) = 0.4734104732683292D+01
        xs(  8) = 0.5530220735530301D+01
        xs(  9) = 0.6351933272071807D+01
        xs( 10) = 0.7197908946819801D+01
        xs( 11) = 0.8066748417685659D+01
        xs( 12) = 0.8957110419642023D+01
        xs( 13) = 0.9867785455002165D+01
        xs( 14) = 0.1079773779566090D+02
        xs( 15) = 0.1174612877935190D+02
        xs( 16) = 0.1271235923291368D+02
        xs( 17) = 0.1369586489448905D+02
        xs( 18) = 0.1469768621133027D+02
        xs( 19) = 0.1571243731032213D+02
        xs( 20) = 0.1676192186410213D+02
        xs( 21) = 0.1779837945118373D+02
        xs( 22) = 0.2001112147129803D+02
        ws(  1) = 0.6395031482006769D+00
        ws(  2) = 0.6594791286057181D+00
        ws(  3) = 0.6790546456103205D+00
        ws(  4) = 0.7025958053848510D+00
        ws(  5) = 0.7287179002829453D+00
        ws(  6) = 0.7558800193852393D+00
        ws(  7) = 0.7829262200208428D+00
        ws(  8) = 0.8091225955610050D+00
        ws(  9) = 0.8340770224678968D+00
        ws( 10) = 0.8576391032075290D+00
        ws( 11) = 0.8798151596237817D+00
        ws( 12) = 0.9007066733815109D+00
        ws( 13) = 0.9204704768807370D+00
        ws( 14) = 0.9392955441600099D+00
        ws( 15) = 0.9573815792401953D+00
        ws( 16) = 0.9750081999775007D+00
        ws( 17) = 0.9922694841432905D+00
        ws( 18) = 0.1008540123463644D+01
        ws( 19) = 0.1040864312245242D+01
        ws( 20) = 0.9598519742603695D+00
        ws( 21) = 0.1444219368333279D+01
        ws( 22) = 0.3050398029839516D+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 =  24
        err = 0.4917978516221503D-08
        xs(  1) = 0.4511154615456969D+00
        xs(  2) = 0.1040904932269576D+01
        xs(  3) = 0.1647051068220587D+01
        xs(  4) = 0.2273767615188230D+01
        xs(  5) = 0.2926053167800971D+01
        xs(  6) = 0.3607231313632848D+01
        xs(  7) = 0.4318750315977365D+01
        xs(  8) = 0.5060586285238361D+01
        xs(  9) = 0.5831763226182089D+01
        xs( 10) = 0.6630785130397235D+01
        xs( 11) = 0.7455937597448125D+01
        xs( 12) = 0.8305479019372157D+01
        xs( 13) = 0.9177753145936103D+01
        xs( 14) = 0.1007124987085448D+02
        xs( 15) = 0.1098463328998561D+02
        xs( 16) = 0.1191674875970764D+02
        xs( 17) = 0.1286664352308953D+02
        xs( 18) = 0.1383327005510450D+02
        xs( 19) = 0.1481755435788114D+02
        xs( 20) = 0.1581032366863855D+02
        xs( 21) = 0.1684543349745365D+02
        xs( 22) = 0.1783516072786188D+02
        xs( 23) = 0.1995312981629929D+02
        xs( 24) = 0.2038001802193152D+02
        ws(  1) = 0.5802663095127344D+00
        ws(  2) = 0.5976650483981490D+00
        ws(  3) = 0.6155077806350542D+00
        ws(  4) = 0.6387839937109157D+00
        ws(  5) = 0.6663422827187457D+00
        ws(  6) = 0.6962475533007979D+00
        ws(  7) = 0.7267773674943274D+00
        ws(  8) = 0.7567246467401327D+00
        ws(  9) = 0.7853749458784595D+00
        ws( 10) = 0.8123800332786874D+00
        ws( 11) = 0.8376328373283949D+00
        ws( 12) = 0.8611730508307113D+00
        ws( 13) = 0.8831231475330253D+00
        ws( 14) = 0.9036476842143092D+00
        ws( 15) = 0.9229284444302733D+00
        ws( 16) = 0.9411348749685269D+00
        ws( 17) = 0.9585429932600270D+00
        ws( 18) = 0.9747328159359329D+00
        ws( 19) = 0.9912593238719585D+00
        ws( 20) = 0.1014154517327625D+01
        ws( 21) = 0.9492877087695450D+00
        ws( 22) = 0.1380204757755045D+01
        ws( 23) = 0.2478179271450920D+01
        ws( 24) = 0.6119251087959630D+00
        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 =  24
        err = 0.5395768860881117D-07
        xs(  1) = 0.4691340302653357D+00
        xs(  2) = 0.1081212022901424D+01
        xs(  3) = 0.1707277101231255D+01
        xs(  4) = 0.2350291801439178D+01
        xs(  5) = 0.3014812043002165D+01
        xs(  6) = 0.3704560014400016D+01
        xs(  7) = 0.4421909937313443D+01
        xs(  8) = 0.5167883908873014D+01
        xs(  9) = 0.5942408655338363D+01
        xs( 10) = 0.6744656637790560D+01
        xs( 11) = 0.7573362017086952D+01
        xs( 12) = 0.8427067077352842D+01
        xs( 13) = 0.9304294285898354D+01
        xs( 14) = 0.1020365632321443D+02
        xs( 15) = 0.1112392152890579D+02
        xs( 16) = 0.1206405345795381D+02
        xs( 17) = 0.1302322302188865D+02
        xs( 18) = 0.1400074636591168D+02
        xs( 19) = 0.1499730775372456D+02
        xs( 20) = 0.1600494982797122D+02
        xs( 21) = 0.1706125217878003D+02
        xs( 22) = 0.1804517148946203D+02
        xs( 23) = 0.1930986403327071D+02
        xs( 24) = 0.2030254026743950D+02
        ws(  1) = 0.6031133215677891D+00
        ws(  2) = 0.6190354648331678D+00
        ws(  3) = 0.6337643622646876D+00
        ws(  4) = 0.6530486050288173D+00
        ws(  5) = 0.6766196466783709D+00
        ws(  6) = 0.7032715782436282D+00
        ws(  7) = 0.7315938863191879D+00
        ws(  8) = 0.7603359060529195D+00
        ws(  9) = 0.7885703197058735D+00
        ws( 10) = 0.8157105581016429D+00
        ws( 11) = 0.8414544478712507D+00
        ws( 12) = 0.8657076842498762D+00
        ws( 13) = 0.8885144779103502D+00
        ws( 14) = 0.9100041427091264D+00
        ws( 15) = 0.9303539827900430D+00
        ws( 16) = 0.9497629023954542D+00
        ws( 17) = 0.9685654943008135D+00
        ws( 18) = 0.9859672181697610D+00
        ws( 19) = 0.1008450003454365D+01
        ws( 20) = 0.1009029940344129D+01
        ws( 21) = 0.1060102329651545D+01
        ws( 22) = 0.1133882999266783D+01
        ws( 23) = 0.5997013098441972D+00
        ws( 24) = 0.2557852258482020D+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 =  25
        err = 0.6615794368886833D-07
        xs(  1) = 0.4139146456369912D+00
        xs(  2) = 0.9637240088062898D+00
        xs(  3) = 0.1537650436403495D+01
        xs(  4) = 0.2131125348215411D+01
        xs(  5) = 0.2741853165358922D+01
        xs(  6) = 0.3370766425336690D+01
        xs(  7) = 0.4020915691144483D+01
        xs(  8) = 0.4695893861770897D+01
        xs(  9) = 0.5398605806150082D+01
        xs( 10) = 0.6130673102325070D+01
        xs( 11) = 0.6892427524025608D+01
        xs( 12) = 0.7683229668826802D+01
        xs( 13) = 0.8501852232522333D+01
        xs( 14) = 0.9346789903631388D+01
        xs( 15) = 0.1021646541467467D+02
        xs( 16) = 0.1110935358944801D+02
        xs( 17) = 0.1202404455877645D+02
        xs( 18) = 0.1295930481358030D+02
        xs( 19) = 0.1391372901649963D+02
        xs( 20) = 0.1488825452932100D+02
        xs( 21) = 0.1587090410666907D+02
        xs( 22) = 0.1690528040950152D+02
        xs( 23) = 0.1786848083282007D+02
        xs( 24) = 0.1971537102682417D+02
        xs( 25) = 0.2014788370733794D+02
        ws(  1) = 0.5352923259403178D+00
        ws(  2) = 0.5627057321001870D+00
        ws(  3) = 0.5843527353412784D+00
        ws(  4) = 0.6021991042220332D+00
        ws(  5) = 0.6194351883270974D+00
        ws(  6) = 0.6389275705077978D+00
        ws(  7) = 0.6619909916987431D+00
        ws(  8) = 0.6884592503863652D+00
        ws(  9) = 0.7172342470477812D+00
        ws( 10) = 0.7469496620782213D+00
        ws( 11) = 0.7764459412916175D+00
        ws( 12) = 0.8049485770487987D+00
        ws( 13) = 0.8320424611868495D+00
        ws( 14) = 0.8575681657193460D+00
        ws( 15) = 0.8815279060289403D+00
        ws( 16) = 0.9040154388405212D+00
        ws( 17) = 0.9251489176901021D+00
        ws( 18) = 0.9452345472174086D+00
        ws( 19) = 0.9634473620710456D+00
        ws( 20) = 0.9834370166993368D+00
        ws( 21) = 0.1000730780579016D+01
        ws( 22) = 0.9588943916466071D+00
        ws( 23) = 0.1326000485585826D+01
        ws( 24) = 0.7446758400918044D+00
        ws( 25) = 0.2342837755351921D+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 =  27
        err = 0.8510963137180547D-07
        xs(  1) = 0.4857080315316186D+00
        xs(  2) = 0.1113190909776746D+01
        xs(  3) = 0.1740643635014214D+01
        xs(  4) = 0.2363962648668110D+01
        xs(  5) = 0.2982447693642871D+01
        xs(  6) = 0.3596923494695180D+01
        xs(  7) = 0.4209482543855564D+01
        xs(  8) = 0.4823385086758973D+01
        xs(  9) = 0.5443001276560249D+01
        xs( 10) = 0.6073700121834158D+01
        xs( 11) = 0.6721493433348326D+01
        xs( 12) = 0.7392308038468159D+01
        xs( 13) = 0.8091050141854646D+01
        xs( 14) = 0.8820883465480829D+01
        xs( 15) = 0.9583079918740003D+01
        xs( 16) = 0.1037741354568277D+02
        xs( 17) = 0.1120274521508074D+02
        xs( 18) = 0.1205750324089849D+02
        xs( 19) = 0.1294003283545631D+02
        xs( 20) = 0.1384884090986010D+02
        xs( 21) = 0.1478240922108301D+02
        xs( 22) = 0.1573943339085003D+02
        xs( 23) = 0.1672210527577659D+02
        xs( 24) = 0.1772470968827950D+02
        xs( 25) = 0.1872737493587053D+02
        xs( 26) = 0.1985623392492919D+02
        xs( 27) = 0.2090483911124472D+02
        ws(  1) = 0.6227818473947763D+00
        ws(  2) = 0.6287329310554834D+00
        ws(  3) = 0.6256573811269076D+00
        ws(  4) = 0.6208777864168186D+00
        ws(  5) = 0.6162328693245192D+00
        ws(  6) = 0.6130690711966460D+00
        ws(  7) = 0.6125931842432736D+00
        ws(  8) = 0.6159415549460461D+00
        ws(  9) = 0.6241911784456925D+00
        ws( 10) = 0.6382210313958401D+00
        ws( 11) = 0.6583701616790449D+00
        ws( 12) = 0.6840897792546791D+00
        ws( 13) = 0.7139237713567951D+00
        ws( 14) = 0.7459474975128890D+00
        ws( 15) = 0.7783992162132244D+00
        ws( 16) = 0.8100671072666766D+00
        ws( 17) = 0.8403184995550408D+00
        ws( 18) = 0.8689456852335330D+00
        ws( 19) = 0.8958449586165791D+00
        ws( 20) = 0.9213633008308832D+00
        ws( 21) = 0.9463656873382362D+00
        ws( 22) = 0.9673858660446769D+00
        ws( 23) = 0.9879827473025100D+00
        ws( 24) = 0.1063273689234382D+01
        ws( 25) = 0.8943377913531947D+00
        ws( 26) = 0.1184309597286221D+01
        ws( 27) = 0.1773904383821291D+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 =  30
        err = 0.3081074970422037D-07
        xs(  1) = 0.5327993673440971D+00
        xs(  2) = 0.1220367544594850D+01
        xs(  3) = 0.1905918653615906D+01
        xs(  4) = 0.2583330093797348D+01
        xs(  5) = 0.3249717928147515D+01
        xs(  6) = 0.3903421807734175D+01
        xs(  7) = 0.4543841447524697D+01
        xs(  8) = 0.5171411338476313D+01
        xs(  9) = 0.5787526077361665D+01
        xs( 10) = 0.6394408948759541D+01
        xs( 11) = 0.6994994323613513D+01
        xs( 12) = 0.7592907437770456D+01
        xs( 13) = 0.8192550827090940D+01
        xs( 14) = 0.8799201528038223D+01
        xs( 15) = 0.9418942252261093D+01
        xs( 16) = 0.1005824804471387D+02
        xs( 17) = 0.1072320385970300D+02
        xs( 18) = 0.1141859747084345D+02
        xs( 19) = 0.1214731910715185D+02
        xs( 20) = 0.1291038592831161D+02
        xs( 21) = 0.1370744057834408D+02
        xs( 22) = 0.1453733149779589D+02
        xs( 23) = 0.1539856699769745D+02
        xs( 24) = 0.1628959118654811D+02
        xs( 25) = 0.1720925740828983D+02
        xs( 26) = 0.1815438798073627D+02
        xs( 27) = 0.1913114737682918D+02
        xs( 28) = 0.2012625778411570D+02
        xs( 29) = 0.2115385165546695D+02
        xs( 30) = 0.2220401769320767D+02
        ws(  1) = 0.6829727667282365D+00
        ws(  2) = 0.6881785756132279D+00
        ws(  3) = 0.6820899325580684D+00
        ws(  4) = 0.6722665766827427D+00
        ws(  5) = 0.6602335149336362D+00
        ws(  6) = 0.6470743258099798D+00
        ws(  7) = 0.6338386143542768D+00
        ws(  8) = 0.6215359835411115D+00
        ws(  9) = 0.6110662447705369D+00
        ws( 10) = 0.6031889106490892D+00
        ws( 11) = 0.5985843735156566D+00
        ws( 12) = 0.5979735841621987D+00
        ws( 13) = 0.6021933446215176D+00
        ws( 14) = 0.6121285996567107D+00
        ws( 15) = 0.6284456214323451D+00
        ws( 16) = 0.6511963852401484D+00
        ws( 17) = 0.6795241746781464D+00
        ws( 18) = 0.7117426854633963D+00
        ws( 19) = 0.7458609993056540D+00
        ws( 20) = 0.7802016132066542D+00
        ws( 21) = 0.8137030037170062D+00
        ws( 22) = 0.8458251564528756D+00
        ws( 23) = 0.8763959951377818D+00
        ws( 24) = 0.9053148089896511D+00
        ws( 25) = 0.9336980064684023D+00
        ws( 26) = 0.9598979100332476D+00
        ws( 27) = 0.9745722421462658D+00
        ws( 28) = 0.1026926331769613D+01
        ws( 29) = 0.1152461018515895D+01
        ws( 30) = 0.1173321524323499D+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 =  30
        err = 0.8975815283183524D-07
        xs(  1) = 0.5813202935793751D+00
        xs(  2) = 0.1332171627064146D+01
        xs(  3) = 0.2082312392349563D+01
        xs(  4) = 0.2825617808060963D+01
        xs(  5) = 0.3559103738201575D+01
        xs(  6) = 0.4280603644620592D+01
        xs(  7) = 0.4988509763945502D+01
        xs(  8) = 0.5681749110085946D+01
        xs(  9) = 0.6359819086913433D+01
        xs( 10) = 0.7022842050739218D+01
        xs( 11) = 0.7671607101173786D+01
        xs( 12) = 0.8307566704187908D+01
        xs( 13) = 0.8932783544750745D+01
        xs( 14) = 0.9549874315844969D+01
        xs( 15) = 0.1016203660332067D+02
        xs( 16) = 0.1077320299992067D+02
        xs( 17) = 0.1138824465282265D+02
        xs( 18) = 0.1201306063797490D+02
        xs( 19) = 0.1265439390571331D+02
        xs( 20) = 0.1331929445075245D+02
        xs( 21) = 0.1401424108702335D+02
        xs( 22) = 0.1474413467013640D+02
        xs( 23) = 0.1551164145884192D+02
        xs( 24) = 0.1631767037966713D+02
        xs( 25) = 0.1715916530435264D+02
        xs( 26) = 0.1804389469321259D+02
        xs( 27) = 0.1895098763342093D+02
        xs( 28) = 0.1990769781884066D+02
        xs( 29) = 0.2089072876523879D+02
        xs( 30) = 0.2193741487939429D+02
        ws(  1) = 0.7453480797449101D+00
        ws(  2) = 0.7521440066560774D+00
        ws(  3) = 0.7473227939996339D+00
        ws(  4) = 0.7388083865559139D+00
        ws(  5) = 0.7278050595427042D+00
        ws(  6) = 0.7149269822678007D+00
        ws(  7) = 0.7007057692537795D+00
        ws(  8) = 0.6856881771802252D+00
        ws(  9) = 0.6704714013234143D+00
        ws( 10) = 0.6557061263364758D+00
        ws( 11) = 0.6420669631620276D+00
        ws( 12) = 0.6301972430646039D+00
        ws( 13) = 0.6206722946406553D+00
        ws( 14) = 0.6140394445805223D+00
        ws( 15) = 0.6109368052445371D+00
        ws( 16) = 0.6122058839311202D+00
        ws( 17) = 0.6188631620957398D+00
        ws( 18) = 0.6319003883972759D+00
        ws( 19) = 0.6519591474187638D+00
        ws( 20) = 0.6789430805356123D+00
        ws( 21) = 0.7117777249402859D+00
        ws( 22) = 0.7484580750848847D+00
        ws( 23) = 0.7863605985389726D+00
        ws( 24) = 0.8258461766537202D+00
        ws( 25) = 0.8605092316894830D+00
        ws( 26) = 0.8885990260826636D+00
        ws( 27) = 0.9718829411811765D+00
        ws( 28) = 0.9000588067125364D+00
        ws( 29) = 0.9781106007468731D+00
        ws( 30) = 0.1654909790903891D+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 =  33
        err = 0.9925555437045019D-07
        xs(  1) = 0.6082797616423780D+00
        xs(  2) = 0.1394359704778362D+01
        xs(  3) = 0.2180613954250481D+01
        xs(  4) = 0.2961007972449387D+01
        xs(  5) = 0.3732613757585068D+01
        xs(  6) = 0.4493146220490598D+01
        xs(  7) = 0.5240681628641478D+01
        xs(  8) = 0.5973640805226112D+01
        xs(  9) = 0.6690851944399395D+01
        xs( 10) = 0.7391657934805278D+01
        xs( 11) = 0.8076035281376345D+01
        xs( 12) = 0.8744666525827638D+01
        xs( 13) = 0.9398881266830761D+01
        xs( 14) = 0.1004042928600525D+02
        xs( 15) = 0.1067116507881395D+02
        xs( 16) = 0.1129283913423358D+02
        xs( 17) = 0.1190712653385309D+02
        xs( 18) = 0.1251588867767584D+02
        xs( 19) = 0.1312153884373275D+02
        xs( 20) = 0.1372739597672699D+02
        xs( 21) = 0.1433792034028587D+02
        xs( 22) = 0.1495880546451286D+02
        xs( 23) = 0.1559684383757571D+02
        xs( 24) = 0.1625956569275754D+02
        xs( 25) = 0.1695439003809409D+02
        xs( 26) = 0.1768742287664381D+02
        xs( 27) = 0.1846352780828500D+02
        xs( 28) = 0.1928205899583761D+02
        xs( 29) = 0.2014565463108347D+02
        xs( 30) = 0.2105374042055661D+02
        xs( 31) = 0.2201028970563566D+02
        xs( 32) = 0.2301625550468290D+02
        xs( 33) = 0.2402310290276467D+02
        ws(  1) = 0.7800224379665300D+00
        ws(  2) = 0.7878166355522800D+00
        ws(  3) = 0.7839026884150584D+00
        ws(  4) = 0.7764163755971324D+00
        ws(  5) = 0.7664173756000014D+00
        ws(  6) = 0.7543269207147230D+00
        ws(  7) = 0.7404795755413996D+00
        ws(  8) = 0.7252416311184549D+00
        ws(  9) = 0.7090690033257236D+00
        ws( 10) = 0.6925375532266500D+00
        ws( 11) = 0.6763319227542323D+00
        ws( 12) = 0.6611560593551593D+00
        ws( 13) = 0.6475707774459131D+00
        ws( 14) = 0.6358381359919666D+00
        ws( 15) = 0.6259248386338266D+00
        ws( 16) = 0.6176976883596798D+00
        ws( 17) = 0.6111814185684793D+00
        ws( 18) = 0.6067379963699004D+00
        ws( 19) = 0.6051120850592229D+00
        ws( 20) = 0.6073469602257606D+00
        ws( 21) = 0.6146494051300309D+00
        ws( 22) = 0.6282527597298113D+00
        ws( 23) = 0.6490972585022439D+00
        ws( 24) = 0.6776211188290607D+00
        ws( 25) = 0.7131588991113480D+00
        ws( 26) = 0.7532852888482994D+00
        ws( 27) = 0.7986570622815987D+00
        ws( 28) = 0.8414886652346636D+00
        ws( 29) = 0.8846914292986140D+00
        ws( 30) = 0.9260388658818498D+00
        ws( 31) = 0.9355152657341561D+00
        ws( 32) = 0.1159691430986852D+01
        ws( 33) = 0.1394202350333757D+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 =  37
        err = 0.5297750214882657D-07
        xs(  1) = 0.6099992528275301D+00
        xs(  2) = 0.1398797712117360D+01
        xs(  3) = 0.2188940346773666D+01
        xs(  4) = 0.2975007885400322D+01
        xs(  5) = 0.3754652644434933D+01
        xs(  6) = 0.4526116427529542D+01
        xs(  7) = 0.5287928625752119D+01
        xs(  8) = 0.6038853781735258D+01
        xs(  9) = 0.6777894203084948D+01
        xs( 10) = 0.7504308475586505D+01
        xs( 11) = 0.8217629027464039D+01
        xs( 12) = 0.8917667387836115D+01
        xs( 13) = 0.9604495627642146D+01
        xs( 14) = 0.1027840317262886D+02
        xs( 15) = 0.1093984281932090D+02
        xs( 16) = 0.1158938984842173D+02
        xs( 17) = 0.1222773208494933D+02
        xs( 18) = 0.1285568419733391D+02
        xs( 19) = 0.1347420744935872D+02
        xs( 20) = 0.1408442665306666D+02
        xs( 21) = 0.1468766897349201D+02
        xs( 22) = 0.1528555021036854D+02
        xs( 23) = 0.1588011605030930D+02
        xs( 24) = 0.1647401602276092D+02
        xs( 25) = 0.1707069771077568D+02
        xs( 26) = 0.1767462753423117D+02
        xs( 27) = 0.1829145756650572D+02
        xs( 28) = 0.1892807098242715D+02
        xs( 29) = 0.1959222733860585D+02
        xs( 30) = 0.2029160671527001D+02
        xs( 31) = 0.2103249828053126D+02
        xs( 32) = 0.2181993246953449D+02
        xs( 33) = 0.2265610431438057D+02
        xs( 34) = 0.2353710636854907D+02
        xs( 35) = 0.2446613200236453D+02
        xs( 36) = 0.2548386346515286D+02
        xs( 37) = 0.2646272270188955D+02
        ws(  1) = 0.7823586821639544D+00
        ws(  2) = 0.7910159376768905D+00
        ws(  3) = 0.7885834090365780D+00
        ws(  4) = 0.7831797876193429D+00
        ws(  5) = 0.7758199820568541D+00
        ws(  6) = 0.7668631336914506D+00
        ws(  7) = 0.7565552380828326D+00
        ws(  8) = 0.7451284091658590D+00
        ws(  9) = 0.7328285737593478D+00
        ws( 10) = 0.7199218770572976D+00
        ws( 11) = 0.7066881014698259D+00
        ws( 12) = 0.6934014194632261D+00
        ws( 13) = 0.6803042704680656D+00
        ws( 14) = 0.6675869963908120D+00
        ws( 15) = 0.6553884078426763D+00
        ws( 16) = 0.6438199797612484D+00
        ws( 17) = 0.6329996413491283D+00
        ws( 18) = 0.6230646419271769D+00
        ws( 19) = 0.6141689122966933D+00
        ws( 20) = 0.6064893573965523D+00
        ws( 21) = 0.6002614787454837D+00
        ws( 22) = 0.5958390164280927D+00
        ws( 23) = 0.5937317345521912D+00
        ws( 24) = 0.5946389374732212D+00
        ws( 25) = 0.5994640224671660D+00
        ws( 26) = 0.6093340425162214D+00
        ws( 27) = 0.6254886496990733D+00
        ws( 28) = 0.6490384109604311D+00
        ws( 29) = 0.6805439107283338D+00
        ws( 30) = 0.7194326984838019D+00
        ws( 31) = 0.7628295971492240D+00
        ws( 32) = 0.8122047052473585D+00
        ws( 33) = 0.8616500517157190D+00
        ws( 34) = 0.9007168506355607D+00
        ws( 35) = 0.9531439715584694D+00
        ws( 36) = 0.9385739982210878D+00
        ws( 37) = 0.1636595136230072D+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 =  39
        err = 0.7884006186436728D-07
        xs(  1) = 0.6290671927709190D+00
        xs(  2) = 0.1442736488005519D+01
        xs(  3) = 0.2258301081575171D+01
        xs(  4) = 0.3070452650914200D+01
        xs(  5) = 0.3877039492437860D+01
        xs(  6) = 0.4676503476836888D+01
        xs(  7) = 0.5467562017714879D+01
        xs(  8) = 0.6249141236751858D+01
        xs(  9) = 0.7020355274799019D+01
        xs( 10) = 0.7780493835844355D+01
        xs( 11) = 0.8529007008738484D+01
        xs( 12) = 0.9265487115793086D+01
        xs( 13) = 0.9989652812370437D+01
        xs( 14) = 0.1070133960811617D+02
        xs( 15) = 0.1140050235508681D+02
        xs( 16) = 0.1208722759108156D+02
        xs( 17) = 0.1276174762999855D+02
        xs( 18) = 0.1342444867434345D+02
        xs( 19) = 0.1407586547067391D+02
        xs( 20) = 0.1471667216731579D+02
        xs( 21) = 0.1534767448555018D+02
        xs( 22) = 0.1596980425813262D+02
        xs( 23) = 0.1658410999124745D+02
        xs( 24) = 0.1719175578942713D+02
        xs( 25) = 0.1779405296667720D+02
        xs( 26) = 0.1839254207191381D+02
        xs( 27) = 0.1898913104940076D+02
        xs( 28) = 0.1958626538106891D+02
        xs( 29) = 0.2018713332853396D+02
        xs( 30) = 0.2079587782823706D+02
        xs( 31) = 0.2141775333646713D+02
        xs( 32) = 0.2205903456944326D+02
        xs( 33) = 0.2272655681672184D+02
        xs( 34) = 0.2342685429821443D+02
        xs( 35) = 0.2416481683573975D+02
        xs( 36) = 0.2494485477864281D+02
        xs( 37) = 0.2576410054212800D+02
        xs( 38) = 0.2662482025269101D+02
        xs( 39) = 0.2754514133895695D+02
        ws(  1) = 0.8068699358234601D+00
        ws(  2) = 0.8161633229775994D+00
        ws(  3) = 0.8143052592952882D+00
        ws(  4) = 0.8096591945220898D+00
        ws(  5) = 0.8032583681086611D+00
        ws(  6) = 0.7954566478115147D+00
        ws(  7) = 0.7864817637248993D+00
        ws(  8) = 0.7765292014494848D+00
        ws(  9) = 0.7657807483036618D+00
        ws( 10) = 0.7544050397057608D+00
        ws( 11) = 0.7425535850508480D+00
        ws( 12) = 0.7303599420962346D+00
        ws( 13) = 0.7179439642598967D+00
        ws( 14) = 0.7054219044602134D+00
        ws( 15) = 0.6929178035154701D+00
        ws( 16) = 0.6805711888927746D+00
        ws( 17) = 0.6685333404218865D+00
        ws( 18) = 0.6569578566778012D+00
        ws( 19) = 0.6459883228196018D+00
        ws( 20) = 0.6357594361458594D+00
        ws( 21) = 0.6264005646038971D+00
        ws( 22) = 0.6180336384644654D+00
        ws( 23) = 0.6107712378444133D+00
        ws( 24) = 0.6047375613897413D+00
        ws( 25) = 0.6001106976731962D+00
        ws( 26) = 0.5971832720236329D+00
        ws( 27) = 0.5963966110821237D+00
        ws( 28) = 0.5983974047057650D+00
        ws( 29) = 0.6040248706928520D+00
        ws( 30) = 0.6143305048719473D+00
        ws( 31) = 0.6304651758587673D+00
        ws( 32) = 0.6532602349154134D+00
        ws( 33) = 0.6828262473628636D+00
        ws( 34) = 0.7182691480742306D+00
        ws( 35) = 0.7576250876309893D+00
        ws( 36) = 0.7970742803881812D+00
        ws( 37) = 0.8417407071010190D+00
        ws( 38) = 0.9328856401247519D+00
        ws( 39) = 0.9555814188965862D+00
        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 =  43
        err = 0.7938458480310793D-07
        xs(  1) = 0.6447092101169575D+00
        xs(  2) = 0.1478791633685976D+01
        xs(  3) = 0.2315234820816662D+01
        xs(  4) = 0.3148807584310173D+01
        xs(  5) = 0.3977476004399106D+01
        xs(  6) = 0.4799770292591604D+01
        xs(  7) = 0.5614455694913246D+01
        xs(  8) = 0.6420465735416850D+01
        xs(  9) = 0.7216889329413726D+01
        xs( 10) = 0.8002970705184744D+01
        xs( 11) = 0.8778110900547675D+01
        xs( 12) = 0.9541863156852777D+01
        xs( 13) = 0.1029392070790586D+02
        xs( 14) = 0.1103409740544485D+02
        xs( 15) = 0.1176230564635247D+02
        xs( 16) = 0.1247854070582882D+02
        xs( 17) = 0.1318287732261980D+02
        xs( 18) = 0.1387547694785173D+02
        xs( 19) = 0.1455659939039687D+02
        xs( 20) = 0.1522660148181861D+02
        xs( 21) = 0.1588592070158535D+02
        xs( 22) = 0.1653504660296313D+02
        xs( 23) = 0.1717450073250001D+02
        xs( 24) = 0.1780484118813940D+02
        xs( 25) = 0.1842669618834439D+02
        xs( 26) = 0.1904080309978701D+02
        xs( 27) = 0.1964804063939122D+02
        xs( 28) = 0.2024946533754662D+02
        xs( 29) = 0.2084635960711197D+02
        xs( 30) = 0.2144029306482541D+02
        xs( 31) = 0.2203319670009540D+02
        xs( 32) = 0.2262748384234951D+02
        xs( 33) = 0.2322625973168710D+02
        xs( 34) = 0.2383361199738820D+02
        xs( 35) = 0.2445494058034026D+02
        xs( 36) = 0.2509711339786388D+02
        xs( 37) = 0.2576801905508527D+02
        xs( 38) = 0.2647639499144306D+02
        xs( 39) = 0.2723040988183843D+02
        xs( 40) = 0.2803371239149052D+02
        xs( 41) = 0.2889648025542720D+02
        xs( 42) = 0.2981837168426834D+02
        xs( 43) = 0.3075028436315292D+02
        ws(  1) = 0.8269812686251627D+00
        ws(  2) = 0.8368100894552261D+00
        ws(  3) = 0.8354344078938364D+00
        ws(  4) = 0.8313925984012056D+00
        ws(  5) = 0.8257029406209003D+00
        ws(  6) = 0.8186807012677646D+00
        ws(  7) = 0.8105124600399147D+00
        ws(  8) = 0.8013558413404394D+00
        ws(  9) = 0.7913652854014706D+00
        ws( 10) = 0.7806977111348405D+00
        ws( 11) = 0.7695084334994705D+00
        ws( 12) = 0.7579451986914419D+00
        ws( 13) = 0.7461393060413501D+00
        ws( 14) = 0.7341997626468812D+00
        ws( 15) = 0.7222159456615358D+00
        ws( 16) = 0.7102665451320513D+00
        ws( 17) = 0.6984332865094385D+00
        ws( 18) = 0.6868093937896610D+00
        ws( 19) = 0.6754950425691029D+00
        ws( 20) = 0.6645825321024738D+00
        ws( 21) = 0.6541380375779952D+00
        ws( 22) = 0.6442005350686932D+00
        ws( 23) = 0.6347998769788525D+00
        ws( 24) = 0.6259852674317626D+00
        ws( 25) = 0.6178468852125740D+00
        ws( 26) = 0.6105121153065121D+00
        ws( 27) = 0.6041386807379360D+00
        ws( 28) = 0.5989228095231205D+00
        ws( 29) = 0.5951248719272668D+00
        ws( 30) = 0.5930608920909222D+00
        ws( 31) = 0.5931447390692469D+00
        ws( 32) = 0.5959383209571992D+00
        ws( 33) = 0.6022823868862720D+00
        ws( 34) = 0.6133133520248584D+00
        ws( 35) = 0.6304327808417256D+00
        ws( 36) = 0.6551797649891471D+00
        ws( 37) = 0.6882549166346325D+00
        ws( 38) = 0.7297051589025424D+00
        ws( 39) = 0.7756887583799140D+00
        ws( 40) = 0.8298852639193758D+00
        ws( 41) = 0.8979654035538681D+00
        ws( 42) = 0.1012077880764280D+01
        ws( 43) = 0.7986138265440010D+00
        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 =  46
        err = 0.5092303815531470D-07
        xs(  1) = 0.6569056077064640D+00
        xs(  2) = 0.1506941419590338D+01
        xs(  3) = 0.2359777584689319D+01
        xs(  4) = 0.3210295451886828D+01
        xs(  5) = 0.4056604539665360D+01
        xs(  6) = 0.4897360566213104D+01
        xs(  7) = 0.5731418265045324D+01
        xs(  8) = 0.6557762408070433D+01
        xs(  9) = 0.7375487771227601D+01
        xs( 10) = 0.8183801746589156D+01
        xs( 11) = 0.8982029082236592D+01
        xs( 12) = 0.9769622035460278D+01
        xs( 13) = 0.1054616433395613D+02
        xs( 14) = 0.1131137244402962D+02
        xs( 15) = 0.1206508608248054D+02
        xs( 16) = 0.1280725143922160D+02
        xs( 17) = 0.1353789893362141D+02
        xs( 18) = 0.1425712348718200D+02
        xs( 19) = 0.1496507324248480D+02
        xs( 20) = 0.1566194852854041D+02
        xs( 21) = 0.1634800760779658D+02
        xs( 22) = 0.1702356903659432D+02
        xs( 23) = 0.1768900374769543D+02
        xs( 24) = 0.1834471723673688D+02
        xs( 25) = 0.1899113072738291D+02
        xs( 26) = 0.1962866991459822D+02
        xs( 27) = 0.2025777196240961D+02
        xs( 28) = 0.2087890692206572D+02
        xs( 29) = 0.2149261067271156D+02
        xs( 30) = 0.2209950908447623D+02
        xs( 31) = 0.2270034942722770D+02
        xs( 32) = 0.2329602953259369D+02
        xs( 33) = 0.2388765974362792D+02
        xs( 34) = 0.2447661725278129D+02
        xs( 35) = 0.2506460425525355D+02
        xs( 36) = 0.2565373873233204D+02
        xs( 37) = 0.2624677521286930D+02
        xs( 38) = 0.2684748347657980D+02
        xs( 39) = 0.2746102439086617D+02
        xs( 40) = 0.2809408020490601D+02
        xs( 41) = 0.2875543405962044D+02
        xs( 42) = 0.2945383907334887D+02
        xs( 43) = 0.3019755654323080D+02
        xs( 44) = 0.3100374582969735D+02
        xs( 45) = 0.3188727033878746D+02
        xs( 46) = 0.3292251498488653D+02
        ws(  1) = 0.8426742623851424D+00
        ws(  2) = 0.8529759879262657D+00
        ws(  3) = 0.8520786954131171D+00
        ws(  4) = 0.8486624509136332D+00
        ws(  5) = 0.8437359320102119D+00
        ws(  6) = 0.8375858503004781D+00
        ws(  7) = 0.8303608716742252D+00
        ws(  8) = 0.8221763189383240D+00
        ws(  9) = 0.8131423301344605D+00
        ws( 10) = 0.8033727055843258D+00
        ws( 11) = 0.7929907808124805D+00
        ws( 12) = 0.7821256192034313D+00
        ws( 13) = 0.7709119261105609D+00
        ws( 14) = 0.7594779816016012D+00
        ws( 15) = 0.7479406451112030D+00
        ws( 16) = 0.7363954091549411D+00
        ws( 17) = 0.7249156937450789D+00
        ws( 18) = 0.7135582206004086D+00
        ws( 19) = 0.7023743363087182D+00
        ws( 20) = 0.6914191545475240D+00
        ws( 21) = 0.6807524021175601D+00
        ws( 22) = 0.6704325570985977D+00
        ws( 23) = 0.6605047053914241D+00
        ws( 24) = 0.6509928230803548D+00
        ws( 25) = 0.6419044651403268D+00
        ws( 26) = 0.6332463293005828D+00
        ws( 27) = 0.6250360615636542D+00
        ws( 28) = 0.6173225016196809D+00
        ws( 29) = 0.6101871427494172D+00
        ws( 30) = 0.6037345125675238D+00
        ws( 31) = 0.5980942134456944D+00
        ws( 32) = 0.5934475645762155D+00
        ws( 33) = 0.5900395474946361D+00
        ws( 34) = 0.5881580920321638D+00
        ws( 35) = 0.5881574499778054D+00
        ws( 36) = 0.5905615278456130D+00
        ws( 37) = 0.5961457953835109D+00
        ws( 38) = 0.6060804179657815D+00
        ws( 39) = 0.6220835540543145D+00
        ws( 40) = 0.6456756510063459D+00
        ws( 41) = 0.6784365403903770D+00
        ws( 42) = 0.7197420491385378D+00
        ws( 43) = 0.7698022433945338D+00
        ws( 44) = 0.8415075325440140D+00
        ws( 45) = 0.9324392747251673D+00
        ws( 46) = 0.1369353263041700D+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 =  50
        err = 0.5011293301723845D-07
        xs(  1) = 0.6674026915660831D+00
        xs(  2) = 0.1531114134839983D+01
        xs(  3) = 0.2397899665153145D+01
        xs(  4) = 0.3262680314634312D+01
        xs(  5) = 0.4123654334029128D+01
        xs(  6) = 0.4979562989182695D+01
        xs(  7) = 0.5829341351242417D+01
        xs(  8) = 0.6672041403233869D+01
        xs(  9) = 0.7506814149966095D+01
        xs( 10) = 0.8332905341577774D+01
        xs( 11) = 0.9149658945368236D+01
        xs( 12) = 0.9956521493974892D+01
        xs( 13) = 0.1075304363041624D+02
        xs( 14) = 0.1153887937924425D+02
        xs( 15) = 0.1231378028363136D+02
        xs( 16) = 0.1307758598148113D+02
        xs( 17) = 0.1383021208094177D+02
        xs( 18) = 0.1457163856714241D+02
        xs( 19) = 0.1530190047137398D+02
        xs( 20) = 0.1602108043563344D+02
        xs( 21) = 0.1672930386260148D+02
        xs( 22) = 0.1742673342220604D+02
        xs( 23) = 0.1811356705815442D+02
        xs( 24) = 0.1879003998041001D+02
        xs( 25) = 0.1945643506041434D+02
        xs( 26) = 0.2011309563641655D+02
        xs( 27) = 0.2076043070280350D+02
        xs( 28) = 0.2139890392104844D+02
        xs( 29) = 0.2202900359757465D+02
        xs( 30) = 0.2265121349148432D+02
        xs( 31) = 0.2326599423721875D+02
        xs( 32) = 0.2387379084535545D+02
        xs( 33) = 0.2447505544116895D+02
        xs( 34) = 0.2507028263517932D+02
        xs( 35) = 0.2566005832737691D+02
        xs( 36) = 0.2624512208457987D+02
        xs( 37) = 0.2682643950286085D+02
        xs( 38) = 0.2740529217553624D+02
        xs( 39) = 0.2798334187136901D+02
        xs( 40) = 0.2856267875632531D+02
        xs( 41) = 0.2914591393143559D+02
        xs( 42) = 0.2973625276120261D+02
        xs( 43) = 0.3033795354709178D+02
        xs( 44) = 0.3095633234452967D+02
        xs( 45) = 0.3159782931173523D+02
        xs( 46) = 0.3227060172139329D+02
        xs( 47) = 0.3298168621921911D+02
        xs( 48) = 0.3373002850698557D+02
        xs( 49) = 0.3455760192428651D+02
        xs( 50) = 0.3554431553327570D+02
        ws(  1) = 0.8561618159032444D+00
        ws(  2) = 0.8667926051990218D+00
        ws(  3) = 0.8661705818264805D+00
        ws(  4) = 0.8631117194610748D+00
        ws(  5) = 0.8586304423938265D+00
        ws(  6) = 0.8530104034025766D+00
        ws(  7) = 0.8463885561023010D+00
        ws(  8) = 0.8388702495667933D+00
        ws(  9) = 0.8305493542714808D+00
        ws( 10) = 0.8215235472263873D+00
        ws( 11) = 0.8118914641227591D+00
        ws( 12) = 0.8017586664218662D+00
        ws( 13) = 0.7912280806127518D+00
        ws( 14) = 0.7804020705073492D+00
        ws( 15) = 0.7693733526760191D+00
        ws( 16) = 0.7582242432042196D+00
        ws( 17) = 0.7470247016243134D+00
        ws( 18) = 0.7358342966752307D+00
        ws( 19) = 0.7247032752535559D+00
        ws( 20) = 0.7136775036658242D+00
        ws( 21) = 0.7027965548325071D+00
        ws( 22) = 0.6920956109199984D+00
        ws( 23) = 0.6816107459699277D+00
        ws( 24) = 0.6713818180101893D+00
        ws( 25) = 0.6614651994407516D+00
        ws( 26) = 0.6519244180738695D+00
        ws( 27) = 0.6428235411968087D+00
        ws( 28) = 0.6342044391530398D+00
        ws( 29) = 0.6260760735502180D+00
        ws( 30) = 0.6184201002271393D+00
        ws( 31) = 0.6112151552239584D+00
        ws( 32) = 0.6044526726485763D+00
        ws( 33) = 0.5981587878346475D+00
        ws( 34) = 0.5923924959146695D+00
        ws( 35) = 0.5872811371166299D+00
        ws( 36) = 0.5830075274259169D+00
        ws( 37) = 0.5798424203534553D+00
        ws( 38) = 0.5781386189023187D+00
        ws( 39) = 0.5783119607570616D+00
        ws( 40) = 0.5808034027706714D+00
        ws( 41) = 0.5861560398198024D+00
        ws( 42) = 0.5952318136971935D+00
        ws( 43) = 0.6089767176408590D+00
        ws( 44) = 0.6283755062731252D+00
        ws( 45) = 0.6560415070840465D+00
        ws( 46) = 0.6890514781081420D+00
        ws( 47) = 0.7245330902069274D+00
        ws( 48) = 0.7768811145299318D+00
        ws( 49) = 0.8589917554567233D+00
        ws( 50) = 0.1082028834503810D+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 =  54
        err = 0.4464229494534067D-07
        xs(  1) = 0.6677795301003174D+00
        xs(  2) = 0.1532085702243077D+01
        xs(  3) = 0.2399732257656000D+01
        xs(  4) = 0.3265778323682304D+01
        xs(  5) = 0.4128558930850031D+01
        xs(  6) = 0.4986941356832750D+01
        xs(  7) = 0.5839978732598049D+01
        xs(  8) = 0.6686829632294994D+01
        xs(  9) = 0.7526738555086501D+01
        xs( 10) = 0.8359029825906392D+01
        xs( 11) = 0.9183107075362164D+01
        xs( 12) = 0.9998455083745577D+01
        xs( 13) = 0.1080463841703227D+02
        xs( 14) = 0.1160130061030142D+02
        xs( 15) = 0.1238815926280978D+02
        xs( 16) = 0.1316500076967053D+02
        xs( 17) = 0.1393167433973073D+02
        xs( 18) = 0.1468808733351835D+02
        xs( 19) = 0.1543420301450868D+02
        xs( 20) = 0.1617003811576678D+02
        xs( 21) = 0.1689566008303412D+02
        xs( 22) = 0.1761118013761001D+02
        xs( 23) = 0.1831674327206920D+02
        xs( 24) = 0.1901251850519279D+02
        xs( 25) = 0.1969869203503337D+02
        xs( 26) = 0.2037546692563632D+02
        xs( 27) = 0.2104306674885454D+02
        xs( 28) = 0.2170174179739354D+02
        xs( 29) = 0.2235177461259385D+02
        xs( 30) = 0.2299348553712134D+02
        xs( 31) = 0.2362723316879291D+02
        xs( 32) = 0.2425340860480794D+02
        xs( 33) = 0.2487242012132531D+02
        xs( 34) = 0.2548467397716752D+02
        xs( 35) = 0.2609055524483701D+02
        xs( 36) = 0.2669042256127225D+02
        xs( 37) = 0.2728461519931572D+02
        xs( 38) = 0.2787348562371675D+02
        xs( 39) = 0.2845745082353128D+02
        xs( 40) = 0.2903707150673727D+02
        xs( 41) = 0.2961314205378812D+02
        xs( 42) = 0.3018673995648428D+02
        xs( 43) = 0.3075923385789576D+02
        xs( 44) = 0.3133231875530183D+02
        xs( 45) = 0.3190812612226785D+02
        xs( 46) = 0.3248952031084546D+02
        xs( 47) = 0.3308043426665889D+02
        xs( 48) = 0.3368638551102725D+02
        xs( 49) = 0.3431489411832214D+02
        xs( 50) = 0.3497477280400236D+02
        xs( 51) = 0.3567743886330478D+02
        xs( 52) = 0.3643854580479244D+02
        xs( 53) = 0.3727277653251400D+02
        xs( 54) = 0.3828108230173619D+02
        ws(  1) = 0.8566720838631197D+00
        ws(  2) = 0.8674964171346541D+00
        ws(  3) = 0.8672109903172802D+00
        ws(  4) = 0.8646256896264871D+00
        ws(  5) = 0.8607503636883277D+00
        ws(  6) = 0.8558577503529669D+00
        ws(  7) = 0.8500769434317765D+00
        ws(  8) = 0.8434991746321656D+00
        ws(  9) = 0.8362060351134672D+00
        ws( 10) = 0.8282770148634820D+00
        ws( 11) = 0.8197917463969143D+00
        ws( 12) = 0.8108315181396752D+00
        ws( 13) = 0.8014758913293298D+00
        ws( 14) = 0.7918015184789764D+00
        ws( 15) = 0.7818803011094055D+00
        ws( 16) = 0.7717777344441126D+00
        ws( 17) = 0.7615539901353938D+00
        ws( 18) = 0.7512659383947686D+00
        ws( 19) = 0.7409681132262393D+00
        ws( 20) = 0.7307134217869673D+00
        ws( 21) = 0.7205492972499870D+00
        ws( 22) = 0.7105151760248667D+00
        ws( 23) = 0.7006394448534858D+00
        ws( 24) = 0.6909418949630171D+00
        ws( 25) = 0.6814388944842619D+00
        ws( 26) = 0.6721481075320667D+00
        ws( 27) = 0.6630931570117513D+00
        ws( 28) = 0.6543038037314156D+00
        ws( 29) = 0.6458152237507829D+00
        ws( 30) = 0.6376664152097192D+00
        ws( 31) = 0.6298942952575832D+00
        ws( 32) = 0.6225248479094589D+00
        ws( 33) = 0.6155662905016293D+00
        ws( 34) = 0.6090056649699189D+00
        ws( 35) = 0.6028167035267999D+00
        ws( 36) = 0.5969737304344221D+00
        ws( 37) = 0.5914703022671263D+00
        ws( 38) = 0.5863383136830047D+00
        ws( 39) = 0.5816844780167497D+00
        ws( 40) = 0.5776901876097114D+00
        ws( 41) = 0.5746286244368179D+00
        ws( 42) = 0.5727981415917416D+00
        ws( 43) = 0.5724698240000505D+00
        ws( 44) = 0.5740417604768128D+00
        ws( 45) = 0.5780604608707951D+00
        ws( 46) = 0.5853260829205175D+00
        ws( 47) = 0.5973817039606886D+00
        ws( 48) = 0.6157909185629479D+00
        ws( 49) = 0.6421176768287629D+00
        ws( 50) = 0.6801999313624641D+00
        ws( 51) = 0.7234723091160967D+00
        ws( 52) = 0.7991075332127724D+00
        ws( 53) = 0.8663105988313488D+00
        ws( 54) = 0.1211442507679633D+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 =  57
        err = 0.5921031049949733D-07
        xs(  1) = 0.6781064991734209D+00
        xs(  2) = 0.1555863496533459D+01
        xs(  3) = 0.2437210923115878D+01
        xs(  4) = 0.3317240910988534D+01
        xs(  5) = 0.4194363903601877D+01
        xs(  6) = 0.5067522916292968D+01
        xs(  7) = 0.5935838157250423D+01
        xs(  8) = 0.6798523574584155D+01
        xs(  9) = 0.7654866094616757D+01
        xs( 10) = 0.8504216506050730D+01
        xs( 11) = 0.9345989392861044D+01
        xs( 12) = 0.1017966316089769D+02
        xs( 13) = 0.1100478278946445D+02
        xs( 14) = 0.1182096011468490D+02
        xs( 15) = 0.1262787512903314D+02
        xs( 16) = 0.1342527462066703D+02
        xs( 17) = 0.1421296939241316D+02
        xs( 18) = 0.1499083018311995D+02
        xs( 19) = 0.1575878145356899D+02
        xs( 20) = 0.1651679556268656D+02
        xs( 21) = 0.1726488547935163D+02
        xs( 22) = 0.1800309832064972D+02
        xs( 23) = 0.1873150816235730D+02
        xs( 24) = 0.1945021125171929D+02
        xs( 25) = 0.2015932464112023D+02
        xs( 26) = 0.2085898839632060D+02
        xs( 27) = 0.2154937435336332D+02
        xs( 28) = 0.2223069246555658D+02
        xs( 29) = 0.2290319660472667D+02
        xs( 30) = 0.2356718361100338D+02
        xs( 31) = 0.2422299092239769D+02
        xs( 32) = 0.2487099978758472D+02
        xs( 33) = 0.2551163749918394D+02
        xs( 34) = 0.2614537678958138D+02
        xs( 35) = 0.2677271151683449D+02
        xs( 36) = 0.2739411947589721D+02
        xs( 37) = 0.2801001669718628D+02
        xs( 38) = 0.2862073252214559D+02
        xs( 39) = 0.2922651248051828D+02
        xs( 40) = 0.2982755124215260D+02
        xs( 41) = 0.3042404977902281D+02
        xs( 42) = 0.3101628297343225D+02
        xs( 43) = 0.3160466248504558D+02
        xs( 44) = 0.3218975945636882D+02
        xs( 45) = 0.3277232146493735D+02
        xs( 46) = 0.3335325896925265D+02
        xs( 47) = 0.3393373624171267D+02
        xs( 48) = 0.3451528313261802D+02
        xs( 49) = 0.3510001425912270D+02
        xs( 50) = 0.3569083031945766D+02
        xs( 51) = 0.3629201806700880D+02
        xs( 52) = 0.3690927638279085D+02
        xs( 53) = 0.3755080130147754D+02
        xs( 54) = 0.3822570836490673D+02
        xs( 55) = 0.3894456568289797D+02
        xs( 56) = 0.3975248041064314D+02
        xs( 57) = 0.4059382128006229D+02
        ws(  1) = 0.8699433779786400D+00
        ws(  2) = 0.8810762865095295D+00
        ws(  3) = 0.8810423084234639D+00
        ws(  4) = 0.8787749624296787D+00
        ws(  5) = 0.8752988714459625D+00
        ws(  6) = 0.8708738727903669D+00
        ws(  7) = 0.8656251817727567D+00
        ws(  8) = 0.8596273186526818D+00
        ws(  9) = 0.8529494175831978D+00
        ws( 10) = 0.8456540992624967D+00
        ws( 11) = 0.8378045987853132D+00
        ws( 12) = 0.8294670789056245D+00
        ws( 13) = 0.8207073625608119D+00
        ws( 14) = 0.8115939660055383D+00
        ws( 15) = 0.8021939203759005D+00
        ws( 16) = 0.7925735817696821D+00
        ws( 17) = 0.7827947337925281D+00
        ws( 18) = 0.7729142299214100D+00
        ws( 19) = 0.7629836804954849D+00
        ws( 20) = 0.7530468557898433D+00
        ws( 21) = 0.7431410685542589D+00
        ws( 22) = 0.7332969476342918D+00
        ws( 23) = 0.7235387665942745D+00
        ws( 24) = 0.7138868367763750D+00
        ws( 25) = 0.7043629888199190D+00
        ws( 26) = 0.6949932973980861D+00
        ws( 27) = 0.6858134054359284D+00
        ws( 28) = 0.6768650623254674D+00
        ws( 29) = 0.6681926587664380D+00
        ws( 30) = 0.6598375412282759D+00
        ws( 31) = 0.6518408104635983D+00
        ws( 32) = 0.6442478619807384D+00
        ws( 33) = 0.6371068929141318D+00
        ws( 34) = 0.6304545597893821D+00
        ws( 35) = 0.6242955078221069D+00
        ws( 36) = 0.6185902119002848D+00
        ws( 37) = 0.6132592924965399D+00
        ws( 38) = 0.6082126672270660D+00
        ws( 39) = 0.6033791120725736D+00
        ws( 40) = 0.5987309551917800D+00
        ws( 41) = 0.5943111764999939D+00
        ws( 42) = 0.5902239068354319D+00
        ws( 43) = 0.5866291312250508D+00
        ws( 44) = 0.5836931798969152D+00
        ws( 45) = 0.5815756413635161D+00
        ws( 46) = 0.5804975817647423D+00
        ws( 47) = 0.5807064860090466D+00
        ws( 48) = 0.5827297328581050D+00
        ws( 49) = 0.5872288396598725D+00
        ws( 50) = 0.5950607627302938D+00
        ws( 51) = 0.6081323821362986D+00
        ws( 52) = 0.6280649844604630D+00
        ws( 53) = 0.6548467300773868D+00
        ws( 54) = 0.6964918852002019D+00
        ws( 55) = 0.7416693492463154D+00
        ws( 56) = 0.8201808981602849D+00
        ws( 57) = 0.9974852151769218D+00
        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 =  61
        err = 0.5211891605961037D-07
        xs(  1) = 0.6850638636271102D+00
        xs(  2) = 0.1571883885421683D+01
        xs(  3) = 0.2462469660881415D+01
        xs(  4) = 0.3351935725971444D+01
        xs(  5) = 0.4238746429624410D+01
        xs(  6) = 0.5121896331520125D+01
        xs(  7) = 0.6000554536547875D+01
        xs(  8) = 0.6873978999012768D+01
        xs(  9) = 0.7741498353007037D+01
        xs( 10) = 0.8602504373299773D+01
        xs( 11) = 0.9456453663291438D+01
        xs( 12) = 0.1030286843318630D+02
        xs( 13) = 0.1114133811040740D+02
        xs( 14) = 0.1197151643979005D+02
        xs( 15) = 0.1279311732520841D+02
        xs( 16) = 0.1360590848252843D+02
        xs( 17) = 0.1440970397198157D+02
        xs( 18) = 0.1520436025764368D+02
        xs( 19) = 0.1598977222473806D+02
        xs( 20) = 0.1676587310534095D+02
        xs( 21) = 0.1753263162892070D+02
        xs( 22) = 0.1829004948975236D+02
        xs( 23) = 0.1903815583447807D+02
        xs( 24) = 0.1977700435935728D+02
        xs( 25) = 0.2050667022214129D+02
        xs( 26) = 0.2122724884519979D+02
        xs( 27) = 0.2193885072306355D+02
        xs( 28) = 0.2264159228690437D+02
        xs( 29) = 0.2333558549614324D+02
        xs( 30) = 0.2402093855301925D+02
        xs( 31) = 0.2469777057959257D+02
        xs( 32) = 0.2536624423224929D+02
        xs( 33) = 0.2602659865566937D+02
        xs( 34) = 0.2667916621862516D+02
        xs( 35) = 0.2732436206836818D+02
        xs( 36) = 0.2796264974131604D+02
        xs( 37) = 0.2859449977994575D+02
        xs( 38) = 0.2922034438308436D+02
        xs( 39) = 0.2984054505184857D+02
        xs( 40) = 0.3045536790467449D+02
        xs( 41) = 0.3106499064908727D+02
        xs( 42) = 0.3166953809509450D+02
        xs( 43) = 0.3226914990397051D+02
        xs( 44) = 0.3286405484632269D+02
        xs( 45) = 0.3345461286661626D+02
        xs( 46) = 0.3404133040583994D+02
        xs( 47) = 0.3462480599832139D+02
        xs( 48) = 0.3520568516853312D+02
        xs( 49) = 0.3578459748286339D+02
        xs( 50) = 0.3636220399435398D+02
        xs( 51) = 0.3693931770939415D+02
        xs( 52) = 0.3751709879537500D+02
        xs( 53) = 0.3809731284965734D+02
        xs( 54) = 0.3868261907790230D+02
        xs( 55) = 0.3927685474916753D+02
        xs( 56) = 0.3988551953907429D+02
        xs( 57) = 0.4051558794688584D+02
        xs( 58) = 0.4117750633446844D+02
        xs( 59) = 0.4187847090059777D+02
        xs( 60) = 0.4264929305539914D+02
        xs( 61) = 0.4360700489580707D+02
        ws(  1) = 0.8788815629896185D+00
        ws(  2) = 0.8902322515836386D+00
        ws(  3) = 0.8903689203760535D+00
        ws(  4) = 0.8883297969170831D+00
        ws(  5) = 0.8851280978782594D+00
        ws(  6) = 0.8810342590620764D+00
        ws(  7) = 0.8761585119394057D+00
        ws(  8) = 0.8705786927027461D+00
        ws(  9) = 0.8643585539974686D+00
        ws( 10) = 0.8575630900074479D+00
        ws( 11) = 0.8502558981785223D+00
        ws( 12) = 0.8425052182740584D+00
        ws( 13) = 0.8343762807283459D+00
        ws( 14) = 0.8259328664191193D+00
        ws( 15) = 0.8172305409536416D+00
        ws( 16) = 0.8083206309920709D+00
        ws( 17) = 0.7992464878293664D+00
        ws( 18) = 0.7900485132832794D+00
        ws( 19) = 0.7807644077988442D+00
        ws( 20) = 0.7714322250474002D+00
        ws( 21) = 0.7620853030255481D+00
        ws( 22) = 0.7527550195658561D+00
        ws( 23) = 0.7434668481673338D+00
        ws( 24) = 0.7342427488728350D+00
        ws( 25) = 0.7251049084092838D+00
        ws( 26) = 0.7160710063314129D+00
        ws( 27) = 0.7071523308909883D+00
        ws( 28) = 0.6983492986142421D+00
        ws( 29) = 0.6896551643833976D+00
        ws( 30) = 0.6810703134228216D+00
        ws( 31) = 0.6726201148338758D+00
        ws( 32) = 0.6643668416161154D+00
        ws( 33) = 0.6563977552283420D+00
        ws( 34) = 0.6488071646854831D+00
        ws( 35) = 0.6416624456426141D+00
        ws( 36) = 0.6349927187750655D+00
        ws( 37) = 0.6287796635105403D+00
        ws( 38) = 0.6229705416195215D+00
        ws( 39) = 0.6174750890297718D+00
        ws( 40) = 0.6122001735988418D+00
        ws( 41) = 0.6070648581200589D+00
        ws( 42) = 0.6020521783580446D+00
        ws( 43) = 0.5972095049488739D+00
        ws( 44) = 0.5926596563903839D+00
        ws( 45) = 0.5885433292400380D+00
        ws( 46) = 0.5849911309933614D+00
        ws( 47) = 0.5820726424441344D+00
        ws( 48) = 0.5797872300024355D+00
        ws( 49) = 0.5781499642515810D+00
        ws( 50) = 0.5771949010686791D+00
        ws( 51) = 0.5772155346450034D+00
        ws( 52) = 0.5786493346327366D+00
        ws( 53) = 0.5821645258000474D+00
        ws( 54) = 0.5891842779022601D+00
        ws( 55) = 0.6000971522251173D+00
        ws( 56) = 0.6182997442483771D+00
        ws( 57) = 0.6446061180227882D+00
        ws( 58) = 0.6782061427670039D+00
        ws( 59) = 0.7425731954847891D+00
        ws( 60) = 0.7568404032729631D+00
        ws( 61) = 0.1442377036118014D+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 =  64
        err = 0.7524457495711803D-07
        xs(  1) = 0.6953448119416801D+00
        xs(  2) = 0.1595529623698474D+01
        xs(  3) = 0.2499662629690644D+01
        xs(  4) = 0.3402861323137863D+01
        xs(  5) = 0.4303629452987751D+01
        xs(  6) = 0.5201011502913779D+01
        xs(  7) = 0.6094217538252420D+01
        xs(  8) = 0.6982542814179004D+01
        xs(  9) = 0.7865344026413199D+01
        xs( 10) = 0.8742031644105047D+01
        xs( 11) = 0.9612072232119351D+01
        xs( 12) = 0.1047498779568332D+02
        xs( 13) = 0.1133036153075751D+02
        xs( 14) = 0.1217783636668704D+02
        xs( 15) = 0.1301711495720567D+02
        xs( 16) = 0.1384795340296155D+02
        xs( 17) = 0.1467015500445619D+02
        xs( 18) = 0.1548356152572543D+02
        xs( 19) = 0.1628804728972359D+02
        xs( 20) = 0.1708351688391146D+02
        xs( 21) = 0.1786990683730612D+02
        xs( 22) = 0.1864718843768207D+02
        xs( 23) = 0.1941536746446102D+02
        xs( 24) = 0.2017447831008946D+02
        xs( 25) = 0.2092457083098820D+02
        xs( 26) = 0.2166569809352121D+02
        xs( 27) = 0.2239790829778171D+02
        xs( 28) = 0.2312125164398710D+02
        xs( 29) = 0.2383579678766819D+02
        xs( 30) = 0.2454164996923687D+02
        xs( 31) = 0.2523896431290772D+02
        xs( 32) = 0.2592793151788182D+02
        xs( 33) = 0.2660876658581933D+02
        xs( 34) = 0.2728170768859515D+02
        xs( 35) = 0.2794704708496131D+02
        xs( 36) = 0.2860517094835988D+02
        xs( 37) = 0.2925656178326550D+02
        xs( 38) = 0.2990172153536440D+02
        xs( 39) = 0.3054105142727788D+02
        xs( 40) = 0.3117477025801963D+02
        xs( 41) = 0.3180295057377232D+02
        xs( 42) = 0.3242564859880369D+02
        xs( 43) = 0.3304303668484886D+02
        xs( 44) = 0.3365544166118614D+02
        xs( 45) = 0.3426326347686875D+02
        xs( 46) = 0.3486683837665406D+02
        xs( 47) = 0.3546636046218615D+02
        xs( 48) = 0.3606189617766223D+02
        xs( 49) = 0.3665349579896438D+02
        xs( 50) = 0.3724131302775708D+02
        xs( 51) = 0.3782570352806982D+02
        xs( 52) = 0.3840726671181702D+02
        xs( 53) = 0.3898682765367711D+02
        xs( 54) = 0.3956544213038065D+02
        xs( 55) = 0.4014436194051003D+02
        xs( 56) = 0.4072514541353727D+02
        xs( 57) = 0.4130979011207386D+02
        xs( 58) = 0.4190123710458250D+02
        xs( 59) = 0.4250397842974792D+02
        xs( 60) = 0.4312440199426529D+02
        xs( 61) = 0.4377069737999459D+02
        xs( 62) = 0.4445405519837987D+02
        xs( 63) = 0.4521635930319960D+02
        xs( 64) = 0.4610853671462402D+02
        ws(  1) = 0.8920876432218418D+00
        ws(  2) = 0.9036971578009937D+00
        ws(  3) = 0.9040047130100314D+00
        ws(  4) = 0.9021655320703418D+00
        ws(  5) = 0.8992155102513870D+00
        ws(  6) = 0.8954173289804035D+00
        ws(  7) = 0.8908775535070939D+00
        ws(  8) = 0.8856660930917080D+00
        ws(  9) = 0.8798383932854985D+00
        ws( 10) = 0.8734482866696077D+00
        ws( 11) = 0.8665527606648979D+00
        ws( 12) = 0.8592089422944559D+00
        ws( 13) = 0.8514786072627764D+00
        ws( 14) = 0.8434218066413255D+00
        ws( 15) = 0.8350948157738957D+00
        ws( 16) = 0.8265495362154236D+00
        ws( 17) = 0.8178275577945550D+00
        ws( 18) = 0.8089643198312036D+00
        ws( 19) = 0.7999910875307999D+00
        ws( 20) = 0.7909374399731089D+00
        ws( 21) = 0.7818377321519639D+00
        ws( 22) = 0.7727265720546873D+00
        ws( 23) = 0.7636374651080364D+00
        ws( 24) = 0.7545927752547119D+00
        ws( 25) = 0.7456010754722538D+00
        ws( 26) = 0.7366609710554786D+00
        ws( 27) = 0.7277677477799891D+00
        ws( 28) = 0.7189300465523354D+00
        ws( 29) = 0.7101778301129552D+00
        ws( 30) = 0.7015540836524384D+00
        ws( 31) = 0.6931067232548258D+00
        ws( 32) = 0.6848636011665221D+00
        ws( 33) = 0.6768454243445974D+00
        ws( 34) = 0.6690850541326935D+00
        ws( 35) = 0.6616578544505388D+00
        ws( 36) = 0.6546716292147636D+00
        ws( 37) = 0.6481957977796836D+00
        ws( 38) = 0.6421921651862235D+00
        ws( 39) = 0.6365035639947572D+00
        ws( 40) = 0.6309436619871778D+00
        ws( 41) = 0.6254237699530154D+00
        ws( 42) = 0.6199998079290800D+00
        ws( 43) = 0.6148321989008813D+00
        ws( 44) = 0.6100468114095053D+00
        ws( 45) = 0.6056531478333174D+00
        ws( 46) = 0.6015280847801726D+00
        ws( 47) = 0.5975244903664103D+00
        ws( 48) = 0.5935529042357638D+00
        ws( 49) = 0.5896678929624364D+00
        ws( 50) = 0.5860273375223306D+00
        ws( 51) = 0.5828549281687004D+00
        ws( 52) = 0.5804052361130853D+00
        ws( 53) = 0.5789066966929671D+00
        ws( 54) = 0.5785233946302745D+00
        ws( 55) = 0.5795708873026189D+00
        ws( 56) = 0.5823649880898966D+00
        ws( 57) = 0.5872509825747926D+00
        ws( 58) = 0.5962437582305693D+00
        ws( 59) = 0.6103529993816016D+00
        ws( 60) = 0.6292154093923766D+00
        ws( 61) = 0.6618428321680485D+00
        ws( 62) = 0.7074187045704591D+00
        ws( 63) = 0.7535681734383496D+00
        ws( 64) = 0.1040587800297314D+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 =  68
        err = 0.7233156057580019D-07
        xs(  1) = 0.6971363881340706D+00
        xs(  2) = 0.1599706195811020D+01
        xs(  3) = 0.2506376318520797D+01
        xs(  4) = 0.3412329139816633D+01
        xs(  5) = 0.4316143616253105D+01
        xs(  6) = 0.5216934450174717D+01
        xs(  7) = 0.6113981074094729D+01
        xs(  8) = 0.7006645668622555D+01
        xs(  9) = 0.7894347332482618D+01
        xs( 10) = 0.8776554884576806D+01
        xs( 11) = 0.9652786322453862D+01
        xs( 12) = 0.1052260545546157D+02
        xs( 13) = 0.1138562672442189D+02
        xs( 14) = 0.1224150959505704D+02
        xs( 15) = 0.1308996283581830D+02
        xs( 16) = 0.1393073719459624D+02
        xs( 17) = 0.1476362644716801D+02
        xs( 18) = 0.1558846057428020D+02
        xs( 19) = 0.1640510348474494D+02
        xs( 20) = 0.1721344833933581D+02
        xs( 21) = 0.1801341535696441D+02
        xs( 22) = 0.1880495170801504D+02
        xs( 23) = 0.1958803007943100D+02
        xs( 24) = 0.2036264813159517D+02
        xs( 25) = 0.2112882392011636D+02
        xs( 26) = 0.2188658994561322D+02
        xs( 27) = 0.2263598807714472D+02
        xs( 28) = 0.2337706834607176D+02
        xs( 29) = 0.2410989187021527D+02
        xs( 30) = 0.2483453616957188D+02
        xs( 31) = 0.2555109422428652D+02
        xs( 32) = 0.2625966906571055D+02
        xs( 33) = 0.2696036237691084D+02
        xs( 34) = 0.2765326636011963D+02
        xs( 35) = 0.2833847441988660D+02
        xs( 36) = 0.2901611222140043D+02
        xs( 37) = 0.2968638299654584D+02
        xs( 38) = 0.3034958738090297D+02
        xs( 39) = 0.3100609857924041D+02
        xs( 40) = 0.3165629379570204D+02
        xs( 41) = 0.3230049736024565D+02
        xs( 42) = 0.3293897492877572D+02
        xs( 43) = 0.3357197446633259D+02
        xs( 44) = 0.3419977152570721D+02
        xs( 45) = 0.3482266170863028D+02
        xs( 46) = 0.3544091598438254D+02
        xs( 47) = 0.3605472133555169D+02
        xs( 48) = 0.3666415246746348D+02
        xs( 49) = 0.3726918566091063D+02
        xs( 50) = 0.3786973321842911D+02
        xs( 51) = 0.3846571361419172D+02
        xs( 52) = 0.3905711730689919D+02
        xs( 53) = 0.3964409022779771D+02
        xs( 54) = 0.4022698501188592D+02
        xs( 55) = 0.4080639946109895D+02
        xs( 56) = 0.4138315134460252D+02
        xs( 57) = 0.4195823273968340D+02
        xs( 58) = 0.4253272995246137D+02
        xs( 59) = 0.4310780505401143D+02
        xs( 60) = 0.4368479482065872D+02
        xs( 61) = 0.4426547318235093D+02
        xs( 62) = 0.4485226733533180D+02
        xs( 63) = 0.4544906121544234D+02
        xs( 64) = 0.4606167294094056D+02
        xs( 65) = 0.4669675191676477D+02
        xs( 66) = 0.4736149754137414D+02
        xs( 67) = 0.4809046108463925D+02
        xs( 68) = 0.4895063292446233D+02
        ws(  1) = 0.8944066283615505D+00
        ws(  2) = 0.9061498392618136D+00
        ws(  3) = 0.9066368310634600D+00
        ws(  4) = 0.9050537036720496D+00
        ws(  5) = 0.9024319649694583D+00
        ws(  6) = 0.8990303965545851D+00
        ws(  7) = 0.8949569600507732D+00
        ws(  8) = 0.8902757793148544D+00
        ws(  9) = 0.8850391264640524D+00
        ws( 10) = 0.8792957909126612D+00
        ws( 11) = 0.8730940289346305D+00
        ws( 12) = 0.8664802148304411D+00
        ws( 13) = 0.8595050420158205D+00
        ws( 14) = 0.8522129994516794D+00
        ws( 15) = 0.8446516185950717D+00
        ws( 16) = 0.8368628512142816D+00
        ws( 17) = 0.8288869796212291D+00
        ws( 18) = 0.8207588168829365D+00
        ws( 19) = 0.8125093583473274D+00
        ws( 20) = 0.8041670416495478D+00
        ws( 21) = 0.7957584692298288D+00
        ws( 22) = 0.7873095611663836D+00
        ws( 23) = 0.7788465384934085D+00
        ws( 24) = 0.7703926064452757D+00
        ws( 25) = 0.7619645965066352D+00
        ws( 26) = 0.7535745188905492D+00
        ws( 27) = 0.7452300280727157D+00
        ws( 28) = 0.7369404610381112D+00
        ws( 29) = 0.7287197272913524D+00
        ws( 30) = 0.7205841520685146D+00
        ws( 31) = 0.7125490831812579D+00
        ws( 32) = 0.7046180307922945D+00
        ws( 33) = 0.6967838464111413D+00
        ws( 34) = 0.6890389943343544D+00
        ws( 35) = 0.6813969801158231D+00
        ws( 36) = 0.6739122368460789D+00
        ws( 37) = 0.6666797373786963D+00
        ws( 38) = 0.6597925560949395D+00
        ws( 39) = 0.6532934368527222D+00
        ws( 40) = 0.6471511926506229D+00
        ws( 41) = 0.6412994676029554D+00
        ws( 42) = 0.6356954742785065D+00
        ws( 43) = 0.6303499152252964D+00
        ws( 44) = 0.6252937177449488D+00
        ws( 45) = 0.6205328015335377D+00
        ws( 46) = 0.6160073607700074D+00
        ws( 47) = 0.6116148104782396D+00
        ws( 48) = 0.6072429414757039D+00
        ws( 49) = 0.6028074150513321D+00
        ws( 50) = 0.5982739837054963D+00
        ws( 51) = 0.5936831540172243D+00
        ws( 52) = 0.5891494433644558D+00
        ws( 53) = 0.5848565961093583D+00
        ws( 54) = 0.5810355391928445D+00
        ws( 55) = 0.5779328556317576D+00
        ws( 56) = 0.5757440568666438D+00
        ws( 57) = 0.5746043933268195D+00
        ws( 58) = 0.5745821213483443D+00
        ws( 59) = 0.5757928190935807D+00
        ws( 60) = 0.5784543650330645D+00
        ws( 61) = 0.5831994572298979D+00
        ws( 62) = 0.5910290294411872D+00
        ws( 63) = 0.6027198207654856D+00
        ws( 64) = 0.6220840697643248D+00
        ws( 65) = 0.6482003428980831D+00
        ws( 66) = 0.6688963989788991D+00
        ws( 67) = 0.7642359418313250D+00
        ws( 68) = 0.9304556530859917D+00
        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 =  72
        err = 0.6480261137144801D-07
        xs(  1) = 0.6994380541763485D+00
        xs(  2) = 0.1605039378998908D+01
        xs(  3) = 0.2514886238956960D+01
        xs(  4) = 0.3424219074487525D+01
        xs(  5) = 0.4331681516596916D+01
        xs(  6) = 0.5236450994350162D+01
        xs(  7) = 0.6137866336008188D+01
        xs(  8) = 0.7035342743610423D+01
        xs(  9) = 0.7928345090904757D+01
        xs( 10) = 0.8816382280988586D+01
        xs( 11) = 0.9699003403235134D+01
        xs( 12) = 0.1057579728562982D+02
        xs( 13) = 0.1144639604910398D+02
        xs( 14) = 0.1231047201437823D+02
        xs( 15) = 0.1316774197797809D+02
        xs( 16) = 0.1401796225522452D+02
        xs( 17) = 0.1486092943817281D+02
        xs( 18) = 0.1569647542414274D+02
        xs( 19) = 0.1652446300605570D+02
        xs( 20) = 0.1734478204378923D+02
        xs( 21) = 0.1815734383053913D+02
        xs( 22) = 0.1896207885537634D+02
        xs( 23) = 0.1975893234252921D+02
        xs( 24) = 0.2054786523546295D+02
        xs( 25) = 0.2132885168749708D+02
        xs( 26) = 0.2210188074618206D+02
        xs( 27) = 0.2286695378512731D+02
        xs( 28) = 0.2362408727956425D+02
        xs( 29) = 0.2437330745773936D+02
        xs( 30) = 0.2511465104215991D+02
        xs( 31) = 0.2584816056181231D+02
        xs( 32) = 0.2657388046445979D+02
        xs( 33) = 0.2729185355671873D+02
        xs( 34) = 0.2800212196070706D+02
        xs( 35) = 0.2870472740566184D+02
        xs( 36) = 0.2939972246704947D+02
        xs( 37) = 0.3008717506566864D+02
        xs( 38) = 0.3076717874238097D+02
        xs( 39) = 0.3143985182350614D+02
        xs( 40) = 0.3210533197847389D+02
        xs( 41) = 0.3276377037389920D+02
        xs( 42) = 0.3341533434116821D+02
        xs( 43) = 0.3406023073464764D+02
        xs( 44) = 0.3469873051361386D+02
        xs( 45) = 0.3533118309038009D+02
        xs( 46) = 0.3595799404675551D+02
        xs( 47) = 0.3657956658113845D+02
        xs( 48) = 0.3719621705793470D+02
        xs( 49) = 0.3780810313883754D+02
        xs( 50) = 0.3841520975210583D+02
        xs( 51) = 0.3901742681532343D+02
        xs( 52) = 0.3961468524879089D+02
        xs( 53) = 0.4020708844800335D+02
        xs( 54) = 0.4079497601067838D+02
        xs( 55) = 0.4137886322116464D+02
        xs( 56) = 0.4195934090379450D+02
        xs( 57) = 0.4253696588957364D+02
        xs( 58) = 0.4311220594451631D+02
        xs( 59) = 0.4368545026566349D+02
        xs( 60) = 0.4425701616467491D+02
        xs( 61) = 0.4482719795769142D+02
        xs( 62) = 0.4539637435526567D+02
        xs( 63) = 0.4596505549908058D+02
        xs( 64) = 0.4653411943688246D+02
        xs( 65) = 0.4710484401262448D+02
        xs( 66) = 0.4767930850566937D+02
        xs( 67) = 0.4826015377676513D+02
        xs( 68) = 0.4885206818432483D+02
        xs( 69) = 0.4946204506066994D+02
        xs( 70) = 0.5009378126002337D+02
        xs( 71) = 0.5076982773045042D+02
        xs( 72) = 0.5155163378852503D+02
        ws(  1) = 0.8973726192173832D+00
        ws(  2) = 0.9092445174163390D+00
        ws(  3) = 0.9099059323143556D+00
        ws(  4) = 0.9085563944445659D+00
        ws(  5) = 0.9062356415445550D+00
        ws(  6) = 0.9031943434788844D+00
        ws(  7) = 0.8995387748190752D+00
        ws(  8) = 0.8953244713655506D+00
        ws(  9) = 0.8905984076655290D+00
        ws( 10) = 0.8854014853299103D+00
        ws( 11) = 0.8797719886903903D+00
        ws( 12) = 0.8737549549659487D+00
        ws( 13) = 0.8673874262931919D+00
        ws( 14) = 0.8607173643535935D+00
        ws( 15) = 0.8537818381030547D+00
        ws( 16) = 0.8466252251909625D+00
        ws( 17) = 0.8392814807291940D+00
        ws( 18) = 0.8317872213589650D+00
        ws( 19) = 0.8241697803472476D+00
        ws( 20) = 0.8164533371848396D+00
        ws( 21) = 0.8086589450036445D+00
        ws( 22) = 0.8008018985789800D+00
        ws( 23) = 0.7928990249951782D+00
        ws( 24) = 0.7849623014754920D+00
        ws( 25) = 0.7770087754350502D+00
        ws( 26) = 0.7690492867967571D+00
        ws( 27) = 0.7611000015244573D+00
        ws( 28) = 0.7531713931590091D+00
        ws( 29) = 0.7452750929867054D+00
        ws( 30) = 0.7374194141724445D+00
        ws( 31) = 0.7296073992054103D+00
        ws( 32) = 0.7218392037854054D+00
        ws( 33) = 0.7141142376590272D+00
        ws( 34) = 0.7064292585346063D+00
        ws( 35) = 0.6987908011844699D+00
        ws( 36) = 0.6912104913016099D+00
        ws( 37) = 0.6837102030904795D+00
        ws( 38) = 0.6763171724305923D+00
        ws( 39) = 0.6690524552566334D+00
        ws( 40) = 0.6619330591753994D+00
        ws( 41) = 0.6549709160728072D+00
        ws( 42) = 0.6481916416851249D+00
        ws( 43) = 0.6416462147727303D+00
        ws( 44) = 0.6354121791615065D+00
        ws( 45) = 0.6295613894028290D+00
        ws( 46) = 0.6241295892544464D+00
        ws( 47) = 0.6190704419184330D+00
        ws( 48) = 0.6142571632525003D+00
        ws( 49) = 0.6095113368427311D+00
        ws( 50) = 0.6046822569785257D+00
        ws( 51) = 0.5997381031222098D+00
        ws( 52) = 0.5947947610394215D+00
        ws( 53) = 0.5900704597291904D+00
        ws( 54) = 0.5857906380797731D+00
        ws( 55) = 0.5820847399273898D+00
        ws( 56) = 0.5789627277463943D+00
        ws( 57) = 0.5763615797294425D+00
        ws( 58) = 0.5741837987387806D+00
        ws( 59) = 0.5723509577268410D+00
        ws( 60) = 0.5708216843970993D+00
        ws( 61) = 0.5695985516371843D+00
        ws( 62) = 0.5688130524744235D+00
        ws( 63) = 0.5686790118630152D+00
        ws( 64) = 0.5696110441592942D+00
        ws( 65) = 0.5721725999289342D+00
        ws( 66) = 0.5770616276788565D+00
        ws( 67) = 0.5852074523850784D+00
        ws( 68) = 0.5996084446809392D+00
        ws( 69) = 0.6188348054763807D+00
        ws( 70) = 0.6418253574021388D+00
        ws( 71) = 0.6726200543786564D+00
        ws( 72) = 0.8854393299247242D+00
        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 =  18
        err = 0.9682702171413652D-07
        xs(  1) = 0.6490457321729947D+00
        xs(  2) = 0.1492275351684378D+01
        xs(  3) = 0.2346131796083147D+01
        xs(  4) = 0.3209549238837229D+01
        xs(  5) = 0.4084099082765233D+01
        xs(  6) = 0.4971286237410626D+01
        xs(  7) = 0.5872242016239076D+01
        xs(  8) = 0.6787727307113065D+01
        xs(  9) = 0.7718210580012579D+01
        xs( 10) = 0.8663965483382896D+01
        xs( 11) = 0.9625154856219115D+01
        xs( 12) = 0.1060192249905276D+02
        xs( 13) = 0.1159446346166542D+02
        xs( 14) = 0.1260306641497119D+02
        xs( 15) = 0.1362837554652957D+02
        xs( 16) = 0.1467066284494616D+02
        xs( 17) = 0.1573399872544123D+02
        xs( 18) = 0.1679819112813414D+02
        ws(  1) = 0.8334770025096180D+00
        ws(  2) = 0.8493575815656985D+00
        ws(  3) = 0.8584118410300778D+00
        ws(  4) = 0.8687072935726794D+00
        ws(  5) = 0.8806473901193527D+00
        ws(  6) = 0.8939173036591421D+00
        ws(  7) = 0.9081230226886651D+00
        ws(  8) = 0.9229305748378446D+00
        ws(  9) = 0.9380938652424600D+00
        ws( 10) = 0.9534667832629556D+00
        ws( 11) = 0.9689984784740371D+00
        ws( 12) = 0.9846992633155691D+00
        ws( 13) = 0.1000782328196978D+01
        ws( 14) = 0.1017423037148150D+01
        ws( 15) = 0.1035804761067639D+01
        ws( 16) = 0.1057562191588329D+01
        ws( 17) = 0.1094641240630829D+01
        ws( 18) = 0.1229071060344548D+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 =  18
        err = 0.9739060383359459D-07
        xs(  1) = 0.6490638576330428D+00
        xs(  2) = 0.1492315985406838D+01
        xs(  3) = 0.2346192967766822D+01
        xs(  4) = 0.3209628181597881D+01
        xs(  5) = 0.4084192801050130D+01
        xs(  6) = 0.4971391913151179D+01
        xs(  7) = 0.5872357243794062D+01
        xs(  8) = 0.6787850160191338D+01
        xs(  9) = 0.7718339551288711D+01
        xs( 10) = 0.8664099345859677D+01
        xs( 11) = 0.9625292490058436D+01
        xs( 12) = 0.1060206271026302D+02
        xs( 13) = 0.1159460478567768D+02
        xs( 14) = 0.1260320693007733D+02
        xs( 15) = 0.1362851257069701D+02
        xs( 16) = 0.1467079240103655D+02
        xs( 17) = 0.1573411543767042D+02
        xs( 18) = 0.1679827674901449D+02
        ws(  1) = 0.8334999978729614D+00
        ws(  2) = 0.8493792964891240D+00
        ws(  3) = 0.8584310748308818D+00
        ws(  4) = 0.8687235659123256D+00
        ws(  5) = 0.8806607017701892D+00
        ws(  6) = 0.8939279789977078D+00
        ws(  7) = 0.9081315337568733D+00
        ws(  8) = 0.9229373878934654D+00
        ws(  9) = 0.9380993387196511D+00
        ws( 10) = 0.9534711172345574D+00
        ws( 11) = 0.9690016870584069D+00
        ws( 12) = 0.9847011888579116D+00
        ws( 13) = 0.1000782623220249D+01
        ws( 14) = 0.1017421126414018D+01
        ws( 15) = 0.1035799917605580D+01
        ws( 16) = 0.1057552490316319D+01
        ws( 17) = 0.1094628124908823D+01
        ws( 18) = 0.1229013799494925D+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 =  19
        err = 0.5625233769121687D-07
        xs(  1) = 0.6421186113594157D+00
        xs(  2) = 0.1476329639633763D+01
        xs(  3) = 0.2321016267151383D+01
        xs(  4) = 0.3175117995850283D+01
        xs(  5) = 0.4040197745125526D+01
        xs(  6) = 0.4917763714876817D+01
        xs(  7) = 0.5808958451194563D+01
        xs(  8) = 0.6714555902759773D+01
        xs(  9) = 0.7635033771555365D+01
        xs( 10) = 0.8570663794593488D+01
        xs( 11) = 0.9521599827886822D+01
        xs( 12) = 0.1048795790207875D+02
        xs( 13) = 0.1146989144256980D+02
        xs( 14) = 0.1246766443859719D+02
        xs( 15) = 0.1348173278294595D+02
        xs( 16) = 0.1451292797218465D+02
        xs( 17) = 0.1556248016222194D+02
        xs( 18) = 0.1663087877702143D+02
        xs( 19) = 0.1773881416808571D+02
        ws(  1) = 0.8245759631144424D+00
        ws(  2) = 0.8402569520161115D+00
        ws(  3) = 0.8491708859777374D+00
        ws(  4) = 0.8593146491230468D+00
        ws(  5) = 0.8710998329866030D+00
        ws(  6) = 0.8842228126537627D+00
        ws(  7) = 0.8982953726048635D+00
        ws(  8) = 0.9129795028839884D+00
        ws(  9) = 0.9280238025427675D+00
        ws( 10) = 0.9432681174644383D+00
        ws( 11) = 0.9586384549882028D+00
        ws( 12) = 0.9741394184412455D+00
        ws( 13) = 0.9898582152379091D+00
        ws( 14) = 0.1005987652561178D+01
        ws( 15) = 0.1022923723546496D+01
        ws( 16) = 0.1040853349961868D+01
        ws( 17) = 0.1069055266325075D+01
        ws( 18) = 0.1053995233532887D+01
        ws( 19) = 0.1461592515158601D+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 =  19
        err = 0.6307929560766554D-07
        xs(  1) = 0.6423828993487071D+00
        xs(  2) = 0.1476916414038733D+01
        xs(  3) = 0.2321884457450897D+01
        xs(  4) = 0.3176210942412798D+01
        xs(  5) = 0.4041454036598730D+01
        xs(  6) = 0.4919124728553399D+01
        xs(  7) = 0.5810372077761073D+01
        xs(  8) = 0.6715976713926694D+01
        xs(  9) = 0.7636420786312517D+01
        xs( 10) = 0.8571977202384584D+01
        xs( 11) = 0.9522797750734489D+01
        xs( 12) = 0.1048899388037724D+02
        xs( 13) = 0.1147071289962716D+02
        xs( 14) = 0.1246821197749088D+02
        xs( 15) = 0.1348194095720620D+02
        xs( 16) = 0.1451272429968822D+02
        xs( 17) = 0.1556180144919773D+02
        xs( 18) = 0.1662955077258521D+02
        xs( 19) = 0.1773750852822877D+02
        ws(  1) = 0.8249097218071370D+00
        ws(  2) = 0.8405625922036923D+00
        ws(  3) = 0.8494255610538100D+00
        ws(  4) = 0.8595087438054013D+00
        ws(  5) = 0.8712329602825239D+00
        ws(  6) = 0.8843002810611766D+00
        ws(  7) = 0.8983242920563950D+00
        ws(  8) = 0.9129657265144725D+00
        ws(  9) = 0.9279702093135975D+00
        ws( 10) = 0.9431741851327420D+00
        ws( 11) = 0.9585007509850610D+00
        ws( 12) = 0.9739524036607669D+00
        ws( 13) = 0.9896154903168204D+00
        ws( 14) = 0.1005682495419405D+01
        ws( 15) = 0.1022550852424666D+01
        ws( 16) = 0.1040406702455064D+01
        ws( 17) = 0.1068548157868249D+01
        ws( 18) = 0.1053341581334384D+01
        ws( 19) = 0.1461961599131148D+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 =  19
        err = 0.8195551042868840D-07
        xs(  1) = 0.6423796874349892D+00
        xs(  2) = 0.1476848886565125D+01
        xs(  3) = 0.2321625507461553D+01
        xs(  4) = 0.3175600457378226D+01
        xs(  5) = 0.4040332870493648D+01
        xs(  6) = 0.4917358008972665D+01
        xs(  7) = 0.5807856426804586D+01
        xs(  8) = 0.6712632922272505D+01
        xs(  9) = 0.7632177676605726D+01
        xs( 10) = 0.8566753232148429D+01
        xs( 11) = 0.9516485312610612D+01
        xs( 12) = 0.1048144951572912D+02
        xs( 13) = 0.1146175483128921D+02
        xs( 14) = 0.1245762356773990D+02
        xs( 15) = 0.1346948929869049D+02
        xs( 16) = 0.1449815431679620D+02
        xs( 17) = 0.1554509422950910D+02
        xs( 18) = 0.1660935054321130D+02
        xs( 19) = 0.1772229911798989D+02
        ws(  1) = 0.8248892352222911D+00
        ws(  2) = 0.8404432218250569D+00
        ws(  3) = 0.8491565623241114D+00
        ws(  4) = 0.8590750289945041D+00
        ws(  5) = 0.8706496439937628D+00
        ws(  6) = 0.8835980139183048D+00
        ws(  7) = 0.8975329073143469D+00
        ws(  8) = 0.9121022688980053D+00
        ws(  9) = 0.9270333943057387D+00
        ws( 10) = 0.9421449954123760D+00
        ws( 11) = 0.9573474134275678D+00
        ws( 12) = 0.9726361416691991D+00
        ws( 13) = 0.9881000073572040D+00
        ws( 14) = 0.1003937973380174D+01
        ws( 15) = 0.1020570306249322D+01
        ws( 16) = 0.1038190343486922D+01
        ws( 17) = 0.1066269600066251D+01
        ws( 18) = 0.1050629432916403D+01
        ws( 19) = 0.1469899701367439D+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 =  18
        err = 0.8295374188927266D-07
        xs(  1) = 0.6394215731243695D+00
        xs(  2) = 0.1470206530643899D+01
        xs(  3) = 0.2311626690663639D+01
        xs(  4) = 0.3162775760063102D+01
        xs(  5) = 0.4025378871391518D+01
        xs(  6) = 0.4901104611423797D+01
        xs(  7) = 0.5791233840777690D+01
        xs(  8) = 0.6696644420219860D+01
        xs(  9) = 0.7617881279362462D+01
        xs( 10) = 0.8555255723481210D+01
        xs( 11) = 0.9508945277696659D+01
        xs( 12) = 0.1047909206569733D+02
        xs( 13) = 0.1146589314342766D+02
        xs( 14) = 0.1246968650453311D+02
        xs( 15) = 0.1349109317778434D+02
        xs( 16) = 0.1453094821963379D+02
        xs( 17) = 0.1559163620357710D+02
        xs( 18) = 0.1667157389307929D+02
        ws(  1) = 0.8211310368586844D+00
        ws(  2) = 0.8368844277557916D+00
        ws(  3) = 0.8460351325895697D+00
        ws(  4) = 0.8565727069235454D+00
        ws(  5) = 0.8689166417896290D+00
        ws(  6) = 0.8827507074549320D+00
        ws(  7) = 0.8976573256820402D+00
        ws(  8) = 0.9132613824839279D+00
        ws(  9) = 0.9292791776683614D+00
        ws( 10) = 0.9455308240883843D+00
        ws( 11) = 0.9619409983215080D+00
        ws( 12) = 0.9785399753244080D+00
        ws( 13) = 0.9954992918163690D+00
        ws( 14) = 0.1013150964882759D+01
        ws( 15) = 0.1032472639645136D+01
        ws( 16) = 0.1055883833022033D+01
        ws( 17) = 0.1090837696248625D+01
        ws( 18) = 0.1263228469324408D+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 =  19
        err = 0.7307110234577344D-07
        xs(  1) = 0.6341429550259937D+00
        xs(  2) = 0.1457730672369568D+01
        xs(  3) = 0.2291176561040634D+01
        xs(  4) = 0.3133432247353671D+01
        xs(  5) = 0.3986226075100352D+01
        xs(  6) = 0.4851347217042268D+01
        xs(  7) = 0.5730248611734284D+01
        xs(  8) = 0.6623992836214472D+01
        xs(  9) = 0.7533288026322930D+01
        xs( 10) = 0.8458570071244907D+01
        xs( 11) = 0.9400103100747833D+01
        xs( 12) = 0.1035805799486273D+02
        xs( 13) = 0.1133262267580022D+02
        xs( 14) = 0.1232406688799383D+02
        xs( 15) = 0.1333286882507420D+02
        xs( 16) = 0.1435978008971605D+02
        xs( 17) = 0.1540710305998752D+02
        xs( 18) = 0.1646667083890440D+02
        xs( 19) = 0.1762019052738715D+02
        ws(  1) = 0.8142578788524462D+00
        ws(  2) = 0.8293349096455805D+00
        ws(  3) = 0.8376109116075702D+00
        ws(  4) = 0.8472096751980939D+00
        ws(  5) = 0.8586819852567028D+00
        ws(  6) = 0.8718026878087139D+00
        ws(  7) = 0.8861795210997088D+00
        ws(  8) = 0.9014289222731839D+00
        ws(  9) = 0.9172398769456096D+00
        ws( 10) = 0.9333814555761498D+00
        ws( 11) = 0.9497359122617594D+00
        ws( 12) = 0.9662667453040878D+00
        ws( 13) = 0.9830231717927489D+00
        ws( 14) = 0.1000252478331033D+01
        ws( 15) = 0.1018238907428509D+01
        ws( 16) = 0.1037460338194467D+01
        ws( 17) = 0.1066062114029006D+01
        ws( 18) = 0.1059137895794441D+01
        ws( 19) = 0.1496702190747939D+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 =  19
        err = 0.6212674803764849D-07
        xs(  1) = 0.6159062366730573D+00
        xs(  2) = 0.1415487364820965D+01
        xs(  3) = 0.2223918453976939D+01
        xs(  4) = 0.3039934756498977D+01
        xs(  5) = 0.3865226833447678D+01
        xs(  6) = 0.4701831546000697D+01
        xs(  7) = 0.5551695913875563D+01
        xs(  8) = 0.6416484061312578D+01
        xs(  9) = 0.7297479389544277D+01
        xs( 10) = 0.8195581457259365D+01
        xs( 11) = 0.9111376779299528D+01
        xs( 12) = 0.1004521376559893D+02
        xs( 13) = 0.1099705380683418D+02
        xs( 14) = 0.1196717927870122D+02
        xs( 15) = 0.1295567452177099D+02
        xs( 16) = 0.1396220952374503D+02
        xs( 17) = 0.1498957119618792D+02
        xs( 18) = 0.1602751811466343D+02
        xs( 19) = 0.1710274666967114D+02
        ws(  1) = 0.7907570087084330D+00
        ws(  2) = 0.8048573835522267D+00
        ws(  3) = 0.8120132542031048D+00
        ws(  4) = 0.8203210663724227D+00
        ws(  5) = 0.8306089710294945D+00
        ws(  6) = 0.8429263948818754D+00
        ws(  7) = 0.8570793417698648D+00
        ws(  8) = 0.8727109898053353D+00
        ws(  9) = 0.8894067551359915D+00
        ws( 10) = 0.9068705832145443D+00
        ws( 11) = 0.9247837815974337D+00
        ws( 12) = 0.9428790563881565D+00
        ws( 13) = 0.9614026901477482D+00
        ws( 14) = 0.9796686720622297D+00
        ws( 15) = 0.1000907711919815D+01
        ws( 16) = 0.1018470016839480D+01
        ws( 17) = 0.1053474391520483D+01
        ws( 18) = 0.1073838989360016D+01
        ws( 19) = 0.1202919048765712D+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 =  20
        err = 0.5380677628207687D-07
        xs(  1) = 0.6174700487182728D+00
        xs(  2) = 0.1417049769409064D+01
        xs(  3) = 0.2220969380244485D+01
        xs(  4) = 0.3026122477367617D+01
        xs(  5) = 0.3833055539398527D+01
        xs(  6) = 0.4643357923334030D+01
        xs(  7) = 0.5459230817683053D+01
        xs(  8) = 0.6283228694912111D+01
        xs(  9) = 0.7118082800364351D+01
        xs( 10) = 0.7966492104326893D+01
        xs( 11) = 0.8830920461663968D+01
        xs( 12) = 0.9713460314301596D+01
        xs( 13) = 0.1061581031691897D+02
        xs( 14) = 0.1153905848603765D+02
        xs( 15) = 0.1248401082894092D+02
        xs( 16) = 0.1345099199257341D+02
        xs( 17) = 0.1443795580110087D+02
        xs( 18) = 0.1545239961521040D+02
        xs( 19) = 0.1650601880059853D+02
        xs( 20) = 0.1761602693912659D+02
        ws(  1) = 0.7922178101351727D+00
        ws(  2) = 0.8029661298722923D+00
        ws(  3) = 0.8045764543827968D+00
        ws(  4) = 0.8058442944761203D+00
        ws(  5) = 0.8082934111250786D+00
        ws(  6) = 0.8126830372757744D+00
        ws(  7) = 0.8194896801722327D+00
        ws(  8) = 0.8289594306096666D+00
        ws(  9) = 0.8411984637197457D+00
        ws( 10) = 0.8560133901242012D+00
        ws( 11) = 0.8731953681538444D+00
        ws( 12) = 0.8921476421723149D+00
        ws( 13) = 0.9126429249442010D+00
        ws( 14) = 0.9341680208219119D+00
        ws( 15) = 0.9554224706309299D+00
        ws( 16) = 0.9782270760370633D+00
        ws( 17) = 0.9992069646680709D+00
        ws( 18) = 0.1017791102551993D+01
        ws( 19) = 0.1128729803431938D+01
        ws( 20) = 0.1499588160470719D+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 =  22
        err = 0.5572841236155058D-07
        xs(  1) = 0.6352805731370413D+00
        xs(  2) = 0.1457277787885484D+01
        xs(  3) = 0.2281981840381786D+01
        xs(  4) = 0.3104736709612419D+01
        xs(  5) = 0.3924402375739111D+01
        xs(  6) = 0.4740849884689977D+01
        xs(  7) = 0.5554661692365835D+01
        xs(  8) = 0.6367063113532153D+01
        xs(  9) = 0.7179876414259711D+01
        xs( 10) = 0.7995422574555040D+01
        xs( 11) = 0.8816466723630528D+01
        xs( 12) = 0.9646074917378021D+01
        xs( 13) = 0.1048750190259776D+02
        xs( 14) = 0.1134395586151348D+02
        xs( 15) = 0.1221840478920030D+02
        xs( 16) = 0.1311364308102880D+02
        xs( 17) = 0.1403082937713868D+02
        xs( 18) = 0.1497099732617634D+02
        xs( 19) = 0.1594123773861260D+02
        xs( 20) = 0.1690150528021055D+02
        xs( 21) = 0.1800553555202655D+02
        xs( 22) = 0.1892619527262141D+02
        ws(  1) = 0.8149121098296234D+00
        ws(  2) = 0.8248174480887667D+00
        ws(  3) = 0.8240384889931950D+00
        ws(  4) = 0.8212984684687695D+00
        ws(  5) = 0.8180148968708403D+00
        ws(  6) = 0.8149768666473849D+00
        ws(  7) = 0.8128509206170974D+00
        ws(  8) = 0.8122586697724367D+00
        ws(  9) = 0.8137511369581923D+00
        ws( 10) = 0.8178087988156592D+00
        ws( 11) = 0.8247846454239242D+00
        ws( 12) = 0.8349804462381180D+00
        ws( 13) = 0.8484204721816208D+00
        ws( 14) = 0.8650067733495989D+00
        ws( 15) = 0.8843133273610237D+00
        ws( 16) = 0.9058209848262750D+00
        ws( 17) = 0.9289061010109403D+00
        ws( 18) = 0.9510401298462017D+00
        ws( 19) = 0.9773042547975711D+00
        ws( 20) = 0.1017722845611300D+01
        ws( 21) = 0.8581039418392657D+00
        ws( 22) = 0.1818366735839546D+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 =  23
        err = 0.7880292248000839D-07
        xs(  1) = 0.5494523212743840D+00
        xs(  2) = 0.1295524813384375D+01
        xs(  3) = 0.2085695954182282D+01
        xs(  4) = 0.2899189636658308D+01
        xs(  5) = 0.3722539835172801D+01
        xs(  6) = 0.4548696456488784D+01
        xs(  7) = 0.5373985276426795D+01
        xs(  8) = 0.6196558590003824D+01
        xs(  9) = 0.7015695999743629D+01
        xs( 10) = 0.7831398304441298D+01
        xs( 11) = 0.8644368126689136D+01
        xs( 12) = 0.9455739334793853D+01
        xs( 13) = 0.1026732372631619D+02
        xs( 14) = 0.1108149934687036D+02
        xs( 15) = 0.1190106269811519D+02
        xs( 16) = 0.1272913139964204D+02
        xs( 17) = 0.1356908270600923D+02
        xs( 18) = 0.1442261153320111D+02
        xs( 19) = 0.1529129347302820D+02
        xs( 20) = 0.1616654658282406D+02
        xs( 21) = 0.1710304223908573D+02
        xs( 22) = 0.1798451855157041D+02
        xs( 23) = 0.1975469436044889D+02
        ws(  1) = 0.7166025103431921D+00
        ws(  2) = 0.7718809916891116D+00
        ws(  3) = 0.8047897394333849D+00
        ws(  4) = 0.8200105782500827D+00
        ws(  5) = 0.8255710923925677D+00
        ws(  6) = 0.8261566550813757D+00
        ws(  7) = 0.8241240512371606D+00
        ws(  8) = 0.8209094634571553D+00
        ws(  9) = 0.8173662279006887D+00
        ws( 10) = 0.8141609298423110D+00
        ws( 11) = 0.8119204721712406D+00
        ws( 12) = 0.8111840358514346D+00
        ws( 13) = 0.8124348710278454D+00
        ws( 14) = 0.8163495857253824D+00
        ws( 15) = 0.8231488574858752D+00
        ws( 16) = 0.8336180573382596D+00
        ws( 17) = 0.8458207067930459D+00
        ws( 18) = 0.8606307067293376D+00
        ws( 19) = 0.8800127311927460D+00
        ws( 20) = 0.8701192555166277D+00
        ws( 21) = 0.9133647264904418D+00
        ws( 22) = 0.1206228135173571D+01
        ws( 23) = 0.2005636348250296D+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 =  24
        err = 0.6927577074933551D-07
        xs(  1) = 0.6797823734285674D+00
        xs(  2) = 0.1559268850012959D+01
        xs(  3) = 0.2441279700329632D+01
        xs(  4) = 0.3320428768015489D+01
        xs(  5) = 0.4194827090708425D+01
        xs(  6) = 0.5063278485224515D+01
        xs(  7) = 0.5924959704603818D+01
        xs(  8) = 0.6779361357010969D+01
        xs(  9) = 0.7626297122763294D+01
        xs( 10) = 0.8465906732402491D+01
        xs( 11) = 0.9298699815027136D+01
        xs( 12) = 0.1012551993497065D+02
        xs( 13) = 0.1094749069630710D+02
        xs( 14) = 0.1176617402319983D+02
        xs( 15) = 0.1258358989437572D+02
        xs( 16) = 0.1340159970860688D+02
        xs( 17) = 0.1422391275595574D+02
        xs( 18) = 0.1505363591070560D+02
        xs( 19) = 0.1589630130194897D+02
        xs( 20) = 0.1675089570842498D+02
        xs( 21) = 0.1763676379290759D+02
        xs( 22) = 0.1851248053250562D+02
        xs( 23) = 0.1953390336799844D+02
        xs( 24) = 0.2045201222521515D+02
        ws(  1) = 0.8720032413098667D+00
        ws(  2) = 0.8823551912091241D+00
        ws(  3) = 0.8810000535276425D+00
        ws(  4) = 0.8770085161488024D+00
        ws(  5) = 0.8715893745174434D+00
        ws(  6) = 0.8651820692321356D+00
        ws(  7) = 0.8580960656067612D+00
        ws(  8) = 0.8506750588355368D+00
        ws(  9) = 0.8432234125451971D+00
        ws( 10) = 0.8360745227981697D+00
        ws( 11) = 0.8296477725859294D+00
        ws( 12) = 0.8241861929803704D+00
        ws( 13) = 0.8200434904608892D+00
        ws( 14) = 0.8176818977475951D+00
        ws( 15) = 0.8172756366042894D+00
        ws( 16) = 0.8194074235979057D+00
        ws( 17) = 0.8256948472460079D+00
        ws( 18) = 0.8355542389596645D+00
        ws( 19) = 0.8484131606656884D+00
        ws( 20) = 0.8570677505597984D+00
        ws( 21) = 0.9240862813594513D+00
        ws( 22) = 0.8638098545654816D+00
        ws( 23) = 0.8025789288602811D+00
        ws( 24) = 0.1846349820911470D+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 =  26
        err = 0.6894492500497585D-07
        xs(  1) = 0.6919227119080404D+00
        xs(  2) = 0.1587239107146821D+01
        xs(  3) = 0.2485440040843180D+01
        xs(  4) = 0.3381185622091804D+01
        xs(  5) = 0.4272670467897082D+01
        xs(  6) = 0.5158770399927567D+01
        xs(  7) = 0.6038591304218100D+01
        xs(  8) = 0.6911427558946574D+01
        xs(  9) = 0.7776851261760124D+01
        xs( 10) = 0.8634573037560402D+01
        xs( 11) = 0.9484497573712673D+01
        xs( 12) = 0.1032683866588615D+02
        xs( 13) = 0.1116198297493149D+02
        xs( 14) = 0.1199068508169737D+02
        xs( 15) = 0.1281389867178919D+02
        xs( 16) = 0.1363293575860979D+02
        xs( 17) = 0.1444957998188496D+02
        xs( 18) = 0.1526543296543225D+02
        xs( 19) = 0.1608215380218474D+02
        xs( 20) = 0.1690476016644382D+02
        xs( 21) = 0.1773316805278233D+02
        xs( 22) = 0.1857759155291170D+02
        xs( 23) = 0.1943692081426379D+02
        xs( 24) = 0.2030220010414046D+02
        xs( 25) = 0.2118393558205039D+02
        xs( 26) = 0.2220768953266256D+02
        ws(  1) = 0.8876127506844266D+00
        ws(  2) = 0.8983570456139778D+00
        ws(  3) = 0.8973660836667857D+00
        ws(  4) = 0.8938464933084201D+00
        ws(  5) = 0.8889596106121621D+00
        ws(  6) = 0.8830918739347653D+00
        ws(  7) = 0.8764195421282944D+00
        ws(  8) = 0.8691684798533140D+00
        ws(  9) = 0.8616100957047401D+00
        ws( 10) = 0.8538017872230217D+00
        ws( 11) = 0.8460951368135073D+00
        ws( 12) = 0.8386073711297091D+00
        ws( 13) = 0.8318483632408706D+00
        ws( 14) = 0.8256983209185543D+00
        ws( 15) = 0.8208771060387097D+00
        ws( 16) = 0.8175864605435939D+00
        ws( 17) = 0.8154226522256929D+00
        ws( 18) = 0.8170849214289418D+00
        ws( 19) = 0.8185453923781087D+00
        ws( 20) = 0.8236821238154826D+00
        ws( 21) = 0.8339519104482045D+00
        ws( 22) = 0.8491135777215610D+00
        ws( 23) = 0.8790821820912215D+00
        ws( 24) = 0.7984818363603408D+00
        ws( 25) = 0.9708749224551445D+00
        ws( 26) = 0.1248026879148811D+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 =  29
        err = 0.6026684942572900D-07
        xs(  1) = 0.7013364037112160D+00
        xs(  2) = 0.1609124406153653D+01
        xs(  3) = 0.2520269293522323D+01
        xs(  4) = 0.3429612235953618D+01
        xs(  5) = 0.4335439634560847D+01
        xs(  6) = 0.5236662413008799D+01
        xs(  7) = 0.6132419909198652D+01
        xs(  8) = 0.7021965135307821D+01
        xs(  9) = 0.7904706904050783D+01
        xs( 10) = 0.8780170393081027D+01
        xs( 11) = 0.9647959340858693D+01
        xs( 12) = 0.1050786326495576D+02
        xs( 13) = 0.1135971618929576D+02
        xs( 14) = 0.1220358281874616D+02
        xs( 15) = 0.1303969465562859D+02
        xs( 16) = 0.1386840657909512D+02
        xs( 17) = 0.1469040605365282D+02
        xs( 18) = 0.1550671805198738D+02
        xs( 19) = 0.1631856347300855D+02
        xs( 20) = 0.1712722880773027D+02
        xs( 21) = 0.1793526366383823D+02
        xs( 22) = 0.1874447380749912D+02
        xs( 23) = 0.1955702366852665D+02
        xs( 24) = 0.2037675612636343D+02
        xs( 25) = 0.2120849286438660D+02
        xs( 26) = 0.2205187603019920D+02
        xs( 27) = 0.2292983106689845D+02
        xs( 28) = 0.2386384369884589D+02
        xs( 29) = 0.2478950348094661D+02
        ws(  1) = 0.8998114678197559D+00
        ws(  2) = 0.9110515262852678D+00
        ws(  3) = 0.9106386184566178D+00
        ws(  4) = 0.9077844627928734D+00
        ws(  5) = 0.9036919041172246D+00
        ws(  6) = 0.8986252582355875D+00
        ws(  7) = 0.8927619093129205D+00
        ws(  8) = 0.8862316434731395D+00
        ws(  9) = 0.8791601548677197D+00
        ws( 10) = 0.8716925204158555D+00
        ws( 11) = 0.8638448614475051D+00
        ws( 12) = 0.8558877205120466D+00
        ws( 13) = 0.8478927498138328D+00
        ws( 14) = 0.8399174606750991D+00
        ws( 15) = 0.8322854759263733D+00
        ws( 16) = 0.8252085798312602D+00
        ws( 17) = 0.8188728948836687D+00
        ws( 18) = 0.8138723597560326D+00
        ws( 19) = 0.8102007294695776D+00
        ws( 20) = 0.8075267122438693D+00
        ws( 21) = 0.8082978589592086D+00
        ws( 22) = 0.8087134765419342D+00
        ws( 23) = 0.8162356886723005D+00
        ws( 24) = 0.8294968516013219D+00
        ws( 25) = 0.8278646235149516D+00
        ws( 26) = 0.8400092025472266D+00
        ws( 27) = 0.8426727098587198D+00
        ws( 28) = 0.1096743019489591D+01
        ws( 29) = 0.9023497140185422D+00
        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 =  31
        err = 0.9352914266402146D-07
        xs(  1) = 0.7145100983149959D+00
        xs(  2) = 0.1639892916301624D+01
        xs(  3) = 0.2568704096806863D+01
        xs(  4) = 0.3496111229627803D+01
        xs(  5) = 0.4420376238123872D+01
        xs(  6) = 0.5340499282967788D+01
        xs(  7) = 0.6255796713176064D+01
        xs(  8) = 0.7165490089202356D+01
        xs(  9) = 0.8069073894609760D+01
        xs( 10) = 0.8965996125456618D+01
        xs( 11) = 0.9855972791552272D+01
        xs( 12) = 0.1073854603358881D+02
        xs( 13) = 0.1161358628737751D+02
        xs( 14) = 0.1248085497490604D+02
        xs( 15) = 0.1334033963167488D+02
        xs( 16) = 0.1419203134633599D+02
        xs( 17) = 0.1503604695738996D+02
        xs( 18) = 0.1587275118778071D+02
        xs( 19) = 0.1670227068328947D+02
        xs( 20) = 0.1752570224977730D+02
        xs( 21) = 0.1834326123417019D+02
        xs( 22) = 0.1915661097644187D+02
        xs( 23) = 0.1996642361525567D+02
        xs( 24) = 0.2077404746913349D+02
        xs( 25) = 0.2158139049841509D+02
        xs( 26) = 0.2239087599573841D+02
        xs( 27) = 0.2320919561105996D+02
        xs( 28) = 0.2404742361281719D+02
        xs( 29) = 0.2485674313166060D+02
        xs( 30) = 0.2569577188580775D+02
        xs( 31) = 0.2676993314123165D+02
        ws(  1) = 0.9171043900577595D+00
        ws(  2) = 0.9285969656614884D+00
        ws(  3) = 0.9286097159465746D+00
        ws(  4) = 0.9259387377609454D+00
        ws(  5) = 0.9223860185624185D+00
        ws(  6) = 0.9177979056734428D+00
        ws(  7) = 0.9126178333614949D+00
        ws(  8) = 0.9067412534642375D+00
        ws(  9) = 0.9002860068054184D+00
        ws( 10) = 0.8935676699414602D+00
        ws( 11) = 0.8862493058342907D+00
        ws( 12) = 0.8788969266232736D+00
        ws( 13) = 0.8711353580742941D+00
        ws( 14) = 0.8634823480856694D+00
        ws( 15) = 0.8554687750219899D+00
        ws( 16) = 0.8479057857773088D+00
        ws( 17) = 0.8401021266485414D+00
        ws( 18) = 0.8331076683458485D+00
        ws( 19) = 0.8263074524937073D+00
        ws( 20) = 0.8205428781156774D+00
        ws( 21) = 0.8148885159545649D+00
        ws( 22) = 0.8104708193574036D+00
        ws( 23) = 0.8092559843471061D+00
        ws( 24) = 0.8075550354324323D+00
        ws( 25) = 0.8066952877410491D+00
        ws( 26) = 0.8058723898020472D+00
        ws( 27) = 0.8248180628039739D+00
        ws( 28) = 0.8399003230539825D+00
        ws( 29) = 0.7957660986367399D+00
        ws( 30) = 0.7588682037158764D+00
        ws( 31) = 0.1375623615098874D+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 =  34
        err = 0.6376454873562636D-07
        xs(  1) = 0.7199206122884538D+00
        xs(  2) = 0.1651747052423844D+01
        xs(  3) = 0.2587520767716069D+01
        xs(  4) = 0.3522092965755666D+01
        xs(  5) = 0.4453880415253904D+01
        xs(  6) = 0.5381991478908520D+01
        xs(  7) = 0.6305669528965542D+01
        xs(  8) = 0.7224339026048279D+01
        xs(  9) = 0.8137361794605594D+01
        xs( 10) = 0.9044340836724027D+01
        xs( 11) = 0.9944890948091775D+01
        xs( 12) = 0.1083863186921623D+02
        xs( 13) = 0.1172531250835765D+02
        xs( 14) = 0.1260468468505283D+02
        xs( 15) = 0.1347661222504993D+02
        xs( 16) = 0.1434103489033953D+02
        xs( 17) = 0.1519787385558325D+02
        xs( 18) = 0.1604719157270059D+02
        xs( 19) = 0.1688917579252353D+02
        xs( 20) = 0.1772400534526375D+02
        xs( 21) = 0.1855186646684283D+02
        xs( 22) = 0.1937350521110405D+02
        xs( 23) = 0.2018912202529158D+02
        xs( 24) = 0.2099953893726975D+02
        xs( 25) = 0.2180602821365900D+02
        xs( 26) = 0.2260901275954445D+02
        xs( 27) = 0.2341016796277731D+02
        xs( 28) = 0.2421187262835682D+02
        xs( 29) = 0.2501611130225090D+02
        xs( 30) = 0.2582213079273630D+02
        xs( 31) = 0.2664819779055452D+02
        xs( 32) = 0.2744971509927333D+02
        xs( 33) = 0.2842210708662291D+02
        xs( 34) = 0.2919234702674206D+02
        ws(  1) = 0.9235022187816201D+00
        ws(  2) = 0.9354467680061586D+00
        ws(  3) = 0.9355002106164018D+00
        ws(  4) = 0.9333886857961120D+00
        ws(  5) = 0.9300619678614900D+00
        ws(  6) = 0.9260200783374308D+00
        ws(  7) = 0.9212636307485556D+00
        ws(  8) = 0.9159325555761314D+00
        ws(  9) = 0.9100762100709251D+00
        ws( 10) = 0.9038122393057572D+00
        ws( 11) = 0.8972086906874497D+00
        ws( 12) = 0.8902274865402265D+00
        ws( 13) = 0.8830983599406173D+00
        ws( 14) = 0.8756603196262162D+00
        ws( 15) = 0.8681745017171243D+00
        ws( 16) = 0.8606456598785632D+00
        ws( 17) = 0.8530103197484022D+00
        ws( 18) = 0.8456559730005211D+00
        ws( 19) = 0.8383627277723461D+00
        ws( 20) = 0.8312474288508268D+00
        ws( 21) = 0.8246345801682939D+00
        ws( 22) = 0.8185734910662407D+00
        ws( 23) = 0.8127405564843713D+00
        ws( 24) = 0.8076566622024365D+00
        ws( 25) = 0.8053179177820653D+00
        ws( 26) = 0.8008205773122049D+00
        ws( 27) = 0.8005532798048243D+00
        ws( 28) = 0.7979404141285530D+00
        ws( 29) = 0.8073037828353319D+00
        ws( 30) = 0.8093732679367507D+00
        ws( 31) = 0.8104786826312697D+00
        ws( 32) = 0.7907169990691093D+00
        ws( 33) = 0.8484717147490982D+00
        ws( 34) = 0.1113008551858273D+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 =  37
        err = 0.4782043100236401D-07
        xs(  1) = 0.7238458431236690D+00
        xs(  2) = 0.1661149590337599D+01
        xs(  3) = 0.2602521153910409D+01
        xs(  4) = 0.3543110186449004D+01
        xs(  5) = 0.4481300772254399D+01
        xs(  6) = 0.5416352425633684D+01
        xs(  7) = 0.6347483310633380D+01
        xs(  8) = 0.7274222103039450D+01
        xs(  9) = 0.8195934631549399D+01
        xs( 10) = 0.9112234604344289D+01
        xs( 11) = 0.1002270539106719D+02
        xs( 12) = 0.1092700079883152D+02
        xs( 13) = 0.1182477997937093D+02
        xs( 14) = 0.1271581461421002D+02
        xs( 15) = 0.1359983426993129D+02
        xs( 16) = 0.1447674003606660D+02
        xs( 17) = 0.1534636293824540D+02
        xs( 18) = 0.1620864660154097D+02
        xs( 19) = 0.1706358084554100D+02
        xs( 20) = 0.1791124004573850D+02
        xs( 21) = 0.1875167611042481D+02
        xs( 22) = 0.1958510660068831D+02
        xs( 23) = 0.2041179484557863D+02
        xs( 24) = 0.2123202662305447D+02
        xs( 25) = 0.2204609979056658D+02
        xs( 26) = 0.2285454033615461D+02
        xs( 27) = 0.2365829947154733D+02
        xs( 28) = 0.2445785131780858D+02
        xs( 29) = 0.2525444497709092D+02
        xs( 30) = 0.2604823728842592D+02
        xs( 31) = 0.2684242764827873D+02
        xs( 32) = 0.2763914033948578D+02
        xs( 33) = 0.2843511514546770D+02
        xs( 34) = 0.2923494311938335D+02
        xs( 35) = 0.3004759190443746D+02
        xs( 36) = 0.3091614730846783D+02
        xs( 37) = 0.3189051066359540D+02
        ws(  1) = 0.9287852503602493D+00
        ws(  2) = 0.9409510657042641D+00
        ws(  3) = 0.9412999874300763D+00
        ws(  4) = 0.9395765067129340D+00
        ws(  5) = 0.9367240517843708D+00
        ws(  6) = 0.9332213272380303D+00
        ws(  7) = 0.9289737888310247D+00
        ws(  8) = 0.9243607023261566D+00
        ws(  9) = 0.9190545865323188D+00
        ws( 10) = 0.9134642401302859D+00
        ws( 11) = 0.9074218295158566D+00
        ws( 12) = 0.9010870872472094D+00
        ws( 13) = 0.8944370476306404D+00
        ws( 14) = 0.8875743343056661D+00
        ws( 15) = 0.8804958668527133D+00
        ws( 16) = 0.8732579699547337D+00
        ws( 17) = 0.8659680564604011D+00
        ws( 18) = 0.8585804742280245D+00
        ws( 19) = 0.8513007719524508D+00
        ws( 20) = 0.8440628303204166D+00
        ws( 21) = 0.8368623165032043D+00
        ws( 22) = 0.8300103657772008D+00
        ws( 23) = 0.8233270779375249D+00
        ws( 24) = 0.8171057851514179D+00
        ws( 25) = 0.8112343593059689D+00
        ws( 26) = 0.8059234253399973D+00
        ws( 27) = 0.8011712467182722D+00
        ws( 28) = 0.7975637517715272D+00
        ws( 29) = 0.7957211213819794D+00
        ws( 30) = 0.7932818390451435D+00
        ws( 31) = 0.7923087165771500D+00
        ws( 32) = 0.7968482661718836D+00
        ws( 33) = 0.7890958555532971D+00
        ws( 34) = 0.8277870776808860D+00
        ws( 35) = 0.7626307757751721D+00
        ws( 36) = 0.8256679610699426D+00
        ws( 37) = 0.1260280091327497D+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 =  39
        err = 0.9678271231494539D-07
        xs(  1) = 0.7335675624448476D+00
        xs(  2) = 0.1683881564667907D+01
        xs(  3) = 0.2638376270545561D+01
        xs(  4) = 0.3592264001973244D+01
        xs(  5) = 0.4544078079445729D+01
        xs(  6) = 0.5493001088842050D+01
        xs(  7) = 0.6438469326648607D+01
        xs(  8) = 0.7379989658268293D+01
        xs(  9) = 0.8317022654092989D+01
        xs( 10) = 0.9249188940647191D+01
        xs( 11) = 0.1017610220109791D+02
        xs( 12) = 0.1109745582670774D+02
        xs( 13) = 0.1201297185160201D+02
        xs( 14) = 0.1292235693735278D+02
        xs( 15) = 0.1382541589801844D+02
        xs( 16) = 0.1472191962708909D+02
        xs( 17) = 0.1561166125826786D+02
        xs( 18) = 0.1649468240993688D+02
        xs( 19) = 0.1737065771688674D+02
        xs( 20) = 0.1823973476005000D+02
        xs( 21) = 0.1910172198253108D+02
        xs( 22) = 0.1995670902214519D+02
        xs( 23) = 0.2080486234585591D+02
        xs( 24) = 0.2164612826279566D+02
        xs( 25) = 0.2248092472154892D+02
        xs( 26) = 0.2330914491631795D+02
        xs( 27) = 0.2413094959956868D+02
        xs( 28) = 0.2494754830826685D+02
        xs( 29) = 0.2575857540837082D+02
        xs( 30) = 0.2656432638956005D+02
        xs( 31) = 0.2736707450387808D+02
        xs( 32) = 0.2816540565399230D+02
        xs( 33) = 0.2896282131568495D+02
        xs( 34) = 0.2976232527780538D+02
        xs( 35) = 0.3055482562277510D+02
        xs( 36) = 0.3134724182484796D+02
        xs( 37) = 0.3214517777716953D+02
        xs( 38) = 0.3303328663897180D+02
        xs( 39) = 0.3398415598014065D+02
        ws(  1) = 0.9413867764620470D+00
        ws(  2) = 0.9541516310089061D+00
        ws(  3) = 0.9544489078321383D+00
        ws(  4) = 0.9529776869942609D+00
        ws(  5) = 0.9505674534063085D+00
        ws(  6) = 0.9471951118660163D+00
        ws(  7) = 0.9436464289674553D+00
        ws(  8) = 0.9393017202441188D+00
        ws(  9) = 0.9346930861982725D+00
        ws( 10) = 0.9295512489478299D+00
        ws( 11) = 0.9242356117303228D+00
        ws( 12) = 0.9185170685515389D+00
        ws( 13) = 0.9124813985920156D+00
        ws( 14) = 0.9061788345040031D+00
        ws( 15) = 0.8998497022277722D+00
        ws( 16) = 0.8931484273414340D+00
        ws( 17) = 0.8864697476419852D+00
        ws( 18) = 0.8794635109294778D+00
        ws( 19) = 0.8724715639302850D+00
        ws( 20) = 0.8655585905257462D+00
        ws( 21) = 0.8586564687575281D+00
        ws( 22) = 0.8514504096813437D+00
        ws( 23) = 0.8446151396619650D+00
        ws( 24) = 0.8381016132313752D+00
        ws( 25) = 0.8313508223791573D+00
        ws( 26) = 0.8252363252583524D+00
        ws( 27) = 0.8191465786344267D+00
        ws( 28) = 0.8133253986024492D+00
        ws( 29) = 0.8082307331582304D+00
        ws( 30) = 0.8037014236638317D+00
        ws( 31) = 0.8009928106158765D+00
        ws( 32) = 0.7952449284434382D+00
        ws( 33) = 0.7936906352103267D+00
        ws( 34) = 0.7936580298271739D+00
        ws( 35) = 0.7951760068791861D+00
        ws( 36) = 0.7504531602764470D+00
        ws( 37) = 0.8008775765080051D+00
        ws( 38) = 0.7961834720599202D+00
        ws( 39) = 0.1027083095883611D+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 =  43
        err = 0.5227292593022559D-07
        xs(  1) = 0.7347331704496133D+00
        xs(  2) = 0.1685729857857053D+01
        xs(  3) = 0.2641378919083235D+01
        xs(  4) = 0.3596538012381789D+01
        xs(  5) = 0.4549912914472989D+01
        xs(  6) = 0.5500672778072536D+01
        xs(  7) = 0.6448290835992273D+01
        xs(  8) = 0.7392254174717298D+01
        xs(  9) = 0.8332125729591464D+01
        xs( 10) = 0.9267476356975639D+01
        xs( 11) = 0.1019795089254670D+02
        xs( 12) = 0.1112330083526926D+02
        xs( 13) = 0.1204313871118139D+02
        xs( 14) = 0.1295725348338048D+02
        xs( 15) = 0.1386539231292301D+02
        xs( 16) = 0.1476732894589378D+02
        xs( 17) = 0.1566287449694444D+02
        xs( 18) = 0.1655195057251687D+02
        xs( 19) = 0.1743430561556855D+02
        xs( 20) = 0.1830997526142058D+02
        xs( 21) = 0.1917875900270314D+02
        xs( 22) = 0.2004074337185474D+02
        xs( 23) = 0.2089581550648104D+02
        xs( 24) = 0.2174409147173909D+02
        xs( 25) = 0.2258564998802464D+02
        xs( 26) = 0.2342042838422628D+02
        xs( 27) = 0.2424865076387962D+02
        xs( 28) = 0.2507066770741264D+02
        xs( 29) = 0.2588624089818283D+02
        xs( 30) = 0.2669591434263332D+02
        xs( 31) = 0.2749992476521350D+02
        xs( 32) = 0.2829855675543513D+02
        xs( 33) = 0.2909234439895731D+02
        xs( 34) = 0.2988166972233893D+02
        xs( 35) = 0.3066779377110911D+02
        xs( 36) = 0.3145107162980895D+02
        xs( 37) = 0.3223264076388672D+02
        xs( 38) = 0.3301680895011671D+02
        xs( 39) = 0.3379919778853086D+02
        xs( 40) = 0.3458729382726982D+02
        xs( 41) = 0.3538370745031303D+02
        xs( 42) = 0.3619577527493064D+02
        xs( 43) = 0.3708662803309074D+02
        ws(  1) = 0.9423745492003337D+00
        ws(  2) = 0.9549389662738448D+00
        ws(  3) = 0.9557762144065081D+00
        ws(  4) = 0.9543496824073079D+00
        ws(  5) = 0.9522328666820467D+00
        ws(  6) = 0.9492267640847534D+00
        ws(  7) = 0.9459025114246761D+00
        ws(  8) = 0.9419517627649384D+00
        ws(  9) = 0.9377206953686010D+00
        ws( 10) = 0.9329614148795660D+00
        ws( 11) = 0.9279628739975564D+00
        ws( 12) = 0.9226110133174497D+00
        ws( 13) = 0.9170384691093433D+00
        ws( 14) = 0.9111229443564758D+00
        ws( 15) = 0.9051009493204830D+00
        ws( 16) = 0.8987717237781319D+00
        ws( 17) = 0.8923579120983119D+00
        ws( 18) = 0.8857502198478236D+00
        ws( 19) = 0.8789334208535365D+00
        ws( 20) = 0.8722231696073618D+00
        ws( 21) = 0.8654637879120084D+00
        ws( 22) = 0.8584918728773684D+00
        ws( 23) = 0.8516522206602696D+00
        ws( 24) = 0.8449108056143471D+00
        ws( 25) = 0.8380710278547879D+00
        ws( 26) = 0.8315280153300507D+00
        ws( 27) = 0.8249975161116678D+00
        ws( 28) = 0.8188932783836460D+00
        ws( 29) = 0.8124962946221704D+00
        ws( 30) = 0.8069639299039378D+00
        ws( 31) = 0.8012565605685373D+00
        ws( 32) = 0.7962280394144083D+00
        ws( 33) = 0.7925319560428059D+00
        ws( 34) = 0.7875992243267103D+00
        ws( 35) = 0.7856807870454794D+00
        ws( 36) = 0.7829960199844320D+00
        ws( 37) = 0.7843260133493842D+00
        ws( 38) = 0.7845240270828089D+00
        ws( 39) = 0.7765474127445723D+00
        ws( 40) = 0.7783521284863522D+00
        ws( 41) = 0.7586345782130648D+00
        ws( 42) = 0.7206497374350845D+00
        ws( 43) = 0.8044303018516588D+00
        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 =  46
        err = 0.4904187529561979D-07
        xs(  1) = 0.7388942638481191D+00
        xs(  2) = 0.1695711919876360D+01
        xs(  3) = 0.2656910685465811D+01
        xs(  4) = 0.3618117671082470D+01
        xs(  5) = 0.4577523168739905D+01
        xs(  6) = 0.5534690530502369D+01
        xs(  7) = 0.6488933173780908D+01
        xs(  8) = 0.7439854038565714D+01
        xs(  9) = 0.8387022555187665D+01
        xs( 10) = 0.9330008451618758D+01
        xs( 11) = 0.1026851984511364D+02
        xs( 12) = 0.1120222356898996D+02
        xs( 13) = 0.1213086619032296D+02
        xs( 14) = 0.1305415063583283D+02
        xs( 15) = 0.1397185646766637D+02
        xs( 16) = 0.1488377984171100D+02
        xs( 17) = 0.1578973288653808D+02
        xs( 18) = 0.1668954998614505D+02
        xs( 19) = 0.1758312777049338D+02
        xs( 20) = 0.1847033909462797D+02
        xs( 21) = 0.1935106787673073D+02
        xs( 22) = 0.2022534919527576D+02
        xs( 23) = 0.2109308560966225D+02
        xs( 24) = 0.2195431057728523D+02
        xs( 25) = 0.2280905404435171D+02
        xs( 26) = 0.2365734902909535D+02
        xs( 27) = 0.2449929390572041D+02
        xs( 28) = 0.2533500347934575D+02
        xs( 29) = 0.2616460174868940D+02
        xs( 30) = 0.2698823973952611D+02
        xs( 31) = 0.2780604547661728D+02
        xs( 32) = 0.2861854722715941D+02
        xs( 33) = 0.2942559234760961D+02
        xs( 34) = 0.3022753295552633D+02
        xs( 35) = 0.3102480407909285D+02
        xs( 36) = 0.3181774159981805D+02
        xs( 37) = 0.3260719141105624D+02
        xs( 38) = 0.3339347873699929D+02
        xs( 39) = 0.3417669018633955D+02
        xs( 40) = 0.3496145890104500D+02
        xs( 41) = 0.3574256738195787D+02
        xs( 42) = 0.3653304266334644D+02
        xs( 43) = 0.3731468250345963D+02
        xs( 44) = 0.3809974442933811D+02
        xs( 45) = 0.3888917084613292D+02
        xs( 46) = 0.4001421414035615D+02
        ws(  1) = 0.9481588242372758D+00
        ws(  2) = 0.9604941998419902D+00
        ws(  3) = 0.9615616046756909D+00
        ws(  4) = 0.9604434922080440D+00
        ws(  5) = 0.9583732030592615D+00
        ws(  6) = 0.9558195597210067D+00
        ws(  7) = 0.9526166446471713D+00
        ws(  8) = 0.9491433551044584D+00
        ws(  9) = 0.9450969083788036D+00
        ws( 10) = 0.9408593219853044D+00
        ws( 11) = 0.9361316458233823D+00
        ws( 12) = 0.9312059937119873D+00
        ws( 13) = 0.9260039723171031D+00
        ws( 14) = 0.9205223231491338D+00
        ws( 15) = 0.9148689744151312D+00
        ws( 16) = 0.9089786246422998D+00
        ws( 17) = 0.9028856390124133D+00
        ws( 18) = 0.8967398060258474D+00
        ws( 19) = 0.8903667160698531D+00
        ws( 20) = 0.8839956306934491D+00
        ws( 21) = 0.8775430670653096D+00
        ws( 22) = 0.8710219064198480D+00
        ws( 23) = 0.8644465138172952D+00
        ws( 24) = 0.8579875240131312D+00
        ws( 25) = 0.8514942524023404D+00
        ws( 26) = 0.8451386388676329D+00
        ws( 27) = 0.8388548760119307D+00
        ws( 28) = 0.8326320089036502D+00
        ws( 29) = 0.8264963694126209D+00
        ws( 30) = 0.8208047633442502D+00
        ws( 31) = 0.8153057488721928D+00
        ws( 32) = 0.8095324238510342D+00
        ws( 33) = 0.8047449662790304D+00
        ws( 34) = 0.7996432625188959D+00
        ws( 35) = 0.7952976166164007D+00
        ws( 36) = 0.7907782064560439D+00
        ws( 37) = 0.7893968376159487D+00
        ws( 38) = 0.7830917173803104D+00
        ws( 39) = 0.7853169994713070D+00
        ws( 40) = 0.7826307778834336D+00
        ws( 41) = 0.7862599046776759D+00
        ws( 42) = 0.7788561317636411D+00
        ws( 43) = 0.7857736028804412D+00
        ws( 44) = 0.7482255230698207D+00
        ws( 45) = 0.8159913498391644D+00
        ws( 46) = 0.1131706612560192D+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 =  49
        err = 0.7732354436343849D-07
        xs(  1) = 0.7379358116059576D+00
        xs(  2) = 0.1693011303898997D+01
        xs(  3) = 0.2652835067159022D+01
        xs(  4) = 0.3612677402604634D+01
        xs(  5) = 0.4571152658593586D+01
        xs(  6) = 0.5527526223727821D+01
        xs(  7) = 0.6481420092460914D+01
        xs(  8) = 0.7432290079123423D+01
        xs(  9) = 0.8379831743363356D+01
        xs( 10) = 0.9323685144603838D+01
        xs( 11) = 0.1026355182726829D+02
        xs( 12) = 0.1119917862030491D+02
        xs( 13) = 0.1213029354490686D+02
        xs( 14) = 0.1305670519679238D+02
        xs( 15) = 0.1397819165806145D+02
        xs( 16) = 0.1489455755392217D+02
        xs( 17) = 0.1580568043123102D+02
        xs( 18) = 0.1671138942896820D+02
        xs( 19) = 0.1761157155307051D+02
        xs( 20) = 0.1850612069220763D+02
        xs( 21) = 0.1939489234355432D+02
        xs( 22) = 0.2027787167896250D+02
        xs( 23) = 0.2115496142333634D+02
        xs( 24) = 0.2202609471422921D+02
        xs( 25) = 0.2289122441285228D+02
        xs( 26) = 0.2375036694144808D+02
        xs( 27) = 0.2460343597069031D+02
        xs( 28) = 0.2545052639788321D+02
        xs( 29) = 0.2629160609178055D+02
        xs( 30) = 0.2712671671950790D+02
        xs( 31) = 0.2795592448601314D+02
        xs( 32) = 0.2877934003999724D+02
        xs( 33) = 0.2959710406016569D+02
        xs( 34) = 0.3040921486249904D+02
        xs( 35) = 0.3121596320200592D+02
        xs( 36) = 0.3201746019932687D+02
        xs( 37) = 0.3281395369893253D+02
        xs( 38) = 0.3360540669007169D+02
        xs( 39) = 0.3439276870277720D+02
        xs( 40) = 0.3517603390820487D+02
        xs( 41) = 0.3595426269248868D+02
        xs( 42) = 0.3673280769514068D+02
        xs( 43) = 0.3750570550302300D+02
        xs( 44) = 0.3827792815972807D+02
        xs( 45) = 0.3905980769416050D+02
        xs( 46) = 0.3982750305097658D+02
        xs( 47) = 0.4056672938751387D+02
        xs( 48) = 0.4140532820321314D+02
        xs( 49) = 0.4238364414394987D+02
        ws(  1) = 0.9461360254940288D+00
        ws(  2) = 0.9591070564664703D+00
        ws(  3) = 0.9601722092148263D+00
        ws(  4) = 0.9594302751194894D+00
        ws(  5) = 0.9574557357235671D+00
        ws(  6) = 0.9551681629826786D+00
        ws(  7) = 0.9524407116345177D+00
        ws(  8) = 0.9492508744288957D+00
        ws(  9) = 0.9458034055498795D+00
        ws( 10) = 0.9419012062611934D+00
        ws( 11) = 0.9377737565807308D+00
        ws( 12) = 0.9334184723820828D+00
        ws( 13) = 0.9287868566572275D+00
        ws( 14) = 0.9239777626608431D+00
        ws( 15) = 0.9189590255642321D+00
        ws( 16) = 0.9137826373559419D+00
        ws( 17) = 0.9084491645802311D+00
        ws( 18) = 0.9029687677535420D+00
        ws( 19) = 0.8973608003695547D+00
        ws( 20) = 0.8916854986665538D+00
        ws( 21) = 0.8858902258163899D+00
        ws( 22) = 0.8800616287839637D+00
        ws( 23) = 0.8740867111812539D+00
        ws( 24) = 0.8681606705613895D+00
        ws( 25) = 0.8621425795526947D+00
        ws( 26) = 0.8561388139936010D+00
        ws( 27) = 0.8500619230973328D+00
        ws( 28) = 0.8440460138072970D+00
        ws( 29) = 0.8381305234749502D+00
        ws( 30) = 0.8321748541379415D+00
        ws( 31) = 0.8262788593351865D+00
        ws( 32) = 0.8206689833016320D+00
        ws( 33) = 0.8147919368533119D+00
        ws( 34) = 0.8095192436733276D+00
        ws( 35) = 0.8040655093697485D+00
        ws( 36) = 0.7990393404111253D+00
        ws( 37) = 0.7939061656092591D+00
        ws( 38) = 0.7890228866984609D+00
        ws( 39) = 0.7855837069759198D+00
        ws( 40) = 0.7812940021005620D+00
        ws( 41) = 0.7765567844053015D+00
        ws( 42) = 0.7773495597044481D+00
        ws( 43) = 0.7749880943181420D+00
        ws( 44) = 0.7777795028568034D+00
        ws( 45) = 0.7723027782039618D+00
        ws( 46) = 0.7818879734953932D+00
        ws( 47) = 0.7901673839552980D+00
        ws( 48) = 0.7187280026521341D+00
        ws( 49) = 0.1408487977851538D+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 =  52
        err = 0.6015339637604232D-07
        xs(  1) = 0.7412164740887704D+00
        xs(  2) = 0.1700877433139717D+01
        xs(  3) = 0.2665214662307051D+01
        xs(  4) = 0.3629966524096186D+01
        xs(  5) = 0.4593516064413031D+01
        xs(  6) = 0.5555364045880634D+01
        xs(  7) = 0.6515074059272776D+01
        xs(  8) = 0.7472212032465639D+01
        xs(  9) = 0.8426453623924882D+01
        xs( 10) = 0.9377517211293394D+01
        xs( 11) = 0.1032505556685117D+02
        xs( 12) = 0.1126888559928618D+02
        xs( 13) = 0.1220871792529846D+02
        xs( 14) = 0.1314435960135668D+02
        xs( 15) = 0.1407557936754415D+02
        xs( 16) = 0.1500221169548807D+02
        xs( 17) = 0.1592407579077884D+02
        xs( 18) = 0.1684100978255609D+02
        xs( 19) = 0.1775286830011645D+02
        xs( 20) = 0.1865950935380430D+02
        xs( 21) = 0.1956080545280927D+02
        xs( 22) = 0.2045664526987377D+02
        xs( 23) = 0.2134693425093778D+02
        xs( 24) = 0.2223155419025398D+02
        xs( 25) = 0.2311040563215087D+02
        xs( 26) = 0.2398343932846807D+02
        xs( 27) = 0.2485058673638164D+02
        xs( 28) = 0.2571174078840190D+02
        xs( 29) = 0.2656690505346698D+02
        xs( 30) = 0.2741599147853307D+02
        xs( 31) = 0.2825904540526787D+02
        xs( 32) = 0.2909599890952178D+02
        xs( 33) = 0.2992692694812315D+02
        xs( 34) = 0.3075179987195495D+02
        xs( 35) = 0.3157081689508809D+02
        xs( 36) = 0.3238400555471217D+02
        xs( 37) = 0.3319148405446431D+02
        xs( 38) = 0.3399348895613423D+02
        xs( 39) = 0.3479013543486667D+02
        xs( 40) = 0.3558197750904213D+02
        xs( 41) = 0.3636890113893405D+02
        xs( 42) = 0.3715152478635263D+02
        xs( 43) = 0.3793026372835872D+02
        xs( 44) = 0.3870491760607130D+02
        xs( 45) = 0.3947781724973621D+02
        xs( 46) = 0.4024943874975566D+02
        xs( 47) = 0.4101453701508203D+02
        xs( 48) = 0.4178840215142204D+02
        xs( 49) = 0.4256082405051952D+02
        xs( 50) = 0.4331464706444065D+02
        xs( 51) = 0.4411454369377379D+02
        xs( 52) = 0.4496417535164425D+02
        ws(  1) = 0.9510341624209295D+00
        ws(  2) = 0.9634231629303111D+00
        ws(  3) = 0.9648650953974934D+00
        ws(  4) = 0.9643329044508883D+00
        ws(  5) = 0.9627279522364770D+00
        ws(  6) = 0.9608842456377858D+00
        ws(  7) = 0.9584694919552911D+00
        ws(  8) = 0.9557544692836785D+00
        ws(  9) = 0.9526907373257107D+00
        ws( 10) = 0.9493529589009292D+00
        ws( 11) = 0.9457352608323865D+00
        ws( 12) = 0.9418472968950143D+00
        ws( 13) = 0.9377657380597683D+00
        ws( 14) = 0.9334662446286813D+00
        ws( 15) = 0.9289798381689193D+00
        ws( 16) = 0.9242698918328131D+00
        ws( 17) = 0.9194212825148169D+00
        ws( 18) = 0.9144152201671218D+00
        ws( 19) = 0.9092825576495234D+00
        ws( 20) = 0.9039844926107481D+00
        ws( 21) = 0.8985878232040166D+00
        ws( 22) = 0.8930743474353608D+00
        ws( 23) = 0.8874592754483654D+00
        ws( 24) = 0.8817564965792393D+00
        ws( 25) = 0.8759710814320866D+00
        ws( 26) = 0.8700952214598699D+00
        ws( 27) = 0.8641614681249917D+00
        ws( 28) = 0.8581819416660618D+00
        ws( 29) = 0.8520885892308936D+00
        ws( 30) = 0.8461020104896272D+00
        ws( 31) = 0.8400383045134419D+00
        ws( 32) = 0.8339267239949371D+00
        ws( 33) = 0.8279987817285183D+00
        ws( 34) = 0.8219241501862087D+00
        ws( 35) = 0.8161308048180650D+00
        ws( 36) = 0.8103615227330350D+00
        ws( 37) = 0.8049281013244152D+00
        ws( 38) = 0.7993652999137377D+00
        ws( 39) = 0.7942141153183793D+00
        ws( 40) = 0.7893457261314396D+00
        ws( 41) = 0.7847337747431004D+00
        ws( 42) = 0.7805416255157335D+00
        ws( 43) = 0.7771687730065138D+00
        ws( 44) = 0.7711523641392800D+00
        ws( 45) = 0.7731028111456298D+00
        ws( 46) = 0.7713436787419612D+00
        ws( 47) = 0.7593581135373015D+00
        ws( 48) = 0.7678743056410166D+00
        ws( 49) = 0.7742301435159284D+00
        ws( 50) = 0.7093275980359268D+00
        ws( 51) = 0.6518727244218484D+00
        ws( 52) = 0.9167614032553826D+00
        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 =  55
        err = 0.7026049470392832D-07
        xs(  1) = 0.7468555541691675D+00
        xs(  2) = 0.1714271767564935D+01
        xs(  3) = 0.2686862921045593D+01
        xs(  4) = 0.3659461453358392D+01
        xs(  5) = 0.4631054047606537D+01
        xs(  6) = 0.5601127099418458D+01
        xs(  7) = 0.6569032059737048D+01
        xs(  8) = 0.7534609278955649D+01
        xs(  9) = 0.8497389392340198D+01
        xs( 10) = 0.9457117127759277D+01
        xs( 11) = 0.1041351114927031D+02
        xs( 12) = 0.1136627449718622D+02
        xs( 13) = 0.1231519000844546D+02
        xs( 14) = 0.1326003097040210D+02
        xs( 15) = 0.1420049292375065D+02
        xs( 16) = 0.1513646457593026D+02
        xs( 17) = 0.1606765561800307D+02
        xs( 18) = 0.1699391710705832D+02
        xs( 19) = 0.1791505162211896D+02
        xs( 20) = 0.1883091064348240D+02
        xs( 21) = 0.1974135598881025D+02
        xs( 22) = 0.2064623757318870D+02
        xs( 23) = 0.2154547422591419D+02
        xs( 24) = 0.2243906572303517D+02
        xs( 25) = 0.2332684116434008D+02
        xs( 26) = 0.2420891059835481D+02
        xs( 27) = 0.2508527033694784D+02
        xs( 28) = 0.2595595824512245D+02
        xs( 29) = 0.2682108639747229D+02
        xs( 30) = 0.2768059175602487D+02
        xs( 31) = 0.2853467278232745D+02
        xs( 32) = 0.2938337600956054D+02
        xs( 33) = 0.3022672758923851D+02
        xs( 34) = 0.3106473346979010D+02
        xs( 35) = 0.3189747738083387D+02
        xs( 36) = 0.3272494574752178D+02
        xs( 37) = 0.3354707720815378D+02
        xs( 38) = 0.3436398360856920D+02
        xs( 39) = 0.3517561123284933D+02
        xs( 40) = 0.3598202151129347D+02
        xs( 41) = 0.3678328432658241D+02
        xs( 42) = 0.3757956273293287D+02
        xs( 43) = 0.3837066981613080D+02
        xs( 44) = 0.3915705929653393D+02
        xs( 45) = 0.3993968305376240D+02
        xs( 46) = 0.4071634845764897D+02
        xs( 47) = 0.4149060392303960D+02
        xs( 48) = 0.4226354633430940D+02
        xs( 49) = 0.4302640764161217D+02
        xs( 50) = 0.4379643100577305D+02
        xs( 51) = 0.4456596073937027D+02
        xs( 52) = 0.4531922980668638D+02
        xs( 53) = 0.4607434053848715D+02
        xs( 54) = 0.4688014702366487D+02
        xs( 55) = 0.4768514086959862D+02
        ws(  1) = 0.9586024885668092D+00
        ws(  2) = 0.9715086992167048D+00
        ws(  3) = 0.9729751239569789D+00
        ws(  4) = 0.9720999430368611D+00
        ws(  5) = 0.9709452938713361D+00
        ws(  6) = 0.9690774299631799D+00
        ws(  7) = 0.9667582956573580D+00
        ws(  8) = 0.9642451828377862D+00
        ws(  9) = 0.9613097701809353D+00
        ws( 10) = 0.9581005512983179D+00
        ws( 11) = 0.9546426838384801D+00
        ws( 12) = 0.9508770359864060D+00
        ws( 13) = 0.9468897705490830D+00
        ws( 14) = 0.9427029452083678D+00
        ws( 15) = 0.9382846290265034D+00
        ws( 16) = 0.9335661194810431D+00
        ws( 17) = 0.9287658100475047D+00
        ws( 18) = 0.9237507022205390D+00
        ws( 19) = 0.9185476256854130D+00
        ws( 20) = 0.9131587564544886D+00
        ws( 21) = 0.9076629156148051D+00
        ws( 22) = 0.9020844041645758D+00
        ws( 23) = 0.8963634154327321D+00
        ws( 24) = 0.8907678298363880D+00
        ws( 25) = 0.8849667567199110D+00
        ws( 26) = 0.8792120483393809D+00
        ws( 27) = 0.8735064397417057D+00
        ws( 28) = 0.8678522806442975D+00
        ws( 29) = 0.8623393701566631D+00
        ws( 30) = 0.8567984283839323D+00
        ws( 31) = 0.8514913927607166D+00
        ws( 32) = 0.8460432786889389D+00
        ws( 33) = 0.8407024498978228D+00
        ws( 34) = 0.8353397120006071D+00
        ws( 35) = 0.8301716483478415D+00
        ws( 36) = 0.8249996235315867D+00
        ws( 37) = 0.8195297268550668D+00
        ws( 38) = 0.8143838039456922D+00
        ws( 39) = 0.8089132193282100D+00
        ws( 40) = 0.8039309429960498D+00
        ws( 41) = 0.7987353405442787D+00
        ws( 42) = 0.7933261393961006D+00
        ws( 43) = 0.7884722783562810D+00
        ws( 44) = 0.7834649379343542D+00
        ws( 45) = 0.7789598514066103D+00
        ws( 46) = 0.7746970998508254D+00
        ws( 47) = 0.7701093520254197D+00
        ws( 48) = 0.7702252011090019D+00
        ws( 49) = 0.7632336899240810D+00
        ws( 50) = 0.7633138486844768D+00
        ws( 51) = 0.7694827137170739D+00
        ws( 52) = 0.7392776781016664D+00
        ws( 53) = 0.6990238275976458D+00
        ws( 54) = 0.7048378769245242D+00
        ws( 55) = 0.7060639329308099D+00
        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 =  13
        err = 0.7619248487682580D-07
        xs(  1) = 0.7173186650117710D+00
        xs(  2) = 0.1647293959766592D+01
        xs(  3) = 0.2586216894920035D+01
        xs(  4) = 0.3531622377501594D+01
        xs(  5) = 0.4484266776681798D+01
        xs(  6) = 0.5445302754007463D+01
        xs(  7) = 0.6416163386419293D+01
        xs(  8) = 0.7397579638609333D+01
        xs(  9) = 0.8391136772529830D+01
        xs( 10) = 0.9397489665975206D+01
        xs( 11) = 0.1041713165570342D+02
        xs( 12) = 0.1145590595696086D+02
        xs( 13) = 0.1248612006962692D+02
        ws(  1) = 0.9202053141940845D+00
        ws(  2) = 0.9360647919495400D+00
        ws(  3) = 0.9424966395025967D+00
        ws(  4) = 0.9490144581333494D+00
        ws(  5) = 0.9571275474988638D+00
        ws(  6) = 0.9661778494479231D+00
        ws(  7) = 0.9767607785134221D+00
        ws(  8) = 0.9889534808462797D+00
        ws(  9) = 0.1001735234074344D+01
        ws( 10) = 0.1020535168491913D+01
        ws( 11) = 0.1037929362798720D+01
        ws( 12) = 0.1096408859984926D+01
        ws( 13) = 0.1217882413006806D+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 =  13
        err = 0.7643009457135573D-07
        xs(  1) = 0.7173325753895948D+00
        xs(  2) = 0.1647324110943254D+01
        xs(  3) = 0.2586263057500376D+01
        xs(  4) = 0.3531683365113271D+01
        xs(  5) = 0.4484341059070564D+01
        xs(  6) = 0.5445388588219259D+01
        xs(  7) = 0.6416258521038687D+01
        xs(  8) = 0.7397681924612745D+01
        xs(  9) = 0.8391243501935406D+01
        xs( 10) = 0.9397597932218412D+01
        xs( 11) = 0.1041723905660542D+02
        xs( 12) = 0.1145600439454179D+02
        xs( 13) = 0.1248621990099107D+02
        ws(  1) = 0.9202213780022082D+00
        ws(  2) = 0.9360812657543290D+00
        ws(  3) = 0.9425121074630146D+00
        ws(  4) = 0.9490287887066384D+00
        ws(  5) = 0.9571400345885724D+00
        ws(  6) = 0.9661885010177806D+00
        ws(  7) = 0.9767693231856633D+00
        ws(  8) = 0.9889593173292550D+00
        ws(  9) = 0.1001739453751051D+01
        ws( 10) = 0.1020534895182713D+01
        ws( 11) = 0.1037930018836234D+01
        ws( 12) = 0.1096392218328824D+01
        ws( 13) = 0.1217869844326853D+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 =  13
        err = 0.7800527990619674D-07
        xs(  1) = 0.7174251172072592D+00
        xs(  2) = 0.1647522796445175D+01
        xs(  3) = 0.2586567323038190D+01
        xs(  4) = 0.3532085171212729D+01
        xs(  5) = 0.4484830082382802D+01
        xs(  6) = 0.5445952912057310D+01
        xs(  7) = 0.6416881730133744D+01
        xs(  8) = 0.7398348747422817D+01
        xs(  9) = 0.8391933207251871D+01
        xs( 10) = 0.9398288712704353D+01
        xs( 11) = 0.1041791276490642D+02
        xs( 12) = 0.1145659562481203D+02
        xs( 13) = 0.1248682275553366D+02
        ws(  1) = 0.9203259457976286D+00
        ws(  2) = 0.9361894850838340D+00
        ws(  3) = 0.9426135571755065D+00
        ws(  4) = 0.9491233028101441D+00
        ws(  5) = 0.9572214622201750D+00
        ws(  6) = 0.9662574083782494D+00
        ws(  7) = 0.9768229559018903D+00
        ws(  8) = 0.9889924418863518D+00
        ws(  9) = 0.1001761511214350D+01
        ws( 10) = 0.1020519138595949D+01
        ws( 11) = 0.1037924643904089D+01
        ws( 12) = 0.1096219690234169D+01
        ws( 13) = 0.1217788698086599D+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 =  13
        err = 0.8397155613972151D-07
        xs(  1) = 0.7177691463746385D+00
        xs(  2) = 0.1648264962659679D+01
        xs(  3) = 0.2587703604720887D+01
        xs(  4) = 0.3533586158952532D+01
        xs(  5) = 0.4486657835451013D+01
        xs(  6) = 0.5448063827424208D+01
        xs(  7) = 0.6419218155699852D+01
        xs(  8) = 0.7400855760288716D+01
        xs(  9) = 0.8394539606167015D+01
        xs( 10) = 0.9400918468879922D+01
        xs( 11) = 0.1042050155416404D+02
        xs( 12) = 0.1145893130757897D+02
        xs( 13) = 0.1248917879645278D+02
        ws(  1) = 0.9207189740172638D+00
        ws(  2) = 0.9365945655744811D+00
        ws(  3) = 0.9429937167526509D+00
        ws(  4) = 0.9494761658606009D+00
        ws(  5) = 0.9575277817206693D+00
        ws(  6) = 0.9665178260022694D+00
        ws(  7) = 0.9770292742743191D+00
        ws(  8) = 0.9891282565343243D+00
        ws(  9) = 0.1001855355758336D+01
        ws( 10) = 0.1020491232057429D+01
        ws( 11) = 0.1037919213984097D+01
        ws( 12) = 0.1095720251839890D+01
        ws( 13) = 0.1217508849442785D+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 =  14
        err = 0.6383759362769141D-07
        xs(  1) = 0.7132810300917051D+00
        xs(  2) = 0.1638351768321005D+01
        xs(  3) = 0.2572203532196755D+01
        xs(  4) = 0.3512218729676136D+01
        xs(  5) = 0.4459208765200195D+01
        xs(  6) = 0.5414380468717321D+01
        xs(  7) = 0.6378826982105884D+01
        xs(  8) = 0.7353746505900862D+01
        xs(  9) = 0.8340018138128862D+01
        xs( 10) = 0.9338741073947981D+01
        xs( 11) = 0.1035104894570091D+02
        xs( 12) = 0.1137706834017610D+02
        xs( 13) = 0.1242208761325066D+02
        xs( 14) = 0.1346496203558626D+02
        ws(  1) = 0.9154690468293800D+00
        ws(  2) = 0.9308086280364858D+00
        ws(  3) = 0.9369581433447979D+00
        ws(  4) = 0.9434646689133067D+00
        ws(  5) = 0.9509971283053305D+00
        ws(  6) = 0.9598457566404612D+00
        ws(  7) = 0.9698351721436960D+00
        ws(  8) = 0.9809099288757157D+00
        ws(  9) = 0.9935579728047200D+00
        ws( 10) = 0.1006962872960781D+01
        ws( 11) = 0.1024905093777318D+01
        ws( 12) = 0.1044376882813332D+01
        ws( 13) = 0.1094660711229582D+01
        ws( 14) = 0.1225556618086703D+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 =  14
        err = 0.2761041615754123D-07
        xs(  1) = 0.7036883080554905D+00
        xs(  2) = 0.1616244518825366D+01
        xs(  3) = 0.2537744103576698D+01
        xs(  4) = 0.3465728485233150D+01
        xs(  5) = 0.4401113992645570D+01
        xs(  6) = 0.5345139521171800D+01
        xs(  7) = 0.6299071122000000D+01
        xs(  8) = 0.7263982585316167D+01
        xs(  9) = 0.8240915710639637D+01
        xs( 10) = 0.9230741442581346D+01
        xs( 11) = 0.1023433948821389D+02
        xs( 12) = 0.1125226523907920D+02
        xs( 13) = 0.1228481490758438D+02
        xs( 14) = 0.1332347618506859D+02
        ws(  1) = 0.9029380520049202D+00
        ws(  2) = 0.9182910601426848D+00
        ws(  3) = 0.9248272659688404D+00
        ws(  4) = 0.9316186732229013D+00
        ws(  5) = 0.9397050915385858D+00
        ws(  6) = 0.9490582839089416D+00
        ws(  7) = 0.9596672372458263D+00
        ws(  8) = 0.9714954345495816D+00
        ws(  9) = 0.9845014938852619D+00
        ws( 10) = 0.9991374214986432D+00
        ws( 11) = 0.1016228545717488D+01
        ws( 12) = 0.1038576484270672D+01
        ws( 13) = 0.1076017539795730D+01
        ws( 14) = 0.1214099359631963D+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 =  13
        err = 0.9085546691980962D-07
        xs(  1) = 0.7181017620364718D+00
        xs(  2) = 0.1627573125445761D+01
        xs(  3) = 0.2553845675880656D+01
        xs(  4) = 0.3487323057663206D+01
        xs(  5) = 0.4429819862970510D+01
        xs(  6) = 0.5382369226200290D+01
        xs(  7) = 0.6344807204714026D+01
        xs(  8) = 0.7320679110223748D+01
        xs(  9) = 0.8306762020837272D+01
        xs( 10) = 0.9308953126114629D+01
        xs( 11) = 0.1032178195154440D+02
        xs( 12) = 0.1134511355873754D+02
        xs( 13) = 0.1237968933649622D+02
        ws(  1) = 0.8967533745959387D+00
        ws(  2) = 0.9193088524451880D+00
        ws(  3) = 0.9301446599633540D+00
        ws(  4) = 0.9401687754389844D+00
        ws(  5) = 0.9473548069271983D+00
        ws(  6) = 0.9607403825626532D+00
        ws(  7) = 0.9702514070871949D+00
        ws(  8) = 0.9851043299164797D+00
        ws(  9) = 0.1000424665250155D+01
        ws( 10) = 0.1013931841789898D+01
        ws( 11) = 0.1048570702524769D+01
        ws( 12) = 0.1048330620863776D+01
        ws( 13) = 0.1238912619135135D+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 =  14
        err = 0.5029161917496304D-07
        xs(  1) = 0.6993867449797030D+00
        xs(  2) = 0.1605471192499995D+01
        xs(  3) = 0.2519492902708540D+01
        xs(  4) = 0.3438609349467308D+01
        xs(  5) = 0.4363258832432325D+01
        xs(  6) = 0.5294672732063068D+01
        xs(  7) = 0.6235051378548676D+01
        xs(  8) = 0.7186375380597615D+01
        xs(  9) = 0.8149908678333505D+01
        xs( 10) = 0.9126597248991706D+01
        xs( 11) = 0.1011138308013201D+02
        xs( 12) = 0.1109889635531970D+02
        xs( 13) = 0.1210047014453209D+02
        xs( 14) = 0.1313451801789570D+02
        ws(  1) = 0.8958222913401580D+00
        ws(  2) = 0.9113892759593095D+00
        ws(  3) = 0.9165013504677098D+00
        ws(  4) = 0.9214353405756507D+00
        ws(  5) = 0.9278350820765588D+00
        ws(  6) = 0.9354507242320108D+00
        ws(  7) = 0.9452144058921693D+00
        ws(  8) = 0.9585206403305836D+00
        ws(  9) = 0.9697210277798876D+00
        ws( 10) = 0.9763309768092425D+00
        ws( 11) = 0.9922435738533349D+00
        ws( 12) = 0.1036818909342818D+01
        ws( 13) = 0.1175931016834508D+01
        ws( 14) = 0.1281277343131265D+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 =  16
        err = 0.4066284389550112D-07
        xs(  1) = 0.6892877401311208D+00
        xs(  2) = 0.1581171768053017D+01
        xs(  3) = 0.2478735908694199D+01
        xs(  4) = 0.3378342492209708D+01
        xs(  5) = 0.4280195437794646D+01
        xs(  6) = 0.5185259258220491D+01
        xs(  7) = 0.6094739675866503D+01
        xs(  8) = 0.7010812364914966D+01
        xs(  9) = 0.7935234064113636D+01
        xs( 10) = 0.8869198810349866D+01
        xs( 11) = 0.9818678415899933D+01
        xs( 12) = 0.1077817495899804D+02
        xs( 13) = 0.1176380626658281D+02
        xs( 14) = 0.1275487451885775D+02
        xs( 15) = 0.1382670415088491D+02
        xs( 16) = 0.1480931251707443D+02
        ws(  1) = 0.8830440507923769D+00
        ws(  2) = 0.8962820961666534D+00
        ws(  3) = 0.8987306749359246D+00
        ws(  4) = 0.9009315195360321D+00
        ws(  5) = 0.9032510450680549D+00
        ws(  6) = 0.9067998700796839D+00
        ws(  7) = 0.9123479741225416D+00
        ws(  8) = 0.9192794555387178D+00
        ws(  9) = 0.9287696992726078D+00
        ws( 10) = 0.9406795407693767D+00
        ws( 11) = 0.9546443336170255D+00
        ws( 12) = 0.9717816316716884D+00
        ws( 13) = 0.9990465450248828D+00
        ws( 14) = 0.9975358731051336D+00
        ws( 15) = 0.1127308908933167D+01
        ws( 16) = 0.1420722988132728D+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 =  16
        err = 0.9785667272315709D-07
        xs(  1) = 0.7073512456197669D+00
        xs(  2) = 0.1620418004820976D+01
        xs(  3) = 0.2536575898186047D+01
        xs(  4) = 0.3451034030243612D+01
        xs(  5) = 0.4363812778742345D+01
        xs(  6) = 0.5275998001374562D+01
        xs(  7) = 0.6188486129142310D+01
        xs(  8) = 0.7102829572485365D+01
        xs(  9) = 0.8021125359440468D+01
        xs( 10) = 0.8943960576588854D+01
        xs( 11) = 0.9873147382543442D+01
        xs( 12) = 0.1080804383422160D+02
        xs( 13) = 0.1175375748846486D+02
        xs( 14) = 0.1274365658439410D+02
        xs( 15) = 0.1378253363757213D+02
        xs( 16) = 0.1478342691622202D+02
        ws(  1) = 0.9032916972655256D+00
        ws(  2) = 0.9163143396871145D+00
        ws(  3) = 0.9159626242981386D+00
        ws(  4) = 0.9139484444200473D+00
        ws(  5) = 0.9124072190422767D+00
        ws(  6) = 0.9120300580780727D+00
        ws(  7) = 0.9125389609019449D+00
        ws(  8) = 0.9152817385053624D+00
        ws(  9) = 0.9199827177649772D+00
        ws( 10) = 0.9238565138284270D+00
        ws( 11) = 0.9312375576726467D+00
        ws( 12) = 0.9429301110142443D+00
        ws( 13) = 0.9457572700192429D+00
        ws( 14) = 0.9737100711699110D+00
        ws( 15) = 0.1245644515457044D+01
        ws( 16) = 0.1287487120564906D+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 =  18
        err = 0.9523770060589380D-07
        xs(  1) = 0.7117963557059038D+00
        xs(  2) = 0.1630959535682392D+01
        xs(  3) = 0.2553457183690613D+01
        xs(  4) = 0.3473840645444735D+01
        xs(  5) = 0.4391259225444642D+01
        xs(  6) = 0.5306534380880315D+01
        xs(  7) = 0.6220051326384613D+01
        xs(  8) = 0.7131824618350990D+01
        xs(  9) = 0.8043649195878228D+01
        xs( 10) = 0.8956647488585860D+01
        xs( 11) = 0.9870802263735561D+01
        xs( 12) = 0.1078991427461426D+02
        xs( 13) = 0.1171352936899390D+02
        xs( 14) = 0.1264227851725282D+02
        xs( 15) = 0.1358471128019502D+02
        xs( 16) = 0.1454580124000321D+02
        xs( 17) = 0.1549889774874387D+02
        xs( 18) = 0.1653976231689989D+02
        ws(  1) = 0.9094259573005955D+00
        ws(  2) = 0.9228251384006170D+00
        ws(  3) = 0.9222527350031174D+00
        ws(  4) = 0.9191891236507197D+00
        ws(  5) = 0.9162274734811046D+00
        ws(  6) = 0.9142809187641034D+00
        ws(  7) = 0.9121932767190593D+00
        ws(  8) = 0.9108529969230185D+00
        ws(  9) = 0.9121816075892774D+00
        ws( 10) = 0.9121307452846547D+00
        ws( 11) = 0.9165772864316200D+00
        ws( 12) = 0.9177755288121878D+00
        ws( 13) = 0.9303526737994613D+00
        ws( 14) = 0.9361143606269847D+00
        ws( 15) = 0.9395679687656616D+00
        ws( 16) = 0.9298265987290752D+00
        ws( 17) = 0.8711562458055339D+00
        ws( 18) = 0.1434054583522070D+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 =  21
        err = 0.2333934926504858D-07
        xs(  1) = 0.7116706023726064D+00
        xs(  2) = 0.1632629129996640D+01
        xs(  3) = 0.2557487786883511D+01
        xs(  4) = 0.3481104805805329D+01
        xs(  5) = 0.4402157406298958D+01
        xs(  6) = 0.5320033991338394D+01
        xs(  7) = 0.6234335168183250D+01
        xs(  8) = 0.7145009496261803D+01
        xs(  9) = 0.8052227338001504D+01
        xs( 10) = 0.8956323102712954D+01
        xs( 11) = 0.9857851210089443D+01
        xs( 12) = 0.1075780343422905D+02
        xs( 13) = 0.1165702265352442D+02
        xs( 14) = 0.1255759794496423D+02
        xs( 15) = 0.1346078154460007D+02
        xs( 16) = 0.1436701844426122D+02
        xs( 17) = 0.1528742720054445D+02
        xs( 18) = 0.1620786321609133D+02
        xs( 19) = 0.1715385678321776D+02
        xs( 20) = 0.1816450221730313D+02
        xs( 21) = 0.1904644117508394D+02
        ws(  1) = 0.9128052204441109D+00
        ws(  2) = 0.9245871796074417D+00
        ws(  3) = 0.9245871165426612D+00
        ws(  4) = 0.9225842753682422D+00
        ws(  5) = 0.9195531600544364D+00
        ws(  6) = 0.9161531336509999D+00
        ws(  7) = 0.9124666245603987D+00
        ws(  8) = 0.9087724866102346D+00
        ws(  9) = 0.9056172875169555D+00
        ws( 10) = 0.9026089010219381D+00
        ws( 11) = 0.9003010861267665D+00
        ws( 12) = 0.8995300451969830D+00
        ws( 13) = 0.9008650679895132D+00
        ws( 14) = 0.9015324142534021D+00
        ws( 15) = 0.9026961845644755D+00
        ws( 16) = 0.9052742887993512D+00
        ws( 17) = 0.9213029820136179D+00
        ws( 18) = 0.9226190022894434D+00
        ws( 19) = 0.8924008873299545D+00
        ws( 20) = 0.1106122020353052D+01
        ws( 21) = 0.1277501844352047D+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 =  21
        err = 0.6828688646369754D-07
        xs(  1) = 0.7331893215793926D+00
        xs(  2) = 0.1681620602502625D+01
        xs(  3) = 0.2633710126139162D+01
        xs(  4) = 0.3583874383870539D+01
        xs(  5) = 0.4530620664741684D+01
        xs(  6) = 0.5473688534320132D+01
        xs(  7) = 0.6412951856390768D+01
        xs(  8) = 0.7347680909019415D+01
        xs(  9) = 0.8277599483317539D+01
        xs( 10) = 0.9203466599381525D+01
        xs( 11) = 0.1012445566828031D+02
        xs( 12) = 0.1104183516749598D+02
        xs( 13) = 0.1195451116124422D+02
        xs( 14) = 0.1286536603042806D+02
        xs( 15) = 0.1377377982488351D+02
        xs( 16) = 0.1468178757774794D+02
        xs( 17) = 0.1558796800646544D+02
        xs( 18) = 0.1649103707375018D+02
        xs( 19) = 0.1741344766241222D+02
        xs( 20) = 0.1824704097403086D+02
        xs( 21) = 0.1935445029489882D+02
        ws(  1) = 0.9400236739726199D+00
        ws(  2) = 0.9524091559691129D+00
        ws(  3) = 0.9518077353206905D+00
        ws(  4) = 0.9488027199691685D+00
        ws(  5) = 0.9452954628124286D+00
        ws(  6) = 0.9413605740117788D+00
        ws(  7) = 0.9370298256390945D+00
        ws(  8) = 0.9318807455819876D+00
        ws(  9) = 0.9273892962171404D+00
        ws( 10) = 0.9237844247205699D+00
        ws( 11) = 0.9173400360374045D+00
        ws( 12) = 0.9163034377115756D+00
        ws( 13) = 0.9148611453890655D+00
        ws( 14) = 0.9113062415615850D+00
        ws( 15) = 0.8983832751404258D+00
        ws( 16) = 0.8962879087078486D+00
        ws( 17) = 0.9083828208430313D+00
        ws( 18) = 0.8269588270151124D+00
        ws( 19) = 0.9427926205929226D+00
        ws( 20) = 0.1014488913547856D+01
        ws( 21) = 0.9890498521849029D+00
        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 =  23
        err = 0.6067388268029757D-07
        xs(  1) = 0.7340248119099679D+00
        xs(  2) = 0.1682482932378494D+01
        xs(  3) = 0.2635457301812648D+01
        xs(  4) = 0.3587396521821031D+01
        xs(  5) = 0.4536773550068848D+01
        xs(  6) = 0.5482633732449028D+01
        xs(  7) = 0.6424678686559714D+01
        xs(  8) = 0.7362777191928822D+01
        xs(  9) = 0.8296231195345054D+01
        xs( 10) = 0.9225164764391055D+01
        xs( 11) = 0.1014970186255298D+02
        xs( 12) = 0.1106936332301859D+02
        xs( 13) = 0.1198517798925264D+02
        xs( 14) = 0.1289692187079394D+02
        xs( 15) = 0.1380668934309915D+02
        xs( 16) = 0.1471778102581511D+02
        xs( 17) = 0.1561452972640431D+02
        xs( 18) = 0.1652903083712427D+02
        xs( 19) = 0.1742663337266353D+02
        xs( 20) = 0.1834865857676502D+02
        xs( 21) = 0.1930377909061954D+02
        xs( 22) = 0.2012824753170099D+02
        xs( 23) = 0.2122243029281055D+02
        ws(  1) = 0.9392114022833224D+00
        ws(  2) = 0.9529586352422444D+00
        ws(  3) = 0.9527836127677218D+00
        ws(  4) = 0.9509075323820049D+00
        ws(  5) = 0.9476628076599228D+00
        ws(  6) = 0.9440929087560479D+00
        ws(  7) = 0.9400984684251890D+00
        ws(  8) = 0.9357847074728604D+00
        ws(  9) = 0.9310727524249957D+00
        ws( 10) = 0.9264058356653049D+00
        ws( 11) = 0.9226979208675520D+00
        ws( 12) = 0.9171482940353824D+00
        ws( 13) = 0.9133419302864960D+00
        ws( 14) = 0.9144158733256961D+00
        ws( 15) = 0.9061700823359071D+00
        ws( 16) = 0.9052939978122394D+00
        ws( 17) = 0.9027060402039664D+00
        ws( 18) = 0.8805599378849978D+00
        ws( 19) = 0.9565692314929585D+00
        ws( 20) = 0.9260746527641844D+00
        ws( 21) = 0.8574473509081351D+00
        ws( 22) = 0.5660842626343664D+00
        ws( 23) = 0.1829621919220334D+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 =  25
        err = 0.5321427015120596D-07
        xs(  1) = 0.7461530189818660D+00
        xs(  2) = 0.1713616575193516D+01
        xs(  3) = 0.2683796376398697D+01
        xs(  4) = 0.3652941708558243D+01
        xs(  5) = 0.4618843377178274D+01
        xs(  6) = 0.5581068674937751D+01
        xs(  7) = 0.6539912664701432D+01
        xs(  8) = 0.7494913657909055D+01
        xs(  9) = 0.8445237264398784D+01
        xs( 10) = 0.9390055549130908D+01
        xs( 11) = 0.1033131215928666D+02
        xs( 12) = 0.1126673700554863D+02
        xs( 13) = 0.1219649601946142D+02
        xs( 14) = 0.1312317450795353D+02
        xs( 15) = 0.1404689131736988D+02
        xs( 16) = 0.1496601138140507D+02
        xs( 17) = 0.1587776127293691D+02
        xs( 18) = 0.1679388046716744D+02
        xs( 19) = 0.1770729169937692D+02
        xs( 20) = 0.1860852710869605D+02
        xs( 21) = 0.1952144786161859D+02
        xs( 22) = 0.2045679193545163D+02
        xs( 23) = 0.2134893585714647D+02
        xs( 24) = 0.2236984117365154D+02
        xs( 25) = 0.2338836811544866D+02
        ws(  1) = 0.9563562009587443D+00
        ws(  2) = 0.9698077872078054D+00
        ws(  3) = 0.9707722985330128D+00
        ws(  4) = 0.9673529481700210D+00
        ws(  5) = 0.9639598185669933D+00
        ws(  6) = 0.9596856151448334D+00
        ws(  7) = 0.9568660398722130D+00
        ws(  8) = 0.9530204487896999D+00
        ws(  9) = 0.9474591941185400D+00
        ws( 10) = 0.9440970391829763D+00
        ws( 11) = 0.9382025797693661D+00
        ws( 12) = 0.9332037604005621D+00
        ws( 13) = 0.9309471719243295D+00
        ws( 14) = 0.9190372756647673D+00
        ws( 15) = 0.9239514206029171D+00
        ws( 16) = 0.9159743547561580D+00
        ws( 17) = 0.9221633233116383D+00
        ws( 18) = 0.9051343689022568D+00
        ws( 19) = 0.9247786556601271D+00
        ws( 20) = 0.9154994692440875D+00
        ws( 21) = 0.8993781128158768D+00
        ws( 22) = 0.8995436795981091D+00
        ws( 23) = 0.9547169044209169D+00
        ws( 24) = 0.8780013642060046D+00
        ws( 25) = 0.1503650398694380D+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 =  27
        err = 0.6998372363873567D-07
        xs(  1) = 0.7570398978000010D+00
        xs(  2) = 0.1734879442889413D+01
        xs(  3) = 0.2716769296337030D+01
        xs(  4) = 0.3698125183354622D+01
        xs(  5) = 0.4676335362240365D+01
        xs(  6) = 0.5650668302595244D+01
        xs(  7) = 0.6621725289983036D+01
        xs(  8) = 0.7589023346710377D+01
        xs(  9) = 0.8552897440327937D+01
        xs( 10) = 0.9510822694317712D+01
        xs( 11) = 0.1046482565480422D+02
        xs( 12) = 0.1141383586070583D+02
        xs( 13) = 0.1235750718969962D+02
        xs( 14) = 0.1329643329010051D+02
        xs( 15) = 0.1423071978797441D+02
        xs( 16) = 0.1515904409866319D+02
        xs( 17) = 0.1608470743013676D+02
        xs( 18) = 0.1700501948602999D+02
        xs( 19) = 0.1792153616718624D+02
        xs( 20) = 0.1883037720422134D+02
        xs( 21) = 0.1974055861902761D+02
        xs( 22) = 0.2066091829625501D+02
        xs( 23) = 0.2157176353540916D+02
        xs( 24) = 0.2245906226425106D+02
        xs( 25) = 0.2333688676590748D+02
        xs( 26) = 0.2429459048693098D+02
        xs( 27) = 0.2535982675449238D+02
        ws(  1) = 0.9651921080602504D+00
        ws(  2) = 0.9824785205703840D+00
        ws(  3) = 0.9825707613717709D+00
        ws(  4) = 0.9790694510064176D+00
        ws(  5) = 0.9766992051437263D+00
        ws(  6) = 0.9723313673840805D+00
        ws(  7) = 0.9691538247477179D+00
        ws(  8) = 0.9656856484849848D+00
        ws(  9) = 0.9608412207812658D+00
        ws( 10) = 0.9561098427379395D+00
        ws( 11) = 0.9510091465701804D+00
        ws( 12) = 0.9482012603366262D+00
        ws( 13) = 0.9393678499921172D+00
        ws( 14) = 0.9385597896387915D+00
        ws( 15) = 0.9298429955421375D+00
        ws( 16) = 0.9300848792737321D+00
        ws( 17) = 0.9154814978144694D+00
        ws( 18) = 0.9203006638872864D+00
        ws( 19) = 0.9176805435224800D+00
        ws( 20) = 0.9151143370221302D+00
        ws( 21) = 0.9124542566964792D+00
        ws( 22) = 0.8753311490756996D+00
        ws( 23) = 0.9175018044686953D+00
        ws( 24) = 0.8662933123088337D+00
        ws( 25) = 0.8109761517883141D+00
        ws( 26) = 0.9209541051118721D+00
        ws( 27) = 0.1025645685723314D+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 =  29
        err = 0.9337829437852041D-07
        xs(  1) = 0.7542168946309710D+00
        xs(  2) = 0.1735419417936070D+01
        xs(  3) = 0.2718765937322798D+01
        xs(  4) = 0.3702152044220172D+01
        xs(  5) = 0.4683382234784545D+01
        xs(  6) = 0.5660337275425738D+01
        xs(  7) = 0.6635176633095360D+01
        xs(  8) = 0.7604892543586041D+01
        xs(  9) = 0.8573267484532154D+01
        xs( 10) = 0.9534749009055345D+01
        xs( 11) = 0.1049382845649855D+02
        xs( 12) = 0.1144622080527202D+02
        xs( 13) = 0.1239512388361723D+02
        xs( 14) = 0.1333803650189494D+02
        xs( 15) = 0.1427579248598434D+02
        xs( 16) = 0.1521169655558984D+02
        xs( 17) = 0.1613727484066558D+02
        xs( 18) = 0.1706126837430142D+02
        xs( 19) = 0.1797735086558085D+02
        xs( 20) = 0.1889544438480133D+02
        xs( 21) = 0.1980059603986592D+02
        xs( 22) = 0.2070209764076178D+02
        xs( 23) = 0.2159462776865439D+02
        xs( 24) = 0.2250801100177426D+02
        xs( 25) = 0.2342213752517592D+02
        xs( 26) = 0.2428331147821642D+02
        xs( 27) = 0.2510167485229983D+02
        xs( 28) = 0.2598166365408675D+02
        xs( 29) = 0.2736473998081123D+02
        ws(  1) = 0.9715912568254589D+00
        ws(  2) = 0.9822639921468508D+00
        ws(  3) = 0.9851251874960020D+00
        ws(  4) = 0.9809300332337421D+00
        ws(  5) = 0.9807699941037389D+00
        ws(  6) = 0.9749778178331466D+00
        ws(  7) = 0.9729821712412040D+00
        ws(  8) = 0.9680151576828782D+00
        ws(  9) = 0.9665965580386179D+00
        ws( 10) = 0.9592343294157218D+00
        ws( 11) = 0.9562342043986480D+00
        ws( 12) = 0.9502096058938656D+00
        ws( 13) = 0.9483825995302071D+00
        ws( 14) = 0.9370790701135313D+00
        ws( 15) = 0.9388613917276847D+00
        ws( 16) = 0.9270203595086416D+00
        ws( 17) = 0.9293788927136121D+00
        ws( 18) = 0.9194366850922553D+00
        ws( 19) = 0.9148969619143656D+00
        ws( 20) = 0.9186355519681639D+00
        ws( 21) = 0.8978137866557230D+00
        ws( 22) = 0.9127205022710329D+00
        ws( 23) = 0.8797629351145930D+00
        ws( 24) = 0.9182765388908490D+00
        ws( 25) = 0.9448098255769738D+00
        ws( 26) = 0.8644782794758405D+00
        ws( 27) = 0.7752478978820923D+00
        ws( 28) = 0.8189267390418482D+00
        ws( 29) = 0.2019194039152621D+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 =  32
        err = 0.6079528440215288D-07
        xs(  1) = 0.7657294378575762D+00
        xs(  2) = 0.1745769030806053D+01
        xs(  3) = 0.2735499995485556D+01
        xs(  4) = 0.3722937817537397D+01
        xs(  5) = 0.4710266884788309D+01
        xs(  6) = 0.5692395988923549D+01
        xs(  7) = 0.6673373618179942D+01
        xs(  8) = 0.7649261684259529D+01
        xs(  9) = 0.8624198632656260D+01
        xs( 10) = 0.9592254169598018D+01
        xs( 11) = 0.1055851524410076D+02
        xs( 12) = 0.1151849973923661D+02
        xs( 13) = 0.1247459883480925D+02
        xs( 14) = 0.1342606759865362D+02
        xs( 15) = 0.1437180848667831D+02
        xs( 16) = 0.1531400316079498D+02
        xs( 17) = 0.1625076419350134D+02
        xs( 18) = 0.1718069268806335D+02
        xs( 19) = 0.1810871465536336D+02
        xs( 20) = 0.1902799408904150D+02
        xs( 21) = 0.1994635530705025D+02
        xs( 22) = 0.2085681852393120D+02
        xs( 23) = 0.2176363822995833D+02
        xs( 24) = 0.2266975313951990D+02
        xs( 25) = 0.2356562521465274D+02
        xs( 26) = 0.2446867247017127D+02
        xs( 27) = 0.2535341551101932D+02
        xs( 28) = 0.2624924737488444D+02
        xs( 29) = 0.2715667486701785D+02
        xs( 30) = 0.2793340583730639D+02
        xs( 31) = 0.2891578430911666D+02
        xs( 32) = 0.3000712440267005D+02
        ws(  1) = 0.9710101365070437D+00
        ws(  2) = 0.9894266765076808D+00
        ws(  3) = 0.9874389611666291D+00
        ws(  4) = 0.9889318454930381D+00
        ws(  5) = 0.9829486005087525D+00
        ws(  6) = 0.9840592419098630D+00
        ws(  7) = 0.9761213163075143D+00
        ws(  8) = 0.9763923778308921D+00
        ws(  9) = 0.9725297261838711D+00
        ws( 10) = 0.9664086861231052D+00
        ws( 11) = 0.9629059423353995D+00
        ws( 12) = 0.9577871392390698D+00
        ws( 13) = 0.9554253290862781D+00
        ws( 14) = 0.9471350476970932D+00
        ws( 15) = 0.9449268138391465D+00
        ws( 16) = 0.9396178287237742D+00
        ws( 17) = 0.9316307063235078D+00
        ws( 18) = 0.9295466250726087D+00
        ws( 19) = 0.9242822167174904D+00
        ws( 20) = 0.9206839790886190D+00
        ws( 21) = 0.9109657674161089D+00
        ws( 22) = 0.9055493435053932D+00
        ws( 23) = 0.9113045580695469D+00
        ws( 24) = 0.9034817049913295D+00
        ws( 25) = 0.8843324327450465D+00
        ws( 26) = 0.8819666527362834D+00
        ws( 27) = 0.9245069302073753D+00
        ws( 28) = 0.8527139725660873D+00
        ws( 29) = 0.8090566596608995D+00
        ws( 30) = 0.8434540384019950D+00
        ws( 31) = 0.7391227300071794D+00
        ws( 32) = 0.1382127862925991D+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 =  35
        err = 0.6163366622208930D-07
        xs(  1) = 0.7626048380896098D+00
        xs(  2) = 0.1745289232517168D+01
        xs(  3) = 0.2733679609453439D+01
        xs(  4) = 0.3723094569542677D+01
        xs(  5) = 0.4710296004991609D+01
        xs(  6) = 0.5694278913870029D+01
        xs(  7) = 0.6677219634814837D+01
        xs(  8) = 0.7654757582530837D+01
        xs(  9) = 0.8632052667314991D+01
        xs( 10) = 0.9602843036057788D+01
        xs( 11) = 0.1057137889558974D+02
        xs( 12) = 0.1153595702804417D+02
        xs( 13) = 0.1249512947955479D+02
        xs( 14) = 0.1345130894715515D+02
        xs( 15) = 0.1440175799720991D+02
        xs( 16) = 0.1534805220252900D+02
        xs( 17) = 0.1628998309448003D+02
        xs( 18) = 0.1722635472123413D+02
        xs( 19) = 0.1815783647395664D+02
        xs( 20) = 0.1908571971534154D+02
        xs( 21) = 0.2000765707329354D+02
        xs( 22) = 0.2092402512502712D+02
        xs( 23) = 0.2183723175921606D+02
        xs( 24) = 0.2274637484452392D+02
        xs( 25) = 0.2364986820110071D+02
        xs( 26) = 0.2454978294543825D+02
        xs( 27) = 0.2544000625880824D+02
        xs( 28) = 0.2633411708467558D+02
        xs( 29) = 0.2722505125723997D+02
        xs( 30) = 0.2809586366388757D+02
        xs( 31) = 0.2900956476164476D+02
        xs( 32) = 0.2989805044026006D+02
        xs( 33) = 0.3063349392627240D+02
        xs( 34) = 0.3165717669597910D+02
        xs( 35) = 0.3284666215318705D+02
        ws(  1) = 0.9711448420500816D+00
        ws(  2) = 0.9911416060760208D+00
        ws(  3) = 0.9864725469139330D+00
        ws(  4) = 0.9907563929063506D+00
        ws(  5) = 0.9829697981981446D+00
        ws(  6) = 0.9873622981471540D+00
        ws(  7) = 0.9768529493799877D+00
        ws(  8) = 0.9784058400090297D+00
        ws(  9) = 0.9751059059762478D+00
        ws( 10) = 0.9701449887198342D+00
        ws( 11) = 0.9656198268356549D+00
        ws( 12) = 0.9604848554416046D+00
        ws( 13) = 0.9581373183268729D+00
        ws( 14) = 0.9534465744471665D+00
        ws( 15) = 0.9494381100591521D+00
        ws( 16) = 0.9438389253519367D+00
        ws( 17) = 0.9375999523913026D+00
        ws( 18) = 0.9345633497150591D+00
        ws( 19) = 0.9304973167279996D+00
        ws( 20) = 0.9231826332962951D+00
        ws( 21) = 0.9186135808768690D+00
        ws( 22) = 0.9132131482877295D+00
        ws( 23) = 0.9114049887732373D+00
        ws( 24) = 0.9069204509228052D+00
        ws( 25) = 0.9007603465766667D+00
        ws( 26) = 0.8837853716182287D+00
        ws( 27) = 0.9028716519303338D+00
        ws( 28) = 0.8789014676124922D+00
        ws( 29) = 0.8950845930725562D+00
        ws( 30) = 0.8496640750746925D+00
        ws( 31) = 0.8661643420847124D+00
        ws( 32) = 0.9801454357958718D+00
        ws( 33) = 0.6614959449164107D+00
        ws( 34) = 0.7589390405039893D+00
        ws( 35) = 0.1661780714065141D+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 =  37
        err = 0.7919395364257910D-07
        xs(  1) = 0.7700006889554393D+00
        xs(  2) = 0.1756397658003257D+01
        xs(  3) = 0.2754130615043343D+01
        xs(  4) = 0.3749904342060078D+01
        xs(  5) = 0.4742952592449962D+01
        xs(  6) = 0.5736949142511871D+01
        xs(  7) = 0.6724540152487482D+01
        xs(  8) = 0.7711740900475755D+01
        xs(  9) = 0.8694597842629022D+01
        xs( 10) = 0.9675235142713431D+01
        xs( 11) = 0.1065208654759727D+02
        xs( 12) = 0.1162498520164073D+02
        xs( 13) = 0.1259234953140015D+02
        xs( 14) = 0.1355814341661734D+02
        xs( 15) = 0.1451775763180662D+02
        xs( 16) = 0.1547366282676860D+02
        xs( 17) = 0.1642556860288453D+02
        xs( 18) = 0.1737297858223700D+02
        xs( 19) = 0.1831264221372139D+02
        xs( 20) = 0.1925253284233375D+02
        xs( 21) = 0.2018490873914276D+02
        xs( 22) = 0.2111210254916947D+02
        xs( 23) = 0.2203572712860012D+02
        xs( 24) = 0.2295309379750573D+02
        xs( 25) = 0.2386651985512943D+02
        xs( 26) = 0.2478113120000088D+02
        xs( 27) = 0.2567798207014508D+02
        xs( 28) = 0.2658269484364350D+02
        xs( 29) = 0.2746777973898253D+02
        xs( 30) = 0.2837499961936652D+02
        xs( 31) = 0.2925109850962314D+02
        xs( 32) = 0.3015233590532678D+02
        xs( 33) = 0.3101089746145423D+02
        xs( 34) = 0.3179960542723548D+02
        xs( 35) = 0.3277809776723354D+02
        xs( 36) = 0.3381301225995217D+02
        xs( 37) = 0.3499979506899681D+02
        ws(  1) = 0.9780237402147393D+00
        ws(  2) = 0.9956668229517394D+00
        ws(  3) = 0.9973707220833828D+00
        ws(  4) = 0.9921534987440834D+00
        ws(  5) = 0.9982997040196608D+00
        ws(  6) = 0.9866972064182059D+00
        ws(  7) = 0.9869451214367099D+00
        ws(  8) = 0.9897271181979185D+00
        ws(  9) = 0.9783203372669272D+00
        ws( 10) = 0.9793303970214038D+00
        ws( 11) = 0.9745351987914614D+00
        ws( 12) = 0.9692361430898836D+00
        ws( 13) = 0.9692350143834213D+00
        ws( 14) = 0.9622913333033998D+00
        ws( 15) = 0.9557193594576817D+00
        ws( 16) = 0.9545829535745928D+00
        ws( 17) = 0.9493709417038310D+00
        ws( 18) = 0.9458915442958471D+00
        ws( 19) = 0.9396412280837328D+00
        ws( 20) = 0.9326959125297670D+00
        ws( 21) = 0.9291572948853908D+00
        ws( 22) = 0.9280393669343593D+00
        ws( 23) = 0.9205557722056046D+00
        ws( 24) = 0.9168712036851802D+00
        ws( 25) = 0.9077845446102415D+00
        ws( 26) = 0.9006032810119305D+00
        ws( 27) = 0.9009545018708210D+00
        ws( 28) = 0.9034019006713698D+00
        ws( 29) = 0.8823894850374535D+00
        ws( 30) = 0.8667551954969791D+00
        ws( 31) = 0.8822787921340570D+00
        ws( 32) = 0.8396898609963397D+00
        ws( 33) = 0.8797327087523962D+00
        ws( 34) = 0.6780942816586113D+00
        ws( 35) = 0.8735831025433997D+00
        ws( 36) = 0.9262924962890976D+00
        ws( 37) = 0.8216213092415617D+00
        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 =  40
        err = 0.5766942710900390D-07
        xs(  1) = 0.7591923149489731D+00
        xs(  2) = 0.1760230251356721D+01
        xs(  3) = 0.2759620884600178D+01
        xs(  4) = 0.3759752039441397D+01
        xs(  5) = 0.4758054366399138D+01
        xs(  6) = 0.5754753866823831D+01
        xs(  7) = 0.6747606811080383D+01
        xs(  8) = 0.7738733375757551D+01
        xs(  9) = 0.8726911404096638D+01
        xs( 10) = 0.9712229297366456D+01
        xs( 11) = 0.1069401298219441D+02
        xs( 12) = 0.1167206213539480D+02
        xs( 13) = 0.1264599365772588D+02
        xs( 14) = 0.1361659286391256D+02
        xs( 15) = 0.1458329144125805D+02
        xs( 16) = 0.1554542351655522D+02
        xs( 17) = 0.1650368524639429D+02
        xs( 18) = 0.1745733438190536D+02
        xs( 19) = 0.1840683106646171D+02
        xs( 20) = 0.1935090327861531D+02
        xs( 21) = 0.2029152145373247D+02
        xs( 22) = 0.2122766362600357D+02
        xs( 23) = 0.2215811611872200D+02
        xs( 24) = 0.2308429806133377D+02
        xs( 25) = 0.2400461996821229D+02
        xs( 26) = 0.2492171666819066D+02
        xs( 27) = 0.2583440113646210D+02
        xs( 28) = 0.2674218628977402D+02
        xs( 29) = 0.2764252388749901D+02
        xs( 30) = 0.2854233179138707D+02
        xs( 31) = 0.2942916787476761D+02
        xs( 32) = 0.3032028792416633D+02
        xs( 33) = 0.3120868907520911D+02
        xs( 34) = 0.3207451316993769D+02
        xs( 35) = 0.3296735566766806D+02
        xs( 36) = 0.3381509157496864D+02
        xs( 37) = 0.3467517801821565D+02
        xs( 38) = 0.3549209167717333D+02
        xs( 39) = 0.3644167712412896D+02
        xs( 40) = 0.3752544295693874D+02
        ws(  1) = 0.9816640357340263D+00
        ws(  2) = 0.1006498486641819D+01
        ws(  3) = 0.9970790664202472D+00
        ws(  4) = 0.1000761747849321D+01
        ws(  5) = 0.9959190317845603D+00
        ws(  6) = 0.9967919023831384D+00
        ws(  7) = 0.9907603965832709D+00
        ws(  8) = 0.9907854147152224D+00
        ws(  9) = 0.9854888625005853D+00
        ws( 10) = 0.9840456790846562D+00
        ws( 11) = 0.9790036009429289D+00
        ws( 12) = 0.9780278777262617D+00
        ws( 13) = 0.9718541141038214D+00
        ws( 14) = 0.9680459282634252D+00
        ws( 15) = 0.9641292485050398D+00
        ws( 16) = 0.9600806128436769D+00
        ws( 17) = 0.9569173859670003D+00
        ws( 18) = 0.9519112636519566D+00
        ws( 19) = 0.9463537192108726D+00
        ws( 20) = 0.9417636301770138D+00
        ws( 21) = 0.9388047755356387D+00
        ws( 22) = 0.9337307005933594D+00
        ws( 23) = 0.9286855570149635D+00
        ws( 24) = 0.9242806838527562D+00
        ws( 25) = 0.9201941020659365D+00
        ws( 26) = 0.9101902152207515D+00
        ws( 27) = 0.9147527492542976D+00
        ws( 28) = 0.9044661851316340D+00
        ws( 29) = 0.8991956084189796D+00
        ws( 30) = 0.9022297614543852D+00
        ws( 31) = 0.8817381528576652D+00
        ws( 32) = 0.8822461416914381D+00
        ws( 33) = 0.8859142068779986D+00
        ws( 34) = 0.8893278934770728D+00
        ws( 35) = 0.8395972946388641D+00
        ws( 36) = 0.8077205844900222D+00
        ws( 37) = 0.8572696409441910D+00
        ws( 38) = 0.6698820196076901D+00
        ws( 39) = 0.8449084979809286D+00
        ws( 40) = 0.7885983414011681D+00
        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 =  41
        err = 0.9734136792638363D-07
        xs(  1) = 0.7945215857557157D+00
        xs(  2) = 0.1783259824477693D+01
        xs(  3) = 0.2787938063496435D+01
        xs(  4) = 0.3795063986932040D+01
        xs(  5) = 0.4799932498907293D+01
        xs(  6) = 0.5804913569877946D+01
        xs(  7) = 0.6804475822323425D+01
        xs(  8) = 0.7804988126173920D+01
        xs(  9) = 0.8799739470389332D+01
        xs( 10) = 0.9795413188438117D+01
        xs( 11) = 0.1078365743949255D+02
        xs( 12) = 0.1177266860712930D+02
        xs( 13) = 0.1275566765002716D+02
        xs( 14) = 0.1373554052250085D+02
        xs( 15) = 0.1471215122103078D+02
        xs( 16) = 0.1568439660504862D+02
        xs( 17) = 0.1665276580145087D+02
        xs( 18) = 0.1761787143197666D+02
        xs( 19) = 0.1857804948824385D+02
        xs( 20) = 0.1953414874172671D+02
        xs( 21) = 0.2048565417124667D+02
        xs( 22) = 0.2143318388605726D+02
        xs( 23) = 0.2237842980120892D+02
        xs( 24) = 0.2331584460133061D+02
        xs( 25) = 0.2424914292258538D+02
        xs( 26) = 0.2518010670883012D+02
        xs( 27) = 0.2610339339577705D+02
        xs( 28) = 0.2703078576642523D+02
        xs( 29) = 0.2794476643254137D+02
        xs( 30) = 0.2885178416015843D+02
        xs( 31) = 0.2976554063533480D+02
        xs( 32) = 0.3066600363133736D+02
        xs( 33) = 0.3156493211552974D+02
        xs( 34) = 0.3246377305018726D+02
        xs( 35) = 0.3334243543541607D+02
        xs( 36) = 0.3425502571079161D+02
        xs( 37) = 0.3511192254661019D+02
        xs( 38) = 0.3597109786646350D+02
        xs( 39) = 0.3682482781742652D+02
        xs( 40) = 0.3776023793370753D+02
        xs( 41) = 0.3870907350955805D+02
        ws(  1) = 0.9937822768145081D+00
        ws(  2) = 0.9942472509170839D+00
        ws(  3) = 0.1010720345030164D+01
        ws(  4) = 0.1002254950146389D+01
        ws(  5) = 0.1008128636459883D+01
        ws(  6) = 0.1001833167741169D+01
        ws(  7) = 0.1000162552534894D+01
        ws(  8) = 0.9959575106699813D+00
        ws(  9) = 0.9953887007370255D+00
        ws( 10) = 0.9934023971449600D+00
        ws( 11) = 0.9897001034378474D+00
        ws( 12) = 0.9847150407107841D+00
        ws( 13) = 0.9797172754433060D+00
        ws( 14) = 0.9796542429831108D+00
        ws( 15) = 0.9740824007975127D+00
        ws( 16) = 0.9708446049102829D+00
        ws( 17) = 0.9667117215586758D+00
        ws( 18) = 0.9637517883908630D+00
        ws( 19) = 0.9568426950779051D+00
        ws( 20) = 0.9525959065538369D+00
        ws( 21) = 0.9500612942371218D+00
        ws( 22) = 0.9462193945079534D+00
        ws( 23) = 0.9431049994506006D+00
        ws( 24) = 0.9354822945249327D+00
        ws( 25) = 0.9294556734569724D+00
        ws( 26) = 0.9311327880069322D+00
        ws( 27) = 0.9167194103530415D+00
        ws( 28) = 0.9283307900272062D+00
        ws( 29) = 0.9121689917788831D+00
        ws( 30) = 0.9051669833488636D+00
        ws( 31) = 0.9104680312091450D+00
        ws( 32) = 0.8969679294619192D+00
        ws( 33) = 0.9000375403412916D+00
        ws( 34) = 0.8998667020907954D+00
        ws( 35) = 0.8919376730704129D+00
        ws( 36) = 0.8637833318913596D+00
        ws( 37) = 0.8394550921112776D+00
        ws( 38) = 0.9184644902505372D+00
        ws( 39) = 0.6311338492928601D+00
        ws( 40) = 0.7796559114524981D+00
        ws( 41) = 0.8917609398454074D+00
        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 =  44
        err = 0.7853500482667853D-07
        xs(  1) = 0.7597679167529607D+00
        xs(  2) = 0.1764434713205547D+01
        xs(  3) = 0.2776717035547496D+01
        xs(  4) = 0.3781540586084766D+01
        xs(  5) = 0.4783955839584056D+01
        xs(  6) = 0.5790715869892295D+01
        xs(  7) = 0.6789939432729811D+01
        xs(  8) = 0.7789781752604901D+01
        xs(  9) = 0.8785083785559406D+01
        xs( 10) = 0.9780178177615957D+01
        xs( 11) = 0.1077005610828071D+02
        xs( 12) = 0.1175836447500586D+02
        xs( 13) = 0.1274262328264244D+02
        xs( 14) = 0.1372405769701123D+02
        xs( 15) = 0.1470175467053635D+02
        xs( 16) = 0.1567577654597738D+02
        xs( 17) = 0.1664636786964489D+02
        xs( 18) = 0.1761275076880161D+02
        xs( 19) = 0.1857529568820320D+02
        xs( 20) = 0.1953404467920003D+02
        xs( 21) = 0.2048860907780011D+02
        xs( 22) = 0.2143870830248166D+02
        xs( 23) = 0.2238717625775947D+02
        xs( 24) = 0.2332690285207940D+02
        xs( 25) = 0.2426487096711647D+02
        xs( 26) = 0.2519738699078402D+02
        xs( 27) = 0.2612682711546691D+02
        xs( 28) = 0.2705346040358092D+02
        xs( 29) = 0.2797447272976277D+02
        xs( 30) = 0.2888653152278175D+02
        xs( 31) = 0.2979835969299777D+02
        xs( 32) = 0.3070502145474087D+02
        xs( 33) = 0.3160727832524978D+02
        xs( 34) = 0.3250946231256531D+02
        xs( 35) = 0.3339754382226481D+02
        xs( 36) = 0.3429102585018804D+02
        xs( 37) = 0.3517499796725864D+02
        xs( 38) = 0.3604152262913215D+02
        xs( 39) = 0.3692884613601619D+02
        xs( 40) = 0.3779973479384928D+02
        xs( 41) = 0.3865711030708325D+02
        xs( 42) = 0.3951251869465287D+02
        xs( 43) = 0.4043057022847193D+02
        xs( 44) = 0.4185541705895703D+02
        ws(  1) = 0.9857168540283932D+00
        ws(  2) = 0.1010603785097854D+01
        ws(  3) = 0.1010118829779448D+01
        ws(  4) = 0.1001756581935104D+01
        ws(  5) = 0.1009986197817410D+01
        ws(  6) = 0.9990440754002328D+00
        ws(  7) = 0.9997374518274599D+00
        ws(  8) = 0.9964526300760455D+00
        ws(  9) = 0.9969369117527834D+00
        ws( 10) = 0.9913271899347099D+00
        ws( 11) = 0.9911983340381758D+00
        ws( 12) = 0.9857225510504225D+00
        ws( 13) = 0.9810853498511919D+00
        ws( 14) = 0.9818575847466841D+00
        ws( 15) = 0.9737629182945871D+00
        ws( 16) = 0.9731043198370039D+00
        ws( 17) = 0.9697223216955474D+00
        ws( 18) = 0.9649758164677080D+00
        ws( 19) = 0.9604421382048803D+00
        ws( 20) = 0.9553951106211934D+00
        ws( 21) = 0.9528976847262411D+00
        ws( 22) = 0.9478980641425629D+00
        ws( 23) = 0.9454474256996103D+00
        ws( 24) = 0.9417726411888263D+00
        ws( 25) = 0.9355965483336307D+00
        ws( 26) = 0.9304829204486532D+00
        ws( 27) = 0.9233294799384255D+00
        ws( 28) = 0.9298670323928786D+00
        ws( 29) = 0.9165129849590667D+00
        ws( 30) = 0.9137609095186846D+00
        ws( 31) = 0.9115856781904230D+00
        ws( 32) = 0.9045767821232229D+00
        ws( 33) = 0.9065648800553392D+00
        ws( 34) = 0.8937551941818935D+00
        ws( 35) = 0.8996429827728293D+00
        ws( 36) = 0.9087191192122108D+00
        ws( 37) = 0.8601408481795466D+00
        ws( 38) = 0.8798361097592585D+00
        ws( 39) = 0.9353063061649451D+00
        ws( 40) = 0.7947513682168827D+00
        ws( 41) = 0.8497013576867687D+00
        ws( 42) = 0.8974476132455201D+00
        ws( 43) = 0.7888698490448744D+00
        ws( 44) = 0.1267185442110121D+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 =   9
        err = 0.8987543854742212D-07
        xs(  1) = 0.1259728920420740D+01
        xs(  2) = 0.2206105261117219D+01
        xs(  3) = 0.3188856754835275D+01
        xs(  4) = 0.4172628536279852D+01
        xs(  5) = 0.5166106081846178D+01
        xs(  6) = 0.6164509120789980D+01
        xs(  7) = 0.7169712593549913D+01
        xs(  8) = 0.8189456650356307D+01
        xs(  9) = 0.9152545502283090D+01
        ws(  1) = 0.1023745141815909D+01
        ws(  2) = 0.1029141505134587D+01
        ws(  3) = 0.1010915285449822D+01
        ws(  4) = 0.1020951480186796D+01
        ws(  5) = 0.1020961167091984D+01
        ws(  6) = 0.1049770500132593D+01
        ws(  7) = 0.1055658641620290D+01
        ws(  8) = 0.1176576035447391D+01
        ws(  9) = 0.1289662929949829D+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 =   9
        err = 0.8992512649557718D-07
        xs(  1) = 0.1259825290939779D+01
        xs(  2) = 0.2206166213988525D+01
        xs(  3) = 0.3188900412917884D+01
        xs(  4) = 0.4172676593891119D+01
        xs(  5) = 0.5166155358318610D+01
        xs(  6) = 0.6164560228582793D+01
        xs(  7) = 0.7169770402362019D+01
        xs(  8) = 0.8189502777300103D+01
        xs(  9) = 0.9152619506887998D+01
        ws(  1) = 0.1023576228176439D+01
        ws(  2) = 0.1029148526230869D+01
        ws(  3) = 0.1010949897581746D+01
        ws(  4) = 0.1020961253085565D+01
        ws(  5) = 0.1020993324444038D+01
        ws(  6) = 0.1049781837161785D+01
        ws(  7) = 0.1055704513701773D+01
        ws(  8) = 0.1176557596147517D+01
        ws(  9) = 0.1289694984492168D+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 =   9
        err = 0.9023838962741543D-07
        xs(  1) = 0.1260432916724365D+01
        xs(  2) = 0.2206570693286183D+01
        xs(  3) = 0.3189193602716203D+01
        xs(  4) = 0.4173006953602400D+01
        xs(  5) = 0.5166494105497730D+01
        xs(  6) = 0.6164917747976780D+01
        xs(  7) = 0.7170174731395612D+01
        xs(  8) = 0.8189827501294419D+01
        xs(  9) = 0.9153170757250786D+01
        ws(  1) = 0.1022466178216487D+01
        ws(  2) = 0.1029168749215485D+01
        ws(  3) = 0.1011191021096095D+01
        ws(  4) = 0.1021030978867462D+01
        ws(  5) = 0.1021233799895452D+01
        ws(  6) = 0.1049858067839729D+01
        ws(  7) = 0.1056050226991556D+01
        ws(  8) = 0.1176271832648455D+01
        ws(  9) = 0.1289958921080645D+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 =   9
        err = 0.9157282974462364D-07
        xs(  1) = 0.1263090728262717D+01
        xs(  2) = 0.2208207278762434D+01
        xs(  3) = 0.3190369496419240D+01
        xs(  4) = 0.4174289149920411D+01
        xs(  5) = 0.5167799804364628D+01
        xs(  6) = 0.6166274144928572D+01
        xs(  7) = 0.7171706833477762D+01
        xs(  8) = 0.8191093856869703D+01
        xs(  9) = 0.9155182590728224D+01
        ws(  1) = 0.1017881725287538D+01
        ws(  2) = 0.1029324646012237D+01
        ws(  3) = 0.1012074113790108D+01
        ws(  4) = 0.1021290055628494D+01
        ws(  5) = 0.1022093195240525D+01
        ws(  6) = 0.1050165619358896D+01
        ws(  7) = 0.1057255785387831D+01
        ws(  8) = 0.1175682294172870D+01
        ws(  9) = 0.1291114755355778D+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 =  10
        err = 0.7586652272049597D-07
        xs(  1) = 0.1236483456374583D+01
        xs(  2) = 0.2197597775643465D+01
        xs(  3) = 0.3180252767631532D+01
        xs(  4) = 0.4165923241720506D+01
        xs(  5) = 0.5156005081551345D+01
        xs(  6) = 0.6156177454151582D+01
        xs(  7) = 0.7159176300262046D+01
        xs(  8) = 0.8174890569153135D+01
        xs(  9) = 0.9197449445974080D+01
        xs( 10) = 0.1018362845362417D+02
        ws(  1) = 0.1027706276877629D+01
        ws(  2) = 0.1018988604986648D+01
        ws(  3) = 0.9991449303930325D+00
        ws(  4) = 0.1010795416477469D+01
        ws(  5) = 0.1011248690588160D+01
        ws(  6) = 0.1024944272672381D+01
        ws(  7) = 0.1044884371351202D+01
        ws(  8) = 0.1058906713629532D+01
        ws(  9) = 0.1159855893686086D+01
        ws( 10) = 0.1270743607640234D+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 =  10
        err = 0.6753433534218252D-07
        xs(  1) = 0.1224060859531707D+01
        xs(  2) = 0.2214483223116468D+01
        xs(  3) = 0.3197474660047818D+01
        xs(  4) = 0.4190355451804435D+01
        xs(  5) = 0.5188437888016826D+01
        xs(  6) = 0.6190310127186906D+01
        xs(  7) = 0.7203598853062152D+01
        xs(  8) = 0.8218726241611405D+01
        xs(  9) = 0.9243646850618820D+01
        xs( 10) = 0.1024400598691446D+02
        ws(  1) = 0.1053452539830260D+01
        ws(  2) = 0.9991206737853411D+00
        ws(  3) = 0.1021385619451778D+01
        ws(  4) = 0.1010897778261199D+01
        ws(  5) = 0.1028354012321259D+01
        ws(  6) = 0.1033437425840650D+01
        ws(  7) = 0.1052327764847242D+01
        ws(  8) = 0.1084172488435463D+01
        ws(  9) = 0.1105328450091146D+01
        ws( 10) = 0.1292997109847810D+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 =  12
        err = 0.7087645865245620D-07
        xs(  1) = 0.1143445954994492D+01
        xs(  2) = 0.2140672881920739D+01
        xs(  3) = 0.3075845277870014D+01
        xs(  4) = 0.4036884302676351D+01
        xs(  5) = 0.5003720829638241D+01
        xs(  6) = 0.5968779166024707D+01
        xs(  7) = 0.6956251640440482D+01
        xs(  8) = 0.7936410926536872D+01
        xs(  9) = 0.8941139237493182D+01
        xs( 10) = 0.9945653135885069D+01
        xs( 11) = 0.1094675660310340D+02
        xs( 12) = 0.1197434009520512D+02
        ws(  1) = 0.1031291180550861D+01
        ws(  2) = 0.9234300922974192D+00
        ws(  3) = 0.9875928888568868D+00
        ws(  4) = 0.9686513853517010D+00
        ws(  5) = 0.9942427282658124D+00
        ws(  6) = 0.9930473247696474D+00
        ws(  7) = 0.1003843729200211D+01
        ws(  8) = 0.1030319736287892D+01
        ws(  9) = 0.1012906162250629D+01
        ws( 10) = 0.1100753820102289D+01
        ws( 11) = 0.9971407993363703D+00
        ws( 12) = 0.1306311191837401D+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 =  13
        err = 0.7662580067525293D-08
        xs(  1) = 0.7459740928836563D+00
        xs(  2) = 0.1687437354555260D+01
        xs(  3) = 0.2643925796460038D+01
        xs(  4) = 0.3607372454051230D+01
        xs(  5) = 0.4572710554190977D+01
        xs(  6) = 0.5544126404722562D+01
        xs(  7) = 0.6521965589427015D+01
        xs(  8) = 0.7502361010095497D+01
        xs(  9) = 0.8492290629392492D+01
        xs( 10) = 0.9493147465197072D+01
        xs( 11) = 0.1053122957635318D+02
        xs( 12) = 0.1159491667645523D+02
        xs( 13) = 0.1258004013162528D+02
        ws(  1) = 0.9228646395959496D+00
        ws(  2) = 0.9598983200189974D+00
        ws(  3) = 0.9563137721075504D+00
        ws(  4) = 0.9632659115018225D+00
        ws(  5) = 0.9713331273580897D+00
        ws(  6) = 0.9702158846258946D+00
        ws(  7) = 0.9808055015062631D+00
        ws(  8) = 0.9910952878165661D+00
        ws(  9) = 0.9943757681959472D+00
        ws( 10) = 0.9979277050593319D+00
        ws( 11) = 0.1021933142474558D+01
        ws( 12) = 0.1378411398191772D+01
        ws( 13) = 0.1453337368515012D+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 =  10
        err = 0.9120449443665739D-07
        xs(  1) = 0.1214379065979469D+01
        xs(  2) = 0.2190590025766002D+01
        xs(  3) = 0.3194442943824615D+01
        xs(  4) = 0.4187675240623742D+01
        xs(  5) = 0.5156697118269271D+01
        xs(  6) = 0.6142969502666051D+01
        xs(  7) = 0.7173532948170165D+01
        xs(  8) = 0.8181336499056478D+01
        xs(  9) = 0.9103327661525610D+01
        xs( 10) = 0.1018135602889292D+02
        ws(  1) = 0.9250888512663402D+00
        ws(  2) = 0.1054536137317406D+01
        ws(  3) = 0.1065628307446371D+01
        ws(  4) = 0.1021170219816612D+01
        ws(  5) = 0.9876475103007194D+00
        ws(  6) = 0.1027128371123715D+01
        ws(  7) = 0.1072853521234106D+01
        ws(  8) = 0.9755966947126439D+00
        ws(  9) = 0.9609554809892544D+00
        ws( 10) = 0.1233431320875618D+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 =  13
        err = 0.9268311352298845D-07
        xs(  1) = 0.1214975179179437D+01
        xs(  2) = 0.2134132725335777D+01
        xs(  3) = 0.3070440724181010D+01
        xs(  4) = 0.4008842199370843D+01
        xs(  5) = 0.4953515859017927D+01
        xs(  6) = 0.5912237192435223D+01
        xs(  7) = 0.6874579929473424D+01
        xs(  8) = 0.7831016097821951D+01
        xs(  9) = 0.8807202784186437D+01
        xs( 10) = 0.9796116801226704D+01
        xs( 11) = 0.1072687374954221D+02
        xs( 12) = 0.1192413093260103D+02
        xs( 13) = 0.1275545392053382D+02
        ws(  1) = 0.8854325915301269D+00
        ws(  2) = 0.1009742904850127D+01
        ws(  3) = 0.1012455898424130D+01
        ws(  4) = 0.9732500299494217D+00
        ws(  5) = 0.9423167587565147D+00
        ws(  6) = 0.9379780849639852D+00
        ws(  7) = 0.9265041114675711D+00
        ws(  8) = 0.9343307190683664D+00
        ws(  9) = 0.9886290527314472D+00
        ws( 10) = 0.9437420238018513D+00
        ws( 11) = 0.1038613916246986D+01
        ws( 12) = 0.9797191632812261D+00
        ws( 13) = 0.1794884547795812D+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 =  14
        err = 0.8551086124207622D-07
        xs(  1) = 0.1247139709885178D+01
        xs(  2) = 0.2177460343765554D+01
        xs(  3) = 0.3124626694481955D+01
        xs(  4) = 0.4080714583449454D+01
        xs(  5) = 0.5039412730057345D+01
        xs(  6) = 0.6002109737958522D+01
        xs(  7) = 0.6963651423241790D+01
        xs(  8) = 0.7921755590053456D+01
        xs(  9) = 0.8889583235224631D+01
        xs( 10) = 0.9856155414624993D+01
        xs( 11) = 0.1082103139176495D+02
        xs( 12) = 0.1184733763065065D+02
        xs( 13) = 0.1286907164796111D+02
        xs( 14) = 0.1376421723684237D+02
        ws(  1) = 0.9307522607866821D+00
        ws(  2) = 0.1043349615743625D+01
        ws(  3) = 0.1015945223198189D+01
        ws(  4) = 0.9674687216987206D+00
        ws(  5) = 0.9395754915866333D+00
        ws(  6) = 0.9362372852655387D+00
        ws(  7) = 0.9442862223312817D+00
        ws(  8) = 0.9478810307604406D+00
        ws(  9) = 0.9711209509699175D+00
        ws( 10) = 0.9679865709195608D+00
        ws( 11) = 0.9941395426117297D+00
        ws( 12) = 0.8642102236637765D+00
        ws( 13) = 0.1421671187003840D+01
        ws( 14) = 0.1243431205438376D+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 =  14
        err = 0.8726483925174957D-07
        xs(  1) = 0.1272466473527022D+01
        xs(  2) = 0.2213940161393595D+01
        xs(  3) = 0.3173734812735811D+01
        xs(  4) = 0.4142413538655966D+01
        xs(  5) = 0.5110367899365074D+01
        xs(  6) = 0.6080396669616593D+01
        xs(  7) = 0.7044919451976154D+01
        xs(  8) = 0.8001784116552743D+01
        xs(  9) = 0.8968800021489693D+01
        xs( 10) = 0.9933146782050555D+01
        xs( 11) = 0.1087120688319556D+02
        xs( 12) = 0.1193284514006202D+02
        xs( 13) = 0.1287897804062904D+02
        xs( 14) = 0.1376201015006485D+02
        ws(  1) = 0.9711782988979719D+00
        ws(  2) = 0.1066711927867708D+01
        ws(  3) = 0.1014907270127142D+01
        ws(  4) = 0.9665728726233516D+00
        ws(  5) = 0.9482447383333839D+00
        ws(  6) = 0.9479161254201997D+00
        ws(  7) = 0.9495872160852623D+00
        ws(  8) = 0.9394391370492929D+00
        ws(  9) = 0.9628160274284840D+00
        ws( 10) = 0.9527278401120852D+00
        ws( 11) = 0.9227763043716579D+00
        ws( 12) = 0.8765672286273037D+00
        ws( 13) = 0.1468820083204745D+01
        ws( 14) = 0.1102947088828009D+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 =  16
        err = 0.6492069903149705D-07
        xs(  1) = 0.1284180607468796D+01
        xs(  2) = 0.2239443045299736D+01
        xs(  3) = 0.3221575815690395D+01
        xs(  4) = 0.4211022086444120D+01
        xs(  5) = 0.5191713494637404D+01
        xs(  6) = 0.6164140202720481D+01
        xs(  7) = 0.7132989510388432D+01
        xs(  8) = 0.8101848403065762D+01
        xs(  9) = 0.9068369828972521D+01
        xs( 10) = 0.1003306475930465D+02
        xs( 11) = 0.1100608354870792D+02
        xs( 12) = 0.1198344867149270D+02
        xs( 13) = 0.1295503515557224D+02
        xs( 14) = 0.1388912281888243D+02
        xs( 15) = 0.1483449673500638D+02
        xs( 16) = 0.1582868937866605D+02
        ws(  1) = 0.1037268888985974D+01
        ws(  2) = 0.1087874704869488D+01
        ws(  3) = 0.1011363068166225D+01
        ws(  4) = 0.9673018331949488D+00
        ws(  5) = 0.9616130965314074D+00
        ws(  6) = 0.9677879759939725D+00
        ws(  7) = 0.9706735532423786D+00
        ws(  8) = 0.9611521348211807D+00
        ws(  9) = 0.9555881390526748D+00
        ws( 10) = 0.9569794932639092D+00
        ws( 11) = 0.9495525271807583D+00
        ws( 12) = 0.9466930730835817D+00
        ws( 13) = 0.9929711449619829D+00
        ws( 14) = 0.9668758877376789D+00
        ws( 15) = 0.9756203635697150D+00
        ws( 16) = 0.9044636921377291D+00
        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 =  17
        err = 0.7026534003951426D-07
        xs(  1) = 0.1301109310252462D+01
        xs(  2) = 0.2250610322917359D+01
        xs(  3) = 0.3231872306452272D+01
        xs(  4) = 0.4225333129018953D+01
        xs(  5) = 0.5210283933043653D+01
        xs(  6) = 0.6189292905745945D+01
        xs(  7) = 0.7160917419940115D+01
        xs(  8) = 0.8131227947177448D+01
        xs(  9) = 0.9102065695494195D+01
        xs( 10) = 0.1006892073989067D+02
        xs( 11) = 0.1104265499226533D+02
        xs( 12) = 0.1200002575560203D+02
        xs( 13) = 0.1292282257461603D+02
        xs( 14) = 0.1382094152890503D+02
        xs( 15) = 0.1481990780916171D+02
        xs( 16) = 0.1587225859895835D+02
        xs( 17) = 0.1773891601662959D+02
        ws(  1) = 0.1041125459757526D+01
        ws(  2) = 0.1102722423955745D+01
        ws(  3) = 0.1002301215074397D+01
        ws(  4) = 0.9499579840788160D+00
        ws(  5) = 0.9532194807447365D+00
        ws(  6) = 0.9723922587451825D+00
        ws(  7) = 0.9835939516591374D+00
        ws(  8) = 0.9815379661894739D+00
        ws(  9) = 0.9830348423393589D+00
        ws( 10) = 0.9766245974281929D+00
        ws( 11) = 0.9690304700278038D+00
        ws( 12) = 0.9632938599421008D+00
        ws( 13) = 0.9167904544163270D+00
        ws( 14) = 0.8693123806483734D+00
        ws( 15) = 0.1062285457812531D+01
        ws( 16) = 0.1108367994237861D+01
        ws( 17) = 0.3536285446323682D+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 =  19
        err = 0.6275636885190946D-07
        xs(  1) = 0.1314358669483156D+01
        xs(  2) = 0.2281711080196127D+01
        xs(  3) = 0.3291068512824299D+01
        xs(  4) = 0.4308026324650426D+01
        xs(  5) = 0.5307986326254487D+01
        xs(  6) = 0.6290493871902864D+01
        xs(  7) = 0.7269171698514596D+01
        xs(  8) = 0.8253163505561469D+01
        xs(  9) = 0.9233452083700939D+01
        xs( 10) = 0.1020119724725251D+02
        xs( 11) = 0.1117618100148216D+02
        xs( 12) = 0.1215476952300201D+02
        xs( 13) = 0.1314134235927545D+02
        xs( 14) = 0.1410077498703370D+02
        xs( 15) = 0.1501999634829666D+02
        xs( 16) = 0.1594480538219575D+02
        xs( 17) = 0.1695767848415251D+02
        xs( 18) = 0.1831247643454532D+02
        xs( 19) = 0.1894641101222896D+02
        ws(  1) = 0.1105550617379808D+01
        ws(  2) = 0.1109729025291054D+01
        ws(  3) = 0.9961628582501370D+00
        ws(  4) = 0.9700559005614020D+00
        ws(  5) = 0.9899511145353708D+00
        ws(  6) = 0.9970623861453826D+00
        ws(  7) = 0.9908692880140456D+00
        ws(  8) = 0.9837812213742680D+00
        ws(  9) = 0.9626919070817843D+00
        ws( 10) = 0.9571075629166355D+00
        ws( 11) = 0.9799697186003076D+00
        ws( 12) = 0.9389447866612592D+00
        ws( 13) = 0.1016008586170533D+01
        ws( 14) = 0.9846797702121411D+00
        ws( 15) = 0.8603782949724946D+00
        ws( 16) = 0.9010554382216545D+00
        ws( 17) = 0.9292490559550497D+00
        ws( 18) = 0.5938640609469842D+00
        ws( 19) = 0.1932889330748544D+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 =  20
        err = 0.5758660809205333D-07
        xs(  1) = 0.1196118676060277D+01
        xs(  2) = 0.2142638042175472D+01
        xs(  3) = 0.3135756754927293D+01
        xs(  4) = 0.4129023516721962D+01
        xs(  5) = 0.5121035621752740D+01
        xs(  6) = 0.6106186832422724D+01
        xs(  7) = 0.7086975952927244D+01
        xs(  8) = 0.8064281173710642D+01
        xs(  9) = 0.9042633785554303D+01
        xs( 10) = 0.1002006361415137D+02
        xs( 11) = 0.1097914764766991D+02
        xs( 12) = 0.1194781666301826D+02
        xs( 13) = 0.1292541657673760D+02
        xs( 14) = 0.1391229967790659D+02
        xs( 15) = 0.1488787299894643D+02
        xs( 16) = 0.1580817896207445D+02
        xs( 17) = 0.1669614743316390D+02
        xs( 18) = 0.1775945609210600D+02
        xs( 19) = 0.1972733985637559D+02
        xs( 20) = 0.2054868251490101D+02
        ws(  1) = 0.1120628005536786D+01
        ws(  2) = 0.1030792374510864D+01
        ws(  3) = 0.9697025426197800D+00
        ws(  4) = 0.9715433029334059D+00
        ws(  5) = 0.9930566127578438D+00
        ws(  6) = 0.9999667042109132D+00
        ws(  7) = 0.9815508513892689D+00
        ws(  8) = 0.9759318572788689D+00
        ws(  9) = 0.9690477722241027D+00
        ws( 10) = 0.9560362462967896D+00
        ws( 11) = 0.9602836774035982D+00
        ws( 12) = 0.9614048986216701D+00
        ws( 13) = 0.9556004708761726D+00
        ws( 14) = 0.1054232970373071D+01
        ws( 15) = 0.9742562251136015D+00
        ws( 16) = 0.8358335708217892D+00
        ws( 17) = 0.8221005702116496D+00
        ws( 18) = 0.1267315283625196D+01
        ws( 19) = 0.1942552018682758D+01
        ws( 20) = 0.8516908131480482D+00
        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 =  22
        err = 0.8072601138883855D-07
        xs(  1) = 0.1412420812216912D+01
        xs(  2) = 0.2345997725385894D+01
        xs(  3) = 0.3362652135557571D+01
        xs(  4) = 0.4397132069849828D+01
        xs(  5) = 0.5403626482990867D+01
        xs(  6) = 0.6393385499507189D+01
        xs(  7) = 0.7382760622234778D+01
        xs(  8) = 0.8382012846691525D+01
        xs(  9) = 0.9380359695087611D+01
        xs( 10) = 0.1036411494563970D+02
        xs( 11) = 0.1134731186505636D+02
        xs( 12) = 0.1233883312878820D+02
        xs( 13) = 0.1331535357948774D+02
        xs( 14) = 0.1431615976538312D+02
        xs( 15) = 0.1528005766139930D+02
        xs( 16) = 0.1620595266052011D+02
        xs( 17) = 0.1717966413514237D+02
        xs( 18) = 0.1815773081395793D+02
        xs( 19) = 0.1912280518415592D+02
        xs( 20) = 0.1995852937381587D+02
        xs( 21) = 0.2115247564064313D+02
        xs( 22) = 0.2213718866497306D+02
        ws(  1) = 0.1060772945763279D+01
        ws(  2) = 0.1176927441565749D+01
        ws(  3) = 0.9727245675390475D+00
        ws(  4) = 0.9554881682459925D+00
        ws(  5) = 0.1005952631124806D+01
        ws(  6) = 0.1025197275972628D+01
        ws(  7) = 0.1014481075125269D+01
        ws(  8) = 0.9938733167737231D+00
        ws(  9) = 0.9734112638167010D+00
        ws( 10) = 0.9571644459675113D+00
        ws( 11) = 0.9781995575529338D+00
        ws( 12) = 0.9711814566694240D+00
        ws( 13) = 0.9556927980340711D+00
        ws( 14) = 0.1001596944071310D+01
        ws( 15) = 0.1052251727810671D+01
        ws( 16) = 0.8878606786685345D+00
        ws( 17) = 0.8496414763146197D+00
        ws( 18) = 0.8664086162691408D+00
        ws( 19) = 0.8656253840275056D+00
        ws( 20) = 0.7390573181531422D+00
        ws( 21) = 0.1409996079478804D+01
        ws( 22) = 0.8037348690027802D+00
        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 =  25
        err = 0.3728586835116927D-07
        xs(  1) = 0.1003827743305965D+01
        xs(  2) = 0.1896882238368057D+01
        xs(  3) = 0.2879751258735207D+01
        xs(  4) = 0.3873227701197139D+01
        xs(  5) = 0.4874270780046120D+01
        xs(  6) = 0.5868672802798025D+01
        xs(  7) = 0.6862821471277448D+01
        xs(  8) = 0.7862075951134490D+01
        xs(  9) = 0.8854455499803024D+01
        xs( 10) = 0.9850069328065414D+01
        xs( 11) = 0.1082966038582633D+02
        xs( 12) = 0.1182843522175536D+02
        xs( 13) = 0.1279545871976749D+02
        xs( 14) = 0.1378323597381475D+02
        xs( 15) = 0.1476919804100245D+02
        xs( 16) = 0.1571230634204545D+02
        xs( 17) = 0.1670004733693360D+02
        xs( 18) = 0.1764813428017810D+02
        xs( 19) = 0.1863426884341703D+02
        xs( 20) = 0.1953038699759767D+02
        xs( 21) = 0.2048531766818964D+02
        xs( 22) = 0.2157056087098562D+02
        xs( 23) = 0.2244282593425573D+02
        xs( 24) = 0.2333431339875517D+02
        xs( 25) = 0.2546554807469932D+02
        ws(  1) = 0.9251656097558709D+00
        ws(  2) = 0.1009374216936533D+01
        ws(  3) = 0.9816073946369100D+00
        ws(  4) = 0.9862376259559575D+00
        ws(  5) = 0.9868213095376795D+00
        ws(  6) = 0.1009308310882910D+01
        ws(  7) = 0.9909317851055112D+00
        ws(  8) = 0.9986998666419326D+00
        ws(  9) = 0.9862117271061015D+00
        ws( 10) = 0.9977361763952562D+00
        ws( 11) = 0.9761042284932189D+00
        ws( 12) = 0.1001733632762434D+01
        ws( 13) = 0.9962641589603003D+00
        ws( 14) = 0.9323011888622682D+00
        ws( 15) = 0.1035745409314497D+01
        ws( 16) = 0.9241565364672831D+00
        ws( 17) = 0.1009494916773762D+01
        ws( 18) = 0.8372423711065484D+00
        ws( 19) = 0.1118271069470795D+01
        ws( 20) = 0.9458288682210843D+00
        ws( 21) = 0.8101119933388790D+00
        ws( 22) = 0.1182830300542624D+01
        ws( 23) = 0.9791955951363565D+00
        ws( 24) = 0.8862208939478142D+00
        ws( 25) = 0.2568902896133253D+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 =  25
        err = 0.5862321257628499D-07
        xs(  1) = 0.1288081925502526D+01
        xs(  2) = 0.2280578491350511D+01
        xs(  3) = 0.3315132953941300D+01
        xs(  4) = 0.4349812520841560D+01
        xs(  5) = 0.5367711662772146D+01
        xs(  6) = 0.6380907282390340D+01
        xs(  7) = 0.7389929948020498D+01
        xs(  8) = 0.8393550619693338D+01
        xs(  9) = 0.9395713083600304D+01
        xs( 10) = 0.1039965750160117D+02
        xs( 11) = 0.1140511077000193D+02
        xs( 12) = 0.1238517328134301D+02
        xs( 13) = 0.1337944282133073D+02
        xs( 14) = 0.1438751147246873D+02
        xs( 15) = 0.1535651974865578D+02
        xs( 16) = 0.1631889805331833D+02
        xs( 17) = 0.1732847242241987D+02
        xs( 18) = 0.1821706923070697D+02
        xs( 19) = 0.1928451780220945D+02
        xs( 20) = 0.2015426335525133D+02
        xs( 21) = 0.2116723555581689D+02
        xs( 22) = 0.2215604195260675D+02
        xs( 23) = 0.2311368201749090D+02
        xs( 24) = 0.2391813202776237D+02
        xs( 25) = 0.2614855520012376D+02
        ws(  1) = 0.1211143171819726D+01
        ws(  2) = 0.1079750358143013D+01
        ws(  3) = 0.9983009255026536D+00
        ws(  4) = 0.9948903127020698D+00
        ws(  5) = 0.1031772065486673D+01
        ws(  6) = 0.1016719006772859D+01
        ws(  7) = 0.1020181009079315D+01
        ws(  8) = 0.9909694642554054D+00
        ws(  9) = 0.1009418332369218D+01
        ws( 10) = 0.9794761281713523D+00
        ws( 11) = 0.1004887046512667D+01
        ws( 12) = 0.1003768742798829D+01
        ws( 13) = 0.9413982097592150D+00
        ws( 14) = 0.1015016576603531D+01
        ws( 15) = 0.1005017154186614D+01
        ws( 16) = 0.9592577636614346D+00
        ws( 17) = 0.9659913017233427D+00
        ws( 18) = 0.9754716895326661D+00
        ws( 19) = 0.8989891520827528D+00
        ws( 20) = 0.8853598837969640D+00
        ws( 21) = 0.8674350593965061D+00
        ws( 22) = 0.1152172973999599D+01
        ws( 23) = 0.1062153230460667D+01
        ws( 24) = 0.5488642769868642D+00
        ws( 25) = 0.2147216855829893D+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 =  26
        err = 0.9367520730680404D-07
        xs(  1) = 0.1540613712143922D+01
        xs(  2) = 0.2398818266287346D+01
        xs(  3) = 0.3404531906940431D+01
        xs(  4) = 0.4448944024179330D+01
        xs(  5) = 0.5455422928991722D+01
        xs(  6) = 0.6464305409407288D+01
        xs(  7) = 0.7462030621426348D+01
        xs(  8) = 0.8470725598040907D+01
        xs(  9) = 0.9473448430871844D+01
        xs( 10) = 0.1047943362766861D+02
        xs( 11) = 0.1148402983268168D+02
        xs( 12) = 0.1245202675523778D+02
        xs( 13) = 0.1347978895587159D+02
        xs( 14) = 0.1445688587312941D+02
        xs( 15) = 0.1543674699949487D+02
        xs( 16) = 0.1641939643951168D+02
        xs( 17) = 0.1743111951698392D+02
        xs( 18) = 0.1833064704866991D+02
        xs( 19) = 0.1935319844021499D+02
        xs( 20) = 0.2030842935401928D+02
        xs( 21) = 0.2126640577416979D+02
        xs( 22) = 0.2230391512616040D+02
        xs( 23) = 0.2318761653011291D+02
        xs( 24) = 0.2397108180436174D+02
        xs( 25) = 0.2628892896502533D+02
        xs( 26) = 0.2712063062168681D+02
        ws(  1) = 0.9958227445299360D+00
        ws(  2) = 0.1232813348227622D+01
        ws(  3) = 0.9238110030511875D+00
        ws(  4) = 0.9624783073532364D+00
        ws(  5) = 0.1010912966886533D+01
        ws(  6) = 0.1036575298121658D+01
        ws(  7) = 0.1026134369675998D+01
        ws(  8) = 0.9924740716396743D+00
        ws(  9) = 0.1013115105442987D+01
        ws( 10) = 0.9505310753644058D+00
        ws( 11) = 0.1049982339851636D+01
        ws( 12) = 0.9521802605708023D+00
        ws( 13) = 0.9481449513034278D+00
        ws( 14) = 0.1042780753990085D+01
        ws( 15) = 0.9908208344645670D+00
        ws( 16) = 0.9505561018456994D+00
        ws( 17) = 0.1024115678272220D+01
        ws( 18) = 0.9375081624825327D+00
        ws( 19) = 0.9268868484207375D+00
        ws( 20) = 0.9342678964987922D+00
        ws( 21) = 0.7655557698535910D+00
        ws( 22) = 0.1085546048319971D+01
        ws( 23) = 0.1088242103008988D+01
        ws( 24) = 0.1000112360777315D+01
        ws( 25) = 0.9456948544776546D+00
        ws( 26) = 0.1530792404475783D+01
        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 =  29
        err = 0.7752157584976586D-07
        xs(  1) = 0.1355178124072687D+01
        xs(  2) = 0.2309861698654379D+01
        xs(  3) = 0.3350449358534526D+01
        xs(  4) = 0.4408914602737460D+01
        xs(  5) = 0.5405892008518224D+01
        xs(  6) = 0.6462461473439459D+01
        xs(  7) = 0.7437525708469733D+01
        xs(  8) = 0.8481964274624497D+01
        xs(  9) = 0.9460528639697527D+01
        xs( 10) = 0.1050524320181844D+02
        xs( 11) = 0.1148008603171942D+02
        xs( 12) = 0.1248532575651545D+02
        xs( 13) = 0.1349637967339440D+02
        xs( 14) = 0.1448336578632676D+02
        xs( 15) = 0.1548380430199576D+02
        xs( 16) = 0.1645580136566326D+02
        xs( 17) = 0.1746687758400065D+02
        xs( 18) = 0.1838658548131106D+02
        xs( 19) = 0.1941908759141135D+02
        xs( 20) = 0.2039045793269922D+02
        xs( 21) = 0.2133176229333811D+02
        xs( 22) = 0.2231585127007707D+02
        xs( 23) = 0.2322284413074437D+02
        xs( 24) = 0.2413116288065840D+02
        xs( 25) = 0.2506077166037290D+02
        xs( 26) = 0.2626840239452037D+02
        xs( 27) = 0.2703558962238519D+02
        xs( 28) = 0.2831298006979932D+02
        xs( 29) = 0.2951898533247882D+02
        ws(  1) = 0.1111902670869898D+01
        ws(  2) = 0.1156504737365114D+01
        ws(  3) = 0.9424817686530523D+00
        ws(  4) = 0.1034485215110706D+01
        ws(  5) = 0.1029588259864361D+01
        ws(  6) = 0.1026504471647446D+01
        ws(  7) = 0.1027114923850159D+01
        ws(  8) = 0.1009732247370441D+01
        ws(  9) = 0.9208190733097463D+00
        ws( 10) = 0.1108193728482329D+01
        ws( 11) = 0.9756077294457685D+00
        ws( 12) = 0.1002529057158596D+01
        ws( 13) = 0.9915875612580157D+00
        ws( 14) = 0.9759298144291988D+00
        ws( 15) = 0.1040215170867401D+01
        ws( 16) = 0.9848702034522773D+00
        ws( 17) = 0.9817835643595194D+00
        ws( 18) = 0.9370602599006222D+00
        ws( 19) = 0.9567262455440508D+00
        ws( 20) = 0.9913704990136979D+00
        ws( 21) = 0.1030175410009107D+01
        ws( 22) = 0.9459843910332654D+00
        ws( 23) = 0.8050743106748482D+00
        ws( 24) = 0.9655101871278704D+00
        ws( 25) = 0.1129735083793752D+01
        ws( 26) = 0.5363640254913983D+00
        ws( 27) = 0.1447432997451810D+01
        ws( 28) = 0.2609814013527364D+00
        ws( 29) = 0.1896951073044939D+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 =  31
        err = 0.9542123400471991D-07
        xs(  1) = 0.1299215152037730D+01
        xs(  2) = 0.2064919117999311D+01
        xs(  3) = 0.2989296280820893D+01
        xs(  4) = 0.3954459598400415D+01
        xs(  5) = 0.4902495214845634D+01
        xs(  6) = 0.5935648413197949D+01
        xs(  7) = 0.6862647867868740D+01
        xs(  8) = 0.7890886342591538D+01
        xs(  9) = 0.8877933081293717D+01
        xs( 10) = 0.9868374457028755D+01
        xs( 11) = 0.1085853470095549D+02
        xs( 12) = 0.1183758968187269D+02
        xs( 13) = 0.1282201442259302D+02
        xs( 14) = 0.1380721877389905D+02
        xs( 15) = 0.1482408999838793D+02
        xs( 16) = 0.1577638048620938D+02
        xs( 17) = 0.1673603310457782D+02
        xs( 18) = 0.1773601853342942D+02
        xs( 19) = 0.1869385420501485D+02
        xs( 20) = 0.1966974438176326D+02
        xs( 21) = 0.2063767269310510D+02
        xs( 22) = 0.2156124678719965D+02
        xs( 23) = 0.2252531249798701D+02
        xs( 24) = 0.2352166379106894D+02
        xs( 25) = 0.2440611044494217D+02
        xs( 26) = 0.2530685243116618D+02
        xs( 27) = 0.2629888172390034D+02
        xs( 28) = 0.2705359824394722D+02
        xs( 29) = 0.2978630450246260D+02
        xs( 30) = 0.3048836100277627D+02
        xs( 31) = 0.3172025280955705D+02
        ws(  1) = 0.8041116471529564D+00
        ws(  2) = 0.1157596736190253D+01
        ws(  3) = 0.8000163791830170D+00
        ws(  4) = 0.1046863473917239D+01
        ws(  5) = 0.8312768268774025D+00
        ws(  6) = 0.1084524187026283D+01
        ws(  7) = 0.1044118941039494D+01
        ws(  8) = 0.8925988518417649D+00
        ws(  9) = 0.1012461200489401D+01
        ws( 10) = 0.9589969479271406D+00
        ws( 11) = 0.1060963409901484D+01
        ws( 12) = 0.9933269410387562D+00
        ws( 13) = 0.9786097826887398D+00
        ws( 14) = 0.8802296428029412D+00
        ws( 15) = 0.9934497161818591D+00
        ws( 16) = 0.1069006684732079D+01
        ws( 17) = 0.9862332164498073D+00
        ws( 18) = 0.9873818797613666D+00
        ws( 19) = 0.8858448378798257D+00
        ws( 20) = 0.9254777531479657D+00
        ws( 21) = 0.9836936154678555D+00
        ws( 22) = 0.1008798445432789D+01
        ws( 23) = 0.7590484021498282D+00
        ws( 24) = 0.9262296353515737D+00
        ws( 25) = 0.9697205808295420D+00
        ws( 26) = 0.8119443522448545D+00
        ws( 27) = 0.9697037127614113D+00
        ws( 28) = 0.8686704067961383D+00
        ws( 29) = 0.1383227029348010D+01
        ws( 30) = 0.1451765654501095D+01
        ws( 31) = -.1259237470765436D+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 =  33
        err = 0.8030146595131277D-07
        xs(  1) = 0.1208814608805559D+01
        xs(  2) = 0.2073297136086766D+01
        xs(  3) = 0.3082110793127622D+01
        xs(  4) = 0.4001628464708807D+01
        xs(  5) = 0.5046501093688960D+01
        xs(  6) = 0.5975485936286656D+01
        xs(  7) = 0.6979149728782488D+01
        xs(  8) = 0.7964770301197448D+01
        xs(  9) = 0.8983136798362104D+01
        xs( 10) = 0.9937590306479995D+01
        xs( 11) = 0.1094466044966909D+02
        xs( 12) = 0.1194251718908413D+02
        xs( 13) = 0.1290276249770754D+02
        xs( 14) = 0.1391511306996441D+02
        xs( 15) = 0.1489582215576894D+02
        xs( 16) = 0.1585406595870371D+02
        xs( 17) = 0.1682268542342534D+02
        xs( 18) = 0.1783238997318523D+02
        xs( 19) = 0.1878766369191526D+02
        xs( 20) = 0.1973004348382936D+02
        xs( 21) = 0.2070815962982807D+02
        xs( 22) = 0.2165805242724388D+02
        xs( 23) = 0.2257861080307030D+02
        xs( 24) = 0.2361869598354844D+02
        xs( 25) = 0.2450485049169206D+02
        xs( 26) = 0.2539801700901156D+02
        xs( 27) = 0.2637262204555837D+02
        xs( 28) = 0.2721670757842168D+02
        xs( 29) = 0.2828090659112386D+02
        xs( 30) = 0.2915576030775554D+02
        xs( 31) = 0.3009347765657878D+02
        xs( 32) = 0.3087935073069431D+02
        xs( 33) = 0.3556927574909241D+02
        ws(  1) = 0.1065807749816586D+01
        ws(  2) = 0.1005660620789022D+01
        ws(  3) = 0.9350458646970825D+00
        ws(  4) = 0.9711550637713984D+00
        ws(  5) = 0.9227876309356864D+00
        ws(  6) = 0.1107485602096961D+01
        ws(  7) = 0.9327099785073502D+00
        ws(  8) = 0.9144076618428537D+00
        ws(  9) = 0.1089268296842030D+01
        ws( 10) = 0.9459606006390044D+00
        ws( 11) = 0.1015661237893960D+01
        ws( 12) = 0.9758085713631758D+00
        ws( 13) = 0.9795457062383105D+00
        ws( 14) = 0.9260948027904760D+00
        ws( 15) = 0.1042892978026426D+01
        ws( 16) = 0.1022826275860186D+01
        ws( 17) = 0.9371398419842701D+00
        ws( 18) = 0.9632233216487009D+00
        ws( 19) = 0.9612147717969660D+00
        ws( 20) = 0.9811736294940820D+00
        ws( 21) = 0.9471699894094643D+00
        ws( 22) = 0.9784582345039453D+00
        ws( 23) = 0.8235246865129873D+00
        ws( 24) = 0.8408051844671365D+00
        ws( 25) = 0.1006601541037685D+01
        ws( 26) = 0.9507495705609711D+00
        ws( 27) = 0.1127165477469050D+01
        ws( 28) = 0.5790596494264284D+00
        ws( 29) = 0.6631820260889055D+00
        ws( 30) = 0.3110751713642094D+00
        ws( 31) = 0.6976374462879529D+00
        ws( 32) = 0.1569586318755737D+01
        ws( 33) = 0.5388542917233395D+00
        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 =   1
        err = 0.6046856515801996D-07
        xs(  1) = 0.4745223443237626D+01
        ws(  1) = 0.6784799000811782D+01
        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 =   1
        err = 0.6046955863051731D-07
        xs(  1) = 0.4745236096309329D+01
        ws(  1) = 0.6784915524772901D+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 =   1
        err = 0.6047537600792447D-07
        xs(  1) = 0.4745358948908874D+01
        ws(  1) = 0.6785608901799910D+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 =   1
        err = 0.6049812212791566D-07
        xs(  1) = 0.4745715582280853D+01
        ws(  1) = 0.6788291736577708D+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 =   1
        err = 0.6058816112112109D-07
        xs(  1) = 0.4747317450432416D+01
        ws(  1) = 0.6798964315077830D+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 =   1
        err = 0.6117208462406108D-07
        xs(  1) = 0.4766821463099494D+01
        ws(  1) = 0.6871401279641854D+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 =   1
        err = 0.7046089967717439D-07
        xs(  1) = 0.6509640098385338D+01
        ws(  1) = 0.9180598056190712D+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 =   1
        err = 0.5628637610513048D-07
        xs(  1) = 0.5285046783029560D+01
        ws(  1) = 0.6530685936046947D+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 =   2
        err = 0.5990441907459559D-07
        xs(  1) = 0.4679394242080453D+01
        xs(  2) = 0.5250980155205443D+01
        ws(  1) = 0.3117981567656721D+01
        ws(  2) = 0.3939238388958369D+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 =   1
        err = 0.8024020960769483D-07
        xs(  1) = 0.7542630114793927D+01
        ws(  1) = 0.1114987208824897D+02
        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 =   1
        err = 0.7303015672814777D-07
        xs(  1) = 0.7536585038836351D+01
        ws(  1) = 0.9594530808017447D+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 =   1
        err = 0.5679998779595332D-07
        xs(  1) = 0.6409270425625833D+01
        ws(  1) = 0.7095247802734352D+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 =   1
        err = 0.5349606779709316D-07
        xs(  1) = 0.6403866373554818D+01
        ws(  1) = 0.6874504956880285D+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 =   1
        err = 0.6494635809933029D-07
        xs(  1) = 0.7517382343276065D+01
        ws(  1) = 0.6877769589483355D+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 =   1
        err = 0.7647401129758112D-07
        xs(  1) = 0.8632014542831698D+01
        ws(  1) = 0.6986733779329954D+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 =   1
        err = 0.7496590873566272D-07
        xs(  1) = 0.8625465225824659D+01
        ws(  1) = 0.6651871682129120D+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 =   1
        err = 0.6743403118421183D-07
        xs(  1) = 0.8061093989710729D+01
        ws(  1) = 0.6826272175283854D+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 =   2
        err = 0.7808801577958786D-07
        xs(  1) = 0.8699549658871039D+01
        xs(  2) = 0.9267831027637621D+01
        ws(  1) = 0.3553402820012643D+01
        ws(  2) = 0.3072351120616317D+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 =   2
        err = 0.8501377833293330D-07
        xs(  1) = 0.9176463600242823D+01
        xs(  2) = 0.9735858803518692D+01
        ws(  1) = 0.3517599030027683D+01
        ws(  2) = 0.3078562608731233D+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 =   2
        err = 0.7665995926529491D-07
        xs(  1) = 0.8625253879654485D+01
        xs(  2) = 0.1256112179676697D+02
        ws(  1) = 0.5054202118357744D+01
        ws(  2) = 0.2414338837432412D+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 =   1
        err = 0.9612773884295816D-07
        xs(  1) = 0.1034318338196038D+02
        ws(  1) = 0.6550970627794614D+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 =   2
        err = 0.8490597150395864D-07
        xs(  1) = 0.8902875761300312D+01
        xs(  2) = 0.1289047024966030D+02
        ws(  1) = 0.4108584568076100D+01
        ws(  2) = 0.3339254822816584D+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 =   3
        err = 0.8416566966906653D-07
        xs(  1) = 0.8938152678381151D+01
        xs(  2) = 0.1293854147024406D+02
        xs(  3) = 0.1491204554772450D+02
        ws(  1) = 0.3984612132992372D+01
        ws(  2) = 0.3016254251330201D+01
        ws(  3) = 0.7042631529252407D+00
        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 =   1
        err = 0.4998307427009609D-08
        xs(  1) = 0.1201419341275573D+02
        ws(  1) = 0.6645444287379678D+02
        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 =   1
        err = 0.4998248991821991D-08
        xs(  1) = 0.1201423095798350D+02
        ws(  1) = 0.6645037607079389D+02
        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 =   1
        err = 0.4998080809497629D-08
        xs(  1) = 0.1201457160598991D+02
        ws(  1) = 0.6643594976516802D+02
        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 =   1
        err = 0.6266142622513831D-08
        xs(  1) = 0.1423202251903253D+02
        ws(  1) = 0.2143054554157504D+03
        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 =   1
        err = 0.3560511863087992D-08
        xs(  1) = 0.8134049740122508D+01
        ws(  1) = 0.1367727827768061D+02
        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 =   1
        err = 0.2598002648871507D-08
        xs(  1) = 0.4181912028715455D+01
        ws(  1) = 0.7221290220802320D+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 =   1
        err = 0.2694555989345849D-08
        xs(  1) = 0.5351366297121535D+01
        ws(  1) = 0.7768021233278795D+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 =   1
        err = 0.2623574532847803D-08
        xs(  1) = 0.6397986046385290D+01
        ws(  1) = 0.7960768389367780D+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 =   1
        err = 0.2872025284885166D-08
        xs(  1) = 0.6422853561239659D+01
        ws(  1) = 0.8790497800844655D+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 =   1
        err = 0.3165783188844577D-08
        xs(  1) = 0.7540496102828680D+01
        ws(  1) = 0.1048968701252250D+02
        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 =   1
        err = 0.2946413138983251D-08
        xs(  1) = 0.7535378047182973D+01
        ws(  1) = 0.9538939086640777D+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 =   1
        err = 0.2901641395950381D-08
        xs(  1) = 0.8091521092907120D+01
        ws(  1) = 0.9587548139636015D+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 =   1
        err = 0.2805301280816188D-08
        xs(  1) = 0.8085440871654406D+01
        ws(  1) = 0.8580637235754075D+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 =   1
        err = 0.2421446318235302D-08
        xs(  1) = 0.7518830379031383D+01
        ws(  1) = 0.7600935791299119D+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 =   1
        err = 0.2904180140549618D-08
        xs(  1) = 0.8634133273377868D+01
        ws(  1) = 0.7777258121205967D+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 =   1
        err = 0.2584528226273937D-08
        xs(  1) = 0.6951059696399293D+01
        ws(  1) = 0.7882802174468541D+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 =   1
        err = 0.3242035899836471D-08
        xs(  1) = 0.9182887544376317D+01
        ws(  1) = 0.7338919694770820D+01
        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 =   1
        err = 0.3822944857136460D-08
        xs(  1) = 0.1029852137480875D+02
        ws(  1) = 0.7430650028101458D+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 =   1
        err = 0.4242139753449053D-08
        xs(  1) = 0.1197922358151964D+02
        ws(  1) = 0.8328352335567002D+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 =   1
        err = 0.3807536529431687D-08
        xs(  1) = 0.1028585986120785D+02
        ws(  1) = 0.7117701509795078D+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 =   1
        err = 0.3800504429969330D-08
        xs(  1) = 0.1028073574932343D+02
        ws(  1) = 0.7207702216397658D+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 =   1
        err = 0.3796552969703951D-08
        xs(  1) = 0.1027647582799624D+02
        ws(  1) = 0.7421529843173157D+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 =   1
        err = 0.4101729614048699D-08
        xs(  1) = 0.1110136912301968D+02
        ws(  1) = 0.7184962735813604D+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 =   1
        err = 0.1105944536150358D-09
        xs(  1) = 0.4727349767818402D+01
        ws(  1) = 0.7666635144127692D+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 =   1
        err = 0.1105966582606925D-09
        xs(  1) = 0.4727359519623346D+01
        ws(  1) = 0.7666784223523257D+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 =   1
        err = 0.1106087562412861D-09
        xs(  1) = 0.4727440052311536D+01
        ws(  1) = 0.7667588814535605D+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 =   1
        err = 0.1106589187871247D-09
        xs(  1) = 0.4727689747710962D+01
        ws(  1) = 0.7670967311785088D+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 =   1
        err = 0.1108547429415504D-09
        xs(  1) = 0.4728822782741373D+01
        ws(  1) = 0.7684082067051922D+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 =   1
        err = 0.1123450303562713D-09
        xs(  1) = 0.4174162191140677D+01
        ws(  1) = 0.7875844977388431D+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 =   1
        err = 0.1147772841777775D-09
        xs(  1) = 0.5341878515190609D+01
        ws(  1) = 0.8138522530704936D+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 =   1
        err = 0.1004738718262296D-09
        xs(  1) = 0.4715157368012003D+01
        ws(  1) = 0.6969033398221846D+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 =   1
        err = 0.1127305182187838D-09
        xs(  1) = 0.4178329069443732D+01
        ws(  1) = 0.7915113725932269D+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 =   1
        err = 0.1735008897136997D-09
        xs(  1) = 0.9783467067663445D+01
        ws(  1) = 0.1830338567912949D+02
        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 =   1
        err = 0.1112874689303583D-09
        xs(  1) = 0.5292755730339363D+01
        ws(  1) = 0.7978791790606418D+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 =   1
        err = 0.1210086763641184D-09
        xs(  1) = 0.8090520742758239D+01
        ws(  1) = 0.9761693906610232D+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 =   1
        err = 0.1124566003231331D-09
        xs(  1) = 0.8085276105297924D+01
        ws(  1) = 0.9032094704350589D+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 =   1
        err = 0.1007870747153729D-09
        xs(  1) = 0.7519449241930841D+01
        ws(  1) = 0.8212092420773184D+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 =   1
        err = 0.1135630765322103D-09
        xs(  1) = 0.8635270195106788D+01
        ws(  1) = 0.8442649169601195D+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 =   1
        err = 0.1152165252639949D-09
        xs(  1) = 0.6952365992580376D+01
        ws(  1) = 0.8453659960174743D+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 =   1
        err = 0.1519742409979298D-09
        xs(  1) = 0.1030798274182518D+02
        ws(  1) = 0.8725872317407543D+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 =   1
        err = 0.1254700968583484D-09
        xs(  1) = 0.9179872599409865D+01
        ws(  1) = 0.7927527728636276D+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 =   1
        err = 0.1724613724274990D-09
        xs(  1) = 0.1198213582691157D+02
        ws(  1) = 0.9202403961219442D+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 =   1
        err = 0.1608650646254956D-09
        xs(  1) = 0.1084960807689250D+02
        ws(  1) = 0.7833615631330957D+01
        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 =   1
        err = 0.1512935663446115D-09
        xs(  1) = 0.1028412414313018D+02
        ws(  1) = 0.7823175069238166D+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 =   1
        err = 0.1512208641868655D-09
        xs(  1) = 0.1027978701313695D+02
        ws(  1) = 0.7977812677216074D+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 =   1
        err = 0.1511764488221089D-09
        xs(  1) = 0.1027621460169572D+02
        ws(  1) = 0.8239296491144565D+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 =   1
        err = 0.4776928369951648D-11
        xs(  1) = 0.4721615700978801D+01
        ws(  1) = 0.8217923031925544D+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 =   1
        err = 0.4777020943486106D-11
        xs(  1) = 0.4721623957950060D+01
        ws(  1) = 0.8218076568378896D+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 =   1
        err = 0.4777524300251852D-11
        xs(  1) = 0.4721686307990093D+01
        ws(  1) = 0.8218897022519286D+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 =   1
        err = 0.4779632679973542D-11
        xs(  1) = 0.4721887253499394D+01
        ws(  1) = 0.8222383316989990D+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 =   1
        err = 0.4787839277767077D-11
        xs(  1) = 0.4722806852923115D+01
        ws(  1) = 0.8235846113904701D+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 =   1
        err = 0.5813767888648523D-11
        xs(  1) = 0.8728195182264461D+01
        ws(  1) = 0.1325541148424076D+02
        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 =   1
        err = 0.5080418741760010D-11
        xs(  1) = 0.6476823055714447D+01
        ws(  1) = 0.9110246646022125D+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 =   1
        err = 0.4386958616364401D-11
        xs(  1) = 0.4713779385342084D+01
        ws(  1) = 0.7553662132481581D+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 =   1
        err = 0.6476226337774852D-11
        xs(  1) = 0.9222647117070339D+01
        ws(  1) = 0.1480970544734081D+02
        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 =   1
        err = 0.4770543745188497D-11
        xs(  1) = 0.5293494613621989D+01
        ws(  1) = 0.8377483675203241D+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 =   1
        err = 0.4811676069782394D-11
        xs(  1) = 0.5291132510034002D+01
        ws(  1) = 0.8488542078931173D+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 =   1
        err = 0.5125130050766371D-11
        xs(  1) = 0.8089218864263829D+01
        ws(  1) = 0.9935626272138048D+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 =   1
        err = 0.4592143564462508D-11
        xs(  1) = 0.7523692510068775D+01
        ws(  1) = 0.8952700956582600D+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 =   1
        err = 0.4389503010508479D-11
        xs(  1) = 0.7519491291632409D+01
        ws(  1) = 0.8738777754715233D+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 =   1
        err = 0.4560650026536718D-11
        xs(  1) = 0.8635725579407746D+01
        ws(  1) = 0.9006869363245601D+01
        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 =   1
        err = 0.5065625527025063D-11
        xs(  1) = 0.6953121528117715D+01
        ws(  1) = 0.8989083588498804D+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 =   1
        err = 0.6026312915345514D-11
        xs(  1) = 0.1030911837392143D+02
        ws(  1) = 0.9388624519849838D+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 =   1
        err = 0.4887910553282563D-11
        xs(  1) = 0.9181648687977777D+01
        ws(  1) = 0.8549060711257853D+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 =   1
        err = 0.7025301874993271D-11
        xs(  1) = 0.1198385504768887D+02
        ws(  1) = 0.9959657770758092D+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 =   1
        err = 0.6991525654288439D-11
        xs(  1) = 0.1197639379677170D+02
        ws(  1) = 0.9209400079837463D+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 =   1
        err = 0.5393758046384823D-11
        xs(  1) = 0.8611509459455638D+01
        ws(  1) = 0.9505369380059840D+01
        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 =   1
        err = 0.7067881157987160D-11
        xs(  1) = 0.1308862866637310D+02
        ws(  1) = 0.9118217829962035D+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 =   1
        err = 0.9687486714221602D-11
        xs(  1) = 0.1477567287650467D+02
        ws(  1) = 0.1087081365348778D+02
        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 =   1
        err = 0.2111982124860662D-12
        xs(  1) = 0.6983746189492754D+01
        ws(  1) = 0.9485978545821242D+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 =   1
        err = 0.2112010691320469D-12
        xs(  1) = 0.6983765674469814D+01
        ws(  1) = 0.9486141328136641D+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 =   1
        err = 0.2112183650923994D-12
        xs(  1) = 0.6983955736210535D+01
        ws(  1) = 0.9487242832518401D+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 =   1
        err = 0.2112779769054026D-12
        xs(  1) = 0.6984515237324496D+01
        ws(  1) = 0.9490883593351166D+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 =   1
        err = 0.2192646626987359D-12
        xs(  1) = 0.7553749604531241D+01
        ws(  1) = 0.1021803237799756D+02
        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 =   1
        err = 0.2130341263182384D-12
        xs(  1) = 0.7013901481635323D+01
        ws(  1) = 0.9621050479635652D+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 =   1
        err = 0.2161640161500585D-12
        xs(  1) = 0.6468076215865791D+01
        ws(  1) = 0.9349144447950197D+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 =   1
        err = 0.1812884491449723D-12
        xs(  1) = 0.5830955347077299D+01
        ws(  1) = 0.7696033414215101D+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 =   1
        err = 0.2197795788747395D-12
        xs(  1) = 0.7536356060910825D+01
        ws(  1) = 0.1026419790261526D+02
        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 =   1
        err = 0.2159377052399556D-12
        xs(  1) = 0.7533443806010839D+01
        ws(  1) = 0.1007727699821787D+02
        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 =   1
        err = 0.2103522982279708D-12
        xs(  1) = 0.7530128161241280D+01
        ws(  1) = 0.9825143672685224D+01
        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 =   1
        err = 0.2179692752232954D-12
        xs(  1) = 0.8087708217664661D+01
        ws(  1) = 0.1011673316421299D+02
        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 =   1
        err = 0.1970452145501338D-12
        xs(  1) = 0.7522838354436268D+01
        ws(  1) = 0.9344398276104174D+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 =   1
        err = 0.1921854758013176D-12
        xs(  1) = 0.7519125999852520D+01
        ws(  1) = 0.9204853625141968D+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 =   1
        err = 0.1954015568258232D-12
        xs(  1) = 0.8635697541048932D+01
        ws(  1) = 0.9492875400700299D+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 =   1
        err = 0.2385530073168498D-12
        xs(  1) = 0.1031521220756208D+02
        ws(  1) = 0.1061788355658291D+02
        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 =   1
        err = 0.2388546012418248D-12
        xs(  1) = 0.1030962165588370D+02
        ws(  1) = 0.9957415143593552D+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 =   1
        err = 0.1905066942026072D-12
        xs(  1) = 0.9182828778945204D+01
        ws(  1) = 0.9118693880218036D+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 =   1
        err = 0.2866194737935742D-12
        xs(  1) = 0.1198476972251645D+02
        ws(  1) = 0.1061222123619647D+02
        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 =   1
        err = 0.2845624953658378D-12
        xs(  1) = 0.1197807868055169D+02
        ws(  1) = 0.9891874064325565D+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 =   1
        err = 0.2244054720350768D-12
        xs(  1) = 0.8613046717428270D+01
        ws(  1) = 0.9945105834899909D+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 =   1
        err = 0.4469246408964272D-12
        xs(  1) = 0.1478591062071714D+02
        ws(  1) = 0.1319021459235484D+02
        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 =   1
        err = 0.3853904432465340D-12
        xs(  1) = 0.1477774462005239D+02
        ws(  1) = 0.1168919949195757D+02
        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
