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 =  33
        err = 0.3267932550864159D-10
        xs(  1) = 0.2394280611347332D-03
        xs(  2) = 0.1258249892282223D-02
        xs(  3) = 0.3075259462236090D-02
        xs(  4) = 0.5658023203686705D-02
        xs(  5) = 0.8956944792814923D-02
        xs(  6) = 0.1291244130829786D-01
        xs(  7) = 0.1746270983944699D-01
        xs(  8) = 0.2254895078288989D-01
        xs(  9) = 0.2811778297965119D-01
        xs( 10) = 0.3412182482663789D-01
        xs( 11) = 0.4051938456273151D-01
        xs( 12) = 0.4727384058406035D-01
        xs( 13) = 0.5435299217227026D-01
        xs( 14) = 0.6172848515567766D-01
        xs( 15) = 0.6937533279975093D-01
        xs( 16) = 0.7727152019350163D-01
        xs( 17) = 0.8539767341172730D-01
        xs( 18) = 0.9373677776398097D-01
        xs( 19) = 0.1022739352933283D+00
        xs( 20) = 0.1109961439774542D+00
        xs( 21) = 0.1198921545224630D+00
        xs( 22) = 0.1289521985700893D+00
        xs( 23) = 0.1381680993321403D+00
        xs( 24) = 0.1475325736892481D+00
        xs( 25) = 0.1570414563988009D+00
        xs( 26) = 0.1666858561705744D+00
        xs( 27) = 0.1764696940135838D+00
        xs( 28) = 0.1863802975068000D+00
        xs( 29) = 0.1964331276647586D+00
        xs( 30) = 0.2066946974779303D+00
        xs( 31) = 0.2166462204127034D+00
        xs( 32) = 0.2276808585873947D+00
        xs( 33) = 0.2488977877058401D+00
        ws(  1) = 0.6141065100712753D-03
        ws(  2) = 0.1421663173123696D-02
        ws(  3) = 0.2206904740113581D-02
        ws(  4) = 0.2950224071477942D-02
        ws(  5) = 0.3637551316676318D-02
        ws(  6) = 0.4263054523184652D-02
        ws(  7) = 0.4827645156325164D-02
        ws(  8) = 0.5335932512279875D-02
        ws(  9) = 0.5793841446328346D-02
        ws( 10) = 0.6207304562362881D-02
        ws( 11) = 0.6581722343208199D-02
        ws( 12) = 0.6921832514062632D-02
        ws( 13) = 0.7231752915122477D-02
        ws( 14) = 0.7515075142533836D-02
        ws( 15) = 0.7774956466312884D-02
        ws( 16) = 0.8014193997427185D-02
        ws( 17) = 0.8235280846196289D-02
        ws( 18) = 0.8440447613429753D-02
        ws( 19) = 0.8631704949114279D-02
        ws( 20) = 0.8810846080529263D-02
        ws( 21) = 0.8979503458863225D-02
        ws( 22) = 0.9139330601890852D-02
        ws( 23) = 0.9291259151931021D-02
        ws( 24) = 0.9436739885630093D-02
        ws( 25) = 0.9578454574629689D-02
        ws( 26) = 0.9714588534317588D-02
        ws( 27) = 0.9860929062407287D-02
        ws( 28) = 0.9928271201291456D-02
        ws( 29) = 0.1013630533265121D-01
        ws( 30) = 0.1035036408834732D-01
        ws( 31) = 0.1073076851522959D-01
        ws( 32) = 0.1081374218598324D-01
        ws( 33) = 0.3727621470193036D-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 =  32
        err = 0.5301397527920801D-10
        xs(  1) = 0.2445848397177469D-03
        xs(  2) = 0.1286797289764529D-02
        xs(  3) = 0.3150046594586011D-02
        xs(  4) = 0.5805043987079899D-02
        xs(  5) = 0.9202443686377423D-02
        xs(  6) = 0.1328047735420118D-01
        xs(  7) = 0.1797408987711460D-01
        xs(  8) = 0.2322111578015663D-01
        xs(  9) = 0.2896506236966763D-01
        xs( 10) = 0.3515575185651863D-01
        xs( 11) = 0.4174899372205850D-01
        xs( 12) = 0.4870595976477988D-01
        xs( 13) = 0.5599255169575316D-01
        xs( 14) = 0.6357884870901331D-01
        xs( 15) = 0.7143863999109983D-01
        xs( 16) = 0.7954902471392102D-01
        xs( 17) = 0.8789006287293936D-01
        xs( 18) = 0.9644446693339143D-01
        xs( 19) = 0.1051973330031553D+00
        xs( 20) = 0.1141358860511605D+00
        xs( 21) = 0.1232493517041621D+00
        xs( 22) = 0.1325286297946867D+00
        xs( 23) = 0.1419663564282736D+00
        xs( 24) = 0.1515565782973603D+00
        xs( 25) = 0.1612971776774325D+00
        xs( 26) = 0.1711798395940527D+00
        xs( 27) = 0.1811998975846641D+00
        xs( 28) = 0.1913997504699524D+00
        xs( 29) = 0.2017581683771611D+00
        xs( 30) = 0.2121239953770008D+00
        xs( 31) = 0.2225792272243760D+00
        xs( 32) = 0.2453052750800218D+00
        ws(  1) = 0.6275139043680181D-03
        ws(  2) = 0.1455769991334511D-02
        ws(  3) = 0.2265838541554194D-02
        ws(  4) = 0.3035786020187379D-02
        ws(  5) = 0.3748555252832330D-02
        ws(  6) = 0.4396566992868893D-02
        ws(  7) = 0.4980254404133752D-02
        ws(  8) = 0.5504374130505482D-02
        ws(  9) = 0.5975163069388331D-02
        ws( 10) = 0.6398861846839680D-02
        ws( 11) = 0.6781161219108409D-02
        ws( 12) = 0.7127097015301934D-02
        ws( 13) = 0.7441107787614799D-02
        ws( 14) = 0.7727124396922448D-02
        ws( 15) = 0.7988647156879776D-02
        ws( 16) = 0.8228804057112441D-02
        ws( 17) = 0.8450395793964536D-02
        ws( 18) = 0.8655931127421660D-02
        ws( 19) = 0.8847676125344544D-02
        ws( 20) = 0.9027655106785047D-02
        ws( 21) = 0.9197657837076791D-02
        ws( 22) = 0.9359871808680885D-02
        ws( 23) = 0.9514864771553916D-02
        ws( 24) = 0.9663675393215197D-02
        ws( 25) = 0.9814444412384420D-02
        ws( 26) = 0.9964268278634043D-02
        ws( 27) = 0.1009744818666184D-01
        ws( 28) = 0.1016495652316723D-01
        ws( 29) = 0.1038780215699385D-01
        ws( 30) = 0.1161811283109323D-01
        ws( 31) = 0.1028416166869949D-01
        ws( 32) = 0.3873119570921585D-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 =  32
        err = 0.6302632257551271D-10
        xs(  1) = 0.2295178358968594D-03
        xs(  2) = 0.1211426462470339D-02
        xs(  3) = 0.2980061031662618D-02
        xs(  4) = 0.5521973719884872D-02
        xs(  5) = 0.8799795844930998D-02
        xs(  6) = 0.1275768974199844D-01
        xs(  7) = 0.1733176507252500D-01
        xs(  8) = 0.2245833043192629D-01
        xs(  9) = 0.2807819961107063D-01
        xs( 10) = 0.3413817315356902D-01
        xs( 11) = 0.4059111450317674D-01
        xs( 12) = 0.4739551878162304D-01
        xs( 13) = 0.5451499515488282D-01
        xs( 14) = 0.6191781215161607D-01
        xs( 15) = 0.6957653338473083D-01
        xs( 16) = 0.7746772558362390D-01
        xs( 17) = 0.8557170559451947D-01
        xs( 18) = 0.9387228767830177D-01
        xs( 19) = 0.1023564926426106D+00
        xs( 20) = 0.1110142041585760D+00
        xs( 21) = 0.1198376949983262D+00
        xs( 22) = 0.1288213111889068D+00
        xs( 23) = 0.1379608564158921D+00
        xs( 24) = 0.1472524789066399D+00
        xs( 25) = 0.1566954613793029D+00
        xs( 26) = 0.1662903467291092D+00
        xs( 27) = 0.1760174229443271D+00
        xs( 28) = 0.1859108831182772D+00
        xs( 29) = 0.1959864602799572D+00
        xs( 30) = 0.2060707004395588D+00
        xs( 31) = 0.2165072014540879D+00
        xs( 32) = 0.2376238671018830D+00
        ws(  1) = 0.5893313604634017D-03
        ws(  2) = 0.1375629041035293D-02
        ws(  3) = 0.2159514098834197D-02
        ws(  4) = 0.2917968632976687D-02
        ws(  5) = 0.3628177042368007D-02
        ws(  6) = 0.4276822303384316D-02
        ws(  7) = 0.4860645079832828D-02
        ws(  8) = 0.5382600182778919D-02
        ws(  9) = 0.5848272403611423D-02
        ws( 10) = 0.6263826685646071D-02
        ws( 11) = 0.6635147457885331D-02
        ws( 12) = 0.6967603575553360D-02
        ws( 13) = 0.7266066610700746D-02
        ws( 14) = 0.7534999435475843D-02
        ws( 15) = 0.7778541610601353D-02
        ws( 16) = 0.8000566384656915D-02
        ws( 17) = 0.8204700682153595D-02
        ws( 18) = 0.8394306852780567D-02
        ws( 19) = 0.8572422266675109D-02
        ws( 20) = 0.8741714661748137D-02
        ws( 21) = 0.8904415341289086D-02
        ws( 22) = 0.9061768741655965D-02
        ws( 23) = 0.9217334259208843D-02
        ws( 24) = 0.9366282470957402D-02
        ws( 25) = 0.9516165961751488D-02
        ws( 26) = 0.9667278503509610D-02
        ws( 27) = 0.9827579108507817D-02
        ws( 28) = 0.9954842894850999D-02
        ws( 29) = 0.9898137309883663D-02
        ws( 30) = 0.1059101358156173D-01
        ws( 31) = 0.1252998843777212D-01
        ws( 32) = 0.3095543615541357D-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 =  32
        err = 0.3553234478891426D-10
        xs(  1) = 0.2113759576780784D-03
        xs(  2) = 0.1120192996687797D-02
        xs(  3) = 0.2774025323580644D-02
        xs(  4) = 0.5182925193680050D-02
        xs(  5) = 0.8332913725893138D-02
        xs(  6) = 0.1218546390730707D-01
        xs(  7) = 0.1668666133068136D-01
        xs(  8) = 0.2177720256745945D-01
        xs(  9) = 0.2739895202650725D-01
        xs( 10) = 0.3349807309497814D-01
        xs( 11) = 0.4002607434468491D-01
        xs( 12) = 0.4693987765996399D-01
        xs( 13) = 0.5420151109024659D-01
        xs( 14) = 0.6177768693008216D-01
        xs( 15) = 0.6963936026123391D-01
        xs( 16) = 0.7776129988059947D-01
        xs( 17) = 0.8612168399434514D-01
        xs( 18) = 0.9470172814142346D-01
        xs( 19) = 0.1034853496204281D+00
        xs( 20) = 0.1124588785580458D+00
        xs( 21) = 0.1216108053992754D+00
        xs( 22) = 0.1309315199582477D+00
        xs( 23) = 0.1404135753603320D+00
        xs( 24) = 0.1500502252684180D+00
        xs( 25) = 0.1598373117965220D+00
        xs( 26) = 0.1697749068401682D+00
        xs( 27) = 0.1798580752311782D+00
        xs( 28) = 0.1900842614946849D+00
        xs( 29) = 0.2004489620120468D+00
        xs( 30) = 0.2110180627273386D+00
        xs( 31) = 0.2218796659518676D+00
        xs( 32) = 0.2326206833238139D+00
        ws(  1) = 0.5432780556567082D-03
        ws(  2) = 0.1278176094684696D-02
        ws(  3) = 0.2031428213101564D-02
        ws(  4) = 0.2784033929078369D-02
        ws(  5) = 0.3509344211463118D-02
        ws(  6) = 0.4186594518382882D-02
        ws(  7) = 0.4805808600046386D-02
        ws(  8) = 0.5365536166042971D-02
        ws(  9) = 0.5868975218278750D-02
        ws( 10) = 0.6321185224051980D-02
        ws( 11) = 0.6727643255257019D-02
        ws( 12) = 0.7093641937594589D-02
        ws( 13) = 0.7424084390853713D-02
        ws( 14) = 0.7723433645867656D-02
        ws( 15) = 0.7995714571530093D-02
        ws( 16) = 0.8244533928625047D-02
        ws( 17) = 0.8473109107152821D-02
        ws( 18) = 0.8684303674968578D-02
        ws( 19) = 0.8880666655657125D-02
        ws( 20) = 0.9064463290843447D-02
        ws( 21) = 0.9237845996857497D-02
        ws( 22) = 0.9402261273247737D-02
        ws( 23) = 0.9560482900914316D-02
        ws( 24) = 0.9713250016476561D-02
        ws( 25) = 0.9861825092085242D-02
        ws( 26) = 0.1000218125885779D-01
        ws( 27) = 0.1015955085484821D-01
        ws( 28) = 0.1037583963375054D-01
        ws( 29) = 0.1046860203766708D-01
        ws( 30) = 0.9969104575186268D-02
        ws( 31) = 0.9712717162431697D-02
        ws( 32) = 0.2188795298577906D-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 =  32
        err = 0.4461284218608975D-10
        xs(  1) = 0.1870111447627655D-03
        xs(  2) = 0.9956830303943605D-03
        xs(  3) = 0.2485177251515366D-02
        xs(  4) = 0.4690423670343289D-02
        xs(  5) = 0.7624932619272698D-02
        xs(  6) = 0.1127211903117903D-01
        xs(  7) = 0.1559101724419956D-01
        xs(  8) = 0.2052751026596252D-01
        xs(  9) = 0.2602374890942100D-01
        xs( 10) = 0.3202371761240730D-01
        xs( 11) = 0.3847579181955782D-01
        xs( 12) = 0.4533359328505365D-01
        xs( 13) = 0.5255604450838487D-01
        xs( 14) = 0.6010709242007277D-01
        xs( 15) = 0.6795531033022505D-01
        xs( 16) = 0.7607346430083078D-01
        xs( 17) = 0.8443808162762828D-01
        xs( 18) = 0.9302904182572137D-01
        xs( 19) = 0.1018292026109614D+00
        xs( 20) = 0.1108240701887200D+00
        xs( 21) = 0.1200015356799416D+00
        xs( 22) = 0.1293515317332892D+00
        xs( 23) = 0.1388663768292512D+00
        xs( 24) = 0.1485392989227431D+00
        xs( 25) = 0.1583664303467978D+00
        xs( 26) = 0.1683457053393454D+00
        xs( 27) = 0.1784791484865635D+00
        xs( 28) = 0.1887672133895410D+00
        xs( 29) = 0.1991700597200210D+00
        xs( 30) = 0.2097666512820093D+00
        xs( 31) = 0.2208776435207153D+00
        xs( 32) = 0.2317373772628602D+00
        ws(  1) = 0.4811861929680724D-03
        ws(  2) = 0.1142456819444812D-02
        ws(  3) = 0.1842756176758989D-02
        ws(  4) = 0.2570133133047221D-02
        ws(  5) = 0.3295998062974600D-02
        ws(  6) = 0.3991341602872248D-02
        ws(  7) = 0.4637274955416137D-02
        ws(  8) = 0.5225979811872854D-02
        ws(  9) = 0.5757122295989447D-02
        ws( 10) = 0.6234198873113990D-02
        ws( 11) = 0.6662219965879183D-02
        ws( 12) = 0.7046541762610003D-02
        ws( 13) = 0.7392358651353798D-02
        ws( 14) = 0.7704506697297309D-02
        ws( 15) = 0.7987397371080462D-02
        ws( 16) = 0.8245005306655022D-02
        ws( 17) = 0.8480882181441675D-02
        ws( 18) = 0.8698186539660464D-02
        ws( 19) = 0.8899725814506392D-02
        ws( 20) = 0.9087985964881563D-02
        ws( 21) = 0.9265291261671716D-02
        ws( 22) = 0.9433468944733028D-02
        ws( 23) = 0.9594625871593782D-02
        ws( 24) = 0.9751523771994085D-02
        ws( 25) = 0.9904534625417944D-02
        ws( 26) = 0.1004480695261565D-01
        ws( 27) = 0.1020807133074215D-01
        ws( 28) = 0.1044433795074470D-01
        ws( 29) = 0.1054451627948006D-01
        ws( 30) = 0.9953338589949250D-02
        ws( 31) = 0.9988236887075322D-02
        ws( 32) = 0.2203247406087288D-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 =  32
        err = 0.7229208553853871D-10
        xs(  1) = 0.1366730385046007D-03
        xs(  2) = 0.7335885957186617D-03
        xs(  3) = 0.1858161168750192D-02
        xs(  4) = 0.3579942057260676D-02
        xs(  5) = 0.5963452138591396D-02
        xs(  6) = 0.9045293650489320D-02
        xs(  7) = 0.1282650130465272D-01
        xs(  8) = 0.1727910166693110D-01
        xs(  9) = 0.2235744857584593D-01
        xs( 10) = 0.2800783469461033D-01
        xs( 11) = 0.3417488110447069D-01
        xs( 12) = 0.4080534680135720D-01
        xs( 13) = 0.4785020130893481D-01
        xs( 14) = 0.5526556647603482D-01
        xs( 15) = 0.6301294650571564D-01
        xs( 16) = 0.7105904121666640D-01
        xs( 17) = 0.7937534389272662D-01
        xs( 18) = 0.8793765375495230D-01
        xs( 19) = 0.9672558227065887D-01
        xs( 20) = 0.1057220970677063D+00
        xs( 21) = 0.1149131304090099D+00
        xs( 22) = 0.1242872906244749D+00
        xs( 23) = 0.1338353561948532D+00
        xs( 24) = 0.1435515102097091D+00
        xs( 25) = 0.1534289105951003D+00
        xs( 26) = 0.1634674922813317D+00
        xs( 27) = 0.1736732306262801D+00
        xs( 28) = 0.1840332748266646D+00
        xs( 29) = 0.1945566746097722D+00
        xs( 30) = 0.2052935444886287D+00
        xs( 31) = 0.2161921539769018D+00
        xs( 32) = 0.2276836496052493D+00
        ws(  1) = 0.3523214841784511D-03
        ws(  2) = 0.8501128831427268D-03
        ws(  3) = 0.1411076986690637D-02
        ws(  4) = 0.2043659165823304D-02
        ws(  5) = 0.2729581990783450D-02
        ws(  6) = 0.3434135907273329D-02
        ws(  7) = 0.4123412730011691D-02
        ws(  8) = 0.4774018122203212D-02
        ws(  9) = 0.5373620234403762D-02
        ws( 10) = 0.5917860777084781D-02
        ws( 11) = 0.6407325395592606D-02
        ws( 12) = 0.6845419530646645D-02
        ws( 13) = 0.7236973318251329D-02
        ws( 14) = 0.7587344634696391D-02
        ws( 15) = 0.7901872399708557D-02
        ws( 16) = 0.8185574213636970D-02
        ws( 17) = 0.8443006012054678D-02
        ws( 18) = 0.8678223290288662D-02
        ws( 19) = 0.8894801407956543D-02
        ws( 20) = 0.9095892714441339D-02
        ws( 21) = 0.9284257156489669D-02
        ws( 22) = 0.9462607728073299D-02
        ws( 23) = 0.9632510469006412D-02
        ws( 24) = 0.9797840632406034D-02
        ws( 25) = 0.9960014918597574D-02
        ws( 26) = 0.1011982875231981D-01
        ws( 27) = 0.1025963728322070D-01
        ws( 28) = 0.1047564000523065D-01
        ws( 29) = 0.1085532490080575D-01
        ws( 30) = 0.1039972375753385D-01
        ws( 31) = 0.8712623710823165D-02
        ws( 32) = 0.2227261819651415D-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 =  33
        err = 0.6108795220826059D-10
        xs(  1) = 0.1024074564510006D-03
        xs(  2) = 0.5500276959083940D-03
        xs(  3) = 0.1397317371593341D-02
        xs(  4) = 0.2712236602596359D-02
        xs(  5) = 0.4578758247758613D-02
        xs(  6) = 0.7076016689211339D-02
        xs(  7) = 0.1025517315099150D-01
        xs(  8) = 0.1412752931295241D-01
        xs(  9) = 0.1866991435288804D-01
        xs( 10) = 0.2383822145565978D-01
        xs( 11) = 0.2957852413346297D-01
        xs( 12) = 0.3583411179841401D-01
        xs( 13) = 0.4254999163047382D-01
        xs( 14) = 0.4967556746944334D-01
        xs( 15) = 0.5716587874542586D-01
        xs( 16) = 0.6498186632903664D-01
        xs( 17) = 0.7309009400457595D-01
        xs( 18) = 0.8146222263483566D-01
        xs( 19) = 0.9007441172150800D-01
        xs( 20) = 0.9890674052568926D-01
        xs( 21) = 0.1079426936676659D+00
        xs( 22) = 0.1171687414152722D+00
        xs( 23) = 0.1265739478180389D+00
        xs( 24) = 0.1361499097421785D+00
        xs( 25) = 0.1458902787373910D+00
        xs( 26) = 0.1557909545848269D+00
        xs( 27) = 0.1658494000892150D+00
        xs( 28) = 0.1760717258432100D+00
        xs( 29) = 0.1864612368774805D+00
        xs( 30) = 0.1969848165409213D+00
        xs( 31) = 0.2076709602914445D+00
        xs( 32) = 0.2188669977633593D+00
        xs( 33) = 0.2302725063300243D+00
        ws(  1) = 0.2640067046780736D-03
        ws(  2) = 0.6381847361357161D-03
        ws(  3) = 0.1067895366699670D-02
        ws(  4) = 0.1576305148118648D-02
        ws(  5) = 0.2170351424260840D-02
        ws(  6) = 0.2832910580951215D-02
        ws(  7) = 0.3527165424003556D-02
        ws(  8) = 0.4213429092133576D-02
        ws(  9) = 0.4863805485908931D-02
        ws( 10) = 0.5463708604596036D-02
        ws( 11) = 0.6007371021044106D-02
        ws( 12) = 0.6494595008138375D-02
        ws( 13) = 0.6928712517889044D-02
        ws( 14) = 0.7314942358309124D-02
        ws( 15) = 0.7659175680020124D-02
        ws( 16) = 0.7967235954664293D-02
        ws( 17) = 0.8244506395408933D-02
        ws( 18) = 0.8495787242824886D-02
        ws( 19) = 0.8725279401910809D-02
        ws( 20) = 0.8936633669708838D-02
        ws( 21) = 0.9133022408780183D-02
        ws( 22) = 0.9317248336586535D-02
        ws( 23) = 0.9491851419490492D-02
        ws( 24) = 0.9658701822807866D-02
        ws( 25) = 0.9821660885312986D-02
        ws( 26) = 0.9981278677560906D-02
        ws( 27) = 0.1013291411656856D-01
        ws( 28) = 0.1029684344050027D-01
        ws( 29) = 0.1051729848902623D-01
        ws( 30) = 0.1069567999624564D-01
        ws( 31) = 0.1037487388966159D-01
        ws( 32) = 0.1049872061793539D-01
        ws( 33) = 0.1903478649749535D-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 =  35
        err = 0.5000170615783917D-10
        xs(  1) = 0.5494779267276520D-04
        xs(  2) = 0.2939716215655475D-03
        xs(  3) = 0.7427386194074378D-03
        xs(  4) = 0.1435663591482677D-02
        xs(  5) = 0.2426699521732223D-02
        xs(  6) = 0.3792311753500888D-02
        xs(  7) = 0.5630920318792701D-02
        xs(  8) = 0.8053642861750943D-02
        xs(  9) = 0.1116217075474260D-01
        xs( 10) = 0.1501868188442737D-01
        xs( 11) = 0.1962615734801335D-01
        xs( 12) = 0.2493500676946705D-01
        xs( 13) = 0.3086810151993750D-01
        xs( 14) = 0.3734397823288051D-01
        xs( 15) = 0.4428901122740443D-01
        xs( 16) = 0.5164095862711615D-01
        xs( 17) = 0.5934852123309226D-01
        xs( 18) = 0.6736971774876210D-01
        xs( 19) = 0.7567019845307130D-01
        xs( 20) = 0.8422181405025500D-01
        xs( 21) = 0.9300147396422973D-01
        xs( 22) = 0.1019902555104913D+00
        xs( 23) = 0.1111727182979521D+00
        xs( 24) = 0.1205363753417579D+00
        xs( 25) = 0.1300713483022231D+00
        xs( 26) = 0.1397700187988037D+00
        xs( 27) = 0.1496269833521084D+00
        xs( 28) = 0.1596387632204075D+00
        xs( 29) = 0.1698055145142887D+00
        xs( 30) = 0.1801287221471766D+00
        xs( 31) = 0.1906056061072950D+00
        xs( 32) = 0.2012460706148349D+00
        xs( 33) = 0.2121047227942494D+00
        xs( 34) = 0.2232329980788390D+00
        xs( 35) = 0.2345367668449213D+00
        ws(  1) = 0.1415167380302692D-03
        ws(  2) = 0.3396035606934494D-03
        ws(  3) = 0.5636032855086929D-03
        ws(  4) = 0.8311827009374381D-03
        ws(  5) = 0.1163629314508108D-02
        ws(  6) = 0.1584139198158720D-02
        ws(  7) = 0.2111974249525068D-02
        ws(  8) = 0.2750971402659784D-02
        ws(  9) = 0.3476827294943136D-02
        ws( 10) = 0.4236554895142540D-02
        ws( 11) = 0.4969652417854177D-02
        ws( 12) = 0.5634785255647871D-02
        ws( 13) = 0.6217634685161398D-02
        ws( 14) = 0.6721800966819582D-02
        ws( 15) = 0.7157905071211689D-02
        ws( 16) = 0.7537469221078737D-02
        ws( 17) = 0.7870687776083626D-02
        ws( 18) = 0.8166004168519762D-02
        ws( 19) = 0.8430284613933216D-02
        ws( 20) = 0.8669112915544253D-02
        ws( 21) = 0.8887064694944824D-02
        ws( 22) = 0.9087933748626625D-02
        ws( 23) = 0.9274917579074084D-02
        ws( 24) = 0.9450765189529434D-02
        ws( 25) = 0.9617846161942072D-02
        ws( 26) = 0.9778706001027346D-02
        ws( 27) = 0.9935067415537631D-02
        ws( 28) = 0.1008793150944588D-01
        ws( 29) = 0.1024232143388108D-01
        ws( 30) = 0.1040728874961394D-01
        ws( 31) = 0.1058701394086179D-01
        ws( 32) = 0.1072058205829881D-01
        ws( 33) = 0.1068755254328250D-01
        ws( 34) = 0.1126656433763005D-01
        ws( 35) = 0.1609128637599722D-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 =  39
        err = 0.5410766700860012D-10
        xs(  1) = 0.2387260160254354D-04
        xs(  2) = 0.1267461539128353D-03
        xs(  3) = 0.3158546517608216D-03
        xs(  4) = 0.5985696722670755D-03
        xs(  5) = 0.9864599876169913D-03
        xs(  6) = 0.1496489246832737D-02
        xs(  7) = 0.2152724024944897D-02
        xs(  8) = 0.2988738329884150D-02
        xs(  9) = 0.4050870881606329D-02
        xs( 10) = 0.5402334622955627D-02
        xs( 11) = 0.7127641096646395D-02
        xs( 12) = 0.9335455162502225D-02
        xs( 13) = 0.1215535860103728D-01
        xs( 14) = 0.1572074337686938D-01
        xs( 15) = 0.2013183289794209D-01
        xs( 16) = 0.2541148383214731D-01
        xs( 17) = 0.3149187486364891D-01
        xs( 18) = 0.3824992233420161D-01
        xs( 19) = 0.4555652735942355D-01
        xs( 20) = 0.5330423036708462D-01
        xs( 21) = 0.6141239022589325D-01
        xs( 22) = 0.6982258626989837D-01
        xs( 23) = 0.7849248440372888D-01
        xs( 24) = 0.8739091307372578D-01
        xs( 25) = 0.9649445630655971D-01
        xs( 26) = 0.1057852208378509D+00
        xs( 27) = 0.1152493988428305D+00
        xs( 28) = 0.1248763433653885D+00
        xs( 29) = 0.1346579865815876D+00
        xs( 30) = 0.1445885031132553D+00
        xs( 31) = 0.1546641397864468D+00
        xs( 32) = 0.1648830652724204D+00
        xs( 33) = 0.1752458156325557D+00
        xs( 34) = 0.1857551444024950D+00
        xs( 35) = 0.1964150251691088D+00
        xs( 36) = 0.2072381794919495D+00
        xs( 37) = 0.2182628621347052D+00
        xs( 38) = 0.2294984506854694D+00
        xs( 39) = 0.2407673886249227D+00
        ws(  1) = 0.6137372180459382D-04
        ws(  2) = 0.1450633982881497D-03
        ws(  3) = 0.2343668333586725D-03
        ws(  4) = 0.3329719810283484D-03
        ws(  5) = 0.4456078713879832D-03
        ws(  6) = 0.5784220881030849D-03
        ws(  7) = 0.7395889821573939D-03
        ws(  8) = 0.9400932836388305D-03
        ws(  9) = 0.1194629639259251D-02
        ws( 10) = 0.1522325309493694D-02
        ws( 11) = 0.1946432702035566D-02
        ws( 12) = 0.2491055803765454D-02
        ws( 13) = 0.3171620316202606D-02
        ws( 14) = 0.3976704066820172D-02
        ws( 15) = 0.4849574335743468D-02
        ws( 16) = 0.5697713456451358D-02
        ws( 17) = 0.6441634367899934D-02
        ws( 18) = 0.7052496791680406D-02
        ws( 19) = 0.7542754063072009D-02
        ws( 20) = 0.7939307125343470D-02
        ws( 21) = 0.8267383135771496D-02
        ws( 22) = 0.8546035427132235D-02
        ws( 23) = 0.8788621346975915D-02
        ws( 24) = 0.9004369585388129D-02
        ws( 25) = 0.9199757802584380D-02
        ws( 26) = 0.9379484148329039D-02
        ws( 27) = 0.9547104762989459D-02
        ws( 28) = 0.9705458095145359D-02
        ws( 29) = 0.9856865722672428D-02
        ws( 30) = 0.1000349683408469D-01
        ws( 31) = 0.1014735165519876D-01
        ws( 32) = 0.1029068248764426D-01
        ws( 33) = 0.1043617795614929D-01
        ws( 34) = 0.1058552687261717D-01
        ws( 35) = 0.1074050904286798D-01
        ws( 36) = 0.1089899201156776D-01
        ws( 37) = 0.1106113475599735D-01
        ws( 38) = 0.1151868956721958D-01
        ws( 39) = 0.1388447801038861D-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 =  42
        err = 0.8487270493245101D-10
        xs(  1) = 0.1348555880240407D-04
        xs(  2) = 0.7136138855486764D-04
        xs(  3) = 0.1767594224640964D-03
        xs(  4) = 0.3319824334834828D-03
        xs(  5) = 0.5405406352351890D-03
        xs(  6) = 0.8074161067936707D-03
        xs(  7) = 0.1139413150180167D-02
        xs(  8) = 0.1545641482376085D-02
        xs(  9) = 0.2038183152477687D-02
        xs( 10) = 0.2633016726168220D-02
        xs( 11) = 0.3351303450022355D-02
        xs( 12) = 0.4221179907728480D-02
        xs( 13) = 0.5280245875050466D-02
        xs( 14) = 0.6578965313093488D-02
        xs( 15) = 0.8185153098400061D-02
        xs( 16) = 0.1018944263958949D-01
        xs( 17) = 0.1271074806602862D-01
        xs( 18) = 0.1589849490365629D-01
        xs( 19) = 0.1992380545478737D-01
        xs( 20) = 0.2494632637904763D-01
        xs( 21) = 0.3105040689963591D-01
        xs( 22) = 0.3818555187505362D-01
        xs( 23) = 0.4617807527748037D-01
        xs( 24) = 0.5481203743965299D-01
        xs( 25) = 0.6390141845334450D-01
        xs( 26) = 0.7331398445728775D-01
        xs( 27) = 0.8296436519595776D-01
        xs( 28) = 0.9279966140650019D-01
        xs( 29) = 0.1027874863188022D+00
        xs( 30) = 0.1129080329583349D+00
        xs( 31) = 0.1231492542381630D+00
        xs( 32) = 0.1335040414862148D+00
        xs( 33) = 0.1439686069530835D+00
        xs( 34) = 0.1545415721088222D+00
        xs( 35) = 0.1652234684348624D+00
        xs( 36) = 0.1760164935040788D+00
        xs( 37) = 0.1869244654564931D+00
        xs( 38) = 0.1979534766147382D+00
        xs( 39) = 0.2091165030728644D+00
        xs( 40) = 0.2204317216843976D+00
        xs( 41) = 0.2318312086713364D+00
        xs( 42) = 0.2429131031266908D+00
        ws(  1) = 0.3464308709400133D-04
        ws(  2) = 0.8134129847910792D-04
        ws(  3) = 0.1298341118636988D-03
        ws(  4) = 0.1811927648576300D-03
        ws(  5) = 0.2367482312926101D-03
        ws(  6) = 0.2981288265323013D-03
        ws(  7) = 0.3673726029806230D-03
        ws(  8) = 0.4470825788063642D-03
        ws(  9) = 0.5406427610407230D-03
        ws( 10) = 0.6525218359051810D-03
        ws( 11) = 0.7887001204509563D-03
        ws( 12) = 0.9572632297983642D-03
        ws( 13) = 0.1169204547789876D-02
        ws( 14) = 0.1439443833828689D-02
        ws( 15) = 0.1787939581785192D-02
        ws( 16) = 0.2240403855449070D-02
        ws( 17) = 0.2827223462294272D-02
        ws( 18) = 0.3577310877291952D-02
        ws( 19) = 0.4501056045784408D-02
        ws( 20) = 0.5559259644656212D-02
        ws( 21) = 0.6640296408491217D-02
        ws( 22) = 0.7599432912924961D-02
        ws( 23) = 0.8348331132852804D-02
        ws( 24) = 0.8888263125082072D-02
        ws( 25) = 0.9268635235263847D-02
        ws( 26) = 0.9542528132016479D-02
        ws( 27) = 0.9749617668630558D-02
        ws( 28) = 0.9915706641505302D-02
        ws( 29) = 0.1005672050866084D-01
        ws( 30) = 0.1018241081543972D-01
        ws( 31) = 0.1029887350775048D-01
        ws( 32) = 0.1041008190697091D-01
        ws( 33) = 0.1051882756621251D-01
        ws( 34) = 0.1062724141431850D-01
        ws( 35) = 0.1073721659136796D-01
        ws( 36) = 0.1085045691332541D-01
        ws( 37) = 0.1096711058662301D-01
        ws( 38) = 0.1108449244090205D-01
        ws( 39) = 0.1121662187211037D-01
        ws( 40) = 0.1147540378428595D-01
        ws( 41) = 0.1199843907805405D-01
        ws( 42) = 0.1186854607925814D-01
        endif
        if( idomain .eq.   11 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.0000000000000000D+00
        rk1r = 0.1256637061435917D+02
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  44
        err = 0.7947112408375345D-10
        xs(  1) = 0.8900512402451899D-05
        xs(  2) = 0.4702384931342615D-04
        xs(  3) = 0.1161390307778393D-03
        xs(  4) = 0.2171983435215643D-03
        xs(  5) = 0.3516274580266329D-03
        xs(  6) = 0.5214147112946706D-03
        xs(  7) = 0.7292167129442298D-03
        xs(  8) = 0.9784957484708099D-03
        xs(  9) = 0.1273699143131421D-02
        xs( 10) = 0.1620494976194475D-02
        xs( 11) = 0.2026084867087559D-02
        xs( 12) = 0.2499623384756044D-02
        xs( 13) = 0.3052786208733687D-02
        xs( 14) = 0.3700547332648730D-02
        xs( 15) = 0.4462251858001908D-02
        xs( 16) = 0.5363108389723225D-02
        xs( 17) = 0.6436276773778104D-02
        xs( 18) = 0.7725793025493594D-02
        xs( 19) = 0.9290642549066959D-02
        xs( 20) = 0.1121031737647812D-01
        xs( 21) = 0.1359202019199327D-01
        xs( 22) = 0.1657886601876836D-01
        xs( 23) = 0.2035581057903700D-01
        xs( 24) = 0.2514309265999795D-01
        xs( 25) = 0.3115492283603920D-01
        xs( 26) = 0.3850488221042800D-01
        xs( 27) = 0.4710785374972352D-01
        xs( 28) = 0.5669617960896509D-01
        xs( 29) = 0.6695129887810790D-01
        xs( 30) = 0.7761485925937434D-01
        xs( 31) = 0.8851725152612978D-01
        xs( 32) = 0.9955981617289006D-01
        xs( 33) = 0.1106896478181725D+00
        xs( 34) = 0.1218807467918738D+00
        xs( 35) = 0.1331223475826279D+00
        xs( 36) = 0.1444122169143148D+00
        xs( 37) = 0.1557529403997912D+00
        xs( 38) = 0.1671497387713775D+00
        xs( 39) = 0.1786095263944423D+00
        xs( 40) = 0.1901407406066361D+00
        xs( 41) = 0.2017531925398540D+00
        xs( 42) = 0.2134483234708852D+00
        xs( 43) = 0.2251054577852746D+00
        xs( 44) = 0.2362804496735852D+00
        ws(  1) = 0.2285607284989730D-04
        ws(  2) = 0.5349494269622147D-04
        ws(  3) = 0.8489209039713876D-04
        ws(  4) = 0.1174627859296790D-03
        ws(  5) = 0.1517250927643890D-03
        ws(  6) = 0.1882899149094921D-03
        ws(  7) = 0.2278881801443158D-03
        ws(  8) = 0.2714072316084028D-03
        ws(  9) = 0.3199390934035322D-03
        ws( 10) = 0.3748459506159475D-03
        ws( 11) = 0.4378502636821829D-03
        ws( 12) = 0.5111599665123852D-03
        ws( 13) = 0.5976437565956201D-03
        ws( 14) = 0.7010782136732320D-03
        ws( 15) = 0.8264980480108686D-03
        ws( 16) = 0.9806936598056116D-03
        ws( 17) = 0.1172915417569664D-02
        ws( 18) = 0.1415855960684773D-02
        ws( 19) = 0.1726970756093497D-02
        ws( 20) = 0.2130103139714466D-02
        ws( 21) = 0.2657035010872868D-02
        ws( 22) = 0.3347537193604182D-02
        ws( 23) = 0.4243671527269966D-02
        ws( 24) = 0.5368262615292911D-02
        ws( 25) = 0.6676360336704521D-02
        ws( 26) = 0.8009130442158780D-02
        ws( 27) = 0.9149536004808516D-02
        ws( 28) = 0.9972038896767387D-02
        ws( 29) = 0.1049480489321082D-01
        ws( 30) = 0.1080444078667615D-01
        ws( 31) = 0.1098434580459944D-01
        ws( 32) = 0.1109227925005947D-01
        ws( 33) = 0.1116324157511121D-01
        ws( 34) = 0.1121727535955033D-01
        ws( 35) = 0.1126562367894107D-01
        ws( 36) = 0.1131463425397740D-01
        ws( 37) = 0.1136797495283262D-01
        ws( 38) = 0.1142756334054302D-01
        ws( 39) = 0.1149317946458867D-01
        ws( 40) = 0.1156238643829966D-01
        ws( 41) = 0.1165847094400758D-01
        ws( 42) = 0.1189458034434820D-01
        ws( 43) = 0.1216168771990476D-01
        ws( 44) = 0.1065007186065562D-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 =  48
        err = 0.4785432841831229D-10
        xs(  1) = 0.6209394521845385D-05
        xs(  2) = 0.3277673774561342D-04
        xs(  3) = 0.8082038415366484D-04
        xs(  4) = 0.1507859459612217D-03
        xs(  5) = 0.2433290862596195D-03
        xs(  6) = 0.3593518562158210D-03
        xs(  7) = 0.5000402107897034D-03
        xs(  8) = 0.6669104878139747D-03
        xs(  9) = 0.8618671636718299D-03
        xs( 10) = 0.1087274833743389D-02
        xs( 11) = 0.1346048605713900D-02
        xs( 12) = 0.1641768705617900D-02
        xs( 13) = 0.1978827219357941D-02
        xs( 14) = 0.2362617785852605D-02
        xs( 15) = 0.2799783100998680D-02
        xs( 16) = 0.3298540831083411D-02
        xs( 17) = 0.3869116757731807D-02
        xs( 18) = 0.4524325838643197D-02
        xs( 19) = 0.5280359027659740D-02
        xs( 20) = 0.6157858509588920D-02
        xs( 21) = 0.7183399617374120D-02
        xs( 22) = 0.8391547829403214D-02
        xs( 23) = 0.9827726697795377D-02
        xs( 24) = 0.1155221376289006D-01
        xs( 25) = 0.1364564878986151D-01
        xs( 26) = 0.1621638631434629D-01
        xs( 27) = 0.1940950617061791D-01
        xs( 28) = 0.2341528049215776D-01
        xs( 29) = 0.2846876368922738D-01
        xs( 30) = 0.3481901247097394D-01
        xs( 31) = 0.4263957518843026D-01
        xs( 32) = 0.5190425550629401D-01
        xs( 33) = 0.6235284895035026D-01
        xs( 34) = 0.7361323576800480D-01
        xs( 35) = 0.8535301213825031D-01
        xs( 36) = 0.9734293871288106D-01
        xs( 37) = 0.1094477393296975D+00
        xs( 38) = 0.1215960905195618D+00
        xs( 39) = 0.1337550308988455D+00
        xs( 40) = 0.1459133132431400D+00
        xs( 41) = 0.1580716668430098D+00
        xs( 42) = 0.1702373353144701D+00
        xs( 43) = 0.1824210253011545D+00
        xs( 44) = 0.1946355651428679D+00
        xs( 45) = 0.2068928112598475D+00
        xs( 46) = 0.2191673896554362D+00
        xs( 47) = 0.2314607496327239D+00
        xs( 48) = 0.2437280294429316D+00
        ws(  1) = 0.1594210814654843D-04
        ws(  2) = 0.3724620971325234D-04
        ws(  3) = 0.5891421391152176D-04
        ws(  4) = 0.8112566620248845D-04
        ws(  5) = 0.1041103381266216D-03
        ws(  6) = 0.1281320911209123D-03
        ws(  7) = 0.1534963852749190D-03
        ws(  8) = 0.1805603916694794D-03
        ws(  9) = 0.2097455663358575D-03
        ws( 10) = 0.2415537335513007D-03
        ws( 11) = 0.2765880943452288D-03
        ws( 12) = 0.3155809929479536D-03
        ws( 13) = 0.3594308973707723D-03
        ws( 14) = 0.4092519869208595D-03
        ws( 15) = 0.4664411301531052D-03
        ws( 16) = 0.5327690773526815D-03
        ws( 17) = 0.6105056811236449D-03
        ws( 18) = 0.7025933282176540D-03
        ws( 19) = 0.8128891090916525D-03
        ws( 20) = 0.9465053483355178D-03
        ws( 21) = 0.1110290737582363D-02
        ws( 22) = 0.1313510628400214D-02
        ws( 23) = 0.1568802495492508D-02
        ws( 24) = 0.1893489091427765D-02
        ws( 25) = 0.2311286077172776D-02
        ws( 26) = 0.2854211407885744D-02
        ws( 27) = 0.3563697695620217D-02
        ws( 28) = 0.4487449064718321D-02
        ws( 29) = 0.5662528394157139D-02
        ws( 30) = 0.7069340449194321D-02
        ws( 31) = 0.8568259683694231D-02
        ws( 32) = 0.9915245657862474D-02
        ws( 33) = 0.1091706238464592D-01
        ws( 34) = 0.1154736037656062D-01
        ws( 35) = 0.1189428307584452D-01
        ws( 36) = 0.1206357682014665D-01
        ws( 37) = 0.1213456922882311D-01
        ws( 38) = 0.1215691175958470D-01
        ws( 39) = 0.1215924642791972D-01
        ws( 40) = 0.1215749811702454D-01
        ws( 41) = 0.1216042458401140D-01
        ws( 42) = 0.1217299679419778D-01
        ws( 43) = 0.1219750299493476D-01
        ws( 44) = 0.1223556932154308D-01
        ws( 45) = 0.1230986713275670D-01
        ws( 46) = 0.1234514763822349D-01
        ws( 47) = 0.1177664822743203D-01
        ws( 48) = 0.1081394570430708D-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 =  51
        err = 0.7364055232281672D-10
        xs(  1) = 0.4664700112719243D-05
        xs(  2) = 0.2460967942231681D-04
        xs(  3) = 0.6062279782255622D-04
        xs(  4) = 0.1129414754192799D-03
        xs(  5) = 0.1819105753508990D-03
        xs(  6) = 0.2680017519884974D-03
        xs(  7) = 0.3718307544457936D-03
        xs(  8) = 0.4941779149725544D-03
        xs(  9) = 0.6360125865108327D-03
        xs( 10) = 0.7985223256192888D-03
        xs( 11) = 0.9831479779991367D-03
        xs( 12) = 0.1191626272175262D-02
        xs( 13) = 0.1426042064719595D-02
        xs( 14) = 0.1688893056275514D-02
        xs( 15) = 0.1983170682202221D-02
        xs( 16) = 0.2312462077002814D-02
        xs( 17) = 0.2681079653513863D-02
        xs( 18) = 0.3094227122591798D-02
        xs( 19) = 0.3558213986925194D-02
        xs( 20) = 0.4080735089896212D-02
        xs( 21) = 0.4671238294515129D-02
        xs( 22) = 0.5341412719784709D-02
        xs( 23) = 0.6105843532540455D-02
        xs( 24) = 0.6982899084306923D-02
        xs( 25) = 0.7995945174074721D-02
        xs( 26) = 0.9175023572567579D-02
        xs( 27) = 0.1055919320583540D-01
        xs( 28) = 0.1219981835788715D-01
        xs( 29) = 0.1416519989913723D-01
        xs( 30) = 0.1654705892914526D-01
        xs( 31) = 0.1946938401272605D-01
        xs( 32) = 0.2309961428110986D-01
        xs( 33) = 0.2765956139462969D-01
        xs( 34) = 0.3342485040256458D-01
        xs( 35) = 0.4068325955160538D-01
        xs( 36) = 0.4961676119707784D-01
        xs( 37) = 0.6015155994388573D-01
        xs( 38) = 0.7194123298038337D-01
        xs( 39) = 0.8453615401790274D-01
        xs( 40) = 0.9755927589869444D-01
        xs( 41) = 0.1107640482730749D+00
        xs( 42) = 0.1240128630289602D+00
        xs( 43) = 0.1372387187120668D+00
        xs( 44) = 0.1504154424624549D+00
        xs( 45) = 0.1635390965619205D+00
        xs( 46) = 0.1766171291066237D+00
        xs( 47) = 0.1896620122658260D+00
        xs( 48) = 0.2026885415020257D+00
        xs( 49) = 0.2156853789810344D+00
        xs( 50) = 0.2286005138383761D+00
        xs( 51) = 0.2408662356375574D+00
        ws(  1) = 0.1197472500998941D-04
        ws(  2) = 0.2794684811222196D-04
        ws(  3) = 0.4411819291711809D-04
        ws(  4) = 0.6057638002171696D-04
        ws(  5) = 0.7744014442818781D-04
        ws(  6) = 0.9484449356611135D-04
        ws(  7) = 0.1129431612602243D-03
        ws(  8) = 0.1319122349637143D-03
        ws(  9) = 0.1519544532402755D-03
        ws( 10) = 0.1733044610818367D-03
        ws( 11) = 0.1962354343069367D-03
        ws( 12) = 0.2210675602343720D-03
        ws( 13) = 0.2481789716115817D-03
        ws( 14) = 0.2780198999794821D-03
        ws( 15) = 0.3111310686288567D-03
        ws( 16) = 0.3481677175858438D-03
        ws( 17) = 0.3899311844027866D-03
        ws( 18) = 0.4374107322277825D-03
        ws( 19) = 0.4918394179201115D-03
        ws( 20) = 0.5547694017088793D-03
        ws( 21) = 0.6281744339052704D-03
        ws( 22) = 0.7145907126423840D-03
        ws( 23) = 0.8173123861259311D-03
        ws( 24) = 0.9406655042823265D-03
        ws( 25) = 0.1090395282773153D-02
        ws( 26) = 0.1274217469189077D-02
        ws( 27) = 0.1502606564622530D-02
        ws( 28) = 0.1789920528751697D-02
        ws( 29) = 0.2155982499762081D-02
        ws( 30) = 0.2628209881458795D-02
        ws( 31) = 0.3244143140174399D-02
        ws( 32) = 0.4053225930404547D-02
        ws( 33) = 0.5113179647350941D-02
        ws( 34) = 0.6467378261435712D-02
        ws( 35) = 0.8082790433443577D-02
        ws( 36) = 0.9772429051323521D-02
        ws( 37) = 0.1123596501886398D-01
        ws( 38) = 0.1226519223657560D-01
        ws( 39) = 0.1286102414349302D-01
        ws( 40) = 0.1314465164068878D-01
        ws( 41) = 0.1324264732997530D-01
        ws( 42) = 0.1324431867074705D-01
        ws( 43) = 0.1320335564827519D-01
        ws( 44) = 0.1314962619633320D-01
        ws( 45) = 0.1309901875531723D-01
        ws( 46) = 0.1305940639063841D-01
        ws( 47) = 0.1303032291663198D-01
        ws( 48) = 0.1303169674796874D-01
        ws( 49) = 0.1301729700183361D-01
        ws( 50) = 0.1299411608221699D-01
        ws( 51) = 0.1073244205787369D-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 =  55
        err = 0.6599586128662687D-10
        xs(  1) = 0.3606526133612309D-05
        xs(  2) = 0.1902037551793530D-04
        xs(  3) = 0.4682445443771000D-04
        xs(  4) = 0.8715361673846719D-04
        xs(  5) = 0.1402009186020190D-03
        xs(  6) = 0.2062291014386563D-03
        xs(  7) = 0.2855793946405237D-03
        xs(  8) = 0.3786815430331044D-03
        xs(  9) = 0.4860653919026354D-03
        xs( 10) = 0.6083742483590008D-03
        xs( 11) = 0.7463803564768932D-03
        xs( 12) = 0.9010029766829009D-03
        xs( 13) = 0.1073329727779440D-02
        xs( 14) = 0.1264642040491344D-02
        xs( 15) = 0.1476445800244915D-02
        xs( 16) = 0.1710508544784071D-02
        xs( 17) = 0.1968904957388865D-02
        xs( 18) = 0.2254072893533099D-02
        xs( 19) = 0.2568882846033440D-02
        xs( 20) = 0.2916724657078234D-02
        xs( 21) = 0.3301616519107081D-02
        xs( 22) = 0.3728343002495567D-02
        xs( 23) = 0.4202631202831716D-02
        xs( 24) = 0.4731377393748086D-02
        xs( 25) = 0.5322941225326908D-02
        xs( 26) = 0.5987531141269821D-02
        xs( 27) = 0.6737714226117250D-02
        xs( 28) = 0.7589097551726237D-02
        xs( 29) = 0.8561248340869241D-02
        xs( 30) = 0.9678950100484890D-02
        xs( 31) = 0.1097393586593870D-01
        xs( 32) = 0.1248730437470444D-01
        xs( 33) = 0.1427291810293542D-01
        xs( 34) = 0.1640220906176108D-01
        xs( 35) = 0.1897096357521323D-01
        xs( 36) = 0.2210872430140686D-01
        xs( 37) = 0.2599102048495875D-01
        xs( 38) = 0.3085212751014213D-01
        xs( 39) = 0.3698705297221176D-01
        xs( 40) = 0.4471147445734362D-01
        xs( 41) = 0.5423899734129049D-01
        xs( 42) = 0.6551318321676543D-01
        xs( 43) = 0.7817039725426703D-01
        xs( 44) = 0.9171445260789388D-01
        xs( 45) = 0.1057179942634521D+00
        xs( 46) = 0.1198975004127832D+00
        xs( 47) = 0.1340938059041965D+00
        xs( 48) = 0.1482295415591651D+00
        xs( 49) = 0.1622747827472856D+00
        xs( 50) = 0.1762252533111077D+00
        xs( 51) = 0.1900885467169642D+00
        xs( 52) = 0.2038728413913752D+00
        xs( 53) = 0.2175598475370830D+00
        xs( 54) = 0.2310717812178327D+00
        xs( 55) = 0.2440243912652226D+00
        ws(  1) = 0.9257535216270002D-05
        ws(  2) = 0.2159025242266637D-04
        ws(  3) = 0.3403982937494765D-04
        ws(  4) = 0.4665052851531711D-04
        ws(  5) = 0.5948772143918949D-04
        ws(  6) = 0.7262534910617687D-04
        ws(  7) = 0.8614666883146111D-04
        ws(  8) = 0.1001457136055096D-03
        ws(  9) = 0.1147289452305245D-03
        ws( 10) = 0.1300171752660229D-03
        ws( 11) = 0.1461478973443362D-03
        ws( 12) = 0.1632781911848572D-03
        ws( 13) = 0.1815883753012257D-03
        ws( 14) = 0.2012866151643361D-03
        ws( 15) = 0.2226147410058266D-03
        ws( 16) = 0.2458556016661057D-03
        ws( 17) = 0.2713423839764969D-03
        ws( 18) = 0.2994704704094124D-03
        ws( 19) = 0.3307126073961780D-03
        ws( 20) = 0.3656384342611493D-03
        ws( 21) = 0.4049398113668710D-03
        ws( 22) = 0.4494639335967716D-03
        ws( 23) = 0.5002569979632463D-03
        ws( 24) = 0.5586223126503998D-03
        ws( 25) = 0.6261983699902997D-03
        ws( 26) = 0.7050647767163619D-03
        ws( 27) = 0.7978874615121724D-03
        ws( 28) = 0.9081197857681840D-03
        ws( 29) = 0.1040283968466757D-02
        ws( 30) = 0.1200368817651411D-02
        ws( 31) = 0.1396396871296721D-02
        ws( 32) = 0.1639238504062331D-02
        ws( 33) = 0.1943782859708661D-02
        ws( 34) = 0.2330607855703045D-02
        ws( 35) = 0.2828284590558016D-02
        ws( 36) = 0.3476257661526034D-02
        ws( 37) = 0.4327275146779705D-02
        ws( 38) = 0.5444641982573353D-02
        ws( 39) = 0.6879892949535008D-02
        ws( 40) = 0.8607889754051390D-02
        ws( 41) = 0.1043870749641438D-01
        ws( 42) = 0.1204548393032974D-01
        ws( 43) = 0.1318246983704088D-01
        ws( 44) = 0.1383334190850574D-01
        ws( 45) = 0.1412700522013891D-01
        ws( 46) = 0.1420625263371629D-01
        ws( 47) = 0.1417403354497480D-01
        ws( 48) = 0.1409277163586257D-01
        ws( 49) = 0.1399719848998362D-01
        ws( 50) = 0.1390571866496119D-01
        ws( 51) = 0.1382980810096803D-01
        ws( 52) = 0.1378146301809639D-01
        ws( 53) = 0.1370345681774107D-01
        ws( 54) = 0.1323204417328699D-01
        ws( 55) = 0.1064519574230637D-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 =  58
        err = 0.9549367857908961D-10
        xs(  1) = 0.2911338303892383D-05
        xs(  2) = 0.1535032069410021D-04
        xs(  3) = 0.3777291774345577D-04
        xs(  4) = 0.7026113974344628D-04
        xs(  5) = 0.1129307468482400D-03
        xs(  6) = 0.1659391150090706D-03
        xs(  7) = 0.2294905023550341D-03
        xs(  8) = 0.3038418287221175D-03
        xs(  9) = 0.3893091607426543D-03
        xs( 10) = 0.4862749607095507D-03
        xs( 11) = 0.5951962067671986D-03
        xs( 12) = 0.7166135625824864D-03
        xs( 13) = 0.8511618467744310D-03
        xs( 14) = 0.9995821258533173D-03
        xs( 15) = 0.1162735834230712D-02
        xs( 16) = 0.1341621417286406D-02
        xs( 17) = 0.1537394107105260D-02
        xs( 18) = 0.1751389584685868D-02
        xs( 19) = 0.1985152469046780D-02
        xs( 20) = 0.2240470818047480D-02
        xs( 21) = 0.2519418147065682D-02
        xs( 22) = 0.2824404899648314D-02
        xs( 23) = 0.3158241873651661D-02
        xs( 24) = 0.3524218874695305D-02
        xs( 25) = 0.3926202906755169D-02
        xs( 26) = 0.4368761632729847D-02
        xs( 27) = 0.4857319795345330D-02
        xs( 28) = 0.5398359019107154D-02
        xs( 29) = 0.5999675248477774D-02
        xs( 30) = 0.6670713535316128D-02
        xs( 31) = 0.7423007715834285D-02
        xs( 32) = 0.8270763913673434D-02
        xs( 33) = 0.9231643511630893D-02
        xs( 34) = 0.1032782611970967D-01
        xs( 35) = 0.1158747034756296D-01
        xs( 36) = 0.1304674671392302D-01
        xs( 37) = 0.1475270257156696D-01
        xs( 38) = 0.1676734727425644D-01
        xs( 39) = 0.1917352916797796D-01
        xs( 40) = 0.2208340333818376D-01
        xs( 41) = 0.2565042920984698D-01
        xs( 42) = 0.3008515368508672D-01
        xs( 43) = 0.3567057377927371D-01
        xs( 44) = 0.4275761544890579D-01
        xs( 45) = 0.5169428149212863D-01
        xs( 46) = 0.6265176282210903D-01
        xs( 47) = 0.7544691262515382D-01
        xs( 48) = 0.8958232584538905D-01
        xs( 49) = 0.1044947193164377D+00
        xs( 50) = 0.1197507088551576D+00
        xs( 51) = 0.1350854449266399D+00
        xs( 52) = 0.1503613871814203D+00
        xs( 53) = 0.1655189527221604D+00
        xs( 54) = 0.1805407112071554D+00
        xs( 55) = 0.1954280717648884D+00
        xs( 56) = 0.2101701534720117D+00
        xs( 57) = 0.2247062773554268D+00
        xs( 58) = 0.2385801862561350D+00
        ws(  1) = 0.7472645470124425D-05
        ws(  2) = 0.1741911293808298D-04
        ws(  3) = 0.2743932051222376D-04
        ws(  4) = 0.3755632499581496D-04
        ws(  5) = 0.4780903285439570D-04
        ws(  6) = 0.5824165033231191D-04
        ws(  7) = 0.6890383635413132D-04
        ws(  8) = 0.7985137358842092D-04
        ws(  9) = 0.9114689925737563D-04
        ws( 10) = 0.1028607114670511D-03
        ws( 11) = 0.1150717175384404D-03
        ws( 12) = 0.1278685966044757D-03
        ws( 13) = 0.1413512487001667D-03
        ws( 14) = 0.1556326059125563D-03
        ws( 15) = 0.1708408905907132D-03
        ws( 16) = 0.1871224220477455D-03
        ws( 17) = 0.2046450990625247D-03
        ws( 18) = 0.2236027211295176D-03
        ws( 19) = 0.2442203614792033D-03
        ws( 20) = 0.2667610704575199D-03
        ws( 21) = 0.2915342787592055D-03
        ws( 22) = 0.3189063919296476D-03
        ws( 23) = 0.3493142339528814D-03
        ws( 24) = 0.3832822291218507D-03
        ws( 25) = 0.4214445295271161D-03
        ws( 26) = 0.4645737494640472D-03
        ws( 27) = 0.5136186019274557D-03
        ws( 28) = 0.5697536540330240D-03
        ws( 29) = 0.6344457427935151D-03
        ws( 30) = 0.7095435411284193D-03
        ws( 31) = 0.7973996447525800D-03
        ws( 32) = 0.9010388715155305D-03
        ws( 33) = 0.1024392983936619D-02
        ws( 34) = 0.1172632053775181D-02
        ws( 35) = 0.1352637974116182D-02
        ws( 36) = 0.1573689236962885D-02
        ws( 37) = 0.1848461328595040D-02
        ws( 38) = 0.2194497435921510D-02
        ws( 39) = 0.2636360638654910D-02
        ws( 40) = 0.3208695318476585D-02
        ws( 41) = 0.3960153055073021D-02
        ws( 42) = 0.4956420424658477D-02
        ws( 43) = 0.6273936693160559D-02
        ws( 44) = 0.7961240967194458D-02
        ws( 45) = 0.9944332028561344D-02
        ws( 46) = 0.1193945405155194D-01
        ws( 47) = 0.1356289305790130D-01
        ws( 48) = 0.1461058770357442D-01
        ws( 49) = 0.1514160916743305D-01
        ws( 50) = 0.1532708769263079D-01
        ws( 51) = 0.1532032944715205D-01
        ws( 52) = 0.1522236463040770D-01
        ws( 53) = 0.1509126960392668D-01
        ws( 54) = 0.1495728146391211D-01
        ws( 55) = 0.1483191214043647D-01
        ws( 56) = 0.1467263560534778D-01
        ws( 57) = 0.1425584240778530D-01
        ws( 58) = 0.1148743778067419D-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 =  62
        err = 0.9101781944124443D-10
        xs(  1) = 0.2385157644589219D-05
        xs(  2) = 0.1257391649380194D-04
        xs(  3) = 0.3093173931128872D-04
        xs(  4) = 0.5751086622022757D-04
        xs(  5) = 0.9238376288196351D-04
        xs(  6) = 0.1356487499849378D-03
        xs(  7) = 0.1874332891872489D-03
        xs(  8) = 0.2478974780195230D-03
        xs(  9) = 0.3172378943853443D-03
        xs( 10) = 0.3956917996285445D-03
        xs( 11) = 0.4835417275541899D-03
        xs( 12) = 0.5811205224029486D-03
        xs( 13) = 0.6888169247607710D-03
        xs( 14) = 0.8070818381206402D-03
        xs( 15) = 0.9364354417766878D-03
        xs( 16) = 0.1077475350677959D-02
        xs( 17) = 0.1230886061834603D-02
        xs( 18) = 0.1397449974064979D-02
        xs( 19) = 0.1578060326464384D-02
        xs( 20) = 0.1773736474858281D-02
        xs( 21) = 0.1985642020360473D-02
        xs( 22) = 0.2215106425795090D-02
        xs( 23) = 0.2463650913562348D-02
        xs( 24) = 0.2733019642705692D-02
        xs( 25) = 0.3025217430764312D-02
        xs( 26) = 0.3342555636081645D-02
        xs( 27) = 0.3687708281430693D-02
        xs( 28) = 0.4063781117395419D-02
        xs( 29) = 0.4474397155749462D-02
        xs( 30) = 0.4923803325475626D-02
        xs( 31) = 0.5417004445563238D-02
        xs( 32) = 0.5959932824387353D-02
        xs( 33) = 0.6559664763597252D-02
        xs( 34) = 0.7224699398655883D-02
        xs( 35) = 0.7965321265651911D-02
        xs( 36) = 0.8794076552114094D-02
        xs( 37) = 0.9726405511382151D-02
        xs( 38) = 0.1078149211235941D-01
        xs( 39) = 0.1198341983051538D-01
        xs( 40) = 0.1336276497485749D-01
        xs( 41) = 0.1495882420662105D-01
        xs( 42) = 0.1682277407886286D-01
        xs( 43) = 0.1902221590355856D-01
        xs( 44) = 0.2164778745128944D-01
        xs( 45) = 0.2482281658948631D-01
        xs( 46) = 0.2871715985520909D-01
        xs( 47) = 0.3356534775044857D-01
        xs( 48) = 0.3968318429669352D-01
        xs( 49) = 0.4745815476190373D-01
        xs( 50) = 0.5725946043536980D-01
        xs( 51) = 0.6923623617226465D-01
        xs( 52) = 0.8313714586166124D-01
        xs( 53) = 0.9838987512613984D-01
        xs( 54) = 0.1143851347046396D+00
        xs( 55) = 0.1306728252342008D+00
        xs( 56) = 0.1469867556443247D+00
        xs( 57) = 0.1631934784108749D+00
        xs( 58) = 0.1792381126206624D+00
        xs( 59) = 0.1951050076344668D+00
        xs( 60) = 0.2107879203521042D+00
        xs( 61) = 0.2261730271362320D+00
        xs( 62) = 0.2407278087126012D+00
        ws(  1) = 0.6121842372115221D-05
        ws(  2) = 0.1426563034704422D-04
        ws(  3) = 0.2245838027232666D-04
        ws(  4) = 0.3071188952572342D-04
        ws(  5) = 0.3905023753617921D-04
        ws(  6) = 0.4750092213220795D-04
        ws(  7) = 0.5609477511287163D-04
        ws(  8) = 0.6486629554608818D-04
        ws(  9) = 0.7385400440810134D-04
        ws( 10) = 0.8310081131724517D-04
        ws( 11) = 0.9265442579684341D-04
        ws( 12) = 0.1025678499488997D-03
        ws( 13) = 0.1128999872750358D-03
        ws( 14) = 0.1237164005630011D-03
        ws( 15) = 0.1350902524801440D-03
        ws( 16) = 0.1471034653121035D-03
        ws( 17) = 0.1598481421544973D-03
        ws( 18) = 0.1734283020970143D-03
        ws( 19) = 0.1879619946936950D-03
        ws( 20) = 0.2035838772109781D-03
        ws( 21) = 0.2204483616479996D-03
        ws( 22) = 0.2387334696526695D-03
        ws( 23) = 0.2586455741558840D-03
        ws( 24) = 0.2804252605800520D-03
        ws( 25) = 0.3043546128696643D-03
        ws( 26) = 0.3307663254674336D-03
        ws( 27) = 0.3600551756667840D-03
        ws( 28) = 0.3926925685062874D-03
        ws( 29) = 0.4292451162381951D-03
        ws( 30) = 0.4703985595037281D-03
        ws( 31) = 0.5169888263187839D-03
        ws( 32) = 0.5700427175867889D-03
        ws( 33) = 0.6308317104014605D-03
        ws( 34) = 0.7009438103662690D-03
        ws( 35) = 0.7823805565673337D-03
        ws( 36) = 0.8776894371026277D-03
        ws( 37) = 0.9901468505473879D-03
        ws( 38) = 0.1124014163156820D-02
        ws( 39) = 0.1284900886663725D-02
        ws( 40) = 0.1480287236839521D-02
        ws( 41) = 0.1720286492478711D-02
        ws( 42) = 0.2018772271444077D-02
        ws( 43) = 0.2395059790777022D-02
        ws( 44) = 0.2876409174191102D-02
        ws( 45) = 0.3501647163193981D-02
        ws( 46) = 0.4325801133514299D-02
        ws( 47) = 0.5423227202543651D-02
        ws( 48) = 0.6878373749046352D-02
        ws( 49) = 0.8736758238694261D-02
        ws( 50) = 0.1089455109421166D-01
        ws( 51) = 0.1301563264691674D-01
        ws( 52) = 0.1468506401137455D-01
        ws( 53) = 0.1571546456865072D-01
        ws( 54) = 0.1619995242710698D-01
        ws( 55) = 0.1633208382333401D-01
        ws( 56) = 0.1627447726309583D-01
        ws( 57) = 0.1613054199350232D-01
        ws( 58) = 0.1595752768674543D-01
        ws( 59) = 0.1578274786309736D-01
        ws( 60) = 0.1562757667635376D-01
        ws( 61) = 0.1531986520116639D-01
        ws( 62) = 0.1237920593880841D-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 =  67
        err = 0.3887476277050375D-10
        xs(  1) = 0.1973167114508306D-05
        xs(  2) = 0.1040085521914742D-04
        xs(  3) = 0.2558084974829629D-04
        xs(  4) = 0.4754792059671767D-04
        xs(  5) = 0.7634927965127608D-04
        xs(  6) = 0.1120486961459351D-03
        xs(  7) = 0.1547285557228336D-03
        xs(  8) = 0.2044919917220424D-03
        xs(  9) = 0.2614652094126191D-03
        xs( 10) = 0.3258000011711789D-03
        xs( 11) = 0.3976764522986752D-03
        xs( 12) = 0.4773058545762989D-03
        xs( 13) = 0.5649338634315394D-03
        xs( 14) = 0.6608439520698447D-03
        xs( 15) = 0.7653612319037776D-03
        xs( 16) = 0.8788567240310457D-03
        xs( 17) = 0.1001752182160691D-02
        xs( 18) = 0.1134525584623980D-02
        xs( 19) = 0.1277717433320271D-02
        xs( 20) = 0.1431938021733515D-02
        xs( 21) = 0.1597875864275522D-02
        xs( 22) = 0.1776307516816551D-02
        xs( 23) = 0.1968109065494412D-02
        xs( 24) = 0.2174269620552319D-02
        xs( 25) = 0.2395907227308745D-02
        xs( 26) = 0.2634287702350098D-02
        xs( 27) = 0.2890847025243077D-02
        xs( 28) = 0.3167218073050741D-02
        xs( 29) = 0.3465262686839533D-02
        xs( 30) = 0.3787110322188309D-02
        xs( 31) = 0.4135204877067262D-02
        xs( 32) = 0.4512361742092048D-02
        xs( 33) = 0.4921837712649813D-02
        xs( 34) = 0.5367417199876305D-02
        xs( 35) = 0.5853519247782758D-02
        xs( 36) = 0.6385331320136319D-02
        xs( 37) = 0.6968977817172662D-02
        xs( 38) = 0.7611734042973679D-02
        xs( 39) = 0.8322300213997056D-02
        xs( 40) = 0.9111155572948724D-02
        xs( 41) = 0.9991020509022694D-02
        xs( 42) = 0.1097746595891862D-01
        xs( 43) = 0.1208972606517383D-01
        xs( 44) = 0.1335179496277785D-01
        xs( 45) = 0.1479392620912198D-01
        xs( 46) = 0.1645471066894027D-01
        xs( 47) = 0.1838399682857042D-01
        xs( 48) = 0.2064705177941661D-01
        xs( 49) = 0.2333055754374915D-01
        xs( 50) = 0.2655129266140375D-01
        xs( 51) = 0.3046852336179752D-01
        xs( 52) = 0.3530042656529796D-01
        xs( 53) = 0.4134051901289182D-01
        xs( 54) = 0.4895633516008393D-01
        xs( 55) = 0.5852833111819229D-01
        xs( 56) = 0.7028845692223736D-01
        xs( 57) = 0.8412559329313762D-01
        xs( 58) = 0.9956601231771153D-01
        xs( 59) = 0.1159944470700384D+00
        xs( 60) = 0.1328903119669674D+00
        xs( 61) = 0.1499117027777592D+00
        xs( 62) = 0.1668692560470683D+00
        xs( 63) = 0.1836730094391697D+00
        xs( 64) = 0.2002864763625733D+00
        xs( 65) = 0.2166813042847061D+00
        xs( 66) = 0.2327999720540311D+00
        xs( 67) = 0.2479366909638463D+00
        ws(  1) = 0.5064279365243407D-05
        ws(  2) = 0.1179857692651798D-04
        ws(  3) = 0.1856693115410540D-04
        ws(  4) = 0.2537503729696708D-04
        ws(  5) = 0.3223827616967424D-04
        ws(  6) = 0.3917425233024220D-04
        ws(  7) = 0.4620261694785587D-04
        ws(  8) = 0.5334524733796592D-04
        ws(  9) = 0.6062644171720750D-04
        ws( 10) = 0.6807310754351904D-04
        ws( 11) = 0.7571495751659077D-04
        ws( 12) = 0.8358473220581207D-04
        ws( 13) = 0.9171846756712855D-04
        ws( 14) = 0.1001558239918692D-03
        ws( 15) = 0.1089404924223447D-03
        ws( 16) = 0.1181206929101010D-03
        ws( 17) = 0.1277497818046795D-03
        ws( 18) = 0.1378869860924491D-03
        ws( 19) = 0.1485982869354497D-03
        ws( 20) = 0.1599574792726820D-03
        ws( 21) = 0.1720474411056851D-03
        ws( 22) = 0.1849616544068780D-03
        ws( 23) = 0.1988060306723408D-03
        ws( 24) = 0.2137011078785160D-03
        ws( 25) = 0.2297847037276692D-03
        ws( 26) = 0.2472151330375224D-03
        ws( 27) = 0.2661751274377264D-03
        ws( 28) = 0.2868766345922079D-03
        ws( 29) = 0.3095667266002704D-03
        ws( 30) = 0.3345349157866649D-03
        ws( 31) = 0.3621222686202080D-03
        ws( 32) = 0.3927328343864148D-03
        ws( 33) = 0.4268480722931344D-03
        ws( 34) = 0.4650451983694022D-03
        ws( 35) = 0.5080206912233513D-03
        ws( 36) = 0.5566206548583212D-03
        ws( 37) = 0.6118803699403813D-03
        ws( 38) = 0.6750762809288402D-03
        ws( 39) = 0.7477949910063054D-03
        ws( 40) = 0.8320257652726112D-03
        ws( 41) = 0.9302859062640232D-03
        ws( 42) = 0.1045792678949076D-02
        ws( 43) = 0.1182701972235636D-02
        ws( 44) = 0.1346444061363861D-02
        ws( 45) = 0.1544202493510437D-02
        ws( 46) = 0.1785606543858027D-02
        ws( 47) = 0.2083745708344859D-02
        ws( 48) = 0.2456669156603011D-02
        ws( 49) = 0.2929600877774233D-02
        ws( 50) = 0.3538134075065672D-02
        ws( 51) = 0.4332380489921018D-02
        ws( 52) = 0.5380263828412880D-02
        ws( 53) = 0.6762049148870827D-02
        ws( 54) = 0.8535790176349705D-02
        ws( 55) = 0.1065075197253448D-01
        ws( 56) = 0.1285159175596256D-01
        ws( 57) = 0.1473925219372178D-01
        ws( 58) = 0.1603465698004115D-01
        ws( 59) = 0.1673426120937859D-01
        ws( 60) = 0.1700114552270068D-01
        ws( 61) = 0.1701107032549492D-01
        ws( 62) = 0.1688993828190461D-01
        ws( 63) = 0.1671289218225129D-01
        ws( 64) = 0.1652043538124960D-01
        ws( 65) = 0.1629599880883633D-01
        ws( 66) = 0.1588425675642840D-01
        ws( 67) = 0.1312451960975973D-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 =  71
        err = 0.4132145807205942D-10
        xs(  1) = 0.1674558083719375D-05
        xs(  2) = 0.8826041985368492D-05
        xs(  3) = 0.2170403812365736D-04
        xs(  4) = 0.4033230164703417D-04
        xs(  5) = 0.6474235803823788D-04
        xs(  6) = 0.9497675453672183D-04
        xs(  7) = 0.1310905060420098D-03
        xs(  8) = 0.1731525468527884D-03
        xs(  9) = 0.2212472920595668D-03
        xs( 10) = 0.2754763038058466D-03
        xs( 11) = 0.3359600544156528D-03
        xs( 12) = 0.4028397885912007D-03
        xs( 13) = 0.4762794984955370D-03
        xs( 14) = 0.5564680361427139D-03
        xs( 15) = 0.6436213967283477D-03
        xs( 16) = 0.7379852147216181D-03
        xs( 17) = 0.8398375221611588D-03
        xs( 18) = 0.9494918261964014D-03
        xs( 19) = 0.1067300571276899D-02
        xs( 20) = 0.1193659060965135D-02
        xs( 21) = 0.1329009925833349D-02
        xs( 22) = 0.1473848237988046D-02
        xs( 23) = 0.1628727389991735D-02
        xs( 24) = 0.1794265877493004D-02
        xs( 25) = 0.1971155151487330D-02
        xs( 26) = 0.2160168739148529D-02
        xs( 27) = 0.2362172873705290D-02
        xs( 28) = 0.2578138925274818D-02
        xs( 29) = 0.2809157989538038D-02
        xs( 30) = 0.3056458072754308D-02
        xs( 31) = 0.3321424415291054D-02
        xs( 32) = 0.3605623627240682D-02
        xs( 33) = 0.3910832478778346D-02
        xs( 34) = 0.4239072404697386D-02
        xs( 35) = 0.4592651064741016D-02
        xs( 36) = 0.4974212669241012D-02
        xs( 37) = 0.5386799263089438D-02
        xs( 38) = 0.5833925803216882D-02
        xs( 39) = 0.6319672722381789D-02
        xs( 40) = 0.6848800827232804D-02
        xs( 41) = 0.7426894957100030D-02
        xs( 42) = 0.8060544989509659D-02
        xs( 43) = 0.8757575788146321D-02
        xs( 44) = 0.9527341920743539D-02
        xs( 45) = 0.1038110898271849D-01
        xs( 46) = 0.1133255203802980D-01
        xs( 47) = 0.1239841437437132D-01
        xs( 48) = 0.1359938861889162D-01
        xs( 49) = 0.1496131070552921D-01
        xs( 50) = 0.1651680080983620D-01
        xs( 51) = 0.1830755333409300D-01
        xs( 52) = 0.2038758480549601D-01
        xs( 53) = 0.2282791455477150D-01
        xs( 54) = 0.2572340217313093D-01
        xs( 55) = 0.2920278943101877D-01
        xs( 56) = 0.3344315770405831D-01
        xs( 57) = 0.3868883696858204D-01
        xs( 58) = 0.4526871335704936D-01
        xs( 59) = 0.5358851158288536D-01
        xs( 60) = 0.6404864551712065D-01
        xs( 61) = 0.7685283826864503D-01
        xs( 62) = 0.9180951487217641D-01
        xs( 63) = 0.1083584022187148D+00
        xs( 64) = 0.1258379138122193D+00
        xs( 65) = 0.1437204231194350D+00
        xs( 66) = 0.1616738589364570D+00
        xs( 67) = 0.1795207640856304D+00
        xs( 68) = 0.1971776971478446D+00
        xs( 69) = 0.2146051470009137D+00
        xs( 70) = 0.2317385987683061D+00
        xs( 71) = 0.2478935951316668D+00
        ws(  1) = 0.4297786062253268D-05
        ws(  2) = 0.1001100859823741D-04
        ws(  3) = 0.1574871158094940D-04
        ws(  4) = 0.2151303820030965D-04
        ws(  5) = 0.2731414294525454D-04
        ws(  6) = 0.3316379508724495D-04
        ws(  7) = 0.3907517092244202D-04
        ws(  8) = 0.4506295208716111D-04
        ws(  9) = 0.5114343596804882D-04
        ws( 10) = 0.5733463524212236D-04
        ws( 11) = 0.6365637390270004D-04
        ws( 12) = 0.7013039134945021D-04
        ws( 13) = 0.7678046583822784D-04
        ws( 14) = 0.8363256717114442D-04
        ws( 15) = 0.9071504724280303D-04
        ws( 16) = 0.9805887627956742D-04
        ws( 17) = 0.1056979322649142D-03
        ws( 18) = 0.1136693513887239D-03
        ws( 19) = 0.1220139484725002D-03
        ws( 20) = 0.1307767177023002D-03
        ws( 21) = 0.1400074263990381D-03
        ws( 22) = 0.1497613173531321D-03
        ws( 23) = 0.1600999388611062D-03
        ws( 24) = 0.1710921265289919D-03
        ws( 25) = 0.1828151661801453D-03
        ws( 26) = 0.1953561750106835D-03
        ws( 27) = 0.2088137470126185D-03
        ws( 28) = 0.2232999202715179D-03
        ws( 29) = 0.2389425388272889D-03
        ws( 30) = 0.2558881007291833D-03
        ws( 31) = 0.2743052086827792D-03
        ws( 32) = 0.2943887716662309D-03
        ws( 33) = 0.3163651485583397D-03
        ws( 34) = 0.3404984796383024D-03
        ws( 35) = 0.3670985274316436D-03
        ws( 36) = 0.3965304464405283D-03
        ws( 37) = 0.4292270360517963D-03
        ws( 38) = 0.4657042164390209D-03
        ws( 39) = 0.5065807154740938D-03
        ws( 40) = 0.5526033111374396D-03
        ws( 41) = 0.6046794660818675D-03
        ws( 42) = 0.6639198816593552D-03
        ws( 43) = 0.7316945259649702D-03
        ws( 44) = 0.8097071315941628D-03
        ws( 45) = 0.9000953345209014D-03
        ws( 46) = 0.1005566848443605D-02
        ws( 47) = 0.1129587006026114D-02
        ws( 48) = 0.1276640589308388D-02
        ws( 49) = 0.1452602825935187D-02
        ws( 50) = 0.1665273414604438D-02
        ws( 51) = 0.1925158061883725D-02
        ws( 52) = 0.2246629982592270D-02
        ws( 53) = 0.2649675327627215D-02
        ws( 54) = 0.3162517645795482D-02
        ws( 55) = 0.3825445461596235D-02
        ws( 56) = 0.4695675253262836D-02
        ws( 57) = 0.5850499061937060D-02
        ws( 58) = 0.7378100017500056D-02
        ws( 59) = 0.9331623511281421D-02
        ws( 60) = 0.1162666822627567D-01
        ws( 61) = 0.1394946165994532D-01
        ws( 62) = 0.1586510567606678D-01
        ws( 63) = 0.1711815569885879D-01
        ws( 64) = 0.1775219085197742D-01
        ws( 65) = 0.1795839262457905D-01
        ws( 66) = 0.1791998370527025D-01
        ws( 67) = 0.1776119597260494D-01
        ws( 68) = 0.1754609042646188D-01
        ws( 69) = 0.1727883297371207D-01
        ws( 70) = 0.1689073417074183D-01
        ws( 71) = 0.1444318116131265D-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 =  75
        err = 0.5564583100178204D-10
        xs(  1) = 0.1443519723096952D-05
        xs(  2) = 0.7607801444005329D-05
        xs(  3) = 0.1870598518421584D-04
        xs(  4) = 0.3475485338459041D-04
        xs(  5) = 0.5577608953964062D-04
        xs(  6) = 0.8179892354032519D-04
        xs(  7) = 0.1128611858336528D-03
        xs(  8) = 0.1490103376201449D-03
        xs(  9) = 0.1903045696782994D-03
        xs( 10) = 0.2368139656270055D-03
        xs( 11) = 0.2886217195758883D-03
        xs( 12) = 0.3458254041112037D-03
        xs( 13) = 0.4085382921790035D-03
        xs( 14) = 0.4768907435319519D-03
        xs( 15) = 0.5510316725067265D-03
        xs( 16) = 0.6311301190217236D-03
        xs( 17) = 0.7173769491457051D-03
        xs( 18) = 0.8099867156149960D-03
        xs( 19) = 0.9091997126602721D-03
        xs( 20) = 0.1015284263821080D-02
        xs( 21) = 0.1128539286297617D-02
        xs( 22) = 0.1249297181207860D-02
        xs( 23) = 0.1377927106155005D-02
        xs( 24) = 0.1514838695076139D-02
        xs( 25) = 0.1660486300910541D-02
        xs( 26) = 0.1815373849456240D-02
        xs( 27) = 0.1980060408748306D-02
        xs( 28) = 0.2155166597639397D-02
        xs( 29) = 0.2341381981260635D-02
        xs( 30) = 0.2539473630735959D-02
        xs( 31) = 0.2750296060776658D-02
        xs( 32) = 0.2974802804663590D-02
        xs( 33) = 0.3214059942332945D-02
        xs( 34) = 0.3469261968596348D-02
        xs( 35) = 0.3741750477885341D-02
        xs( 36) = 0.4033036254896106D-02
        xs( 37) = 0.4344825505127893D-02
        xs( 38) = 0.4679051143791333D-02
        xs( 39) = 0.5037910299627144D-02
        xs( 40) = 0.5423909501099743D-02
        xs( 41) = 0.5839919415466153D-02
        xs( 42) = 0.6289241546272195D-02
        xs( 43) = 0.6775690005287704D-02
        xs( 44) = 0.7303692426040190D-02
        xs( 45) = 0.7878415374188435D-02
        xs( 46) = 0.8505921374840375D-02
        xs( 47) = 0.9193367106110684D-02
        xs( 48) = 0.9949255719204643D-02
        xs( 49) = 0.1078376106424957D-01
        xs( 50) = 0.1170914850982827D-01
        xs( 51) = 0.1274032713161033D-01
        xs( 52) = 0.1389558295965308D-01
        xs( 53) = 0.1519756544172997D-01
        xs( 54) = 0.1667463374540633D-01
        xs( 55) = 0.1836272334552988D-01
        xs( 56) = 0.2030797902454634D-01
        xs( 57) = 0.2257053749842111D-01
        xs( 58) = 0.2523006098929515D-01
        xs( 59) = 0.2839395867442778D-01
        xs( 60) = 0.3220966710998794D-01
        xs( 61) = 0.3688241786463948D-01
        xs( 62) = 0.4269755292403181D-01
        xs( 63) = 0.5003671849920646D-01
        xs( 64) = 0.5935367649688297D-01
        xs( 65) = 0.7105038810832830D-01
        xs( 66) = 0.8524228903380729D-01
        xs( 67) = 0.1015865436810454D+00
        xs( 68) = 0.1194081464827741D+00
        xs( 69) = 0.1380166357184473D+00
        xs( 70) = 0.1569074798835246D+00
        xs( 71) = 0.1757811282737344D+00
        xs( 72) = 0.1944822899448191D+00
        xs( 73) = 0.2129195455424552D+00
        xs( 74) = 0.2309873674829842D+00
        xs( 75) = 0.2478844387002375D+00
        ws(  1) = 0.3704763150932486D-05
        ws(  2) = 0.8628488780611032D-05
        ws(  3) = 0.1357047833737470D-04
        ws(  4) = 0.1853084745272616D-04
        ws(  5) = 0.2351648003357101D-04
        ws(  6) = 0.2853547595241791D-04
        ws(  7) = 0.3359694049433872D-04
        ws(  8) = 0.3871104212762865D-04
        ws(  9) = 0.4388908228871931D-04
        ws( 10) = 0.4914355416842128D-04
        ws( 11) = 0.5448819382038664D-04
        ws( 12) = 0.5993803100817267D-04
        ws( 13) = 0.6550944734333304D-04
        ws( 14) = 0.7122024829830192D-04
        ws( 15) = 0.7708975469929026D-04
        ws( 16) = 0.8313891841533200D-04
        ws( 17) = 0.8939046646751065D-04
        ws( 18) = 0.9586907748221774D-04
        ws( 19) = 0.1026015945764072D-03
        ws( 20) = 0.1096172792414565D-03
        ws( 21) = 0.1169481115087862D-03
        ws( 22) = 0.1246291427613169D-03
        ws( 23) = 0.1326989089538591D-03
        ws( 24) = 0.1411999137280280D-03
        ws( 25) = 0.1501791930432892D-03
        ws( 26) = 0.1596889755936675D-03
        ws( 27) = 0.1697874566291525D-03
        ws( 28) = 0.1805397065170304D-03
        ws( 29) = 0.1920187409022184D-03
        ws( 30) = 0.2043067849962448D-03
        ws( 31) = 0.2174967727461395D-03
        ws( 32) = 0.2316941316729083D-03
        ws( 33) = 0.2470189161140655D-03
        ws( 34) = 0.2636083690406829D-03
        ws( 35) = 0.2816200119806628D-03
        ws( 36) = 0.3012353908654139D-03
        ws( 37) = 0.3226646405346796D-03
        ws( 38) = 0.3461520762105291D-03
        ws( 39) = 0.3719830835541176D-03
        ws( 40) = 0.4004926596306048D-03
        ws( 41) = 0.4320760663889962D-03
        ws( 42) = 0.4672022111812515D-03
        ws( 43) = 0.5064305723074607D-03
        ws( 44) = 0.5504327686909347D-03
        ws( 45) = 0.6000202755628317D-03
        ws( 46) = 0.6561803416086184D-03
        ws( 47) = 0.7201229666030987D-03
        ws( 48) = 0.7933429685660926D-03
        ws( 49) = 0.8777028619208422D-03
        ws( 50) = 0.9755448215812826D-03
        ws( 51) = 0.1089843899229862D-02
        ws( 52) = 0.1224420596317312D-02
        ws( 53) = 0.1384240352173509D-02
        ws( 54) = 0.1575842499059531D-02
        ws( 55) = 0.1807965838138952D-02
        ws( 56) = 0.2092478253566276D-02
        ws( 57) = 0.2445782008630794D-02
        ws( 58) = 0.2890965980399189D-02
        ws( 59) = 0.3461106411342971D-02
        ws( 60) = 0.4204124506655498D-02
        ws( 61) = 0.5188588450830256D-02
        ws( 62) = 0.6505527697170024D-02
        ws( 63) = 0.8250387595860012D-02
        ws( 64) = 0.1045486160866362D-01
        ws( 65) = 0.1296150516944049D-01
        ws( 66) = 0.1536270899373971D-01
        ws( 67) = 0.1720700830267442D-01
        ws( 68) = 0.1831770818467634D-01
        ws( 69) = 0.1881520352400962D-01
        ws( 70) = 0.1891781202402809D-01
        ws( 71) = 0.1880499847697232D-01
        ws( 72) = 0.1858929248948366D-01
        ws( 73) = 0.1828519547361862D-01
        ws( 74) = 0.1773689535026295D-01
        ws( 75) = 0.1406341729660176D-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 =  79
        err = 0.5325944148846752D-10
        xs(  1) = 0.1257591903440346D-05
        xs(  2) = 0.6627551956020454D-05
        xs(  3) = 0.1629419215763890D-04
        xs(  4) = 0.3026961037315110D-04
        xs(  5) = 0.4856895542860513D-04
        xs(  6) = 0.7121263185581638D-04
        xs(  7) = 0.9822709578791806D-04
        xs(  8) = 0.1296456113414406D-03
        xs(  9) = 0.1655090508368220D-03
        xs( 10) = 0.2058667363175399D-03
        xs( 11) = 0.2507773129086485D-03
        xs( 12) = 0.3003096480903497D-03
        xs( 13) = 0.3545437561097923D-03
        xs( 14) = 0.4135717516981690D-03
        xs( 15) = 0.4774988414786647D-03
        xs( 16) = 0.5464443649469578D-03
        xs( 17) = 0.6205428997867198D-03
        xs( 18) = 0.6999454487230452D-03
        xs( 19) = 0.7848207272413857D-03
        xs( 20) = 0.8753565736682109D-03
        xs( 21) = 0.9717615053815936D-03
        xs( 22) = 0.1074266447465947D-02
        xs( 23) = 0.1183126663200925D-02
        xs( 24) = 0.1298623919432561D-02
        xs( 25) = 0.1421068924311402D-02
        xs( 26) = 0.1550804080350138D-02
        xs( 27) = 0.1688206602231577D-02
        xs( 28) = 0.1833692056870400D-02
        xs( 29) = 0.1987718392895569D-02
        xs( 30) = 0.2150790538476036D-02
        xs( 31) = 0.2323465660790076D-02
        xs( 32) = 0.2506359197656687D-02
        xs( 33) = 0.2700151793558313D-02
        xs( 34) = 0.2905597297960281D-02
        xs( 35) = 0.3123532016201520D-02
        xs( 36) = 0.3354885442822635D-02
        xs( 37) = 0.3600692756337879D-02
        xs( 38) = 0.3862109415946107D-02
        xs( 39) = 0.4140428277276914D-02
        xs( 40) = 0.4437099741299512D-02
        xs( 41) = 0.4753755572962065D-02
        xs( 42) = 0.5092237182257114D-02
        xs( 43) = 0.5454629361336165D-02
        xs( 44) = 0.5843300729879122D-02
        xs( 45) = 0.6260952476247220D-02
        xs( 46) = 0.6710677425223090D-02
        xs( 47) = 0.7196032043289352D-02
        xs( 48) = 0.7721124769345862D-02
        xs( 49) = 0.8290725103263464D-02
        xs( 50) = 0.8910399293370973D-02
        xs( 51) = 0.9586680415950947D-02
        xs( 52) = 0.1032728332652866D-01
        xs( 53) = 0.1114137874999331D-01
        xs( 54) = 0.1203994617045072D-01
        xs( 55) = 0.1303623294480595D-01
        xs( 56) = 0.1414635851046199D-01
        xs( 57) = 0.1539011962043468D-01
        xs( 58) = 0.1679207854527767D-01
        xs( 59) = 0.1838305644845844D-01
        xs( 60) = 0.2020221776466013D-01
        xs( 61) = 0.2230003372805469D-01
        xs( 62) = 0.2474257756321631D-01
        xs( 63) = 0.2761786550249995D-01
        xs( 64) = 0.3104536137149786D-01
        xs( 65) = 0.3519024013199721D-01
        xs( 66) = 0.4028377432623598D-01
        xs( 67) = 0.4664757171038961D-01
        xs( 68) = 0.5470632213614241D-01
        xs( 69) = 0.6494615416693073D-01
        xs( 70) = 0.7775746409761876D-01
        xs( 71) = 0.9317923950699634D-01
        xs( 72) = 0.1107621863477690D+00
        xs( 73) = 0.1297597032827584D+00
        xs( 74) = 0.1494640197746272D+00
        xs( 75) = 0.1693834382339524D+00
        xs( 76) = 0.1892369809687887D+00
        xs( 77) = 0.2088759991040380D+00
        xs( 78) = 0.2281729565839121D+00
        xs( 79) = 0.2464831560647368D+00
        ws(  1) = 0.3227543285302882D-05
        ws(  2) = 0.7516232658781807D-05
        ws(  3) = 0.1181889326942025D-04
        ws(  4) = 0.1613444827594745D-04
        ws(  5) = 0.2046763029163951D-04
        ws(  6) = 0.2482411938555995D-04
        ws(  7) = 0.2921033914098488D-04
        ws(  8) = 0.3363348996939419D-04
        ws(  9) = 0.3810159479167422D-04
        ws( 10) = 0.4262353536868807D-04
        ws( 11) = 0.4720908033008638D-04
        ws( 12) = 0.5186890986384627D-04
        ws( 13) = 0.5661464213600419D-04
        ws( 14) = 0.6145886616486622D-04
        ws( 15) = 0.6641518493084326D-04
        ws( 16) = 0.7149827188399527D-04
        ws( 17) = 0.7672394350578413D-04
        ws( 18) = 0.8210925016948445D-04
        ws( 19) = 0.8767258738079790D-04
        ws( 20) = 0.9343382962796017D-04
        ws( 21) = 0.9941448921572715D-04
        ws( 22) = 0.1056379028320466D-03
        ws( 23) = 0.1121294492521697D-03
        ws( 24) = 0.1189168021355450D-03
        ws( 25) = 0.1260302228807259D-03
        ws( 26) = 0.1335028994687909D-03
        ws( 27) = 0.1413713384748465D-03
        ws( 28) = 0.1496758191659906D-03
        ws( 29) = 0.1584609201825768D-03
        ws( 30) = 0.1677761319618480D-03
        ws( 31) = 0.1776765704076616D-03
        ws( 32) = 0.1882238112170119D-03
        ws( 33) = 0.1994868685243764D-03
        ws( 34) = 0.2115433462727906D-03
        ws( 35) = 0.2244807985264229D-03
        ws( 36) = 0.2383983421736346D-03
        ws( 37) = 0.2534085773411555D-03
        ws( 38) = 0.2696398835002677D-03
        ws( 39) = 0.2872391775467363D-03
        ws( 40) = 0.3063752423166263D-03
        ws( 41) = 0.3272427633390949D-03
        ws( 42) = 0.3500672502594308D-03
        ws( 43) = 0.3751110702761087D-03
        ws( 44) = 0.4026808865521084D-03
        ws( 45) = 0.4331368848529522D-03
        ws( 46) = 0.4669042957563233D-03
        ws( 47) = 0.5044878757344152D-03
        ws( 48) = 0.5464902498488708D-03
        ws( 49) = 0.5936353159064506D-03
        ws( 50) = 0.6467983611645330D-03
        ws( 51) = 0.7070451710371875D-03
        ws( 52) = 0.7756832865810138D-03
        ws( 53) = 0.8543299129352665D-03
        ws( 54) = 0.9450028804362322D-03
        ws( 55) = 0.1050244010228559D-02
        ws( 56) = 0.1173288725436447D-02
        ws( 57) = 0.1318302744273981D-02
        ws( 58) = 0.1490717888729195D-02
        ws( 59) = 0.1697716971189716D-02
        ws( 60) = 0.1948947589858736D-02
        ws( 61) = 0.2257593448856306D-02
        ws( 62) = 0.2642009129275936D-02
        ws( 63) = 0.3128244006308214D-02
        ws( 64) = 0.3753935166295292D-02
        ws( 65) = 0.4573934583831452D-02
        ws( 66) = 0.5666422889595241D-02
        ws( 67) = 0.7132466243514834D-02
        ws( 68) = 0.9068631149557537D-02
        ws( 69) = 0.1148094390635520D-01
        ws( 70) = 0.1415123983711957D-01
        ws( 71) = 0.1661362023883781D-01
        ws( 72) = 0.1842127478709492D-01
        ws( 73) = 0.1945293321821334D-01
        ws( 74) = 0.1987421301478440D-01
        ws( 75) = 0.1991939724718103D-01
        ws( 76) = 0.1976695234975954D-01
        ws( 77) = 0.1950045792051186D-01
        ws( 78) = 0.1903893690437319D-01
        ws( 79) = 0.1595686290683479D-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 =  83
        err = 0.6289017130347866D-10
        xs(  1) = 0.1108474446651838D-05
        xs(  2) = 0.5841425983662193D-05
        xs(  3) = 0.1436025114855155D-04
        xs(  4) = 0.2667367735109062D-04
        xs(  5) = 0.4279220801875698D-04
        xs(  6) = 0.6273001113504656D-04
        xs(  7) = 0.8650555252114862D-04
        xs(  8) = 0.1141421825377870D-03
        xs(  9) = 0.1456687508789603D-03
        xs( 10) = 0.1811202476740419D-03
        xs( 11) = 0.2205384622769767D-03
        xs( 12) = 0.2639726534348859D-03
        xs( 13) = 0.3114802283177905D-03
        xs( 14) = 0.3631274316352133D-03
        xs( 15) = 0.4189900491894641D-03
        xs( 16) = 0.4791541328081733D-03
        xs( 17) = 0.5437167555644732D-03
        xs( 18) = 0.6127868078519361D-03
        xs( 19) = 0.6864858461469420D-03
        xs( 20) = 0.7649490073977273D-03
        xs( 21) = 0.8483260031846698D-03
        xs( 22) = 0.9367822089462448D-03
        xs( 23) = 0.1030499864924686D-02
        xs( 24) = 0.1129679407182934D-02
        xs( 25) = 0.1234540948996824D-02
        xs( 26) = 0.1345325935313062D-02
        xs( 27) = 0.1462298995950221D-02
        xs( 28) = 0.1585750026663042D-02
        xs( 29) = 0.1715996531511996D-02
        xs( 30) = 0.1853386265065891D-02
        xs( 31) = 0.1998300219140464D-02
        xs( 32) = 0.2151156006141383D-02
        xs( 33) = 0.2312411699896049D-02
        xs( 34) = 0.2482570205874294D-02
        xs( 35) = 0.2662184245178855D-02
        xs( 36) = 0.2851862052740813D-02
        xs( 37) = 0.3052273909237218D-02
        xs( 38) = 0.3264159649095833D-02
        xs( 39) = 0.3488337315714384D-02
        xs( 40) = 0.3725713170448408D-02
        xs( 41) = 0.3977293304044553D-02
        xs( 42) = 0.4244197153968402D-02
        xs( 43) = 0.4527673297967011D-02
        xs( 44) = 0.4829117977508016D-02
        xs( 45) = 0.5150096910867357D-02
        xs( 46) = 0.5492371091363555D-02
        xs( 47) = 0.5857927436335087D-02
        xs( 48) = 0.6249015372847204D-02
        xs( 49) = 0.6668190734221393D-02
        xs( 50) = 0.7118368710502078D-02
        xs( 51) = 0.7602888085947094D-02
        xs( 52) = 0.8125589648589173D-02
        xs( 53) = 0.8690912517252259D-02
        xs( 54) = 0.9304013306299271D-02
        xs( 55) = 0.9970914646576082D-02
        xs( 56) = 0.1069869178059916D-01
        xs( 57) = 0.1149570903464150D-01
        xs( 58) = 0.1237192231670475D-01
        xs( 59) = 0.1333927006613179D-01
        xs( 60) = 0.1441218423550225D-01
        xs( 61) = 0.1560826640232487D-01
        xs( 62) = 0.1694919479201092D-01
        xs( 63) = 0.1846195968230392D-01
        xs( 64) = 0.2018057463848088D-01
        xs( 65) = 0.2214849146138685D-01
        xs( 66) = 0.2442207679454850D-01
        xs( 67) = 0.2707571751929572D-01
        xs( 68) = 0.3020945803561887D-01
        xs( 69) = 0.3396059069930504D-01
        xs( 70) = 0.3852111680471202D-01
        xs( 71) = 0.4416212013410398D-01
        xs( 72) = 0.5125978357594656D-01
        xs( 73) = 0.6029890862616673D-01
        xs( 74) = 0.7179811433565002D-01
        xs( 75) = 0.8609889337350483D-01
        xs( 76) = 0.1030895480240874D+00
        xs( 77) = 0.1221472884637583D+00
        xs( 78) = 0.1424386622140651D+00
        xs( 79) = 0.1632650063844957D+00
        xs( 80) = 0.1841809139223598D+00
        xs( 81) = 0.2049406278972914D+00
        xs( 82) = 0.2253560471655816D+00
        xs( 83) = 0.2447574274077466D+00
        ws(  1) = 0.2844810226955858D-05
        ws(  2) = 0.6624314840464392D-05
        ws(  3) = 0.1041464018603583D-04
        ws(  4) = 0.1421394635058351D-04
        ws(  5) = 0.1802546661986587D-04
        ws(  6) = 0.2185320754029923D-04
        ws(  7) = 0.2570175669092494D-04
        ws(  8) = 0.2957630091846047D-04
        ws(  9) = 0.3348265645828442D-04
        ws( 10) = 0.3742729084928606D-04
        ws( 11) = 0.4141733683475613D-04
        ws( 12) = 0.4546060186576730D-04
        ws( 13) = 0.4956557697540271D-04
        ws( 14) = 0.5374144856493207D-04
        ws( 15) = 0.5799811595465126D-04
        ws( 16) = 0.6234621689006774D-04
        ws( 17) = 0.6679716290385491D-04
        ws( 18) = 0.7136318587656466D-04
        ws( 19) = 0.7605739700584612D-04
        ws( 20) = 0.8089385931280167D-04
        ws( 21) = 0.8588767486166999D-04
        ws( 22) = 0.9105508789863005D-04
        ws( 23) = 0.9641360543213897D-04
        ws( 24) = 0.1019821371174584D-03
        ws( 25) = 0.1077811565170428D-03
        ws( 26) = 0.1138328864806258D-03
        ws( 27) = 0.1201615118050305D-03
        ws( 28) = 0.1267934230331980D-03
        ws( 29) = 0.1337574961039951D-03
        ws( 30) = 0.1410854133936731D-03
        ws( 31) = 0.1488120329816396D-03
        ws( 32) = 0.1569758140209200D-03
        ws( 33) = 0.1656193082386167D-03
        ws( 34) = 0.1747897292141456D-03
        ws( 35) = 0.1845396133540144D-03
        ws( 36) = 0.1949275904869063D-03
        ws( 37) = 0.2060192844815655D-03
        ws( 38) = 0.2178883695707208D-03
        ws( 39) = 0.2306178144193983D-03
        ws( 40) = 0.2443013524267567D-03
        ws( 41) = 0.2590452255249805D-03
        ws( 42) = 0.2749702632110874D-03
        ws( 43) = 0.2922143697934896D-03
        ws( 44) = 0.3109355144044935D-03
        ws( 45) = 0.3313153429492417D-03
        ws( 46) = 0.3535635644130164D-03
        ws( 47) = 0.3779233025430532D-03
        ws( 48) = 0.4046776654416881D-03
        ws( 49) = 0.4341578584861576D-03
        ws( 50) = 0.4667532600739594D-03
        ws( 51) = 0.5029240282642456D-03
        ws( 52) = 0.5432169793473146D-03
        ws( 53) = 0.5882857387846774D-03
        ws( 54) = 0.6389165288061772D-03
        ws( 55) = 0.6960614553427578D-03
        ws( 56) = 0.7608818777023848D-03
        ws( 57) = 0.8348055062234496D-03
        ws( 58) = 0.9196023858602399D-03
        ws( 59) = 0.1017487322525375D-02
        ws( 60) = 0.1131259720558522D-02
        ws( 61) = 0.1264497399993069D-02
        ws( 62) = 0.1421829762172665D-02
        ws( 63) = 0.1609329518380986D-02
        ws( 64) = 0.1835085720662793D-02
        ws( 65) = 0.2110059345235229D-02
        ws( 66) = 0.2449385166649938D-02
        ws( 67) = 0.2874382095350301D-02
        ws( 68) = 0.3415694289498734D-02
        ws( 69) = 0.4118157547769553D-02
        ws( 70) = 0.5047591985035769D-02
        ws( 71) = 0.6296915599557135D-02
        ws( 72) = 0.7980264947450494D-02
        ws( 73) = 0.1018802336160676D-01
        ws( 74) = 0.1287273969313813D-01
        ws( 75) = 0.1571177450992947D-01
        ws( 76) = 0.1815960977002195D-01
        ws( 77) = 0.1981043422739322D-01
        ws( 78) = 0.2065422670972125D-01
        ws( 79) = 0.2092530272253376D-01
        ws( 80) = 0.2086701917531961D-01
        ws( 81) = 0.2063591601742517D-01
        ws( 82) = 0.2017205149614020D-01
        ws( 83) = 0.1713392565559226D-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 =  87
        err = 0.8650452004433845D-10
        xs(  1) = 0.9830944194646208D-06
        xs(  2) = 0.5180531132916241D-05
        xs(  3) = 0.1273479118722796D-04
        xs(  4) = 0.2365240291762592D-04
        xs(  5) = 0.3794088175691313D-04
        xs(  6) = 0.5561035533459806D-04
        xs(  7) = 0.7667406515274436D-04
        xs(  8) = 0.1011488193737311D-03
        xs(  9) = 0.1290554649726116D-03
        xs( 10) = 0.1604193788814517D-03
        xs( 11) = 0.1952709708540440D-03
        xs( 12) = 0.2336461920138198D-03
        xs( 13) = 0.2755870458487764D-03
        xs( 14) = 0.3211421010900978D-03
        xs( 15) = 0.3703670083984343D-03
        xs( 16) = 0.4233250247010110D-03
        xs( 17) = 0.4800875505654951D-03
        xs( 18) = 0.5407346871652637D-03
        xs( 19) = 0.6053558203203958D-03
        xs( 20) = 0.6740502397543466D-03
        xs( 21) = 0.7469278024100783D-03
        xs( 22) = 0.8241096492229901D-03
        xs( 23) = 0.9057289854194571D-03
        xs( 24) = 0.9919319352117695D-03
        xs( 25) = 0.1082878482645250D-02
        xs( 26) = 0.1178743511417376D-02
        xs( 27) = 0.1279717957980919D-02
        xs( 28) = 0.1386010093745959D-02
        xs( 29) = 0.1497846954166816D-02
        xs( 30) = 0.1615475934998124D-02
        xs( 31) = 0.1739166578638751D-02
        xs( 32) = 0.1869212576948540D-02
        xs( 33) = 0.2005934020944805D-02
        xs( 34) = 0.2149679932386984D-02
        xs( 35) = 0.2300831118097809D-02
        xs( 36) = 0.2459803394515693D-02
        xs( 37) = 0.2627051238181743D-02
        xs( 38) = 0.2803071927293611D-02
        xs( 39) = 0.2988410251479821D-02
        xs( 40) = 0.3183663880585033D-02
        xs( 41) = 0.3389489500749293D-02
        xs( 42) = 0.3606609846283074D-02
        xs( 43) = 0.3835821781059273D-02
        xs( 44) = 0.4078005614594730D-02
        xs( 45) = 0.4334135875466783D-02
        xs( 46) = 0.4605293811477779D-02
        xs( 47) = 0.4892681945477957D-02
        xs( 48) = 0.5197641087401180D-02
        xs( 49) = 0.5521670295085725D-02
        xs( 50) = 0.5866450392864988D-02
        xs( 51) = 0.6233871803636075D-02
        xs( 52) = 0.6626067637613871D-02
        xs( 53) = 0.7045453222965415D-02
        xs( 54) = 0.7494773580716573D-02
        xs( 55) = 0.7977160753264824D-02
        xs( 56) = 0.8496203440550234D-02
        xs( 57) = 0.9056032117427780D-02
        xs( 58) = 0.9661423771904090D-02
        xs( 59) = 0.1031793171866392D-01
        xs( 60) = 0.1103204773405709D-01
        xs( 61) = 0.1181140626733572D-01
        xs( 62) = 0.1266504399614632D-01
        xs( 63) = 0.1360373298607158D-01
        xs( 64) = 0.1464041301468399D-01
        xs( 65) = 0.1579075931576993D-01
        xs( 66) = 0.1707393819483050D-01
        xs( 67) = 0.1851362771749774D-01
        xs( 68) = 0.2013941971365246D-01
        xs( 69) = 0.2198878200593045D-01
        xs( 70) = 0.2410986119841080D-01
        xs( 71) = 0.2656557682211899D-01
        xs( 72) = 0.2943974295175691D-01
        xs( 73) = 0.3284641859381933D-01
        xs( 74) = 0.3694435470389834D-01
        xs( 75) = 0.4195877064112449D-01
        xs( 76) = 0.4821065560844861D-01
        xs( 77) = 0.5614386904511201D-01
        xs( 78) = 0.6631363010188579D-01
        xs( 79) = 0.7926327554327756D-01
        xs( 80) = 0.9524175127387971D-01
        xs( 81) = 0.1139256581703972D+00
        xs( 82) = 0.1345022821372414D+00
        xs( 83) = 0.1560858089005759D+00
        xs( 84) = 0.1780218373660131D+00
        xs( 85) = 0.1999177064004029D+00
        xs( 86) = 0.2214791901345278D+00
        xs( 87) = 0.2420661645825306D+00
        ws(  1) = 0.2523013319549815D-05
        ws(  2) = 0.5874607919503946D-05
        ws(  3) = 0.9234867944587385D-05
        ws(  4) = 0.1260159434624410D-04
        ws(  5) = 0.1597704367124749D-04
        ws(  6) = 0.1936410291801747D-04
        ws(  7) = 0.2276611019797618D-04
        ws(  8) = 0.2618686453655136D-04
        ws(  9) = 0.2963064775604848D-04
        ws( 10) = 0.3310223987201081D-04
        ws( 11) = 0.3660692740616377D-04
        ws( 12) = 0.4015050695152279D-04
        ws( 13) = 0.4373928690473630D-04
        ws( 14) = 0.4738008995999989D-04
        ws( 15) = 0.5108025853837775D-04
        ws( 16) = 0.5484766489999198D-04
        ws( 17) = 0.5869072730885882D-04
        ws( 18) = 0.6261843322558182D-04
        ws( 19) = 0.6664037033771422D-04
        ws( 20) = 0.7076676610042834D-04
        ws( 21) = 0.7500853638964944D-04
        ws( 22) = 0.7937734388841919D-04
        ws( 23) = 0.8388566688816532D-04
        ws( 24) = 0.8854687940907027D-04
        ws( 25) = 0.9337534356042842D-04
        ws( 26) = 0.9838651539708133D-04
        ws( 27) = 0.1035970658613673D-03
        ws( 28) = 0.1090250183619444D-03
        ws( 29) = 0.1146899053962157D-03
        ws( 30) = 0.1206129466916691D-03
        ws( 31) = 0.1268172518190117D-03
        ws( 32) = 0.1333280512066288D-03
        ws( 33) = 0.1401729596193829D-03
        ws( 34) = 0.1473822774602724D-03
        ws( 35) = 0.1549893360134411D-03
        ws( 36) = 0.1630308940691243D-03
        ws( 37) = 0.1715475946781903D-03
        ws( 38) = 0.1805844925943660D-03
        ws( 39) = 0.1901916654555725D-03
        ws( 40) = 0.2004249236100860D-03
        ws( 41) = 0.2113466381892301D-03
        ws( 42) = 0.2230267087837332D-03
        ws( 43) = 0.2355437001039929D-03
        ws( 44) = 0.2489861808417555D-03
        ws( 45) = 0.2634543072202202D-03
        ws( 46) = 0.2790617029091255D-03
        ws( 47) = 0.2959377021733476D-03
        ws( 48) = 0.3142300344557023D-03
        ws( 49) = 0.3341080566568895D-03
        ws( 50) = 0.3557666606989489D-03
        ws( 51) = 0.3794310239122610D-03
        ws( 52) = 0.4053624119775218D-03
        ws( 53) = 0.4338653125345020D-03
        ws( 54) = 0.4652962568850837D-03
        ws( 55) = 0.5000747959708696D-03
        ws( 56) = 0.5386972582401751D-03
        ws( 57) = 0.5817541136017933D-03
        ws( 58) = 0.6299520683678850D-03
        ws( 59) = 0.6841424154073286D-03
        ws( 60) = 0.7453577402100705D-03
        ws( 61) = 0.8148599462467738D-03
        ws( 62) = 0.8942037343541240D-03
        ws( 63) = 0.9853215344833887D-03
        ws( 64) = 0.1090638646488560D-02
        ws( 65) = 0.1213231595930791D-02
        ws( 66) = 0.1357049551905677D-02
        ws( 67) = 0.1527229402201108D-02
        ws( 68) = 0.1730553543023077D-02
        ws( 69) = 0.1976128923646368D-02
        ws( 70) = 0.2276416776005462D-02
        ws( 71) = 0.2648832101556773D-02
        ws( 72) = 0.3118275251291039D-02
        ws( 73) = 0.3721174750404988D-02
        ws( 74) = 0.4511729549970038D-02
        ws( 75) = 0.5570071027821839D-02
        ws( 76) = 0.7007677272348852D-02
        ws( 77) = 0.8953138324218780D-02
        ws( 78) = 0.1148196676641384D-01
        ws( 79) = 0.1446465518391387D-01
        ws( 80) = 0.1743702675008032D-01
        ws( 81) = 0.1978682080137919D-01
        ws( 82) = 0.2121346242628032D-01
        ws( 83) = 0.2184453113197427D-01
        ws( 84) = 0.2196590229791964D-01
        ws( 85) = 0.2180635874828293D-01
        ws( 86) = 0.2125534090109647D-01
        ws( 87) = 0.1727557053200088D-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 =  92
        err = 0.4761482918727404D-10
        xs(  1) = 0.8720586847002369D-06
        xs(  2) = 0.4595308303630153D-05
        xs(  3) = 0.1129571734872079D-04
        xs(  4) = 0.2097830101454229D-04
        xs(  5) = 0.3364856409572476D-04
        xs(  6) = 0.4931390077439824D-04
        xs(  7) = 0.6798398920190493D-04
        xs(  8) = 0.8967113639323223D-04
        xs(  9) = 0.1143906359823559D-03
        xs( 10) = 0.1421611400108415D-03
        xs( 11) = 0.1730050391694249D-03
        xs( 12) = 0.2069488464269957D-03
        xs( 13) = 0.2440235808393675D-03
        xs( 14) = 0.2842651502926209D-03
        xs( 15) = 0.3277147336970616D-03
        xs( 16) = 0.3744191646126120D-03
        xs( 17) = 0.4244313194020974D-03
        xs( 18) = 0.4778105139043403D-03
        xs( 19) = 0.5346229132667872D-03
        xs( 20) = 0.5949419600602653D-03
        xs( 21) = 0.6588488262075898D-03
        xs( 22) = 0.7264328945853395D-03
        xs( 23) = 0.7977922765072648D-03
        xs( 24) = 0.8730343716623619D-03
        xs( 25) = 0.9522764775128567D-03
        xs( 26) = 0.1035646455654265D-02
        xs( 27) = 0.1123283463280944D-02
        xs( 28) = 0.1215338758677768D-02
        xs( 29) = 0.1311976590518230D-02
        xs( 30) = 0.1413375181892288D-02
        xs( 31) = 0.1519727821292059D-02
        xs( 32) = 0.1631244074262823D-02
        xs( 33) = 0.1748151131369889D-02
        xs( 34) = 0.1870695310179421D-02
        xs( 35) = 0.1999143731495113D-02
        xs( 36) = 0.2133786193212851D-02
        xs( 37) = 0.2274937268510060D-02
        xs( 38) = 0.2422938659377174D-02
        xs( 39) = 0.2578161841389243D-02
        xs( 40) = 0.2741011041466677D-02
        xs( 41) = 0.2911926597319053D-02
        xs( 42) = 0.3091388755654775D-02
        xs( 43) = 0.3279921976003457D-02
        xs( 44) = 0.3478099818993269D-02
        xs( 45) = 0.3686550512389120D-02
        xs( 46) = 0.3905963305315720D-02
        xs( 47) = 0.4137095742200250D-02
        xs( 48) = 0.4380782013722558D-02
        xs( 49) = 0.4637942573321448D-02
        xs( 50) = 0.4909595246343777D-02
        xs( 51) = 0.5196868106568320D-02
        xs( 52) = 0.5501014454040203D-02
        xs( 53) = 0.5823430301617974D-02
        xs( 54) = 0.6165674870375263D-02
        xs( 55) = 0.6529494710504572D-02
        xs( 56) = 0.6916852212385850D-02
        xs( 57) = 0.7329959462214768D-02
        xs( 58) = 0.7771318638386474D-02
        xs( 59) = 0.8243770462077972D-02
        xs( 60) = 0.8750552624650175D-02
        xs( 61) = 0.9295370658682313D-02
        xs( 62) = 0.9882484436226519D-02
        xs( 63) = 0.1051681444310586D-01
        xs( 64) = 0.1120407328340496D-01
        xs( 65) = 0.1195092965869862D-01
        xs( 66) = 0.1276521454809465D-01
        xs( 67) = 0.1365618279380065D-01
        xs( 68) = 0.1463484826914282D-01
        xs( 69) = 0.1571441799677161D-01
        xs( 70) = 0.1691086119164822D-01
        xs( 71) = 0.1824366521777635D-01
        xs( 72) = 0.1973685486132313D-01
        xs( 73) = 0.2142038975263416D-01
        xs( 74) = 0.2333211637314058D-01
        xs( 75) = 0.2552055169286249D-01
        xs( 76) = 0.2804894096575959D-01
        xs( 77) = 0.3100130318792876D-01
        xs( 78) = 0.3449161562083735D-01
        xs( 79) = 0.3867786427914403D-01
        xs( 80) = 0.4378278113040525D-01
        xs( 81) = 0.5012081806171267D-01
        xs( 82) = 0.5812237417771170D-01
        xs( 83) = 0.6832444665589282D-01
        xs( 84) = 0.8126518078904157D-01
        xs( 85) = 0.9723452742802585D-01
        xs( 86) = 0.1159991632046915D+00
        xs( 87) = 0.1368192275270174D+00
        xs( 88) = 0.1588136784831866D+00
        xs( 89) = 0.1812889244091375D+00
        xs( 90) = 0.2038100787271488D+00
        xs( 91) = 0.2261036383372262D+00
        xs( 92) = 0.2474358292878464D+00
        ws(  1) = 0.2238039066821646D-05
        ws(  2) = 0.5210827844406552D-05
        ws(  3) = 0.8190709269095870D-05
        ws(  4) = 0.1117536404178055D-04
        ws(  5) = 0.1416638859420871D-04
        ws(  6) = 0.1716589210323278D-04
        ws(  7) = 0.2017632995043872D-04
        ws(  8) = 0.2320050715864111D-04
        ws(  9) = 0.2624159434298324D-04
        ws( 10) = 0.2930313909564170D-04
        ws( 11) = 0.3238907165000444D-04
        ws( 12) = 0.3550370632969925D-04
        ws( 13) = 0.3865174077825902D-04
        ws( 14) = 0.4183825489346624D-04
        ws( 15) = 0.4506871104915511D-04
        ws( 16) = 0.4834895690892373D-04
        ws( 17) = 0.5168523182544581D-04
        ws( 18) = 0.5508417758180146D-04
        ws( 19) = 0.5855285405235195D-04
        ws( 20) = 0.6209876017802724D-04
        ws( 21) = 0.6572986065390298D-04
        ws( 22) = 0.6945461866958192D-04
        ws( 23) = 0.7328203498464115D-04
        ws( 24) = 0.7722169381714479D-04
        ws( 25) = 0.8128381597912565D-04
        ws( 26) = 0.8547931976776060D-04
        ws( 27) = 0.8981989040497972D-04
        ws( 28) = 0.9431805879680784D-04
        ws( 29) = 0.9898729058164642D-04
        ws( 30) = 0.1038420867582097D-03
        ws( 31) = 0.1088980972085330D-03
        ws( 32) = 0.1141722488429488D-03
        ws( 33) = 0.1196828904177585D-03
        ws( 34) = 0.1254499561669361D-03
        ws( 35) = 0.1314951512178214D-03
        ws( 36) = 0.1378421619401521D-03
        ws( 37) = 0.1445168950060750D-03
        ws( 38) = 0.1515477498106427D-03
        ws( 39) = 0.1589659295117721D-03
        ws( 40) = 0.1668057971151374D-03
        ws( 41) = 0.1751052841628927D-03
        ws( 42) = 0.1839063611801249D-03
        ws( 43) = 0.1932555804491498D-03
        ws( 44) = 0.2032047045656018D-03
        ws( 45) = 0.2138114362199055D-03
        ws( 46) = 0.2251402683012354D-03
        ws( 47) = 0.2372634775120182D-03
        ws( 48) = 0.2502622899367919D-03
        ws( 49) = 0.2642282530028818D-03
        ws( 50) = 0.2792648566698533D-03
        ws( 51) = 0.2954894568636631D-03
        ws( 52) = 0.3130355667567967D-03
        ws( 53) = 0.3320555983663602D-03
        ws( 54) = 0.3527241579209496D-03
        ws( 55) = 0.3752420259492220D-03
        ws( 56) = 0.3998409891549934D-03
        ws( 57) = 0.4267897372377631D-03
        ws( 58) = 0.4564011006623556D-03
        ws( 59) = 0.4890409882413845D-03
        ws( 60) = 0.5251394937786389D-03
        ws( 61) = 0.5652047945165873D-03
        ws( 62) = 0.6098406667832422D-03
        ws( 63) = 0.6597687374520565D-03
        ws( 64) = 0.7158569879147944D-03
        ws( 65) = 0.7791566085385343D-03
        ws( 66) = 0.8509501169549876D-03
        ws( 67) = 0.9328148681810591D-03
        ws( 68) = 0.1026707889678669D-02
        ws( 69) = 0.1135080678533059D-02
        ws( 70) = 0.1261036882257218D-02
        ws( 71) = 0.1408552415707051D-02
        ws( 72) = 0.1582788244797725D-02
        ws( 73) = 0.1790543904330422D-02
        ws( 74) = 0.2040929500526429D-02
        ws( 75) = 0.2346383910152812D-02
        ws( 76) = 0.2724248919247564D-02
        ws( 77) = 0.3199242736985745D-02
        ws( 78) = 0.3807368594095077D-02
        ws( 79) = 0.4601785069772462D-02
        ws( 80) = 0.5659988071086841D-02
        ws( 81) = 0.7087814310209595D-02
        ws( 82) = 0.9006372919143945D-02
        ws( 83) = 0.1149182498527745D-01
        ws( 84) = 0.1444355730802513D-01
        ws( 85) = 0.1745629926841527D-01
        ws( 86) = 0.1994219266462372D-01
        ws( 87) = 0.2154509864807756D-01
        ws( 88) = 0.2232738565356190D-01
        ws( 89) = 0.2255301596676385D-01
        ws( 90) = 0.2244080466977566D-01
        ws( 91) = 0.2198463069431723D-01
        ws( 92) = 0.1892325243515360D-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 =  32
        err = 0.7842457601410231D-10
        xs(  1) = 0.2518366329763244D-03
        xs(  2) = 0.1322375034953662D-02
        xs(  3) = 0.3227439282622209D-02
        xs(  4) = 0.5927166780177162D-02
        xs(  5) = 0.9364021503020310D-02
        xs(  6) = 0.1347187183896031D-01
        xs(  7) = 0.1818432513298577D-01
        xs(  8) = 0.2343958173727490D-01
        xs(  9) = 0.2918224133329210D-01
        xs( 10) = 0.3536341055546494D-01
        xs( 11) = 0.4194013406518220D-01
        xs( 12) = 0.4887467939510215D-01
        xs( 13) = 0.5613388072957336D-01
        xs( 14) = 0.6368858823419073D-01
        xs( 15) = 0.7151321094644984D-01
        xs( 16) = 0.7958532943034657D-01
        xs( 17) = 0.8788535916062881D-01
        xs( 18) = 0.9639625314124339D-01
        xs( 19) = 0.1051032425840150D+00
        xs( 20) = 0.1139935887839689D+00
        xs( 21) = 0.1230564351400517D+00
        xs( 22) = 0.1322825943857437D+00
        xs( 23) = 0.1416642854549404D+00
        xs( 24) = 0.1511948814893327D+00
        xs( 25) = 0.1608737649246699D+00
        xs( 26) = 0.1706884471720408D+00
        xs( 27) = 0.1806215786604981D+00
        xs( 28) = 0.1908003228189127D+00
        xs( 29) = 0.2009143254949643D+00
        xs( 30) = 0.2114218119841593D+00
        xs( 31) = 0.2214804678208214D+00
        xs( 32) = 0.2437637704946248D+00
        ws(  1) = 0.6458078494466243D-03
        ws(  2) = 0.1492617998951854D-02
        ws(  3) = 0.2310777279897264D-02
        ws(  4) = 0.3078921677564229D-02
        ws(  5) = 0.3783620641926001D-02
        ws(  6) = 0.4420935914681283D-02
        ws(  7) = 0.4993644265142818D-02
        ws(  8) = 0.5507636202508846D-02
        ws(  9) = 0.5969544754529003D-02
        ws( 10) = 0.6385646806047401D-02
        ws( 11) = 0.6761522478861203D-02
        ws( 12) = 0.7102049677593927D-02
        ws( 13) = 0.7411502241857348D-02
        ws( 14) = 0.7693654017819370D-02
        ws( 15) = 0.7951860418736896D-02
        ws( 16) = 0.8189117365705097D-02
        ws( 17) = 0.8408105567172261D-02
        ws( 18) = 0.8611223989186992D-02
        ws( 19) = 0.8800633236065105D-02
        ws( 20) = 0.8978279542967990D-02
        ws( 21) = 0.9145786230071021D-02
        ws( 22) = 0.9305258075978531D-02
        ws( 23) = 0.9458022640787015D-02
        ws( 24) = 0.9600448136519259D-02
        ws( 25) = 0.9752674584114326D-02
        ws( 26) = 0.9887723326584202D-02
        ws( 27) = 0.1004735681419143D-01
        ws( 28) = 0.1004401056973948D-01
        ws( 29) = 0.9992198818823284D-02
        ws( 30) = 0.1299400365329829D-01
        ws( 31) = 0.7815968440032501D-02
        ws( 32) = 0.4012987714741837D-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 =  32
        err = 0.5189322381021923D-10
        xs(  1) = 0.2441307573971091D-03
        xs(  2) = 0.1284521788714801D-02
        xs(  3) = 0.3144896455800302D-02
        xs(  4) = 0.5796425573719496D-02
        xs(  5) = 0.9190129242956197D-02
        xs(  6) = 0.1326446594809616D-01
        xs(  7) = 0.1795450285954466D-01
        xs(  8) = 0.2319813439778383D-01
        xs(  9) = 0.2893889117145195D-01
        xs( 10) = 0.3512659537590973D-01
        xs( 11) = 0.4171704109836731D-01
        xs( 12) = 0.4867137548334599D-01
        xs( 13) = 0.5595547135200622D-01
        xs( 14) = 0.6353937851451499D-01
        xs( 15) = 0.7139685863667257D-01
        xs( 16) = 0.7950498638707472D-01
        xs( 17) = 0.8784380055356943D-01
        xs( 18) = 0.9639599549352244D-01
        xs( 19) = 0.1051466516849002D+00
        xs( 20) = 0.1140829800873157D+00
        xs( 21) = 0.1231941970884602D+00
        xs( 22) = 0.1324711790492760D+00
        xs( 23) = 0.1419065754501922D+00
        xs( 24) = 0.1514944068221870D+00
        xs( 25) = 0.1612324699724004D+00
        xs( 26) = 0.1711126585270233D+00
        xs( 27) = 0.1811299171842587D+00
        xs( 28) = 0.1913269578436858D+00
        xs( 29) = 0.2016840379579592D+00
        xs( 30) = 0.2120412658454913D+00
        xs( 31) = 0.2224953594526004D+00
        xs( 32) = 0.2452243873154990D+00
        ws(  1) = 0.6263627302773732D-03
        ws(  2) = 0.1453344519521285D-02
        ws(  3) = 0.2262594574578186D-02
        ws(  4) = 0.3032154963544007D-02
        ws(  5) = 0.3744831284107365D-02
        ws(  6) = 0.4392916673396953D-02
        ws(  7) = 0.4976763072465898D-02
        ws(  8) = 0.5501080413860002D-02
        ws(  9) = 0.5972077027019919D-02
        ws( 10) = 0.6395974657644425D-02
        ws( 11) = 0.6778451928597621D-02
        ws( 12) = 0.7124538112691124D-02
        ws( 13) = 0.7438669629509713D-02
        ws( 14) = 0.7724778248444680D-02
        ws( 15) = 0.7986366897145372D-02
        ws( 16) = 0.8226566843654805D-02
        ws( 17) = 0.8448182020024630D-02
        ws( 18) = 0.8653723962060812D-02
        ws( 19) = 0.8845461772652816D-02
        ws( 20) = 0.9025417115259738D-02
        ws( 21) = 0.9195394915385954D-02
        ws( 22) = 0.9357556704012712D-02
        ws( 23) = 0.9512486051514895D-02
        ws( 24) = 0.9661218769952511D-02
        ws( 25) = 0.9812132459490005D-02
        ws( 26) = 0.9961532294990879D-02
        ws( 27) = 0.1009299266813466D-01
        ws( 28) = 0.1016518953154381D-01
        ws( 29) = 0.1039270289830153D-01
        ws( 30) = 0.1158307277630684D-01
        ws( 31) = 0.1030313508963907D-01
        ws( 32) = 0.3877467211771574D-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 =  32
        err = 0.6229248132697957D-10
        xs(  1) = 0.2287764208517377D-03
        xs(  2) = 0.1207634956479410D-02
        xs(  3) = 0.2971263101029438D-02
        xs(  4) = 0.5506998799798977D-02
        xs(  5) = 0.8778410714723272D-02
        xs(  6) = 0.1273055512682185D-01
        xs(  7) = 0.1730030511855665D-01
        xs(  8) = 0.2242460211510473D-01
        xs(  9) = 0.2804478328003472D-01
        xs( 10) = 0.3410806914853156D-01
        xs( 11) = 0.4056762327940904D-01
        xs( 12) = 0.4738208506312605D-01
        xs( 13) = 0.5451500104724724D-01
        xs( 14) = 0.6193430899539439D-01
        xs( 15) = 0.6961191012837771D-01
        xs( 16) = 0.7752332548610610D-01
        xs( 17) = 0.8564742399976419D-01
        xs( 18) = 0.9396620830048856D-01
        xs( 19) = 0.1024646398258331D+00
        xs( 20) = 0.1111304925690067D+00
        xs( 21) = 0.1199541297691695D+00
        xs( 22) = 0.1289284539485790D+00
        xs( 23) = 0.1380484731484796D+00
        xs( 24) = 0.1473102431776317D+00
        xs( 25) = 0.1567137116154105D+00
        xs( 26) = 0.1662604819906608D+00
        xs( 27) = 0.1759319153324410D+00
        xs( 28) = 0.1857644414504021D+00
        xs( 29) = 0.1957714078052746D+00
        xs( 30) = 0.2057835615780930D+00
        xs( 31) = 0.2161611223249475D+00
        xs( 32) = 0.2370626480467976D+00
        ws(  1) = 0.5874414870011662D-03
        ws(  2) = 0.1371493659141343D-02
        ws(  3) = 0.2153771124224827D-02
        ws(  4) = 0.2911517440773289D-02
        ws(  5) = 0.3621958140027497D-02
        ws(  6) = 0.4271669288782448D-02
        ws(  7) = 0.4857252456103348D-02
        ws(  8) = 0.5381543198940180D-02
        ws(  9) = 0.5850023643280569D-02
        ws( 10) = 0.6268750727072400D-02
        ws( 11) = 0.6643473884727884D-02
        ws( 12) = 0.6979382761596837D-02
        ws( 13) = 0.7281112609800055D-02
        ws( 14) = 0.7552825852657061D-02
        ws( 15) = 0.7798301089259200D-02
        ws( 16) = 0.8021011316400163D-02
        ws( 17) = 0.8224188891382730D-02
        ws( 18) = 0.8410876542616673D-02
        ws( 19) = 0.8583949654867159D-02
        ws( 20) = 0.8746146656154925D-02
        ws( 21) = 0.8900036471817290D-02
        ws( 22) = 0.9047411614351516D-02
        ws( 23) = 0.9192656195266855D-02
        ws( 24) = 0.9331384193966391D-02
        ws( 25) = 0.9472143700547619D-02
        ws( 26) = 0.9615006989016562D-02
        ws( 27) = 0.9769490236907347D-02
        ws( 28) = 0.9891493468819590D-02
        ws( 29) = 0.9827667290280903D-02
        ws( 30) = 0.1050776242846718D-01
        ws( 31) = 0.1245461663360011D-01
        ws( 32) = 0.3067612467560027D-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 =  32
        err = 0.3408321265740349D-10
        xs(  1) = 0.2119446166805642D-03
        xs(  2) = 0.1123147961965303D-02
        xs(  3) = 0.2781001266697364D-02
        xs(  4) = 0.5194913433639791D-02
        xs(  5) = 0.8350050646224716D-02
        xs(  6) = 0.1220717935887168D-01
        xs(  7) = 0.1671201721064186D-01
        xs(  8) = 0.2180519069182802D-01
        xs(  9) = 0.2742866161090561D-01
        xs( 10) = 0.3352874674870914D-01
        xs( 11) = 0.4005710115376751D-01
        xs( 12) = 0.4697076234424881D-01
        xs( 13) = 0.5423184087432949D-01
        xs( 14) = 0.6180710467891378D-01
        xs( 15) = 0.6966754533014995D-01
        xs( 16) = 0.7778795528401758D-01
        xs( 17) = 0.8614652788301608D-01
        xs( 18) = 0.9472448783898106D-01
        xs( 19) = 0.1035057568487946D+00
        xs( 20) = 0.1124766657654645D+00
        xs( 21) = 0.1216256976791223D+00
        xs( 22) = 0.1309432422540209D+00
        xs( 23) = 0.1404218132767354D+00
        xs( 24) = 0.1500546775996779D+00
        xs( 25) = 0.1598375346592310D+00
        xs( 26) = 0.1697707891620218D+00
        xs( 27) = 0.1798486942402686D+00
        xs( 28) = 0.1900674775358455D+00
        xs( 29) = 0.2004292666995501D+00
        xs( 30) = 0.2109987196495902D+00
        xs( 31) = 0.2218182400029221D+00
        xs( 32) = 0.2325581951172253D+00
        ws(  1) = 0.5447340782543559D-03
        ws(  2) = 0.1281453955010568D-02
        ws(  3) = 0.2036081617840125D-02
        ws(  4) = 0.2789255494549716D-02
        ws(  5) = 0.3514299049584620D-02
        ws(  6) = 0.4190736543519337D-02
        ws(  7) = 0.4808938185726546D-02
        ws(  8) = 0.5367689209456619D-02
        ws(  9) = 0.5870291673999466D-02
        ws( 10) = 0.6321821673317828D-02
        ws( 11) = 0.6727732395726960D-02
        ws( 12) = 0.7093282177897638D-02
        ws( 13) = 0.7423343489053238D-02
        ws( 14) = 0.7722356452640177D-02
        ws( 15) = 0.7994330277251003D-02
        ws( 16) = 0.8242861373637986D-02
        ws( 17) = 0.8471160135164290D-02
        ws( 18) = 0.8682085035394905D-02
        ws( 19) = 0.8878180335108192D-02
        ws( 20) = 0.9061708273985525D-02
        ws( 21) = 0.9234814986924585D-02
        ws( 22) = 0.9398925587492259D-02
        ws( 23) = 0.9556900517779111D-02
        ws( 24) = 0.9709226806251794D-02
        ws( 25) = 0.9857240540572134D-02
        ws( 26) = 0.9998087358020246D-02
        ws( 27) = 0.1015417343202849D-01
        ws( 28) = 0.1036658264387771D-01
        ws( 29) = 0.1046313346559495D-01
        ws( 30) = 0.9976339757284283D-02
        ws( 31) = 0.9673955297578260D-02
        ws( 32) = 0.2185043523951423D-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 =  32
        err = 0.7644264435409240D-10
        xs(  1) = 0.1123403108858903D-03
        xs(  2) = 0.6811435149307839D-03
        xs(  3) = 0.1875120551175085D-02
        xs(  4) = 0.3771693393258528D-02
        xs(  5) = 0.6402811940238849D-02
        xs(  6) = 0.9764944839465326D-02
        xs(  7) = 0.1382470981640371D-01
        xs(  8) = 0.1853035290012418D-01
        xs(  9) = 0.2382294067515905D-01
        xs( 10) = 0.2964368565812633D-01
        xs( 11) = 0.3593763653770719D-01
        xs( 12) = 0.4265512200367645D-01
        xs( 13) = 0.4975206349204233D-01
        xs( 14) = 0.5718978285244851D-01
        xs( 15) = 0.6493460411281604D-01
        xs( 16) = 0.7295738337941499D-01
        xs( 17) = 0.8123302829601536D-01
        xs( 18) = 0.8974003818449212D-01
        xs( 19) = 0.9846008110203044D-01
        xs( 20) = 0.1073776239733986D+00
        xs( 21) = 0.1164795980079408D+00
        xs( 22) = 0.1257551140094968D+00
        xs( 23) = 0.1351956213521683D+00
        xs( 24) = 0.1447928717073691D+00
        xs( 25) = 0.1545440280049322D+00
        xs( 26) = 0.1644453677680787D+00
        xs( 27) = 0.1744851746137590D+00
        xs( 28) = 0.1846756977797291D+00
        xs( 29) = 0.1950529050739546D+00
        xs( 30) = 0.2055656950119045D+00
        xs( 31) = 0.2160238155066427D+00
        xs( 32) = 0.2383298663678330D+00
        ws(  1) = 0.3025570445051725D-03
        ws(  2) = 0.8629660312393929D-03
        ws(  3) = 0.1536917699408366D-02
        ws(  4) = 0.2261534548192628D-02
        ws(  5) = 0.3000024297916932D-02
        ws(  6) = 0.3718465733462921D-02
        ws(  7) = 0.4392244087201892D-02
        ws(  8) = 0.5009099639637791D-02
        ws(  9) = 0.5566220299805036D-02
        ws( 10) = 0.6066089722040959D-02
        ws( 11) = 0.6513529676982489D-02
        ws( 12) = 0.6914098679392539D-02
        ws( 13) = 0.7273344860660041D-02
        ws( 14) = 0.7596489164086285D-02
        ws( 15) = 0.7888304117787180D-02
        ws( 16) = 0.8153080065352642D-02
        ws( 17) = 0.8394633337317993D-02
        ws( 18) = 0.8616337506390402D-02
        ws( 19) = 0.8821165437329108D-02
        ws( 20) = 0.9011736467243485D-02
        ws( 21) = 0.9190460202368836D-02
        ws( 22) = 0.9358969320425136D-02
        ws( 23) = 0.9520755880907452D-02
        ws( 24) = 0.9674655436437803D-02
        ws( 25) = 0.9823153510236399D-02
        ws( 26) = 0.9973286836462593D-02
        ws( 27) = 0.1014410041507215D-01
        ws( 28) = 0.1024136518473077D-01
        ws( 29) = 0.1021481675842100D-01
        ws( 30) = 0.1101464367324089D-01
        ws( 31) = 0.1262393436779070D-01
        ws( 32) = 0.3370276728979219D-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 =  32
        err = 0.6930852242299031D-10
        xs(  1) = 0.1372112533036641D-03
        xs(  2) = 0.7364821937858007D-03
        xs(  3) = 0.1865493113133614D-02
        xs(  4) = 0.3593999049735083D-02
        xs(  5) = 0.5986517233757280D-02
        xs(  6) = 0.9079249141058196D-02
        xs(  7) = 0.1287246004876370D-01
        xs(  8) = 0.1733728789759950D-01
        xs(  9) = 0.2242733946912062D-01
        xs( 10) = 0.2808842167892838D-01
        xs( 11) = 0.3426491508794133D-01
        xs( 12) = 0.4090351065059383D-01
        xs( 13) = 0.4795521532614062D-01
        xs( 14) = 0.5537625014926094D-01
        xs( 15) = 0.6312825338362189D-01
        xs( 16) = 0.7117807575113096D-01
        xs( 17) = 0.7949736562926846D-01
        xs( 18) = 0.8806207330144375D-01
        xs( 19) = 0.9685195302442175D-01
        xs( 20) = 0.1058501055273187D+00
        xs( 21) = 0.1150425898126141D+00
        xs( 22) = 0.1244181271316170D+00
        xs( 23) = 0.1339676378823072D+00
        xs( 24) = 0.1436853818953891D+00
        xs( 25) = 0.1535647666431992D+00
        xs( 26) = 0.1636053677790462D+00
        xs( 27) = 0.1738155922320232D+00
        xs( 28) = 0.1841793243625646D+00
        xs( 29) = 0.1946988334276555D+00
        xs( 30) = 0.2054564250388408D+00
        xs( 31) = 0.2164419020802418D+00
        xs( 32) = 0.2278539737034060D+00
        ws(  1) = 0.3537096311813012D-03
        ws(  2) = 0.8534705474013979D-03
        ws(  3) = 0.1416633823753674D-02
        ws(  4) = 0.2051555604637477D-02
        ws(  5) = 0.2739634513087367D-02
        ws(  6) = 0.3445731107749816D-02
        ws(  7) = 0.4135671200774446D-02
        ws(  8) = 0.4786088177860950D-02
        ws(  9) = 0.5384879043469624D-02
        ws( 10) = 0.5927955433886480D-02
        ws( 11) = 0.6416114542194967D-02
        ws( 12) = 0.6852897058505540D-02
        ws( 13) = 0.7243213084768343D-02
        ws( 14) = 0.7592466817052516D-02
        ws( 15) = 0.7906021986510877D-02
        ws( 16) = 0.8188905923764317D-02
        ws( 17) = 0.8445673953997215D-02
        ws( 18) = 0.8680374764599612D-02
        ws( 19) = 0.8896574587672880D-02
        ws( 20) = 0.9097415893334345D-02
        ws( 21) = 0.9285652656671618D-02
        ws( 22) = 0.9464007586177768D-02
        ws( 23) = 0.9633933473298996D-02
        ws( 24) = 0.9799823245358103D-02
        ws( 25) = 0.9961895015234016D-02
        ws( 26) = 0.1012163671298281D-01
        ws( 27) = 0.1026647462045886D-01
        ws( 28) = 0.1048045747323438D-01
        ws( 29) = 0.1084737812884247D-01
        ws( 30) = 0.1040519959363273D-01
        ws( 31) = 0.8816976777623676D-02
        ws( 32) = 0.2233564824847747D-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 =  33
        err = 0.6532970336393410D-10
        xs(  1) = 0.1023038541995075D-03
        xs(  2) = 0.5495611447436960D-03
        xs(  3) = 0.1396607526771119D-02
        xs(  4) = 0.2712441240536281D-02
        xs(  5) = 0.4583085137500014D-02
        xs(  6) = 0.7090433907996107D-02
        xs(  7) = 0.1028744577189603D-01
        xs(  8) = 0.1418452407691217D-01
        xs(  9) = 0.1875549422279212D-01
        xs( 10) = 0.2395320315598938D-01
        xs( 11) = 0.2972170021092178D-01
        xs( 12) = 0.3600316006523508D-01
        xs( 13) = 0.4274204752872144D-01
        xs( 14) = 0.4988759735356470D-01
        xs( 15) = 0.5739493540842117D-01
        xs( 16) = 0.6522524574709609D-01
        xs( 17) = 0.7334540750659312D-01
        xs( 18) = 0.8172740756456262D-01
        xs( 19) = 0.9034770518779547D-01
        xs( 20) = 0.9918663529671456D-01
        xs( 21) = 0.1082278885978926D+00
        xs( 22) = 0.1174580933806902D+00
        xs( 23) = 0.1268664159062354D+00
        xs( 24) = 0.1364445620191389D+00
        xs( 25) = 0.1461860960604476D+00
        xs( 26) = 0.1560870252640703D+00
        xs( 27) = 0.1661450022665497D+00
        xs( 28) = 0.1763649465159310D+00
        xs( 29) = 0.1867504964430933D+00
        xs( 30) = 0.1972710598592354D+00
        xs( 31) = 0.2079550746472294D+00
        xs( 32) = 0.2191329053160084D+00
        xs( 33) = 0.2304504107079455D+00
        ws(  1) = 0.2637490987567824D-03
        ws(  2) = 0.6377764226101687D-03
        ws(  3) = 0.1067982232947746D-02
        ws(  4) = 0.1578391053688000D-02
        ws(  5) = 0.2177001034529528D-02
        ws(  6) = 0.2846778865248640D-02
        ws(  7) = 0.3548845086392605D-02
        ws(  8) = 0.4240650335007990D-02
        ws(  9) = 0.4893229869320436D-02
        ws( 10) = 0.5492755423773205D-02
        ws( 11) = 0.6034533368381918D-02
        ws( 12) = 0.6519089653220493D-02
        ws( 13) = 0.6950206773013173D-02
        ws( 14) = 0.7333412140907095D-02
        ws( 15) = 0.7674801424262146D-02
        ws( 16) = 0.7980309308172817D-02
        ws( 17) = 0.8255356148223637D-02
        ws( 18) = 0.8504730585532859D-02
        ws( 19) = 0.8732595833420309D-02
        ws( 20) = 0.8942554325661234D-02
        ws( 21) = 0.9137727402802959D-02
        ws( 22) = 0.9320878913482749D-02
        ws( 23) = 0.9494462811061689D-02
        ws( 24) = 0.9660428155319971D-02
        ws( 25) = 0.9822397769218713D-02
        ws( 26) = 0.9981051014648367D-02
        ws( 27) = 0.1013108338850071D-01
        ws( 28) = 0.1029479722055831D-01
        ws( 29) = 0.1051860013638890D-01
        ws( 30) = 0.1068384829578373D-01
        ws( 31) = 0.1032535226349064D-01
        ws( 32) = 0.1050330570503707D-01
        ws( 33) = 0.1918419661200250D-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 =  35
        err = 0.4519585093920953D-10
        xs(  1) = 0.5503695641044352D-04
        xs(  2) = 0.2944653696329087D-03
        xs(  3) = 0.7440663343431703D-03
        xs(  4) = 0.1438472932340642D-02
        xs(  5) = 0.2432040566247146D-02
        xs(  6) = 0.3801912409157895D-02
        xs(  7) = 0.5647489396730374D-02
        xs(  8) = 0.8080883076043054D-02
        xs(  9) = 0.1120391623646599D-01
        xs( 10) = 0.1507710521436786D-01
        xs( 11) = 0.1970051123143050D-01
        xs( 12) = 0.2502231410541321D-01
        xs( 13) = 0.3096487952363385D-01
        xs( 14) = 0.3744736885583864D-01
        xs( 15) = 0.4439701742015320D-01
        xs( 16) = 0.5175226927641837D-01
        xs( 17) = 0.5946228893022979D-01
        xs( 18) = 0.6748539755358181D-01
        xs( 19) = 0.7578744362181875D-01
        xs( 20) = 0.8434040648519261D-01
        xs( 21) = 0.9312127480632303D-01
        xs( 22) = 0.1021111688428993D+00
        xs( 23) = 0.1112946646948535D+00
        xs( 24) = 0.1206592712753572D+00
        xs( 25) = 0.1301950984499506D+00
        xs( 26) = 0.1398944831305533D+00
        xs( 27) = 0.1497520060895124D+00
        xs( 28) = 0.1597641502191874D+00
        xs( 29) = 0.1699309354750307D+00
        xs( 30) = 0.1802538566789541D+00
        xs( 31) = 0.1907295562264714D+00
        xs( 32) = 0.2013687060592083D+00
        xs( 33) = 0.2122294286909952D+00
        xs( 34) = 0.2233470724138997D+00
        xs( 35) = 0.2346131289802014D+00
        ws(  1) = 0.1417482195600811D-03
        ws(  2) = 0.3401978076618532D-03
        ws(  3) = 0.5647122128800047D-03
        ws(  4) = 0.8331024178364088D-03
        ws(  5) = 0.1166884906727649D-02
        ws(  6) = 0.1589570141524831D-02
        ws(  7) = 0.2120661207576592D-02
        ws(  8) = 0.2763669187124857D-02
        ws(  9) = 0.3492855041620623D-02
        ws( 10) = 0.4253355294048640D-02
        ws( 11) = 0.4984322730496654D-02
        ws( 12) = 0.5645952237789548D-02
        ws( 13) = 0.6225529781148350D-02
        ws( 14) = 0.6727280772557038D-02
        ws( 15) = 0.7161770836528619D-02
        ws( 16) = 0.7540288410864926D-02
        ws( 17) = 0.7872832127416940D-02
        ws( 18) = 0.8167716512432687D-02
        ws( 19) = 0.8431724120770730D-02
        ws( 20) = 0.8670380940577996D-02
        ws( 21) = 0.8888220478877900D-02
        ws( 22) = 0.9089005464086522D-02
        ws( 23) = 0.9275911671768998D-02
        ws( 24) = 0.9451666529239566D-02
        ws( 25) = 0.9618644640510944D-02
        ws( 26) = 0.9779350701921628D-02
        ws( 27) = 0.9935524910503687D-02
        ws( 28) = 0.1008803802990644D-01
        ws( 29) = 0.1024233863808833D-01
        ws( 30) = 0.1040750250713592D-01
        ws( 31) = 0.1058509880449221D-01
        ws( 32) = 0.1071449288200301D-01
        ws( 33) = 0.1067839619678150D-01
        ws( 34) = 0.1126689879420694D-01
        ws( 35) = 0.1619379645103296D-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 =  39
        err = 0.5518706973706417D-10
        xs(  1) = 0.2387963373627350D-04
        xs(  2) = 0.1267836282527817D-03
        xs(  3) = 0.3159487517155616D-03
        xs(  4) = 0.5987503333430468D-03
        xs(  5) = 0.9867638965812984D-03
        xs(  6) = 0.1496964769796510D-02
        xs(  7) = 0.2153439734616277D-02
        xs(  8) = 0.2989798395555654D-02
        xs(  9) = 0.4052443439721829D-02
        xs( 10) = 0.5404703549442774D-02
        xs( 11) = 0.7131294897186081D-02
        xs( 12) = 0.9341217207029059D-02
        xs( 13) = 0.1216451183392827D-01
        xs( 14) = 0.1573499409116954D-01
        xs( 15) = 0.2015291948671528D-01
        xs( 16) = 0.2544053339927063D-01
        xs( 17) = 0.3152900050929374D-01
        xs( 18) = 0.3829433682886423D-01
        xs( 19) = 0.4560695055707783D-01
        xs( 20) = 0.5335927559281702D-01
        xs( 21) = 0.6147079613564187D-01
        xs( 22) = 0.6988330639468963D-01
        xs( 23) = 0.7855469091817512D-01
        xs( 24) = 0.8745396237751819D-01
        xs( 25) = 0.9655784441788133D-01
        xs( 26) = 0.1058485418700552D+00
        xs( 27) = 0.1153123115151777D+00
        xs( 28) = 0.1249385452006670D+00
        xs( 29) = 0.1347191981749588D+00
        xs( 30) = 0.1446484508147850D+00
        xs( 31) = 0.1547225565477950D+00
        xs( 32) = 0.1649396677496239D+00
        xs( 33) = 0.1753003214755512D+00
        xs( 34) = 0.1858073233302194D+00
        xs( 35) = 0.1964645630205695D+00
        xs( 36) = 0.2072849116669800D+00
        xs( 37) = 0.2183074776578913D+00
        xs( 38) = 0.2295412821179070D+00
        xs( 39) = 0.2408154638725907D+00
        ws(  1) = 0.6139181549774494D-04
        ws(  2) = 0.1451064928760180D-03
        ws(  3) = 0.2344375977821559D-03
        ws(  4) = 0.3330754337956270D-03
        ws(  5) = 0.4457528045370559D-03
        ws(  6) = 0.5786236429370831D-03
        ws(  7) = 0.7398735279303792D-03
        ws(  8) = 0.9405077326209959D-03
        ws(  9) = 0.1195258835867252D-02
        ws( 10) = 0.1523322160410159D-02
        ws( 11) = 0.1948061207759165D-02
        ws( 12) = 0.2493722807782808D-02
        ws( 13) = 0.3175812906339930D-02
        ws( 14) = 0.3982717442877614D-02
        ws( 15) = 0.4857126046848254D-02
        ws( 16) = 0.5705908501735618D-02
        ws( 17) = 0.6449436477022091D-02
        ws( 18) = 0.7059191149307344D-02
        ws( 19) = 0.7548062287561472D-02
        ws( 20) = 0.7943266295389431D-02
        ws( 21) = 0.8270182537301916D-02
        ws( 22) = 0.8547901481031449D-02
        ws( 23) = 0.8789758913661920D-02
        ws( 24) = 0.9004940798943128D-02
        ws( 25) = 0.9199880413626110D-02
        ws( 26) = 0.9379237936804459D-02
        ws( 27) = 0.9546540786620991D-02
        ws( 28) = 0.9704605026433498D-02
        ws( 29) = 0.9855736840538590D-02
        ws( 30) = 0.1000209728871775D-01
        ws( 31) = 0.1014568998705629D-01
        ws( 32) = 0.1028873306618916D-01
        ws( 33) = 0.1043397164859348D-01
        ws( 34) = 0.1058305271573235D-01
        ws( 35) = 0.1073737040383252D-01
        ws( 36) = 0.1089484631246847D-01
        ws( 37) = 0.1105744323377888D-01
        ws( 38) = 0.1153527689097728D-01
        ws( 39) = 0.1398217117824910D-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 =  42
        err = 0.7725677884185777D-10
        xs(  1) = 0.1349027674215094D-04
        xs(  2) = 0.7138639463479335D-04
        xs(  3) = 0.1768215483318893D-03
        xs(  4) = 0.3320996598577605D-03
        xs(  5) = 0.5407327909555022D-03
        xs(  6) = 0.8077058501321353D-03
        xs(  7) = 0.1139827406858768D-02
        xs(  8) = 0.1546213624937903D-02
        xs(  9) = 0.2038956397235109D-02
        xs( 10) = 0.2634049574046900D-02
        xs( 11) = 0.3352678636010965D-02
        xs( 12) = 0.4223019474775457D-02
        xs( 13) = 0.5282737005716315D-02
        xs( 14) = 0.6582404840884761D-02
        xs( 15) = 0.8190023033370453D-02
        xs( 16) = 0.1019653146665469D-01
        xs( 17) = 0.1272131982328239D-01
        xs( 18) = 0.1591444409709364D-01
        xs( 19) = 0.1994757171648240D-01
        xs( 20) = 0.2498017067330114D-01
        xs( 21) = 0.3109502820362856D-01
        xs( 22) = 0.3823921572701790D-01
        xs( 23) = 0.4623739671864298D-01
        xs( 24) = 0.5487353268581155D-01
        xs( 25) = 0.6396242657989722D-01
        xs( 26) = 0.7337280606856451D-01
        xs( 27) = 0.8302006516555654D-01
        xs( 28) = 0.9285183406729892D-01
        xs( 29) = 0.1028360748008077D+00
        xs( 30) = 0.1129532070278744D+00
        xs( 31) = 0.1231913312946869D+00
        xs( 32) = 0.1335434374761149D+00
        xs( 33) = 0.1440058068741462D+00
        xs( 34) = 0.1545771183783469D+00
        xs( 35) = 0.1652579555036969D+00
        xs( 36) = 0.1760505814971963D+00
        xs( 37) = 0.1869589310863203D+00
        xs( 38) = 0.1979892565421119D+00
        xs( 39) = 0.2091548840049053D+00
        xs( 40) = 0.2204740215684655D+00
        xs( 41) = 0.2318798644783878D+00
        xs( 42) = 0.2429818299595006D+00
        ws(  1) = 0.3465521152687601D-04
        ws(  2) = 0.8136985873562486D-04
        ws(  3) = 0.1298799795647883D-03
        ws(  4) = 0.1812574016844459D-03
        ws(  5) = 0.2368339173563702D-03
        ws(  6) = 0.2982390150191954D-03
        ws(  7) = 0.3675124961357184D-03
        ws(  8) = 0.4472600654157676D-03
        ws(  9) = 0.5408699703799832D-03
        ws( 10) = 0.6528177743584384D-03
        ws( 11) = 0.7890952380030015D-03
        ws( 12) = 0.9578074309243754D-03
        ws( 13) = 0.1169981242084451D-02
        ws( 14) = 0.1440594016752257D-02
        ws( 15) = 0.1789700370739112D-02
        ws( 16) = 0.2243159952688710D-02
        ws( 17) = 0.2831541676464675D-02
        ws( 18) = 0.3583849517100159D-02
        ws( 19) = 0.4510136638835718D-02
        ws( 20) = 0.5570067276960088D-02
        ws( 21) = 0.6650602076601532D-02
        ws( 22) = 0.7606923515807120D-02
        ws( 23) = 0.8352154204661007D-02
        ws( 24) = 0.8888938989401849D-02
        ws( 25) = 0.9267150301077536D-02
        ws( 26) = 0.9539767523031702D-02
        ws( 27) = 0.9746222160513176D-02
        ws( 28) = 0.9912104661147107D-02
        ws( 29) = 0.1005319114616293D-01
        ws( 30) = 0.1017913540821914D-01
        ws( 31) = 0.1029597111100013D-01
        ws( 32) = 0.1040763359686382D-01
        ws( 33) = 0.1051689430520307D-01
        ws( 34) = 0.1062587924283763D-01
        ws( 35) = 0.1073648472774242D-01
        ws( 36) = 0.1085042422435699D-01
        ws( 37) = 0.1096783084079489D-01
        ws( 38) = 0.1108620449368147D-01
        ws( 39) = 0.1122142026564612D-01
        ws( 40) = 0.1148664653509584D-01
        ws( 41) = 0.1201557786311627D-01
        ws( 42) = 0.1190021490097997D-01
        endif
        if( idomain .eq.   34 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.2000000000000000D-01
        rk1r = 0.1256637061435917D+02
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  44
        err = 0.8198390363181003D-10
        xs(  1) = 0.8900505463387384D-05
        xs(  2) = 0.4702374598149970D-04
        xs(  3) = 0.1161384804326099D-03
        xs(  4) = 0.2171965215518252D-03
        xs(  5) = 0.3516228421843075D-03
        xs(  6) = 0.5214048391727211D-03
        xs(  7) = 0.7291979070641329D-03
        xs(  8) = 0.9784627897063856D-03
        xs(  9) = 0.1273644867722659D-02
        xs( 10) = 0.1620409767572982D-02
        xs( 11) = 0.2025956012913470D-02
        xs( 12) = 0.2499434276142348D-02
        xs( 13) = 0.3052515382121113D-02
        xs( 14) = 0.3700167416325910D-02
        xs( 15) = 0.4461728629489626D-02
        xs( 16) = 0.5362400467275062D-02
        xs( 17) = 0.6435337132061348D-02
        xs( 18) = 0.7724574862751269D-02
        xs( 19) = 0.9289114534331401D-02
        xs( 20) = 0.1120849743566749D-01
        xs( 21) = 0.1359004192926884D-01
        xs( 22) = 0.1657709108709969D-01
        xs( 23) = 0.2035497302038432D-01
        xs( 24) = 0.2514437433786956D-01
        xs( 25) = 0.3115974878247342D-01
        xs( 26) = 0.3851438210706880D-01
        xs( 27) = 0.4712244434986264D-01
        xs( 28) = 0.5671565718091267D-01
        xs( 29) = 0.6697517535924358D-01
        xs( 30) = 0.7764260549510052D-01
        xs( 31) = 0.8854839874606736D-01
        xs( 32) = 0.9959397855908514D-01
        xs( 33) = 0.1107265162657271D+00
        xs( 34) = 0.1219200770955885D+00
        xs( 35) = 0.1331639513614458D+00
        xs( 36) = 0.1444559564344098D+00
        xs( 37) = 0.1557987304277968D+00
        xs( 38) = 0.1671975534161116D+00
        xs( 39) = 0.1786594395345423D+00
        xs( 40) = 0.1901929954398887D+00
        xs( 41) = 0.2018080280624456D+00
        xs( 42) = 0.2135057530677718D+00
        xs( 43) = 0.2251677400506189D+00
        xs( 44) = 0.2363538355353932D+00
        ws(  1) = 0.2285604743398866D-04
        ws(  2) = 0.5349473197221167D-04
        ws(  3) = 0.8489132825851532D-04
        ws(  4) = 0.1174608888493161D-03
        ws(  5) = 0.1517212459318110D-03
        ws(  6) = 0.1882830475183032D-03
        ws(  7) = 0.2278769243414073D-03
        ws(  8) = 0.2713898592865078D-03
        ws(  9) = 0.3199134258941721D-03
        ws( 10) = 0.3748092384163016D-03
        ws( 11) = 0.4377990381052077D-03
        ws( 12) = 0.5110898759974578D-03
        ws( 13) = 0.5975494252637736D-03
        ws( 14) = 0.7009532146815112D-03
        ws( 15) = 0.8263352019950586D-03
        ws( 16) = 0.9804861105290321D-03
        ws( 17) = 0.1172659419139744D-02
        ws( 18) = 0.1415557200134358D-02
        ws( 19) = 0.1726657484111661D-02
        ws( 20) = 0.2129851024674532D-02
        ws( 21) = 0.2657007757406906D-02
        ws( 22) = 0.3348033939511001D-02
        ws( 23) = 0.4245129006575905D-02
        ws( 24) = 0.5371091507562460D-02
        ws( 25) = 0.6680568726641093D-02
        ws( 26) = 0.8014140128438825D-02
        ws( 27) = 0.9154600471834749D-02
        ws( 28) = 0.9976703449074762D-02
        ws( 29) = 0.1049893385400927D-01
        ws( 30) = 0.1080806264210072D-01
        ws( 31) = 0.1098754014536173D-01
        ws( 32) = 0.1109512800587254D-01
        ws( 33) = 0.1116581541745831D-01
        ws( 34) = 0.1121963365886925D-01
        ws( 35) = 0.1126781929364352D-01
        ws( 36) = 0.1131671849619574D-01
        ws( 37) = 0.1137000032892221D-01
        ws( 38) = 0.1142955573035151D-01
        ws( 39) = 0.1149518435497379D-01
        ws( 40) = 0.1156471349029697D-01
        ws( 41) = 0.1166216944327978D-01
        ws( 42) = 0.1190012863520217D-01
        ws( 43) = 0.1216391525047010D-01
        ws( 44) = 0.1066069584985206D-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 =  48
        err = 0.4751084829775269D-10
        xs(  1) = 0.6209788920999988D-05
        xs(  2) = 0.3277882479117466D-04
        xs(  3) = 0.8082555097659546D-04
        xs(  4) = 0.1507956319817310D-03
        xs(  5) = 0.2433447909277575D-03
        xs(  6) = 0.3593751360759622D-03
        xs(  7) = 0.5000726666658652D-03
        xs(  8) = 0.6669537442156285D-03
        xs(  9) = 0.8619228424820732D-03
        xs( 10) = 0.1087344523813073D-02
        xs( 11) = 0.1346133829788411D-02
        xs( 12) = 0.1641870886682589D-02
        xs( 13) = 0.1978947650806191D-02
        xs( 14) = 0.2362757615192290D-02
        xs( 15) = 0.2799943347561093D-02
        xs( 16) = 0.3298722479079057D-02
        xs( 17) = 0.3869321005733711D-02
        xs( 18) = 0.4524554661630535D-02
        xs( 19) = 0.5280616348598027D-02
        xs( 20) = 0.6158152539802015D-02
        xs( 21) = 0.7183747406535684D-02
        xs( 22) = 0.8391983929241951D-02
        xs( 23) = 0.9828319317367440D-02
        xs( 24) = 0.1155309408953525D-01
        xs( 25) = 0.1364706201002406D-01
        xs( 26) = 0.1621877403889797D-01
        xs( 27) = 0.1941362114001910D-01
        xs( 28) = 0.2342229357308744D-01
        xs( 29) = 0.2848021349437710D-01
        xs( 30) = 0.3483631395237858D-01
        xs( 31) = 0.4266305833272564D-01
        xs( 32) = 0.5193261282048613D-01
        xs( 33) = 0.6238382983137597D-01
        xs( 34) = 0.7364478248677946D-01
        xs( 35) = 0.8538377241554893D-01
        xs( 36) = 0.9737220633976700D-01
        xs( 37) = 0.1094752390117722D+00
        xs( 38) = 0.1216218038834772D+00
        xs( 39) = 0.1337790929522550D+00
        xs( 40) = 0.1459359619926974D+00
        xs( 41) = 0.1580932299106940D+00
        xs( 42) = 0.1702582401242740D+00
        xs( 43) = 0.1824418670921288D+00
        xs( 44) = 0.1946572481282173D+00
        xs( 45) = 0.2069168384023410D+00
        xs( 46) = 0.2191978478138106D+00
        xs( 47) = 0.2315133559206683D+00
        xs( 48) = 0.2437876703490478D+00
        ws(  1) = 0.1594312134657210D-04
        ws(  2) = 0.3724858832683152D-04
        ws(  3) = 0.5891800369718581D-04
        ws(  4) = 0.8113092500514715D-04
        ws(  5) = 0.1041171263017972D-03
        ws(  6) = 0.1281404608390451D-03
        ws(  7) = 0.1535063716304178D-03
        ws(  8) = 0.1805720059947519D-03
        ws(  9) = 0.2097587913680940D-03
        ws( 10) = 0.2415685200349467D-03
        ws( 11) = 0.2766043591925686D-03
        ws( 12) = 0.3155986202806025D-03
        ws( 13) = 0.3594497459706802D-03
        ws( 14) = 0.4092719115737384D-03
        ws( 15) = 0.4664620316523200D-03
        ws( 16) = 0.5327910095524122D-03
        ws( 17) = 0.6105290687659528D-03
        ws( 18) = 0.7026193968132716D-03
        ws( 19) = 0.8129207162596279D-03
        ws( 20) = 0.9465485676137261D-03
        ws( 21) = 0.1110357833830295D-02
        ws( 22) = 0.1313625551081556D-02
        ws( 23) = 0.1569010752468469D-02
        ws( 24) = 0.1893874712063289D-02
        ws( 25) = 0.2311998362959425D-02
        ws( 26) = 0.2855499863522523D-02
        ws( 27) = 0.3565935569101146D-02
        ws( 28) = 0.4491076307609036D-02
        ws( 29) = 0.5667764771455613D-02
        ws( 30) = 0.7075620663548092D-02
        ws( 31) = 0.8574042789572108D-02
        ws( 32) = 0.9919046122111514D-02
        ws( 33) = 0.1091855558456492D-01
        ws( 34) = 0.1154712639156654D-01
        ws( 35) = 0.1189305366501451D-01
        ws( 36) = 0.1206189168935324D-01
        ws( 37) = 0.1213276002907033D-01
        ws( 38) = 0.1215517289842449D-01
        ws( 39) = 0.1215769882499468D-01
        ws( 40) = 0.1215623572409554D-01
        ws( 41) = 0.1215955178584454D-01
        ws( 42) = 0.1217265135339844D-01
        ws( 43) = 0.1219784285824668D-01
        ws( 44) = 0.1223680988623113D-01
        ws( 45) = 0.1231254621287978D-01
        ws( 46) = 0.1234783573744338D-01
        ws( 47) = 0.1183625313128178D-01
        ws( 48) = 0.1114592036388558D-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 =  51
        err = 0.7407089157353876D-10
        xs(  1) = 0.4665235028088436D-05
        xs(  2) = 0.2461250317046482D-04
        xs(  3) = 0.6062975929256756D-04
        xs(  4) = 0.1129544521196222D-03
        xs(  5) = 0.1819314724552120D-03
        xs(  6) = 0.2680324923561309D-03
        xs(  7) = 0.3718732599499860D-03
        xs(  8) = 0.4942340808325637D-03
        xs(  9) = 0.6360842501143778D-03
        xs( 10) = 0.7986112303714561D-03
        xs( 11) = 0.9832557314274201D-03
        xs( 12) = 0.1191754296110012D-02
        xs( 13) = 0.1426191533927650D-02
        xs( 14) = 0.1689064820460144D-02
        xs( 15) = 0.1983365164683987D-02
        xs( 16) = 0.2312679141565266D-02
        xs( 17) = 0.2681318428859991D-02
        xs( 18) = 0.3094485771693940D-02
        xs( 19) = 0.3558489406744889D-02
        xs( 20) = 0.4081022526696732D-02
        xs( 21) = 0.4671530863976392D-02
        xs( 22) = 0.5341700835017013D-02
        xs( 23) = 0.6106114278509365D-02
        xs( 24) = 0.6983135658133931D-02
        xs( 25) = 0.7996126683996839D-02
        xs( 26) = 0.9175125844213568D-02
        xs( 27) = 0.1055919195458439D-01
        xs( 28) = 0.1219969743548365D-01
        xs( 29) = 0.1416496974036233D-01
        xs( 30) = 0.1654679408793210D-01
        xs( 31) = 0.1946929235822311D-01
        xs( 32) = 0.2310014525091393D-01
        xs( 33) = 0.2766151758004823D-01
        xs( 34) = 0.3342934165401546D-01
        xs( 35) = 0.4069124949275357D-01
        xs( 36) = 0.4962837478783474D-01
        xs( 37) = 0.6016598418044259D-01
        xs( 38) = 0.7195740199725661D-01
        xs( 39) = 0.8455331981111076D-01
        xs( 40) = 0.9757708427067475D-01
        xs( 41) = 0.1107824228506689D+00
        xs( 42) = 0.1240319118066940D+00
        xs( 43) = 0.1372586948720733D+00
        xs( 44) = 0.1504367465433084D+00
        xs( 45) = 0.1635623110043759D+00
        xs( 46) = 0.1766431035063118D+00
        xs( 47) = 0.1896920690972255D+00
        xs( 48) = 0.2027248800641062D+00
        xs( 49) = 0.2157322152306748D+00
        xs( 50) = 0.2286639802662653D+00
        xs( 51) = 0.2409582742376262D+00
        ws(  1) = 0.1197609839809537D-04
        ws(  2) = 0.2795005690162808D-04
        ws(  3) = 0.4412326442646052D-04
        ws(  4) = 0.6058334374599452D-04
        ws(  5) = 0.7744902460668512D-04
        ws(  6) = 0.9485529986593689D-04
        ws(  7) = 0.1129558808808388D-03
        ws(  8) = 0.1319268264958329D-03
        ws(  9) = 0.1519708416237175D-03
        ws( 10) = 0.1733225324779536D-03
        ws( 11) = 0.1962550295027321D-03
        ws( 12) = 0.2210884651478165D-03
        ws( 13) = 0.2482009034515593D-03
        ws( 14) = 0.2780424875545989D-03
        ws( 15) = 0.3111538250927799D-03
        ws( 16) = 0.3481900036839146D-03
        ws( 17) = 0.3899521600758236D-03
        ws( 18) = 0.4374292944799961D-03
        ws( 19) = 0.4918541236009053D-03
        ws( 20) = 0.5547783765052927D-03
        ws( 21) = 0.6281752750667076D-03
        ws( 22) = 0.7145804076200391D-03
        ws( 23) = 0.8172872994432239D-03
        ws( 24) = 0.9406215500018632D-03
        ws( 25) = 0.1090328525736816D-02
        ws( 26) = 0.1274125652290147D-02
        ws( 27) = 0.1502492531000627D-02
        ws( 28) = 0.1789799343685966D-02
        ws( 29) = 0.2155895368692015D-02
        ws( 30) = 0.2628249138752284D-02
        ws( 31) = 0.3244490158693363D-02
        ws( 32) = 0.4054185173606798D-02
        ws( 33) = 0.5115129736436222D-02
        ws( 34) = 0.6470480589578738D-02
        ws( 35) = 0.8086534000149833D-02
        ws( 36) = 0.9775759046741930D-02
        ws( 37) = 0.1123821876572220D-01
        ws( 38) = 0.1226649114612243D-01
        ws( 39) = 0.1286178692598605D-01
        ws( 40) = 0.1314521948301976D-01
        ws( 41) = 0.1324324158125998D-01
        ws( 42) = 0.1324509591431395D-01
        ws( 43) = 0.1320445497882026D-01
        ws( 44) = 0.1315120468994245D-01
        ws( 45) = 0.1310129459052673D-01
        ws( 46) = 0.1306269649665217D-01
        ws( 47) = 0.1303505281207090D-01
        ws( 48) = 0.1304084245736333D-01
        ws( 49) = 0.1303269712398078D-01
        ws( 50) = 0.1305350768604823D-01
        ws( 51) = 0.1084550894701068D-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 =  55
        err = 0.6512992793171722D-10
        xs(  1) = 0.3606514223854077D-05
        xs(  2) = 0.1902031074944238D-04
        xs(  3) = 0.4682428577994629D-04
        xs(  4) = 0.8715327589048516D-04
        xs(  5) = 0.1402003078323752D-03
        xs(  6) = 0.2062280772102548D-03
        xs(  7) = 0.2855777465439925D-03
        xs(  8) = 0.3786789677496246D-03
        xs(  9) = 0.4860614618914795D-03
        xs( 10) = 0.6083683747181687D-03
        xs( 11) = 0.7463717449980807D-03
        xs( 12) = 0.9009905755558185D-03
        xs( 13) = 0.1073312164714948D-02
        xs( 14) = 0.1264617546205459D-02
        xs( 15) = 0.1476412114240827D-02
        xs( 16) = 0.1710462798107721D-02
        xs( 17) = 0.1968843525400041D-02
        xs( 18) = 0.2253991209613669D-02
        xs( 19) = 0.2568775164356247D-02
        xs( 20) = 0.2916583748814451D-02
        xs( 21) = 0.3301433281545925D-02
        xs( 22) = 0.3728105954043111D-02
        xs( 23) = 0.4202325828379402D-02
        xs( 24) = 0.4730985294108276D-02
        xs( 25) = 0.5322439011017388D-02
        xs( 26) = 0.5986888995589718D-02
        xs( 27) = 0.6736894046779166D-02
        xs( 28) = 0.7588050570270932D-02
        xs( 29) = 0.8559912126953909D-02
        xs( 30) = 0.9677244911127449D-02
        xs( 31) = 0.1097176045305135D-01
        xs( 32) = 0.1248453171891367D-01
        xs( 33) = 0.1426939225458119D-01
        xs( 34) = 0.1639774552795411D-01
        xs( 35) = 0.1896535727140679D-01
        xs( 36) = 0.2210176868153853D-01
        xs( 37) = 0.2598253172879563D-01
        xs( 38) = 0.3084193344114685D-01
        xs( 39) = 0.3697484610984486D-01
        xs( 40) = 0.4469650537306980D-01
        xs( 41) = 0.5422003826214339D-01
        xs( 42) = 0.6548922731029806D-01
        xs( 43) = 0.7814136848783161D-01
        xs( 44) = 0.9168103751030542D-01
        xs( 45) = 0.1056810740421111D+00
        xs( 46) = 0.1198578266914041D+00
        xs( 47) = 0.1340519449708977D+00
        xs( 48) = 0.1481859263130486D+00
        xs( 49) = 0.1622297830502010D+00
        xs( 50) = 0.1761792578440911D+00
        xs( 51) = 0.1900420291061051D+00
        xs( 52) = 0.2038265642174300D+00
        xs( 53) = 0.2175155165561818D+00
        xs( 54) = 0.2310350282515037D+00
        xs( 55) = 0.2439909098820497D+00
        ws(  1) = 0.9257504427223273D-05
        ws(  2) = 0.2159017610140531D-04
        ws(  3) = 0.3403969509722205D-04
        ws(  4) = 0.4665031357859337D-04
        ws(  5) = 0.5948738897701835D-04
        ws(  6) = 0.7262484358819150D-04
        ws(  7) = 0.8614591121593697D-04
        ws(  8) = 0.1001445962396690D-03
        ws(  9) = 0.1147273263591210D-03
        ws( 10) = 0.1300148727978943D-03
        ws( 11) = 0.1461446813774423D-03
        ws( 12) = 0.1632737746670573D-03
        ws( 13) = 0.1815824020705159D-03
        ws( 14) = 0.2012786444633930D-03
        ws( 15) = 0.2226042273556351D-03
        ws( 16) = 0.2458418686687296D-03
        ws( 17) = 0.2713245901926882D-03
        ws( 18) = 0.2994475648951576D-03
        ws( 19) = 0.3306832716641542D-03
        ws( 20) = 0.3656010063882517D-03
        ws( 21) = 0.4048921866331987D-03
        ws( 22) = 0.4494034341953856D-03
        ws( 23) = 0.5001802022429275D-03
        ws( 24) = 0.5585248317519501D-03
        ws( 25) = 0.6260745573429876D-03
        ws( 26) = 0.7049073544030730D-03
        ws( 27) = 0.7976870491736925D-03
        ws( 28) = 0.9078643281329444D-03
        ws( 29) = 0.1039958085552975D-02
        ws( 30) = 0.1199953168340244D-02
        ws( 31) = 0.1395867762834876D-02
        ws( 32) = 0.1638568250356523D-02
        ws( 33) = 0.1942941846715106D-02
        ws( 34) = 0.2329569862285240D-02
        ws( 35) = 0.2827036644286224D-02
        ws( 36) = 0.3474811168627677D-02
        ws( 37) = 0.4325659537628279D-02
        ws( 38) = 0.5442828434536179D-02
        ws( 39) = 0.6877603732169580D-02
        ws( 40) = 0.8604558211553977D-02
        ws( 41) = 0.1043409468960768D-01
        ws( 42) = 0.1204027837180279D-01
        ws( 43) = 0.1317766296461711D-01
        ws( 44) = 0.1382940248467741D-01
        ws( 45) = 0.1412390810367720D-01
        ws( 46) = 0.1420381033210164D-01
        ws( 47) = 0.1417207859970403D-01
        ws( 48) = 0.1409120616236701D-01
        ws( 49) = 0.1399599713140851D-01
        ws( 50) = 0.1390494511999670D-01
        ws( 51) = 0.1382967888486265D-01
        ws( 52) = 0.1378236994292803D-01
        ws( 53) = 0.1370627076052437D-01
        ws( 54) = 0.1325681277422698D-01
        ws( 55) = 0.1074827053390706D-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 =  58
        err = 0.9398820250002135D-10
        xs(  1) = 0.2910649193268231D-05
        xs(  2) = 0.1534669439683815D-04
        xs(  3) = 0.3776402455563526D-04
        xs(  4) = 0.7024467316991428D-04
        xs(  5) = 0.1129044245532619D-03
        xs(  6) = 0.1659006689104029D-03
        xs(  7) = 0.2294376579743990D-03
        xs(  8) = 0.3037722740412470D-03
        xs(  9) = 0.3892205052185609D-03
        xs( 10) = 0.4861646851234710D-03
        xs( 11) = 0.5950616042526831D-03
        xs( 12) = 0.7164516706187985D-03
        xs( 13) = 0.8509693692217998D-03
        xs( 14) = 0.9993553433084354D-03
        xs( 15) = 0.1162470500093757D-02
        xs( 16) = 0.1341312635925329D-02
        xs( 17) = 0.1537036189327651D-02
        xs( 18) = 0.1750975874280597D-02
        xs( 19) = 0.1984675132328079D-02
        xs( 20) = 0.2239920585963073D-02
        xs( 21) = 0.2518783996304572D-02
        xs( 22) = 0.2823673655013302D-02
        xs( 23) = 0.3157397708327844D-02
        xs( 24) = 0.3523242677440903D-02
        xs( 25) = 0.3925071474613047D-02
        xs( 26) = 0.4367446633547290D-02
        xs( 27) = 0.4855786424606204D-02
        xs( 28) = 0.5396564248028967D-02
        xs( 29) = 0.5997565521905286D-02
        xs( 30) = 0.6668221723921144D-02
        xs( 31) = 0.7420049051562998D-02
        xs( 32) = 0.8267230530514487D-02
        xs( 33) = 0.9227397065638330D-02
        xs( 34) = 0.1032268775549215D-01
        xs( 35) = 0.1158120699778486D-01
        xs( 36) = 0.1303905234971571D-01
        xs( 37) = 0.1474317256409266D-01
        xs( 38) = 0.1675544351221388D-01
        xs( 39) = 0.1915853303361299D-01
        xs( 40) = 0.2206435241010058D-01
        xs( 41) = 0.2562602832179790D-01
        xs( 42) = 0.3005363229928928D-01
        xs( 43) = 0.3562942343711383D-01
        xs( 44) = 0.4270320937057147D-01
        xs( 45) = 0.5162200533718115D-01
        xs( 46) = 0.6255803189148149D-01
        xs( 47) = 0.7533231396082744D-01
        xs( 48) = 0.8945181698732989D-01
        xs( 49) = 0.1043545630731613D+00
        xs( 50) = 0.1196060099637754D+00
        xs( 51) = 0.1349396130026474D+00
        xs( 52) = 0.1502165504748041D+00
        xs( 53) = 0.1653765203213044D+00
        xs( 54) = 0.1804018923220663D+00
        xs( 55) = 0.1952944594425065D+00
        xs( 56) = 0.2100446673706481D+00
        xs( 57) = 0.2245947449697981D+00
        xs( 58) = 0.2384913349210478D+00
        ws(  1) = 0.7470877525724755D-05
        ws(  2) = 0.1741500771118644D-04
        ws(  3) = 0.2743289605268410D-04
        ws(  4) = 0.3754760688495112D-04
        ws(  5) = 0.4779804207867810D-04
        ws(  6) = 0.5822839261060321D-04
        ws(  7) = 0.6888829141961166D-04
        ws(  8) = 0.7983348498694898D-04
        ws(  9) = 0.9112656487216676D-04
        ws( 10) = 0.1028377746025089D-03
        ws( 11) = 0.1150459581009617D-03
        ws( 12) = 0.1278397217330247D-03
        ws( 13) = 0.1413188820858194D-03
        ws( 14) = 0.1555962749720060D-03
        ws( 15) = 0.1708000105498677D-03
        ws( 16) = 0.1870762758582359D-03
        ws( 17) = 0.2045928118604001D-03
        ws( 18) = 0.2235432276138280D-03
        ws( 19) = 0.2441523641470043D-03
        ws( 20) = 0.2666829859806353D-03
        ws( 21) = 0.2914441689189714D-03
        ws( 22) = 0.3188018742792783D-03
        ws( 23) = 0.3491923656957703D-03
        ws( 24) = 0.3831393553562281D-03
        ws( 25) = 0.4212760836815586D-03
        ws( 26) = 0.4643739892254076D-03
        ws( 27) = 0.5133802573832140D-03
        ws( 28) = 0.5694674557594968D-03
        ws( 29) = 0.6340997844047606D-03
        ws( 30) = 0.7091224129922381D-03
        ws( 31) = 0.7968832489914610D-03
        ws( 32) = 0.9004007934219374D-03
        ws( 33) = 0.1023598244683423D-02
        ws( 34) = 0.1171634004322178D-02
        ws( 35) = 0.1351374005705669D-02
        ws( 36) = 0.1572074896155090D-02
        ws( 37) = 0.1846382336133554D-02
        ws( 38) = 0.2191799097265121D-02
        ws( 39) = 0.2632833988579570D-02
        ws( 40) = 0.3204057710776057D-02
        ws( 41) = 0.3954013454021628D-02
        ws( 42) = 0.4948199336678663D-02
        ws( 43) = 0.6262708425693426D-02
        ws( 44) = 0.7945757316058124D-02
        ws( 45) = 0.9924213435320772D-02
        ws( 46) = 0.1191742135538216D-01
        ws( 47) = 0.1354398788953456D-01
        ws( 48) = 0.1459786797728538D-01
        ws( 49) = 0.1513480372049434D-01
        ws( 50) = 0.1532451124010920D-01
        ws( 51) = 0.1532042421924912D-01
        ws( 52) = 0.1522412532218568D-01
        ws( 53) = 0.1509417109923543D-01
        ws( 54) = 0.1496116660972558D-01
        ws( 55) = 0.1483752150246304D-01
        ws( 56) = 0.1468390803163878D-01
        ws( 57) = 0.1429666637828357D-01
        ws( 58) = 0.1160987673916442D-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 =  62
        err = 0.9013052371349254D-10
        xs(  1) = 0.2385497105308203D-05
        xs(  2) = 0.1257570510233620D-04
        xs(  3) = 0.3093613497011920D-04
        xs(  4) = 0.5751902683076320D-04
        xs(  5) = 0.9239684469027918D-04
        xs(  6) = 0.1356679056439359D-03
        xs(  7) = 0.1874596651835526D-03
        xs(  8) = 0.2479322115947709D-03
        xs(  9) = 0.3172821101545896D-03
        xs( 10) = 0.3957466060691224D-03
        xs( 11) = 0.4836082134500487D-03
        xs( 12) = 0.5811997532109294D-03
        xs( 13) = 0.6889099387393542D-03
        xs( 14) = 0.8071896419353989D-03
        xs( 15) = 0.9365590051732922D-03
        xs( 16) = 0.1077615599701043D-02
        xs( 17) = 0.1231043869933980D-02
        xs( 18) = 0.1397626150281427D-02
        xs( 19) = 0.1578255599697281D-02
        xs( 20) = 0.1773951472960545D-02
        xs( 21) = 0.1985877242491887D-02
        xs( 22) = 0.2215362206021177D-02
        xs( 23) = 0.2463927373106988D-02
        xs( 24) = 0.2733316627501399D-02
        xs( 25) = 0.3025534429916375D-02
        xs( 26) = 0.3342891675506465D-02
        xs( 27) = 0.3688061785075251D-02
        xs( 28) = 0.4064149726055111D-02
        xs( 29) = 0.4474777490268130D-02
        xs( 30) = 0.4924190676797540D-02
        xs( 31) = 0.5417392368507914D-02
        xs( 32) = 0.5960312604590822D-02
        xs( 33) = 0.6560024717778129D-02
        xs( 34) = 0.7225023956789096D-02
        xs( 35) = 0.7965589770313086D-02
        xs( 36) = 0.8794261697599488D-02
        xs( 37) = 0.9726471337909281D-02
        xs( 38) = 0.1078139148157955D-01
        xs( 39) = 0.1198309136934901D-01
        xs( 40) = 0.1336212964285417D-01
        xs( 41) = 0.1495778207957925D-01
        xs( 42) = 0.1682120292113240D-01
        xs( 43) = 0.1901997527965469D-01
        xs( 44) = 0.2164473661904777D-01
        xs( 45) = 0.2481886120835303D-01
        xs( 46) = 0.2871234388934899D-01
        xs( 47) = 0.3355996826162486D-01
        xs( 48) = 0.3967775179741868D-01
        xs( 49) = 0.4745283100526370D-01
        xs( 50) = 0.5725305577761698D-01
        xs( 51) = 0.6922618064311405D-01
        xs( 52) = 0.8312134802327081D-01
        xs( 53) = 0.9836821799416320D-01
        xs( 54) = 0.1143589650262594D+00
        xs( 55) = 0.1306438728388493D+00
        xs( 56) = 0.1469566160523909D+00
        xs( 57) = 0.1631635883429015D+00
        xs( 58) = 0.1792099469893414D+00
        xs( 59) = 0.1950804643344172D+00
        xs( 60) = 0.2107702057027324D+00
        xs( 61) = 0.2261697762567965D+00
        xs( 62) = 0.2407603182903244D+00
        ws(  1) = 0.6122713540544306D-05
        ws(  2) = 0.1426765826670545D-04
        ws(  3) = 0.2246156641949825D-04
        ws(  4) = 0.3071623301604231D-04
        ws(  5) = 0.3905573585347123D-04
        ws(  6) = 0.4750757049710064D-04
        ws(  7) = 0.5610256588679536D-04
        ws(  8) = 0.6487521782770966D-04
        ws(  9) = 0.7386404382547581D-04
        ws( 10) = 0.8311194996116579D-04
        ws( 11) = 0.9266664217928704D-04
        ws( 12) = 0.1025811188661346D-03
        ws( 13) = 0.1129142794487912D-03
        ws( 14) = 0.1237316819321222D-03
        ws( 15) = 0.1351064830263913D-03
        ws( 16) = 0.1471205973012029D-03
        ws( 17) = 0.1598661176476031D-03
        ws( 18) = 0.1734470495668630D-03
        ws( 19) = 0.1879814245270944D-03
        ws( 20) = 0.2036038758121045D-03
        ws( 21) = 0.2204687837768312D-03
        ws( 22) = 0.2387541284821097D-03
        ws( 23) = 0.2586662283967841D-03
        ws( 24) = 0.2804455977793103D-03
        ws( 25) = 0.3043742277201084D-03
        ws( 26) = 0.3307846915335465D-03
        ws( 27) = 0.3600716084316431D-03
        ws( 28) = 0.3927061769858113D-03
        ws( 29) = 0.4292547394133277D-03
        ws( 30) = 0.4704026826727172D-03
        ws( 31) = 0.5169854709479465D-03
        ws( 32) = 0.5700292962590337D-03
        ws( 33) = 0.6308048365734663D-03
        ws( 34) = 0.7008990501868980D-03
        ws( 35) = 0.7823121091733333D-03
        ws( 36) = 0.8775897325895133D-03
        ws( 37) = 0.9900060632225250D-03
        ws( 38) = 0.1123819670663993D-02
        ws( 39) = 0.1284636772290989D-02
        ws( 40) = 0.1479934103806521D-02
        ws( 41) = 0.1719822234787097D-02
        ws( 42) = 0.2018175222976685D-02
        ws( 43) = 0.2394317389111268D-02
        ws( 44) = 0.2875538084226451D-02
        ws( 45) = 0.3500731479217811D-02
        ws( 46) = 0.4325039659781403D-02
        ws( 47) = 0.5422906535092220D-02
        ws( 48) = 0.6878542074615467D-02
        ws( 49) = 0.8736566462121868D-02
        ws( 50) = 0.1089230703447135D-01
        ws( 51) = 0.1301066327904967D-01
        ws( 52) = 0.1467892287379132D-01
        ws( 53) = 0.1571013706805879D-01
        ws( 54) = 0.1619630602773169D-01
        ws( 55) = 0.1633013451753453D-01
        ws( 56) = 0.1627402047127649D-01
        ws( 57) = 0.1613148612445553D-01
        ws( 58) = 0.1596005344809132D-01
        ws( 59) = 0.1578755447326632D-01
        ws( 60) = 0.1563686650051766D-01
        ws( 61) = 0.1533825926297209D-01
        ws( 62) = 0.1251865841703524D-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 =  67
        err = 0.3666181990142064D-10
        xs(  1) = 0.1972903325006169D-05
        xs(  2) = 0.1039946569977837D-04
        xs(  3) = 0.2557743611062475D-04
        xs(  4) = 0.4754158458665073D-04
        xs(  5) = 0.7633912091253842D-04
        xs(  6) = 0.1120338069570535D-03
        xs(  7) = 0.1547080127901575D-03
        xs(  8) = 0.2044648450744482D-03
        xs(  9) = 0.2614304685785304D-03
        xs( 10) = 0.3257566188700125D-03
        xs( 11) = 0.3976233058369773D-03
        xs( 12) = 0.4772417250341383D-03
        xs( 13) = 0.5648574125784104D-03
        xs( 14) = 0.6607536967858856D-03
        xs( 15) = 0.7652555157096953D-03
        xs( 16) = 0.8787336851544916D-03
        xs( 17) = 0.1001609717383902D-02
        xs( 18) = 0.1134361307958345D-02
        xs( 19) = 0.1277528628326655D-02
        xs( 20) = 0.1431721586042489D-02
        xs( 21) = 0.1597628244536248D-02
        xs( 22) = 0.1776024631897925D-02
        xs( 23) = 0.1967786215261246D-02
        xs( 24) = 0.2173901376891741D-02
        xs( 25) = 0.2395487303260365D-02
        xs( 26) = 0.2633808794147162D-02
        xs( 27) = 0.2890300620702286D-02
        xs( 28) = 0.3166594217993914D-02
        xs( 29) = 0.3464549698923824D-02
        xs( 30) = 0.3786294438528733D-02
        xs( 31) = 0.4134269818070263D-02
        xs( 32) = 0.4511288168679956D-02
        xs( 33) = 0.4920602547129534D-02
        xs( 34) = 0.5365992771398529D-02
        xs( 35) = 0.5851872210926997D-02
        xs( 36) = 0.6383421278402652D-02
        xs( 37) = 0.6966755560533372D-02
        xs( 38) = 0.7609139278129530D-02
        xs( 39) = 0.8319258624710408D-02
        xs( 40) = 0.9107574991878978D-02
        xs( 41) = 0.9986785908027328D-02
        xs( 42) = 0.1097243286517085D-01
        xs( 43) = 0.1208371188231569D-01
        xs( 44) = 0.1334456751463968D-01
        xs( 45) = 0.1478518863059032D-01
        xs( 46) = 0.1644408157900209D-01
        xs( 47) = 0.1837098459728634D-01
        xs( 48) = 0.2063102183803634D-01
        xs( 49) = 0.2331069241974696D-01
        xs( 50) = 0.2652654575054916D-01
        xs( 51) = 0.3043756752819197D-01
        xs( 52) = 0.3526159017144365D-01
        xs( 53) = 0.4129167478863708D-01
        xs( 54) = 0.4889474851649981D-01
        xs( 55) = 0.5845089151381916D-01
        xs( 56) = 0.7019321939991355D-01
        xs( 57) = 0.8401413255310346D-01
        xs( 58) = 0.9944350211970343D-01
        xs( 59) = 0.1158669283453575D+00
        xs( 60) = 0.1327624534649672D+00
        xs( 61) = 0.1497864166839637D+00
        xs( 62) = 0.1667482343638037D+00
        xs( 63) = 0.1835573804237190D+00
        xs( 64) = 0.2001773861257267D+00
        xs( 65) = 0.2165804298353381D+00
        xs( 66) = 0.2327157981157836D+00
        xs( 67) = 0.2478590169102264D+00
        ws(  1) = 0.5063602441921735D-05
        ws(  2) = 0.1179700197200046D-04
        ws(  3) = 0.1856445796523638D-04
        ws(  4) = 0.2537166543820488D-04
        ws(  5) = 0.3223400139310354D-04
        ws(  6) = 0.3916906365988573D-04
        ws(  7) = 0.4619649372992579D-04
        ws(  8) = 0.5333815641723443D-04
        ws(  9) = 0.6061833483467784D-04
        ws( 10) = 0.6806391895943859D-04
        ws( 11) = 0.7570460177939189D-04
        ws( 12) = 0.8357310193820926D-04
        ws( 13) = 0.9170543111228823D-04
        ws( 14) = 0.1001412227490817D-03
        ws( 15) = 0.1089241376992352D-03
        ws( 16) = 0.1181023621130731D-03
        ws( 17) = 0.1277292137780929D-03
        ws( 18) = 0.1378638753955293D-03
        ws( 19) = 0.1485722768132818D-03
        ws( 20) = 0.1599281530311226D-03
        ws( 21) = 0.1720143115262429D-03
        ws( 22) = 0.1849241507541121D-03
        ws( 23) = 0.1987634827289976D-03
        ws( 24) = 0.2136527262740811D-03
        ws( 25) = 0.2297295556455039D-03
        ws( 26) = 0.2471521121017932D-03
        ws( 27) = 0.2661029162348756D-03
        ws( 28) = 0.2867936578298255D-03
        ws( 29) = 0.3094710922719738D-03
        ws( 30) = 0.3344243409367047D-03
        ws( 31) = 0.3619939851318438D-03
        ws( 32) = 0.3925834688366718D-03
        ws( 33) = 0.4266734918422270D-03
        ws( 34) = 0.4648403120086454D-03
        ws( 35) = 0.5077791920093410D-03
        ws( 36) = 0.5563346837530102D-03
        ws( 37) = 0.6115400750568818D-03
        ws( 38) = 0.6746692368795783D-03
        ws( 39) = 0.7473054304434771D-03
        ws( 40) = 0.8314335580686460D-03
        ws( 41) = 0.9295652007042001D-03
        ws( 42) = 0.1044910090892037D-02
        ws( 43) = 0.1181614179190805D-02
        ws( 44) = 0.1345094620620902D-02
        ws( 45) = 0.1542517686090408D-02
        ws( 46) = 0.1783490071193229D-02
        ws( 47) = 0.2081072200285332D-02
        ws( 48) = 0.2453276866969268D-02
        ws( 49) = 0.2925284687839204D-02
        ws( 50) = 0.3532640070627138D-02
        ws( 51) = 0.4325399956023793D-02
        ws( 52) = 0.5371408886514658D-02
        ws( 53) = 0.6750783079218490D-02
        ws( 54) = 0.8521484227280517D-02
        ws( 55) = 0.1063352172339177D-01
        ws( 56) = 0.1283385886369974D-01
        ws( 57) = 0.1472520008649425D-01
        ws( 58) = 0.1602673670255069D-01
        ws( 59) = 0.1673189891094282D-01
        ws( 60) = 0.1700252143959165D-01
        ws( 61) = 0.1701463206640296D-01
        ws( 62) = 0.1689478117542201D-01
        ws( 63) = 0.1671869416322953D-01
        ws( 64) = 0.1652749789726882D-01
        ws( 65) = 0.1630448537812210D-01
        ws( 66) = 0.1591708499052114D-01
        ws( 67) = 0.1321733049819730D-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 =  71
        err = 0.3845025262004387D-10
        xs(  1) = 0.1674215476370733D-05
        xs(  2) = 0.8824240006895518D-05
        xs(  3) = 0.2169962325874522D-04
        xs(  4) = 0.4032413982147285D-04
        xs(  5) = 0.6472934064782654D-04
        xs(  6) = 0.9495780084957830D-04
        xs(  7) = 0.1310645620741595D-03
        xs(  8) = 0.1731185807564203D-03
        xs(  9) = 0.2212042862693586D-03
        xs( 10) = 0.2754232443186965D-03
        xs( 11) = 0.3358959176149678D-03
        xs( 12) = 0.4027635259864066D-03
        xs( 13) = 0.4761900196542486D-03
        xs( 14) = 0.5563641899694695D-03
        xs( 15) = 0.6435019511088761D-03
        xs( 16) = 0.7378488344142067D-03
        xs( 17) = 0.8396827446804355D-03
        xs( 18) = 0.9493170353032862D-03
        xs( 19) = 0.1067103967553367D-02
        xs( 20) = 0.1193438628808316D-02
        xs( 21) = 0.1328763396048925D-02
        xs( 22) = 0.1473573044977610D-02
        xs( 23) = 0.1628420622312270D-02
        xs( 24) = 0.1793924220303411D-02
        xs( 25) = 0.1970774819060806D-02
        xs( 26) = 0.2159745395224562D-02
        xs( 27) = 0.2361701536923874D-02
        xs( 28) = 0.2577613856271713D-02
        xs( 29) = 0.2808572555432979D-02
        xs( 30) = 0.3055804583657684D-02
        xs( 31) = 0.3320693926046683D-02
        xs( 32) = 0.3604805695775503D-02
        xs( 33) = 0.3909914870024118D-02
        xs( 34) = 0.4238040725868848D-02
        xs( 35) = 0.4591488313612415D-02
        xs( 36) = 0.4972898671406704D-02
        xs( 37) = 0.5385309966807555D-02
        xs( 38) = 0.5832232390319882D-02
        xs( 39) = 0.6317740480049907D-02
        xs( 40) = 0.6846587706825348D-02
        xs( 41) = 0.7424349720321473D-02
        xs( 42) = 0.8057604806722926D-02
        xs( 43) = 0.8754163103891831D-02
        xs( 44) = 0.9523360331358872D-02
        xs( 45) = 0.1037643777220138D-01
        xs( 46) = 0.1132703887768794D-01
        xs( 47) = 0.1239186548973085D-01
        xs( 48) = 0.1359155543658052D-01
        xs( 49) = 0.1495187156460568D-01
        xs( 50) = 0.1650533570149733D-01
        xs( 51) = 0.1829350869610434D-01
        xs( 52) = 0.2037022393664379D-01
        xs( 53) = 0.2280624693192403D-01
        xs( 54) = 0.2569608118070417D-01
        xs( 55) = 0.2916796045320188D-01
        xs( 56) = 0.3339822223352799D-01
        xs( 57) = 0.3863007142297777D-01
        xs( 58) = 0.4519068277013135D-01
        xs( 59) = 0.5348351980813816D-01
        xs( 60) = 0.6390748689946676D-01
        xs( 61) = 0.7666869737519116D-01
        xs( 62) = 0.9158337343980798D-01
        xs( 63) = 0.1080995163634825D+00
        xs( 64) = 0.1255584166796731D+00
        xs( 65) = 0.1434304621694363D+00
        xs( 66) = 0.1613801691244056D+00
        xs( 67) = 0.1792272003167985D+00
        xs( 68) = 0.1968861970079770D+00
        xs( 69) = 0.2143167217919313D+00
        xs( 70) = 0.2314511203735192D+00
        xs( 71) = 0.2476111563754412D+00
        ws(  1) = 0.4296907190124835D-05
        ws(  2) = 0.1000896994869888D-04
        ws(  3) = 0.1574552778513958D-04
        ws(  4) = 0.2150873237616718D-04
        ws(  5) = 0.2730874234434064D-04
        ws(  6) = 0.3315732761150190D-04
        ws(  7) = 0.3906766158056426D-04
        ws(  8) = 0.4505441960026151D-04
        ws(  9) = 0.5113388970185103D-04
        ws( 10) = 0.5732407254676768D-04
        ws( 11) = 0.6364477785504172D-04
        ws( 12) = 0.7011772882579811D-04
        ws( 13) = 0.7676668580541281D-04
        ws( 14) = 0.8361759906584336D-04
        ws( 15) = 0.9069879930093680D-04
        ws( 16) = 0.9804123367792937D-04
        ws( 17) = 0.1056787549425361D-03
        ws( 18) = 0.1136484714157815D-03
        ws( 19) = 0.1219911668267460D-03
        ws( 20) = 0.1307518003059203D-03
        ws( 21) = 0.1399800992493946D-03
        ws( 22) = 0.1497312605443629D-03
        ws( 23) = 0.1600667792635668D-03
        ws( 24) = 0.1710554288267376D-03
        ws( 25) = 0.1827744218999105D-03
        ws( 26) = 0.1953107890830912D-03
        ws( 27) = 0.2087630212652782D-03
        ws( 28) = 0.2232430331192088D-03
        ws( 29) = 0.2388785201823651D-03
        ws( 30) = 0.2558158008975373D-03
        ws( 31) = 0.2742232596320892D-03
        ws( 32) = 0.2942955385774983D-03
        ws( 33) = 0.3162586688856578D-03
        ws( 34) = 0.3403763860891594D-03
        ws( 35) = 0.3669579500336695D-03
        ws( 36) = 0.3963678872381003D-03
        ws( 37) = 0.4290382078973234D-03
        ws( 38) = 0.4654838340758835D-03
        ws( 39) = 0.5063222231263019D-03
        ws( 40) = 0.5522985247389497D-03
        ws( 41) = 0.6043180998986676D-03
        ws( 42) = 0.6634889177544867D-03
        ws( 43) = 0.7311773676072686D-03
        ws( 44) = 0.8090824577600774D-03
        ws( 45) = 0.8993355388589653D-03
        ws( 46) = 0.1004635894479253D-02
        ws( 47) = 0.1128437459080211D-02
        ws( 48) = 0.1275209473699256D-02
        ws( 49) = 0.1450805795377995D-02
        ws( 50) = 0.1662996485877448D-02
        ws( 51) = 0.1922245751441515D-02
        ws( 52) = 0.2242868038579163D-02
        ws( 53) = 0.2644765204814157D-02
        ws( 54) = 0.3156037695107905D-02
        ws( 55) = 0.3816787805718385D-02
        ws( 56) = 0.4683936247555377D-02
        ws( 57) = 0.5834294729730915D-02
        ws( 58) = 0.7355379129463972D-02
        ws( 59) = 0.9300110137994991D-02
        ws( 60) = 0.1158620069262242D-01
        ws( 61) = 0.1390536449849158D-01
        ws( 62) = 0.1582670577258629D-01
        ws( 63) = 0.1709151983072510D-01
        ws( 64) = 0.1773720456724943D-01
        ws( 65) = 0.1795185138650700D-01
        ws( 66) = 0.1791858621737825D-01
        ws( 67) = 0.1776250826994576D-01
        ws( 68) = 0.1754845029813000D-01
        ws( 69) = 0.1728228470781631D-01
        ws( 70) = 0.1689674349792259D-01
        ws( 71) = 0.1443111145885828D-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 =  75
        err = 0.5146088842643965D-10
        xs(  1) = 0.1443518290462360D-05
        xs(  2) = 0.7607795197428572D-05
        xs(  3) = 0.1870597541575882D-04
        xs(  4) = 0.3475484950881096D-04
        xs(  5) = 0.5577611129596457D-04
        xs(  6) = 0.8179900188429800D-04
        xs(  7) = 0.1128613624131523D-03
        xs(  8) = 0.1490106628762605D-03
        xs(  9) = 0.1903050997209440D-03
        xs( 10) = 0.2368147580975739D-03
        xs( 11) = 0.2886228287251862D-03
        xs( 12) = 0.3458268752986975D-03
        xs( 13) = 0.4085401559521317D-03
        xs( 14) = 0.4768930093849006D-03
        xs( 15) = 0.5510343223555058D-03
        xs( 16) = 0.6311331003728665D-03
        xs( 17) = 0.7173801678819534D-03
        xs( 18) = 0.8099900282740746D-03
        xs( 19) = 0.9092029180398665D-03
        xs( 20) = 0.1015287093701811D-02
        xs( 21) = 0.1128541395035109D-02
        xs( 22) = 0.1249298133899601D-02
        xs( 23) = 0.1377926365035483D-02
        xs( 24) = 0.1514835603732462D-02
        xs( 25) = 0.1660480065835712D-02
        xs( 26) = 0.1815363518361504D-02
        xs( 27) = 0.1980044844939728D-02
        xs( 28) = 0.2155144449616590D-02
        xs( 29) = 0.2341351646511695D-02
        xs( 30) = 0.2539433212467193D-02
        xs( 31) = 0.2750243316022772D-02
        xs( 32) = 0.2974735081845916D-02
        xs( 33) = 0.3213974105861053D-02
        xs( 34) = 0.3469154307497716D-02
        xs( 35) = 0.3741616594654955D-02
        xs( 36) = 0.4032870929763013D-02
        xs( 37) = 0.4344622529603816D-02
        xs( 38) = 0.4678803115666992D-02
        xs( 39) = 0.5037608369335699D-02
        xs( 40) = 0.5423543056389334D-02
        xs( 41) = 0.5839475687419939D-02
        xs( 42) = 0.6288705114487550D-02
        xs( 43) = 0.6775042172946715D-02
        xs( 44) = 0.7302910426141080D-02
        xs( 45) = 0.7877471355356942D-02
        xs( 46) = 0.8504781097461570D-02
        xs( 47) = 0.9191988255488451D-02
        xs( 48) = 0.9947585708982016D-02
        xs( 49) = 0.1078173415669846D-01
        xs( 50) = 0.1170668201622720D-01
        xs( 51) = 0.1273731636534645D-01
        xs( 52) = 0.1389189448945447D-01
        xs( 53) = 0.1519302801640156D-01
        xs( 54) = 0.1666902602236015D-01
        xs( 55) = 0.1835575722877362D-01
        xs( 56) = 0.2029927696236703D-01
        xs( 57) = 0.2255960151803181D-01
        xs( 58) = 0.2521623042838008D-01
        xs( 59) = 0.2837635150334471D-01
        xs( 60) = 0.3218709307057502D-01
        xs( 61) = 0.3685323393414610D-01
        xs( 62) = 0.4265939175687059D-01
        xs( 63) = 0.4998598489649305D-01
        xs( 64) = 0.5928498798726205D-01
        xs( 65) = 0.7095709458004097D-01
        xs( 66) = 0.8511959237016752D-01
        xs( 67) = 0.1014354392572453D+00
        xs( 68) = 0.1192351816638532D+00
        xs( 69) = 0.1378300240796042D+00
        xs( 70) = 0.1567142415220276D+00
        xs( 71) = 0.1755865129853746D+00
        xs( 72) = 0.1942903893510376D+00
        xs( 73) = 0.2127342214107892D+00
        xs( 74) = 0.2308116990371879D+00
        xs( 75) = 0.2477389882645857D+00
        ws(  1) = 0.3704759624472269D-05
        ws(  2) = 0.8628483500747339D-05
        ws(  3) = 0.1357047794484968D-04
        ws(  4) = 0.1853086137359581D-04
        ws(  5) = 0.2351651927024249D-04
        ws(  6) = 0.2853555169628185D-04
        ws(  7) = 0.3359706270764299D-04
        ws(  8) = 0.3871121822930482D-04
        ws(  9) = 0.4388931602838225D-04
        ws( 10) = 0.4914384472899746D-04
        ws( 11) = 0.5448853514226946D-04
        ws( 12) = 0.5993841129919874D-04
        ws( 13) = 0.6550984871922637D-04
        ws( 14) = 0.7122064649067063D-04
        ws( 15) = 0.7709011876999241D-04
        ws( 16) = 0.8313921042040308D-04
        ws( 17) = 0.8939064101961918D-04
        ws( 18) = 0.9586908116702725D-04
        ws( 19) = 0.1026013651818297D-03
        ws( 20) = 0.1096167447578013D-03
        ws( 21) = 0.1169471888589830D-03
        ws( 22) = 0.1246277362119571D-03
        ws( 23) = 0.1326969081502601D-03
        ws( 24) = 0.1411971912880618D-03
        ws( 25) = 0.1501756016225940D-03
        ws( 26) = 0.1596843443195521D-03
        ws( 27) = 0.1697815867706783D-03
        ws( 28) = 0.1805323662288118D-03
        ws( 29) = 0.1920096588339553D-03
        ws( 30) = 0.2042956425043677D-03
        ws( 31) = 0.2174831943800582D-03
        ws( 32) = 0.2316776735070355D-03
        ws( 33) = 0.2469990514019087D-03
        ws( 34) = 0.2635844704837676D-03
        ws( 35) = 0.2815913297377452D-03
        ws( 36) = 0.3012010251539294D-03
        ws( 37) = 0.3226235073139807D-03
        ws( 38) = 0.3461028640236011D-03
        ws( 39) = 0.3719241989241296D-03
        ws( 40) = 0.4004221576428297D-03
        ws( 41) = 0.4319915619365181D-03
        ws( 42) = 0.4671007648720935D-03
        ws( 43) = 0.5063085427715604D-03
        ws( 44) = 0.5502856204867591D-03
        ws( 45) = 0.5998423275013799D-03
        ws( 46) = 0.6559644351124884D-03
        ws( 47) = 0.7198600259097272D-03
        ws( 48) = 0.7930214132801755D-03
        ws( 49) = 0.8773078178841563D-03
        ws( 50) = 0.9750570551132631D-03
        ws( 51) = 0.1089238367849724D-02
        ws( 52) = 0.1223664469017399D-02
        ws( 53) = 0.1383290292738036D-02
        ws( 54) = 0.1574640936784563D-02
        ws( 55) = 0.1806435839783802D-02
        ws( 56) = 0.2090516475500908D-02
        ws( 57) = 0.2443249096013767D-02
        ws( 58) = 0.2887673267400472D-02
        ws( 59) = 0.3456795410687382D-02
        ws( 60) = 0.4198428237285711D-02
        ws( 61) = 0.5180948449160390D-02
        ws( 62) = 0.6495012150965909D-02
        ws( 63) = 0.8235445133432199D-02
        ws( 64) = 0.1043363166494346D-01
        ws( 65) = 0.1293380391759023D-01
        ws( 66) = 0.1533266099382548D-01
        ws( 67) = 0.1718123967768707D-01
        ws( 68) = 0.1830000199608391D-01
        ws( 69) = 0.1880537446172459D-01
        ws( 70) = 0.1891407126931238D-01
        ws( 71) = 0.1880580496858166D-01
        ws( 72) = 0.1859426574813989D-01
        ws( 73) = 0.1829791146476764D-01
        ws( 74) = 0.1775199485838573D-01
        ws( 75) = 0.1410822009804810D-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 =  79
        err = 0.5064533825218993D-10
        xs(  1) = 0.1257590953171461D-05
        xs(  2) = 0.6627547377471233D-05
        xs(  3) = 0.1629418272177736D-04
        xs(  4) = 0.3026959740769431D-04
        xs(  5) = 0.4856894331481496D-04
        xs(  6) = 0.7121262791005226D-04
        xs(  7) = 0.9822710945020790D-04
        xs(  8) = 0.1296456526572188D-03
        xs(  9) = 0.1655091282694231D-03
        xs( 10) = 0.2058668539654721D-03
        xs( 11) = 0.2507774672180733D-03
        xs( 12) = 0.3003098241531285D-03
        xs( 13) = 0.3545439236203673D-03
        xs( 14) = 0.4135718606190207D-03
        xs( 15) = 0.4774988174338388D-03
        xs( 16) = 0.5464441043328018D-03
        xs( 17) = 0.6205422645596537D-03
        xs( 18) = 0.6999442607961670D-03
        xs( 19) = 0.7848187623962525D-03
        xs( 20) = 0.8753535548637251D-03
        xs( 21) = 0.9717570953164992D-03
        xs( 22) = 0.1074260240225471D-02
        xs( 23) = 0.1183118174789841D-02
        xs( 24) = 0.1298612576961773D-02
        xs( 25) = 0.1421054053565764D-02
        xs( 26) = 0.1550784891417166D-02
        xs( 27) = 0.1688182172811571D-02
        xs( 28) = 0.1833661312816212D-02
        xs( 29) = 0.1987680085438821D-02
        xs( 30) = 0.2150743217489128D-02
        xs( 31) = 0.2323407643293893D-02
        xs( 32) = 0.2506288530613657D-02
        xs( 33) = 0.2700066209778078D-02
        xs( 34) = 0.2905494163670455D-02
        xs( 35) = 0.3123408268513026D-02
        xs( 36) = 0.3354737514878209D-02
        xs( 37) = 0.3600516487400695D-02
        xs( 38) = 0.3861899942991957D-02
        xs( 39) = 0.4140179903768479D-02
        xs( 40) = 0.4436805777680339D-02
        xs( 41) = 0.4753408141924680D-02
        xs( 42) = 0.5091826979923818D-02
        xs( 43) = 0.5454145362955420D-02
        xs( 44) = 0.5842729825242147D-02
        xs( 45) = 0.6260279015738760D-02
        xs( 46) = 0.6709882651303615D-02
        xs( 47) = 0.7195093374348009D-02
        xs( 48) = 0.7720014891837681D-02
        xs( 49) = 0.8289410813327831D-02
        xs( 50) = 0.8908840008731678D-02
        xs( 51) = 0.9584826250096202D-02
        xs( 52) = 0.1032507257769394D-01
        xs( 53) = 0.1113873460066949D-01
        xs( 54) = 0.1203677231311722D-01
        xs( 55) = 0.1303240773427707D-01
        xs( 56) = 0.1414172707551903D-01
        xs( 57) = 0.1538448312260414D-01
        xs( 58) = 0.1678517941172955D-01
        xs( 59) = 0.1837455787968646D-01
        xs( 60) = 0.2019167505788321D-01
        xs( 61) = 0.2228685386983552D-01
        xs( 62) = 0.2472596222320154D-01
        xs( 63) = 0.2759673134341795D-01
        xs( 64) = 0.3101822893641428D-01
        xs( 65) = 0.3515507257280372D-01
        xs( 66) = 0.4023771621514362D-01
        xs( 67) = 0.4658647444760077D-01
        xs( 68) = 0.5462401014186801D-01
        xs( 69) = 0.6483407881866907D-01
        xs( 70) = 0.7760663493895283D-01
        xs( 71) = 0.9298570816200576D-01
        xs( 72) = 0.1105316196482687D+00
        xs( 73) = 0.1295045297430503D+00
        xs( 74) = 0.1491969864568270D+00
        xs( 75) = 0.1691144133930825D+00
        xs( 76) = 0.1889733899775781D+00
        xs( 77) = 0.2086252714562377D+00
        xs( 78) = 0.2279480002697698D+00
        xs( 79) = 0.2463028720545016D+00
        ws(  1) = 0.3227540896015384D-05
        ws(  2) = 0.7516228058287948D-05
        ws(  3) = 0.1181888858979709D-04
        ws(  4) = 0.1613444641558265D-04
        ws(  5) = 0.2046763435642962D-04
        ws(  6) = 0.2482413202289268D-04
        ws(  7) = 0.2921036183174756D-04
        ws(  8) = 0.3363352233178687D-04
        ws(  9) = 0.3810163394398587D-04
        ws( 10) = 0.4262357537849611D-04
        ws( 11) = 0.4720911175648161D-04
        ws( 12) = 0.5186891938263204D-04
        ws( 13) = 0.5661461222865004D-04
        ws( 14) = 0.6145877484112742D-04
        ws( 15) = 0.6641500545723699D-04
        ws( 16) = 0.7149797248532242D-04
        ws( 17) = 0.7672348701275944D-04
        ws( 18) = 0.8210859358436134D-04
        ws( 19) = 0.8767168133799855D-04
        ws( 20) = 0.9343261772386194D-04
        ws( 21) = 0.9941290718153305D-04
        ws( 22) = 0.1056358775245153D-03
        ws( 23) = 0.1121268974297761D-03
        ws( 24) = 0.1189136289830422D-03
        ws( 25) = 0.1260263202391360D-03
        ws( 26) = 0.1334981437171684D-03
        ws( 27) = 0.1413655879994992D-03
        ws( 28) = 0.1496689113351907D-03
        ws( 29) = 0.1584526677272813D-03
        ws( 30) = 0.1677663186431479D-03
        ws( 31) = 0.1776649458123120D-03
        ws( 32) = 0.1882100844982625D-03
        ws( 33) = 0.1994707008390228D-03
        ws( 34) = 0.2115243416235575D-03
        ws( 35) = 0.2244584926327930D-03
        ws( 36) = 0.2383721888816083D-03
        ws( 37) = 0.2533779319771557D-03
        ws( 38) = 0.2696039823792525D-03
        ws( 39) = 0.2871971126381008D-03
        ws( 40) = 0.3063259297742973D-03
        ws( 41) = 0.3271849041990465D-03
        ws( 42) = 0.3499992811576067D-03
        ws( 43) = 0.3750311011803693D-03
        ws( 44) = 0.4025866217932052D-03
        ws( 45) = 0.4330255223152183D-03
        ws( 46) = 0.4667723972880702D-03
        ws( 47) = 0.5043311996314068D-03
        ws( 48) = 0.5463035325260047D-03
        ws( 49) = 0.5934119858434384D-03
        ws( 50) = 0.6465301607335774D-03
        ws( 51) = 0.7067216528027713D-03
        ws( 52) = 0.7752911371911286D-03
        ws( 53) = 0.8538520371792699D-03
        ws( 54) = 0.9444171506751683D-03
        ws( 55) = 0.1049521542632817D-02
        ws( 56) = 0.1172391482194739D-02
        ws( 57) = 0.1317180166348161D-02
        ws( 58) = 0.1489302124596788D-02
        ws( 59) = 0.1695916073056951D-02
        ws( 60) = 0.1946635767611013D-02
        ws( 61) = 0.2254597122990526D-02
        ws( 62) = 0.2638087494225166D-02
        ws( 63) = 0.3123062758724867D-02
        ws( 64) = 0.3747028448653012D-02
        ws( 65) = 0.4564638077628050D-02
        ws( 66) = 0.5653728611144770D-02
        ws( 67) = 0.7114741720275568D-02
        ws( 68) = 0.9043493727179608D-02
        ws( 69) = 0.1144640555967388D-01
        ws( 70) = 0.1410911025341891D-01
        ws( 71) = 0.1657211393340594D-01
        ws( 72) = 0.1838990210037828D-01
        ws( 73) = 0.1943506679398900D-01
        ws( 74) = 0.1986782061379838D-01
        ws( 75) = 0.1992136189441498D-01
        ws( 76) = 0.1977562364793067D-01
        ws( 77) = 0.1951941901377985D-01
        ws( 78) = 0.1909601664716950D-01
        ws( 79) = 0.1618936855420566D-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 =  83
        err = 0.5931110914736248D-10
        xs(  1) = 0.1108494976751620D-05
        xs(  2) = 0.5841534126984961D-05
        xs(  3) = 0.1436051676551282D-04
        xs(  4) = 0.2667416996105476D-04
        xs(  5) = 0.4279299635052891D-04
        xs(  6) = 0.6273116247121126D-04
        xs(  7) = 0.8650713178749553D-04
        xs(  8) = 0.1141442511365816D-03
        xs(  9) = 0.1456713652823344D-03
        xs( 10) = 0.1811234578060188D-03
        xs( 11) = 0.2205423097107809D-03
        xs( 12) = 0.2639771694314068D-03
        xs( 13) = 0.3114854317207541D-03
        xs( 14) = 0.3631333266275189D-03
        xs( 15) = 0.4189966229031638D-03
        xs( 16) = 0.4791613527702313D-03
        xs( 17) = 0.5437245669482197D-03
        xs( 18) = 0.6127951304936151D-03
        xs( 19) = 0.6864945712781939D-03
        xs( 20) = 0.7649579940358034D-03
        xs( 21) = 0.8483350741105350D-03
        xs( 22) = 0.9367911461903945D-03
        xs( 23) = 0.1030508404670591D-02
        xs( 24) = 0.1129687233980906D-02
        xs( 25) = 0.1234547689164277D-02
        xs( 26) = 0.1345331149380122D-02
        xs( 27) = 0.1462302169981850D-02
        xs( 28) = 0.1585750562260499D-02
        xs( 29) = 0.1715993734263257D-02
        xs( 30) = 0.1853379331167976D-02
        xs( 31) = 0.1998288219865188D-02
        xs( 32) = 0.2151137869755463D-02
        xs( 33) = 0.2312386190566856D-02
        xs( 34) = 0.2482535898988696D-02
        xs( 35) = 0.2662139498400772D-02
        xs( 36) = 0.2851804971975252D-02
        xs( 37) = 0.3052202308483707D-02
        xs( 38) = 0.3264071002972233D-02
        xs( 39) = 0.3488228703117754D-02
        xs( 40) = 0.3725581207495917D-02
        xs( 41) = 0.3977134063982828D-02
        xs( 42) = 0.4244006071156855D-02
        xs( 43) = 0.4527445052352301D-02
        xs( 44) = 0.4828846355068304D-02
        xs( 45) = 0.5149774634316598D-02
        xs( 46) = 0.5491989613879707D-02
        xs( 47) = 0.5857476689073762D-02
        xs( 48) = 0.6248483454342690D-02
        xs( 49) = 0.6667563526384196D-02
        xs( 50) = 0.7117629401229143D-02
        xs( 51) = 0.7602016572238287D-02
        xs( 52) = 0.8124561785690024D-02
        xs( 53) = 0.8689699168008614D-02
        xs( 54) = 0.9302579129346757D-02
        xs( 55) = 0.9969216540194113D-02
        xs( 56) = 0.1069667686901469D-01
        xs( 57) = 0.1149331204029024D-01
        xs( 58) = 0.1236906210089559D-01
        xs( 59) = 0.1333584503074964D-01
        xs( 60) = 0.1440806614729705D-01
        xs( 61) = 0.1560329200501145D-01
        xs( 62) = 0.1694315427222489D-01
        xs( 63) = 0.1845458059675081D-01
        xs( 64) = 0.2017149919999631D-01
        xs( 65) = 0.2213724398899851D-01
        xs( 66) = 0.2440801647276337D-01
        xs( 67) = 0.2705796935662286D-01
        xs( 68) = 0.3018681156594541D-01
        xs( 69) = 0.3393134851694189D-01
        xs( 70) = 0.3848285717937009D-01
        xs( 71) = 0.4411130929197269D-01
        xs( 72) = 0.5119120568937112D-01
        xs( 73) = 0.6020522192208448D-01
        xs( 74) = 0.7167064094038902D-01
        xs( 75) = 0.8593130212556259D-01
        xs( 76) = 0.1028833474840005D+00
        xs( 77) = 0.1219124186903562D+00
        xs( 78) = 0.1421875301070867D+00
        xs( 79) = 0.1630074775626469D+00
        xs( 80) = 0.1839234325930760D+00
        xs( 81) = 0.2046874671418976D+00
        xs( 82) = 0.2251114218062866D+00
        xs( 83) = 0.2445283087137235D+00
        ws(  1) = 0.2844862910970873D-05
        ws(  2) = 0.6624437409147149D-05
        ws(  3) = 0.1041483250852545D-04
        ws(  4) = 0.1421420788595007D-04
        ws(  5) = 0.1802579629114775D-04
        ws(  6) = 0.2185360348936473D-04
        ws(  7) = 0.2570221601898243D-04
        ws(  8) = 0.2957681943691418D-04
        ws(  9) = 0.3348322846097091D-04
        ws( 10) = 0.3742790891472610D-04
        ws( 11) = 0.4141799165653501D-04
        ws( 12) = 0.4546128210216921D-04
        ws( 13) = 0.4956626911081116D-04
        ws( 14) = 0.5374213676905393D-04
        ws( 15) = 0.5799878192907958D-04
        ws( 16) = 0.6234683969065605D-04
        ws( 17) = 0.6679771872848881D-04
        ws( 18) = 0.7136364780613061D-04
        ws( 19) = 0.7605773469319046D-04
        ws( 20) = 0.8089403860782939D-04
        ws( 21) = 0.8588765736018194D-04
        ws( 22) = 0.9105483040703625D-04
        ws( 23) = 0.9641305933520639D-04
        ws( 24) = 0.1019812476288408D-03
        ws( 25) = 0.1077798617987141D-03
        ws( 26) = 0.1138311166092575D-03
        ws( 27) = 0.1201591875540119D-03
        ws( 28) = 0.1267904544440009D-03
        ws( 29) = 0.1337537808047409D-03
        ws( 30) = 0.1410808346158657D-03
        ws( 31) = 0.1488064572203831D-03
        ws( 32) = 0.1569690882705218D-03
        ws( 33) = 0.1656112567096221D-03
        ws( 34) = 0.1747801494275444D-03
        ws( 35) = 0.1845282714972795D-03
        ws( 36) = 0.1949142158388913D-03
        ws( 37) = 0.2060035627371455D-03
        ws( 38) = 0.2178699347990089D-03
        ws( 39) = 0.2305962393307290D-03
        ws( 40) = 0.2442761365889803D-03
        ws( 41) = 0.2590157809860036D-03
        ws( 42) = 0.2749358969125529D-03
        ws( 43) = 0.2921742619829779D-03
        ws( 44) = 0.3108886919657500D-03
        ws( 45) = 0.3312606463403207D-03
        ws( 46) = 0.3534996064461607D-03
        ws( 47) = 0.3778484167299974D-03
        ws( 48) = 0.4045898408734595D-03
        ws( 49) = 0.4340546573580555D-03
        ws( 50) = 0.4666317123872885D-03
        ws( 51) = 0.5027804967470139D-03
        ws( 52) = 0.5430469847178730D-03
        ws( 53) = 0.5880837323613403D-03
        ws( 54) = 0.6386755939406159D-03
        ws( 55) = 0.6957729124372402D-03
        ws( 56) = 0.7605347568847201D-03
        ws( 57) = 0.8343858366693861D-03
        ws( 58) = 0.9190922284310549D-03
        ws( 59) = 0.1016863437797628D-02
        ws( 60) = 0.1130491713849773D-02
        ws( 61) = 0.1263545102968965D-02
        ws( 62) = 0.1420639484126240D-02
        ws( 63) = 0.1607828600852578D-02
        ws( 64) = 0.1833174522926816D-02
        ws( 65) = 0.2107599309051656D-02
        ws( 66) = 0.2446180997436733D-02
        ws( 67) = 0.2870155467084712D-02
        ws( 68) = 0.3410044497335735D-02
        ws( 69) = 0.4110497664183078D-02
        ws( 70) = 0.5037035370150507D-02
        ws( 71) = 0.6282089417363059D-02
        ws( 72) = 0.7959184579144322D-02
        ws( 73) = 0.1015861095034847D-01
        ws( 74) = 0.1283491676288562D-01
        ws( 75) = 0.1567076384575102D-01
        ws( 76) = 0.1812495354843536D-01
        ws( 77) = 0.1978812407119278D-01
        ws( 78) = 0.2064350692999194D-01
        ws( 79) = 0.2092263456400592D-01
        ws( 80) = 0.2086952206284768D-01
        ws( 81) = 0.2064277678208976D-01
        ws( 82) = 0.2018892081410777D-01
        ws( 83) = 0.1719380290990659D-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 =  87
        err = 0.8232660195291398D-10
        xs(  1) = 0.9831419614703737D-06
        xs(  2) = 0.5180781599427532D-05
        xs(  3) = 0.1273540658973266D-04
        xs(  4) = 0.2365354502943863D-04
        xs(  5) = 0.3794271173530656D-04
        xs(  6) = 0.5561303324768312D-04
        xs(  7) = 0.7667774933196179D-04
        xs(  8) = 0.1011536655821130D-03
        xs(  9) = 0.1290616253984267D-03
        xs( 10) = 0.1604270009761570D-03
        xs( 11) = 0.1952801960416211D-03
        xs( 12) = 0.2336571542981881D-03
        xs( 13) = 0.2755998703427639D-03
        xs( 14) = 0.3211569024837702D-03
        xs( 15) = 0.3703838893746185D-03
        xs( 16) = 0.4233440742990177D-03
        xs( 17) = 0.4801088424840234D-03
        xs( 18) = 0.5407582779875763D-03
        xs( 19) = 0.6053817476369229D-03
        xs( 20) = 0.6740785201519610D-03
        xs( 21) = 0.7469584292907721D-03
        xs( 22) = 0.8241425904075330D-03
        xs( 23) = 0.9057641804867247D-03
        xs( 24) = 0.9919692925163526D-03
        xs( 25) = 0.1082917875949221D-02
        xs( 26) = 0.1178784776063874D-02
        xs( 27) = 0.1279760886525228D-02
        xs( 28) = 0.1386054430947788D-02
        xs( 29) = 0.1497892391236097D-02
        xs( 30) = 0.1615522102965292D-02
        xs( 31) = 0.1739213040698933D-02
        xs( 32) = 0.1869258819605260D-02
        xs( 33) = 0.2005979443750110D-02
        xs( 34) = 0.2149723836031949D-02
        xs( 35) = 0.2300872690561990D-02
        xs( 36) = 0.2459841694935474D-02
        xs( 37) = 0.2627085178019951D-02
        xs( 38) = 0.2803100248315468D-02
        xs( 39) = 0.2988431499937951D-02
        xs( 40) = 0.3183676376890978D-02
        xs( 41) = 0.3389491303744796D-02
        xs( 42) = 0.3606598711050135D-02
        xs( 43) = 0.3835795108951285D-02
        xs( 44) = 0.4077960393881447D-02
        xs( 45) = 0.4334068610602035D-02
        xs( 46) = 0.4605200438538952D-02
        xs( 47) = 0.4892557730702824D-02
        xs( 48) = 0.5197480505004838D-02
        xs( 49) = 0.5521466879585085D-02
        xs( 50) = 0.5866196559797253D-02
        xs( 51) = 0.6233558631004928D-02
        xs( 52) = 0.6625684598282922D-02
        xs( 53) = 0.7044987855446297D-02
        xs( 54) = 0.7494211082166398D-02
        xs( 55) = 0.7976483473622889D-02
        xs( 56) = 0.8495390250433624D-02
        xs( 57) = 0.9055057613913862D-02
        xs( 58) = 0.9660257274503399D-02
        xs( 59) = 0.1031653599213824D-01
        xs( 60) = 0.1103037735386078D-01
        xs( 61) = 0.1180940551267787D-01
        xs( 62) = 0.1266264411616852D-01
        xs( 63) = 0.1360084862763084D-01
        xs( 64) = 0.1463693752099047D-01
        xs( 65) = 0.1578655849831381D-01
        xs( 66) = 0.1706884202546095D-01
        xs( 67) = 0.1850741918564561D-01
        xs( 68) = 0.2013181982971510D-01
        xs( 69) = 0.2197942963520859D-01
        xs( 70) = 0.2409828624098664D-01
        xs( 71) = 0.2655116590068444D-01
        xs( 72) = 0.2942169907827727D-01
        xs( 73) = 0.3282371901455735D-01
        xs( 74) = 0.3691570900073706D-01
        xs( 75) = 0.4192255883930102D-01
        xs( 76) = 0.4816473771842574D-01
        xs( 77) = 0.5608505006095306D-01
        xs( 78) = 0.6623678142708674D-01
        xs( 79) = 0.7916101714763223D-01
        xs( 80) = 0.9510694126809874D-01
        xs( 81) = 0.1137568246402922D+00
        xs( 82) = 0.1343055299827457D+00
        xs( 83) = 0.1558707636487875D+00
        xs( 84) = 0.1777976995575810D+00
        xs( 85) = 0.1996927081434226D+00
        xs( 86) = 0.2212655667762525D+00
        xs( 87) = 0.2418789924388010D+00
        ws(  1) = 0.2523135324621366D-05
        ws(  2) = 0.5874891854050955D-05
        ws(  3) = 0.9235313838048801D-05
        ws(  4) = 0.1260220177084100D-04
        ws(  5) = 0.1597781180143748D-04
        ws(  6) = 0.1936503037114534D-04
        ws(  7) = 0.2276719485194678D-04
        ws(  8) = 0.2618810334765747D-04
        ws(  9) = 0.2963203659220497D-04
        ws( 10) = 0.3310377337078951D-04
        ws( 11) = 0.3660859885790787D-04
        ws( 12) = 0.4015230821239654D-04
        ws( 13) = 0.4374120832700289D-04
        ws( 14) = 0.4738212033688287D-04
        ws( 15) = 0.5108238505348906D-04
        ws( 16) = 0.5484987307281098D-04
        ws( 17) = 0.5869300092638359D-04
        ws( 18) = 0.6262075425257193D-04
        ws( 19) = 0.6664271880111989D-04
        ws( 20) = 0.7076911993849734D-04
        ws( 21) = 0.7501087125877976D-04
        ws( 22) = 0.7937963292541459D-04
        ws( 23) = 0.8388788041889711D-04
        ws( 24) = 0.8854898459523362D-04
        ws( 25) = 0.9337730397903564D-04
        ws( 26) = 0.9838829054283162D-04
        ws( 27) = 0.1035986105575799D-03
        ws( 28) = 0.1090262820703377D-03
        ws( 29) = 0.1146908314098529D-03
        ws( 30) = 0.1206134711879790D-03
        ws( 31) = 0.1268173027501862D-03
        ws( 32) = 0.1333275470039302D-03
        ws( 33) = 0.1401718076745661D-03
        ws( 34) = 0.1473803723368819D-03
        ws( 35) = 0.1549865573463080D-03
        ws( 36) = 0.1630271040881852D-03
        ws( 37) = 0.1715426352760083D-03
        ws( 38) = 0.1805781818531667D-03
        ws( 39) = 0.1901837935187522D-03
        ws( 40) = 0.2004152477544874D-03
        ws( 41) = 0.2113348769261812D-03
        ws( 42) = 0.2230125347902782D-03
        ws( 43) = 0.2355267316884446D-03
        ws( 44) = 0.2489659716394924D-03
        ws( 45) = 0.2634303336699469D-03
        ws( 46) = 0.2790333490143116D-03
        ws( 47) = 0.2959042408131490D-03
        ws( 48) = 0.3141906044801740D-03
        ws( 49) = 0.3340616345768193D-03
        ws( 50) = 0.3557120255335495D-03
        ws( 51) = 0.3793667134456939D-03
        ws( 52) = 0.4052866679379567D-03
        ws( 53) = 0.4337760116038626D-03
        ws( 54) = 0.4651908233019347D-03
        ws( 55) = 0.4999500901579183D-03
        ws( 56) = 0.5385494343036378D-03
        ws( 57) = 0.5815784356589053D-03
        ws( 58) = 0.6297426719564572D-03
        ws( 59) = 0.6838919964675304D-03
        ws( 60) = 0.7450571460853690D-03
        ws( 61) = 0.8144976335491699D-03
        ws( 62) = 0.8937650479502106D-03
        ws( 63) = 0.9847877384117410D-03
        ws( 64) = 0.1089985617635949D-02
        ws( 65) = 0.1212428050594200D-02
        ws( 66) = 0.1356054626514966D-02
        ws( 67) = 0.1525989358248873D-02
        ws( 68) = 0.1728997303896572D-02
        ws( 69) = 0.1974162158970834D-02
        ws( 70) = 0.2273914596783035D-02
        ws( 71) = 0.2645631779869291D-02
        ws( 72) = 0.3114172003370380D-02
        ws( 73) = 0.3715922120839527D-02
        ws( 74) = 0.4505036708161469D-02
        ws( 75) = 0.5561551122711783D-02
        ws( 76) = 0.6996616926372901D-02
        ws( 77) = 0.8938069246196808D-02
        ws( 78) = 0.1146055339757059D-01
        ws( 79) = 0.1443521218018300D-01
        ws( 80) = 0.1740238348922296D-01
        ws( 81) = 0.1975481177184555D-01
        ws( 82) = 0.2119020144499938D-01
        ws( 83) = 0.2183107028919118D-01
        ws( 84) = 0.2196085002404846D-01
        ws( 85) = 0.2180852992044835D-01
        ws( 86) = 0.2127815890508169D-01
        ws( 87) = 0.1741293794393171D-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 =  91
        err = 0.9859258473929991D-10
        xs(  1) = 0.8794259922137852D-06
        xs(  2) = 0.4634104687438263D-05
        xs(  3) = 0.1139097083210018D-04
        xs(  4) = 0.2115491071928478D-04
        xs(  5) = 0.3393123976846256D-04
        xs(  6) = 0.4972712553043437D-04
        xs(  7) = 0.6855199893075337D-04
        xs(  8) = 0.9041791644946292D-04
        xs(  9) = 0.1153399354877747D-03
        xs( 10) = 0.1433365034468583D-03
        xs( 11) = 0.1744298543683175D-03
        xs( 12) = 0.2086464077248797D-03
        xs( 13) = 0.2460171659569227D-03
        xs( 14) = 0.2865781095035353D-03
        xs( 15) = 0.3303705899261894D-03
        xs( 16) = 0.3774417233260224D-03
        xs( 17) = 0.4278447874052067D-03
        xs( 18) = 0.4816396264424262D-03
        xs( 19) = 0.5388930691278710D-03
        xs( 20) = 0.5996793647165140D-03
        xs( 21) = 0.6640806432981472D-03
        xs( 22) = 0.7321874063275189D-03
        xs( 23) = 0.8040990539424585D-03
        xs( 24) = 0.8799244558878648D-03
        xs( 25) = 0.9597825733349980D-03
        xs( 26) = 0.1043803139387250D-02
        xs( 27) = 0.1132127406710571D-02
        xs( 28) = 0.1224908971556444D-02
        xs( 29) = 0.1322314684275191D-02
        xs( 30) = 0.1424525657686696D-02
        xs( 31) = 0.1531738385979489D-02
        xs( 32) = 0.1644165988328907D-02
        xs( 33) = 0.1762039593590656D-02
        xs( 34) = 0.1885609884410081D-02
        xs( 35) = 0.2015148821825589D-02
        xs( 36) = 0.2150951574738841D-02
        xs( 37) = 0.2293338682152965D-02
        xs( 38) = 0.2442658480614855D-02
        xs( 39) = 0.2599289834211455D-02
        xs( 40) = 0.2763645211198215D-02
        xs( 41) = 0.2936174158105868D-02
        xs( 42) = 0.3117367231242840D-02
        xs( 43) = 0.3307760456202680D-02
        xs( 44) = 0.3507940398134184D-02
        xs( 45) = 0.3718549941363929D-02
        xs( 46) = 0.3940294895338494D-02
        xs( 47) = 0.4173951565729423D-02
        xs( 48) = 0.4420375457910757D-02
        xs( 49) = 0.4680511313442538D-02
        xs( 50) = 0.4955404720817708D-02
        xs( 51) = 0.5246215594964561D-02
        xs( 52) = 0.5554233881566658D-02
        xs( 53) = 0.5880897924830332D-02
        xs( 54) = 0.6227816036244224D-02
        xs( 55) = 0.6596791929785775D-02
        xs( 56) = 0.6989854852574183D-02
        xs( 57) = 0.7409295446500647D-02
        xs( 58) = 0.7857708647586212D-02
        xs( 59) = 0.8338045278205378D-02
        xs( 60) = 0.8853674450039775D-02
        xs( 61) = 0.9408459501856745D-02
        xs( 62) = 0.1000685101079570D-01
        xs( 63) = 0.1065400151376516D-01
        xs( 64) = 0.1135590807413517D-01
        xs( 65) = 0.1211959090376610D-01
        xs( 66) = 0.1295331914464152D-01
        xs( 67) = 0.1386689903198816D-01
        xs( 68) = 0.1487204558987346D-01
        xs( 69) = 0.1598286769668945D-01
        xs( 70) = 0.1721650946907787D-01
        xs( 71) = 0.1859401092509058D-01
        xs( 72) = 0.2014148193240349D-01
        xs( 73) = 0.2189173390293680D-01
        xs( 74) = 0.2388659647038768D-01
        xs( 75) = 0.2618028527568529D-01
        xs( 76) = 0.2884442362269913D-01
        xs( 77) = 0.3197571766018161D-01
        xs( 78) = 0.3570793686362038D-01
        xs( 79) = 0.4023058751418240D-01
        xs( 80) = 0.4581619575332618D-01
        xs( 81) = 0.5285282943910696D-01
        xs( 82) = 0.6186136704262457D-01
        xs( 83) = 0.7344444060412419D-01
        xs( 84) = 0.8809131267700666D-01
        xs( 85) = 0.1058513973204775D+00
        xs( 86) = 0.1261563678815981D+00
        xs( 87) = 0.1480802925010975D+00
        xs( 88) = 0.1707756466746581D+00
        xs( 89) = 0.1936721394591871D+00
        xs( 90) = 0.2164158848884148D+00
        xs( 91) = 0.2381425154254198D+00
        ws(  1) = 0.2256943488412857D-05
        ws(  2) = 0.5254785148443940D-05
        ws(  3) = 0.8259643548325110D-05
        ws(  4) = 0.1126911035052016D-04
        ws(  5) = 0.1428473617292663D-04
        ws(  6) = 0.1730860119886189D-04
        ws(  7) = 0.2034314875108130D-04
        ws(  8) = 0.2339118935151701D-04
        ws(  9) = 0.2645591666758310D-04
        ws( 10) = 0.2954091827034862D-04
        ws( 11) = 0.3265018018957119D-04
        ws( 12) = 0.3578808701303873D-04
        ws( 13) = 0.3895941964716430D-04
        ws( 14) = 0.4216935282482476D-04
        ws( 15) = 0.4542345409285460D-04
        ws( 16) = 0.4872768558495226D-04
        ws( 17) = 0.5208840967164059D-04
        ws( 18) = 0.5551239926189533D-04
        ws( 19) = 0.5900685332971448D-04
        ws( 20) = 0.6257941803726423D-04
        ws( 21) = 0.6623821392294986D-04
        ws( 22) = 0.6999186932927671D-04
        ws( 23) = 0.7384956051978258D-04
        ws( 24) = 0.7782105890824457D-04
        ws( 25) = 0.8191678572871444D-04
        ws( 26) = 0.8614787478022485D-04
        ws( 27) = 0.9052624409572948D-04
        ws( 28) = 0.9506467720974479D-04
        ws( 29) = 0.9977691508176502D-04
        ws( 30) = 0.1046777600870510D-03
        ws( 31) = 0.1097831933277497D-03
        ws( 32) = 0.1151105071622510D-03
        ws( 33) = 0.1206784551152397D-03
        ws( 34) = 0.1265074212693875D-03
        ws( 35) = 0.1326196124198360D-03
        ws( 36) = 0.1390392762041476D-03
        ws( 37) = 0.1457929493211823D-03
        ws( 38) = 0.1529097404580576D-03
        ws( 39) = 0.1604216536824426D-03
        ws( 40) = 0.1683639593551294D-03
        ws( 41) = 0.1767756197141892D-03
        ws( 42) = 0.1856997798898388D-03
        ws( 43) = 0.1951843348375277D-03
        ws( 44) = 0.2052825866447289D-03
        ws( 45) = 0.2160540089337556D-03
        ws( 46) = 0.2275651387176113D-03
        ws( 47) = 0.2398906195849074D-03
        ws( 48) = 0.2531144289009577D-03
        ws( 49) = 0.2673313230907709D-03
        ws( 50) = 0.2826485501242532D-03
        ws( 51) = 0.2991878842537188D-03
        ws( 52) = 0.3170880550783093D-03
        ws( 53) = 0.3365076614053510D-03
        ws( 54) = 0.3576286806859281D-03
        ws( 55) = 0.3806607196383261D-03
        ws( 56) = 0.4058461884982532D-03
        ws( 57) = 0.4334666338119560D-03
        ws( 58) = 0.4638505384443389D-03
        ws( 59) = 0.4973829840962846D-03
        ws( 60) = 0.5345177100721791D-03
        ws( 61) = 0.5757922587608326D-03
        ws( 62) = 0.6218471584166121D-03
        ws( 63) = 0.6734504070084869D-03
        ws( 64) = 0.7315290215678237D-03
        ws( 65) = 0.7972100745737276D-03
        ws( 66) = 0.8718746542712226D-03
        ws( 67) = 0.9572296394180742D-03
        ws( 68) = 0.1055404412338558D-02
        ws( 69) = 0.1169083026115344D-02
        ws( 70) = 0.1301687954061427D-02
        ws( 71) = 0.1457639928642600D-02
        ws( 72) = 0.1642732876352846D-02
        ws( 73) = 0.1864687916769023D-02
        ws( 74) = 0.2133991738370113D-02
        ws( 75) = 0.2465198984623010D-02
        ws( 76) = 0.2879001737177653D-02
        ws( 77) = 0.3405576211901072D-02
        ws( 78) = 0.4089988358360666D-02
        ws( 79) = 0.5000151266231218D-02
        ws( 80) = 0.6235330102234468D-02
        ws( 81) = 0.7925386144936245D-02
        ws( 82) = 0.1019529284986825D-01
        ws( 83) = 0.1305856326748925D-01
        ws( 84) = 0.1624751142010696D-01
        ws( 85) = 0.1917267725413675D-01
        ws( 86) = 0.2127436799231425D-01
        ws( 87) = 0.2242913428991073D-01
        ws( 88) = 0.2286816205738246D-01
        ws( 89) = 0.2287079496657089D-01
        ws( 90) = 0.2260634035732000D-01
        ws( 91) = 0.1995704310564490D-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 =  32
        err = 0.6688819617732588D-10
        xs(  1) = 0.2528840042678941D-03
        xs(  2) = 0.1327784707536652D-02
        xs(  3) = 0.3240245691538302D-02
        xs(  4) = 0.5949700245445046D-02
        xs(  5) = 0.9397854420184397D-02
        xs(  6) = 0.1351798063911643D-01
        xs(  7) = 0.1824332271739876D-01
        xs(  8) = 0.2351190696043656D-01
        xs(  9) = 0.2926827107182047D-01
        xs( 10) = 0.3546350729271042D-01
        xs( 11) = 0.4205465539914080D-01
        xs( 12) = 0.4900397217229777D-01
        xs( 13) = 0.5627827379998307D-01
        xs( 14) = 0.6384839009260571D-01
        xs( 15) = 0.7168871365179531D-01
        xs( 16) = 0.7977681794877832D-01
        xs( 17) = 0.8809312464489796D-01
        xs( 18) = 0.9662060931976280D-01
        xs( 19) = 0.1053445438064638D+00
        xs( 20) = 0.1142522481491453D+00
        xs( 21) = 0.1233329752543087D+00
        xs( 22) = 0.1325775548107656D+00
        xs( 23) = 0.1419785853139678D+00
        xs( 24) = 0.1515294092267008D+00
        xs( 25) = 0.1612293921058014D+00
        xs( 26) = 0.1710670284715109D+00
        xs( 27) = 0.1810295135732870D+00
        xs( 28) = 0.1912114243937656D+00
        xs( 29) = 0.2014698006258331D+00
        xs( 30) = 0.2117120155276191D+00
        xs( 31) = 0.2224746953554143D+00
        xs( 32) = 0.2443536998119116D+00
        ws(  1) = 0.6484835978904659D-03
        ws(  2) = 0.1498596872915295D-02
        ws(  3) = 0.2319470052257714D-02
        ws(  4) = 0.3089552754738307D-02
        ws(  5) = 0.3795488117100860D-02
        ws(  6) = 0.4433560549284722D-02
        ws(  7) = 0.5006769589932396D-02
        ws(  8) = 0.5521156924644859D-02
        ws(  9) = 0.5983431285293717D-02
        ws( 10) = 0.6399893691793720D-02
        ws( 11) = 0.6776122998593749D-02
        ws( 12) = 0.7116988952088028D-02
        ws( 13) = 0.7426760051720895D-02
        ws( 14) = 0.7709210953794429D-02
        ws( 15) = 0.7967703925688675D-02
        ws( 16) = 0.8205246479591024D-02
        ws( 17) = 0.8424534145531961D-02
        ws( 18) = 0.8627982900385729D-02
        ws( 19) = 0.8817777845037084D-02
        ws( 20) = 0.8995858966358712D-02
        ws( 21) = 0.9163971109568377D-02
        ws( 22) = 0.9324091915176571D-02
        ws( 23) = 0.9477469808905825D-02
        ws( 24) = 0.9621771786573719D-02
        ws( 25) = 0.9774425034093513D-02
        ws( 26) = 0.9915508519163131D-02
        ws( 27) = 0.1004790610596458D-01
        ws( 28) = 0.1011975968448249D-01
        ws( 29) = 0.1014859424612262D-01
        ws( 30) = 0.1235569002814085D-01
        ws( 31) = 0.8887220838098234D-02
        ws( 32) = 0.3937921030661634D-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 =  32
        err = 0.5147464084006098D-10
        xs(  1) = 0.2432908668498921D-03
        xs(  2) = 0.1280310283812163D-02
        xs(  3) = 0.3135350210346426D-02
        xs(  4) = 0.5780408586582537D-02
        xs(  5) = 0.9167154117113260D-02
        xs(  6) = 0.1323443584299103D-01
        xs(  7) = 0.1791752284582952D-01
        xs(  8) = 0.2315440780244910D-01
        xs(  9) = 0.2888866772979278D-01
        xs( 10) = 0.3507014295096177D-01
        xs( 11) = 0.4165462735413912D-01
        xs( 12) = 0.4860325497985699D-01
        xs( 13) = 0.5588187689341205D-01
        xs( 14) = 0.6346051613181304D-01
        xs( 15) = 0.7131290539134789D-01
        xs( 16) = 0.7941609007612502D-01
        xs( 17) = 0.8775008047128564D-01
        xs( 18) = 0.9629754372544086D-01
        xs( 19) = 0.1050435341784583D+00
        xs( 20) = 0.1139752372681712D+00
        xs( 21) = 0.1230818497280340D+00
        xs( 22) = 0.1323542039416266D+00
        xs( 23) = 0.1417849668495671D+00
        xs( 24) = 0.1513681019097512D+00
        xs( 25) = 0.1611012744141621D+00
        xs( 26) = 0.1709766624675967D+00
        xs( 27) = 0.1809887453136526D+00
        xs( 28) = 0.1911803766724586D+00
        xs( 29) = 0.2015344927481405D+00
        xs( 30) = 0.2118756864330366D+00
        xs( 31) = 0.2223364170765450D+00
        xs( 32) = 0.2450488697303832D+00
        ws(  1) = 0.6242332091127808D-03
        ws(  2) = 0.1448851190703362D-02
        ws(  3) = 0.2256562147769759D-02
        ws(  4) = 0.3025354960886306D-02
        ws(  5) = 0.3737778586731298D-02
        ws(  6) = 0.4385891557357967D-02
        ws(  7) = 0.4969903914245795D-02
        ws(  8) = 0.5494453789950508D-02
        ws(  9) = 0.5965712834556663D-02
        ws( 10) = 0.6389880766640128D-02
        ws( 11) = 0.6772620926644030D-02
        ws( 12) = 0.7118951908835167D-02
        ws( 13) = 0.7433303413724617D-02
        ws( 14) = 0.7719603756563932D-02
        ws( 15) = 0.7981354767889630D-02
        ws( 16) = 0.8221688086949190D-02
        ws( 17) = 0.8443408706097616D-02
        ws( 18) = 0.8649029386950216D-02
        ws( 19) = 0.8840821617117359D-02
        ws( 20) = 0.9020800531101771D-02
        ws( 21) = 0.9190796732771563D-02
        ws( 22) = 0.9352919350438998D-02
        ws( 23) = 0.9507800076093748D-02
        ws( 24) = 0.9656436978686324D-02
        ws( 25) = 0.9807602101692028D-02
        ws( 26) = 0.9956313378108804D-02
        ws( 27) = 0.1008513383087632D-01
        ws( 28) = 0.1016493924926791D-01
        ws( 29) = 0.1039862902305524D-01
        ws( 30) = 0.1153058288171635D-01
        ws( 31) = 0.1032597351660483D-01
        ws( 32) = 0.3882607286467759D-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 =  31
        err = 0.9746516130051146D-10
        xs(  1) = 0.2411181425994622D-03
        xs(  2) = 0.1272344258305327D-02
        xs(  3) = 0.3128208357632690D-02
        xs(  4) = 0.5791510755143348D-02
        xs(  5) = 0.9219569817117076D-02
        xs(  6) = 0.1335156822312887D-01
        xs(  7) = 0.1812011545195559D-01
        xs(  8) = 0.2345956227391787D-01
        xs(  9) = 0.2930987792750060D-01
        xs( 10) = 0.3561768775218397D-01
        xs( 11) = 0.4233604464970394D-01
        xs( 12) = 0.4942381237594378D-01
        xs( 13) = 0.5684501835539148D-01
        xs( 14) = 0.6456827598732276D-01
        xs( 15) = 0.7256628195212728D-01
        xs( 16) = 0.8081537325321934D-01
        xs( 17) = 0.8929513203020178D-01
        xs( 18) = 0.9798803372972956D-01
        xs( 19) = 0.1068791350317606D+00
        xs( 20) = 0.1159558135166711D+00
        xs( 21) = 0.1252075820747419D+00
        xs( 22) = 0.1346254864394680D+00
        xs( 23) = 0.1442043936124216D+00
        xs( 24) = 0.1539347700826207D+00
        xs( 25) = 0.1638188691234545D+00
        xs( 26) = 0.1738603078586815D+00
        xs( 27) = 0.1840382559880629D+00
        xs( 28) = 0.1943552484935902D+00
        xs( 29) = 0.2048780645102649D+00
        xs( 30) = 0.2154003710674767D+00
        xs( 31) = 0.2266384178050848D+00
        ws(  1) = 0.6190870199028769D-03
        ws(  2) = 0.1444318579325321D-02
        ws(  3) = 0.2264640567423779D-02
        ws(  4) = 0.3054698981219625D-02
        ws(  5) = 0.3791071308710289D-02
        ws(  6) = 0.4461554519122816D-02
        ws(  7) = 0.5064538662047738D-02
        ws(  8) = 0.5604336450144483D-02
        ws(  9) = 0.6087404862672947D-02
        ws( 10) = 0.6520401288443972D-02
        ws( 11) = 0.6909467428159531D-02
        ws( 12) = 0.7260082210629871D-02
        ws( 13) = 0.7577106982687051D-02
        ws( 14) = 0.7864865082804921D-02
        ws( 15) = 0.8127209589442795D-02
        ws( 16) = 0.8367575933392622D-02
        ws( 17) = 0.8589025970979580D-02
        ws( 18) = 0.8794291003427846D-02
        ws( 19) = 0.8985818229212099D-02
        ws( 20) = 0.9165746384674581D-02
        ws( 21) = 0.9336483459729946D-02
        ws( 22) = 0.9498244482952020D-02
        ws( 23) = 0.9656744543643994D-02
        ws( 24) = 0.9810174302993906D-02
        ws( 25) = 0.9957655639953438D-02
        ws( 26) = 0.1007673723433480D-01
        ws( 27) = 0.1031528030560142D-01
        ws( 28) = 0.1070503336574783D-01
        ws( 29) = 0.1012054566273471D-01
        ws( 30) = 0.6353278256329072D-02
        ws( 31) = 0.2725043951808306D-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 =  32
        err = 0.3116663461285889D-10
        xs(  1) = 0.2125151340755623D-03
        xs(  2) = 0.1126166450937300D-02
        xs(  3) = 0.2788292602839678D-02
        xs(  4) = 0.5207686181852992D-02
        xs(  5) = 0.8368486211891599D-02
        xs(  6) = 0.1223046693470195D-01
        xs(  7) = 0.1673872401606670D-01
        xs(  8) = 0.2183367423177706D-01
        xs(  9) = 0.2745735657248416D-01
        xs( 10) = 0.3355630536847466D-01
        xs( 11) = 0.4008242902365787D-01
        xs( 12) = 0.4699299792920014D-01
        xs( 13) = 0.5425031315750760D-01
        xs( 14) = 0.6182128802091036D-01
        xs( 15) = 0.6967701983477886D-01
        xs( 16) = 0.7779237492877827D-01
        xs( 17) = 0.8614559592568992D-01
        xs( 18) = 0.9471793801299794D-01
        xs( 19) = 0.1034933386590244D+00
        xs( 20) = 0.1124581338517508D+00
        xs( 21) = 0.1216007948299913D+00
        xs( 22) = 0.1309117149344086D+00
        xs( 23) = 0.1403833366340313D+00
        xs( 24) = 0.1500089529050673D+00
        xs( 25) = 0.1597840929035625D+00
        xs( 26) = 0.1697096281192308D+00
        xs( 27) = 0.1797782726612970D+00
        xs( 28) = 0.1899852626450840D+00
        xs( 29) = 0.2003446103922592D+00
        xs( 30) = 0.2109137730132867D+00
        xs( 31) = 0.2216346171752962D+00
        xs( 32) = 0.2324424880284489D+00
        ws(  1) = 0.5462018697330886D-03
        ws(  2) = 0.1284869068429309D-02
        ws(  3) = 0.2041107835873954D-02
        ws(  4) = 0.2795011924664758D-02
        ws(  5) = 0.3519696936269116D-02
        ws(  6) = 0.4194938764417957D-02
        ws(  7) = 0.4811541935183851D-02
        ws(  8) = 0.5368654365913169D-02
        ws(  9) = 0.5869787361444915D-02
        ws( 10) = 0.6320096426564720D-02
        ws( 11) = 0.6725035281058773D-02
        ws( 12) = 0.7089826496667323D-02
        ws( 13) = 0.7419296690802086D-02
        ws( 14) = 0.7717842857044502D-02
        ws( 15) = 0.7989438387334092D-02
        ws( 16) = 0.8237651662051733D-02
        ws( 17) = 0.8465671641821434D-02
        ws( 18) = 0.8676340455537140D-02
        ws( 19) = 0.8872188690380698D-02
        ws( 20) = 0.9055470534287562D-02
        ws( 21) = 0.9228318250190930D-02
        ws( 22) = 0.9392122793377197D-02
        ws( 23) = 0.9549909348327989D-02
        ws( 24) = 0.9701661272669216D-02
        ws( 25) = 0.9848955753562313D-02
        ws( 26) = 0.9991284060266933D-02
        ws( 27) = 0.1014541479471738D-01
        ws( 28) = 0.1034739608740087D-01
        ws( 29) = 0.1045729465757751D-01
        ws( 30) = 0.1003043770359444D-01
        ws( 31) = 0.9479604900370047D-02
        ws( 32) = 0.2195755037932763D-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 =  32
        err = 0.4369874295254263D-10
        xs(  1) = 0.1864572894512199D-03
        xs(  2) = 0.9929135549951475D-03
        xs(  3) = 0.2478953309816114D-02
        xs(  4) = 0.4680157638055293D-02
        xs(  5) = 0.7610580981842508D-02
        xs(  6) = 0.1125394517597387D-01
        xs(  7) = 0.1556936050112985D-01
        xs(  8) = 0.2050262574004844D-01
        xs(  9) = 0.2599571914431870D-01
        xs( 10) = 0.3199242170177849D-01
        xs( 11) = 0.3844092074865769D-01
        xs( 12) = 0.4529469545860541D-01
        xs( 13) = 0.5251258103512142D-01
        xs( 14) = 0.6005848612181173D-01
        xs( 15) = 0.6790098115841862D-01
        xs( 16) = 0.7601285064154807D-01
        xs( 17) = 0.8437065009666193D-01
        xs( 18) = 0.9295428868006544D-01
        xs( 19) = 0.1017466491370124D+00
        xs( 20) = 0.1107332547655882D+00
        xs( 21) = 0.1199019983121922D+00
        xs( 22) = 0.1292428043180518D+00
        xs( 23) = 0.1387479669680775D+00
        xs( 24) = 0.1484106128276770D+00
        xs( 25) = 0.1582267564475642D+00
        xs( 26) = 0.1681948410881688D+00
        xs( 27) = 0.1783149092691762D+00
        xs( 28) = 0.1885868780116937D+00
        xs( 29) = 0.1989787831784818D+00
        xs( 30) = 0.2095682370345385D+00
        xs( 31) = 0.2206233342039375D+00
        xs( 32) = 0.2314234937991502D+00
        ws(  1) = 0.4797825190819058D-03
        ws(  2) = 0.1139516133651617D-02
        ws(  3) = 0.1838901250802834D-02
        ws(  4) = 0.2565996692063265D-02
        ws(  5) = 0.3292014137772049D-02
        ws(  6) = 0.3987692395264769D-02
        ws(  7) = 0.4633943138379178D-02
        ws(  8) = 0.5222826365221709D-02
        ws(  9) = 0.5753950566080899D-02
        ws( 10) = 0.6230806443273636D-02
        ws( 11) = 0.6658438162683716D-02
        ws( 12) = 0.7042255633597940D-02
        ws( 13) = 0.7387507348669291D-02
        ws( 14) = 0.7699072113574800D-02
        ws( 15) = 0.7981389472340221D-02
        ws( 16) = 0.8238449075589059D-02
        ws( 17) = 0.8473807696937364D-02
        ws( 18) = 0.8690622068933561D-02
        ws( 19) = 0.8891692563113127D-02
        ws( 20) = 0.9079494216115341D-02
        ws( 21) = 0.9256347144246301D-02
        ws( 22) = 0.9423997603953104D-02
        ws( 23) = 0.9584761037196939D-02
        ws( 24) = 0.9740877173639107D-02
        ws( 25) = 0.9893042142851725D-02
        ws( 26) = 0.1003310881193638D-01
        ws( 27) = 0.1019524333552962D-01
        ws( 28) = 0.1042911699945751D-01
        ws( 29) = 0.1052064178840005D-01
        ws( 30) = 0.9937182074594627D-02
        ws( 31) = 0.9988213808576034D-02
        ws( 32) = 0.2190556165206021D-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 =  32
        err = 0.6713103058913200D-10
        xs(  1) = 0.1384776143433709D-03
        xs(  2) = 0.7431336827240768D-03
        xs(  3) = 0.1881732752445818D-02
        xs(  4) = 0.3623798003356099D-02
        xs(  5) = 0.6033349529993355D-02
        xs(  6) = 0.9145682341858629D-02
        xs(  7) = 0.1295977843703256D-01
        xs(  8) = 0.1744538204803589D-01
        xs(  9) = 0.2255489472738502D-01
        xs( 10) = 0.2823327876287341D-01
        xs( 11) = 0.3442444972476056D-01
        xs( 12) = 0.4107493643381782D-01
        xs( 13) = 0.4813579149930228D-01
        xs( 14) = 0.5556341385603136D-01
        xs( 15) = 0.6331969721711876D-01
        xs( 16) = 0.7137178452253172D-01
        xs( 17) = 0.7969162300237605D-01
        xs( 18) = 0.8825544798760583D-01
        xs( 19) = 0.9704327320866787D-01
        xs( 20) = 0.1060384277632877D+00
        xs( 21) = 0.1152271710394924D+00
        xs( 22) = 0.1245983807115980D+00
        xs( 23) = 0.1341431615578063D+00
        xs( 24) = 0.1438558118441154D+00
        xs( 25) = 0.1537300258096656D+00
        xs( 26) = 0.1637647265315325D+00
        xs( 27) = 0.1739714145250772D+00
        xs( 28) = 0.1843298417022567D+00
        xs( 29) = 0.1948303232186031D+00
        xs( 30) = 0.2055998294508447D+00
        xs( 31) = 0.2166792086895926D+00
        xs( 32) = 0.2279502859482934D+00
        ws(  1) = 0.3569572828800464D-03
        ws(  2) = 0.8609810377104320D-03
        ws(  3) = 0.1428262913967867D-02
        ws(  4) = 0.2066965374503861D-02
        ws(  5) = 0.2758140027187526D-02
        ws(  6) = 0.3466208378597154D-02
        ws(  7) = 0.4156726670859310D-02
        ws(  8) = 0.4806380445203590D-02
        ws(  9) = 0.5403368066329619D-02
        ws( 10) = 0.5943994060308595D-02
        ws( 11) = 0.6429405666446643D-02
        ws( 12) = 0.6863397082825568D-02
        ws( 13) = 0.7251044381968913D-02
        ws( 14) = 0.7597853834916695D-02
        ws( 15) = 0.7909244425794191D-02
        ws( 16) = 0.8190263505640149D-02
        ws( 17) = 0.8445461278988441D-02
        ws( 18) = 0.8678865357707573D-02
        ws( 19) = 0.8894013195016722D-02
        ws( 20) = 0.9094014413652178D-02
        ws( 21) = 0.9281595335526459D-02
        ws( 22) = 0.9459467373769681D-02
        ws( 23) = 0.9628898601112922D-02
        ws( 24) = 0.9794973688794931D-02
        ws( 25) = 0.9956335922170484D-02
        ws( 26) = 0.1011465664646131D-01
        ws( 27) = 0.1026526441068277D-01
        ws( 28) = 0.1047827655381332D-01
        ws( 29) = 0.1082588831114981D-01
        ws( 30) = 0.1037172064511740D-01
        ws( 31) = 0.8835623338826320D-02
        ws( 32) = 0.2277193623837365D-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 =  33
        err = 0.7071211352322528D-10
        xs(  1) = 0.1012834209800575D-03
        xs(  2) = 0.5441695388706029D-03
        xs(  3) = 0.1383431034755458D-02
        xs(  4) = 0.2688794619521078D-02
        xs(  5) = 0.4548499597954503D-02
        xs(  6) = 0.7048291309261896D-02
        xs(  7) = 0.1024487857770450D-01
        xs(  8) = 0.1414979236272517D-01
        xs(  9) = 0.1873498479196973D-01
        xs( 10) = 0.2395033180063085D-01
        xs( 11) = 0.2973748055559077D-01
        xs( 12) = 0.3603714644565152D-01
        xs( 13) = 0.4279301578554997D-01
        xs( 14) = 0.4995394234052503D-01
        xs( 15) = 0.5747490234955840D-01
        xs( 16) = 0.6531707075947477D-01
        xs( 17) = 0.7344740072657986D-01
        xs( 18) = 0.8183799556982517D-01
        xs( 19) = 0.9046544447192335D-01
        xs( 20) = 0.9931020627559994D-01
        xs( 21) = 0.1083560773876671D+00
        xs( 22) = 0.1175897673749876D+00
        xs( 23) = 0.1270004834818828D+00
        xs( 24) = 0.1365799894930025D+00
        xs( 25) = 0.1463217208434948D+00
        xs( 26) = 0.1562217007089490D+00
        xs( 27) = 0.1662777778969261D+00
        xs( 28) = 0.1764938877731118D+00
        xs( 29) = 0.1868729607473339D+00
        xs( 30) = 0.1973852441908207D+00
        xs( 31) = 0.2080666947861921D+00
        xs( 32) = 0.2192445950011358D+00
        xs( 33) = 0.2304430781424737D+00
        ws(  1) = 0.2611274124711530D-03
        ws(  2) = 0.6316577462299797D-03
        ws(  3) = 0.1058636364233420D-02
        ws(  4) = 0.1567159304499068D-02
        ws(  5) = 0.2167027965973243D-02
        ws(  6) = 0.2842315088856711D-02
        ws(  7) = 0.3552653976915032D-02
        ws(  8) = 0.4252159814946159D-02
        ws(  9) = 0.4909639881154412D-02
        ws( 10) = 0.5511217497988604D-02
        ws( 11) = 0.6053137347147289D-02
        ws( 12) = 0.6536772872056695D-02
        ws( 13) = 0.6966426418555989D-02
        ws( 14) = 0.7347922431527894D-02
        ws( 15) = 0.7687534450345401D-02
        ws( 16) = 0.7991305431735861D-02
        ws( 17) = 0.8264716325697025D-02
        ws( 18) = 0.8512581936715048D-02
        ws( 19) = 0.8739067893166889D-02
        ws( 20) = 0.8947763549800900D-02
        ws( 21) = 0.9141766206594029D-02
        ws( 22) = 0.9323822567566762D-02
        ws( 23) = 0.9496306298277099D-02
        ws( 24) = 0.9661258329138519D-02
        ws( 25) = 0.9822100071966671D-02
        ws( 26) = 0.9979493188539931D-02
        ws( 27) = 0.1012745486238265D-01
        ws( 28) = 0.1029097088283550D-01
        ws( 29) = 0.1051915232555587D-01
        ws( 30) = 0.1066860018928934D-01
        ws( 31) = 0.1024523633018756D-01
        ws( 32) = 0.1046464935481947D-01
        ws( 33) = 0.1971563447658439D-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 =  35
        err = 0.4133937382437491D-10
        xs(  1) = 0.5502577073151562D-04
        xs(  2) = 0.2944193421235868D-03
        xs(  3) = 0.7440190549866098D-03
        xs(  4) = 0.1438604080709716D-02
        xs(  5) = 0.2432852249278798D-02
        xs(  6) = 0.3804564796008737D-02
        xs(  7) = 0.5654316802163844D-02
        xs(  8) = 0.8095828606199470D-02
        xs(  9) = 0.1123209160879159D-01
        xs( 10) = 0.1512280441232245D-01
        xs( 11) = 0.1976484532110165D-01
        xs( 12) = 0.2510282690778872D-01
        xs( 13) = 0.3105726247426650D-01
        xs( 14) = 0.3754731359797376D-01
        xs( 15) = 0.4450108776291463D-01
        xs( 16) = 0.5185800254548137D-01
        xs( 17) = 0.5956801414572850D-01
        xs( 18) = 0.6759002889381423D-01
        xs( 19) = 0.7589031635353186D-01
        xs( 20) = 0.8444115268116990D-01
        xs( 21) = 0.9321972628523992D-01
        xs( 22) = 0.1022072794961996D+00
        xs( 23) = 0.1113884485975735D+00
        xs( 24) = 0.1207507517304672D+00
        xs( 25) = 0.1302842807632532D+00
        xs( 26) = 0.1399812890432719D+00
        xs( 27) = 0.1498363093542734D+00
        xs( 28) = 0.1598457276766349D+00
        xs( 29) = 0.1700093652184675D+00
        xs( 30) = 0.1803286688078368D+00
        xs( 31) = 0.1907989116825107D+00
        xs( 32) = 0.2014318454141095D+00
        xs( 33) = 0.2122944828510898D+00
        xs( 34) = 0.2233988454029251D+00
        xs( 35) = 0.2346045647626666D+00
        ws(  1) = 0.1417209117744463D-03
        ws(  2) = 0.3401646285657349D-03
        ws(  3) = 0.5647658206860448D-03
        ws(  4) = 0.8334567042434383D-03
        ws(  5) = 0.1167997766144504D-02
        ws(  6) = 0.1592334148734959D-02
        ws(  7) = 0.2126529367201722D-02
        ws(  8) = 0.2774263207264789D-02
        ws(  9) = 0.3508595886408347D-02
        ws( 10) = 0.4272090673487802D-02
        ws( 11) = 0.5002221152709133D-02
        ws( 12) = 0.5660104077294885D-02
        ws( 13) = 0.6235138298785096D-02
        ws( 14) = 0.6732954273952040D-02
        ws( 15) = 0.7164514751096632D-02
        ws( 16) = 0.7541002253529171D-02
        ws( 17) = 0.7872198862352141D-02
        ws( 18) = 0.8166231539167151D-02
        ws( 19) = 0.8429740906158277D-02
        ws( 20) = 0.8668144062739899D-02
        ws( 21) = 0.8885888013807254D-02
        ws( 22) = 0.9086665895364460D-02
        ws( 23) = 0.9273599928182817D-02
        ws( 24) = 0.9449365913047642D-02
        ws( 25) = 0.9616329661908599D-02
        ws( 26) = 0.9776938285537492D-02
        ws( 27) = 0.9932915635201663D-02
        ws( 28) = 0.1008489167191221D-01
        ws( 29) = 0.1023913245196411D-01
        ws( 30) = 0.1040491801824270D-01
        ws( 31) = 0.1057907012062405D-01
        ws( 32) = 0.1069890225688163D-01
        ws( 33) = 0.1064662797294747D-01
        ws( 34) = 0.1125626260999210D-01
        ws( 35) = 0.1664510410565127D-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 =  39
        err = 0.6316651255371349D-10
        xs(  1) = 0.2388999858574634D-04
        xs(  2) = 0.1268389179701444D-03
        xs(  3) = 0.3160877343023720D-03
        xs(  4) = 0.5990171232758439D-03
        xs(  5) = 0.9872112850142169D-03
        xs(  6) = 0.1497659050063188D-02
        xs(  7) = 0.2154468599394107D-02
        xs(  8) = 0.2991285145149326D-02
        xs(  9) = 0.4054573589013026D-02
        xs( 10) = 0.5407773724315213D-02
        xs( 11) = 0.7135794625793327D-02
        xs( 12) = 0.9347937098444645D-02
        xs( 13) = 0.1217461149037246D-01
        xs( 14) = 0.1574988218731782D-01
        xs( 15) = 0.2017387843454871D-01
        xs( 16) = 0.2546834493146699D-01
        xs( 17) = 0.3156382720850755D-01
        xs( 18) = 0.3833574291714353D-01
        xs( 19) = 0.4565400267452470D-01
        xs( 20) = 0.5341075984898733D-01
        xs( 21) = 0.6152546118682162D-01
        xs( 22) = 0.6994002883659092D-01
        xs( 23) = 0.7861254005743507D-01
        xs( 24) = 0.8751219234524894D-01
        xs( 25) = 0.9661584965720875D-01
        xs( 26) = 0.1059058025374000D+00
        xs( 27) = 0.1153683440071537D+00
        xs( 28) = 0.1249928619553568D+00
        xs( 29) = 0.1347712860183777D+00
        xs( 30) = 0.1446977456567481D+00
        xs( 31) = 0.1547684545189053D+00
        xs( 32) = 0.1649814751044027D+00
        xs( 33) = 0.1753373462218659D+00
        xs( 34) = 0.1858390059558077D+00
        xs( 35) = 0.1964900609676386D+00
        xs( 36) = 0.2073035551549078D+00
        xs( 37) = 0.2183209657448002D+00
        xs( 38) = 0.2295527811098784D+00
        xs( 39) = 0.2408555340571634D+00
        ws(  1) = 0.6141849141280597D-04
        ws(  2) = 0.1451701408343888D-03
        ws(  3) = 0.2345422135083805D-03
        ws(  4) = 0.3332278560424507D-03
        ws(  5) = 0.4459637821995254D-03
        ws(  6) = 0.5789099170051376D-03
        ws(  7) = 0.7402621609577063D-03
        ws(  8) = 0.9410448737492417D-03
        ws(  9) = 0.1196026436371711D-02
        ws( 10) = 0.1524466182961885D-02
        ws( 11) = 0.1949826875003689D-02
        ws( 12) = 0.2496462159490845D-02
        ws( 13) = 0.3179879950218580D-02
        ws( 14) = 0.3988206411797146D-02
        ws( 15) = 0.4863689419353714D-02
        ws( 16) = 0.5712945424123554D-02
        ws( 17) = 0.6456329119122903D-02
        ws( 18) = 0.7065371870096440D-02
        ws( 19) = 0.7553126474330414D-02
        ws( 20) = 0.7947061687679955D-02
        ws( 21) = 0.8272771851408685D-02
        ws( 22) = 0.8549460284072411D-02
        ws( 23) = 0.8790484896639281D-02
        ws( 24) = 0.9005000005101757D-02
        ws( 25) = 0.9199385941983811D-02
        ws( 26) = 0.9378248917427039D-02
        ws( 27) = 0.9545072934134757D-02
        ws( 28) = 0.9702639859683199D-02
        ws( 29) = 0.9853229092879716D-02
        ws( 30) = 0.9999006018626175D-02
        ws( 31) = 0.1014198515334009D-01
        ws( 32) = 0.1028432321463117D-01
        ws( 33) = 0.1042887052180317D-01
        ws( 34) = 0.1057715319757658D-01
        ws( 35) = 0.1073037631294298D-01
        ws( 36) = 0.1088660789161374D-01
        ws( 37) = 0.1104419900943852D-01
        ws( 38) = 0.1155379686821397D-01
        ws( 39) = 0.1438293151658570D-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 =  42
        err = 0.5832487533884927D-10
        xs(  1) = 0.1349124895252748D-04
        xs(  2) = 0.7139157076980717D-04
        xs(  3) = 0.1768345150050951D-03
        xs(  4) = 0.3321244344416106D-03
        xs(  5) = 0.5407741173203654D-03
        xs(  6) = 0.8077696621409420D-03
        xs(  7) = 0.1139921602983655D-02
        xs(  8) = 0.1546349419841308D-02
        xs(  9) = 0.2039150749568272D-02
        xs( 10) = 0.2634329635979272D-02
        xs( 11) = 0.3353090022364559D-02
        xs( 12) = 0.4223641761030228D-02
        xs( 13) = 0.5283712816804893D-02
        xs( 14) = 0.6583993909835386D-02
        xs( 15) = 0.8192699663903296D-02
        xs( 16) = 0.1020114846302947D-01
        xs( 17) = 0.1272934448662253D-01
        xs( 18) = 0.1592817909664663D-01
        xs( 19) = 0.1997003630453687D-01
        xs( 20) = 0.2501407733683008D-01
        xs( 21) = 0.3114085227811071D-01
        xs( 22) = 0.3829404289873661D-01
        xs( 23) = 0.4629608739016529D-01
        xs( 24) = 0.5493088926001877D-01
        xs( 25) = 0.6401445572398930D-01
        xs( 26) = 0.7341690904019431D-01
        xs( 27) = 0.8305477551820194D-01
        xs( 28) = 0.9287650459819839D-01
        xs( 29) = 0.1028506343764404D+00
        xs( 30) = 0.1129579917070935D+00
        xs( 31) = 0.1231869693194515D+00
        xs( 32) = 0.1335307727042140D+00
        xs( 33) = 0.1439858480414126D+00
        xs( 34) = 0.1545510178262227D+00
        xs( 35) = 0.1652269949556882D+00
        xs( 36) = 0.1760162038908513D+00
        xs( 37) = 0.1869228391534607D+00
        xs( 38) = 0.1979535330041320D+00
        xs( 39) = 0.2091222250061227D+00
        xs( 40) = 0.2204485236768624D+00
        xs( 41) = 0.2318723784096245D+00
        xs( 42) = 0.2430167825478777D+00
        ws(  1) = 0.3465771257643609D-04
        ws(  2) = 0.8137580338246163D-04
        ws(  3) = 0.1298896863198291D-03
        ws(  4) = 0.1812714291904609D-03
        ws(  5) = 0.2368531868295877D-03
        ws(  6) = 0.2982650351715861D-03
        ws(  7) = 0.3675477799668394D-03
        ws(  8) = 0.4473089046735371D-03
        ws(  9) = 0.5409398848471270D-03
        ws( 10) = 0.6529222424173481D-03
        ws( 11) = 0.7892588641368704D-03
        ws( 12) = 0.9580757145384668D-03
        ws( 13) = 0.1170438819992949D-02
        ws( 14) = 0.1441397587080123D-02
        ws( 15) = 0.1791133623930496D-02
        ws( 16) = 0.2245709527333677D-02
        ws( 17) = 0.2835951428295586D-02
        ws( 18) = 0.3590995706749319D-02
        ws( 19) = 0.4520419209125410D-02
        ws( 20) = 0.5582284061256074D-02
        ws( 21) = 0.6661605869568929D-02
        ws( 22) = 0.7613537540133351D-02
        ws( 23) = 0.8353278731306079D-02
        ws( 24) = 0.8885366271969395D-02
        ws( 25) = 0.9260307177038331D-02
        ws( 26) = 0.9530947164158018D-02
        ws( 27) = 0.9736392426013691D-02
        ws( 28) = 0.9901949497145929D-02
        ws( 29) = 0.1004319125224225D-01
        ws( 30) = 0.1016963331611595D-01
        ws( 31) = 0.1028721569545854D-01
        ws( 32) = 0.1039981027547087D-01
        ws( 33) = 0.1051015362847553D-01
        ws( 34) = 0.1062035729109571D-01
        ws( 35) = 0.1073233163060413D-01
        ws( 36) = 0.1084780484653634D-01
        ws( 37) = 0.1096683263823216D-01
        ws( 38) = 0.1108716789509700D-01
        ws( 39) = 0.1122779934040275D-01
        ws( 40) = 0.1150704076659975D-01
        ws( 41) = 0.1205186639561205D-01
        ws( 42) = 0.1202242590682887D-01
        endif
        if( idomain .eq.   57 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.4000000000000000D-01
        rk1r = 0.1256637061435917D+02
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  44
        err = 0.8613582177011513D-10
        xs(  1) = 0.8898899747577247D-05
        xs(  2) = 0.4701510362733605D-04
        xs(  3) = 0.1161164227906147D-03
        xs(  4) = 0.2171533169049597D-03
        xs(  5) = 0.3515486834646807D-03
        xs(  6) = 0.5212869745881305D-03
        xs(  7) = 0.7290195604649671D-03
        xs(  8) = 0.9782017814425402D-03
        xs(  9) = 0.1273271811208591D-02
        xs( 10) = 0.1619885667614693D-02
        xs( 11) = 0.2025229024279911D-02
        xs( 12) = 0.2498435288880511D-02
        xs( 13) = 0.3051151977242866D-02
        xs( 14) = 0.3698315578421912D-02
        xs( 15) = 0.4459221420769985D-02
        xs( 16) = 0.5359012699446476D-02
        xs( 17) = 0.6430765026511685D-02
        xs( 18) = 0.7718410007836133D-02
        xs( 19) = 0.9280812563669636D-02
        xs( 20) = 0.1119734436351385D-01
        xs( 21) = 0.1357512521440215D-01
        xs( 22) = 0.1655728623776689D-01
        xs( 23) = 0.2032895610290468D-01
        xs( 24) = 0.2511068417022684D-01
        xs( 25) = 0.3111703872688519D-01
        xs( 26) = 0.3846217370882147D-01
        xs( 27) = 0.4706205546422199D-01
        xs( 28) = 0.5664996119657769D-01
        xs( 29) = 0.6690727583408061D-01
        xs( 30) = 0.7757489733142399D-01
        xs( 31) = 0.8848242184357064D-01
        xs( 32) = 0.9953062953310042D-01
        xs( 33) = 0.1106662908262795D+00
        xs( 34) = 0.1218632479224583D+00
        xs( 35) = 0.1331106846134460D+00
        xs( 36) = 0.1444063848140543D+00
        xs( 37) = 0.1557530111651918D+00
        xs( 38) = 0.1671559115046387D+00
        xs( 39) = 0.1786222900190910D+00
        xs( 40) = 0.1901611218581966D+00
        xs( 41) = 0.2017820490806519D+00
        xs( 42) = 0.2134870839474272D+00
        xs( 43) = 0.2251663888663566D+00
        xs( 44) = 0.2363808759445347D+00
        ws(  1) = 0.2285190601514866D-04
        ws(  2) = 0.5348467716798864D-04
        ws(  3) = 0.8487432874413735D-04
        ws(  4) = 0.1174352508576907D-03
        ws(  5) = 0.1516844884357200D-03
        ws(  6) = 0.1882317274661407D-03
        ws(  7) = 0.2278063867377443D-03
        ws(  8) = 0.2712938822172785D-03
        ws(  9) = 0.3197837188077377D-03
        ws( 10) = 0.3746347362046583D-03
        ws( 11) = 0.4375649122972657D-03
        ws( 12) = 0.5107761566474641D-03
        ws( 13) = 0.5971290935178146D-03
        ws( 14) = 0.7003895931403579D-03
        ws( 15) = 0.8255784576121877D-03
        ws( 16) = 0.9794687357363285D-03
        ws( 17) = 0.1171290773414200D-02
        ws( 18) = 0.1413717737417539D-02
        ws( 19) = 0.1724194378268523D-02
        ws( 20) = 0.2126578572801025D-02
        ws( 21) = 0.2652717164510155D-02
        ws( 22) = 0.3342514402525586D-02
        ws( 23) = 0.4238199174811271D-02
        ws( 24) = 0.5362684507650482D-02
        ws( 25) = 0.6671072716196952D-02
        ws( 26) = 0.8004963673634688D-02
        ws( 27) = 0.9147698170638430D-02
        ws( 28) = 0.9973018706336829D-02
        ws( 29) = 0.1049807831053803D-01
        ws( 30) = 0.1080915315001211D-01
        ws( 31) = 0.1098980501681717D-01
        ws( 32) = 0.1109805312154424D-01
        ws( 33) = 0.1116910062999500D-01
        ws( 34) = 0.1122312191318338D-01
        ws( 35) = 0.1127144675457484D-01
        ws( 36) = 0.1132048325155849D-01
        ws( 37) = 0.1137394007097571D-01
        ws( 38) = 0.1143366225478870D-01
        ws( 39) = 0.1149953537765142D-01
        ws( 40) = 0.1156986644127374D-01
        ws( 41) = 0.1166943989638896D-01
        ws( 42) = 0.1191025774964324D-01
        ws( 43) = 0.1217539861069157D-01
        ws( 44) = 0.1075694549901591D-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 =  48
        err = 0.4884191852117183D-10
        xs(  1) = 0.6210128315869672D-05
        xs(  2) = 0.3278065547129917D-04
        xs(  3) = 0.8083023209191780D-04
        xs(  4) = 0.1508047892728459D-03
        xs(  5) = 0.2433603933430287D-03
        xs(  6) = 0.3593995395667611D-03
        xs(  7) = 0.5001086266794423D-03
        xs(  8) = 0.6670044018480123D-03
        xs(  9) = 0.8619916899367923D-03
        xs( 10) = 0.1087435353873423D-02
        xs( 11) = 0.1346250672460508D-02
        xs( 12) = 0.1642017934954462D-02
        xs( 13) = 0.1979129177695365D-02
        xs( 14) = 0.2362977887515485D-02
        xs( 15) = 0.2800206551046214D-02
        xs( 16) = 0.3299032690209403D-02
        xs( 17) = 0.3869682288855017D-02
        xs( 18) = 0.4524971456301365D-02
        xs( 19) = 0.5281094481547239D-02
        xs( 20) = 0.6158701521702428D-02
        xs( 21) = 0.7184385285694459D-02
        xs( 22) = 0.8392747085350137D-02
        xs( 23) = 0.9829281470508541D-02
        xs( 24) = 0.1155440164416815D-01
        xs( 25) = 0.1364899585662450D-01
        xs( 26) = 0.1622184651643282D-01
        xs( 27) = 0.1941869547241344D-01
        xs( 28) = 0.2343063432759041D-01
        xs( 29) = 0.2849320362142861D-01
        xs( 30) = 0.3485449400188840D-01
        xs( 31) = 0.4268487472957627D-01
        xs( 32) = 0.5195451969926708D-01
        xs( 33) = 0.6240215696886416D-01
        xs( 34) = 0.7365721765457121D-01
        xs( 35) = 0.8538940415300721D-01
        xs( 36) = 0.9737097898968917D-01
        xs( 37) = 0.1094675139214587D+00
        xs( 38) = 0.1216081335951159D+00
        xs( 39) = 0.1337601332956797D+00
        xs( 40) = 0.1459124568887176D+00
        xs( 41) = 0.1580660427833492D+00
        xs( 42) = 0.1702284066077504D+00
        xs( 43) = 0.1824107691499437D+00
        xs( 44) = 0.1946269388050984D+00
        xs( 45) = 0.2068907355413700D+00
        xs( 46) = 0.2191864569393626D+00
        xs( 47) = 0.2315488872922063D+00
        xs( 48) = 0.2438405853058100D+00
        ws(  1) = 0.1594399723813014D-04
        ws(  2) = 0.3725072267147785D-04
        ws(  3) = 0.5892161512223113D-04
        ws(  4) = 0.8113632369817639D-04
        ws(  5) = 0.1041246828865987D-03
        ws(  6) = 0.1281505734282797D-03
        ws(  7) = 0.1535194367037410D-03
        ws(  8) = 0.1805883949392394D-03
        ws(  9) = 0.2097788323754657D-03
        ws( 10) = 0.2415924839572262D-03
        ws( 11) = 0.2766324478093087D-03
        ws( 12) = 0.3156309562762995D-03
        ws( 13) = 0.3594863660322354D-03
        ws( 14) = 0.4093127681816692D-03
        ws( 15) = 0.4665070172643240D-03
        ws( 16) = 0.5328400327470870D-03
        ws( 17) = 0.6105822424053592D-03
        ws( 18) = 0.7026774574272065D-03
        ws( 19) = 0.8129859061044893D-03
        ws( 20) = 0.9466264206680718D-03
        ws( 21) = 0.1110460683849074D-02
        ws( 22) = 0.1313779214622819D-02
        ws( 23) = 0.1569266757832923D-02
        ws( 24) = 0.1894331301627626D-02
        ws( 25) = 0.2312832395327579D-02
        ws( 26) = 0.2857002286173398D-02
        ws( 27) = 0.3568508771331342D-02
        ws( 28) = 0.4495068414242412D-02
        ws( 29) = 0.5672940772773560D-02
        ws( 30) = 0.7080450118200829D-02
        ws( 31) = 0.8576114142746684D-02
        ws( 32) = 0.9917146978905724D-02
        ws( 33) = 0.1091355133256170D-01
        ws( 34) = 0.1154058825563327D-01
        ws( 35) = 0.1188612424501439D-01
        ws( 36) = 0.1205516861327314D-01
        ws( 37) = 0.1212651719759690D-01
        ws( 38) = 0.1214954089308176D-01
        ws( 39) = 0.1215276424753025D-01
        ws( 40) = 0.1215210260343359D-01
        ws( 41) = 0.1215639717106859D-01
        ws( 42) = 0.1217074093753554D-01
        ws( 43) = 0.1219752590417582D-01
        ws( 44) = 0.1223834260760010D-01
        ws( 45) = 0.1231556720523411D-01
        ws( 46) = 0.1235374462568691D-01
        ws( 47) = 0.1199666704285659D-01
        ws( 48) = 0.1193210761832127D-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 =  51
        err = 0.7715416257333960D-10
        xs(  1) = 0.4666462482885361D-05
        xs(  2) = 0.2461898896412002D-04
        xs(  3) = 0.6064577489070239D-04
        xs(  4) = 0.1129843699755507D-03
        xs(  5) = 0.1819797680618103D-03
        xs(  6) = 0.2681037152728602D-03
        xs(  7) = 0.3719719735686847D-03
        xs(  8) = 0.4943647741347442D-03
        xs(  9) = 0.6362512239330322D-03
        xs( 10) = 0.7988184576381349D-03
        xs( 11) = 0.9835066864546098D-03
        xs( 12) = 0.1192051742640080D-02
        xs( 13) = 0.1426537255492145D-02
        xs( 14) = 0.1689459269208206D-02
        xs( 15) = 0.1983806995488260D-02
        xs( 16) = 0.2313164585767379D-02
        xs( 17) = 0.2681840445168219D-02
        xs( 18) = 0.3095032888380846D-02
        xs( 19) = 0.3559044137100380D-02
        xs( 20) = 0.4081559195439546D-02
        xs( 21) = 0.4672012622918246D-02
        xs( 22) = 0.5342075568495909D-02
        xs( 23) = 0.6106309003562973D-02
        xs( 24) = 0.6983048920171762D-02
        xs( 25) = 0.7995618367469422D-02
        xs( 26) = 0.9174003837097705D-02
        xs( 27) = 0.1055719540407365D-01
        xs( 28) = 0.1219647723105393D-01
        xs( 29) = 0.1416006889938987D-01
        xs( 30) = 0.1653963424456401D-01
        xs( 31) = 0.1945917532363154D-01
        xs( 32) = 0.2308626673865190D-01
        xs( 33) = 0.2764292300473384D-01
        xs( 34) = 0.3340461379141964D-01
        xs( 35) = 0.4065787939409437D-01
        xs( 36) = 0.4958293453708321D-01
        xs( 37) = 0.6010634759208208D-01
        xs( 38) = 0.7188471086128446D-01
        xs( 39) = 0.8447106852381522D-01
        xs( 40) = 0.9748910755865933D-01
        xs( 41) = 0.1106918603451186D+00
        xs( 42) = 0.1239411175126298D+00
        xs( 43) = 0.1371694976161836D+00
        xs( 44) = 0.1503507555763705D+00
        xs( 45) = 0.1634812010632756D+00
        xs( 46) = 0.1765689654062230D+00
        xs( 47) = 0.1896277733747434D+00
        xs( 48) = 0.2026755394772328D+00
        xs( 49) = 0.2157064692819887D+00
        xs( 50) = 0.2286767419867965D+00
        xs( 51) = 0.2410297518500498D+00
        ws(  1) = 0.1197925059575326D-04
        ws(  2) = 0.2795743560551497D-04
        ws(  3) = 0.4413496250133570D-04
        ws(  4) = 0.6059946790631385D-04
        ws(  5) = 0.7746966881933828D-04
        ws(  6) = 0.9488051304376344D-04
        ws(  7) = 0.1129856371228138D-03
        ws(  8) = 0.1319609986855455D-03
        ws(  9) = 0.1520091763198816D-03
        ws( 10) = 0.1733646222471706D-03
        ws( 11) = 0.1963002777710594D-03
        ws( 12) = 0.2211360378539965D-03
        ws( 13) = 0.2482496607992576D-03
        ws( 14) = 0.2780908876616016D-03
        ws( 15) = 0.3111997888352781D-03
        ws( 16) = 0.3482307263686498D-03
        ws( 17) = 0.3899838502054854D-03
        ws( 18) = 0.4374468122896997D-03
        ws( 19) = 0.4918504816907699D-03
        ws( 20) = 0.5547440513184445D-03
        ws( 21) = 0.6280972608923514D-03
        ws( 22) = 0.7144409261884249D-03
        ws( 23) = 0.8170620617925950D-03
        ws( 24) = 0.9402774711823754D-03
        ws( 25) = 0.1089820840049074D-02
        ws( 26) = 0.1273394550834384D-02
        ws( 27) = 0.1501459846412656D-02
        ws( 28) = 0.1788366650630220D-02
        ws( 29) = 0.2153946294351866D-02
        ws( 30) = 0.2625659904268835D-02
        ws( 31) = 0.3241147876660779D-02
        ws( 32) = 0.4049983761505035D-02
        ws( 33) = 0.5109830473230829D-02
        ws( 34) = 0.6463321214140499D-02
        ws( 35) = 0.8076208594552298D-02
        ws( 36) = 0.9762162508775233D-02
        ws( 37) = 0.1122403328397724D-01
        ws( 38) = 0.1225497552647875D-01
        ws( 39) = 0.1285421597862988D-01
        ws( 40) = 0.1314120745545950D-01
        ws( 41) = 0.1324194604946256D-01
        ws( 42) = 0.1324583913955622D-01
        ws( 43) = 0.1320686601837177D-01
        ws( 44) = 0.1315520029697810D-01
        ws( 45) = 0.1310705898102523D-01
        ws( 46) = 0.1307077692113024D-01
        ws( 47) = 0.1304649423032649D-01
        ws( 48) = 0.1306131081685364D-01
        ws( 49) = 0.1307220763148925D-01
        ws( 50) = 0.1319034640477198D-01
        ws( 51) = 0.1114970900458613D-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 =  55
        err = 0.6537962863385238D-10
        xs(  1) = 0.3605930795565169D-05
        xs(  2) = 0.1901721915071500D-04
        xs(  3) = 0.4681660905916341D-04
        xs(  4) = 0.8713880706414723D-04
        xs(  5) = 0.1401766441833151D-03
        xs(  6) = 0.2061925448460627D-03
        xs(  7) = 0.2855273142528959D-03
        xs(  8) = 0.3786101486017909D-03
        xs(  9) = 0.4859702005446826D-03
        xs( 10) = 0.6082499174912437D-03
        xs( 11) = 0.7462204885134838D-03
        xs( 12) = 0.9007998881854680D-03
        xs( 13) = 0.1073074173196767D-02
        xs( 14) = 0.1264322877517298D-02
        xs( 15) = 0.1476049580002104D-02
        xs( 16) = 0.1710019005164285D-02
        xs( 17) = 0.1968302391511206D-02
        xs( 18) = 0.2253333356922915D-02
        xs( 19) = 0.2567977154989655D-02
        xs( 20) = 0.2915617115761091D-02
        xs( 21) = 0.3300263293002844D-02
        xs( 22) = 0.3726690029240068D-02
        xs( 23) = 0.4200611495800976D-02
        xs( 24) = 0.4728907546898005D-02
        xs( 25) = 0.5319916866107305D-02
        xs( 26) = 0.5983821000353759D-02
        xs( 27) = 0.6733152396244453D-02
        xs( 28) = 0.7583473398980049D-02
        xs( 29) = 0.8554293425776347D-02
        xs( 30) = 0.9670321404139023D-02
        xs( 31) = 0.1096319468402480D-01
        xs( 32) = 0.1247389058285868D-01
        xs( 33) = 0.1425612026532385D-01
        xs( 34) = 0.1638113192831007D-01
        xs( 35) = 0.1894449393778184D-01
        xs( 36) = 0.2207548484581739D-01
        xs( 37) = 0.2594925456547522D-01
        xs( 38) = 0.3079934202134507D-01
        xs( 39) = 0.3691914839333266D-01
        xs( 40) = 0.4462171864213556D-01
        xs( 41) = 0.5411910742760369D-01
        xs( 42) = 0.6535797713435468D-01
        xs( 43) = 0.7798133605207866D-01
        xs( 44) = 0.9149772679056414D-01
        xs( 45) = 0.1054805856934963D+00
        xs( 46) = 0.1196450569455292D+00
        xs( 47) = 0.1338303259939639D+00
        xs( 48) = 0.1479577652094311D+00
        xs( 49) = 0.1619966792147077D+00
        xs( 50) = 0.1759424726247170D+00
        xs( 51) = 0.1898028164619664D+00
        xs( 52) = 0.2035867454737260D+00
        xs( 53) = 0.2172794352958027D+00
        xs( 54) = 0.2308174932206000D+00
        xs( 55) = 0.2437876489668320D+00
        ws(  1) = 0.9256005170063621D-05
        ws(  2) = 0.2158664616652735D-04
        ws(  3) = 0.3403403330751644D-04
        ws(  4) = 0.4664235869046781D-04
        ws(  5) = 0.5947690920198458D-04
        ws(  6) = 0.7261152658290956D-04
        ws(  7) = 0.8612935265120097D-04
        ws(  8) = 0.1001242866397774D-03
        ws(  9) = 0.1147026355238610D-03
        ws( 10) = 0.1299850307057858D-03
        ws( 11) = 0.1461087541546294D-03
        ws( 12) = 0.1632306339186304D-03
        ws( 13) = 0.1815306855127926D-03
        ws( 14) = 0.2012167053406177D-03
        ws( 15) = 0.2225300694822230D-03
        ws( 16) = 0.2457530629694027D-03
        ws( 17) = 0.2712181673370910D-03
        ws( 18) = 0.2993198768545595D-03
        ws( 19) = 0.3305298125588405D-03
        ws( 20) = 0.3654161797328368D-03
        ws( 21) = 0.4046690016908877D-03
        ws( 22) = 0.4491331080934861D-03
        ws( 23) = 0.4998516366955436D-03
        ws( 24) = 0.5581239226828886D-03
        ws( 25) = 0.6255832823412725D-03
        ws( 26) = 0.7043025668427323D-03
        ws( 27) = 0.7969388886854656D-03
        ws( 28) = 0.9069341402767470D-03
        ws( 29) = 0.1038795732287537D-02
        ws( 30) = 0.1198493622737348D-02
        ws( 31) = 0.1394026930614319D-02
        ws( 32) = 0.1636238051349553D-02
        ws( 33) = 0.1939984594939793D-02
        ws( 34) = 0.2325811308880091D-02
        ws( 35) = 0.2822252989718022D-02
        ws( 36) = 0.3468689980074365D-02
        ws( 37) = 0.4317676471256817D-02
        ws( 38) = 0.5431942485079515D-02
        ws( 39) = 0.6861882092696127D-02
        ws( 40) = 0.8581857750901180D-02
        ws( 41) = 0.1040500514304663D-01
        ws( 42) = 0.1200978264666741D-01
        ws( 43) = 0.1315127876417102D-01
        ws( 44) = 0.1380929316028680D-01
        ws( 45) = 0.1410943473277868D-01
        ws( 46) = 0.1419346847800550D-01
        ws( 47) = 0.1416453436750875D-01
        ws( 48) = 0.1408555072263675D-01
        ws( 49) = 0.1399173081447687D-01
        ws( 50) = 0.1390187905228389D-01
        ws( 51) = 0.1382808740687292D-01
        ws( 52) = 0.1378236575992887D-01
        ws( 53) = 0.1370977697778392D-01
        ws( 54) = 0.1331992045815914D-01
        ws( 55) = 0.1100699781517708D-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 =  58
        err = 0.8979443188112284D-10
        xs(  1) = 0.2908464698490323D-05
        xs(  2) = 0.1533519013799002D-04
        xs(  3) = 0.3773577371601210D-04
        xs(  4) = 0.7019226883853983D-04
        xs(  5) = 0.1128204702557420D-03
        xs(  6) = 0.1657777449264466D-03
        xs(  7) = 0.2292682642140742D-03
        xs(  8) = 0.3035487495023839D-03
        xs(  9) = 0.3889349246356894D-03
        xs( 10) = 0.4858087333096932D-03
        xs( 11) = 0.5946264278688778D-03
        xs( 12) = 0.7159277058895894D-03
        xs( 13) = 0.8503461425647370D-03
        xs( 14) = 0.9986212400667418D-03
        xs( 15) = 0.1161612494491932D-02
        xs( 16) = 0.1340315972914077D-02
        xs( 17) = 0.1535884006023362D-02
        xs( 18) = 0.1749648744955338D-02
        xs( 19) = 0.1983150516069493D-02
        xs( 20) = 0.2238172149789433D-02
        xs( 21) = 0.2516780778086457D-02
        xs( 22) = 0.2821379019158402D-02
        xs( 23) = 0.3154768031644489D-02
        xs( 24) = 0.3520225681315748D-02
        xs( 25) = 0.3921604089955591D-02
        xs( 26) = 0.4363452243457393D-02
        xs( 27) = 0.4851171271062178D-02
        xs( 28) = 0.5391212704726381D-02
        xs( 29) = 0.5991333814572631D-02
        xs( 30) = 0.6660929502059009D-02
        xs( 31) = 0.7411467955793236D-02
        xs( 32) = 0.8257068510937278D-02
        xs( 33) = 0.9215276625334858D-02
        xs( 34) = 0.1030811540834177D-01
        xs( 35) = 0.1156352988517933D-01
        xs( 36) = 0.1301739589750173D-01
        xs( 37) = 0.1471634992621796D-01
        xs( 38) = 0.1672182282348864D-01
        xs( 39) = 0.1911584158191462D-01
        xs( 40) = 0.2200938667041365D-01
        xs( 41) = 0.2555422282110924D-01
        xs( 42) = 0.2995842021241703D-01
        xs( 43) = 0.3550137348021979D-01
        xs( 44) = 0.4252947455585066D-01
        xs( 45) = 0.5138835791839529D-01
        xs( 46) = 0.6225629408474808D-01
        xs( 47) = 0.7496858540988129D-01
        xs( 48) = 0.8904430478866283D-01
        xs( 49) = 0.1039231949071526D+00
        xs( 50) = 0.1191656597046321D+00
        xs( 51) = 0.1344994132161957D+00
        xs( 52) = 0.1497816668287540D+00
        xs( 53) = 0.1649500191682052D+00
        xs( 54) = 0.1799862851430414D+00
        xs( 55) = 0.1948932727201288D+00
        xs( 56) = 0.2096650214095909D+00
        xs( 57) = 0.2242507996439532D+00
        xs( 58) = 0.2382014198574613D+00
        ws(  1) = 0.7465272085948386D-05
        ws(  2) = 0.1740197187366967D-04
        ws(  3) = 0.2741244262203665D-04
        ws(  4) = 0.3751975545082830D-04
        ws(  5) = 0.4776279009944642D-04
        ws(  6) = 0.5818569221418274D-04
        ws(  7) = 0.6883802582481786D-04
        ws(  8) = 0.7977544535046302D-04
        ws(  9) = 0.9106042780709435D-04
        ws( 10) = 0.1027630799107904D-03
        ws( 11) = 0.1149620856938213D-03
        ws( 12) = 0.1277458663414535D-03
        ws( 13) = 0.1412140240833928D-03
        ws( 14) = 0.1554791454136701D-03
        ws( 15) = 0.1706690481736388D-03
        ws( 16) = 0.1869295733728054D-03
        ws( 17) = 0.2044280482263212D-03
        ws( 18) = 0.2233575820646692D-03
        ws( 19) = 0.2439424064607713D-03
        ws( 20) = 0.2664445357288470D-03
        ws( 21) = 0.2911721139517400D-03
        ws( 22) = 0.3184899351982031D-03
        ws( 23) = 0.3488327882398050D-03
        ws( 24) = 0.3827225057529287D-03
        ws( 25) = 0.4207899119869140D-03
        ws( 26) = 0.4638033118238331D-03
        ws( 27) = 0.5127057886178743D-03
        ws( 28) = 0.5686644888986990D-03
        ws( 29) = 0.6331363763213732D-03
        ws( 30) = 0.7079568600339237D-03
        ws( 31) = 0.7954605382143013D-03
        ws( 32) = 0.8986475587832144D-03
        ws( 33) = 0.1021415515531649D-02
        ws( 34) = 0.1168886666484495D-02
        ws( 35) = 0.1347875319207857D-02
        ws( 36) = 0.1567563545231797D-02
        ws( 37) = 0.1840488173844717D-02
        ws( 38) = 0.2183991883105870D-02
        ws( 39) = 0.2622346833785059D-02
        ws( 40) = 0.3189772766577851D-02
        ws( 41) = 0.3934289887860367D-02
        ws( 42) = 0.4920631581735463D-02
        ws( 43) = 0.6223993715850728D-02
        ws( 44) = 0.7892763455321103D-02
        ws( 45) = 0.9858343712004995D-02
        ws( 46) = 0.1184971302418693D-01
        ws( 47) = 0.1348990190798445D-01
        ws( 48) = 0.1456457338178282D-01
        ws( 49) = 0.1511943015112039D-01
        ws( 50) = 0.1532092955277477D-01
        ws( 51) = 0.1532364475986300D-01
        ws( 52) = 0.1523114926682588D-01
        ws( 53) = 0.1510353769467211D-01
        ws( 54) = 0.1497255590821129D-01
        ws( 55) = 0.1485337651359996D-01
        ws( 56) = 0.1471648128705964D-01
        ws( 57) = 0.1441093891339150D-01
        ws( 58) = 0.1193583923143180D-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 =  62
        err = 0.9251059418747733D-10
        xs(  1) = 0.2386174996731080D-05
        xs(  2) = 0.1257928974039778D-04
        xs(  3) = 0.3094500048878563D-04
        xs(  4) = 0.5753563250456664D-04
        xs(  5) = 0.9242376290330098D-04
        xs(  6) = 0.1357078435392471D-03
        xs(  7) = 0.1875154792465096D-03
        xs(  8) = 0.2480069161290522D-03
        xs(  9) = 0.3173788812662627D-03
        xs( 10) = 0.3958687829707400D-03
        xs( 11) = 0.4837592987794096D-03
        xs( 12) = 0.5813834137435282D-03
        xs( 13) = 0.6891300074811715D-03
        xs( 14) = 0.8074501221797985D-03
        xs( 15) = 0.9368640767382517D-03
        xs( 16) = 0.1077969627255930D-02
        xs( 17) = 0.1231451413043153D-02
        xs( 18) = 0.1398091974543816D-02
        xs( 19) = 0.1578784688094591D-02
        xs( 20) = 0.1774549036208479D-02
        xs( 21) = 0.1986548726819058D-02
        xs( 22) = 0.2216113296268084D-02
        xs( 23) = 0.2464763988295676D-02
        xs( 24) = 0.2734244905047222D-02
        xs( 25) = 0.3026560693248428D-02
        xs( 26) = 0.3344022377916474D-02
        xs( 27) = 0.3689303419834249D-02
        xs( 28) = 0.4065508689056701D-02
        xs( 29) = 0.4476259876111683D-02
        xs( 30) = 0.4925801981599137D-02
        xs( 31) = 0.5419137062180892D-02
        xs( 32) = 0.5962193520189886D-02
        xs( 33) = 0.6562042184370783D-02
        xs( 34) = 0.7227174572510905D-02
        xs( 35) = 0.7967864669242167D-02
        xs( 36) = 0.8796644105664339D-02
        xs( 37) = 0.9728933130254429D-02
        xs( 38) = 0.1078388833936191D-01
        xs( 39) = 0.1198555598624231D-01
        xs( 40) = 0.1336446223212831D-01
        xs( 41) = 0.1495983723309179D-01
        xs( 42) = 0.1682277171454371D-01
        xs( 43) = 0.1902076156919416D-01
        xs( 44) = 0.2164432708891198D-01
        xs( 45) = 0.2481668764175847D-01
        xs( 46) = 0.2870761670436577D-01
        xs( 47) = 0.3355146226004466D-01
        xs( 48) = 0.3966307314222820D-01
        xs( 49) = 0.4742680331662256D-01
        xs( 50) = 0.5720657264543752D-01
        xs( 51) = 0.6914929612972349D-01
        xs( 52) = 0.8301022729898161D-01
        xs( 53) = 0.9822758994994012D-01
        xs( 54) = 0.1141977586412412D+00
        xs( 55) = 0.1304706779331426D+00
        xs( 56) = 0.1467781219025637D+00
        xs( 57) = 0.1629848816750421D+00
        xs( 58) = 0.1790354087072250D+00
        xs( 59) = 0.1949150071122222D+00
        xs( 60) = 0.2106216215237611D+00
        xs( 61) = 0.2260600013796542D+00
        xs( 62) = 0.2407263209603839D+00
        ws(  1) = 0.6124454707861452D-05
        ws(  2) = 0.1427174040240058D-04
        ws(  3) = 0.2246806025016912D-04
        ws(  4) = 0.3072523846560692D-04
        ws(  5) = 0.3906737806275468D-04
        ws(  6) = 0.4752199264597711D-04
        ws(  7) = 0.5611992245131463D-04
        ws(  8) = 0.6489566921751225D-04
        ws(  9) = 0.7388775279080812D-04
        ws( 10) = 0.8313907980546338D-04
        ws( 11) = 0.9269735652270458D-04
        ws( 12) = 0.1026155826008332D-03
        ws( 13) = 0.1129526604766016D-03
        ws( 14) = 0.1237741532945031D-03
        ws( 15) = 0.1351532250850856D-03
        ws( 16) = 0.1471717996858376D-03
        ws( 17) = 0.1599219807059360D-03
        ws( 18) = 0.1735077850615971D-03
        ws( 19) = 0.1880472552998639D-03
        ws( 20) = 0.2036750340690682D-03
        ws( 21) = 0.2205455075701378D-03
        ws( 22) = 0.2388366557442606D-03
        ws( 23) = 0.2587547876891507D-03
        ws( 24) = 0.2805403945929570D-03
        ws( 25) = 0.3044754246766329D-03
        ws( 26) = 0.3308923801756399D-03
        ws( 27) = 0.3601857693490821D-03
        ws( 28) = 0.3928266238682913D-03
        ws( 29) = 0.4293810406071414D-03
        ws( 30) = 0.4705340513595297D-03
        ws( 31) = 0.5171206114011709D-03
        ws( 32) = 0.5701661882197750D-03
        ws( 33) = 0.6309404330816413D-03
        ws( 34) = 0.7010288529179098D-03
        ws( 35) = 0.7824295711921043D-03
        ws( 36) = 0.8776854200662791D-03
        ws( 37) = 0.9900664772959076D-03
        ws( 38) = 0.1123825600734204D-02
        ws( 39) = 0.1284561007417218D-02
        ws( 40) = 0.1479738289033767D-02
        ws( 41) = 0.1719452690321234D-02
        ws( 42) = 0.2017557617062067D-02
        ws( 43) = 0.2393350561838194D-02
        ws( 44) = 0.2874087756260158D-02
        ws( 45) = 0.3498618647209426D-02
        ws( 46) = 0.4321980570739274D-02
        ws( 47) = 0.5418231569169159D-02
        ws( 48) = 0.6870410087543896D-02
        ws( 49) = 0.8721266580826222D-02
        ws( 50) = 0.1086645803439877D-01
        ws( 51) = 0.1297682602576107D-01
        ws( 52) = 0.1464586014985286D-01
        ws( 53) = 0.1568486934396253D-01
        ws( 54) = 0.1618030056237364D-01
        ws( 55) = 0.1632181781495502D-01
        ws( 56) = 0.1627145917952597D-01
        ws( 57) = 0.1613346329674058D-01
        ws( 58) = 0.1596635710172100D-01
        ws( 59) = 0.1579950181721499D-01
        ws( 60) = 0.1565924255609428D-01
        ws( 61) = 0.1539273074241028D-01
        ws( 62) = 0.1290095723025287D-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 =  67
        err = 0.3460717536260924D-10
        xs(  1) = 0.1972466007211846D-05
        xs(  2) = 0.1039716104872150D-04
        xs(  3) = 0.2557176934110740D-04
        xs(  4) = 0.4753105254017578D-04
        xs(  5) = 0.7632220299544433D-04
        xs(  6) = 0.1120089498381899D-03
        xs(  7) = 0.1546736091318920D-03
        xs(  8) = 0.2044192066765390D-03
        xs(  9) = 0.2613717945891317D-03
        xs( 10) = 0.3256829597438452D-03
        xs( 11) = 0.3975325235257295D-03
        xs( 12) = 0.4771314495647300D-03
        xs( 13) = 0.5647249947850424D-03
        xs( 14) = 0.6605961565684660D-03
        xs( 15) = 0.7650694848131472D-03
        xs( 16) = 0.8785153431049740D-03
        xs( 17) = 0.1001354718862467D-02
        xs( 18) = 0.1134064699516959D-02
        xs( 19) = 0.1277184751918122D-02
        xs( 20) = 0.1431323966329301D-02
        xs( 21) = 0.1597169456308707D-02
        xs( 22) = 0.1775496143130569D-02
        xs( 23) = 0.1967178200339474D-02
        xs( 24) = 0.2173202493240155D-02
        xs( 25) = 0.2394684422954894D-02
        xs( 26) = 0.2632886679987958D-02
        xs( 27) = 0.2889241533467005D-02
        xs( 28) = 0.3165377438062169D-02
        xs( 29) = 0.3463150940842754D-02
        xs( 30) = 0.3784685131075486D-02
        xs( 31) = 0.4132416214448410D-02
        xs( 32) = 0.4509150240999365D-02
        xs( 33) = 0.4918132605512251D-02
        xs( 34) = 0.5363133729490134D-02
        xs( 35) = 0.5848555394880813D-02
        xs( 36) = 0.6379563643071267D-02
        xs( 37) = 0.6962256131527209D-02
        xs( 38) = 0.7603874577568343D-02
        xs( 39) = 0.8313076755932628D-02
        xs( 40) = 0.9100287945772107D-02
        xs( 41) = 0.9978159502200455D-02
        xs( 42) = 0.1096217352068694D-01
        xs( 43) = 0.1207144916869231D-01
        xs( 44) = 0.1332983102854072D-01
        xs( 45) = 0.1476737729062857D-01
        xs( 46) = 0.1642242283144295D-01
        xs( 47) = 0.1834448033394502D-01
        xs( 48) = 0.2059837718812166D-01
        xs( 49) = 0.2327022338983555D-01
        xs( 50) = 0.2647606199763912D-01
        xs( 51) = 0.3037422499353261D-01
        xs( 52) = 0.3518169727614390D-01
        xs( 53) = 0.4119040541166965D-01
        xs( 54) = 0.4876581516390097D-01
        xs( 55) = 0.5828702500122148D-01
        xs( 56) = 0.6998934381259117D-01
        xs( 57) = 0.8377250315222783D-01
        xs( 58) = 0.9917448050307152D-01
        xs( 59) = 0.1155834955565883D+00
        xs( 60) = 0.1324751316766583D+00
        xs( 61) = 0.1495020278535778D+00
        xs( 62) = 0.1664708134513153D+00
        xs( 63) = 0.1832894916840967D+00
        xs( 64) = 0.1999212858502389D+00
        xs( 65) = 0.2163393598138088D+00
        xs( 66) = 0.2325033232120708D+00
        xs( 67) = 0.2476493484437947D+00
        ws(  1) = 0.5062480099454329D-05
        ws(  2) = 0.1179438824227034D-04
        ws(  3) = 0.1856034619921438D-04
        ws(  4) = 0.2536604384425373D-04
        ws(  5) = 0.3222684589020151D-04
        ws(  6) = 0.3916033185216229D-04
        ws(  7) = 0.4618611906419094D-04
        ws(  8) = 0.5332604289871171D-04
        ws(  9) = 0.6060435244968720D-04
        ws( 10) = 0.6804789971272408D-04
        ws( 11) = 0.7568633606516499D-04
        ws( 12) = 0.8355233487784155D-04
        ws( 13) = 0.9168185845943020D-04
        ws( 14) = 0.1001144859744395D-03
        ws( 15) = 0.1088938178876629D-03
        ws( 16) = 0.1180679723211649D-03
        ws( 17) = 0.1276901894901248D-03
        ws( 18) = 0.1378195626793374D-03
        ws( 19) = 0.1485219177096950D-03
        ws( 20) = 0.1598708676171089D-03
        ws( 21) = 0.1719490759363474D-03
        ws( 22) = 0.1848497702721909D-03
        ws( 23) = 0.1986785588207398D-03
        ws( 24) = 0.2135556160838926D-03
        ws( 25) = 0.2296183221207759D-03
        ws( 26) = 0.2470244623315258D-03
        ws( 27) = 0.2659561248903569D-03
        ws( 28) = 0.2866244716994336D-03
        ws( 29) = 0.3092756106150059D-03
        ws( 30) = 0.3341978648172756D-03
        ws( 31) = 0.3617308266109831D-03
        ws( 32) = 0.3922767080778550D-03
        ws( 33) = 0.4263146661788419D-03
        ws( 34) = 0.4644190156152326D-03
        ws( 35) = 0.5072825576707453D-03
        ws( 36) = 0.5557467080585630D-03
        ws( 37) = 0.6108407349074020D-03
        ws( 38) = 0.6738333267394019D-03
        ws( 39) = 0.7463010243772215D-03
        ws( 40) = 0.8302199659907634D-03
        ws( 41) = 0.9280902435979175D-03
        ws( 42) = 0.1043106455360328D-02
        ws( 43) = 0.1179394539323433D-02
        ws( 44) = 0.1342345102316003D-02
        ws( 45) = 0.1539089137692341D-02
        ws( 46) = 0.1779186496757719D-02
        ws( 47) = 0.2075635636985170D-02
        ws( 48) = 0.2446368215977808D-02
        ws( 49) = 0.2916460672187114D-02
        ws( 50) = 0.3521326374756693D-02
        ws( 51) = 0.4310856345986187D-02
        ws( 52) = 0.5352665035253611D-02
        ws( 53) = 0.6726521347644211D-02
        ws( 54) = 0.8490205119994931D-02
        ws( 55) = 0.1059524463819294D-01
        ws( 56) = 0.1279342519256260D-01
        ws( 57) = 0.1469161494693797D-01
        ws( 58) = 0.1600594933273346D-01
        ws( 59) = 0.1672337612976334D-01
        ws( 60) = 0.1700261494144085D-01
        ws( 61) = 0.1701992865392158D-01
        ws( 62) = 0.1690310944003511D-01
        ws( 63) = 0.1672909055010748D-01
        ws( 64) = 0.1654020969508622D-01
        ws( 65) = 0.1632068612730415D-01
        ws( 66) = 0.1598950766056727D-01
        ws( 67) = 0.1335874867930777D-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 =  71
        err = 0.3542122378086979D-10
        xs(  1) = 0.1673101853478605D-05
        xs(  2) = 0.8818380192796215D-05
        xs(  3) = 0.2168525541034600D-04
        xs(  4) = 0.4029754862049126D-04
        xs(  5) = 0.6468687166025648D-04
        xs(  6) = 0.9489586509311480D-04
        xs(  7) = 0.1309796312640676D-03
        xs(  8) = 0.1730071732810111D-03
        xs(  9) = 0.2210629444580429D-03
        xs( 10) = 0.2752485039048279D-03
        xs( 11) = 0.3356842704016368D-03
        xs( 12) = 0.4025113766357650D-03
        xs( 13) = 0.4758936372936913D-03
        xs( 14) = 0.5560196549988989D-03
        xs( 15) = 0.6431050972480033D-03
        xs( 16) = 0.7373951856723918D-03
        xs( 17) = 0.8391674465728127D-03
        xs( 18) = 0.9487347792873563D-03
        xs( 19) = 0.1066448907300199D-02
        xs( 20) = 0.1192704286540574D-02
        xs( 21) = 0.1327942556766015D-02
        xs( 22) = 0.1472657635899824D-02
        xs( 23) = 0.1627401574312258D-02
        xs( 24) = 0.1792791307401606D-02
        xs( 25) = 0.1969516471196486D-02
        xs( 26) = 0.2158348478469425D-02
        xs( 27) = 0.2360151093938673D-02
        xs( 28) = 0.2575892798120253D-02
        xs( 29) = 0.2806661293703477D-02
        xs( 30) = 0.3053680589053822D-02
        xs( 31) = 0.3318331196048421D-02
        xs( 32) = 0.3602174109343618D-02
        xs( 33) = 0.3906979401297137D-02
        xs( 34) = 0.4234760480890563D-02
        xs( 35) = 0.4587815343832461D-02
        xs( 36) = 0.4968776503745286D-02
        xs( 37) = 0.5380671771840726D-02
        xs( 38) = 0.5826998685362116D-02
        xs( 39) = 0.6311816230275745D-02
        xs( 40) = 0.6839858642267472D-02
        xs( 41) = 0.7416677623239668D-02
        xs( 42) = 0.8048821437206146D-02
        xs( 43) = 0.8744062309956915D-02
        xs( 44) = 0.9511687717461364D-02
        xs( 45) = 0.1036287705578863D-01
        xs( 46) = 0.1131119371139851D-01
        xs( 47) = 0.1237323501237087D-01
        xs( 48) = 0.1356950105432805D-01
        xs( 49) = 0.1492557130592052D-01
        xs( 50) = 0.1647372071878078D-01
        xs( 51) = 0.1825517364564691D-01
        xs( 52) = 0.2032329826076148D-01
        xs( 53) = 0.2274820626057345D-01
        xs( 54) = 0.2562346485114633D-01
        xs( 55) = 0.2907593768855454D-01
        xs( 56) = 0.3327991275465852D-01
        xs( 57) = 0.3847550797496784D-01
        xs( 58) = 0.4498546573266614D-01
        xs( 59) = 0.5320815484325179D-01
        xs( 60) = 0.6354062409170859D-01
        xs( 61) = 0.7619760417073763D-01
        xs( 62) = 0.9101584438529153D-01
        xs( 63) = 0.1074624283543081D+00
        xs( 64) = 0.1248833184504111D+00
        xs( 65) = 0.1427422192245655D+00
        xs( 66) = 0.1606944809812759D+00
        xs( 67) = 0.1785525968370218D+00
        xs( 68) = 0.1962267237738732D+00
        xs( 69) = 0.2136745380955206D+00
        xs( 70) = 0.2308196110268814D+00
        xs( 71) = 0.2469916639501100D+00
        ws(  1) = 0.4294050174196788D-05
        ws(  2) = 0.1000233689484761D-04
        ws(  3) = 0.1573515278122796D-04
        ws(  4) = 0.2149467097177246D-04
        ws(  5) = 0.2729105924068991D-04
        ws(  6) = 0.3313608744988854D-04
        ws(  7) = 0.3904291955966446D-04
        ws(  8) = 0.4502621241092238D-04
        ws(  9) = 0.5110222723334388D-04
        ws( 10) = 0.5728893058606852D-04
        ws( 11) = 0.6360609177871076D-04
        ws( 12) = 0.7007538811736554D-04
        ws( 13) = 0.7672052911825864D-04
        ws( 14) = 0.8356740950352904D-04
        ws( 15) = 0.9064429955932509D-04
        ws( 16) = 0.9798208068750836D-04
        ws( 17) = 0.1056145336602491D-03
        ws( 18) = 0.1135786874149561D-03
        ws( 19) = 0.1219152373124973D-03
        ws( 20) = 0.1306690431657007D-03
        ws( 21) = 0.1398897196947359D-03
        ws( 22) = 0.1496323348148352D-03
        ws( 23) = 0.1599582347831913D-03
        ws( 24) = 0.1709360200293307D-03
        ws( 25) = 0.1826427007862641D-03
        ws( 26) = 0.1951650693187998D-03
        ws( 27) = 0.2086013342913383D-03
        ws( 28) = 0.2230630743983728D-03
        ws( 29) = 0.2386775831040152D-03
        ws( 30) = 0.2555906952251346D-03
        ws( 31) = 0.2739702104267729D-03
        ws( 32) = 0.2940100603709640D-03
        ws( 33) = 0.3159354081729357D-03
        ws( 34) = 0.3400089232154049D-03
        ws( 35) = 0.3665385485229427D-03
        ws( 36) = 0.3958871746007841D-03
        ws( 37) = 0.4284847669755881D-03
        ws( 38) = 0.4648436759116482D-03
        ws( 39) = 0.5055781027596703D-03
        ws( 40) = 0.5514290466562943D-03
        ws( 41) = 0.6032965390944337D-03
        ws( 42) = 0.6622816551322675D-03
        ws( 43) = 0.7297417951897802D-03
        ws( 44) = 0.8073641501165655D-03
        ws( 45) = 0.8972644001225987D-03
        ws( 46) = 0.1002120857947081D-02
        ws( 47) = 0.1125359121115704D-02
        ws( 48) = 0.1271409730020065D-02
        ws( 49) = 0.1446073064772496D-02
        ws( 50) = 0.1657044319645676D-02
        ws( 51) = 0.1914681214715120D-02
        ws( 52) = 0.2233143868372067D-02
        ws( 53) = 0.2632105761519977D-02
        ws( 54) = 0.3139321476152256D-02
        ws( 55) = 0.3794355724566703D-02
        ws( 56) = 0.4653287248252562D-02
        ws( 57) = 0.5791691930028999D-02
        ws( 58) = 0.7295765357755412D-02
        ws( 59) = 0.9218975300440023D-02
        ws( 60) = 0.1148571124559595D-01
        ws( 61) = 0.1380108792393485D-01
        ws( 62) = 0.1574156378019051D-01
        ws( 63) = 0.1703822488622074D-01
        ws( 64) = 0.1771319148063775D-01
        ws( 65) = 0.1794797561376368D-01
        ws( 66) = 0.1792637918120180D-01
        ws( 67) = 0.1777616003481143D-01
        ws( 68) = 0.1756412532485272D-01
        ws( 69) = 0.1730204074703021D-01
        ws( 70) = 0.1692548276597766D-01
        ws( 71) = 0.1438131159098962D-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 =  74
        err = 0.9827141289773047D-10
        xs(  1) = 0.1457608438153245D-05
        xs(  2) = 0.7681965248402123D-05
        xs(  3) = 0.1888795631668341D-04
        xs(  4) = 0.3509195382922612D-04
        xs(  5) = 0.5631508455297892D-04
        xs(  6) = 0.8258595760012915D-04
        xs(  7) = 0.1139417906597825D-03
        xs(  8) = 0.1504295114004571D-03
        xs(  9) = 0.1921069232205867D-03
        xs( 10) = 0.2390439285845943D-03
        xs( 11) = 0.2913237988619615D-03
        xs( 12) = 0.3490444869718883D-03
        xs( 13) = 0.4123199875979709D-03
        xs( 14) = 0.4812817575101333D-03
        xs( 15) = 0.5560802147583041D-03
        xs( 16) = 0.6368863406851385D-03
        xs( 17) = 0.7238934131300837D-03
        xs( 18) = 0.8173189031149557D-03
        xs( 19) = 0.9174065711415052D-03
        xs( 20) = 0.1024428803627009D-02
        xs( 21) = 0.1138689234802694D-02
        xs( 22) = 0.1260525705428387D-02
        xs( 23) = 0.1390313616983116D-02
        xs( 24) = 0.1528469748708780D-02
        xs( 25) = 0.1675456616107402D-02
        xs( 26) = 0.1831787462920415D-02
        xs( 27) = 0.1998031995094224D-02
        xs( 28) = 0.2174822985966674D-02
        xs( 29) = 0.2362863906968135D-02
        xs( 30) = 0.2562937769334875D-02
        xs( 31) = 0.2775917400851158D-02
        xs( 32) = 0.3002777430324269D-02
        xs( 33) = 0.3244608311471515D-02
        xs( 34) = 0.3502632794653644D-02
        xs( 35) = 0.3778225349169798D-02
        xs( 36) = 0.4072935160067023D-02
        xs( 37) = 0.4388513477715551D-02
        xs( 38) = 0.4726946297465822D-02
        xs( 39) = 0.5090493601579768D-02
        xs( 40) = 0.5481736732143949D-02
        xs( 41) = 0.5903635902386416D-02
        xs( 42) = 0.6359600431555274D-02
        xs( 43) = 0.6853575069743777D-02
        xs( 44) = 0.7390146822163537D-02
        xs( 45) = 0.7974678099893216D-02
        xs( 46) = 0.8613473988278731D-02
        xs( 47) = 0.9313994133745054D-02
        xs( 48) = 0.1008512358510733D-01
        xs( 49) = 0.1093752239214968D-01
        xs( 50) = 0.1188408166633223D-01
        xs( 51) = 0.1294052545951483D-01
        xs( 52) = 0.1412621529827302D-01
        xs( 53) = 0.1546524089252527D-01
        xs( 54) = 0.1698792216198118D-01
        xs( 55) = 0.1873291404229305D-01
        xs( 56) = 0.2075021348466407D-01
        xs( 57) = 0.2310554517124172D-01
        xs( 58) = 0.2588689224924411D-01
        xs( 59) = 0.2921438948942397D-01
        xs( 60) = 0.3325535348841043D-01
        xs( 61) = 0.3824601903465019D-01
        xs( 62) = 0.4451713294719305D-01
        xs( 63) = 0.5250498974671759D-01
        xs( 64) = 0.6269868333004204D-01
        xs( 65) = 0.7545985383018067D-01
        xs( 66) = 0.9075358127964971D-01
        xs( 67) = 0.1080490521306323D+00
        xs( 68) = 0.1265737923100722D+00
        xs( 69) = 0.1456550867454864D+00
        xs( 70) = 0.1648557851465631D+00
        xs( 71) = 0.1839406257105316D+00
        xs( 72) = 0.2027911823087490D+00
        xs( 73) = 0.2212746324429233D+00
        xs( 74) = 0.2387316853878545D+00
        ws(  1) = 0.3740911415865866D-05
        ws(  2) = 0.8712480187790041D-05
        ws(  3) = 0.1370203052346355D-04
        ws(  4) = 0.1870945990578294D-04
        ws(  5) = 0.2374155204635805D-04
        ws(  6) = 0.2880637871099600D-04
        ws(  7) = 0.3391308922982602D-04
        ws(  8) = 0.3907196573417598D-04
        ws(  9) = 0.4429448714047888D-04
        ws( 10) = 0.4959338027927024D-04
        ws( 11) = 0.5498266312427327D-04
        ws( 12) = 0.6047768858430363D-04
        ws( 13) = 0.6609519720051638D-04
        ws( 14) = 0.7185338566633772D-04
        ws( 15) = 0.7777199690998746D-04
        ws( 16) = 0.8387243639129392D-04
        ws( 17) = 0.9017791882723083D-04
        ws( 18) = 0.9671364905835912D-04
        ws( 19) = 0.1035070411560751D-03
        ws( 20) = 0.1105879803482287D-03
        ws( 21) = 0.1179891330523134D-03
        ws( 22) = 0.1257463116815644D-03
        ws( 23) = 0.1338989022122533D-03
        ws( 24) = 0.1424903642137962D-03
        ws( 25) = 0.1515688159463585D-03
        ws( 26) = 0.1611877189484973D-03
        ws( 27) = 0.1714066808831052D-03
        ws( 28) = 0.1822923992659210D-03
        ws( 29) = 0.1939197739790120D-03
        ws( 30) = 0.2063732230888226D-03
        ws( 31) = 0.2197482453145526D-03
        ws( 32) = 0.2341532825736949D-03
        ws( 33) = 0.2497119492176096D-03
        ws( 34) = 0.2665657139153763D-03
        ws( 35) = 0.2848771391081184D-03
        ws( 36) = 0.3048338159813807D-03
        ws( 37) = 0.3266531682132024D-03
        ws( 38) = 0.3505883501655750D-03
        ws( 39) = 0.3769355293179412D-03
        ws( 40) = 0.4060429379931740D-03
        ws( 41) = 0.4383221940098104D-03
        ws( 42) = 0.4742625558930383D-03
        ws( 43) = 0.5144490204755627D-03
        ws( 44) = 0.5595854562726654D-03
        ws( 45) = 0.6105244488406515D-03
        ws( 46) = 0.6683061344794256D-03
        ws( 47) = 0.7342092358842871D-03
        ws( 48) = 0.8098188321950188D-03
        ws( 49) = 0.8971174010826702D-03
        ws( 50) = 0.9986086067872526D-03
        ws( 51) = 0.1117488010979242D-02
        ws( 52) = 0.1257882024451751D-02
        ws( 53) = 0.1425188090485391D-02
        ws( 54) = 0.1626567912023554D-02
        ws( 55) = 0.1871677336629930D-02
        ws( 56) = 0.2173769639530962D-02
        ws( 57) = 0.2551397039066207D-02
        ws( 58) = 0.3031074172897632D-02
        ws( 59) = 0.3651441642367067D-02
        ws( 60) = 0.4469396340874727D-02
        ws( 61) = 0.5566758863746186D-02
        ws( 62) = 0.7048866452544862D-02
        ws( 63) = 0.9011366048049722D-02
        ws( 64) = 0.1144150885267125D-01
        ws( 65) = 0.1407741756042033D-01
        ws( 66) = 0.1641637614033191D-01
        ws( 67) = 0.1803925470699597D-01
        ws( 68) = 0.1889611049282110D-01
        ws( 69) = 0.1919459759178298D-01
        ws( 70) = 0.1916897934067493D-01
        ws( 71) = 0.1897970424547459D-01
        ws( 72) = 0.1872801372428655D-01
        ws( 73) = 0.1830497616494810D-01
        ws( 74) = 0.1525363473093424D-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 =  79
        err = 0.4793916194899915D-10
        xs(  1) = 0.1257500356197671D-05
        xs(  2) = 0.6627070571225293D-05
        xs(  3) = 0.1629301315375609D-04
        xs(  4) = 0.3026743126804009D-04
        xs(  5) = 0.4856547963105945D-04
        xs(  6) = 0.7120756725387754D-04
        xs(  7) = 0.9822015120512426D-04
        xs(  8) = 0.1296364908297288D-03
        xs(  9) = 0.1654974459196107D-03
        xs( 10) = 0.2058523164030967D-03
        xs( 11) = 0.2507597141372942D-03
        xs( 12) = 0.3002884608746107D-03
        xs( 13) = 0.3545185115693395D-03
        xs( 14) = 0.4135419071148497D-03
        xs( 15) = 0.4774637648027540D-03
        xs( 16) = 0.5464033182899862D-03
        xs( 17) = 0.6204950217451060D-03
        xs( 18) = 0.6998897352883494D-03
        xs( 19) = 0.7847560109748344D-03
        xs( 20) = 0.8752815007400519D-03
        xs( 21) = 0.9716745099943188D-03
        xs( 22) = 0.1074165723096929D-02
        xs( 23) = 0.1183010130008776D-02
        xs( 24) = 0.1298489187056848D-02
        xs( 25) = 0.1420913249163790D-02
        xs( 26) = 0.1550624316336432D-02
        xs( 27) = 0.1687999143651349D-02
        xs( 28) = 0.1833452771995749D-02
        xs( 29) = 0.1987442546431535D-02
        xs( 30) = 0.2150472700749066D-02
        xs( 31) = 0.2323099601042678D-02
        xs( 32) = 0.2505937758270724D-02
        xs( 33) = 0.2699666741316653D-02
        xs( 34) = 0.2905039147548888D-02
        xs( 35) = 0.3122889820078538D-02
        xs( 36) = 0.3354146540120547D-02
        xs( 37) = 0.3599842471687189D-02
        xs( 38) = 0.3861130696802125D-02
        xs( 39) = 0.4139301255381404D-02
        xs( 40) = 0.4435801200078151D-02
        xs( 41) = 0.4752258297701831D-02
        xs( 42) = 0.5090509163435761D-02
        xs( 43) = 0.5452632812949644D-02
        xs( 44) = 0.5840990873036402D-02
        xs( 45) = 0.6258276023764430D-02
        xs( 46) = 0.6707570681900217D-02
        xs( 47) = 0.7192418509577119D-02
        xs( 48) = 0.7716912097760474D-02
        xs( 49) = 0.8285801205184474D-02
        xs( 50) = 0.8904627321953101D-02
        xs( 51) = 0.9579892247568925D-02
        xs( 52) = 0.1031927101935711D-01
        xs( 53) = 0.1113188324883146D-01
        xs( 54) = 0.1202864222391407D-01
        xs( 55) = 0.1302270875556431D-01
        xs( 56) = 0.1413008796946712D-01
        xs( 57) = 0.1537042396226166D-01
        xs( 58) = 0.1676807269559490D-01
        xs( 59) = 0.1835357290725796D-01
        xs( 60) = 0.2016569705860894D-01
        xs( 61) = 0.2225436435721872D-01
        xs( 62) = 0.2468485911616353D-01
        xs( 63) = 0.2754405541421527D-01
        xs( 64) = 0.3094974164021271D-01
        xs( 65) = 0.3506458631334325D-01
        xs( 66) = 0.4011600682931914D-01
        xs( 67) = 0.4641961040409576D-01
        xs( 68) = 0.5439158280190334D-01
        xs( 69) = 0.6450997960369791D-01
        xs( 70) = 0.7716720715381374D-01
        xs( 71) = 0.9242565183056964D-01
        xs( 72) = 0.1098730670525075D+00
        xs( 73) = 0.1287852938676674D+00
        xs( 74) = 0.1484523782741905D+00
        xs( 75) = 0.1683698612718540D+00
        xs( 76) = 0.1882465272233007D+00
        xs( 77) = 0.2079317435378137D+00
        xs( 78) = 0.2273126578523492D+00
        xs( 79) = 0.2457805853495173D+00
        ws(  1) = 0.3227308458079125D-05
        ws(  2) = 0.7515688199665825D-05
        ws(  3) = 0.1181804341083350D-04
        ws(  4) = 0.1613329894577745D-04
        ws(  5) = 0.2046618702011338D-04
        ws(  6) = 0.2482238524134818D-04
        ws(  7) = 0.2920831256229497D-04
        ws(  8) = 0.3363116263248041D-04
        ws(  9) = 0.3809894965817663D-04
        ws( 10) = 0.4262054498449867D-04
        ws( 11) = 0.4720570539726927D-04
        ws( 12) = 0.5186509804183497D-04
        ws( 13) = 0.5661032701795308D-04
        ws( 14) = 0.6145396632555296D-04
        ws( 15) = 0.6640960296434822D-04
        ws( 16) = 0.7149189332566717D-04
        ws( 17) = 0.7671663555601879D-04
        ws( 18) = 0.8210086013027347D-04
        ws( 19) = 0.8766294073452107D-04
        ws( 20) = 0.9342272767580334D-04
        ws( 21) = 0.9940170619256838D-04
        ws( 22) = 0.1056231824153602D-03
        ws( 23) = 0.1121125003610589D-03
        ws( 24) = 0.1188972938972666D-03
        ws( 25) = 0.1260077786207263D-03
        ws( 26) = 0.1334770895503431D-03
        ws( 27) = 0.1413416717736270D-03
        ws( 28) = 0.1496417329039692D-03
        ws( 29) = 0.1584217677998252D-03
        ws( 30) = 0.1677311686213442D-03
        ws( 31) = 0.1776249356113862D-03
        ws( 32) = 0.1881645079304286D-03
        ws( 33) = 0.1994187379736756D-03
        ws( 34) = 0.2114650374580151D-03
        ws( 35) = 0.2243907311921903D-03
        ws( 36) = 0.2382946616172024D-03
        ws( 37) = 0.2532890990592166D-03
        ws( 38) = 0.2695020250662200D-03
        ws( 39) = 0.2870798743617414D-03
        ws( 40) = 0.3061908429217060D-03
        ws( 41) = 0.3270288985738765D-03
        ws( 42) = 0.3498186690374563D-03
        ws( 43) = 0.3748214318148160D-03
        ws( 44) = 0.4023424963987008D-03
        ws( 45) = 0.4327403572402428D-03
        ws( 46) = 0.4664381182982523D-03
        ws( 47) = 0.5039378450859299D-03
        ws( 48) = 0.5458387330484652D-03
        ws( 49) = 0.5928602780439655D-03
        ws( 50) = 0.6458720727772425D-03
        ws( 51) = 0.7059324743272356D-03
        ws( 52) = 0.7743392489126517D-03
        ws( 53) = 0.8526966161584856D-03
        ws( 54) = 0.9430049834126485D-03
        ws( 55) = 0.1047782542590737D-02
        ws( 56) = 0.1170232296366662D-02
        ws( 57) = 0.1314474919903053D-02
        ws( 58) = 0.1485878802242622D-02
        ws( 59) = 0.1691536165258405D-02
        ws( 60) = 0.1940963312734099D-02
        ws( 61) = 0.2247150801629312D-02
        ws( 62) = 0.2628166146181815D-02
        ws( 63) = 0.3109629184588220D-02
        ws( 64) = 0.3728521239687147D-02
        ws( 65) = 0.4538651961679779D-02
        ws( 66) = 0.5616491003926507D-02
        ws( 67) = 0.7060555986108148D-02
        ws( 68) = 0.8965473924062328D-02
        ws( 69) = 0.1134131486226606D-01
        ws( 70) = 0.1398669766349070D-01
        ws( 71) = 0.1645830276024474D-01
        ws( 72) = 0.1830943543719090D-01
        ws( 73) = 0.1939350483949706D-01
        ws( 74) = 0.1985684197021495D-01
        ws( 75) = 0.1993110372939768D-01
        ws( 76) = 0.1980078718636064D-01
        ws( 77) = 0.1956494064030483D-01
        ws( 78) = 0.1919867930677736D-01
        ws( 79) = 0.1661122870758026D-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 =  83
        err = 0.5498095727623324D-10
        xs(  1) = 0.1108487882296808D-05
        xs(  2) = 0.5841496113464427D-05
        xs(  3) = 0.1436042049917746D-04
        xs(  4) = 0.2667398344322481D-04
        xs(  5) = 0.4279268055671619D-04
        xs(  6) = 0.6273066872528620D-04
        xs(  7) = 0.8650639888435080D-04
        xs(  8) = 0.1141432022483076D-03
        xs(  9) = 0.1456699046913648D-03
        xs( 10) = 0.1811214675086930D-03
        xs( 11) = 0.2205396459074760D-03
        xs( 12) = 0.2639736589028841D-03
        xs( 13) = 0.3114808680596450D-03
        xs( 14) = 0.3631274662697804D-03
        xs( 15) = 0.4189891808837788D-03
        xs( 16) = 0.4791519981139229D-03
        xs( 17) = 0.5437129175912019D-03
        xs( 18) = 0.6127807476217389D-03
        xs( 19) = 0.6864769529583202D-03
        xs( 20) = 0.7649365680099907D-03
        xs( 21) = 0.8483091896044650D-03
        xs( 22) = 0.9367600645732287D-03
        xs( 23) = 0.1030471288787477D-02
        xs( 24) = 0.1129643135947177D-02
        xs( 25) = 0.1234495536379760D-02
        xs( 26) = 0.1345269728485634D-02
        xs( 27) = 0.1462230108425404D-02
        xs( 28) = 0.1585666307085097D-02
        xs( 29) = 0.1715895527657068D-02
        xs( 30) = 0.1853265182225373D-02
        xs( 31) = 0.1998155871902914D-02
        xs( 32) = 0.2150984762404891D-02
        xs( 33) = 0.2312209415704445D-02
        xs( 34) = 0.2482332149351633D-02
        xs( 35) = 0.2661905007547096D-02
        xs( 36) = 0.2851535443911109D-02
        xs( 37) = 0.3051892834925371D-02
        xs( 38) = 0.3263715965803985D-02
        xs( 39) = 0.3487821658985691D-02
        xs( 40) = 0.3725114750819606D-02
        xs( 41) = 0.3976599663782235D-02
        xs( 42) = 0.4243393875933935D-02
        xs( 43) = 0.4526743655883483D-02
        xs( 44) = 0.4828042514107829D-02
        xs( 45) = 0.5148852926894834D-02
        xs( 46) = 0.5490932023794797D-02
        xs( 47) = 0.5856262098255087D-02
        xs( 48) = 0.6247087019497163D-02
        xs( 49) = 0.6665955909552138D-02
        xs( 50) = 0.7115775814682938D-02
        xs( 51) = 0.7599875585901193D-02
        xs( 52) = 0.8122083828758500D-02
        xs( 53) = 0.8686824633736231D-02
        xs( 54) = 0.9299235961029067D-02
        xs( 55) = 0.9965317132940014D-02
        xs( 56) = 0.1069211406147745D-01
        xs( 57) = 0.1148795388332880D-01
        xs( 58) = 0.1236274496655801D-01
        xs( 59) = 0.1332836444176863D-01
        xs( 60) = 0.1439916443635811D-01
        xs( 61) = 0.1559264150488676D-01
        xs( 62) = 0.1693033410648720D-01
        xs( 63) = 0.1843904415316029D-01
        xs( 64) = 0.2015252780223044D-01
        xs( 65) = 0.2211387981771639D-01
        xs( 66) = 0.2437896387076860D-01
        xs( 67) = 0.2702144809925613D-01
        xs( 68) = 0.3014033763175024D-01
        xs( 69) = 0.3387140069327060D-01
        xs( 70) = 0.3840434897365540D-01
        xs( 71) = 0.4400673470639414D-01
        xs( 72) = 0.5104945490790802D-01
        xs( 73) = 0.6001084451169698D-01
        xs( 74) = 0.7140579965743446D-01
        xs( 75) = 0.8558328907857835D-01
        xs( 76) = 0.1024553390617055D+00
        xs( 77) = 0.1214249143957051D+00
        xs( 78) = 0.1416668149833120D+00
        xs( 79) = 0.1624753489364779D+00
        xs( 80) = 0.1833951374606878D+00
        xs( 81) = 0.2041745301655018D+00
        xs( 82) = 0.2246261727955266D+00
        xs( 83) = 0.2440949248457436D+00
        ws(  1) = 0.2844844632648954D-05
        ws(  2) = 0.6624393417876025D-05
        ws(  3) = 0.1041475922188485D-04
        ws(  4) = 0.1421409950289527D-04
        ws(  5) = 0.1802564451733861D-04
        ws(  6) = 0.2185339727442939D-04
        ws(  7) = 0.2570194131860295D-04
        ws(  8) = 0.2957645902036267D-04
        ws(  9) = 0.3348276176013235D-04
        ws( 10) = 0.3742731190547837D-04
        ws( 11) = 0.4141723675276420D-04
        ws( 12) = 0.4546033802747084D-04
        ws( 13) = 0.4956510073201435D-04
        ws( 14) = 0.5374070486040551D-04
        ws( 15) = 0.5799704285390494D-04
        ws( 16) = 0.6234474498689713D-04
        ws( 17) = 0.6679521458430970D-04
        ws( 18) = 0.7136067441482511D-04
        ws( 19) = 0.7605422548403098D-04
        ws( 20) = 0.8088991933798208D-04
        ws( 21) = 0.8588284504884956D-04
        ws( 22) = 0.9104923210121536D-04
        ws( 23) = 0.9640657068377632D-04
        ws( 24) = 0.1019737512273172D-03
        ws( 25) = 0.1077712252785198D-03
        ws( 26) = 0.1138211904235612D-03
        ws( 27) = 0.1201478024021239D-03
        ws( 28) = 0.1267774182784936D-03
        ws( 29) = 0.1337388753334699D-03
        ws( 30) = 0.1410638112046992D-03
        ws( 31) = 0.1487870320799207D-03
        ws( 32) = 0.1569469367968249D-03
        ws( 33) = 0.1655860067796436D-03
        ws( 34) = 0.1747513734498005D-03
        ws( 35) = 0.1844954769884275D-03
        ws( 36) = 0.1948768341231938D-03
        ws( 37) = 0.2059609354555138D-03
        ws( 38) = 0.2178212976785809D-03
        ws( 39) = 0.2305407025858574D-03
        ws( 40) = 0.2442126612077410D-03
        ws( 41) = 0.2589431498794746D-03
        ws( 42) = 0.2748526796496723D-03
        ws( 43) = 0.2920787715661248D-03
        ws( 44) = 0.3107789314997461D-03
        ws( 45) = 0.3311342430341834D-03
        ws( 46) = 0.3533537293608945D-03
        ws( 47) = 0.3776796738900472D-03
        ws( 48) = 0.4043941496137397D-03
        ws( 49) = 0.4338270802694452D-03
        ws( 50) = 0.4663662480312102D-03
        ws( 51) = 0.5024698112753077D-03
        ws( 52) = 0.5426820648889597D-03
        ws( 53) = 0.5876534337792995D-03
        ws( 54) = 0.6381660480282026D-03
        ws( 55) = 0.6951667411739324D-03
        ws( 56) = 0.7598100235085105D-03
        ws( 57) = 0.8335146287669554D-03
        ws( 58) = 0.9180387252631918D-03
        ws( 59) = 0.1015581239698869D-02
        ws( 60) = 0.1128920105770421D-02
        ws( 61) = 0.1261603749479832D-02
        ws( 62) = 0.1418220774857904D-02
        ws( 63) = 0.1604786413638330D-02
        ws( 64) = 0.1829307458288821D-02
        ws( 65) = 0.2102625303967640D-02
        ws( 66) = 0.2439698553198737D-02
        ws( 67) = 0.2861585116248484D-02
        ws( 68) = 0.3398539706377906D-02
        ws( 69) = 0.4094799284282254D-02
        ws( 70) = 0.5015216992891156D-02
        ws( 71) = 0.6251170938314461D-02
        ws( 72) = 0.7914985649266305D-02
        ws( 73) = 0.1009705748025987D-01
        ws( 74) = 0.1275630309274574D-01
        ws( 75) = 0.1558585851716917D-01
        ws( 76) = 0.1805304444605838D-01
        ws( 77) = 0.1974194405699625D-01
        ws( 78) = 0.2062235219960885D-01
        ws( 79) = 0.2091981550189581D-01
        ws( 80) = 0.2087959228510053D-01
        ws( 81) = 0.2066556928994358D-01
        ws( 82) = 0.2024364896712035D-01
        ws( 83) = 0.1734391023808974D-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 =  87
        err = 0.7950698331526140D-10
        xs(  1) = 0.9832123112158685D-06
        xs(  2) = 0.5181152252290127D-05
        xs(  3) = 0.1273631741651299D-04
        xs(  4) = 0.2365523574594830D-04
        xs(  5) = 0.3794542143404899D-04
        xs(  6) = 0.5561699978618887D-04
        xs(  7) = 0.7668320845453328D-04
        xs(  8) = 0.1011608497480278D-03
        xs(  9) = 0.1290707623195232D-03
        xs( 10) = 0.1604383118765755D-03
        xs( 11) = 0.1952938936665047D-03
        xs( 12) = 0.2336734407005639D-03
        xs( 13) = 0.2756189344735170D-03
        xs( 14) = 0.3211789176060070D-03
        xs( 15) = 0.3704090103101529D-03
        xs( 16) = 0.4233724345073716D-03
        xs( 17) = 0.4801405509586765D-03
        xs( 18) = 0.5407934159438766D-03
        xs( 19) = 0.6054203649511505D-03
        xs( 20) = 0.6741206315028036D-03
        xs( 21) = 0.7470040099402405D-03
        xs( 22) = 0.8241915715455445D-03
        xs( 23) = 0.9058164440538042D-03
        xs( 24) = 0.9920246654007672D-03
        xs( 25) = 0.1082976123442162D-02
        xs( 26) = 0.1178845594440794D-02
        xs( 27) = 0.1279823894594409D-02
        xs( 28) = 0.1386119160384587D-02
        xs( 29) = 0.1497958275500394D-02
        xs( 30) = 0.1615588464554789D-02
        xs( 31) = 0.1739279076449651D-02
        xs( 32) = 0.1869323583707479D-02
        xs( 33) = 0.2006041828085959D-02
        xs( 34) = 0.2149782547360617D-02
        xs( 35) = 0.2300926223994186D-02
        xs( 36) = 0.2459888303036533D-02
        xs( 37) = 0.2627122834731423D-02
        xs( 38) = 0.2803126606746448D-02
        xs( 39) = 0.2988443842856547D-02
        xs( 40) = 0.3183671558523072D-02
        xs( 41) = 0.3389465681155473D-02
        xs( 42) = 0.3606548063036982D-02
        xs( 43) = 0.3835714539899943D-02
        xs( 44) = 0.4077844219438395D-02
        xs( 45) = 0.4333910221273080D-02
        xs( 46) = 0.4604992136446648D-02
        xs( 47) = 0.4892290533441356D-02
        xs( 48) = 0.5197143909137763D-02
        xs( 49) = 0.5521048574401786D-02
        xs( 50) = 0.5865682079271024D-02
        xs( 51) = 0.6232930928817356D-02
        xs( 52) = 0.6624923526581128D-02
        xs( 53) = 0.7044069522386187D-02
        xs( 54) = 0.7493107056001111D-02
        xs( 55) = 0.7975159791266034D-02
        xs( 56) = 0.8493806175405580D-02
        xs( 57) = 0.9053164071386659D-02
        xs( 58) = 0.9657994866609147D-02
        xs( 59) = 0.1031383246385232D-01
        xs( 60) = 0.1102714433623362D-01
        xs( 61) = 0.1180553430371191D-01
        xs( 62) = 0.1265800017282596D-01
        xs( 63) = 0.1359526431706675D-01
        xs( 64) = 0.1463020249509465D-01
        xs( 65) = 0.1577840679963979D-01
        xs( 66) = 0.1705893463862479D-01
        xs( 67) = 0.1849532019696763D-01
        xs( 68) = 0.2011696353426026D-01
        xs( 69) = 0.2196107471890657D-01
        xs( 70) = 0.2407545162284388D-01
        xs( 71) = 0.2652254131990164D-01
        xs( 72) = 0.2938552222897596D-01
        xs( 73) = 0.3277760610836302D-01
        xs( 74) = 0.3685640205886934D-01
        xs( 75) = 0.4184547558423906D-01
        xs( 76) = 0.4806299603599892D-01
        xs( 77) = 0.5594747753828948D-01
        xs( 78) = 0.6604527395067498D-01
        xs( 79) = 0.7889027722071723D-01
        xs( 80) = 0.9473282491844871D-01
        xs( 81) = 0.1132728861776538D+00
        xs( 82) = 0.1337289053010826D+00
        xs( 83) = 0.1552298130326379D+00
        xs( 84) = 0.1771191596487376D+00
        xs( 85) = 0.1989983093876539D+00
        xs( 86) = 0.2205810363997416D+00
        xs( 87) = 0.2412293726936033D+00
        ws(  1) = 0.2523315863410997D-05
        ws(  2) = 0.5875312073389165D-05
        ws(  3) = 0.9235973934395313D-05
        ws(  4) = 0.1260310135327653D-04
        ws(  5) = 0.1597894998252527D-04
        ws(  6) = 0.1936640552296746D-04
        ws(  7) = 0.2276880432531955D-04
        ws(  8) = 0.2618994317432484D-04
        ws(  9) = 0.2963410119835814D-04
        ws( 10) = 0.3310605531372426D-04
        ws( 11) = 0.3661108858547865D-04
        ws( 12) = 0.4015499385897104D-04
        ws( 13) = 0.4374407552560790D-04
        ws( 14) = 0.4738515205059883D-04
        ws( 15) = 0.5108556140886288D-04
        ws( 16) = 0.5485317118845390D-04
        ws( 17) = 0.5869639471818327D-04
        ws( 18) = 0.6262421420604331D-04
        ws( 19) = 0.6664621170271823D-04
        ws( 20) = 0.7077260854779764D-04
        ws( 21) = 0.7501431391029293D-04
        ws( 22) = 0.7938298305326494D-04
        ws( 23) = 0.8389108598603891D-04
        ws( 24) = 0.8855198741124480D-04
        ws( 25) = 0.9338003889488355D-04
        ws( 26) = 0.9839068450388983D-04
        ws( 27) = 0.1036005814821435D-03
        ws( 28) = 0.1090277375393530D-03
        ws( 29) = 0.1146916671345560D-03
        ws( 30) = 0.1206135692081339D-03
        ws( 31) = 0.1268165293228983D-03
        ws( 32) = 0.1333257501351947D-03
        ws( 33) = 0.1401688142181824D-03
        ws( 34) = 0.1473759845763554D-03
        ws( 35) = 0.1549805489759842D-03
        ws( 36) = 0.1630192154605533D-03
        ws( 37) = 0.1715325677737735D-03
        ws( 38) = 0.1805655912147053D-03
        ws( 39) = 0.1901682818815097D-03
        ws( 40) = 0.2003963541656722D-03
        ws( 41) = 0.2113120659432228D-03
        ws( 42) = 0.2229851828240701D-03
        ws( 43) = 0.2354941104873707D-03
        ws( 44) = 0.2489272283107523D-03
        ws( 45) = 0.2633844663747580D-03
        ws( 46) = 0.2789791773622933D-03
        ws( 47) = 0.2958403694438033D-03
        ws( 48) = 0.3141153784482702D-03
        ws( 49) = 0.3339730840302753D-03
        ws( 50) = 0.3556077969361241D-03
        ws( 51) = 0.3792439838016764D-03
        ws( 52) = 0.4051420370905753D-03
        ws( 53) = 0.4336053663092581D-03
        ws( 54) = 0.4649891646351336D-03
        ws( 55) = 0.4997113128666715D-03
        ws( 56) = 0.5382660434377084D-03
        ws( 57) = 0.5812411800901609D-03
        ws( 58) = 0.6293400658056254D-03
        ws( 59) = 0.6834096920190969D-03
        ws( 60) = 0.7444771042118471D-03
        ws( 61) = 0.8137970144661685D-03
        ws( 62) = 0.8929147223672086D-03
        ws( 63) = 0.9837502638479470D-03
        ws( 64) = 0.1088712467975805D-02
        ws( 65) = 0.1210855783028760D-02
        ws( 66) = 0.1354099515974953D-02
        ws( 67) = 0.1523539844820139D-02
        ws( 68) = 0.1725903237416137D-02
        ws( 69) = 0.1970219441227014D-02
        ws( 70) = 0.2268843599620958D-02
        ws( 71) = 0.2639048240797840D-02
        ws( 72) = 0.3105548666727561D-02
        ws( 73) = 0.3704530449652264D-02
        ws( 74) = 0.4489827458334501D-02
        ws( 75) = 0.5540843019885559D-02
        ws( 76) = 0.6967310344027392D-02
        ws( 77) = 0.8894530156014812D-02
        ws( 78) = 0.1139487415454132D-01
        ws( 79) = 0.1434240725612866D-01
        ws( 80) = 0.1729159675751410D-01
        ws( 81) = 0.1965028684002100D-01
        ws( 82) = 0.2111118359285769D-01
        ws( 83) = 0.2178097313351497D-01
        ws( 84) = 0.2193447388189424D-01
        ws( 85) = 0.2179899491935158D-01
        ws( 86) = 0.2130275836620249D-01
        ws( 87) = 0.1760534665681311D-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 =  91
        err = 0.9587282168481662D-10
        xs(  1) = 0.8794941176626097D-06
        xs(  2) = 0.4634462467444006D-05
        xs(  3) = 0.1139184505112563D-04
        xs(  4) = 0.2115652066016072D-04
        xs(  5) = 0.3393379451387061D-04
        xs(  6) = 0.4973082205621801D-04
        xs(  7) = 0.6855702092095028D-04
        xs(  8) = 0.9042443375087348D-04
        xs(  9) = 0.1153481040665709D-03
        xs( 10) = 0.1433464656774165D-03
        xs( 11) = 0.1744417394878064D-03
        xs( 12) = 0.2086603323017580D-03
        xs( 13) = 0.2460332342524534D-03
        xs( 14) = 0.2865964136305633D-03
        xs( 15) = 0.3303912097412355D-03
        xs( 16) = 0.3774647260154180D-03
        xs( 17) = 0.4278702267343962D-03
        xs( 18) = 0.4816675416574669D-03
        xs( 19) = 0.5389234834968765D-03
        xs( 20) = 0.5997122837038687D-03
        xs( 21) = 0.6641160523622686D-03
        xs( 22) = 0.7322252683243812D-03
        xs( 23) = 0.8041393061151136D-03
        xs( 24) = 0.8799670064125351D-03
        xs( 25) = 0.9598272973823824D-03
        xs( 26) = 0.1043849874648741D-02
        xs( 27) = 0.1132175948326212D-02
        xs( 28) = 0.1224959066366195D-02
        xs( 29) = 0.1322366024298726D-02
        xs( 30) = 0.1424577872722393D-02
        xs( 31) = 0.1531791035187508D-02
        xs( 32) = 0.1644218550639208D-02
        xs( 33) = 0.1762091456754406D-02
        xs( 34) = 0.1885660332472529D-02
        xs( 35) = 0.2015197020758151D-02
        xs( 36) = 0.2150996555930693D-02
        xs( 37) = 0.2293379323396515D-02
        xs( 38) = 0.2442693484147267D-02
        xs( 39) = 0.2599317701311857D-02
        xs( 40) = 0.2763664212725949D-02
        xs( 41) = 0.2936182300231964D-02
        xs( 42) = 0.3117362215518708D-02
        xs( 43) = 0.3307739632893198D-02
        xs( 44) = 0.3507900711537669D-02
        xs( 45) = 0.3718487865560176D-02
        xs( 46) = 0.3940206358480566D-02
        xs( 47) = 0.4173831860567004D-02
        xs( 48) = 0.4420219135714563D-02
        xs( 49) = 0.4680312057779379D-02
        xs( 50) = 0.4955155196928870D-02
        xs( 51) = 0.5245907269247062D-02
        xs( 52) = 0.5553856804545540D-02
        xs( 53) = 0.5880440469075535D-02
        xs( 54) = 0.6227264578538572D-02
        xs( 55) = 0.6596130464010657D-02
        xs( 56) = 0.6989064515763579D-02
        xs( 57) = 0.7408353936112571D-02
        xs( 58) = 0.7856589500740923D-02
        xs( 59) = 0.8336716975468266D-02
        xs( 60) = 0.8852099293904660D-02
        xs( 61) = 0.9406592204589240D-02
        xs( 62) = 0.1000463690397968D-01
        xs( 63) = 0.1065137426178081D-01
        xs( 64) = 0.1135278673055440D-01
        xs( 65) = 0.1211587608943600D-01
        xs( 66) = 0.1294888803976236D-01
        xs( 67) = 0.1386159874647455D-01
        xs( 68) = 0.1486568429056732D-01
        xs( 69) = 0.1597520259696684D-01
        xs( 70) = 0.1720723034166274D-01
        xs( 71) = 0.1858271712584517D-01
        xs( 72) = 0.2012764986702382D-01
        xs( 73) = 0.2187467008745652D-01
        xs( 74) = 0.2386536833646879D-01
        xs( 75) = 0.2615361678078843D-01
        xs( 76) = 0.2881053369799787D-01
        xs( 77) = 0.3193206131851177D-01
        xs( 78) = 0.3565076517827976D-01
        xs( 79) = 0.4015414124929848D-01
        xs( 80) = 0.4571118592263956D-01
        xs( 81) = 0.5270382177560586D-01
        xs( 82) = 0.6164364332514700D-01
        xs( 83) = 0.7312358507975573D-01
        xs( 84) = 0.8763194787392498D-01
        xs( 85) = 0.1052391638761629D+00
        xs( 86) = 0.1254159356077366D+00
        xs( 87) = 0.1472632428645216D+00
        xs( 88) = 0.1699344037293805D+00
        xs( 89) = 0.1928481346960887D+00
        xs( 90) = 0.2156461256320111D+00
        xs( 91) = 0.2374686206068605D+00
        ws(  1) = 0.2257118186543222D-05
        ws(  2) = 0.5255189173250735D-05
        ws(  3) = 0.8260271132352175D-05
        ws(  4) = 0.1126995249754171D-04
        ws(  5) = 0.1428578160509887D-04
        ws(  6) = 0.1730983710092080D-04
        ws(  7) = 0.2034456146282866D-04
        ws(  8) = 0.2339276494350111D-04
        ws(  9) = 0.2645764136263127D-04
        ws( 10) = 0.2954277868902131D-04
        ws( 11) = 0.3265216343889737D-04
        ws( 12) = 0.3579018063149590D-04
        ws( 13) = 0.3896161144565204D-04
        ws( 14) = 0.4217163065112529D-04
        ws( 15) = 0.4542580553690505D-04
        ws( 16) = 0.4873009765831575D-04
        ws( 17) = 0.5209086846435860D-04
        ws( 18) = 0.5551488958424809D-04
        ws( 19) = 0.5900935835389079D-04
        ws( 20) = 0.6258191892237079D-04
        ws( 21) = 0.6624068943123832D-04
        ws( 22) = 0.6999429542472904D-04
        ws( 23) = 0.7385190993956319D-04
        ws( 24) = 0.7782330070037449D-04
        ws( 25) = 0.8191888474521405D-04
        ws( 26) = 0.8614979111132122D-04
        ws( 27) = 0.9052793243595170D-04
        ws( 28) = 0.9506608613561648D-04
        ws( 29) = 0.9977798622997612D-04
        ws( 30) = 0.1046784272096631D-03
        ws( 31) = 0.1097833812005952D-03
        ws( 32) = 0.1151101303237737D-03
        ws( 33) = 0.1206774164070641D-03
        ws( 34) = 0.1265056101315688D-03
        ws( 35) = 0.1326169029089697D-03
        ws( 36) = 0.1390355246829333D-03
        ws( 37) = 0.1457879917440314D-03
        ws( 38) = 0.1529033891874492D-03
        ws( 39) = 0.1604136937659535D-03
        ws( 40) = 0.1683541441051027D-03
        ws( 41) = 0.1767636655027684D-03
        ws( 42) = 0.1856853599855530D-03
        ws( 43) = 0.1951670720689614D-03
        ws( 44) = 0.2052620446583842D-03
        ws( 45) = 0.2160296817461379D-03
        ws( 46) = 0.2275364381700474D-03
        ws( 47) = 0.2398568602796971D-03
        ws( 48) = 0.2530748099230342D-03
        ws( 49) = 0.2672849059121159D-03
        ws( 50) = 0.2825942316468979D-03
        ws( 51) = 0.2991243638426991D-03
        ws( 52) = 0.3170137941469698D-03
        ws( 53) = 0.3364208333814942D-03
        ws( 54) = 0.3575271091001956D-03
        ws( 55) = 0.3805418007325583D-03
        ws( 56) = 0.4057067943588327D-03
        ws( 57) = 0.4333029902951675D-03
        ws( 58) = 0.4636580700123436D-03
        ws( 59) = 0.4971561158510709D-03
        ws( 60) = 0.5342496127270353D-03
        ws( 61) = 0.5754745185525006D-03
        ws( 62) = 0.6214693458096903D-03
        ws( 63) = 0.6729995085848402D-03
        ws( 64) = 0.7309886841442015D-03
        ws( 65) = 0.7965595903090111D-03
        ws( 66) = 0.8710875825143419D-03
        ws( 67) = 0.9562719106333570D-03
        ws( 68) = 0.1054231694359819D-02
        ws( 69) = 0.1167637008900144D-02
        ws( 70) = 0.1299891001698745D-02
        ws( 71) = 0.1455387278891173D-02
        ws( 72) = 0.1639881038263325D-02
        ws( 73) = 0.1861036974270670D-02
        ws( 74) = 0.2129257711704581D-02
        ws( 75) = 0.2458969655007157D-02
        ws( 76) = 0.2870663668881219D-02
        ws( 77) = 0.3394186482570826D-02
        ws( 78) = 0.4074023824637134D-02
        ws( 79) = 0.4976998237914044D-02
        ws( 80) = 0.6200347711848613D-02
        ws( 81) = 0.7870788421230847D-02
        ws( 82) = 0.1011069352404627D-01
        ws( 83) = 0.1293646166458029D-01
        ws( 84) = 0.1609609256729697D-01
        ws( 85) = 0.1902554137310272D-01
        ws( 86) = 0.2116984234755461D-01
        ws( 87) = 0.2238022197564819D-01
        ws( 88) = 0.2286670662712787D-01
        ws( 89) = 0.2290794342012113D-01
        ws( 90) = 0.2269581984625492D-01
        ws( 91) = 0.2030640210679600D-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 =  33
        err = 0.3638703680208085D-10
        xs(  1) = 0.2429465347140815D-03
        xs(  2) = 0.1276404631653046D-02
        xs(  3) = 0.3118242922049434D-02
        xs(  4) = 0.5733888211674946D-02
        xs(  5) = 0.9071656253669468D-02
        xs(  6) = 0.1307049769299204D-01
        xs(  7) = 0.1766781781423995D-01
        xs(  8) = 0.2280445043626653D-01
        xs(  9) = 0.2842680001055998D-01
        xs( 10) = 0.3448725107683216D-01
        xs( 11) = 0.4094379580639013D-01
        xs( 12) = 0.4775942388580732D-01
        xs( 13) = 0.5490151524137632D-01
        xs( 14) = 0.6234131199701063D-01
        xs( 15) = 0.7005347554966279D-01
        xs( 16) = 0.7801571287039179D-01
        xs( 17) = 0.8620845496684333D-01
        xs( 18) = 0.9461457618793431D-01
        xs( 19) = 0.1032191438317290D+00
        xs( 20) = 0.1120092076100809D+00
        xs( 21) = 0.1209736104683846D+00
        xs( 22) = 0.1301027670366714D+00
        xs( 23) = 0.1393887887917486D+00
        xs( 24) = 0.1488248573111089D+00
        xs( 25) = 0.1584059286689988D+00
        xs( 26) = 0.1681274893683174D+00
        xs( 27) = 0.1779859486357540D+00
        xs( 28) = 0.1879948293937231D+00
        xs( 29) = 0.1980876270375703D+00
        xs( 30) = 0.2085005780919736D+00
        xs( 31) = 0.2185798869921158D+00
        xs( 32) = 0.2295173879161373D+00
        xs( 33) = 0.2513365444248014D+00
        ws(  1) = 0.6230921141168357D-03
        ws(  2) = 0.1441713928634687D-02
        ws(  3) = 0.2236139439750453D-02
        ws(  4) = 0.2986394282356199D-02
        ws(  5) = 0.3678829489491792D-02
        ws(  6) = 0.4308339120626928D-02
        ws(  7) = 0.4876407457711427D-02
        ws(  8) = 0.5387920683650993D-02
        ws(  9) = 0.5848849997450680D-02
        ws( 10) = 0.6265061512402427D-02
        ws( 11) = 0.6641869828011071D-02
        ws( 12) = 0.6983958448598775D-02
        ws( 13) = 0.7295438620483904D-02
        ws( 14) = 0.7579937976100257D-02
        ws( 15) = 0.7840678948189133D-02
        ws( 16) = 0.8080538909396966D-02
        ws( 17) = 0.8302095021357179D-02
        ws( 18) = 0.8507661828044038D-02
        ws( 19) = 0.8699323036854450D-02
        ws( 20) = 0.8878929270042978D-02
        ws( 21) = 0.9048309521472795D-02
        ws( 22) = 0.9208709229092350D-02
        ws( 23) = 0.9362155063129842D-02
        ws( 24) = 0.9508577802412047D-02
        ws( 25) = 0.9654699620543813D-02
        ws( 26) = 0.9786800410584160D-02
        ws( 27) = 0.9933951562549446D-02
        ws( 28) = 0.1004848154619439D-01
        ws( 29) = 0.1021423861368083D-01
        ws( 30) = 0.1047537592060022D-01
        ws( 31) = 0.1018815161952464D-01
        ws( 32) = 0.1242080891286034D-01
        ws( 33) = 0.3601484092477468D-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 =  32
        err = 0.4663050007108306D-10
        xs(  1) = 0.2430896268243439D-03
        xs(  2) = 0.1279255403514431D-02
        xs(  3) = 0.3132727575548145D-02
        xs(  4) = 0.5775360714960650D-02
        xs(  5) = 0.9158636401537849D-02
        xs(  6) = 0.1322129549696159D-01
        xs(  7) = 0.1789863108151436D-01
        xs(  8) = 0.2312876767723910D-01
        xs(  9) = 0.2885546754748029D-01
        xs( 10) = 0.3502876119870693D-01
        xs( 11) = 0.4160460812539297D-01
        xs( 12) = 0.4854427169895216D-01
        xs( 13) = 0.5581369592560399D-01
        xs( 14) = 0.6338296570138222D-01
        xs( 15) = 0.7122585111693290D-01
        xs( 16) = 0.7931941639899752D-01
        xs( 17) = 0.8764367655393827D-01
        xs( 18) = 0.9618129272502858D-01
        xs( 19) = 0.1049173035962947D+00
        xs( 20) = 0.1138388715092378D+00
        xs( 21) = 0.1229351715011754D+00
        xs( 22) = 0.1321969564288028D+00
        xs( 23) = 0.1416169329977621D+00
        xs( 24) = 0.1511890110355644D+00
        xs( 25) = 0.1609102622959929D+00
        xs( 26) = 0.1707739415390408D+00
        xs( 27) = 0.1807744326276311D+00
        xs( 28) = 0.1909486640801426D+00
        xs( 29) = 0.2012942760615737D+00
        xs( 30) = 0.2116175541207846D+00
        xs( 31) = 0.2220374018228642D+00
        xs( 32) = 0.2447583587761977D+00
        ws(  1) = 0.6237181390865319D-03
        ws(  2) = 0.1447654867248141D-02
        ws(  3) = 0.2254597611541523D-02
        ws(  4) = 0.3022435427733458D-02
        ws(  5) = 0.3733739544902717D-02
        ws(  6) = 0.4380689883467016D-02
        ws(  7) = 0.4963625720093468D-02
        ws(  8) = 0.5487266970510300D-02
        ws(  9) = 0.5957811722556525D-02
        ws( 10) = 0.6381446517951839D-02
        ws( 11) = 0.6763801764041080D-02
        ws( 12) = 0.7109858359101719D-02
        ws( 13) = 0.7424011784739154D-02
        ws( 14) = 0.7710162593534952D-02
        ws( 15) = 0.7971791302167753D-02
        ws( 16) = 0.8212013494132158D-02
        ws( 17) = 0.8433621783208290D-02
        ws( 18) = 0.8639119150584651D-02
        ws( 19) = 0.8830771402329836D-02
        ws( 20) = 0.9010568213574393D-02
        ws( 21) = 0.9180400143915680D-02
        ws( 22) = 0.9342222604946489D-02
        ws( 23) = 0.9496772413983131D-02
        ws( 24) = 0.9645180883270935D-02
        ws( 25) = 0.9796373231325954D-02
        ws( 26) = 0.9943361760001797D-02
        ws( 27) = 0.1006610677251341D-01
        ws( 28) = 0.1016406766924970D-01
        ws( 29) = 0.1041845794710891D-01
        ws( 30) = 0.1134913130547155D-01
        ws( 31) = 0.1048190224430919D-01
        ws( 32) = 0.3878713201564529D-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 =  31
        err = 0.8820096824157287D-10
        xs(  1) = 0.2412717679841768D-03
        xs(  2) = 0.1273053453542092D-02
        xs(  3) = 0.3129514885062065D-02
        xs(  4) = 0.5792846850577119D-02
        xs(  5) = 0.9219729349434113D-02
        xs(  6) = 0.1334888620636712D-01
        xs(  7) = 0.1811273542272379D-01
        xs(  8) = 0.2344567014651894D-01
        xs(  9) = 0.2928785010784770D-01
        xs( 10) = 0.3558615590451663D-01
        xs( 11) = 0.4229390146833141D-01
        xs( 12) = 0.4937018436625552D-01
        xs( 13) = 0.5677922509679920D-01
        xs( 14) = 0.6448978750817187D-01
        xs( 15) = 0.7247467972856599D-01
        xs( 16) = 0.8071031658148745D-01
        xs( 17) = 0.8917632959399097D-01
        xs( 18) = 0.9785521936996791D-01
        xs( 19) = 0.1067320453765280D+00
        xs( 20) = 0.1157941746333567D+00
        xs( 21) = 0.1250310543873009D+00
        xs( 22) = 0.1344337586663728D+00
        xs( 23) = 0.1439969128036869D+00
        xs( 24) = 0.1537108815743164D+00
        xs( 25) = 0.1635778000974682D+00
        xs( 26) = 0.1736043142166101D+00
        xs( 27) = 0.1837521953658979D+00
        xs( 28) = 0.1940464695641708D+00
        xs( 29) = 0.2046297959977439D+00
        xs( 30) = 0.2148139065644961D+00
        xs( 31) = 0.2262615100904012D+00
        ws(  1) = 0.6194698734540188D-03
        ws(  2) = 0.1444982429319803D-02
        ws(  3) = 0.2265066088799881D-02
        ws(  4) = 0.3054222348366771D-02
        ws(  5) = 0.3789116920543872D-02
        ws(  6) = 0.4457794657689948D-02
        ws(  7) = 0.5058911122722321D-02
        ws(  8) = 0.5596972976256690D-02
        ws(  9) = 0.6078540477447509D-02
        ws( 10) = 0.6510301654394809D-02
        ws( 11) = 0.6898383568762029D-02
        ws( 12) = 0.7248228609201554D-02
        ws( 13) = 0.7564655091758486D-02
        ws( 14) = 0.7851945013666917D-02
        ws( 15) = 0.8113915050907592D-02
        ws( 16) = 0.8353969746751009D-02
        ws( 17) = 0.8575144709927048D-02
        ws( 18) = 0.8780149199817807D-02
        ws( 19) = 0.8971406883244375D-02
        ws( 20) = 0.9151043475489002D-02
        ws( 21) = 0.9321472573844925D-02
        ws( 22) = 0.9482520387720243D-02
        ws( 23) = 0.9641754687601979D-02
        ws( 24) = 0.9791599153597700D-02
        ws( 25) = 0.9939720957622980D-02
        ws( 26) = 0.1006925914027177D-01
        ws( 27) = 0.1027630908349307D-01
        ws( 28) = 0.1064263251446029D-01
        ws( 29) = 0.1029954692938825D-01
        ws( 30) = 0.5993916334480072D-02
        ws( 31) = 0.2736368905213540D-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 =  32
        err = 0.2679707442595824D-10
        xs(  1) = 0.2176382931580904D-03
        xs(  2) = 0.1153285043317728D-02
        xs(  3) = 0.2854678413560603D-02
        xs(  4) = 0.5328172519085751D-02
        xs(  5) = 0.8553160319703984D-02
        xs(  6) = 0.1248391629393348D-01
        xs(  7) = 0.1706085256703533D-01
        xs(  8) = 0.2222116834660091D-01
        xs(  9) = 0.2790507659733204D-01
        xs( 10) = 0.3405832377063413D-01
        xs( 11) = 0.4063269912928806D-01
        xs( 12) = 0.4758573131214622D-01
        xs( 13) = 0.5488015736056833D-01
        xs( 14) = 0.6248338083765305D-01
        xs( 15) = 0.7036697435776409D-01
        xs( 16) = 0.7850622999042640D-01
        xs( 17) = 0.8687975216812395D-01
        xs( 18) = 0.9546909008523043D-01
        xs( 19) = 0.1042584083407212D+00
        xs( 20) = 0.1132342099064093D+00
        xs( 21) = 0.1223850365425376D+00
        xs( 22) = 0.1317014428779926D+00
        xs( 23) = 0.1411754635520837D+00
        xs( 24) = 0.1508010119873639D+00
        xs( 25) = 0.1605723705800804D+00
        xs( 26) = 0.1704913775569827D+00
        xs( 27) = 0.1805499803943040D+00
        xs( 28) = 0.1907276840022482D+00
        xs( 29) = 0.2010829568054913D+00
        xs( 30) = 0.2117084079337153D+00
        xs( 31) = 0.2220827887691710D+00
        xs( 32) = 0.2329773174586015D+00
        ws(  1) = 0.5593734912874703D-03
        ws(  2) = 0.1315682874201251D-02
        ws(  3) = 0.2088424231260080D-02
        ws(  4) = 0.2855074167695160D-02
        ws(  5) = 0.3587065283956529D-02
        ws(  6) = 0.4264330456150589D-02
        ws(  7) = 0.4878974802106569D-02
        ws(  8) = 0.5431654769157170D-02
        ws(  9) = 0.5927113806744519D-02
        ws( 10) = 0.6371351748743285D-02
        ws( 11) = 0.6770329690263984D-02
        ws( 12) = 0.7129533305303105D-02
        ws( 13) = 0.7453894337303157D-02
        ws( 14) = 0.7747822196901337D-02
        ws( 15) = 0.8015253635784815D-02
        ws( 16) = 0.8259697839857701D-02
        ws( 17) = 0.8484276767685012D-02
        ws( 18) = 0.8691765258846774D-02
        ws( 19) = 0.8884624190292683D-02
        ws( 20) = 0.9065067725528415D-02
        ws( 21) = 0.9235081535126722D-02
        ws( 22) = 0.9396136866079452D-02
        ws( 23) = 0.9551282673013776D-02
        ws( 24) = 0.9699520988276403D-02
        ws( 25) = 0.9841462277396035D-02
        ws( 26) = 0.9990652906512564D-02
        ws( 27) = 0.1013369025346437D-01
        ws( 28) = 0.1027220590203662D-01
        ws( 29) = 0.1047167086417691D-01
        ws( 30) = 0.1033555069468817D-01
        ws( 31) = 0.8604553662407049D-02
        ws( 32) = 0.2221488033698416D-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 =  32
        err = 0.7181258904897678D-10
        xs(  1) = 0.1312339083714858D-03
        xs(  2) = 0.7387676046056825D-03
        xs(  3) = 0.1950548064374101D-02
        xs(  4) = 0.3848585803680320D-02
        xs(  5) = 0.6471657390174116D-02
        xs(  6) = 0.9819108728979901D-02
        xs(  7) = 0.1385894297180531D-01
        xs(  8) = 0.1854038866725855D-01
        xs(  9) = 0.2380533162765052D-01
        xs( 10) = 0.2959566165264535D-01
        xs( 11) = 0.3585696213731592D-01
        xs( 12) = 0.4253996859659707D-01
        xs( 13) = 0.4960090732095755D-01
        xs( 14) = 0.5700132769869983D-01
        xs( 15) = 0.6470772055310439D-01
        xs( 16) = 0.7269105690180304D-01
        xs( 17) = 0.8092631170463352D-01
        xs( 18) = 0.8939200628613127D-01
        xs( 19) = 0.9806978671283191D-01
        xs( 20) = 0.1069440556048530D+00
        xs( 21) = 0.1160016309375014D+00
        xs( 22) = 0.1252314838279032D+00
        xs( 23) = 0.1346248233990403D+00
        xs( 24) = 0.1441731727427708D+00
        xs( 25) = 0.1538733600841309D+00
        xs( 26) = 0.1637213473545754D+00
        xs( 27) = 0.1737033424851411D+00
        xs( 28) = 0.1838365513005630D+00
        xs( 29) = 0.1941488174139612D+00
        xs( 30) = 0.2045613654808671D+00
        xs( 31) = 0.2150165574173070D+00
        xs( 32) = 0.2369994262901810D+00
        ws(  1) = 0.3434009298426823D-03
        ws(  2) = 0.8922072874453480D-03
        ws(  3) = 0.1544967510526319D-02
        ws(  4) = 0.2257531924541001D-02
        ws(  5) = 0.2988364926714533D-02
        ws(  6) = 0.3700977701772168D-02
        ws(  7) = 0.4370031815414307D-02
        ws(  8) = 0.4983053652338468D-02
        ws(  9) = 0.5537089605580385D-02
        ws( 10) = 0.6034479353348834D-02
        ws( 11) = 0.6479906592599325D-02
        ws( 12) = 0.6878814132480062D-02
        ws( 13) = 0.7236661529821695D-02
        ws( 14) = 0.7558602190375779D-02
        ws( 15) = 0.7849353366973176D-02
        ws( 16) = 0.8113156165618699D-02
        ws( 17) = 0.8353780642861082D-02
        ws( 18) = 0.8574555985936760D-02
        ws( 19) = 0.8778411017576799D-02
        ws( 20) = 0.8967924127063818D-02
        ws( 21) = 0.9145457939788864D-02
        ws( 22) = 0.9312569781862836D-02
        ws( 23) = 0.9472895700730039D-02
        ws( 24) = 0.9624471681990682D-02
        ws( 25) = 0.9771370109371291D-02
        ws( 26) = 0.9918587001846228D-02
        ws( 27) = 0.1008353331724631D-01
        ws( 28) = 0.1018288615385088D-01
        ws( 29) = 0.1014861009809808D-01
        ws( 30) = 0.1090793092486419D-01
        ws( 31) = 0.1261455707029588D-01
        ws( 32) = 0.3268786928551436D-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 =  32
        err = 0.6630172772741262D-10
        xs(  1) = 0.1392372182508628D-03
        xs(  2) = 0.7470392732548875D-03
        xs(  3) = 0.1891048604898610D-02
        xs(  4) = 0.3640796476010305D-02
        xs(  5) = 0.6060698735969438D-02
        xs(  6) = 0.9186360037293666D-02
        xs(  7) = 0.1301642768150179D-01
        xs(  8) = 0.1751968071032982D-01
        xs(  9) = 0.2264731581540194D-01
        xs( 10) = 0.2834319804831318D-01
        xs( 11) = 0.3455041658683187D-01
        xs( 12) = 0.4121495422889851D-01
        xs( 13) = 0.4828754107990540D-01
        xs( 14) = 0.5572441975820090D-01
        xs( 15) = 0.6348745317651346D-01
        xs( 16) = 0.7154384833824266D-01
        xs( 17) = 0.7986568428590593D-01
        xs( 18) = 0.8842937120395956D-01
        xs( 19) = 0.9721511969383798D-01
        xs( 20) = 0.1062064608400102D+00
        xs( 21) = 0.1153898563332234D+00
        xs( 22) = 0.1247543374856622D+00
        xs( 23) = 0.1342912948603150D+00
        xs( 24) = 0.1439948358417596D+00
        xs( 25) = 0.1538595313473995D+00
        xs( 26) = 0.1638828128148803D+00
        xs( 27) = 0.1740795001784978D+00
        xs( 28) = 0.1844286337756543D+00
        xs( 29) = 0.1948964198901823D+00
        xs( 30) = 0.2056599436067974D+00
        xs( 31) = 0.2168575008692170D+00
        xs( 32) = 0.2279832022652594D+00
        ws(  1) = 0.3588941548803312D-03
        ws(  2) = 0.8652914480248176D-03
        ws(  3) = 0.1434770239557572D-02
        ws(  4) = 0.2075898955469706D-02
        ws(  5) = 0.2769971020359694D-02
        ws(  6) = 0.3480977332499874D-02
        ws(  7) = 0.4173732263284443D-02
        ws(  8) = 0.4824466863404666D-02
        ws(  9) = 0.5421341005645823D-02
        ws( 10) = 0.5960879872575224D-02
        ws( 11) = 0.6444525117935514D-02
        ws( 12) = 0.6876326727351387D-02
        ws( 13) = 0.7261552907687768D-02
        ws( 14) = 0.7605853312872696D-02
        ws( 15) = 0.7914756190158341D-02
        ws( 16) = 0.8193389837186243D-02
        ws( 17) = 0.8446359385801419D-02
        ws( 18) = 0.8677724142181089D-02
        ws( 19) = 0.8891035167214224D-02
        ws( 20) = 0.9089397858668798D-02
        ws( 21) = 0.9275542833096603D-02
        ws( 22) = 0.9452139229700764D-02
        ws( 23) = 0.9620364146723095D-02
        ws( 24) = 0.9785931033843729D-02
        ws( 25) = 0.9945916583259887D-02
        ws( 26) = 0.1010037429335741D-01
        ws( 27) = 0.1026179212974421D-01
        ws( 28) = 0.1047336848512877D-01
        ws( 29) = 0.1076288985609412D-01
        ws( 30) = 0.1031654487828294D-01
        ws( 31) = 0.9060336738088322D-02
        ws( 32) = 0.2301130534150069D-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 =  33
        err = 0.5878481673276850D-10
        xs(  1) = 0.1008662122091148D-03
        xs(  2) = 0.5423476730048907D-03
        xs(  3) = 0.1380690101524470D-02
        xs(  4) = 0.2688535786518105D-02
        xs(  5) = 0.4557981454377664D-02
        xs(  6) = 0.7077622387243186D-02
        xs(  7) = 0.1030355804348397D-01
        xs(  8) = 0.1424331670165362D-01
        xs(  9) = 0.1886402639650479D-01
        xs( 10) = 0.2411207401620778D-01
        xs( 11) = 0.2992748127677123D-01
        xs( 12) = 0.3625068230444793D-01
        xs( 13) = 0.4302573666685894D-01
        xs( 14) = 0.5020209229334074D-01
        xs( 15) = 0.5773534874762339D-01
        xs( 16) = 0.6558725984577399D-01
        xs( 17) = 0.7372528321427704D-01
        xs( 18) = 0.8212193984630874D-01
        xs( 19) = 0.9075414776520969D-01
        xs( 20) = 0.9960261088741618D-01
        xs( 21) = 0.1086512968311119D+00
        xs( 22) = 0.1178870201022643D+00
        xs( 23) = 0.1272990305404679D+00
        xs( 24) = 0.1368791416753406D+00
        xs( 25) = 0.1466205775508266D+00
        xs( 26) = 0.1565192729782718D+00
        xs( 27) = 0.1665739912994941D+00
        xs( 28) = 0.1767858731083669D+00
        xs( 29) = 0.1871549912263350D+00
        xs( 30) = 0.1976618026551339D+00
        xs( 31) = 0.2083651722419746D+00
        xs( 32) = 0.2195337199978588D+00
        xs( 33) = 0.2304584868280336D+00
        ws(  1) = 0.2600989103255735D-03
        ws(  2) = 0.6301278030971005D-03
        ws(  3) = 0.1058818166280063D-02
        ws(  4) = 0.1572618638791494D-02
        ws(  5) = 0.2181576620587821D-02
        ws(  6) = 0.2867361973108250D-02
        ws(  7) = 0.3585583804909328D-02
        ws(  8) = 0.4288077660940366D-02
        ws(  9) = 0.4944168204743305D-02
        ws( 10) = 0.5541830568605520D-02
        ws( 11) = 0.6079006862362041D-02
        ws( 12) = 0.6558042858504837D-02
        ws( 13) = 0.6983628354642539D-02
        ws( 14) = 0.7361683585174273D-02
        ws( 15) = 0.7698463114127721D-02
        ws( 16) = 0.7999946411399159D-02
        ws( 17) = 0.8271531783318083D-02
        ws( 18) = 0.8517944735708823D-02
        ws( 19) = 0.8743263810768679D-02
        ws( 20) = 0.8950998716331166D-02
        ws( 21) = 0.9144175239314481D-02
        ws( 22) = 0.9325501115963060D-02
        ws( 23) = 0.9497181289116570D-02
        ws( 24) = 0.9661580819125352D-02
        ws( 25) = 0.9821377163549982D-02
        ws( 26) = 0.9977511045736173D-02
        ws( 27) = 0.1012433351388459D-01
        ws( 28) = 0.1028802403053876D-01
        ws( 29) = 0.1051858658851659D-01
        ws( 30) = 0.1064215970935612D-01
        ws( 31) = 0.1016178969261090D-01
        ws( 32) = 0.1051550274821631D-01
        ws( 33) = 0.2000370986189405D-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 =  34
        err = 0.9120202265561218D-10
        xs(  1) = 0.5682049686227915D-04
        xs(  2) = 0.3042375836589929D-03
        xs(  3) = 0.7698553051697730D-03
        xs(  4) = 0.1491601445872833D-02
        xs(  5) = 0.2529635785893094D-02
        xs(  6) = 0.3970349385033478D-02
        xs(  7) = 0.5925982140173899D-02
        xs(  8) = 0.8522267678452679D-02
        xs(  9) = 0.1186778308954356D-01
        xs( 10) = 0.1601457990389201D-01
        xs( 11) = 0.2094048350398486D-01
        xs( 12) = 0.2656943697673824D-01
        xs( 13) = 0.3280697749902275D-01
        xs( 14) = 0.3956410111266671D-01
        xs( 15) = 0.4676574255368745D-01
        xs( 16) = 0.5435108280440509D-01
        xs( 17) = 0.6227130937485543D-01
        xs( 18) = 0.7048716178102778D-01
        xs( 19) = 0.7896689525013086D-01
        xs( 20) = 0.8768471671237286D-01
        xs( 21) = 0.9661960859426676D-01
        xs( 22) = 0.1057544499037001D+00
        xs( 23) = 0.1150753660483432D+00
        xs( 24) = 0.1245712236745219D+00
        xs( 25) = 0.1342334445775387D+00
        xs( 26) = 0.1440553965782834D+00
        xs( 27) = 0.1540329163593979D+00
        xs( 28) = 0.1641633465816727D+00
        xs( 29) = 0.1744509614470453D+00
        xs( 30) = 0.1848929738309765D+00
        xs( 31) = 0.1954762865071866D+00
        xs( 32) = 0.2062764861452278D+00
        xs( 33) = 0.2173181035668035D+00
        xs( 34) = 0.2284015861377711D+00
        ws(  1) = 0.1463670806724944D-03
        ws(  2) = 0.3518149901202891D-03
        ws(  3) = 0.5856639336518820D-03
        ws(  4) = 0.8677797811744310D-03
        ws(  5) = 0.1222674395580109D-02
        ws(  6) = 0.1677643525384594D-02
        ws(  7) = 0.2255104678931105D-02
        ws(  8) = 0.2956309194453357D-02
        ws(  9) = 0.3743749594237364D-02
        ws( 10) = 0.4545729520047246D-02
        ws( 11) = 0.5292734645127595D-02
        ws( 12) = 0.5949031395544865D-02
        ws( 13) = 0.6511096505274020D-02
        ws( 14) = 0.6990647968788020D-02
        ws( 15) = 0.7402540469192196D-02
        ws( 16) = 0.7760046607222523D-02
        ws( 17) = 0.8073897035366749D-02
        ws( 18) = 0.8352542781844429D-02
        ws( 19) = 0.8602644660173268D-02
        ws( 20) = 0.8829509793747871D-02
        ws( 21) = 0.9037431722031551D-02
        ws( 22) = 0.9229945626175007D-02
        ws( 23) = 0.9410037548145211D-02
        ws( 24) = 0.9580285120807108D-02
        ws( 25) = 0.9742816008451319D-02
        ws( 26) = 0.9900918399665082D-02
        ws( 27) = 0.1005464790592260D-01
        ws( 28) = 0.1020345273610054D-01
        ws( 29) = 0.1036364828605250D-01
        ws( 30) = 0.1054904677191606D-01
        ws( 31) = 0.1072552901020792D-01
        ws( 32) = 0.1066748361107996D-01
        ws( 33) = 0.1059438461648003D-01
        ws( 34) = 0.1618631888623351D-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 =  39
        err = 0.8230841655099072D-10
        xs(  1) = 0.2392303089146083D-04
        xs(  2) = 0.1270142714460791D-03
        xs(  3) = 0.3165245546173170D-03
        xs(  4) = 0.5998442448314577D-03
        xs(  5) = 0.9885723292218655D-03
        xs(  6) = 0.1499718915190434D-02
        xs(  7) = 0.2157422568426040D-02
        xs(  8) = 0.2995372869596506D-02
        xs(  9) = 0.4060101578972356D-02
        xs( 10) = 0.5415150277703462D-02
        xs( 11) = 0.7145573418664986D-02
        xs( 12) = 0.9360831231383090D-02
        xs( 13) = 0.1219136344833794D-01
        xs( 14) = 0.1577085904921828D-01
        xs( 15) = 0.2019861994089125D-01
        xs( 16) = 0.2549578010036073D-01
        xs( 17) = 0.3159313462120712D-01
        xs( 18) = 0.3836676465651179D-01
        xs( 19) = 0.4568695774965377D-01
        xs( 20) = 0.5344588688383210D-01
        xs( 21) = 0.6156288937827099D-01
        xs( 22) = 0.6997978818874327D-01
        xs( 23) = 0.7865459124235639D-01
        xs( 24) = 0.8755643062122739D-01
        xs( 25) = 0.9666208185444063D-01
        xs( 26) = 0.1059537090854248D+00
        xs( 27) = 0.1154174378114262D+00
        xs( 28) = 0.1250424482073978D+00
        xs( 29) = 0.1348204435328564D+00
        xs( 30) = 0.1447452777173721D+00
        xs( 31) = 0.1548129160109990D+00
        xs( 32) = 0.1650210753148122D+00
        xs( 33) = 0.1753699812738039D+00
        xs( 34) = 0.1858626407876382D+00
        xs( 35) = 0.1965018281602717D+00
        xs( 36) = 0.2072999552409156D+00
        xs( 37) = 0.2183017018140205D+00
        xs( 38) = 0.2294987255054570D+00
        xs( 39) = 0.2408044157176009D+00
        ws(  1) = 0.6150341147177906D-04
        ws(  2) = 0.1453707962189215D-03
        ws(  3) = 0.2348660916835340D-03
        ws(  4) = 0.3336870234866448D-03
        ws(  5) = 0.4465759648993405D-03
        ws(  6) = 0.5797003625770154D-03
        ws(  7) = 0.7412671790394097D-03
        ws(  8) = 0.9423182912554124D-03
        ws(  9) = 0.1197650300923172D-02
        ws( 10) = 0.1526563965848248D-02
        ws( 11) = 0.1952562341294505D-02
        ws( 12) = 0.2499967624368328D-02
        ws( 13) = 0.3184030438802245D-02
        ws( 14) = 0.3992354739907959D-02
        ws( 15) = 0.4866953366952298D-02
        ws( 16) = 0.5715121532523469D-02
        ws( 17) = 0.6458022353508396D-02
        ws( 18) = 0.7067169643865826D-02
        ws( 19) = 0.7555193869084690D-02
        ws( 20) = 0.7949317736315419D-02
        ws( 21) = 0.8275101473421489D-02
        ws( 22) = 0.8551781960459455D-02
        ws( 23) = 0.8792736464577820D-02
        ws( 24) = 0.9007108135676681D-02
        ws( 25) = 0.9201244623217184D-02
        ws( 26) = 0.9379710548162485D-02
        ws( 27) = 0.9545952525686092D-02
        ws( 28) = 0.9702710292403363D-02
        ws( 29) = 0.9852242969054709D-02
        ws( 30) = 0.9996693064049494D-02
        ws( 31) = 0.1013813571737742D-01
        ws( 32) = 0.1027848121341576D-01
        ws( 33) = 0.1042080006245433D-01
        ws( 34) = 0.1056668713450072D-01
        ws( 35) = 0.1071586716720904D-01
        ws( 36) = 0.1086806410593912D-01
        ws( 37) = 0.1101570706827963D-01
        ws( 38) = 0.1153877309906080D-01
        ws( 39) = 0.1487823766869492D-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 =  42
        err = 0.4459054157278970D-10
        xs(  1) = 0.1351285467411478D-04
        xs(  2) = 0.7150627417641249D-04
        xs(  3) = 0.1771203280981373D-03
        xs(  4) = 0.3326660077293550D-03
        xs(  5) = 0.5416666002442543D-03
        xs(  6) = 0.8091238342660481D-03
        xs(  7) = 0.1141870976915883D-02
        xs(  8) = 0.1549060434233719D-02
        xs(  9) = 0.2042837856900277D-02
        xs( 10) = 0.2639278282569224D-02
        xs( 11) = 0.3359692598321628D-02
        xs( 12) = 0.4232455195949840D-02
        xs( 13) = 0.5295552535927109D-02
        xs( 14) = 0.6600088204400099D-02
        xs( 15) = 0.8214939976313229D-02
        xs( 16) = 0.1023247417837365D-01
        xs( 17) = 0.1277425601684236D-01
        xs( 18) = 0.1599317992075311D-01
        xs( 19) = 0.2006334360991800D-01
        xs( 20) = 0.2514350686914846D-01
        xs( 21) = 0.3130985852157761D-01
        xs( 22) = 0.3849900231549991D-01
        xs( 23) = 0.4652784679816768D-01
        xs( 24) = 0.5517862731798369D-01
        xs( 25) = 0.6426840892622102D-01
        xs( 26) = 0.7366926383355872D-01
        xs( 27) = 0.8329959287386003D-01
        xs( 28) = 0.9310938479695974D-01
        xs( 29) = 0.1030683979904537D+00
        xs( 30) = 0.1131584318634170D+00
        xs( 31) = 0.1233686635680034D+00
        xs( 32) = 0.1336929396479863D+00
        xs( 33) = 0.1441282287354755D+00
        xs( 34) = 0.1546738010524711D+00
        xs( 35) = 0.1653307313571893D+00
        xs( 36) = 0.1761017540851874D+00
        xs( 37) = 0.1869915661960191D+00
        xs( 38) = 0.1980073318408012D+00
        xs( 39) = 0.2091625615227454D+00
        xs( 40) = 0.2204763626406502D+00
        xs( 41) = 0.2319032217481676D+00
        xs( 42) = 0.2431221515773520D+00
        ws(  1) = 0.3471325758470708D-04
        ws(  2) = 0.8150707356081140D-04
        ws(  3) = 0.1301017270497569D-03
        ws(  4) = 0.1815726383006681D-03
        ws(  5) = 0.2372563700579762D-03
        ws(  6) = 0.2987889692351084D-03
        ws(  7) = 0.3682196583075448D-03
        ws(  8) = 0.4481681827307618D-03
        ws(  9) = 0.5420444169980387D-03
        ws( 10) = 0.6543582659172069D-03
        ws( 11) = 0.7911575389091834D-03
        ws( 12) = 0.9606408634993245D-03
        ws( 13) = 0.1173993472061883D-02
        ws( 14) = 0.1446460301111093D-02
        ws( 15) = 0.1798535075125291D-02
        ws( 16) = 0.2256739112447443D-02
        ws( 17) = 0.2852437855967923D-02
        ws( 18) = 0.3615005498965093D-02
        ws( 19) = 0.4552996392253012D-02
        ws( 20) = 0.5621205974985445D-02
        ws( 21) = 0.6700568338621968D-02
        ws( 22) = 0.7645518300817776D-02
        ws( 23) = 0.8374648745910658D-02
        ws( 24) = 0.8896163687097666D-02
        ws( 25) = 0.9262280066788075D-02
        ws( 26) = 0.9526093068912262D-02
        ws( 27) = 0.9726427458862897D-02
        ws( 28) = 0.9888242212179864D-02
        ws( 29) = 0.1002682615752969D-01
        ws( 30) = 0.1015148132479451D-01
        ws( 31) = 0.1026798265954452D-01
        ws( 32) = 0.1038007431971455D-01
        ws( 33) = 0.1049039054030560D-01
        ws( 34) = 0.1060098890769486D-01
        ws( 35) = 0.1071369596475369D-01
        ws( 36) = 0.1083014490155308D-01
        ws( 37) = 0.1095030729457750D-01
        ws( 38) = 0.1107224120645057D-01
        ws( 39) = 0.1121970609020170D-01
        ws( 40) = 0.1151570026983892D-01
        ws( 41) = 0.1206724122592496D-01
        ws( 42) = 0.1218230138610625D-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 =  44
        err = 0.8333840573297351D-10
        xs(  1) = 0.8896129670593633D-05
        xs(  2) = 0.4700015702737066D-04
        xs(  3) = 0.1160781198556831D-03
        xs(  4) = 0.2170779177934654D-03
        xs(  5) = 0.3514185882238317D-03
        xs(  6) = 0.5210792045875422D-03
        xs(  7) = 0.7287039073787200D-03
        xs(  8) = 0.9777384606631855D-03
        xs(  9) = 0.1272608393629766D-02
        xs( 10) = 0.1618952977861287D-02
        xs( 11) = 0.2023935573474917D-02
        xs( 12) = 0.2496659640963617D-02
        xs( 13) = 0.3048732210839203D-02
        xs( 14) = 0.3695034681100606D-02
        xs( 15) = 0.4454787025342087D-02
        xs( 16) = 0.5353029051897352D-02
        xs( 17) = 0.6422694529781838D-02
        xs( 18) = 0.7707521302178464D-02
        xs( 19) = 0.9266112176783385D-02
        xs( 20) = 0.1117748966437726D-01
        xs( 21) = 0.1354831647126830D-01
        xs( 22) = 0.1652112914553943D-01
        xs( 23) = 0.2028026900965598D-01
        xs( 24) = 0.2504527200101408D-01
        xs( 25) = 0.3102988749452719D-01
        xs( 26) = 0.3834925914508293D-01
        xs( 27) = 0.4692344245054876D-01
        xs( 28) = 0.5649047110021847D-01
        xs( 29) = 0.6673374979677170D-01
        xs( 30) = 0.7739352115899899D-01
        xs( 31) = 0.8829781479122210D-01
        xs( 32) = 0.9934600721518715D-01
        xs( 33) = 0.1104838944293413D+00
        xs( 34) = 0.1216847207483501D+00
        xs( 35) = 0.1329373443173881D+00
        xs( 36) = 0.1442394136156914D+00
        xs( 37) = 0.1555936112483194D+00
        xs( 38) = 0.1670054586133413D+00
        xs( 39) = 0.1784825827687242D+00
        xs( 40) = 0.1900348092287080D+00
        xs( 41) = 0.2016717416326244D+00
        xs( 42) = 0.2133958743389587D+00
        xs( 43) = 0.2251218245584147D+00
        xs( 44) = 0.2364415346897188D+00
        ws(  1) = 0.2284475718076375D-04
        ws(  2) = 0.5346723736697653D-04
        ws(  3) = 0.8484463167988118D-04
        ws(  4) = 0.1173901157443255D-03
        ws(  5) = 0.1516193402731368D-03
        ws(  6) = 0.1881403292722692D-03
        ws(  7) = 0.2276804345418824D-03
        ws(  8) = 0.2711224085564259D-03
        ws(  9) = 0.3195522318536540D-03
        ws( 10) = 0.3743239937776263D-03
        ws( 11) = 0.4371491890652461D-03
        ws( 12) = 0.5102208048781373D-03
        ws( 13) = 0.5963871195133866D-03
        ws( 14) = 0.6993968742728305D-03
        ws( 15) = 0.8242471218365497D-03
        ws( 16) = 0.9776781511685487D-03
        ws( 17) = 0.1168875641610434D-02
        ws( 18) = 0.1410453079720330D-02
        ws( 19) = 0.1719777818668019D-02
        ws( 20) = 0.2120610763335746D-02
        ws( 21) = 0.2644678699833684D-02
        ws( 22) = 0.3331726296497060D-02
        ws( 23) = 0.4223754250394267D-02
        ws( 24) = 0.5343513873818154D-02
        ws( 25) = 0.6646893888661481D-02
        ws( 26) = 0.7978347654331849D-02
        ws( 27) = 0.9123782980706225D-02
        ws( 28) = 0.9955505933320551D-02
        ws( 29) = 0.1048737438994251D-01
        ws( 30) = 0.1080387861907105D-01
        ws( 31) = 0.1098838072030853D-01
        ws( 32) = 0.1109928541686621D-01
        ws( 33) = 0.1117222098847957D-01
        ws( 34) = 0.1122768330137717D-01
        ws( 35) = 0.1127723280305539D-01
        ws( 36) = 0.1132744096913706D-01
        ws( 37) = 0.1138213845129332D-01
        ws( 38) = 0.1144316584174025D-01
        ws( 39) = 0.1151082291264173D-01
        ws( 40) = 0.1158520612466233D-01
        ws( 41) = 0.1169124093645357D-01
        ws( 42) = 0.1193091098531706D-01
        ws( 43) = 0.1219957361604483D-01
        ws( 44) = 0.1103684795467169D-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 =  48
        err = 0.4753309420286837D-10
        xs(  1) = 0.6215859959299814D-05
        xs(  2) = 0.3281090802269582D-04
        xs(  3) = 0.8090482302432175D-04
        xs(  4) = 0.1509439577422546D-03
        xs(  5) = 0.2435850326465276D-03
        xs(  6) = 0.3597314880063629D-03
        xs(  7) = 0.5005710150114958D-03
        xs(  8) = 0.6676220629705922D-03
        xs(  9) = 0.8627916421248295D-03
        xs( 10) = 0.1088447377191090D-02
        xs( 11) = 0.1347508009072585D-02
        xs( 12) = 0.1643558158980617D-02
        xs( 13) = 0.1980995301889702D-02
        xs( 14) = 0.2365219807245410D-02
        xs( 15) = 0.2802882979264600D-02
        xs( 16) = 0.3302213824609521D-02
        xs( 17) = 0.3873453598845077D-02
        xs( 18) = 0.4529439224947919D-02
        xs( 19) = 0.5286394159848518D-02
        xs( 20) = 0.6165010669773591D-02
        xs( 21) = 0.7191944076806853D-02
        xs( 22) = 0.8401891279992394D-02
        xs( 23) = 0.9840495594734173D-02
        xs( 24) = 0.1156840332301945D-01
        xs( 25) = 0.1366686268887749D-01
        xs( 26) = 0.1624518263358702D-01
        xs( 27) = 0.1944977091258291D-01
        xs( 28) = 0.2347223615544103D-01
        xs( 29) = 0.2854754830501833D-01
        xs( 30) = 0.3492050194377055D-01
        xs( 31) = 0.4275529650611349D-01
        xs( 32) = 0.5201757190459131D-01
        xs( 33) = 0.6244773257395733D-01
        xs( 34) = 0.7368056667061572D-01
        xs( 35) = 0.8539006030217153D-01
        xs( 36) = 0.9735044872549097D-01
        xs( 37) = 0.1094278315057214D+00
        xs( 38) = 0.1215512842068123D+00
        xs( 39) = 0.1336879129294235D+00
        xs( 40) = 0.1458264972987253D+00
        xs( 41) = 0.1579679014382816D+00
        xs( 42) = 0.1701196588243467D+00
        xs( 43) = 0.1822933018423228D+00
        xs( 44) = 0.1945031782260322D+00
        xs( 45) = 0.2067639734487771D+00
        xs( 46) = 0.2190772752536424D+00
        xs( 47) = 0.2314971264248230D+00
        xs( 48) = 0.2436820490862736D+00
        ws(  1) = 0.1595871244389895D-04
        ws(  2) = 0.3728509780505259D-04
        ws(  3) = 0.5897598556193111D-04
        ws(  4) = 0.8121121645171370D-04
        ws(  5) = 0.1042208883661729D-03
        ws(  6) = 0.1282692006061834D-03
        ws(  7) = 0.1536619717950802D-03
        ws(  8) = 0.1807567681315046D-03
        ws(  9) = 0.2099754995816450D-03
        ws( 10) = 0.2418205332509729D-03
        ws( 11) = 0.2768957432254248D-03
        ws( 12) = 0.3159343366282188D-03
        ws( 13) = 0.3598359251342084D-03
        ws( 14) = 0.4097162578798427D-03
        ws( 15) = 0.4669744405631149D-03
        ws( 16) = 0.5333845388117777D-03
        ws( 17) = 0.6112215112201144D-03
        ws( 18) = 0.7034358935628806D-03
        ws( 19) = 0.8138981859113650D-03
        ws( 20) = 0.9477433149196810D-03
        ws( 21) = 0.1111858678688553D-02
        ws( 22) = 0.1315576306652070D-02
        ws( 23) = 0.1571647643765613D-02
        ws( 24) = 0.1897584737849902D-02
        ws( 25) = 0.2317397066037506D-02
        ws( 26) = 0.2863490962361174D-02
        ws( 27) = 0.3577599520463782D-02
        ws( 28) = 0.4506967140962322D-02
        ws( 29) = 0.5685994247309701D-02
        ws( 30) = 0.7089608083092922D-02
        ws( 31) = 0.8574921865023372D-02
        ws( 32) = 0.9903944098080869D-02
        ws( 33) = 0.1089278962069149D-01
        ws( 34) = 0.1151762321247640D-01
        ws( 35) = 0.1186401268840956D-01
        ws( 36) = 0.1203498047780669D-01
        ws( 37) = 0.1210838608365180D-01
        ws( 38) = 0.1213330378840643D-01
        ws( 39) = 0.1213823120031799D-01
        ws( 40) = 0.1213916467061988D-01
        ws( 41) = 0.1214508813494457D-01
        ws( 42) = 0.1216117170248890D-01
        ws( 43) = 0.1219001175058542D-01
        ws( 44) = 0.1223352360931728D-01
        ws( 45) = 0.1230768796875412D-01
        ws( 46) = 0.1234356044360103D-01
        ws( 47) = 0.1236181837640071D-01
        ws( 48) = 0.1302038009011115D-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 =  51
        err = 0.7338790539126301D-10
        xs(  1) = 0.4669342590111277D-05
        xs(  2) = 0.2463415731383247D-04
        xs(  3) = 0.6068301865314877D-04
        xs(  4) = 0.1130534095877688D-03
        xs(  5) = 0.1820901889195872D-03
        xs(  6) = 0.2682648777634184D-03
        xs(  7) = 0.3721928990076526D-03
        xs(  8) = 0.4946540076882749D-03
        xs(  9) = 0.6366166731084518D-03
        xs( 10) = 0.7992672001703696D-03
        xs( 11) = 0.9840447354311083D-03
        xs( 12) = 0.1192683749840077D-02
        xs( 13) = 0.1427266126018414D-02
        xs( 14) = 0.1690285650898619D-02
        xs( 15) = 0.1984728594293520D-02
        xs( 16) = 0.2314175241730773D-02
        xs( 17) = 0.2682928881443623D-02
        xs( 18) = 0.3096181015238462D-02
        xs( 19) = 0.3560224751971051D-02
        xs( 20) = 0.4082732865562966D-02
        xs( 21) = 0.4673123466874152D-02
        xs( 22) = 0.5343045566883867D-02
        xs( 23) = 0.6107030372496627D-02
        xs( 24) = 0.6983373995693313D-02
        xs( 25) = 0.7995346423362066D-02
        xs( 26) = 0.9172864395795977D-02
        xs( 27) = 0.1055482809506226D-01
        xs( 28) = 0.1219240935625123D-01
        xs( 29) = 0.1415369370496989D-01
        xs( 30) = 0.1653019422530213D-01
        xs( 31) = 0.1944574796860334D-01
        xs( 32) = 0.2306770518305805D-01
        xs( 33) = 0.2761754432033073D-01
        xs( 34) = 0.3336914488933549D-01
        xs( 35) = 0.4060561875037969D-01
        xs( 36) = 0.4950387788259195D-01
        xs( 37) = 0.5999269822603711D-01
        xs( 38) = 0.7173676118804209D-01
        xs( 39) = 0.8429602091713100D-01
        xs( 40) = 0.9729610657401747D-01
        xs( 41) = 0.1104888885575613D+00
        xs( 42) = 0.1237343461701280D+00
        xs( 43) = 0.1369637313117289D+00
        xs( 44) = 0.1501501156438448D+00
        xs( 45) = 0.1632897987779161D+00
        xs( 46) = 0.1763917190993979D+00
        xs( 47) = 0.1894714916087341D+00
        xs( 48) = 0.2025509960807540D+00
        xs( 49) = 0.2156349623193685D+00
        xs( 50) = 0.2286915361896303D+00
        xs( 51) = 0.2412358766335542D+00
        ws(  1) = 0.1198664115204665D-04
        ws(  2) = 0.2797462345619259D-04
        ws(  3) = 0.4416191437626116D-04
        ws(  4) = 0.6063608563330801D-04
        ws(  5) = 0.7751577648689927D-04
        ws(  6) = 0.9493583250739703D-04
        ws(  7) = 0.1130497645937256D-03
        ws(  8) = 0.1320333816629384D-03
        ws(  9) = 0.1520890869863000D-03
        ws( 10) = 0.1734511218637890D-03
        ws( 11) = 0.1963921656156755D-03
        ws( 12) = 0.2212317774027310D-03
        ws( 13) = 0.2483472745525507D-03
        ws( 14) = 0.2781878098601521D-03
        ws( 15) = 0.3112926619255298D-03
        ws( 16) = 0.3483151221003179D-03
        ws( 17) = 0.3900538895564602D-03
        ws( 18) = 0.4374946487517176D-03
        ws( 19) = 0.4918656010358361D-03
        ws( 20) = 0.5547123253163090D-03
        ws( 21) = 0.6279996769522981D-03
        ws( 22) = 0.7142518996505222D-03
        ws( 23) = 0.8167472340688775D-03
        ws( 24) = 0.9397909279333858D-03
        ws( 25) = 0.1089101778841705D-02
        ws( 26) = 0.1272363678335562D-02
        ws( 27) = 0.1500016255713797D-02
        ws( 28) = 0.1786386676109403D-02
        ws( 29) = 0.2151286386801294D-02
        ws( 30) = 0.2622163083419093D-02
        ws( 31) = 0.3236635968751332D-02
        ws( 32) = 0.4044150170214596D-02
        ws( 33) = 0.5101785470935065D-02
        ws( 34) = 0.6450590116401485D-02
        ws( 35) = 0.8054687005163238D-02
        ws( 36) = 0.9730439989102294D-02
        ws( 37) = 0.1118808013629518D-01
        ws( 38) = 0.1222354340251270D-01
        ws( 39) = 0.1283172745581295D-01
        ws( 40) = 0.1312755170188102D-01
        ws( 41) = 0.1323534219244842D-01
        ws( 42) = 0.1324461244557919D-01
        ws( 43) = 0.1320998453911710D-01
        ws( 44) = 0.1316232780472043D-01
        ws( 45) = 0.1311854686487989D-01
        ws( 46) = 0.1308761854665263D-01
        ws( 47) = 0.1307224449231394D-01
        ws( 48) = 0.1310458598780898D-01
        ws( 49) = 0.1315825072670718D-01
        ws( 50) = 0.1347123311861996D-01
        ws( 51) = 0.1187345414472081D-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 =  55
        err = 0.6112689996911386D-10
        xs(  1) = 0.3607384852300098D-05
        xs(  2) = 0.1902487779700488D-04
        xs(  3) = 0.4683541911151169D-04
        xs(  4) = 0.8717369822092212D-04
        xs(  5) = 0.1402325171198021D-03
        xs(  6) = 0.2062742604933621D-03
        xs(  7) = 0.2856396826688944D-03
        xs(  8) = 0.3787579175260474D-03
        xs(  9) = 0.4861580436762156D-03
        xs( 10) = 0.6084824221264860D-03
        xs( 11) = 0.7465021415743464D-03
        xs( 12) = 0.9011350589250992D-03
        xs( 13) = 0.1073467090070082D-02
        xs( 14) = 0.1264777595794286D-02
        xs( 15) = 0.1476569935687623D-02
        xs( 16) = 0.1710608549562329D-02
        xs( 17) = 0.1968964299192209D-02
        xs( 18) = 0.2254070297887597D-02
        xs( 19) = 0.2568791119258206D-02
        xs( 20) = 0.2916509175293177D-02
        xs( 21) = 0.3301233281806598D-02
        xs( 22) = 0.3727736117645972D-02
        xs( 23) = 0.4201729629453313D-02
        xs( 24) = 0.4730090715941176D-02
        xs( 25) = 0.5321154167206287D-02
        xs( 26) = 0.5985096457830742D-02
        xs( 27) = 0.6734443527508397D-02
        xs( 28) = 0.7584749558557404D-02
        xs( 29) = 0.8555514073301983D-02
        xs( 30) = 0.9671434658244812D-02
        xs( 31) = 0.1096413692148734D-01
        xs( 32) = 0.1247458846998726D-01
        xs( 33) = 0.1425649731582977D-01
        xs( 34) = 0.1638112142892075D-01
        xs( 35) = 0.1894405421682771D-01
        xs( 36) = 0.2207458450164648D-01
        xs( 37) = 0.2594769583098008D-01
        xs( 38) = 0.3079603060946789D-01
        xs( 39) = 0.3691008135466170D-01
        xs( 40) = 0.4459678561424129D-01
        xs( 41) = 0.5406166205052664D-01
        xs( 42) = 0.6525242060906580D-01
        xs( 43) = 0.7782293196997614D-01
        xs( 44) = 0.9129304559599657D-01
        xs( 45) = 0.1052408861906893D+00
        xs( 46) = 0.1193810568450879D+00
        xs( 47) = 0.1335504426867268D+00
        xs( 48) = 0.1476682424844578D+00
        xs( 49) = 0.1617022874821344D+00
        xs( 50) = 0.1756472053606268D+00
        xs( 51) = 0.1895107770376658D+00
        xs( 52) = 0.2033028255849376D+00
        xs( 53) = 0.2170151296506001D+00
        xs( 54) = 0.2306073742253475D+00
        xs( 55) = 0.2436004443245904D+00
        ws(  1) = 0.9259736443536848D-05
        ws(  2) = 0.2159532573626757D-04
        ws(  3) = 0.3404765351921320D-04
        ws(  4) = 0.4666089585105783D-04
        ws(  5) = 0.5950032898532478D-04
        ws(  6) = 0.7263978374734356D-04
        ws(  7) = 0.8616239064218535D-04
        ws(  8) = 0.1001620373345564D-03
        ws(  9) = 0.1147450188669485D-03
        ws( 10) = 0.1300319536946705D-03
        ws( 11) = 0.1461601085011944D-03
        ws( 12) = 0.1632862916154397D-03
        ws( 13) = 0.1815904914446271D-03
        ws( 14) = 0.2012804659905553D-03
        ws( 15) = 0.2225975366381500D-03
        ws( 16) = 0.2458239110408666D-03
        ws( 17) = 0.2712919625213045D-03
        ws( 18) = 0.2993960359429931D-03
        ws( 19) = 0.3306075484191562D-03
        ws( 20) = 0.3654944298251647D-03
        ws( 21) = 0.4047463351035018D-03
        ws( 22) = 0.4492076059283675D-03
        ws( 23) = 0.4999207402258257D-03
        ws( 24) = 0.5581842450797264D-03
        ws( 25) = 0.6256303830271825D-03
        ws( 26) = 0.7043306983721164D-03
        ws( 27) = 0.7969407459957381D-03
        ws( 28) = 0.9069006866056188D-03
        ws( 29) = 0.1038716255768256D-02
        ws( 30) = 0.1198356316901791D-02
        ws( 31) = 0.1393820509963922D-02
        ws( 32) = 0.1635955131186033D-02
        ws( 33) = 0.1939627380955185D-02
        ws( 34) = 0.2325397901789208D-02
        ws( 35) = 0.2821811777334247D-02
        ws( 36) = 0.3468190290736174D-02
        ws( 37) = 0.4316731839814084D-02
        ws( 38) = 0.5428927340543317D-02
        ws( 39) = 0.6852333266341854D-02
        ws( 40) = 0.8558416875682248D-02
        ws( 41) = 0.1036353005545618D-01
        ws( 42) = 0.1195705886306422D-01
        ws( 43) = 0.1310032202562016D-01
        ws( 44) = 0.1376842964578179D-01
        ws( 45) = 0.1408010645953879D-01
        ws( 46) = 0.1417378262667735D-01
        ws( 47) = 0.1415208710741917D-01
        ws( 48) = 0.1407849522972892D-01
        ws( 49) = 0.1398898167849440D-01
        ws( 50) = 0.1390313991040414D-01
        ws( 51) = 0.1383357989292983D-01
        ws( 52) = 0.1379099188430735D-01
        ws( 53) = 0.1372843366547034D-01
        ws( 54) = 0.1346272971361950D-01
        ws( 55) = 0.1152894367132110D-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 =  58
        err = 0.7436855407642374D-10
        xs(  1) = 0.2906717526977022D-05
        xs(  2) = 0.1532599733562946D-04
        xs(  3) = 0.3771323505134941D-04
        xs(  4) = 0.7015055259599476D-04
        xs(  5) = 0.1127538205419044D-03
        xs(  6) = 0.1656804617510658D-03
        xs(  7) = 0.2291346562056718D-03
        xs(  8) = 0.3033730591965123D-03
        xs(  9) = 0.3887112271331466D-03
        xs( 10) = 0.4855308090934955D-03
        xs( 11) = 0.5942876097706275D-03
        xs( 12) = 0.7155206988311003D-03
        xs( 13) = 0.8498628128810237D-03
        xs( 14) = 0.9980523690961249D-03
        xs( 15) = 0.1160947488604352D-02
        xs( 16) = 0.1339542519136028D-02
        xs( 17) = 0.1534987658779112D-02
        xs( 18) = 0.1748612424814695D-02
        xs( 19) = 0.1981953895419826D-02
        xs( 20) = 0.2236790892512244D-02
        xs( 21) = 0.2515185589881219D-02
        xs( 22) = 0.2819534451023814D-02
        xs( 23) = 0.3152630959696676D-02
        xs( 24) = 0.3517743359702896D-02
        xs( 25) = 0.3918711636748565D-02
        xs( 26) = 0.4360069367781280D-02
        xs( 27) = 0.4847197977404805D-02
        xs( 28) = 0.5386523605989006D-02
        xs( 29) = 0.5985770537845104D-02
        xs( 30) = 0.6654290454185323D-02
        xs( 31) = 0.7403494402857756D-02
        xs( 32) = 0.8247425459742518D-02
        xs( 33) = 0.9203526309633408D-02
        xs( 34) = 0.1029368014775148D-01
        xs( 35) = 0.1154563953371070D-01
        xs( 36) = 0.1299501272207938D-01
        xs( 37) = 0.1468806012821504D-01
        xs( 38) = 0.1668567825597363D-01
        xs( 39) = 0.1906912606838447D-01
        xs( 40) = 0.2194826476253613D-01
        xs( 41) = 0.2547319302371445D-01
        xs( 42) = 0.2984941375550440D-01
        xs( 43) = 0.3535227558269105D-01
        xs( 44) = 0.4232250229811945D-01
        xs( 45) = 0.5110156861309580D-01
        xs( 46) = 0.6187342532969888D-01
        xs( 47) = 0.7449252959120964D-01
        xs( 48) = 0.8849721085077364D-01
        xs( 49) = 0.1033326220351939D+00
        xs( 50) = 0.1185537071206943D+00
        xs( 51) = 0.1338805497509323D+00
        xs( 52) = 0.1491647390034830D+00
        xs( 53) = 0.1643408017120218D+00
        xs( 54) = 0.1793897546400958D+00
        xs( 55) = 0.1943159539187965D+00
        xs( 56) = 0.2091205148601683D+00
        xs( 57) = 0.2237649279508064D+00
        xs( 58) = 0.2378014512672853D+00
        ws(  1) = 0.7460789787827925D-05
        ws(  2) = 0.1739156681814468D-04
        ws(  3) = 0.2739616793903237D-04
        ws(  4) = 0.3749768805081116D-04
        ws(  5) = 0.4773500033401104D-04
        ws(  6) = 0.5815221695302880D-04
        ws(  7) = 0.6879884084888983D-04
        ws(  8) = 0.7973043825406980D-04
        ws(  9) = 0.9100937183443832D-04
        ws( 10) = 0.1027056082970444D-03
        ws( 11) = 0.1148976653939016D-03
        ws( 12) = 0.1276737695453869D-03
        ws( 13) = 0.1411332955156266D-03
        ws( 14) = 0.1553885631446836D-03
        ws( 15) = 0.1705670751882537D-03
        ws( 16) = 0.1868142965959617D-03
        ws( 17) = 0.2042971009614128D-03
        ws( 18) = 0.2232080445822827D-03
        ws( 19) = 0.2437706779630668D-03
        ws( 20) = 0.2662461686751130D-03
        ws( 21) = 0.2909415986981806D-03
        ws( 22) = 0.3182204184744363D-03
        ws( 23) = 0.3485157030041668D-03
        ws( 24) = 0.3823470814614754D-03
        ws( 25) = 0.4203425217312295D-03
        ws( 26) = 0.4632665958909729D-03
        ws( 27) = 0.5120574679252696D-03
        ws( 28) = 0.5678757450983388D-03
        ws( 29) = 0.6321696210837719D-03
        ws( 30) = 0.7067626346169366D-03
        ws( 31) = 0.7939731644144395D-03
        ws( 32) = 0.8967789808591492D-03
        ws( 33) = 0.1019046496652837D-02
        ws( 34) = 0.1165854085922401D-02
        ws( 35) = 0.1343953663023401D-02
        ws( 36) = 0.1562437685518342D-02
        ws( 37) = 0.1833712951151496D-02
        ws( 38) = 0.2174931448158078D-02
        ws( 39) = 0.2610081905840671D-02
        ws( 40) = 0.3172952805016974D-02
        ws( 41) = 0.3910876487456978D-02
        ws( 42) = 0.4887426684398500D-02
        ws( 43) = 0.6176030085967239D-02
        ws( 44) = 0.7824122844752021D-02
        ws( 45) = 0.9768181205208837D-02
        ws( 46) = 0.1175119011397235D-01
        ws( 47) = 0.1340555542930825D-01
        ws( 48) = 0.1450764336863455D-01
        ws( 49) = 0.1508832326027133D-01
        ws( 50) = 0.1530794377864754D-01
        ws( 51) = 0.1532186516646733D-01
        ws( 52) = 0.1523624009567783D-01
        ws( 53) = 0.1511337911364723D-01
        ws( 54) = 0.1498675313346519D-01
        ws( 55) = 0.1487500291643293D-01
        ws( 56) = 0.1476552389052762D-01
        ws( 57) = 0.1460088778776683D-01
        ws( 58) = 0.1254750502789176D-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 =  62
        err = 0.8279690883159561D-10
        xs(  1) = 0.2388088053975096D-05
        xs(  2) = 0.1258938152066630D-04
        xs(  3) = 0.3096985406584904D-04
        xs(  4) = 0.5758191099798958D-04
        xs(  5) = 0.9249823113834801D-04
        xs(  6) = 0.1358173844611621D-03
        xs(  7) = 0.1876671035334210D-03
        xs(  8) = 0.2482077667400509D-03
        xs(  9) = 0.3176362353895818D-03
        xs( 10) = 0.3961900538119628D-03
        xs( 11) = 0.4841520391592440D-03
        xs( 12) = 0.5818553227813073D-03
        xs( 13) = 0.6896889409156763D-03
        xs( 14) = 0.8081041062142138D-03
        xs( 15) = 0.9376213247130375D-03
        xs( 16) = 0.1078838557984114D-02
        xs( 17) = 0.1232440669196920D-02
        xs( 18) = 0.1399210439037752D-02
        xs( 19) = 0.1580041495855281D-02
        xs( 20) = 0.1775953578026663D-02
        xs( 21) = 0.1988110641058500D-02
        xs( 22) = 0.2217842442874188D-02
        xs( 23) = 0.2466670397743398D-02
        xs( 24) = 0.2736338692338727D-02
        xs( 25) = 0.3028851923603783D-02
        xs( 26) = 0.3346520865981519D-02
        xs( 27) = 0.3692018437363787D-02
        xs( 28) = 0.4068448546721020D-02
        xs( 29) = 0.4479431331928667D-02
        xs( 30) = 0.4929209409856778D-02
        xs( 31) = 0.5422781290488321D-02
        xs( 32) = 0.5966070205220250D-02
        xs( 33) = 0.6566139543171646D-02
        xs( 34) = 0.7231470211402382D-02
        xs( 35) = 0.7972321140185278D-02
        xs( 36) = 0.8801202663703551D-02
        xs( 37) = 0.9733504933868351D-02
        xs( 38) = 0.1078834199531048D-01
        xs( 39) = 0.1198969985118200D-01
        xs( 40) = 0.1336801912880587D-01
        xs( 41) = 0.1496240815537250D-01
        xs( 42) = 0.1682378341450573D-01
        xs( 43) = 0.1901939015097618D-01
        xs( 44) = 0.2163938458737801D-01
        xs( 45) = 0.2480644395861352D-01
        xs( 46) = 0.2868947183258763D-01
        xs( 47) = 0.3352118196604290D-01
        xs( 48) = 0.3961289484621110D-01
        xs( 49) = 0.4734207055957984D-01
        xs( 50) = 0.5706431468887652D-01
        xs( 51) = 0.6892642523123903D-01
        xs( 52) = 0.8269928467033164D-01
        xs( 53) = 0.9784148157016677D-01
        xs( 54) = 0.1137588856294765D+00
        xs( 55) = 0.1299999588169321D+00
        xs( 56) = 0.1462912801236190D+00
        xs( 57) = 0.1624932014520609D+00
        xs( 58) = 0.1785477946089858D+00
        xs( 59) = 0.1944405520675876D+00
        xs( 60) = 0.2101742234216662D+00
        xs( 61) = 0.2256802574374505D+00
        xs( 62) = 0.2404807569599084D+00
        ws(  1) = 0.6129365612306174D-05
        ws(  2) = 0.1428319907167197D-04
        ws(  3) = 0.2248613838416945D-04
        ws(  4) = 0.3075002723387578D-04
        ws(  5) = 0.3909898858237469D-04
        ws(  6) = 0.4756054887444408D-04
        ws(  7) = 0.5616555504263462D-04
        ws(  8) = 0.6494851164796932D-04
        ws(  9) = 0.7394794002306757D-04
        ws( 10) = 0.8320674922446014D-04
        ws( 11) = 0.9277265050137141D-04
        ws( 12) = 0.1026986519810833D-03
        ws( 13) = 0.1130436682526599D-03
        ws( 14) = 0.1238732778790373D-03
        ws( 15) = 0.1352606626255182D-03
        ws( 16) = 0.1472877649932211D-03
        ws( 17) = 0.1600467063643738D-03
        ws( 18) = 0.1736415182160010D-03
        ws( 19) = 0.1881902515227435D-03
        ws( 20) = 0.2038275475146204D-03
        ws( 21) = 0.2207077763090082D-03
        ws( 22) = 0.2390088807344641D-03
        ws( 23) = 0.2589371032638674D-03
        ws( 24) = 0.2807328274994332D-03
        ws( 25) = 0.3046778376400722D-03
        ws( 26) = 0.3311043942180305D-03
        ws( 27) = 0.3604066569013059D-03
        ws( 28) = 0.3930551617389794D-03
        ws( 29) = 0.4296153072003062D-03
        ws( 30) = 0.4707711460896491D-03
        ws( 31) = 0.5173562655274463D-03
        ws( 32) = 0.5703942223632543D-03
        ws( 33) = 0.6311519988903410D-03
        ws( 34) = 0.7012113676636048D-03
        ws( 35) = 0.7825652128736428D-03
        ws( 36) = 0.8777489963313194D-03
        ws( 37) = 0.9900223857845513D-03
        ws( 38) = 0.1123623479204475D-02
        ws( 39) = 0.1284129470977339D-02
        ws( 40) = 0.1478975846522625D-02
        ws( 41) = 0.1718214532845958D-02
        ws( 42) = 0.2015636147169283D-02
        ws( 43) = 0.2390446095681228D-02
        ws( 44) = 0.2869761791078269D-02
        ws( 45) = 0.3492203389213586D-02
        ws( 46) = 0.4312339249000820D-02
        ws( 47) = 0.5403047211299876D-02
        ws( 48) = 0.6844635525721592D-02
        ws( 49) = 0.8676365388262927D-02
        ws( 50) = 0.1079609425243870D-01
        ws( 51) = 0.1288880303328717D-01
        ws( 52) = 0.1456146550816943D-01
        ws( 53) = 0.1562047379144982D-01
        ws( 54) = 0.1613877339735615D-01
        ws( 55) = 0.1629871721820284D-01
        ws( 56) = 0.1626154284058603D-01
        ws( 57) = 0.1613320836021595D-01
        ws( 58) = 0.1597443539374995D-01
        ws( 59) = 0.1581775803147330D-01
        ws( 60) = 0.1569153550971242D-01
        ws( 61) = 0.1549570296285377D-01
        ws( 62) = 0.1368152869689624D-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 =  66
        err = 0.8625012639829201D-10
        xs(  1) = 0.1994046676085483D-05
        xs(  2) = 0.1051083978627249D-04
        xs(  3) = 0.2585103457561558D-04
        xs(  4) = 0.4804929403969074D-04
        xs(  5) = 0.7715271281011770D-04
        xs(  6) = 0.1132250419398836D-03
        xs(  7) = 0.1563488441580890D-03
        xs(  8) = 0.2066277250253200D-03
        xs(  9) = 0.2641887578139792D-03
        xs( 10) = 0.3291850975782245D-03
        xs( 11) = 0.4017987833330763D-03
        xs( 12) = 0.4822437462628193D-03
        xs( 13) = 0.5707690620678379D-03
        xs( 14) = 0.6676625040546860D-03
        xs( 15) = 0.7732544702918319D-03
        xs( 16) = 0.8879223742289184D-03
        xs( 17) = 0.1012095604361871D-02
        xs( 18) = 0.1146261176467836D-02
        xs( 19) = 0.1290970222974731D-02
        xs( 20) = 0.1446845489436125D-02
        xs( 21) = 0.1614590039855375D-02
        xs( 22) = 0.1794997412231880D-02
        xs( 23) = 0.1988963515679678D-02
        xs( 24) = 0.2197500624034895D-02
        xs( 25) = 0.2421753900924778D-02
        xs( 26) = 0.2663020993913711D-02
        xs( 27) = 0.2922775366489025D-02
        xs( 28) = 0.3202694204921758D-02
        xs( 29) = 0.3504691955488174D-02
        xs( 30) = 0.3830960831466361D-02
        xs( 31) = 0.4184020000830391D-02
        xs( 32) = 0.4566775658439198D-02
        xs( 33) = 0.4982594839019589D-02
        xs( 34) = 0.5435396706884328D-02
        xs( 35) = 0.5929766245525308D-02
        xs( 36) = 0.6471096897876015D-02
        xs( 37) = 0.7065770951765274D-02
        xs( 38) = 0.7721389602353658D-02
        xs( 39) = 0.8447069040878778D-02
        xs( 40) = 0.9253825258408637D-02
        xs( 41) = 0.1015507940757810D-01
        xs( 42) = 0.1116732903394487D-01
        xs( 43) = 0.1231105055714451D-01
        xs( 44) = 0.1361192875345472D-01
        xs( 45) = 0.1510255582265202D-01
        xs( 46) = 0.1682481550550992D-01
        xs( 47) = 0.1883328257297252D-01
        xs( 48) = 0.2120014663107013D-01
        xs( 49) = 0.2402243429901706D-01
        xs( 50) = 0.2743264339223017D-01
        xs( 51) = 0.3161403607207992D-01
        xs( 52) = 0.3682024178784354D-01
        xs( 53) = 0.4339103761888538D-01
        xs( 54) = 0.5173571128632062D-01
        xs( 55) = 0.6223046427233167D-01
        xs( 56) = 0.7501010258792810D-01
        xs( 57) = 0.8979632177232964D-01
        xs( 58) = 0.1059877069733558D+00
        xs( 59) = 0.1229475337791818D+00
        xs( 60) = 0.1402040503131398D+00
        xs( 61) = 0.1574780328336586D+00
        xs( 62) = 0.1746307407772910D+00
        xs( 63) = 0.1916068980004305D+00
        xs( 64) = 0.2083869484951444D+00
        xs( 65) = 0.2248946205434856D+00
        xs( 66) = 0.2406793449083280D+00
        ws(  1) = 0.5117859708040574D-05
        ws(  2) = 0.1192323828811226D-04
        ws(  3) = 0.1876264870557841D-04
        ws(  4) = 0.2564167587915290D-04
        ws(  5) = 0.3257575238795949D-04
        ws(  6) = 0.3958262922380938D-04
        ws(  7) = 0.4668220235481518D-04
        ws(  8) = 0.5389669468458387D-04
        ws(  9) = 0.6125085007551963D-04
        ws( 10) = 0.6877211924562487D-04
        ws( 11) = 0.7649085339122542D-04
        ws( 12) = 0.8444052604063762D-04
        ws( 13) = 0.9265800254935001D-04
        ws( 14) = 0.1011838748421196D-03
        ws( 15) = 0.1100628775059021D-03
        ws( 16) = 0.1193444012564700D-03
        ws( 17) = 0.1290831205502839D-03
        ws( 18) = 0.1393397546017050D-03
        ws( 19) = 0.1501819848188705D-03
        ws( 20) = 0.1616855568679376D-03
        ws( 21) = 0.1739356028586895D-03
        ws( 22) = 0.1870282278781077D-03
        ws( 23) = 0.2010724171728127D-03
        ws( 24) = 0.2161923351477303D-03
        ws( 25) = 0.2325301063328975D-03
        ws( 26) = 0.2502491942663783D-03
        ws( 27) = 0.2695385261343586D-03
        ws( 28) = 0.2906175540106377D-03
        ws( 29) = 0.3137425013990222D-03
        ws( 30) = 0.3392141173823372D-03
        ws( 31) = 0.3673873657302565D-03
        ws( 32) = 0.3986836119754853D-03
        ws( 33) = 0.4336060637992659D-03
        ws( 34) = 0.4727594790756878D-03
        ws( 35) = 0.5168755268780142D-03
        ws( 36) = 0.5668456962649282D-03
        ws( 37) = 0.6237643954826155D-03
        ws( 38) = 0.6889859317188892D-03
        ws( 39) = 0.7642006264321809D-03
        ws( 40) = 0.8515376320117489D-03
        ws( 41) = 0.9537054375709811D-03
        ws( 42) = 0.1074186389953868D-02
        ws( 43) = 0.1217509631751226D-02
        ws( 44) = 0.1389639819899896D-02
        ws( 45) = 0.1598539460813720D-02
        ws( 46) = 0.1854995439328261D-02
        ws( 47) = 0.2173852591764955D-02
        ws( 48) = 0.2575872816591427D-02
        ws( 49) = 0.3090531924017564D-02
        ws( 50) = 0.3760089376593641D-02
        ws( 51) = 0.4644642521340046D-02
        ws( 52) = 0.5824531210326577D-02
        ws( 53) = 0.7386865043547716D-02
        ws( 54) = 0.9368987999903886D-02
        ws( 55) = 0.1164663081569567D-01
        ws( 56) = 0.1386458044973604D-01
        ws( 57) = 0.1560186019393008D-01
        ws( 58) = 0.1667132349290921D-01
        ws( 59) = 0.1716956739374500D-01
        ws( 60) = 0.1729799127902521D-01
        ws( 61) = 0.1722803746716006D-01
        ws( 62) = 0.1706965606732549D-01
        ws( 63) = 0.1688510999539074D-01
        ws( 64) = 0.1670978918072268D-01
        ws( 65) = 0.1645808662710627D-01
        ws( 66) = 0.1382212542925137D-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 =  70
        err = 0.8074732077621207D-10
        xs(  1) = 0.1692108131985865D-05
        xs(  2) = 0.8918476489833579D-05
        xs(  3) = 0.2193105751392811D-04
        xs(  4) = 0.4075342897914107D-04
        xs(  5) = 0.6541688214815908D-04
        xs(  6) = 0.9596375631488948D-04
        xs(  7) = 0.1324489553182271D-03
        xs(  8) = 0.1749414720401677D-03
        xs(  9) = 0.2235260223674544D-03
        xs( 10) = 0.2783047815844493D-03
        xs( 11) = 0.3393992140779285D-03
        xs( 12) = 0.4069519986546232D-03
        xs( 13) = 0.4811290643017599D-03
        xs( 14) = 0.5621217626060438D-03
        xs( 15) = 0.6501492126219521D-03
        xs( 16) = 0.7454608625682581D-03
        xs( 17) = 0.8483393205265477D-03
        xs( 18) = 0.9591035141687385D-03
        xs( 19) = 0.1078112248039937D-02
        xs( 20) = 0.1205768236977057D-02
        xs( 21) = 0.1342522706118128D-02
        xs( 22) = 0.1488880662664333D-02
        xs( 23) = 0.1645406962770718D-02
        xs( 24) = 0.1812733319581574D-02
        xs( 25) = 0.1991566426508463D-02
        xs( 26) = 0.2182697404953977D-02
        xs( 27) = 0.2387012829736400D-02
        xs( 28) = 0.2605507640227344D-02
        xs( 29) = 0.2839300314644109D-02
        xs( 30) = 0.3089650771979775D-02
        xs( 31) = 0.3357981577895828D-02
        xs( 32) = 0.3645903171580475D-02
        xs( 33) = 0.3955244013430709D-02
        xs( 34) = 0.4288086788726713D-02
        xs( 35) = 0.4646812107708322D-02
        xs( 36) = 0.5034151546351232D-02
        xs( 37) = 0.5453252400124148D-02
        xs( 38) = 0.5907757231257318D-02
        xs( 39) = 0.6401902240755742D-02
        xs( 40) = 0.6940639781610974D-02
        xs( 41) = 0.7529792098966107D-02
        xs( 42) = 0.8176245823973987D-02
        xs( 43) = 0.8888200166359935D-02
        xs( 44) = 0.9675486610855743D-02
        xs( 45) = 0.1054998488906191D-01
        xs( 46) = 0.1152617014962996D-01
        xs( 47) = 0.1262184129064614D-01
        xs( 48) = 0.1385910306970237D-01
        xs( 49) = 0.1526570939250080D-01
        xs( 50) = 0.1687692940034111D-01
        xs( 51) = 0.1873818413779590D-01
        xs( 52) = 0.2090884070436529D-01
        xs( 53) = 0.2346777445880858D-01
        xs( 54) = 0.2652165079104941D-01
        xs( 55) = 0.3021729724780003D-01
        xs( 56) = 0.3475951115697475D-01
        xs( 57) = 0.4043289043484189D-01
        xs( 58) = 0.4761553901718715D-01
        xs( 59) = 0.5674877776200271D-01
        xs( 60) = 0.6820680378022956D-01
        xs( 61) = 0.8206928490330147D-01
        xs( 62) = 0.9797634468680332D-01
        xs( 63) = 0.1152686840687649D+00
        xs( 64) = 0.1332896628250245D+00
        xs( 65) = 0.1515694172634335D+00
        xs( 66) = 0.1698379887376701D+00
        xs( 67) = 0.1879661979482474D+00
        xs( 68) = 0.2059031560628170D+00
        xs( 69) = 0.2236199968926460D+00
        xs( 70) = 0.2407177217212010D+00
        ws(  1) = 0.4342821015294668D-05
        ws(  2) = 0.1011576156568906D-04
        ws(  3) = 0.1591309575659422D-04
        ws(  4) = 0.2173682971435631D-04
        ws(  5) = 0.2759710915223208D-04
        ws(  6) = 0.3350576448508819D-04
        ws(  7) = 0.3947610507045920D-04
        ws(  8) = 0.4552301872390157D-04
        ws(  9) = 0.5166308065226032D-04
        ws( 10) = 0.5791464979087184D-04
        ws( 11) = 0.6429796113265102D-04
        ws( 12) = 0.7083522673240443D-04
        ws( 13) = 0.7755075751748265D-04
        ws( 14) = 0.8447111635921934D-04
        ws( 15) = 0.9162531134208753D-04
        ws( 16) = 0.9904503739709577D-04
        ws( 17) = 0.1067649740282000D-03
        ws( 18) = 0.1148231470058241D-03
        ws( 19) = 0.1232613634575977D-03
        ws( 20) = 0.1321257310342845D-03
        ws( 21) = 0.1414672743454625D-03
        ws( 22) = 0.1513426650512488D-03
        ws( 23) = 0.1618150857898502D-03
        ws( 24) = 0.1729552532031600D-03
        ws( 25) = 0.1848426311880881D-03
        ws( 26) = 0.1975668738802150D-03
        ws( 27) = 0.2112295471021114D-03
        ws( 28) = 0.2259461899151999D-03
        ws( 29) = 0.2418487936748959D-03
        ws( 30) = 0.2590887969478593D-03
        ws( 31) = 0.2778407216330227D-03
        ws( 32) = 0.2983066091323451D-03
        ws( 33) = 0.3207214647924590D-03
        ws( 34) = 0.3453599757375939D-03
        ws( 35) = 0.3725448528935308D-03
        ws( 36) = 0.4026572573241095D-03
        ws( 37) = 0.4361499168614144D-03
        ws( 38) = 0.4735637536206930D-03
        ws( 39) = 0.5155491175334185D-03
        ws( 40) = 0.5628931270363291D-03
        ws( 41) = 0.6165551845882841D-03
        ws( 42) = 0.6777135298790991D-03
        ws( 43) = 0.7478268840374814D-03
        ws( 44) = 0.8287169568598907D-03
        ws( 45) = 0.9226801536345815D-03
        ws( 46) = 0.1032640730443786D-02
        ws( 47) = 0.1162363662426869D-02
        ws( 48) = 0.1316755014777052D-02
        ws( 49) = 0.1502292765444303D-02
        ws( 50) = 0.1727655592181150D-02
        ws( 51) = 0.2004657911796370D-02
        ws( 52) = 0.2349666406172643D-02
        ws( 53) = 0.2785776494143967D-02
        ws( 54) = 0.3346150273514888D-02
        ws( 55) = 0.4078888802014275D-02
        ws( 56) = 0.5052662122440553D-02
        ws( 57) = 0.6357457515654427D-02
        ws( 58) = 0.8083494873037495D-02
        ws( 59) = 0.1024960916265236D-01
        ws( 60) = 0.1268286551862534D-01
        ws( 61) = 0.1497937911748893D-01
        ws( 62) = 0.1671891476117168D-01
        ws( 63) = 0.1775322524213599D-01
        ws( 64) = 0.1821054413021154D-01
        ws( 65) = 0.1830516180703006D-01
        ws( 66) = 0.1821166899945546D-01
        ws( 67) = 0.1804013760345757D-01
        ws( 68) = 0.1781971144311008D-01
        ws( 69) = 0.1748453546674194D-01
        ws( 70) = 0.1582446184741755D-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 =  74
        err = 0.7691173858451724D-10
        xs(  1) = 0.1457767144608225D-05
        xs(  2) = 0.7682803421108358D-05
        xs(  3) = 0.1889002443358669D-04
        xs(  4) = 0.3509581372011551D-04
        xs(  5) = 0.5632131030380405D-04
        xs(  6) = 0.8259513318057990D-04
        xs(  7) = 0.1139545038108458D-03
        xs(  8) = 0.1504463438989888D-03
        xs(  9) = 0.1921284379542504D-03
        xs( 10) = 0.2390706540324276D-03
        xs( 11) = 0.2913562116064132D-03
        xs( 12) = 0.3490829927875468D-03
        xs( 13) = 0.4123649015027223D-03
        xs( 14) = 0.4813332829673296D-03
        xs( 15) = 0.5561384220137008D-03
        xs( 16) = 0.6369511440327266D-03
        xs( 17) = 0.7239645467165159D-03
        xs( 18) = 0.8173958947336191D-03
        xs( 19) = 0.9174887133247852D-03
        xs( 20) = 0.1024515121203057D-02
        xs( 21) = 0.1138778447925906D-02
        xs( 22) = 0.1260616186933876D-02
        xs( 23) = 0.1390403342716646D-02
        xs( 24) = 0.1528556239235413D-02
        xs( 25) = 0.1675536867926682D-02
        xs( 26) = 0.1831857866910054D-02
        xs( 27) = 0.1998088239464624D-02
        xs( 28) = 0.2174859940408293D-02
        xs( 29) = 0.2362875483898203D-02
        xs( 30) = 0.2562916757238813D-02
        xs( 31) = 0.2775855263506493D-02
        xs( 32) = 0.3002664064064314D-02
        xs( 33) = 0.3244431750787746D-02
        xs( 34) = 0.3502378853825489D-02
        xs( 35) = 0.3777877184252204D-02
        xs( 36) = 0.4072472731362077D-02
        xs( 37) = 0.4387912887199423D-02
        xs( 38) = 0.4726178968087978D-02
        xs( 39) = 0.5089525255629860D-02
        xs( 40) = 0.5480526112720119D-02
        xs( 41) = 0.5902133163914782D-02
        xs( 42) = 0.6357745101828434D-02
        xs( 43) = 0.6851293452253016D-02
        xs( 44) = 0.7387348662311338D-02
        xs( 45) = 0.7971252274568867D-02
        xs( 46) = 0.8609282889505842D-02
        xs( 47) = 0.9308866287129902D-02
        xs( 48) = 0.1007884386036409D-01
        xs( 49) = 0.1092981888917649D-01
        xs( 50) = 0.1187460795747532D-01
        xs( 51) = 0.1292883625229304D-01
        xs( 52) = 0.1411173262619139D-01
        xs( 53) = 0.1544720641323759D-01
        xs( 54) = 0.1696532864690322D-01
        xs( 55) = 0.1870440486572721D-01
        xs( 56) = 0.2071393132545522D-01
        xs( 57) = 0.2305889737554447D-01
        xs( 58) = 0.2582617299998900D-01
        xs( 59) = 0.2913413950438188D-01
        xs( 60) = 0.3314720245154118D-01
        xs( 61) = 0.3809650435119199D-01
        xs( 62) = 0.4430384192275214D-01
        xs( 63) = 0.5219145932013399D-01
        xs( 64) = 0.6223314692287950D-01
        xs( 65) = 0.7478912165089138D-01
        xs( 66) = 0.8985505328591908D-01
        xs( 67) = 0.1069518886799980D+00
        xs( 68) = 0.1253409930482054D+00
        xs( 69) = 0.1443514523508784D+00
        xs( 70) = 0.1635324508263232D+00
        xs( 71) = 0.1826359563286864D+00
        xs( 72) = 0.2015367118354817D+00
        xs( 73) = 0.2201145123184063D+00
        xs( 74) = 0.2377602254436966D+00
        ws(  1) = 0.3741318935015197D-05
        ws(  2) = 0.8713433196366697D-05
        ws(  3) = 0.1370353932244095D-04
        ws(  4) = 0.1871153675307397D-04
        ws(  5) = 0.2374420862909152D-04
        ws(  6) = 0.2880962247828476D-04
        ws(  7) = 0.3391691966328072D-04
        ws(  8) = 0.3907637089121232D-04
        ws(  9) = 0.4429944075186798D-04
        ws( 10) = 0.4959883947023470D-04
        ws( 11) = 0.5498856674169433D-04
        ws( 12) = 0.6048395599631161D-04
        ws( 13) = 0.6610172738860662D-04
        ws( 14) = 0.7186005639824845D-04
        ws( 15) = 0.7777866380620189D-04
        ws( 16) = 0.8387893168774324D-04
        ws( 17) = 0.9018404966161132D-04
        ws( 18) = 0.9671919513671070D-04
        ws( 19) = 0.1035117516645346D-03
        ws( 20) = 0.1105915699409327D-03
        ws( 21) = 0.1179912767838376D-03
        ws( 22) = 0.1257466386932058D-03
        ws( 23) = 0.1338969879504048D-03
        ws( 24) = 0.1424857209298194D-03
        ws( 25) = 0.1515608811353100D-03
        ws( 26) = 0.1611758413010436D-03
        ws( 27) = 0.1713901032519206D-03
        ws( 28) = 0.1822702379567385D-03
        ws( 29) = 0.1938909935083427D-03
        ws( 30) = 0.2063366054187396D-03
        ws( 31) = 0.2197023521021867D-03
        ws( 32) = 0.2340964087068011D-03
        ws( 33) = 0.2496420655196925D-03
        ws( 34) = 0.2664803959330501D-03
        ws( 35) = 0.2847734783536552D-03
        ws( 36) = 0.3047083087193658D-03
        ws( 37) = 0.3265015753354137D-03
        ws( 38) = 0.3504055194468213D-03
        ws( 39) = 0.3767151691594520D-03
        ws( 40) = 0.4057773268159162D-03
        ws( 41) = 0.4380018052133467D-03
        ws( 42) = 0.4738755702376486D-03
        ws( 43) = 0.5139806870040127D-03
        ws( 44) = 0.5590172483826336D-03
        ws( 45) = 0.6098329406551738D-03
        ws( 46) = 0.6674614908451344D-03
        ws( 47) = 0.7331731623440978D-03
        ws( 48) = 0.8085417638146980D-03
        ws( 49) = 0.8955345992359871D-03
        ws( 50) = 0.9966346736960618D-03
        ws( 51) = 0.1115009061049507D-02
        ws( 52) = 0.1254744319024832D-02
        ws( 53) = 0.1421181216861478D-02
        ws( 54) = 0.1621399297258932D-02
        ws( 55) = 0.1864932509539644D-02
        ws( 56) = 0.2164848206587692D-02
        ws( 57) = 0.2539405757709290D-02
        ws( 58) = 0.3014638275733600D-02
        ws( 59) = 0.3628347265114988D-02
        ws( 60) = 0.4435869220560968D-02
        ws( 61) = 0.5516098400999677D-02
        ws( 62) = 0.6969589950622861D-02
        ws( 63) = 0.8887352503435824D-02
        ws( 64) = 0.1126086844671638D-01
        ws( 65) = 0.1385291192848673D-01
        ws( 66) = 0.1619478255980663D-01
        ws( 67) = 0.1786943845537383D-01
        ws( 68) = 0.1879457230375296D-01
        ws( 69) = 0.1915190425473143D-01
        ws( 70) = 0.1916998657747875D-01
        ws( 71) = 0.1901644042481232D-01
        ws( 72) = 0.1881024596876363D-01
        ws( 73) = 0.1845515525584809D-01
        ws( 74) = 0.1586859555504135D-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 =  78
        err = 0.8764371428356897D-10
        xs(  1) = 0.1269497285218348D-05
        xs(  2) = 0.6690231344787625D-05
        xs(  3) = 0.1644802099438970D-04
        xs(  4) = 0.3055466462601656D-04
        xs(  5) = 0.4902488905417314D-04
        xs(  6) = 0.7187860676094176D-04
        xs(  7) = 0.9914175554759640D-04
        xs(  8) = 0.1308471000025400D-03
        xs(  9) = 0.1670350764531098D-03
        xs( 10) = 0.2077546769461526D-03
        xs( 11) = 0.2530643615003152D-03
        xs( 12) = 0.3030329921088693D-03
        xs( 13) = 0.3577407877489952D-03
        xs( 14) = 0.4172803050533947D-03
        xs( 15) = 0.4817574538478580D-03
        xs( 16) = 0.5512925604759149D-03
        xs( 17) = 0.6260214947090313D-03
        xs( 18) = 0.7060968785858678D-03
        xs( 19) = 0.7916893976021724D-03
        xs( 20) = 0.8829892368010142D-03
        xs( 21) = 0.9802076665657497D-03
        xs( 22) = 0.1083578805533871D-02
        xs( 23) = 0.1193361591125255D-02
        xs( 24) = 0.1309841991900681D-02
        xs( 25) = 0.1433335500629837D-02
        xs( 26) = 0.1564189952544884D-02
        xs( 27) = 0.1702788719966043D-02
        xs( 28) = 0.1849554342998197D-02
        xs( 29) = 0.2004952665957330D-02
        xs( 30) = 0.2169497561599186D-02
        xs( 31) = 0.2343756340225775D-02
        xs( 32) = 0.2528355958767948D-02
        xs( 33) = 0.2723990167814222D-02
        xs( 34) = 0.2931427761702521D-02
        xs( 35) = 0.3151522130614649D-02
        xs( 36) = 0.3385222355687640D-02
        xs( 37) = 0.3633586140375809D-02
        xs( 38) = 0.3897794935540870D-02
        xs( 39) = 0.4179171699059605D-02
        xs( 40) = 0.4479201832169605D-02
        xs( 41) = 0.4799557966544167D-02
        xs( 42) = 0.5142129444599175D-02
        xs( 43) = 0.5509057549221482D-02
        xs( 44) = 0.5902777819946706D-02
        xs( 45) = 0.6326071157059185D-02
        xs( 46) = 0.6782125894480326D-02
        xs( 47) = 0.7274613656871574D-02
        xs( 48) = 0.7807782676721611D-02
        xs( 49) = 0.8386573389453167D-02
        xs( 50) = 0.9016762705581466D-02
        xs( 51) = 0.9705145533286963D-02
        xs( 52) = 0.1045976516367562D-01
        xs( 53) = 0.1129020844930383D-01
        xs( 54) = 0.1220798791483471D-01
        xs( 55) = 0.1322704198367691D-01
        xs( 56) = 0.1436439801276454D-01
        xs( 57) = 0.1564106326163606D-01
        xs( 58) = 0.1708324074410841D-01
        xs( 59) = 0.1872401717204917D-01
        xs( 60) = 0.2060575155361160D-01
        xs( 61) = 0.2278352768424528D-01
        xs( 62) = 0.2533025762504715D-01
        xs( 63) = 0.2834438677672759D-01
        xs( 64) = 0.3196169338941743D-01
        xs( 65) = 0.3637315052959099D-01
        xs( 66) = 0.4184968506973696D-01
        xs( 67) = 0.4876771766671483D-01
        xs( 68) = 0.5760958305169726D-01
        xs( 69) = 0.6888050282033480D-01
        xs( 70) = 0.8288739542164737D-01
        xs( 71) = 0.9947383813767337D-01
        xs( 72) = 0.1180012429010158D+00
        xs( 73) = 0.1376618835957967D+00
        xs( 74) = 0.1577980347992546D+00
        xs( 75) = 0.1779978735715902D+00
        xs( 76) = 0.1980352535180314D+00
        xs( 77) = 0.2177338445375556D+00
        xs( 78) = 0.2364901897650624D+00
        ws(  1) = 0.3258090666584701D-05
        ws(  2) = 0.7587229835079532D-05
        ws(  3) = 0.1193014304828140D-04
        ws(  4) = 0.1628557827341229D-04
        ws(  5) = 0.2065817630083257D-04
        ws(  6) = 0.2505356878692244D-04
        ws(  7) = 0.2947817544783028D-04
        ws(  8) = 0.3393923809305173D-04
        ws(  9) = 0.3844486492877304D-04
        ws( 10) = 0.4300406382568900D-04
        ws( 11) = 0.4762676637276895D-04
        ws( 12) = 0.5232384834989443D-04
        ws( 13) = 0.5710715214563298D-04
        ws( 14) = 0.6198951641589946D-04
        ws( 15) = 0.6698481682423975D-04
        ws( 16) = 0.7210802129535470D-04
        ws( 17) = 0.7737526237924695D-04
        ws( 18) = 0.8280392908013348D-04
        ws( 19) = 0.8841278009507441D-04
        ws( 20) = 0.9422208072380331D-04
        ws( 21) = 0.1002537658165743D-03
        ws( 22) = 0.1065316315745508D-03
        ws( 23) = 0.1130815595887554D-03
        ws( 24) = 0.1199317772406821D-03
        ws( 25) = 0.1271131596549264D-03
        ws( 26) = 0.1346595792145374D-03
        ws( 27) = 0.1426083102306736D-03
        ws( 28) = 0.1510004980467396D-03
        ws( 29) = 0.1598817034506514D-03
        ws( 30) = 0.1693025363906194D-03
        ws( 31) = 0.1793193949560634D-03
        ws( 32) = 0.1899953301937709D-03
        ws( 33) = 0.2014010616556502D-03
        ws( 34) = 0.2136161735995078D-03
        ws( 35) = 0.2267305297347638D-03
        ws( 36) = 0.2408459532833621D-03
        ws( 37) = 0.2560782298542003D-03
        ws( 38) = 0.2725595061108061D-03
        ws( 39) = 0.2904411766730622D-03
        ws( 40) = 0.3098973726460234D-03
        ws( 41) = 0.3311292024967111D-03
        ws( 42) = 0.3543699328340107D-03
        ws( 43) = 0.3798913530758669D-03
        ws( 44) = 0.4080116438073027D-03
        ws( 45) = 0.4391051637945722D-03
        ws( 46) = 0.4736147044760299D-03
        ws( 47) = 0.5120669475089058D-03
        ws( 48) = 0.5550921136098123D-03
        ws( 49) = 0.6034491320722398D-03
        ws( 50) = 0.6580581822767998D-03
        ws( 51) = 0.7200431537092163D-03
        ws( 52) = 0.7907876197598222D-03
        ws( 53) = 0.8720094723715194D-03
        ws( 54) = 0.9658616293396849D-03
        ws( 55) = 0.1075069775629988D-02
        ws( 56) = 0.1203123567048280D-02
        ws( 57) = 0.1354546491205293D-02
        ws( 58) = 0.1535283946734150D-02
        ws( 59) = 0.1753272545076865D-02
        ws( 60) = 0.2019293977642589D-02
        ws( 61) = 0.2348285372212651D-02
        ws( 62) = 0.2761390539209943D-02
        ws( 63) = 0.3289203798019575D-02
        ws( 64) = 0.3976816178539329D-02
        ws( 65) = 0.4890773187772428D-02
        ws( 66) = 0.6124881106426534D-02
        ws( 67) = 0.7792760757735196D-02
        ws( 68) = 0.9979008852119643D-02
        ws( 69) = 0.1261930856583032D-01
        ws( 70) = 0.1536910971880766D-01
        ws( 71) = 0.1769098212312092D-01
        ws( 72) = 0.1922328088562641D-01
        ws( 73) = 0.1998710128163551D-01
        ws( 74) = 0.2021776395569380D-01
        ws( 75) = 0.2014858792765172D-01
        ws( 76) = 0.1991990797919110D-01
        ws( 77) = 0.1941602404675106D-01
        ws( 78) = 0.1637540089455374D-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 =  83
        err = 0.4779746503924148D-10
        xs(  1) = 0.1108814231609261D-05
        xs(  2) = 0.5843214581110503D-05
        xs(  3) = 0.1436463919863291D-04
        xs(  4) = 0.2668180363442121D-04
        xs(  5) = 0.4280519278765345D-04
        xs(  6) = 0.6274894939357756D-04
        xs(  7) = 0.8653150688645408D-04
        xs(  8) = 0.1141761757536207D-03
        xs(  9) = 0.1457117580905923D-03
        xs( 10) = 0.1811731885773816D-03
        xs( 11) = 0.2206021931722333D-03
        xs( 12) = 0.2640479591764360D-03
        xs( 13) = 0.3115678140708316D-03
        xs( 14) = 0.3632279142908119D-03
        xs( 15) = 0.4191039482352451D-03
        xs( 16) = 0.4792818604219982D-03
        xs( 17) = 0.5438586056588116D-03
        xs( 18) = 0.6129429437678528D-03
        xs( 19) = 0.6866562866741467D-03
        xs( 20) = 0.7651336107772001D-03
        xs( 21) = 0.8485244486974454D-03
        xs( 22) = 0.9369939756507987D-03
        xs( 23) = 0.1030724207063365D-02
        xs( 24) = 0.1129915325685058D-02
        xs( 25) = 0.1234787158417782D-02
        xs( 26) = 0.1345580825454208D-02
        xs( 27) = 0.1462560587248344D-02
        xs( 28) = 0.1586015918279299D-02
        xs( 29) = 0.1716263840859245D-02
        xs( 30) = 0.1853651557248090D-02
        xs( 31) = 0.1998559424487829D-02
        xs( 32) = 0.2151404323671924D-02
        xs( 33) = 0.2312643484091280D-02
        xs( 34) = 0.2482778833542034D-02
        xs( 35) = 0.2662361958626265D-02
        xs( 36) = 0.2851999774543658D-02
        xs( 37) = 0.3052361022841793D-02
        xs( 38) = 0.3264183738332314D-02
        xs( 39) = 0.3488283854509838D-02
        xs( 40) = 0.3725565152079675D-02
        xs( 41) = 0.3977030796750022D-02
        xs( 42) = 0.4243796766315927D-02
        xs( 43) = 0.4527107533291959D-02
        xs( 44) = 0.4828354451367337D-02
        xs( 45) = 0.5149097398573182D-02
        xs( 46) = 0.5491090363492859D-02
        xs( 47) = 0.5856311828567450D-02
        xs( 48) = 0.6247001020821464D-02
        xs( 49) = 0.6665701383742363D-02
        xs( 50) = 0.7115312986127434D-02
        xs( 51) = 0.7599156064155906D-02
        xs( 52) = 0.8121048531855874D-02
        xs( 53) = 0.8685401137231730D-02
        xs( 54) = 0.9297335090521762D-02
        xs( 55) = 0.9962828551222287D-02
        xs( 56) = 0.1068890050800223D-01
        xs( 57) = 0.1148384358729898D-01
        xs( 58) = 0.1235752156285588D-01
        xs( 59) = 0.1332175342716380D-01
        xs( 60) = 0.1439081477109749D-01
        xs( 61) = 0.1558210031221599D-01
        xs( 62) = 0.1691701139002810D-01
        xs( 63) = 0.1842216284263833D-01
        xs( 64) = 0.2013105186740162D-01
        xs( 65) = 0.2208640899812353D-01
        xs( 66) = 0.2434357684217259D-01
        xs( 67) = 0.2697546615666611D-01
        xs( 68) = 0.3007996522757879D-01
        xs( 69) = 0.3379115986870085D-01
        xs( 70) = 0.3829612323500893D-01
        xs( 71) = 0.4385807280550207D-01
        xs( 72) = 0.5084091629317961D-01
        xs( 73) = 0.5971366829782588D-01
        xs( 74) = 0.7098414697060182D-01
        xs( 75) = 0.8500634579868377D-01
        xs( 76) = 0.1017170689779224D+00
        xs( 77) = 0.1205525564410540D+00
        xs( 78) = 0.1407057537337204D+00
        xs( 79) = 0.1614694323939783D+00
        xs( 80) = 0.1823793122003809D+00
        xs( 81) = 0.2031787646807004D+00
        xs( 82) = 0.2236878794632380D+00
        xs( 83) = 0.2432731673355270D+00
        ws(  1) = 0.2845682031608499D-05
        ws(  2) = 0.6626340342466022D-05
        ws(  3) = 0.1041781157733281D-04
        ws(  4) = 0.1421824834317935D-04
        ws(  5) = 0.1803087739576443D-04
        ws(  6) = 0.2185969835165578D-04
        ws(  7) = 0.2570929145237651D-04
        ws(  8) = 0.2958483592516994D-04
        ws(  9) = 0.3349214020436682D-04
        ws( 10) = 0.3743766392286966D-04
        ws( 11) = 0.4142853184014414D-04
        ws( 12) = 0.4547254327702884D-04
        ws( 13) = 0.4957818088333921D-04
        ws( 14) = 0.5375462224056477D-04
        ws( 15) = 0.5801175719221138D-04
        ws( 16) = 0.6236021310036164D-04
        ws( 17) = 0.6681138992075499D-04
        ws( 18) = 0.7137750644475506D-04
        ws( 19) = 0.7607165894219846D-04
        ws( 20) = 0.8090789330136406D-04
        ws( 21) = 0.8590129182471732D-04
        ws( 22) = 0.9106807591506386D-04
        ws( 23) = 0.9642572614106977D-04
        ws( 24) = 0.1019931214947973D-03
        ws( 25) = 0.1077906999552005D-03
        ws( 26) = 0.1138406430435729D-03
        ws( 27) = 0.1201670874856989D-03
        ws( 28) = 0.1267963678649837D-03
        ws( 29) = 0.1337572948801370D-03
        ws( 30) = 0.1410814747252858D-03
        ws( 31) = 0.1488036763708238D-03
        ws( 32) = 0.1569622545727182D-03
        ws( 33) = 0.1655996384624839D-03
        ws( 34) = 0.1747628973226774D-03
        ws( 35) = 0.1845043974169082D-03
        ws( 36) = 0.1948825672923734D-03
        ws( 37) = 0.2059627921694874D-03
        ws( 38) = 0.2178184624977567D-03
        ws( 39) = 0.2305322083870239D-03
        ws( 40) = 0.2441973581180501D-03
        ws( 41) = 0.2589196672068154D-03
        ws( 42) = 0.2748193788746779D-03
        ws( 43) = 0.2920336882640160D-03
        ws( 44) = 0.3107197031355784D-03
        ws( 45) = 0.3310580188440317D-03
        ws( 46) = 0.3532570570840512D-03
        ws( 47) = 0.3775583570828036D-03
        ws( 48) = 0.4042430663530080D-03
        ws( 49) = 0.4336399519336198D-03
        ws( 50) = 0.4661353423118642D-03
        ws( 51) = 0.5021855581560028D-03
        ws( 52) = 0.5423325564046734D-03
        ws( 53) = 0.5872237679422396D-03
        ws( 54) = 0.6376374608605872D-03
        ws( 55) = 0.6945154487174810D-03
        ws( 56) = 0.7590056616550259D-03
        ws( 57) = 0.8325181298016306D-03
        ws( 58) = 0.9167993986281598D-03
        ws( 59) = 0.1014032701088347D-02
        ws( 60) = 0.1126974532862671D-02
        ws( 61) = 0.1259143653049541D-02
        ws( 62) = 0.1415087000628332D-02
        ws( 63) = 0.1600760380280534D-02
        ws( 64) = 0.1824084374549897D-02
        ws( 65) = 0.2095773066679058D-02
        ws( 66) = 0.2430594119513449D-02
        ws( 67) = 0.2849316791119727D-02
        ws( 68) = 0.3381752745315914D-02
        ws( 69) = 0.4071421775507406D-02
        ws( 70) = 0.4981921352632093D-02
        ws( 71) = 0.6202432648573628D-02
        ws( 72) = 0.7842345750626558D-02
        ws( 73) = 0.9991064516523493D-02
        ws( 74) = 0.1261399739660224D-01
        ws( 75) = 0.1542190103156462D-01
        ws( 76) = 0.1790041510566002D-01
        ws( 77) = 0.1962946853905681D-01
        ws( 78) = 0.2055689659518123D-01
        ws( 79) = 0.2089391848765346D-01
        ws( 80) = 0.2088510096422974D-01
        ws( 81) = 0.2070453652762809D-01
        ws( 82) = 0.2037706576078708D-01
        ws( 83) = 0.1783630388232002D-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 =  87
        err = 0.7013637726891879D-10
        xs(  1) = 0.9835604571731880D-06
        xs(  2) = 0.5182985440729861D-05
        xs(  3) = 0.1274081752676402D-04
        xs(  4) = 0.2366357705819134D-04
        xs(  5) = 0.3795876648132265D-04
        xs(  6) = 0.5563649569010723D-04
        xs(  7) = 0.7670998333712539D-04
        xs(  8) = 0.1011960091959965D-03
        xs(  9) = 0.1291153859176199D-03
        xs( 10) = 0.1604934498215757D-03
        xs( 11) = 0.1953605634761052D-03
        xs( 12) = 0.2337526240269527D-03
        xs( 13) = 0.2757115740052181D-03
        xs( 14) = 0.3212859140385381D-03
        xs( 15) = 0.3705312193407800D-03
        xs( 16) = 0.4235106637986232D-03
        xs( 17) = 0.4802955569928849D-03
        xs( 18) = 0.5409659006815785D-03
        xs( 19) = 0.6056109721871366D-03
        xs( 20) = 0.6743299428061896D-03
        xs( 21) = 0.7472325400477404D-03
        xs( 22) = 0.8244397630624645D-03
        xs( 23) = 0.9060846613038828D-03
        xs( 24) = 0.9923131872424055D-03
        xs( 25) = 0.1083285134851258D-02
        xs( 26) = 0.1179175176634393D-02
        xs( 27) = 0.1280174013427204D-02
        xs( 28) = 0.1386489652717326D-02
        xs( 29) = 0.1498348833201604D-02
        xs( 30) = 0.1615998615719950D-02
        xs( 31) = 0.1739708163356624D-02
        xs( 32) = 0.1869770736955680D-02
        xs( 33) = 0.2006505936249031D-02
        xs( 34) = 0.2150262221355304D-02
        xs( 35) = 0.2301419755222580D-02
        xs( 36) = 0.2460393614168772D-02
        xs( 37) = 0.2627637421752613D-02
        xs( 38) = 0.2803647470640636D-02
        xs( 39) = 0.2988967408918006D-02
        xs( 40) = 0.3184193580882829D-02
        xs( 41) = 0.3389981129556574D-02
        xs( 42) = 0.3607050988242904D-02
        xs( 43) = 0.3836197913327737D-02
        xs( 44) = 0.4078299741478339D-02
        xs( 45) = 0.4334328091525553D-02
        xs( 46) = 0.4605360777489566D-02
        xs( 47) = 0.4892596257410215D-02
        xs( 48) = 0.5197370514003791D-02
        xs( 49) = 0.5521176853217283D-02
        xs( 50) = 0.5865689221022282D-02
        xs( 51) = 0.6232789783797566D-02
        xs( 52) = 0.6624601701549907D-02
        xs( 53) = 0.7043528260674277D-02
        xs( 54) = 0.7492299844113493D-02
        xs( 55) = 0.7974030615605946D-02
        xs( 56) = 0.8492287328253172D-02
        xs( 57) = 0.9051173372753758D-02
        xs( 58) = 0.9655432122330916D-02
        xs( 59) = 0.1031057491732772D-01
        xs( 60) = 0.1102304078497449D-01
        xs( 61) = 0.1180039742182868D-01
        xs( 62) = 0.1265159640264586D-01
        xs( 63) = 0.1358730043173639D-01
        xs( 64) = 0.1462030753970874D-01
        xs( 65) = 0.1576610753897224D-01
        xs( 66) = 0.1704362170514143D-01
        xs( 67) = 0.1847620072530151D-01
        xs( 68) = 0.2009299375903747D-01
        xs( 69) = 0.2193086212865373D-01
        xs( 70) = 0.2403710991297371D-01
        xs( 71) = 0.2647347080856384D-01
        xs( 72) = 0.2932206927397948D-01
        xs( 73) = 0.3269451192143731D-01
        xs( 74) = 0.3674583682526831D-01
        xs( 75) = 0.4169519046470306D-01
        xs( 76) = 0.4785272900760055D-01
        xs( 77) = 0.5564310309644090D-01
        xs( 78) = 0.6559354642112875D-01
        xs( 79) = 0.7822355386153650D-01
        xs( 80) = 0.9379602815199282D-01
        xs( 81) = 0.1120638877589128D+00
        xs( 82) = 0.1323064077476000D+00
        xs( 83) = 0.1536770509308963D+00
        xs( 84) = 0.1755104726808077D+00
        xs( 85) = 0.1973921681452505D+00
        xs( 86) = 0.2190416457510674D+00
        xs( 87) = 0.2398158186661412D+00
        ws(  1) = 0.2524209184949909D-05
        ws(  2) = 0.5877388896799133D-05
        ws(  3) = 0.9239229642055703D-05
        ws(  4) = 0.1260752608839432D-04
        ws(  5) = 0.1598453014832966D-04
        ws(  6) = 0.1937312390332332D-04
        ws(  7) = 0.2277664014499851D-04
        ws(  8) = 0.2619887215126613D-04
        ws(  9) = 0.2964409562128450D-04
        ws( 10) = 0.3311708413514274D-04
        ws( 11) = 0.3662311751521540D-04
        ws( 12) = 0.4016798546813275D-04
        ws( 13) = 0.4375798932790150D-04
        ws( 14) = 0.4739994455085353D-04
        ws( 15) = 0.5110118610065877D-04
        ws( 16) = 0.5486957849042427D-04
        ws( 17) = 0.5871353182103092D-04
        ws( 18) = 0.6264202482325980D-04
        ws( 19) = 0.6666463571939997D-04
        ws( 20) = 0.7079158153857553D-04
        ws( 21) = 0.7503376652041811D-04
        ws( 22) = 0.7940284023239799D-04
        ws( 23) = 0.8391126604938146D-04
        ws( 24) = 0.8857240090840537D-04
        ws( 25) = 0.9340058726858160D-04
        ws( 26) = 0.9841125850589723D-04
        ws( 27) = 0.1036210592985362D-03
        ws( 28) = 0.1090479826034780D-03
        ws( 29) = 0.1147115255659551D-03
        ws( 30) = 0.1206328667987323D-03
        ws( 31) = 0.1268350680112922D-03
        ws( 32) = 0.1333433038795014D-03
        ws( 33) = 0.1401851241305670D-03
        ws( 34) = 0.1473907531964484D-03
        ws( 35) = 0.1549934335135402D-03
        ws( 36) = 0.1630298197886160D-03
        ws( 37) = 0.1715404329292409D-03
        ws( 38) = 0.1805701841020027D-03
        ws( 39) = 0.1901689817621997D-03
        ws( 40) = 0.2003924365050191D-03
        ws( 41) = 0.2113026829493537D-03
        ws( 42) = 0.2229693400548490D-03
        ws( 43) = 0.2354706384926189D-03
        ws( 44) = 0.2488947481656606D-03
        ws( 45) = 0.2633413477217570D-03
        ws( 46) = 0.2789234870172476D-03
        ws( 47) = 0.2957698080517821D-03
        ws( 48) = 0.3140272026077280D-03
        ws( 49) = 0.3338640093332682D-03
        ws( 50) = 0.3554738772022202D-03
        ws( 51) = 0.3790804596240701D-03
        ws( 52) = 0.4049431451924577D-03
        ws( 53) = 0.4333640978102086D-03
        ws( 54) = 0.4646969568750353D-03
        ws( 55) = 0.4993576536842194D-03
        ws( 56) = 0.5378379601676820D-03
        ws( 57) = 0.5807225746243210D-03
        ws( 58) = 0.6287108415063700D-03
        ws( 59) = 0.6826446003321674D-03
        ws( 60) = 0.7435442057973557D-03
        ws( 61) = 0.8126556008561512D-03
        ws( 62) = 0.8915124902977701D-03
        ws( 63) = 0.9820194169075827D-03
        ws( 64) = 0.1086564279910555D-02
        ws( 65) = 0.1208172891909229D-02
        ws( 66) = 0.1350724803317243D-02
        ws( 67) = 0.1519260157523260D-02
        ws( 68) = 0.1720424955826999D-02
        ws( 69) = 0.1963130995252476D-02
        ws( 70) = 0.2259556841881341D-02
        ws( 71) = 0.2626705007226478D-02
        ws( 72) = 0.3088865807307211D-02
        ws( 73) = 0.3681515896558314D-02
        ws( 74) = 0.4457192140838914D-02
        ws( 75) = 0.5492748200172684D-02
        ws( 76) = 0.6893138648810101D-02
        ws( 77) = 0.8777148899411951D-02
        ws( 78) = 0.1121474084138279D-01
        ws( 79) = 0.1409426760785971D-01
        ws( 80) = 0.1700905709218007D-01
        ws( 81) = 0.1939952598813819D-01
        ws( 82) = 0.2093885368363724D-01
        ws( 83) = 0.2169075385290011D-01
        ws( 84) = 0.2190928242213448D-01
        ws( 85) = 0.2182232953794947D-01
        ws( 86) = 0.2142005505817324D-01
        ws( 87) = 0.1812339690876473D-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 =  91
        err = 0.8706501167152079D-10
        xs(  1) = 0.8795887814567852D-06
        xs(  2) = 0.4634961209240383D-05
        xs(  3) = 0.1139307063468952D-04
        xs(  4) = 0.2115879587839114D-04
        xs(  5) = 0.3393744212460458D-04
        xs(  6) = 0.4973616489497702D-04
        xs(  7) = 0.6856438197871820D-04
        xs(  8) = 0.9043413607736697D-04
        xs(  9) = 0.1153604703665757D-03
        xs( 10) = 0.1433618174803366D-03
        xs( 11) = 0.1744603958103825D-03
        xs( 12) = 0.2086826077665115D-03
        xs( 13) = 0.2460594366544462D-03
        xs( 14) = 0.2866268409719099D-03
        xs( 15) = 0.3304261467663063D-03
        xs( 16) = 0.3775044402913134D-03
        xs( 17) = 0.4279149643012850D-03
        xs( 18) = 0.4817175222745346D-03
        xs( 19) = 0.5389788954866903D-03
        xs( 20) = 0.5997732783839005D-03
        xs( 21) = 0.6641827380323005D-03
        xs( 22) = 0.7322977037572707D-03
        xs( 23) = 0.8042174934821591D-03
        xs( 24) = 0.8800508835518287D-03
        xs( 25) = 0.9599167292967381D-03
        xs( 26) = 0.1043944644102639D-02
        xs( 27) = 0.1132275745383874D-02
        xs( 28) = 0.1225063476683696D-02
        xs( 29) = 0.1322474515956561D-02
        xs( 30) = 0.1424689781355553D-02
        xs( 31) = 0.1531905547121019D-02
        xs( 32) = 0.1644334683691351D-02
        xs( 33) = 0.1762208038323152D-02
        xs( 34) = 0.1885775974443338D-02
        xs( 35) = 0.2015310090700690D-02
        xs( 36) = 0.2151105143960961D-02
        xs( 37) = 0.2293481203946818D-02
        xs( 38) = 0.2442786071764811D-02
        xs( 39) = 0.2599397999458703D-02
        xs( 40) = 0.2763728754317523D-02
        xs( 41) = 0.2936227078398163D-02
        xs( 42) = 0.3117382602838537D-02
        xs( 43) = 0.3307730286896837D-02
        xs( 44) = 0.3507855463889418D-02
        xs( 45) = 0.3718399591731287D-02
        xs( 46) = 0.3940066824006316D-02
        xs( 47) = 0.4173631539229397D-02
        xs( 48) = 0.4419946993766843D-02
        xs( 49) = 0.4679955296937182D-02
        xs( 50) = 0.4954698947443397D-02
        xs( 51) = 0.5245334221642878D-02
        xs( 52) = 0.5553146766402314D-02
        xs( 53) = 0.5879569829164098D-02
        xs( 54) = 0.6226205656180866D-02
        xs( 55) = 0.6594850715475074D-02
        xs( 56) = 0.6987525561362195D-02
        xs( 57) = 0.7406510361958389D-02
        xs( 58) = 0.7854387373821199D-02
        xs( 59) = 0.8334091994075671D-02
        xs( 60) = 0.8848974467775017D-02
        xs( 61) = 0.9402874927076968D-02
        xs( 62) = 0.1000021523048660D-01
        xs( 63) = 0.1064611214267457D-01
        xs( 64) = 0.1134651785490488D-01
        xs( 65) = 0.1210839586336257D-01
        xs( 66) = 0.1293994303285841D-01
        xs( 67) = 0.1385087265963727D-01
        xs( 68) = 0.1485277908154275D-01
        xs( 69) = 0.1595961278618536D-01
        xs( 70) = 0.1718830751585691D-01
        xs( 71) = 0.1855962009632221D-01
        xs( 72) = 0.2009927350396701D-01
        xs( 73) = 0.2183954168653873D-01
        xs( 74) = 0.2382149300001584D-01
        xs( 75) = 0.2609824073241733D-01
        xs( 76) = 0.2873977330802785D-01
        xs( 77) = 0.3184030755216075D-01
        xs( 78) = 0.3552968346901471D-01
        xs( 79) = 0.3999087931556389D-01
        xs( 80) = 0.4548510216159232D-01
        xs( 81) = 0.5238117963475762D-01
        xs( 82) = 0.6117224486528405D-01
        xs( 83) = 0.7243503616813439D-01
        xs( 84) = 0.8666351680954903D-01
        xs( 85) = 0.1039776148899534D+00
        xs( 86) = 0.1239251454813027D+00
        xs( 87) = 0.1456509814897889D+00
        xs( 88) = 0.1682986527455109D+00
        xs( 89) = 0.1912567087579672D+00
        xs( 90) = 0.2141487775016131D+00
        xs( 91) = 0.2361235266003876D+00
        ws(  1) = 0.2257361120376621D-05
        ws(  2) = 0.5255754597162220D-05
        ws(  3) = 0.8261159382764730D-05
        ws(  4) = 0.1127116350931653D-04
        ws(  5) = 0.1428731539234288D-04
        ws(  6) = 0.1731169379803759D-04
        ws(  7) = 0.2034674121765484D-04
        ws(  8) = 0.2339526767590567D-04
        ws(  9) = 0.2646046639041363D-04
        ws( 10) = 0.2954592425685458D-04
        ws( 11) = 0.3265562618756630D-04
        ws( 12) = 0.3579395503972047D-04
        ws( 13) = 0.3896568928786132D-04
        ws( 14) = 0.4217600048394937D-04
        ws( 15) = 0.4543045221627866D-04
        ws( 16) = 0.4873500190004258D-04
        ws( 17) = 0.5209600643165615D-04
        ws( 18) = 0.5552023248445069D-04
        ws( 19) = 0.5901487203851753D-04
        ws( 20) = 0.6258756345754760D-04
        ws( 21) = 0.6624641863110869D-04
        ws( 22) = 0.7000005632725602D-04
        ws( 23) = 0.7385764219597512D-04
        ws( 24) = 0.7782893586415077D-04
        ws( 25) = 0.8192434544253104D-04
        ws( 26) = 0.8615499006372544D-04
        ws( 27) = 0.9053277131429581D-04
        ws( 28) = 0.9507045420905615D-04
        ws( 29) = 0.9978175879565271D-04
        ws( 30) = 0.1046814637485971D-03
        ws( 31) = 0.1097855232229913D-03
        ws( 32) = 0.1151111988549414D-03
        ws( 33) = 0.1206772090524472D-03
        ws( 34) = 0.1265038976433011D-03
        ws( 35) = 0.1326134251828996D-03
        ws( 36) = 0.1390299860692799D-03
        ws( 37) = 0.1457800555339465D-03
        ws( 38) = 0.1528926711559245D-03
        ws( 39) = 0.1603997545951171D-03
        ws( 40) = 0.1683364803917101D-03
        ws( 41) = 0.1767416991681309D-03
        ws( 42) = 0.1856584257225473D-03
        ws( 43) = 0.1951344023789996D-03
        ws( 44) = 0.2052227520667660D-03
        ws( 45) = 0.2159827374515495D-03
        ws( 46) = 0.2274806464423964D-03
        ws( 47) = 0.2397908277132086D-03
        ws( 48) = 0.2529969080001859D-03
        ws( 49) = 0.2671932258239397D-03
        ws( 50) = 0.2824865290629180D-03
        ws( 51) = 0.2989979912365884D-03
        ws( 52) = 0.3168656177729879D-03
        ws( 53) = 0.3362471303388417D-03
        ws( 54) = 0.3573234397150471D-03
        ws( 55) = 0.3803028488071051D-03
        ws( 56) = 0.4054261669443833D-03
        ws( 57) = 0.4329729643420432D-03
        ws( 58) = 0.4632692700978265D-03
        ws( 59) = 0.4966971020698925D-03
        ws( 60) = 0.5337063473870601D-03
        ws( 61) = 0.5748296753407290D-03
        ws( 62) = 0.6207014024015670D-03
        ws( 63) = 0.6720815478676373D-03
        ws( 64) = 0.7298867928269855D-03
        ws( 65) = 0.7952306983553553D-03
        ws( 66) = 0.8694765140326285D-03
        ws( 67) = 0.9543073067033381D-03
        ws( 68) = 0.1051820307465534D-02
        ws( 69) = 0.1164655603513141D-02
        ws( 70) = 0.1296174594121736D-02
        ws( 71) = 0.1450711812832459D-02
        ws( 72) = 0.1633937396117719D-02
        ws( 73) = 0.1853390828455995D-02
        ws( 74) = 0.2119285662241534D-02
        ws( 75) = 0.2445755542625479D-02
        ws( 76) = 0.2852827776738431D-02
        ws( 77) = 0.3369593756492376D-02
        ws( 78) = 0.4039231869170334D-02
        ws( 79) = 0.4926170277469688D-02
        ws( 80) = 0.6123366880181201D-02
        ws( 81) = 0.7751461092354910D-02
        ws( 82) = 0.9929474044686446D-02
        ws( 83) = 0.1268384348610254D-01
        ws( 84) = 0.1579736853431012D-01
        ws( 85) = 0.1875224396507281D-01
        ws( 86) = 0.2099231451074362D-01
        ws( 87) = 0.2231240450613589D-01
        ws( 88) = 0.2288217030034561D-01
        ws( 89) = 0.2297967225684264D-01
        ws( 90) = 0.2281597481235450D-01
        ws( 91) = 0.2076290713057198D-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 =  32
        err = 0.7711540962729675D-10
        xs(  1) = 0.2566498752403031D-03
        xs(  2) = 0.1347064278123910D-02
        xs(  3) = 0.3285156946622041D-02
        xs(  4) = 0.6026841299792369D-02
        xs(  5) = 0.9509903514690794D-02
        xs(  6) = 0.1366425266076357D-01
        xs(  7) = 0.1842076146137249D-01
        xs(  8) = 0.2371606915266753D-01
        xs(  9) = 0.2949410994864256D-01
        xs( 10) = 0.3570592287848537D-01
        xs( 11) = 0.4230884095768699D-01
        xs( 12) = 0.4926560298779167D-01
        xs( 13) = 0.5654358397412351D-01
        xs( 14) = 0.6411417609902127D-01
        xs( 15) = 0.7195229444150507D-01
        xs( 16) = 0.8003597269726127D-01
        xs( 17) = 0.8834602187608896D-01
        xs( 18) = 0.9686573686795914D-01
        xs( 19) = 0.1055806361594948D+00
        xs( 20) = 0.1144782385730532D+00
        xs( 21) = 0.1235479248875695D+00
        xs( 22) = 0.1327805766800395D+00
        xs( 23) = 0.1421684201938238D+00
        xs( 24) = 0.1517082341179280D+00
        xs( 25) = 0.1613850162008678D+00
        xs( 26) = 0.1712181410351453D+00
        xs( 27) = 0.1811642429494789D+00
        xs( 28) = 0.1913072338782985D+00
        xs( 29) = 0.2013717270738526D+00
        xs( 30) = 0.2122348718217203D+00
        xs( 31) = 0.2214981031977907D+00
        xs( 32) = 0.2449769842081889D+00
        ws(  1) = 0.6580843805307533D-03
        ws(  2) = 0.1519665938612331D-02
        ws(  3) = 0.2349058977722780D-02
        ws(  4) = 0.3123752879014559D-02
        ws(  5) = 0.3830536690900592D-02
        ws(  6) = 0.4466563480604820D-02
        ws(  7) = 0.5035872627286561D-02
        ws(  8) = 0.5545404215155663D-02
        ws(  9) = 0.6002531922207897D-02
        ws( 10) = 0.6413997969331332D-02
        ws( 11) = 0.6785640851673446D-02
        ws( 12) = 0.7122455947626883D-02
        ws( 13) = 0.7428746205744351D-02
        ws( 14) = 0.7708263898613543D-02
        ws( 15) = 0.7964317368518953D-02
        ws( 16) = 0.8199845929031354D-02
        ws( 17) = 0.8417472529715158D-02
        ws( 18) = 0.8619545650044519D-02
        ws( 19) = 0.8808187146735091D-02
        ws( 20) = 0.8985228950432623D-02
        ws( 21) = 0.9152555199211916D-02
        ws( 22) = 0.9311961809486433D-02
        ws( 23) = 0.9462427933333626D-02
        ws( 24) = 0.9611896827819211D-02
        ws( 25) = 0.9758241399436134D-02
        ws( 26) = 0.9888164634731342D-02
        ws( 27) = 0.9977545072023355D-02
        ws( 28) = 0.1042633244440026D-01
        ws( 29) = 0.9439389229273409D-02
        ws( 30) = 0.1253820368819065D-01
        ws( 31) = 0.9626637487895863D-02
        ws( 32) = 0.3901310470680937D-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 =  32
        err = 0.7059263683183483D-10
        xs(  1) = 0.2582425507886590D-03
        xs(  2) = 0.1356551170959443D-02
        xs(  3) = 0.3312184634747412D-02
        xs(  4) = 0.6083707013139771D-02
        xs(  5) = 0.9609429629502765D-02
        xs(  6) = 0.1381793527906927D-01
        xs(  7) = 0.1863788161757124D-01
        xs(  8) = 0.2400352807930353D-01
        xs(  9) = 0.2985661338531560D-01
        xs( 10) = 0.3614628708659952D-01
        xs( 11) = 0.4282832036954466D-01
        xs( 12) = 0.4986420072986672D-01
        xs( 13) = 0.5722032944344859D-01
        xs( 14) = 0.6486736205582273D-01
        xs( 15) = 0.7277967015224357D-01
        xs( 16) = 0.8093489252151766D-01
        xs( 17) = 0.8931355101504737D-01
        xs( 18) = 0.9789871356184643D-01
        xs( 19) = 0.1066757033242623D+00
        xs( 20) = 0.1156318235548225D+00
        xs( 21) = 0.1247560899883907D+00
        xs( 22) = 0.1340394772204500D+00
        xs( 23) = 0.1434723226576803D+00
        xs( 24) = 0.1530517688822803D+00
        xs( 25) = 0.1627662641495870D+00
        xs( 26) = 0.1726132056337941D+00
        xs( 27) = 0.1825718275197556D+00
        xs( 28) = 0.1927116032923226D+00
        xs( 29) = 0.2029847271953182D+00
        xs( 30) = 0.2128824701174846D+00
        xs( 31) = 0.2342755759186478D+00
        xs( 32) = 0.2520776091334157D+00
        ws(  1) = 0.6623093938345156D-03
        ws(  2) = 0.1531809795947663D-02
        ws(  3) = 0.2372467045679939D-02
        ws(  4) = 0.3160099633987741D-02
        ws(  5) = 0.3879271430372161D-02
        ws(  6) = 0.4525760463837626D-02
        ws(  7) = 0.5103148726198022D-02
        ws(  8) = 0.5618438018724615D-02
        ws(  9) = 0.6079271996007476D-02
        ws( 10) = 0.6492719464188625D-02
        ws( 11) = 0.6864941778596753D-02
        ws( 12) = 0.7201230076525208D-02
        ws( 13) = 0.7506145498023068D-02
        ws( 14) = 0.7783655742968709D-02
        ws( 15) = 0.8037239964358992D-02
        ws( 16) = 0.8269963932215345D-02
        ws( 17) = 0.8484535958654655D-02
        ws( 18) = 0.8683349038187309D-02
        ws( 19) = 0.8868504861983565D-02
        ws( 20) = 0.9041975733917440D-02
        ws( 21) = 0.9204849412585292D-02
        ws( 22) = 0.9360512791036736D-02
        ws( 23) = 0.9505984421411876D-02
        ws( 24) = 0.9645840789554442D-02
        ws( 25) = 0.9783466861436803D-02
        ws( 26) = 0.9941558043901694D-02
        ws( 27) = 0.9957946270767631D-02
        ws( 28) = 0.1009124906246105D-01
        ws( 29) = 0.1036568977434298D-01
        ws( 30) = 0.1291198925562970D-01
        ws( 31) = 0.2508641614894817D-01
        ws( 32) = 0.2130879490083090D-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 =  32
        err = 0.4140967809528712D-10
        xs(  1) = 0.2275003985451018D-03
        xs(  2) = 0.1202013937507102D-02
        xs(  3) = 0.2961523155439908D-02
        xs(  4) = 0.5497416646697135D-02
        xs(  5) = 0.8776363164781652D-02
        xs(  6) = 0.1274534286586787D-01
        xs(  7) = 0.1734241290475031D-01
        xs(  8) = 0.2250539340729362D-01
        xs(  9) = 0.2817644017858343D-01
        xs( 10) = 0.3430363889615642D-01
        xs( 11) = 0.4084110156740622D-01
        xs( 12) = 0.4774850033303751D-01
        xs( 13) = 0.5499047459676675D-01
        xs( 14) = 0.6253606813164100D-01
        xs( 15) = 0.7035823220215395D-01
        xs( 16) = 0.7843339122068314D-01
        xs( 17) = 0.8674106048442949D-01
        xs( 18) = 0.9526350923370525D-01
        xs( 19) = 0.1039854651357175D+00
        xs( 20) = 0.1128938417632588D+00
        xs( 21) = 0.1219776135985903D+00
        xs( 22) = 0.1312273351369885D+00
        xs( 23) = 0.1406356227130020D+00
        xs( 24) = 0.1501962723422766D+00
        xs( 25) = 0.1599057310875881D+00
        xs( 26) = 0.1697579002310350D+00
        xs( 27) = 0.1797496062070463D+00
        xs( 28) = 0.1899042834178878D+00
        xs( 29) = 0.2002371327714425D+00
        xs( 30) = 0.2105741476837937D+00
        xs( 31) = 0.2209376367363924D+00
        xs( 32) = 0.2436405171559835D+00
        ws(  1) = 0.5843013890614521D-03
        ws(  2) = 0.1366561929927265D-02
        ws(  3) = 0.2151167290418716D-02
        ws(  4) = 0.2914954990046724D-02
        ws(  5) = 0.3633901462760637D-02
        ws(  6) = 0.4293586363714632D-02
        ws(  7) = 0.4890118043241826D-02
        ws(  8) = 0.5426179463468834D-02
        ws(  9) = 0.5907262240638441D-02
        ws( 10) = 0.6339495904939882D-02
        ws( 11) = 0.6728718319667208D-02
        ws( 12) = 0.7080195216754415D-02
        ws( 13) = 0.7398602201506784D-02
        ws( 14) = 0.7688083959286912D-02
        ws( 15) = 0.7952321260037845D-02
        ws( 16) = 0.8194588275106857D-02
        ws( 17) = 0.8417800312950662D-02
        ws( 18) = 0.8624554102451124D-02
        ws( 19) = 0.8817187092085330D-02
        ws( 20) = 0.8997729906217514D-02
        ws( 21) = 0.9168158741406215D-02
        ws( 22) = 0.9330353863770896D-02
        ws( 23) = 0.9485070721132929D-02
        ws( 24) = 0.9634088079635929D-02
        ws( 25) = 0.9784869953725076D-02
        ws( 26) = 0.9930430801021246D-02
        ws( 27) = 0.1005292689934947D-01
        ws( 28) = 0.1016296828552214D-01
        ws( 29) = 0.1043060099168516D-01
        ws( 30) = 0.1111244769111779D-01
        ws( 31) = 0.1087045081452147D-01
        ws( 32) = 0.3810283784381788D-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 =  31
        err = 0.9905472051360903D-10
        xs(  1) = 0.2237574441367017D-03
        xs(  2) = 0.1185342000384472D-02
        xs(  3) = 0.2932370164115871D-02
        xs(  4) = 0.5468901555727844D-02
        xs(  5) = 0.8770952775495108D-02
        xs(  6) = 0.1278913212024557D-01
        xs(  7) = 0.1746049922348492D-01
        xs(  8) = 0.2271941627840007D-01
        xs(  9) = 0.2850377001919631D-01
        xs( 10) = 0.3475745860037967D-01
        xs( 11) = 0.4143088352054410D-01
        xs( 12) = 0.4848062465653340D-01
        xs( 13) = 0.5586886630874973D-01
        xs( 14) = 0.6356279218190065D-01
        xs( 15) = 0.7153401631811172D-01
        xs( 16) = 0.7975806556012760D-01
        xs( 17) = 0.8821391581155051D-01
        xs( 18) = 0.9688358275443641D-01
        xs( 19) = 0.1057517628691051D+00
        xs( 20) = 0.1148055463234679D+00
        xs( 21) = 0.1240341486273797D+00
        xs( 22) = 0.1334284924231913D+00
        xs( 23) = 0.1429828889878585D+00
        xs( 24) = 0.1526880437176582D+00
        xs( 25) = 0.1625442048048421D+00
        xs( 26) = 0.1725612372304299D+00
        xs( 27) = 0.1827019673050122D+00
        xs( 28) = 0.1929650090048861D+00
        xs( 29) = 0.2035090664213238D+00
        xs( 30) = 0.2142079783606783D+00
        xs( 31) = 0.2249152608092234D+00
        ws(  1) = 0.5750596997080795D-03
        ws(  2) = 0.1351732369034886D-02
        ws(  3) = 0.2143256204072808D-02
        ws(  4) = 0.2925738635941038D-02
        ws(  5) = 0.3669906209523961D-02
        ws(  6) = 0.4355774837795882D-02
        ws(  7) = 0.4975919771535795D-02
        ws(  8) = 0.5531525253142543D-02
        ws(  9) = 0.6027826469652287D-02
        ws( 10) = 0.6471290921518099D-02
        ws( 11) = 0.6868332237696907D-02
        ws( 12) = 0.7224857625341173D-02
        ws( 13) = 0.7546165804730815D-02
        ws( 14) = 0.7836963578322025D-02
        ws( 15) = 0.8101413562603292D-02
        ws( 16) = 0.8343187780671063D-02
        ws( 17) = 0.8565521112340555D-02
        ws( 18) = 0.8771267380497744D-02
        ws( 19) = 0.8962950689278340D-02
        ws( 20) = 0.9142770095041195D-02
        ws( 21) = 0.9313172909683747D-02
        ws( 22) = 0.9474025759034757D-02
        ws( 23) = 0.9632778848588174D-02
        ws( 24) = 0.9782796794938931D-02
        ws( 25) = 0.9927955392584583D-02
        ws( 26) = 0.1005778060178371D-01
        ws( 27) = 0.1027351057108254D-01
        ws( 28) = 0.1063580388515779D-01
        ws( 29) = 0.1011942938629763D-01
        ws( 30) = 0.6498406514490149D-02
        ws( 31) = 0.2658668629562229D-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 =  32
        err = 0.3267442188822636D-10
        xs(  1) = 0.1857776495725455D-03
        xs(  2) = 0.9898707539905771D-03
        xs(  3) = 0.2473216237496126D-02
        xs(  4) = 0.4672331756066433D-02
        xs(  5) = 0.7600881437271354D-02
        xs(  6) = 0.1124132499187050D-01
        xs(  7) = 0.1555143386895936D-01
        xs(  8) = 0.2047604200566074D-01
        xs(  9) = 0.2595664026498018D-01
        xs( 10) = 0.3193691952842115D-01
        xs( 11) = 0.3836523640137675D-01
        xs( 12) = 0.4519537876322220D-01
        xs( 13) = 0.5238655019047826D-01
        xs( 14) = 0.5990303856512742D-01
        xs( 15) = 0.6771377333387293D-01
        xs( 16) = 0.7579185720469564D-01
        xs( 17) = 0.8411411037310203D-01
        xs( 18) = 0.9266064642915599D-01
        xs( 19) = 0.1014144892708124D+00
        xs( 20) = 0.1103612454272470D+00
        xs( 21) = 0.1194888022988237D+00
        xs( 22) = 0.1287870989063446D+00
        xs( 23) = 0.1382481924281209D+00
        xs( 24) = 0.1478651230022650D+00
        xs( 25) = 0.1576331968748567D+00
        xs( 26) = 0.1675531954379407D+00
        xs( 27) = 0.1776171196128692D+00
        xs( 28) = 0.1878217004269949D+00
        xs( 29) = 0.1981818208355773D+00
        xs( 30) = 0.2087556883321072D+00
        xs( 31) = 0.2194024004224787D+00
        xs( 32) = 0.2303494342148797D+00
        ws(  1) = 0.4781069213750291D-03
        ws(  2) = 0.1136737581398402D-02
        ws(  3) = 0.1836462242687573D-02
        ws(  4) = 0.2564182141110693D-02
        ws(  5) = 0.3289856097999282D-02
        ws(  6) = 0.3983778817890782D-02
        ws(  7) = 0.4627081709356749D-02
        ws(  8) = 0.5212293992719494D-02
        ws(  9) = 0.5739480115823737D-02
        ws( 10) = 0.6212460556650044D-02
        ws( 11) = 0.6636472447309022D-02
        ws( 12) = 0.7017018826894979D-02
        ws( 13) = 0.7359379565652670D-02
        ws( 14) = 0.7668426644470612D-02
        ws( 15) = 0.7948567649909838D-02
        ws( 16) = 0.8203743898802801D-02
        ws( 17) = 0.8437454362087029D-02
        ws( 18) = 0.8652794164157067D-02
        ws( 19) = 0.8852498240519450D-02
        ws( 20) = 0.9038986227356343D-02
        ws( 21) = 0.9214520656010684D-02
        ws( 22) = 0.9380597929658211D-02
        ws( 23) = 0.9540377427953627D-02
        ws( 24) = 0.9693717741387399D-02
        ws( 25) = 0.9842665203008640D-02
        ws( 26) = 0.9986743219842839D-02
        ws( 27) = 0.1014169428892163D-01
        ws( 28) = 0.1034251978363910D-01
        ws( 29) = 0.1045743491975077D-01
        ws( 30) = 0.1006330037155816D-01
        ws( 31) = 0.9393007382801782D-02
        ws( 32) = 0.2208184796898000D-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 =  32
        err = 0.7661637717423498D-10
        xs(  1) = 0.1364218365059588D-03
        xs(  2) = 0.7321196459774840D-03
        xs(  3) = 0.1854483195888046D-02
        xs(  4) = 0.3574625831617780D-02
        xs(  5) = 0.5960292505277307D-02
        xs(  6) = 0.9050522890241292D-02
        xs(  7) = 0.1284579454645475D-01
        xs(  8) = 0.1731515911093783D-01
        xs(  9) = 0.2240953584641292D-01
        xs( 10) = 0.2807262904008879D-01
        xs( 11) = 0.3424760385993011D-01
        xs( 12) = 0.4088063225502608D-01
        xs( 13) = 0.4792260127354154D-01
        xs( 14) = 0.5532979405847995D-01
        xs( 15) = 0.6306398123910469D-01
        xs( 16) = 0.7109217033528160D-01
        xs( 17) = 0.7938617247441238D-01
        xs( 18) = 0.8792209539974470D-01
        xs( 19) = 0.9667983500891898D-01
        xs( 20) = 0.1056426047738295D+00
        xs( 21) = 0.1147965513954834D+00
        xs( 22) = 0.1241303560218723D+00
        xs( 23) = 0.1336351101123003D+00
        xs( 24) = 0.1433044117240818D+00
        xs( 25) = 0.1531324291789844D+00
        xs( 26) = 0.1631152888879855D+00
        xs( 27) = 0.1732709428482135D+00
        xs( 28) = 0.1835677602484238D+00
        xs( 29) = 0.1939593188888398D+00
        xs( 30) = 0.2047250333597243D+00
        xs( 31) = 0.2159088346544826D+00
        xs( 32) = 0.2265495202592410D+00
        ws(  1) = 0.3516541786406447D-03
        ws(  2) = 0.8483151387901361D-03
        ws(  3) = 0.1408709893321258D-02
        ws(  4) = 0.2043337354028070D-02
        ws(  5) = 0.2734668382045611D-02
        ws(  6) = 0.3445718852024815D-02
        ws(  7) = 0.4139423663621041D-02
        ws(  8) = 0.4790941188741379D-02
        ws(  9) = 0.5388322092435501D-02
        ws( 10) = 0.5928335939831060D-02
        ws( 11) = 0.6412615731135594D-02
        ws( 12) = 0.6845245180942624D-02
        ws( 13) = 0.7231405742455003D-02
        ws( 14) = 0.7576612810227932D-02
        ws( 15) = 0.7886270281611221D-02
        ws( 16) = 0.8165418385440921D-02
        ws( 17) = 0.8418612448276056D-02
        ws( 18) = 0.8649890441114704D-02
        ws( 19) = 0.8862798443283875D-02
        ws( 20) = 0.9060438527227018D-02
        ws( 21) = 0.9245544425109289D-02
        ws( 22) = 0.9420769321289100D-02
        ws( 23) = 0.9587084076339665D-02
        ws( 24) = 0.9750975384553429D-02
        ws( 25) = 0.9907479746951621D-02
        ws( 26) = 0.1005692245440101D-01
        ws( 27) = 0.1021945705215896D-01
        ws( 28) = 0.1042101312324425D-01
        ws( 29) = 0.1070382027873506D-01
        ws( 30) = 0.1024845424063699D-01
        ws( 31) = 0.8554345542704280D-02
        ws( 32) = 0.2377528071745698D-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 =  32
        err = 0.9724139031644791D-10
        xs(  1) = 0.1066632199106952D-03
        xs(  2) = 0.5743336633575795D-03
        xs(  3) = 0.1465714087780298D-02
        xs(  4) = 0.2863041567173384D-02
        xs(  5) = 0.4868472992395838D-02
        xs(  6) = 0.7573683114453907D-02
        xs(  7) = 0.1102537709542802D-01
        xs(  8) = 0.1521375643014705D-01
        xs(  9) = 0.2008991717175417D-01
        xs( 10) = 0.2558931325785709D-01
        xs( 11) = 0.3164544814875567D-01
        xs( 12) = 0.3819543248116776D-01
        xs( 13) = 0.4518221000005136D-01
        xs( 14) = 0.5255546308639471D-01
        xs( 15) = 0.6027173555094991D-01
        xs( 16) = 0.6829404668242146D-01
        xs( 17) = 0.7659123912433546D-01
        xs( 18) = 0.8513724349163285D-01
        xs( 19) = 0.9391037050806475D-01
        xs( 20) = 0.1028926848711287D+00
        xs( 21) = 0.1120694847576267D+00
        xs( 22) = 0.1214289219184363D+00
        xs( 23) = 0.1309613925727157D+00
        xs( 24) = 0.1406608790991576D+00
        xs( 25) = 0.1505199990753960D+00
        xs( 26) = 0.1605384338178643D+00
        xs( 27) = 0.1707215336628242D+00
        xs( 28) = 0.1810610841999586D+00
        xs( 29) = 0.1915462716467924D+00
        xs( 30) = 0.2022065488938391D+00
        xs( 31) = 0.2133335007559558D+00
        xs( 32) = 0.2243598262886205D+00
        ws(  1) = 0.2751392398741629D-03
        ws(  2) = 0.6684221312640687D-03
        ws(  3) = 0.1128249993018584D-02
        ws(  4) = 0.1683965888639333D-02
        ws(  5) = 0.2342836521432023D-02
        ws(  6) = 0.3075580607314944D-02
        ws(  7) = 0.3825805240519531D-02
        ws(  8) = 0.4542372503123254D-02
        ws(  9) = 0.5198975969822310D-02
        ws( 10) = 0.5788653606649557D-02
        ws( 11) = 0.6313101235584500D-02
        ws( 12) = 0.6777343809433953D-02
        ws( 13) = 0.7187823534005912D-02
        ws( 14) = 0.7551446971317120D-02
        ws( 15) = 0.7874945808762775D-02
        ws( 16) = 0.8164496071582499D-02
        ws( 17) = 0.8425555848593695D-02
        ws( 18) = 0.8662848475281409D-02
        ws( 19) = 0.8880424802481079D-02
        ws( 20) = 0.9081764301472634D-02
        ws( 21) = 0.9269841695872775D-02
        ws( 22) = 0.9447517217323429D-02
        ws( 23) = 0.9616419268428109D-02
        ws( 24) = 0.9780174727586235D-02
        ws( 25) = 0.9942002024199594D-02
        ws( 26) = 0.1009769553531596D-01
        ws( 27) = 0.1022944477519134D-01
        ws( 28) = 0.1046582437305792D-01
        ws( 29) = 0.1085565795988223D-01
        ws( 30) = 0.1020504559933995D-01
        ws( 31) = 0.8447388498087186D-02
        ws( 32) = 0.2328729825478649D-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 =  34
        err = 0.7890616905395836D-10
        xs(  1) = 0.5683789602776144D-04
        xs(  2) = 0.3043191032846655D-03
        xs(  3) = 0.7699963427158577D-03
        xs(  4) = 0.1491639274846216D-02
        xs(  5) = 0.2529020404071746D-02
        xs(  6) = 0.3967685055334191D-02
        xs(  7) = 0.5918199233607145D-02
        xs(  8) = 0.8503388548640961D-02
        xs(  9) = 0.1182786769511494D-01
        xs( 10) = 0.1594052804590660D-01
        xs( 11) = 0.2081977715687270D-01
        xs( 12) = 0.2639457047234969D-01
        xs( 13) = 0.3257708415744839D-01
        xs( 14) = 0.3928338717366781D-01
        xs( 15) = 0.4644084000859638D-01
        xs( 16) = 0.5398898598833196D-01
        xs( 17) = 0.6187827987568714D-01
        xs( 18) = 0.7006834459982254D-01
        xs( 19) = 0.7852631298412162D-01
        xs( 20) = 0.8722541833701711D-01
        xs( 21) = 0.9614385709550997D-01
        xs( 22) = 0.1052638996326009D+00
        xs( 23) = 0.1145712162013019D+00
        xs( 24) = 0.1240543250446715D+00
        xs( 25) = 0.1337045246286748D+00
        xs( 26) = 0.1435147401498075D+00
        xs( 27) = 0.1534812578012047D+00
        xs( 28) = 0.1636009842463473D+00
        xs( 29) = 0.1738797753378184D+00
        xs( 30) = 0.1843112790098433D+00
        xs( 31) = 0.1948654240158246D+00
        xs( 32) = 0.2057027629016482D+00
        xs( 33) = 0.2168600647670906D+00
        xs( 34) = 0.2277058318605222D+00
        ws(  1) = 0.1464107024543482D-03
        ws(  2) = 0.3518916108993703D-03
        ws(  3) = 0.5856819778997954D-03
        ws(  4) = 0.8674944719789489D-03
        ws(  5) = 0.1221518575220472D-02
        ws(  6) = 0.1674430509800432D-02
        ws(  7) = 0.2247596450231416D-02
        ws(  8) = 0.2940933569076544D-02
        ws(  9) = 0.3716466024086116D-02
        ws( 10) = 0.4504821216764303D-02
        ws( 11) = 0.5241226878364947D-02
        ws( 12) = 0.5893385355170771D-02
        ws( 13) = 0.6457549892011410D-02
        ws( 14) = 0.6942944361021907D-02
        ws( 15) = 0.7361909739546122D-02
        ws( 16) = 0.7726154809333014D-02
        ws( 17) = 0.8045731399771459D-02
        ws( 18) = 0.8328943686967559D-02
        ws( 19) = 0.8582550831510780D-02
        ws( 20) = 0.8812040698042542D-02
        ws( 21) = 0.9021893848543901D-02
        ws( 22) = 0.9215808981422782D-02
        ws( 23) = 0.9396925232931697D-02
        ws( 24) = 0.9567863280810987D-02
        ws( 25) = 0.9731038443053661D-02
        ws( 26) = 0.9889791453631643D-02
        ws( 27) = 0.1004341932857717D-01
        ws( 28) = 0.1019034236933150D-01
        ws( 29) = 0.1036017395761109D-01
        ws( 30) = 0.1055091022432929D-01
        ws( 31) = 0.1069392937635393D-01
        ws( 32) = 0.1055923799610316D-01
        ws( 33) = 0.1018697875512671D-01
        ws( 34) = 0.1892100716038112D-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 =  39
        err = 0.6657547750141401D-10
        xs(  1) = 0.2402806433685661D-04
        xs(  2) = 0.1275730889320764D-03
        xs(  3) = 0.3179219729169666D-03
        xs(  4) = 0.6025042187043947D-03
        xs(  5) = 0.9929778158277479D-03
        xs(  6) = 0.1506435974946299D-02
        xs(  7) = 0.2167130177745333D-02
        xs(  8) = 0.3008897827201008D-02
        xs(  9) = 0.4078450251781291D-02
        xs( 10) = 0.5439505122322887D-02
        xs( 11) = 0.7177155112704464D-02
        xs( 12) = 0.9400372905338943D-02
        xs( 13) = 0.1223773568976895D-01
        xs( 14) = 0.1581860741971216D-01
        xs( 15) = 0.2023585686890140D-01
        xs( 16) = 0.2550578648920061D-01
        xs( 17) = 0.3156006653358342D-01
        xs( 18) = 0.3828055424703345D-01
        xs( 19) = 0.4554412055620834D-01
        xs( 20) = 0.5324766756021268D-01
        xs( 21) = 0.6131304965440872D-01
        xs( 22) = 0.6968301483650818D-01
        xs( 23) = 0.7831558289192075D-01
        xs( 24) = 0.8717946099763248D-01
        xs( 25) = 0.9625084286538170D-01
        xs( 26) = 0.1055112979094719D+00
        xs( 27) = 0.1149464063981491D+00
        xs( 28) = 0.1245448659102271D+00
        xs( 29) = 0.1342979863719354D+00
        xs( 30) = 0.1441992320657804D+00
        xs( 31) = 0.1542443208597610D+00
        xs( 32) = 0.1644306659962074D+00
        xs( 33) = 0.1747581019047470D+00
        xs( 34) = 0.1852303203676965D+00
        xs( 35) = 0.1958491358847168D+00
        xs( 36) = 0.2066245484836611D+00
        xs( 37) = 0.2176077344819647D+00
        xs( 38) = 0.2287373792172609D+00
        xs( 39) = 0.2401410910073510D+00
        ws(  1) = 0.6177357638338019D-04
        ws(  2) = 0.1460119587696310D-03
        ws(  3) = 0.2359086046689763D-03
        ws(  4) = 0.3351793858605430D-03
        ws(  5) = 0.4485883792450934D-03
        ws(  6) = 0.5823298143380505D-03
        ws(  7) = 0.7446434693495553D-03
        ws(  8) = 0.9466070736248387D-03
        ws(  9) = 0.1203040181910953D-02
        ws( 10) = 0.1533198629230303D-02
        ws( 11) = 0.1960314233160862D-02
        ws( 12) = 0.2507847334485930D-02
        ws( 13) = 0.3189092958070651D-02
        ws( 14) = 0.3988903135778144D-02
        ws( 15) = 0.4848488662534752D-02
        ws( 16) = 0.5679291937183427D-02
        ws( 17) = 0.6408748930353227D-02
        ws( 18) = 0.7011300218675447D-02
        ws( 19) = 0.7498599632801609D-02
        ws( 20) = 0.7895554805216073D-02
        ws( 21) = 0.8225766032109528D-02
        ws( 22) = 0.8507244269908511D-02
        ws( 23) = 0.8752728850049241D-02
        ws( 24) = 0.8971093986639086D-02
        ws( 25) = 0.9168619902290353D-02
        ws( 26) = 0.9349899091599834D-02
        ws( 27) = 0.9518446914710484D-02
        ws( 28) = 0.9677049878142819D-02
        ws( 29) = 0.9828066992219034D-02
        ws( 30) = 0.9973648530858945D-02
        ws( 31) = 0.1011612890542880D-01
        ws( 32) = 0.1025687188251234D-01
        ws( 33) = 0.1039939321820396D-01
        ws( 34) = 0.1054614762111642D-01
        ws( 35) = 0.1069393770560791D-01
        ws( 36) = 0.1084857593702718D-01
        ws( 37) = 0.1098142388259895D-01
        ws( 38) = 0.1139295315028063D-01
        ws( 39) = 0.1592483844215522D-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 =  41
        err = 0.8725963201717125D-10
        xs(  1) = 0.1373789086388434D-04
        xs(  2) = 0.7270202948301979D-04
        xs(  3) = 0.1801048210590111D-03
        xs(  4) = 0.3383356219501230D-03
        xs(  5) = 0.5510428617366388D-03
        xs(  6) = 0.8234154015191256D-03
        xs(  7) = 0.1162557891060932D-02
        xs(  8) = 0.1578011265782744D-02
        xs(  9) = 0.2082475884907477D-02
        xs( 10) = 0.2692821588731121D-02
        xs( 11) = 0.3431506688034073D-02
        xs( 12) = 0.4328577808241909D-02
        xs( 13) = 0.5424480902094571D-02
        xs( 14) = 0.6773957639978590D-02
        xs( 15) = 0.8451251318096585D-02
        xs( 16) = 0.1055647277112280D-01
        xs( 17) = 0.1322170028547015D-01
        xs( 18) = 0.1661204170444127D-01
        xs( 19) = 0.2091043727796844D-01
        xs( 20) = 0.2627034270307837D-01
        xs( 21) = 0.3274003609143086D-01
        xs( 22) = 0.4021681645773978D-01
        xs( 23) = 0.4849167103575948D-01
        xs( 24) = 0.5734297088627325D-01
        xs( 25) = 0.6659629414130809D-01
        xs( 26) = 0.7613441087126448D-01
        xs( 27) = 0.8588444577259972D-01
        xs( 28) = 0.9580261342674934D-01
        xs( 29) = 0.1058629684152923D+00
        xs( 30) = 0.1160503242261535D+00
        xs( 31) = 0.1263560698534131D+00
        xs( 32) = 0.1367758276541721D+00
        xs( 33) = 0.1473081211514068D+00
        xs( 34) = 0.1579538854656641D+00
        xs( 35) = 0.1687156150379542D+00
        xs( 36) = 0.1795990008980546D+00
        xs( 37) = 0.1906120747789244D+00
        xs( 38) = 0.2017648446745548D+00
        xs( 39) = 0.2131015353544990D+00
        xs( 40) = 0.2246132346886166D+00
        xs( 41) = 0.2361195925747296D+00
        ws(  1) = 0.3529190799989819D-04
        ws(  2) = 0.8287703498033960D-04
        ws(  3) = 0.1323221161814230D-03
        ws(  4) = 0.1847431026385334D-03
        ws(  5) = 0.2415300258803150D-03
        ws(  6) = 0.3043906197339111D-03
        ws(  7) = 0.3754726594241778D-03
        ws(  8) = 0.4575342676735721D-03
        ws(  9) = 0.5541833656718478D-03
        ws( 10) = 0.6702183137391130D-03
        ws( 11) = 0.8121134864581108D-03
        ws( 12) = 0.9887054450885399D-03
        ws( 13) = 0.1212137543976952D-02
        ws( 14) = 0.1499081098250120D-02
        ws( 15) = 0.1872079843373567D-02
        ws( 16) = 0.2360332472952927D-02
        ws( 17) = 0.2997847832722133D-02
        ws( 18) = 0.3814098528492727D-02
        ws( 19) = 0.4809684947562657D-02
        ws( 20) = 0.5919155818878399D-02
        ws( 21) = 0.7002227837476075D-02
        ws( 22) = 0.7914674415564538D-02
        ws( 23) = 0.8597089807749630D-02
        ws( 24) = 0.9076360055521484D-02
        ws( 25) = 0.9411009788369991D-02
        ws( 26) = 0.9653343524921941D-02
        ws( 27) = 0.9839614869095667D-02
        ws( 28) = 0.9992511672824306D-02
        ws( 29) = 0.1012573398741492D-01
        ws( 30) = 0.1024757513225198D-01
        ws( 31) = 0.1036321880911278D-01
        ws( 32) = 0.1047604619424280D-01
        ws( 33) = 0.1058871237684802D-01
        ws( 34) = 0.1070332537423898D-01
        ws( 35) = 0.1082214947540495D-01
        ws( 36) = 0.1094822041375520D-01
        ws( 37) = 0.1107514767091289D-01
        ws( 38) = 0.1121217366113071D-01
        ws( 39) = 0.1145424921058207D-01
        ws( 40) = 0.1193300432931583D-01
        ws( 41) = 0.1439775614812710D-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 =  44
        err = 0.5462425311300642D-10
        xs(  1) = 0.8891138848449148D-05
        xs(  2) = 0.4697349653437081D-04
        xs(  3) = 0.1160109433613843D-03
        xs(  4) = 0.2169485692792585D-03
        xs(  5) = 0.3512009756415853D-03
        xs(  6) = 0.5207407451653826D-03
        xs(  7) = 0.7282028923133983D-03
        xs(  8) = 0.9770206177004759D-03
        xs(  9) = 0.1271602320084930D-02
        xs( 10) = 0.1617563958192498D-02
        xs( 11) = 0.2022037061212847D-02
        xs( 12) = 0.2494081333691186D-02
        xs( 13) = 0.3045243109836107D-02
        xs( 14) = 0.3690318689973939D-02
        xs( 15) = 0.4448407310632202D-02
        xs( 16) = 0.5344375227866179D-02
        xs( 17) = 0.6410903110329880D-02
        xs( 18) = 0.7691353582734516D-02
        xs( 19) = 0.9243762227927298D-02
        xs( 20) = 0.1114627319183412D-01
        xs( 21) = 0.1350414892433689D-01
        xs( 22) = 0.1645762769071950D-01
        xs( 23) = 0.2018725127911798D-01
        xs( 24) = 0.2490674746937133D-01
        xs( 25) = 0.3082346303594384D-01
        xs( 26) = 0.3805171119480899D-01
        xs( 27) = 0.4652267049903916D-01
        xs( 28) = 0.5599178832202580D-01
        xs( 29) = 0.6615382132065635D-01
        xs( 30) = 0.7675117329105405D-01
        xs( 31) = 0.8760920481604764D-01
        xs( 32) = 0.9862368337688771D-01
        xs( 33) = 0.1097374017045624D+00
        xs( 34) = 0.1209214674645722D+00
        xs( 35) = 0.1321633297544274D+00
        xs( 36) = 0.1434597749053875D+00
        xs( 37) = 0.1548130461787436D+00
        xs( 38) = 0.1662285927164436D+00
        xs( 39) = 0.1777143610868190D+00
        xs( 40) = 0.1892816256155661D+00
        xs( 41) = 0.2009407103044958D+00
        xs( 42) = 0.2126906643077976D+00
        xs( 43) = 0.2244780873003698D+00
        xs( 44) = 0.2360612087050599D+00
        ws(  1) = 0.2283190799105975D-04
        ws(  2) = 0.5343649506897290D-04
        ws(  3) = 0.8479387920775751D-04
        ws(  4) = 0.1173157918455333D-03
        ws(  5) = 0.1515160637705566D-03
        ws(  6) = 0.1880004042123431D-03
        ws(  7) = 0.2274931728683282D-03
        ws(  8) = 0.2708731857451687D-03
        ws(  9) = 0.3192211461409738D-03
        ws( 10) = 0.3738839376342006D-03
        ws( 11) = 0.4365630490376723D-03
        ws( 12) = 0.5094373601316840D-03
        ws( 13) = 0.5953349762441074D-03
        ws( 14) = 0.6979753925158810D-03
        ws( 15) = 0.8223126625565795D-03
        ws( 16) = 0.9750228924832529D-03
        ws( 17) = 0.1165194289466249D-02
        ws( 18) = 0.1405289185493345D-02
        ws( 19) = 0.1712434194016491D-02
        ws( 20) = 0.2109993992641785D-02
        ws( 21) = 0.2629020617221494D-02
        ws( 22) = 0.3308095492896406D-02
        ws( 23) = 0.4187371375780920D-02
        ws( 24) = 0.5287707583812076D-02
        ws( 25) = 0.6566607515990126D-02
        ws( 26) = 0.7878351626891744D-02
        ws( 27) = 0.9020498161012721D-02
        ws( 28) = 0.9864896319603340D-02
        ws( 29) = 0.1041575669474428D-01
        ws( 30) = 0.1075014633904562D-01
        ws( 31) = 0.1094896501281546D-01
        ws( 32) = 0.1107076996194631D-01
        ws( 33) = 0.1115204474973195D-01
        ws( 34) = 0.1121410380844981D-01
        ws( 35) = 0.1126915069506570D-01
        ws( 36) = 0.1132422676369730D-01
        ws( 37) = 0.1138353630881690D-01
        ws( 38) = 0.1144906587438504D-01
        ws( 39) = 0.1152182707639075D-01
        ws( 40) = 0.1160507379266534D-01
        ws( 41) = 0.1172649638540336D-01
        ws( 42) = 0.1198607172537538D-01
        ws( 43) = 0.1223233293044501D-01
        ws( 44) = 0.1165360979866379D-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 =  47
        err = 0.8475135023933660D-10
        xs(  1) = 0.6299500696249036D-05
        xs(  2) = 0.3325256811280464D-04
        xs(  3) = 0.8199470299733779D-04
        xs(  4) = 0.1529801936699952D-03
        xs(  5) = 0.2468785799731548D-03
        xs(  6) = 0.3646126181721019D-03
        xs(  7) = 0.5073976331902564D-03
        xs(  8) = 0.6767901830804561D-03
        xs(  9) = 0.8747484888917789D-03
        xs( 10) = 0.1103707804271030D-02
        xs( 11) = 0.1366675240858737D-02
        xs( 12) = 0.1667350308202102D-02
        xs( 13) = 0.2010279739803071D-02
        xs( 14) = 0.2401058354569299D-02
        xs( 15) = 0.2846592183589041D-02
        xs( 16) = 0.3355446510277475D-02
        xs( 17) = 0.3938310754286011D-02
        xs( 18) = 0.4608625657566724D-02
        xs( 19) = 0.5383438020056416D-02
        xs( 20) = 0.6284577183213486D-02
        xs( 21) = 0.7340289481632636D-02
        xs( 22) = 0.8587526544041085D-02
        xs( 23) = 0.1007516359443724D-01
        xs( 24) = 0.1186851762607054D-01
        xs( 25) = 0.1405559800761162D-01
        xs( 26) = 0.1675538625857198D-01
        xs( 27) = 0.2012757655724257D-01
        xs( 28) = 0.2438010543364340D-01
        xs( 29) = 0.2976222820519891D-01
        xs( 30) = 0.3651685386296181D-01
        xs( 31) = 0.4477253172876243D-01
        xs( 32) = 0.5443199136602323D-01
        xs( 33) = 0.6518557172617399D-01
        xs( 34) = 0.7665739165263080D-01
        xs( 35) = 0.8853807941410240D-01
        xs( 36) = 0.1006244939167417D+00
        xs( 37) = 0.1128010779723604D+00
        xs( 38) = 0.1250094444513853D+00
        xs( 39) = 0.1372248099604169D+00
        xs( 40) = 0.1494412584875939D+00
        xs( 41) = 0.1616633156034130D+00
        xs( 42) = 0.1739013113244169D+00
        xs( 43) = 0.1861693173021918D+00
        xs( 44) = 0.1984796625065982D+00
        xs( 45) = 0.2108339787528265D+00
        xs( 46) = 0.2232874627391455D+00
        xs( 47) = 0.2354746231160203D+00
        ws(  1) = 0.1617346955807082D-04
        ws(  2) = 0.3778721897243767D-04
        ws(  3) = 0.5977159651059129D-04
        ws(  4) = 0.8231042810181996D-04
        ws(  5) = 0.1056394886381301D-03
        ws(  6) = 0.1300303359875557D-03
        ws(  7) = 0.1557981206285991D-03
        ws(  8) = 0.1833121037813430D-03
        ws(  9) = 0.2130088177121061D-03
        ws( 10) = 0.2454090093933955D-03
        ws( 11) = 0.2811398957450516D-03
        ws( 12) = 0.3209647180565302D-03
        ws( 13) = 0.3658222823341029D-03
        ws( 14) = 0.4168802260955329D-03
        ws( 15) = 0.4756073369282586D-03
        ws( 16) = 0.5438725850887789D-03
        ws( 17) = 0.6240820001454125D-03
        ws( 18) = 0.7193696490017068D-03
        ws( 19) = 0.8338665163461082D-03
        ws( 20) = 0.9730820441789141D-03
        ws( 21) = 0.1144448405023920D-02
        ws( 22) = 0.1358097374809063D-02
        ws( 23) = 0.1627959649605070D-02
        ws( 24) = 0.1973278029916027D-02
        ws( 25) = 0.2420543981844980D-02
        ws( 26) = 0.3005497402103994D-02
        ws( 27) = 0.3773588344691027D-02
        ws( 28) = 0.4773724437169190D-02
        ws( 29) = 0.6032918585429564D-02
        ws( 30) = 0.7500039319011106D-02
        ws( 31) = 0.8994933089658612D-02
        ws( 32) = 0.1026943877141657D-01
        ws( 33) = 0.1117267365373360D-01
        ws( 34) = 0.1171888558627559D-01
        ws( 35) = 0.1200906398423783D-01
        ws( 36) = 0.1214504849503107D-01
        ws( 37) = 0.1219878112445773D-01
        ws( 38) = 0.1221406092470849D-01
        ws( 39) = 0.1221582264200398D-01
        ws( 40) = 0.1221797401383015D-01
        ws( 41) = 0.1222821356332290D-01
        ws( 42) = 0.1225158768712679D-01
        ws( 43) = 0.1229684697496057D-01
        ws( 44) = 0.1237293394745064D-01
        ws( 45) = 0.1238897231226884D-01
        ws( 46) = 0.1248739742378736D-01
        ws( 47) = 0.1281044638577811D-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 =  51
        err = 0.4845693500263276D-10
        xs(  1) = 0.4676996062068487D-05
        xs(  2) = 0.2467430661873717D-04
        xs(  3) = 0.6078092582557163D-04
        xs(  4) = 0.1132331976442318D-03
        xs(  5) = 0.1823744234155525D-03
        xs(  6) = 0.2686742347846956D-03
        xs(  7) = 0.3727458909447233D-03
        xs(  8) = 0.4953667317268691D-03
        xs(  9) = 0.6375025386608675D-03
        xs( 10) = 0.8003365854092429D-03
        xs( 11) = 0.9853045171231277D-03
        xs( 12) = 0.1194136641795906D-02
        xs( 13) = 0.1428909747181452D-02
        xs( 14) = 0.1692111221689849D-02
        xs( 15) = 0.1986719126011978D-02
        xs( 16) = 0.2316303033840700D-02
        xs( 17) = 0.2685152068757891D-02
        xs( 18) = 0.3098438800524754D-02
        xs( 19) = 0.3562430803889157D-02
        xs( 20) = 0.4084766131708335D-02
        xs( 21) = 0.4674815308129310D-02
        xs( 22) = 0.5344161602061787D-02
        xs( 23) = 0.6107244626577019D-02
        xs( 24) = 0.6982231710641105D-02
        xs( 25) = 0.7992209916808164D-02
        xs( 26) = 0.9166833132927286D-02
        xs( 27) = 0.1054461867716514D-01
        xs( 28) = 0.1217617154318753D-01
        xs( 29) = 0.1412872104829478D-01
        xs( 30) = 0.1649245499008613D-01
        xs( 31) = 0.1938909964858727D-01
        xs( 32) = 0.2298254922378407D-01
        xs( 33) = 0.2748858400425077D-01
        xs( 34) = 0.3317238965831533D-01
        xs( 35) = 0.4030764517880319D-01
        xs( 36) = 0.4907110305518062D-01
        xs( 37) = 0.5941174980868517D-01
        xs( 38) = 0.7102557541037950D-01
        xs( 39) = 0.8349148217515948D-01
        xs( 40) = 0.9643525868547240D-01
        xs( 41) = 0.1095999908227122D+00
        xs( 42) = 0.1228365859120216D+00
        xs( 43) = 0.1360699101649417D+00
        xs( 44) = 0.1492694117364176D+00
        xs( 45) = 0.1624299212062140D+00
        xs( 46) = 0.1755607208776651D+00
        xs( 47) = 0.1886812808948065D+00
        xs( 48) = 0.2018123942234456D+00
        xs( 49) = 0.2149944839722504D+00
        xs( 50) = 0.2281828925946430D+00
        xs( 51) = 0.2411862549058191D+00
        ws(  1) = 0.1200626216319896D-04
        ws(  2) = 0.2801989955434440D-04
        ws(  3) = 0.4423196186905590D-04
        ws(  4) = 0.6072953894552494D-04
        ws(  5) = 0.7763090015032627D-04
        ws(  6) = 0.9507059288108522D-04
        ws(  7) = 0.1132018718554846D-03
        ws(  8) = 0.1322002918098115D-03
        ws(  9) = 0.1522679567497440D-03
        ws( 10) = 0.1736387110607591D-03
        ws( 11) = 0.1965846799555830D-03
        ws( 12) = 0.2214246405641005D-03
        ws( 13) = 0.2485348117160694D-03
        ws( 14) = 0.2783628151310539D-03
        ws( 15) = 0.3114458087915983D-03
        ws( 16) = 0.3484341567878636D-03
        ws( 17) = 0.3901225199900429D-03
        ws( 18) = 0.4374910008519801D-03
        ws( 19) = 0.4917600554952885D-03
        ws( 20) = 0.5544644544991417D-03
        ws( 21) = 0.6275538664548186D-03
        ws( 22) = 0.7135310167714169D-03
        ws( 23) = 0.8156433661620426D-03
        ws( 24) = 0.9381516476436128D-03
        ws( 25) = 0.1086709454012045D-02
        ws( 26) = 0.1268903706895508D-02
        ws( 27) = 0.1495027127226331D-02
        ws( 28) = 0.1779179167801750D-02
        ws( 29) = 0.2140808344575292D-02
        ws( 30) = 0.2606765146843776D-02
        ws( 31) = 0.3213655066104040D-02
        ws( 32) = 0.4009184375512564D-02
        ws( 33) = 0.5047673002339512D-02
        ws( 34) = 0.6367366923553299D-02
        ws( 35) = 0.7935183121892316D-02
        ws( 36) = 0.9583874026817898D-02
        ws( 37) = 0.1104402801835128D-01
        ws( 38) = 0.1211036329811900D-01
        ws( 39) = 0.1275800883263315D-01
        ws( 40) = 0.1308704004009565D-01
        ws( 41) = 0.1321820400307475D-01
        ws( 42) = 0.1324296951912801D-01
        ws( 43) = 0.1321890782339935D-01
        ws( 44) = 0.1317940753088089D-01
        ws( 45) = 0.1314336252889552D-01
        ws( 46) = 0.1312027729104664D-01
        ws( 47) = 0.1312109879355163D-01
        ws( 48) = 0.1316260306426857D-01
        ws( 49) = 0.1330245295434056D-01
        ws( 50) = 0.1372972508596685D-01
        ws( 51) = 0.1338966705919296D-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 =  54
        err = 0.7102805348412455D-10
        xs(  1) = 0.3656444576986578D-05
        xs(  2) = 0.1928333342871401D-04
        xs(  3) = 0.4747050289519913D-04
        xs(  4) = 0.8835280290661932D-04
        xs(  5) = 0.1421236365087928D-03
        xs(  6) = 0.2090469382483375D-03
        xs(  7) = 0.2894664556117327D-03
        xs(  8) = 0.3838162645891425D-03
        xs(  9) = 0.4926328448307819D-03
        xs( 10) = 0.6165689386236520D-03
        xs( 11) = 0.7564095493697475D-03
        xs( 12) = 0.9130905986610317D-03
        xs( 13) = 0.1087720937202614D-02
        xs( 14) = 0.1281608603671577D-02
        xs( 15) = 0.1496292464963497D-02
        xs( 16) = 0.1733580672548465D-02
        xs( 17) = 0.1995597764843630D-02
        xs( 18) = 0.2284842771071680D-02
        xs( 19) = 0.2604261379917005D-02
        xs( 20) = 0.2957336198464714D-02
        xs( 21) = 0.3348200446914719D-02
        xs( 22) = 0.3781782254751450D-02
        xs( 23) = 0.4263989266525935D-02
        xs( 24) = 0.4801946833919994D-02
        xs( 25) = 0.5404308150412798D-02
        xs( 26) = 0.6081661964274847D-02
        xs( 27) = 0.6847074059145997D-02
        xs( 28) = 0.7716814151243907D-02
        xs( 29) = 0.8711342659379107D-02
        xs( 30) = 0.9856665757860249D-02
        xs( 31) = 0.1118621777642915D-01
        xs( 32) = 0.1274350526496853D-01
        xs( 33) = 0.1458585608802739D-01
        xs( 34) = 0.1678976431502841D-01
        xs( 35) = 0.1945847535815059D-01
        xs( 36) = 0.2273244493642977D-01
        xs( 37) = 0.2680241925956377D-01
        xs( 38) = 0.3192075078312698D-01
        xs( 39) = 0.3839457312217912D-01
        xs( 40) = 0.4652621648522770D-01
        xs( 41) = 0.5647600676951104D-01
        xs( 42) = 0.6811751030309782D-01
        xs( 43) = 0.8104871308697416D-01
        xs( 44) = 0.9478001434927384D-01
        xs( 45) = 0.1089111765536349D+00
        xs( 46) = 0.1231848550323529D+00
        xs( 47) = 0.1374607941192441D+00
        xs( 48) = 0.1516743114883427D+00
        xs( 49) = 0.1658045073071308D+00
        xs( 50) = 0.1798541206471310D+00
        xs( 51) = 0.1938385763933586D+00
        xs( 52) = 0.2077537439819078D+00
        xs( 53) = 0.2215764349367486D+00
        xs( 54) = 0.2350409613309808D+00
        ws(  1) = 0.9385634733772743D-05
        ws(  2) = 0.2188831703604209D-04
        ws(  3) = 0.3450793285358239D-04
        ws(  4) = 0.4728875058459443D-04
        ws(  5) = 0.6029675369305824D-04
        ws(  6) = 0.7360696618175404D-04
        ws(  7) = 0.8730421378518894D-04
        ws(  8) = 0.1014845873027817D-03
        ws(  9) = 0.1162570981549710D-03
        ws( 10) = 0.1317456140267449D-03
        ws( 11) = 0.1480912296581792D-03
        ws( 12) = 0.1654552424034647D-03
        ws( 13) = 0.1840229171703579D-03
        ws( 14) = 0.2040082569521943D-03
        ws( 15) = 0.2256600447031960D-03
        ws( 16) = 0.2492694989973866D-03
        ws( 17) = 0.2751799971010288D-03
        ws( 18) = 0.3037994716986781D-03
        ws( 19) = 0.3356163023721056D-03
        ws( 20) = 0.3712198225448606D-03
        ws( 21) = 0.4113269835209619D-03
        ws( 22) = 0.4568173125731234D-03
        ws( 23) = 0.5087791604494149D-03
        ws( 24) = 0.5685714623185637D-03
        ws( 25) = 0.6379070575330905D-03
        ws( 26) = 0.7189662587795409D-03
        ws( 27) = 0.8145533559390423D-03
        ws( 28) = 0.9283146827715514D-03
        ws( 29) = 0.1065045867156078D-02
        ws( 30) = 0.1231129450765927D-02
        ws( 31) = 0.1435164351548815D-02
        ws( 32) = 0.1688877760661239D-02
        ws( 33) = 0.2008448226677147D-02
        ws( 34) = 0.2416401916907217D-02
        ws( 35) = 0.2944204210386158D-02
        ws( 36) = 0.3635303182464576D-02
        ws( 37) = 0.4546729074001916D-02
        ws( 38) = 0.5742014314448797D-02
        ws( 39) = 0.7258443639559420D-02
        ws( 40) = 0.9034503590239480D-02
        ws( 41) = 0.1084393255820647D-01
        ws( 42) = 0.1236829124277546D-01
        ws( 43) = 0.1340928455734656D-01
        ws( 44) = 0.1398590941307503D-01
        ws( 45) = 0.1423411812470843D-01
        ws( 46) = 0.1429059587913790D-01
        ws( 47) = 0.1425100172704481D-01
        ws( 48) = 0.1417280767004795D-01
        ws( 49) = 0.1408863675981679D-01
        ws( 50) = 0.1401891001829672D-01
        ws( 51) = 0.1399027723190582D-01
        ws( 52) = 0.1398317896798214D-01
        ws( 53) = 0.1388308921057285D-01
        ws( 54) = 0.1254604066016831D-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 =  58
        err = 0.5368184739135859D-10
        xs(  1) = 0.2909240884466867D-05
        xs(  2) = 0.1533930454015612D-04
        xs(  3) = 0.3774599219139388D-04
        xs(  4) = 0.7021151714968422D-04
        xs(  5) = 0.1128518819783022D-03
        xs(  6) = 0.1658246888848670D-03
        xs(  7) = 0.2293343463896262D-03
        xs(  8) = 0.3036377866263595D-03
        xs(  9) = 0.3890508878292380D-03
        xs( 10) = 0.4859556605741620D-03
        xs( 11) = 0.5948083039061968D-03
        xs( 12) = 0.7161483066210145D-03
        xs( 13) = 0.8506088397696725D-03
        xs( 14) = 0.9989287588337860D-03
        xs( 15) = 0.1161966612549237D-02
        xs( 16) = 0.1340717146204055D-02
        xs( 17) = 0.1536330898857028D-02
        xs( 18) = 0.1750137635265279D-02
        xs( 19) = 0.1983674535839777D-02
        xs( 20) = 0.2238720306859161D-02
        xs( 21) = 0.2517336686761015D-02
        xs( 22) = 0.2821919241025820D-02
        xs( 23) = 0.3155259891834869D-02
        xs( 24) = 0.3520624374998220D-02
        xs( 25) = 0.3921848822201362D-02
        xs( 26) = 0.4363461042367331D-02
        xs( 27) = 0.4850833967409319D-02
        xs( 28) = 0.5390381352870508D-02
        xs( 29) = 0.5989809512755622D-02
        xs( 30) = 0.6658444090913594D-02
        xs( 31) = 0.7407658355427759D-02
        xs( 32) = 0.8251440347623280D-02
        xs( 33) = 0.9207152076908238D-02
        xs( 34) = 0.1029655744916301D-01
        xs( 35) = 0.1154723067376036D-01
        xs( 36) = 0.1299450958120934D-01
        xs( 37) = 0.1468423739784423D-01
        xs( 38) = 0.1667665312914712D-01
        xs( 39) = 0.1905195187261579D-01
        xs( 40) = 0.2191821743575556D-01
        xs( 41) = 0.2542246683353105D-01
        xs( 42) = 0.2976466819934394D-01
        xs( 43) = 0.3521027251270280D-01
        xs( 44) = 0.4208451232411987D-01
        xs( 45) = 0.5071310894999707D-01
        xs( 46) = 0.6128106967376909D-01
        xs( 47) = 0.7367468485317635D-01
        xs( 48) = 0.8747753702796564D-01
        xs( 49) = 0.1021606920565283D+00
        xs( 50) = 0.1172793773762810D+00
        xs( 51) = 0.1325424442915711D+00
        xs( 52) = 0.1477898922576395D+00
        xs( 53) = 0.1629480409782410D+00
        xs( 54) = 0.1779932431377556D+00
        xs( 55) = 0.1929283510233991D+00
        xs( 56) = 0.2077628436097287D+00
        xs( 57) = 0.2224780924397935D+00
        xs( 58) = 0.2366509529925835D+00
        ws(  1) = 0.7467266873909276D-05
        ws(  2) = 0.1740667108878503D-04
        ws(  3) = 0.2741997837048887D-04
        ws(  4) = 0.3753031436249553D-04
        ws(  5) = 0.4777659764927540D-04
        ws(  6) = 0.5820298913939994D-04
        ws(  7) = 0.6885904095994027D-04
        ws(  8) = 0.7980036636118147D-04
        ws(  9) = 0.9108937062256467D-04
        ws( 10) = 0.1027960569390290D-03
        ws( 11) = 0.1149989720739426D-03
        ws( 12) = 0.1277863627683662D-03
        ws( 13) = 0.1412576137804644D-03
        ws( 14) = 0.1555250421633350D-03
        ws( 15) = 0.1707161312783402D-03
        ws( 16) = 0.1869763041843119D-03
        ws( 17) = 0.2044723614876221D-03
        ws( 18) = 0.2233967430324997D-03
        ws( 19) = 0.2439728218475844D-03
        ws( 20) = 0.2664615024281733D-03
        ws( 21) = 0.2911694836337945D-03
        ws( 22) = 0.3184596641544313D-03
        ws( 23) = 0.3487643301358785D-03
        ws( 24) = 0.3826019876023972D-03
        ws( 25) = 0.4205990078129663D-03
        ws( 26) = 0.4635176916913369D-03
        ws( 27) = 0.5122929664432810D-03
        ws( 28) = 0.5680808057184955D-03
        ws( 29) = 0.6323227367274534D-03
        ws( 30) = 0.7068326355344674D-03
        ws( 31) = 0.7939147585555976D-03
        ws( 32) = 0.8965260212855373D-03
        ws( 33) = 0.1018501662638872D-02
        ws( 34) = 0.1164872793308639D-02
        ws( 35) = 0.1342318435688047D-02
        ws( 36) = 0.1559816305106371D-02
        ws( 37) = 0.1829588187791133D-02
        ws( 38) = 0.2168478918506088D-02
        ws( 39) = 0.2599949257139040D-02
        ws( 40) = 0.3156843768875452D-02
        ws( 41) = 0.3884738863811823D-02
        ws( 42) = 0.4843911020686464D-02
        ws( 43) = 0.6102382958212809D-02
        ws( 44) = 0.7702854977916521D-02
        ws( 45) = 0.9588347571206126D-02
        ws( 46) = 0.1152886814234095D-01
        ws( 47) = 0.1318514566580944D-01
        ws( 48) = 0.1432876927300511D-01
        ws( 49) = 0.1496242752279909D-01
        ws( 50) = 0.1522698240624633D-01
        ws( 51) = 0.1527329876866740D-01
        ws( 52) = 0.1520999602453415D-01
        ws( 53) = 0.1510324517869446D-01
        ws( 54) = 0.1498972828656303D-01
        ws( 55) = 0.1488866457338548D-01
        ws( 56) = 0.1479109082783528D-01
        ws( 57) = 0.1472564898286016D-01
        ws( 58) = 0.1334878459887320D-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 =  62
        err = 0.7131667817814831D-10
        xs(  1) = 0.2392061771893073D-05
        xs(  2) = 0.1261035575562488D-04
        xs(  3) = 0.3102155993901790D-04
        xs(  4) = 0.5767832095801612D-04
        xs(  5) = 0.9265362530206005D-04
        xs(  6) = 0.1360463968147642D-03
        xs(  7) = 0.1879847460730831D-03
        xs(  8) = 0.2486294376819340D-03
        xs(  9) = 0.3181777194147412D-03
        xs( 10) = 0.3968675219806106D-03
        xs( 11) = 0.4849820545518156D-03
        xs( 12) = 0.5828548558137376D-03
        xs( 13) = 0.6908753961977977D-03
        xs( 14) = 0.8094953610754260D-03
        xs( 15) = 0.9392357781120969D-03
        xs( 16) = 0.1080695187425721D-02
        xs( 17) = 0.1234559092455780D-02
        xs( 18) = 0.1401610976673320D-02
        xs( 19) = 0.1582745229436567D-02
        xs( 20) = 0.1778982397786034D-02
        xs( 21) = 0.1991487274870570D-02
        xs( 22) = 0.2221590455841530D-02
        xs( 23) = 0.2470814148007878D-02
        xs( 24) = 0.2740903223437787D-02
        xs( 25) = 0.3033862766208664D-02
        xs( 26) = 0.3352003711348018D-02
        xs( 27) = 0.3697998629398876D-02
        xs( 28) = 0.4074950317987721D-02
        xs( 29) = 0.4486476677459812D-02
        xs( 30) = 0.4936816447385784D-02
        xs( 31) = 0.5430961887734087D-02
        xs( 32) = 0.5974826557305306D-02
        xs( 33) = 0.6575459231340456D-02
        xs( 34) = 0.7241319052070250D-02
        xs( 35) = 0.7982632778378618D-02
        xs( 36) = 0.8811863318565623D-02
        xs( 37) = 0.9744330827504340D-02
        xs( 38) = 0.1079904554435616D-01
        xs( 39) = 0.1199983829898138D-01
        xs( 40) = 0.1337691508572338D-01
        xs( 41) = 0.1496902407648315D-01
        xs( 42) = 0.1682651844271116D-01
        xs( 43) = 0.1901574173622048D-01
        xs( 44) = 0.2162536683730634D-01
        xs( 45) = 0.2477555530455594D-01
        xs( 46) = 0.2863080155649480D-01
        xs( 47) = 0.3341588763481017D-01
        xs( 48) = 0.3942823610348105D-01
        xs( 49) = 0.4702489207096302D-01
        xs( 50) = 0.5654416183760423D-01
        xs( 51) = 0.6814172879915310D-01
        xs( 52) = 0.8163495037934979D-01
        xs( 53) = 0.9653703971949455D-01
        xs( 54) = 0.1122796825822576D+00
        xs( 55) = 0.1284077458690753D+00
        xs( 56) = 0.1446332754595316D+00
        xs( 57) = 0.1608034476753601D+00
        xs( 58) = 0.1768524164590625D+00
        xs( 59) = 0.1927637862575054D+00
        xs( 60) = 0.2085500393880046D+00
        xs( 61) = 0.2241974505308676D+00
        xs( 62) = 0.2392511693762034D+00
        ws(  1) = 0.6139567714532471D-05
        ws(  2) = 0.1430703080797734D-04
        ws(  3) = 0.2252381002353065D-04
        ws(  4) = 0.3080181545064337D-04
        ws(  5) = 0.3916522813285427D-04
        ws(  6) = 0.4764160897357955D-04
        ws(  7) = 0.5626181981620065D-04
        ws(  8) = 0.6506036809213993D-04
        ws(  9) = 0.7407577404184354D-04
        ws( 10) = 0.8335094866240183D-04
        ws( 11) = 0.9293361320232485D-04
        ws( 12) = 0.1028767967271909D-03
        ws( 13) = 0.1132394466185008D-03
        ws( 14) = 0.1240871854749005D-03
        ws( 15) = 0.1354932484477266D-03
        ws( 16) = 0.1475396379502403D-03
        ws( 17) = 0.1603185382414059D-03
        ws( 18) = 0.1739340420988490D-03
        ws( 19) = 0.1885042546130160D-03
        ws( 20) = 0.2041638568694891D-03
        ws( 21) = 0.2210672353151383D-03
        ws( 22) = 0.2393923132527646D-03
        ws( 23) = 0.2593452610592545D-03
        ws( 24) = 0.2811663146598715D-03
        ws( 25) = 0.3051370032287007D-03
        ws( 26) = 0.3315891804549664D-03
        ws( 27) = 0.3609163847168518D-03
        ws( 28) = 0.3935882278547485D-03
        ws( 29) = 0.4301687554023088D-03
        ws( 30) = 0.4713400573310478D-03
        ws( 31) = 0.5179328864599313D-03
        ws( 32) = 0.5709667114331325D-03
        ws( 33) = 0.6317026075589614D-03
        ws( 34) = 0.7017137808727768D-03
        ws( 35) = 0.7829806090243643D-03
        ws( 36) = 0.8780201492549815D-03
        ws( 37) = 0.9900646926539341D-03
        ws( 38) = 0.1123311072373251D-02
        ws( 39) = 0.1283273307684873D-02
        ws( 40) = 0.1477288238105517D-02
        ws( 41) = 0.1715250327267816D-02
        ws( 42) = 0.2010692120258542D-02
        ws( 43) = 0.2382383087636332D-02
        ws( 44) = 0.2856680275801722D-02
        ws( 45) = 0.3470834470185783D-02
        ws( 46) = 0.4276867801616376D-02
        ws( 47) = 0.5342986032109256D-02
        ws( 48) = 0.6742427391806639D-02
        ws( 49) = 0.8510202781907943D-02
        ws( 50) = 0.1055747822146936D-01
        ws( 51) = 0.1260668035036855D-01
        ws( 52) = 0.1429418823723014D-01
        ws( 53) = 0.1541175922086514D-01
        ws( 54) = 0.1599699070880655D-01
        ws( 55) = 0.1621185904247961D-01
        ws( 56) = 0.1621455379898165D-01
        ws( 57) = 0.1611536377411390D-01
        ws( 58) = 0.1598109393072882D-01
        ws( 59) = 0.1585187330358545D-01
        ws( 60) = 0.1575600944612684D-01
        ws( 61) = 0.1578473838615700D-01
        ws( 62) = 0.1530069212840194D-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 =  66
        err = 0.6676980105672514D-10
        xs(  1) = 0.1997490775359281D-05
        xs(  2) = 0.1052897528384481D-04
        xs(  3) = 0.2589555506561303D-04
        xs(  4) = 0.4813182030760464D-04
        xs(  5) = 0.7728475358573213D-04
        xs(  6) = 0.1134179616568660D-03
        xs(  7) = 0.1566138357138924D-03
        xs(  8) = 0.2069757894929607D-03
        xs(  9) = 0.2646306929150321D-03
        xs( 10) = 0.3297314959345970D-03
        xs( 11) = 0.4024600404938248D-03
        xs( 12) = 0.4830300775512062D-03
        xs( 13) = 0.5716905265585635D-03
        xs( 14) = 0.6687290335227321D-03
        xs( 15) = 0.7744759007138138D-03
        xs( 16) = 0.8893084773215034D-03
        xs( 17) = 0.1013656116611138D-02
        xs( 18) = 0.1148005823021011D-02
        xs( 19) = 0.1292908733590187D-02
        xs( 20) = 0.1448987603417599D-02
        xs( 21) = 0.1616945496279796D-02
        xs( 22) = 0.1797575920968623D-02
        xs( 23) = 0.1991774703600535D-02
        xs( 24) = 0.2200553948990895D-02
        xs( 25) = 0.2425058523929758D-02
        xs( 26) = 0.2666585596781290D-02
        xs( 27) = 0.2926607897943557D-02
        xs( 28) = 0.3206801532498061D-02
        xs( 29) = 0.3509079392347836D-02
        xs( 30) = 0.3835631496758373D-02
        xs( 31) = 0.4188973956508641D-02
        xs( 32) = 0.4572008744447944D-02
        xs( 33) = 0.4988097098696433D-02
        xs( 34) = 0.5441150250998441D-02
        xs( 35) = 0.5935742342198834D-02
        xs( 36) = 0.6477251983779654D-02
        xs( 37) = 0.7072041128908296D-02
        xs( 38) = 0.7727682981833682D-02
        xs( 39) = 0.8453254996577337D-02
        xs( 40) = 0.9259719180243276D-02
        xs( 41) = 0.1016042081525476D-01
        xs( 42) = 0.1117174973149133D-01
        xs( 43) = 0.1231402758578426D-01
        xs( 44) = 0.1361271366936976D-01
        xs( 45) = 0.1510006620942878D-01
        xs( 46) = 0.1681746471399402D-01
        xs( 47) = 0.1881870524225643D-01
        xs( 48) = 0.2117474235635910D-01
        xs( 49) = 0.2398058384244071D-01
        xs( 50) = 0.2736531485830251D-01
        xs( 51) = 0.3150622082892672D-01
        xs( 52) = 0.3664629874669465D-01
        xs( 53) = 0.4310750645283062D-01
        xs( 54) = 0.5127542754326789D-01
        xs( 55) = 0.6151107182031404D-01
        xs( 56) = 0.7396955227128331D-01
        xs( 57) = 0.8843503264289682D-01
        xs( 58) = 0.1043688695393784D+00
        xs( 59) = 0.1211563729137134D+00
        xs( 60) = 0.1383139759286671D+00
        xs( 61) = 0.1555415548312034D+00
        xs( 62) = 0.1726839008294131D+00
        xs( 63) = 0.1896774446435990D+00
        xs( 64) = 0.2065070755457802D+00
        xs( 65) = 0.2231193134168593D+00
        xs( 66) = 0.2390583003477121D+00
        ws(  1) = 0.5126697095273222D-05
        ws(  2) = 0.1194378451046064D-04
        ws(  3) = 0.1879485987054080D-04
        ws(  4) = 0.2568545752574182D-04
        ws(  5) = 0.3263097562842732D-04
        ws(  6) = 0.3964913516059856D-04
        ws(  7) = 0.4675980797785976D-04
        ws(  8) = 0.5398520082834235D-04
        ws(  9) = 0.6135005084824056D-04
        ws( 10) = 0.6888181198662511D-04
        ws( 11) = 0.7661084810217764D-04
        ws( 12) = 0.8457065346260142D-04
        ws( 13) = 0.9279812027230830D-04
        ws( 14) = 0.1013338711052174D-03
        ws( 15) = 0.1102226724824604D-03
        ws( 16) = 0.1195139458343621D-03
        ws( 17) = 0.1292623925290106D-03
        ws( 18) = 0.1395287521813303D-03
        ws( 19) = 0.1503807171978565D-03
        ws( 20) = 0.1618940315030347D-03
        ws( 21) = 0.1741538086492652D-03
        ws( 22) = 0.1872561134112595D-03
        ws( 23) = 0.2013098625287602D-03
        ws( 24) = 0.2164391152894963D-03
        ws( 25) = 0.2327858436016610D-03
        ws( 26) = 0.2505132960903252D-03
        ws( 27) = 0.2698101033490888D-03
        ws( 28) = 0.2908953127127571D-03
        ws( 29) = 0.3140245992727230D-03
        ws( 30) = 0.3394979718007647D-03
        ws( 31) = 0.3676693951336491D-03
        ws( 32) = 0.3989588863591892D-03
        ws( 33) = 0.4338678273210085D-03
        ws( 34) = 0.4729984950321913D-03
        ws( 35) = 0.5170791688543011D-03
        ws( 36) = 0.5669966788903782D-03
        ws( 37) = 0.6238389805543197D-03
        ws( 38) = 0.6889513684908753D-03
        ws( 39) = 0.7640114527086286D-03
        ws( 40) = 0.8511302546136607D-03
        ws( 41) = 0.9529900800665733D-03
        ws( 42) = 0.1073034915381874D-02
        ws( 43) = 0.1215736794806627D-02
        ws( 44) = 0.1386973758485269D-02
        ws( 45) = 0.1594574083219528D-02
        ws( 46) = 0.1849111557029129D-02
        ws( 47) = 0.2165082717785003D-02
        ws( 48) = 0.2562661865813724D-02
        ws( 49) = 0.3070300123338304D-02
        ws( 50) = 0.3728403740948147D-02
        ws( 51) = 0.4593633054174901D-02
        ws( 52) = 0.5740320866018323D-02
        ws( 53) = 0.7247722483916247D-02
        ws( 54) = 0.9151556114439727D-02
        ws( 55) = 0.1134899163673864D-01
        ws( 56) = 0.1353118329131615D-01
        ws( 57) = 0.1530509003580237D-01
        ws( 58) = 0.1645641724419475D-01
        ws( 59) = 0.1703737254017381D-01
        ws( 60) = 0.1722866198317599D-01
        ws( 61) = 0.1720179929392936D-01
        ws( 62) = 0.1707348609761950D-01
        ws( 63) = 0.1691294202841687D-01
        ws( 64) = 0.1677783998136749D-01
        ws( 65) = 0.1669892959827008D-01
        ws( 66) = 0.1472695940929822D-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 =  70
        err = 0.6583501143397528D-10
        xs(  1) = 0.1691354504310820D-05
        xs(  2) = 0.8914535605530562D-05
        xs(  3) = 0.2192150147743449D-04
        xs(  4) = 0.4073602018062145D-04
        xs(  5) = 0.6538963396161024D-04
        xs(  6) = 0.9592496905391636D-04
        xs(  7) = 0.1323972263756515D-03
        xs(  8) = 0.1748756809588840D-03
        xs(  9) = 0.2234452935392305D-03
        xs( 10) = 0.2782084284171795D-03
        xs( 11) = 0.3392866688061301D-03
        xs( 12) = 0.4068227316387312D-03
        xs( 13) = 0.4809824959134471D-03
        xs( 14) = 0.5619571697881984D-03
        xs( 15) = 0.6499656311520391D-03
        xs( 16) = 0.7452569850525614D-03
        xs( 17) = 0.8481133891759367D-03
        xs( 18) = 0.9588532065378515D-03
        xs( 19) = 0.1077834553166807D-02
        xs( 20) = 0.1205459318520510D-02
        xs( 21) = 0.1342177748259275D-02
        xs( 22) = 0.1488493693721176D-02
        xs( 23) = 0.1644970650313073D-02
        xs( 24) = 0.1812238729496029D-02
        xs( 25) = 0.1991002736959556D-02
        xs( 26) = 0.2182051563877701D-02
        xs( 27) = 0.2386269141898228D-02
        xs( 28) = 0.2604647266425388D-02
        xs( 29) = 0.2838300660881084D-02
        xs( 30) = 0.3088484740688144D-02
        xs( 31) = 0.3356616645234115D-02
        xs( 32) = 0.3644300244602184D-02
        xs( 33) = 0.3953356007267231D-02
        xs( 34) = 0.4285856844751364D-02
        xs( 35) = 0.4644171350098168D-02
        xs( 36) = 0.5031016238852676D-02
        xs( 37) = 0.5449520319777231D-02
        xs( 38) = 0.5903303011370778D-02
        xs( 39) = 0.6396571343958023D-02
        xs( 40) = 0.6934240639795054D-02
        xs( 41) = 0.7522085772823238D-02
        xs( 42) = 0.8166932274744651D-02
        xs( 43) = 0.8876899849277227D-02
        xs( 44) = 0.9661715530246589D-02
        xs( 45) = 0.1053312038968365D-01
        xs( 46) = 0.1150540340926687D-01
        xs( 47) = 0.1259611040486539D-01
        xs( 48) = 0.1382699731376149D-01
        xs( 49) = 0.1522532976878177D-01
        xs( 50) = 0.1682568142335087D-01
        xs( 51) = 0.1867246296742055D-01
        xs( 52) = 0.2082353973405570D-01
        xs( 53) = 0.2335549414228526D-01
        xs( 54) = 0.2637138241215142D-01
        xs( 55) = 0.3001215982804765D-01
        xs( 56) = 0.3447277335644651D-01
        xs( 57) = 0.4002137351250865D-01
        xs( 58) = 0.4701137431030272D-01
        xs( 59) = 0.5585777904206001D-01
        xs( 60) = 0.6693115849395311D-01
        xs( 61) = 0.8036005121623289D-01
        xs( 62) = 0.9587396178993643D-01
        xs( 63) = 0.1128804589119120D+00
        xs( 64) = 0.1307315664369457D+00
        xs( 65) = 0.1489307267031740D+00
        xs( 66) = 0.1671771232172191D+00
        xs( 67) = 0.1853200188574867D+00
        xs( 68) = 0.2032999857424972D+00
        xs( 69) = 0.2211465359646164D+00
        xs( 70) = 0.2381741530834464D+00
        ws(  1) = 0.4340890406089787D-05
        ws(  2) = 0.1011133493126662D-04
        ws(  3) = 0.1590632422625528D-04
        ws(  4) = 0.2172793795784741D-04
        ws(  5) = 0.2758637038947573D-04
        ws(  6) = 0.3349347503768993D-04
        ws(  7) = 0.3946255855587543D-04
        ws(  8) = 0.4550848207684985D-04
        ws(  9) = 0.5164777354751126D-04
        ws( 10) = 0.5789872819808217D-04
        ws( 11) = 0.6428150499035290D-04
        ws( 12) = 0.7081823113978092D-04
        ws( 13) = 0.7753312653068211D-04
        ws( 14) = 0.8445265836202529D-04
        ws( 15) = 0.9160573492587100D-04
        ws( 16) = 0.9902394677173965D-04
        ws( 17) = 0.1067418630312047D-03
        ws( 18) = 0.1147973909045350D-03
        ws( 19) = 0.1232322077981092D-03
        ws( 20) = 0.1320922766494929D-03
        ws( 21) = 0.1414284577523183D-03
        ws( 22) = 0.1512972332825308D-03
        ws( 23) = 0.1617615643290189D-03
        ws( 24) = 0.1728919057227330D-03
        ws( 25) = 0.1847674092028602D-03
        ws( 26) = 0.1974773537349505D-03
        ws( 27) = 0.2111228515485376D-03
        ws( 28) = 0.2258188900205482D-03
        ws( 29) = 0.2416967859265061D-03
        ws( 30) = 0.2589071488986674D-03
        ws( 31) = 0.2776234767051156D-03
        ws( 32) = 0.2980465393754408D-03
        ws( 33) = 0.3204097548192687D-03
        ws( 34) = 0.3449858171168731D-03
        ws( 35) = 0.3720949204071136D-03
        ws( 36) = 0.4021150258722606D-03
        ws( 37) = 0.4354947678879070D-03
        ws( 38) = 0.4727697918359577D-03
        ws( 39) = 0.5145835944661575D-03
        ws( 40) = 0.5617143204072082D-03
        ws( 41) = 0.6151095160291758D-03
        ws( 42) = 0.6759316081650143D-03
        ws( 43) = 0.7456180130321312D-03
        ws( 44) = 0.8259614076674982D-03
        ws( 45) = 0.9192181535323845D-03
        ws( 46) = 0.1028256535966177D-02
        ws( 47) = 0.1156762137239270D-02
        ws( 48) = 0.1309526515008379D-02
        ws( 49) = 0.1492859344313267D-02
        ws( 50) = 0.1715186736515969D-02
        ws( 51) = 0.1987934852720024D-02
        ws( 52) = 0.2326856037238872D-02
        ws( 53) = 0.2754041541542083D-02
        ws( 54) = 0.3300958029480422D-02
        ws( 55) = 0.4012747649993295D-02
        ws( 56) = 0.4952905408628130D-02
        ws( 57) = 0.6203463931512879D-02
        ws( 58) = 0.7847387053702899D-02
        ws( 59) = 0.9910802388953716D-02
        ws( 60) = 0.1226064748621518D-01
        ws( 61) = 0.1455065540078968D-01
        ws( 62) = 0.1637316513897592D-01
        ws( 63) = 0.1752815945188478D-01
        ws( 64) = 0.1809083875084503D-01
        ws( 65) = 0.1825840603522747D-01
        ws( 66) = 0.1821056316080635D-01
        ws( 67) = 0.1806640477495266D-01
        ws( 68) = 0.1784847943901218D-01
        ws( 69) = 0.1780976474140501D-01
        ws( 70) = 0.1673781515778163D-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 =  74
        err = 0.6322354202765583D-10
        xs(  1) = 0.1457996385642063D-05
        xs(  2) = 0.7684017503007879D-05
        xs(  3) = 0.1889303467609882D-04
        xs(  4) = 0.3510146939760690D-04
        xs(  5) = 0.5633050635199798D-04
        xs(  6) = 0.8260881018248727D-04
        xs(  7) = 0.1139736392934666D-03
        xs(  8) = 0.1504719351882577D-03
        xs(  9) = 0.1921614775231339D-03
        xs( 10) = 0.2391120987261264D-03
        xs( 11) = 0.2914069472400496D-03
        xs( 12) = 0.3491437954763224D-03
        xs( 13) = 0.4124363967500737D-03
        xs( 14) = 0.4814159031229540D-03
        xs( 15) = 0.5562323622497786D-03
        xs( 16) = 0.6370563165658215D-03
        xs( 17) = 0.7240805325987137D-03
        xs( 18) = 0.8175218921935452D-03
        xs( 19) = 0.9176234813283747D-03
        xs( 20) = 0.1024656916606129D-02
        xs( 21) = 0.1138924954302839D-02
        xs( 22) = 0.1260764432839964D-02
        xs( 23) = 0.1390549606736013D-02
        xs( 24) = 0.1528695938747035D-02
        xs( 25) = 0.1675664427940855D-02
        xs( 26) = 0.1831966564540114D-02
        xs( 27) = 0.1998170018838795D-02
        xs( 28) = 0.2174905191535432D-02
        xs( 29) = 0.2362872777561992D-02
        xs( 30) = 0.2562852526274440D-02
        xs( 31) = 0.2775713418291459D-02
        xs( 32) = 0.3002425527030422D-02
        xs( 33) = 0.3244073890998633D-02
        xs( 34) = 0.3501874797454506D-02
        xs( 35) = 0.3777194970315517D-02
        xs( 36) = 0.4071574273332455D-02
        xs( 37) = 0.4386752690188589D-02
        xs( 38) = 0.4724702535702266D-02
        xs( 39) = 0.5087667100779381D-02
        xs( 40) = 0.5478207260169381D-02
        xs( 41) = 0.5899257994235069D-02
        xs( 42) = 0.6354197337980958D-02
        xs( 43) = 0.6846931018639490D-02
        xs( 44) = 0.7381997048970253D-02
        xs( 45) = 0.7964695901354648D-02
        xs( 46) = 0.8601253766667753D-02
        xs( 47) = 0.9299028979652390D-02
        xs( 48) = 0.1006677533811908D-01
        xs( 49) = 0.1091498120545517D-01
        xs( 50) = 0.1185631071830370D-01
        xs( 51) = 0.1290618431492336D-01
        xs( 52) = 0.1408355200070859D-01
        xs( 53) = 0.1541193731773598D-01
        xs( 54) = 0.1692086783192010D-01
        xs( 55) = 0.1864786732488257D-01
        xs( 56) = 0.2064127991420277D-01
        xs( 57) = 0.2296434858863896D-01
        xs( 58) = 0.2570120976863370D-01
        xs( 59) = 0.2896581007664005D-01
        xs( 60) = 0.3291508550619991D-01
        xs( 61) = 0.3776728781005834D-01
        xs( 62) = 0.4382272725839316D-01
        xs( 63) = 0.5147326284046305D-01
        xs( 64) = 0.6116589744164217D-01
        xs( 65) = 0.7326951512222152D-01
        xs( 66) = 0.8785102058687855D-01
        xs( 67) = 0.1045354631047729D+00
        xs( 68) = 0.1226461735601560D+00
        xs( 69) = 0.1415069072145725D+00
        xs( 70) = 0.1606296907578688D+00
        xs( 71) = 0.1797301992751087D+00
        xs( 72) = 0.1986604462417854D+00
        xs( 73) = 0.2173082764670989D+00
        xs( 74) = 0.2349358128449701D+00
        ws(  1) = 0.3741907961492566D-05
        ws(  2) = 0.8714818316834325D-05
        ws(  3) = 0.1370575292268064D-04
        ws(  4) = 0.1871462176520526D-04
        ws(  5) = 0.2374821211859463D-04
        ws(  6) = 0.2881458719312634D-04
        ws(  7) = 0.3392287533430178D-04
        ws(  8) = 0.3908332612979765D-04
        ws(  9) = 0.4430737621146395D-04
        ws( 10) = 0.4960770247421834D-04
        ws( 11) = 0.5499826737136602D-04
        ws( 12) = 0.6049436440046832D-04
        ws( 13) = 0.6611267193324799D-04
        ws( 14) = 0.7187132216984251D-04
        ws( 15) = 0.7778999107510158D-04
        ws( 16) = 0.8389001387558499D-04
        ws( 17) = 0.9019453044826181D-04
        ws( 18) = 0.9672866440087857D-04
        ws( 19) = 0.1035197399403834D-03
        ws( 20) = 0.1105975410921258D-03
        ws( 21) = 0.1179946186292883D-03
        ws( 22) = 0.1257466511819458D-03
        ws( 23) = 0.1338928684836843D-03
        ws( 24) = 0.1424765463906868D-03
        ws( 25) = 0.1515455858528719D-03
        ws( 26) = 0.1611531902490906D-03
        ws( 27) = 0.1713586595015557D-03
        ws( 28) = 0.1822283228958406D-03
        ws( 29) = 0.1938366384069211D-03
        ws( 30) = 0.2062674921963762D-03
        ws( 31) = 0.2196157404863845D-03
        ws( 32) = 0.2339890465105669D-03
        ws( 33) = 0.2495100776148135D-03
        ws( 34) = 0.2663191460268612D-03
        ws( 35) = 0.2845773962418454D-03
        ws( 36) = 0.3044706730427591D-03
        ws( 37) = 0.3262142393419311D-03
        ws( 38) = 0.3500585612853377D-03
        ws( 39) = 0.3762964452308235D-03
        ws( 40) = 0.4052718954386729D-03
        ws( 41) = 0.4373911779460415D-03
        ws( 42) = 0.4731367340164879D-03
        ws( 43) = 0.5130848108178574D-03
        ws( 44) = 0.5579279644828067D-03
        ws( 45) = 0.6085040304851201D-03
        ws( 46) = 0.6658337446907189D-03
        ws( 47) = 0.7311700572242452D-03
        ws( 48) = 0.8060634534336777D-03
        ws( 49) = 0.8924494192434467D-03
        ws( 50) = 0.9927669721368575D-03
        ws( 51) = 0.1110121423921750D-02
        ws( 52) = 0.1248511099444458D-02
        ws( 53) = 0.1413148214572054D-02
        ws( 54) = 0.1610920678906415D-02
        ws( 55) = 0.1851069215115948D-02
        ws( 56) = 0.2146198912362609D-02
        ws( 57) = 0.2513815946056809D-02
        ws( 58) = 0.2978681047969249D-02
        ws( 59) = 0.3576366548026074D-02
        ws( 60) = 0.4358185998286888D-02
        ws( 61) = 0.5396032248931306D-02
        ws( 62) = 0.6780617620408069D-02
        ws( 63) = 0.8597115038465313D-02
        ws( 64) = 0.1085382423532368D-01
        ws( 65) = 0.1336759193980674D-01
        ws( 66) = 0.1573021307172345D-01
        ws( 67) = 0.1751996328249737D-01
        ws( 68) = 0.1858556450607282D-01
        ws( 69) = 0.1905467645143354D-01
        ws( 70) = 0.1914476590776769D-01
        ws( 71) = 0.1903343475880934D-01
        ws( 72) = 0.1884386954589957D-01
        ws( 73) = 0.1862999422130820D-01
        ws( 74) = 0.1625815612409009D-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 =  78
        err = 0.7371576275402168D-10
        xs(  1) = 0.1270900414623673D-05
        xs(  2) = 0.6697621546072222D-05
        xs(  3) = 0.1646617098448119D-04
        xs(  4) = 0.3058833020383701D-04
        xs(  5) = 0.4907879893234584D-04
        xs(  6) = 0.7195745484157802D-04
        xs(  7) = 0.9925019410374719D-04
        xs(  8) = 0.1309897338185183D-03
        xs(  9) = 0.1672164581225910D-03
        xs( 10) = 0.2079793035412947D-03
        xs( 11) = 0.2533366727986923D-03
        xs( 12) = 0.3033573705087227D-03
        xs( 13) = 0.3581215598913460D-03
        xs( 14) = 0.4177217450863406D-03
        xs( 15) = 0.4822637881746147D-03
        xs( 16) = 0.5518679737518198D-03
        xs( 17) = 0.6266701367861087D-03
        xs( 18) = 0.7068228720814583D-03
        xs( 19) = 0.7924968457207501D-03
        xs( 20) = 0.8838822310402644D-03
        xs( 21) = 0.9811902939043885D-03
        xs( 22) = 0.1084655154673030D-02
        xs( 23) = 0.1194535757342981D-02
        xs( 24) = 0.1311118080019984D-02
        xs( 25) = 0.1434717625510462D-02
        xs( 26) = 0.1565682236459986D-02
        xs( 27) = 0.1704395286087100D-02
        xs( 28) = 0.1851279304018545D-02
        xs( 29) = 0.2006800106700650D-02
        xs( 30) = 0.2171471514173678D-02
        xs( 31) = 0.2345860749961870D-02
        xs( 32) = 0.2530594638653507D-02
        xs( 33) = 0.2726366738639949D-02
        xs( 34) = 0.2933945574294634D-02
        xs( 35) = 0.3154184165701827D-02
        xs( 36) = 0.3388031095527368D-02
        xs( 37) = 0.3636543404805208D-02
        xs( 38) = 0.3900901672892382D-02
        xs( 39) = 0.4182427719595821D-02
        xs( 40) = 0.4482605468178777D-02
        xs( 41) = 0.4803105638213636D-02
        xs( 42) = 0.5145815104074645D-02
        xs( 43) = 0.5512871966951913D-02
        xs( 44) = 0.5906707664930376D-02
        xs( 45) = 0.6330097806597618D-02
        xs( 46) = 0.6786223886036055D-02
        xs( 47) = 0.7278748663883272D-02
        xs( 48) = 0.7811908843341534D-02
        xs( 49) = 0.8390629798363500D-02
        xs( 50) = 0.9020668659557479D-02
        xs( 51) = 0.9708794195443482D-02
        xs( 52) = 0.1046301490155833D-01
        xs( 53) = 0.1129287092496987D-01
        xs( 54) = 0.1220981148601505D-01
        xs( 55) = 0.1322768825510533D-01
        xs( 56) = 0.1436340816858478D-01
        xs( 57) = 0.1563780883626676D-01
        xs( 58) = 0.1707685007480930D-01
        xs( 59) = 0.1871326279338450D-01
        xs( 60) = 0.2058887294227636D-01
        xs( 61) = 0.2275794294602555D-01
        xs( 62) = 0.2529207740733674D-01
        xs( 63) = 0.2828756530340749D-01
        xs( 64) = 0.3187647789169982D-01
        xs( 65) = 0.3624308189259610D-01
        xs( 66) = 0.4164573606261040D-01
        xs( 67) = 0.4843815565896318D-01
        xs( 68) = 0.5706832319405191D-01
        xs( 69) = 0.6800892772598524D-01
        xs( 70) = 0.8157388566437028D-01
        xs( 71) = 0.9768382680626654D-01
        xs( 72) = 0.1158070755812103D+00
        xs( 73) = 0.1351945353799914D+00
        xs( 74) = 0.1551846205592505D+00
        xs( 75) = 0.1753369864342164D+00
        xs( 76) = 0.1954051395121053D+00
        xs( 77) = 0.2152208915222650D+00
        xs( 78) = 0.2342075118948913D+00
        ws(  1) = 0.3261691231123188D-05
        ws(  2) = 0.7595604898060456D-05
        ws(  3) = 0.1194328455475675D-04
        ws(  4) = 0.1630346340541764D-04
        ws(  5) = 0.2068077395524197D-04
        ws(  6) = 0.2508084058572687D-04
        ws(  7) = 0.2951007666317235D-04
        ws(  8) = 0.3397571867564241D-04
        ws(  9) = 0.3848587077575008D-04
        ws( 10) = 0.4304953825200253D-04
        ws( 11) = 0.4767665175919334D-04
        ws( 12) = 0.5237808784615100D-04
        ws( 13) = 0.5716569136176252D-04
        ws( 14) = 0.6205230500284109D-04
        ws( 15) = 0.6705180985072652D-04
        ws( 16) = 0.7217918035438845D-04
        ws( 17) = 0.7745055637938378D-04
        ws( 18) = 0.8288333468369554D-04
        ws( 19) = 0.8849628179500695D-04
        ws( 20) = 0.9430967052732188D-04
        ws( 21) = 0.1003454425219240D-03
        ws( 22) = 0.1066273995988306D-03
        ws( 23) = 0.1131814273543838D-03
        ws( 24) = 0.1200357550026620D-03
        ws( 25) = 0.1272212567156726D-03
        ws( 26) = 0.1347718004544331D-03
        ws( 27) = 0.1427246517557441D-03
        ws( 28) = 0.1511209418004168D-03
        ws( 29) = 0.1600062105104900D-03
        ws( 30) = 0.1694310387231503D-03
        ws( 31) = 0.1794517851273926D-03
        ws( 32) = 0.1901314485867575D-03
        ws( 33) = 0.2015406805183063D-03
        ws( 34) = 0.2137589770548248D-03
        ws( 35) = 0.2268760887761964D-03
        ws( 36) = 0.2409936940892213D-03
        ws( 37) = 0.2562273939264528D-03
        ws( 38) = 0.2727090994135219D-03
        ws( 39) = 0.2905899049595005D-03
        ws( 40) = 0.3100435586359008D-03
        ws( 41) = 0.3312706790760441D-03
        ws( 42) = 0.3545039049896888D-03
        ws( 43) = 0.3800142182927549D-03
        ws( 44) = 0.4081187570553183D-03
        ws( 45) = 0.4391905274870973D-03
        ws( 46) = 0.4736705580482953D-03
        ws( 47) = 0.5120832175121044D-03
        ws( 48) = 0.5550556720649457D-03
        ws( 49) = 0.6033427884072852D-03
        ws( 50) = 0.6578592970856569D-03
        ws( 51) = 0.7197217090763187D-03
        ws( 52) = 0.7903035081855119D-03
        ws( 53) = 0.8713086200611364D-03
        ws( 54) = 0.9648703799043110D-03
        ws( 55) = 0.1073686606955555D-02
        ws( 56) = 0.1201206621414784D-02
        ws( 57) = 0.1351894368778771D-02
        ws( 58) = 0.1531605312056929D-02
        ws( 59) = 0.1748136680186705D-02
        ws( 60) = 0.2012047604890033D-02
        ws( 61) = 0.2337907284486822D-02
        ws( 62) = 0.2746229037745704D-02
        ws( 63) = 0.3266487303656526D-02
        ws( 64) = 0.3941673278540965D-02
        ws( 65) = 0.4834193626266504D-02
        ws( 66) = 0.6029972280615105D-02
        ws( 67) = 0.7630534164639179D-02
        ws( 68) = 0.9711728493413575D-02
        ws( 69) = 0.1222638313935494D-01
        ws( 70) = 0.1489174729534394D-01
        ws( 71) = 0.1723485531746209D-01
        ws( 72) = 0.1888099224288757D-01
        ws( 73) = 0.1978158890165092D-01
        ws( 74) = 0.2012592213311343D-01
        ws( 75) = 0.2014053529911337D-01
        ws( 76) = 0.1999553950066938D-01
        ws( 77) = 0.1967377759295957D-01
        ws( 78) = 0.1758653638625914D-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 =  82
        err = 0.7738630623271772D-10
        xs(  1) = 0.1117988251932962D-05
        xs(  2) = 0.5891520945387017D-05
        xs(  3) = 0.1448322380930783D-04
        xs(  4) = 0.2690162624188583D-04
        xs(  5) = 0.4315694567009079D-04
        xs(  6) = 0.6326300992782075D-04
        xs(  7) = 0.8723791633572398D-04
        xs(  8) = 0.1151046450694812D-03
        xs(  9) = 0.1468917009537443D-03
        xs( 10) = 0.1826337807870814D-03
        xs( 11) = 0.2223724568865140D-03
        xs( 12) = 0.2661568699838410D-03
        xs( 13) = 0.3140444287675723D-03
        xs( 14) = 0.3661015173030462D-03
        xs( 15) = 0.4224042149344457D-03
        xs( 16) = 0.4830390360111923D-03
        xs( 17) = 0.5481036987363329D-03
        xs( 18) = 0.6177079343144960D-03
        xs( 19) = 0.6919743487286715D-03
        xs( 20) = 0.7710393506459474D-03
        xs( 21) = 0.8550541601276585D-03
        xs( 22) = 0.9441859139929156D-03
        xs( 23) = 0.1038618885011125D-02
        xs( 24) = 0.1138555833806460D-02
        xs( 25) = 0.1244219514387550D-02
        xs( 26) = 0.1355854356566414D-02
        xs( 27) = 0.1473728351654326D-02
        xs( 28) = 0.1598135171315488D-02
        xs( 29) = 0.1729396553918428D-02
        xs( 30) = 0.1867864997874346D-02
        xs( 31) = 0.2013926807941342D-02
        xs( 32) = 0.2168005548134050D-02
        xs( 33) = 0.2330565963555001D-02
        xs( 34) = 0.2502118445410612D-02
        xs( 35) = 0.2683224126120953D-02
        xs( 36) = 0.2874500707756891D-02
        xs( 37) = 0.3076629147515381D-02
        xs( 38) = 0.3290361347078618D-02
        xs( 39) = 0.3516529022494570D-02
        xs( 40) = 0.3756053968652119D-02
        xs( 41) = 0.4009959975698956D-02
        xs( 42) = 0.4279386712149521D-02
        xs( 43) = 0.4565605958620902D-02
        xs( 44) = 0.4870040664762780D-02
        xs( 45) = 0.5194287411094414D-02
        xs( 46) = 0.5540143000612520D-02
        xs( 47) = 0.5909636085316406D-02
        xs( 48) = 0.6305064961740122D-02
        xs( 49) = 0.6729042976189717D-02
        xs( 50) = 0.7184553371120388D-02
        xs( 51) = 0.7675015921523548D-02
        xs( 52) = 0.8204368407417385D-02
        xs( 53) = 0.8777166885316224D-02
        xs( 54) = 0.9398709983148736D-02
        xs( 55) = 0.1007519416473766D-01
        xs( 56) = 0.1081390928914019D-01
        xs( 57) = 0.1162348715177900D-01
        xs( 58) = 0.1251422046692194D-01
        xs( 59) = 0.1349847665633646D-01
        xs( 60) = 0.1459124103626408D-01
        xs( 61) = 0.1581083918336752D-01
        xs( 62) = 0.1717991187271450D-01
        xs( 63) = 0.1872675271048266D-01
        xs( 64) = 0.2048717722293539D-01
        xs( 65) = 0.2250718835940369D-01
        xs( 66) = 0.2484686446642736D-01
        xs( 67) = 0.2758615887854902D-01
        xs( 68) = 0.3083369633644095D-01
        xs( 69) = 0.3474010210031475D-01
        xs( 70) = 0.3951733043224785D-01
        xs( 71) = 0.4546315515664996D-01
        xs( 72) = 0.5298200090274868D-01
        xs( 73) = 0.6257376387250815D-01
        xs( 74) = 0.7473359464122223D-01
        xs( 75) = 0.8972538273950879D-01
        xs( 76) = 0.1073437603767126D+00
        xs( 77) = 0.1269222110537102D+00
        xs( 78) = 0.1476422280289264D+00
        xs( 79) = 0.1688442877886733D+00
        xs( 80) = 0.1901213887360342D+00
        xs( 81) = 0.2112191474261216D+00
        xs( 82) = 0.2315776352238467D+00
        ws(  1) = 0.2869221971291442D-05
        ws(  2) = 0.6681066892354504D-05
        ws(  3) = 0.1050360901432082D-04
        ws(  4) = 0.1433488187148650D-04
        ws(  5) = 0.1817805150326217D-04
        ws(  6) = 0.2203708307716012D-04
        ws(  7) = 0.2591654904366302D-04
        ws(  8) = 0.2982164808756889D-04
        ws(  9) = 0.3375823507532297D-04
        ws( 10) = 0.3773284175888575D-04
        ws( 11) = 0.4175268890346815D-04
        ws( 12) = 0.4582569362089173D-04
        ws( 13) = 0.4996047597562067D-04
        ws( 14) = 0.5416636868106591D-04
        ws( 15) = 0.5845343286009370D-04
        ws( 16) = 0.6283248220226917D-04
        ws( 17) = 0.6731511744683426D-04
        ws( 18) = 0.7191377260959420D-04
        ws( 19) = 0.7664177422420009D-04
        ws( 20) = 0.8151341457401427D-04
        ws( 21) = 0.8654404024904167D-04
        ws( 22) = 0.9175015712456460D-04
        ws( 23) = 0.9714955331130479D-04
        ws( 24) = 0.1027614419716588D-03
        ws( 25) = 0.1086066261337277D-03
        ws( 26) = 0.1147076882099111D-03
        ws( 27) = 0.1210892075627531D-03
        ws( 28) = 0.1277780100391518D-03
        ws( 29) = 0.1348034542569304D-03
        ws( 30) = 0.1421977603757063D-03
        ws( 31) = 0.1499963885766055D-03
        ws( 32) = 0.1582384751129489D-03
        ws( 33) = 0.1669673362527360D-03
        ws( 34) = 0.1762310526800739D-03
        ws( 35) = 0.1860831480014433D-03
        ws( 36) = 0.1965833803946894D-03
        ws( 37) = 0.2077986687521714D-03
        ws( 38) = 0.2198041792436182D-03
        ws( 39) = 0.2326846062097047D-03
        ws( 40) = 0.2465356873157914D-03
        ws( 41) = 0.2614660020962503D-03
        ws( 42) = 0.2775991179947107D-03
        ws( 43) = 0.2950761605854952D-03
        ws( 44) = 0.3140589073921532D-03
        ws( 45) = 0.3347335280181343D-03
        ws( 46) = 0.3573151331510171D-03
        ws( 47) = 0.3820533332654486D-03
        ws( 48) = 0.4092390687007054D-03
        ws( 49) = 0.4392130638459553D-03
        ws( 50) = 0.4723763399184553D-03
        ws( 51) = 0.5092033986240957D-03
        ws( 52) = 0.5502588605682978D-03
        ws( 53) = 0.5962186339723763D-03
        ws( 54) = 0.6478970759664254D-03
        ws( 55) = 0.7062821621279036D-03
        ws( 56) = 0.7725814595583082D-03
        ws( 57) = 0.8482829022928720D-03
        ws( 58) = 0.9352360268707524D-03
        ws( 59) = 0.1035762035180749D-02
        ws( 60) = 0.1152804992242068D-02
        ws( 61) = 0.1290142858730587D-02
        ws( 62) = 0.1452687575318887D-02
        ws( 63) = 0.1646919902281344D-02
        ws( 64) = 0.1881533069641063D-02
        ws( 65) = 0.2168408126226354D-02
        ws( 66) = 0.2524126824951208D-02
        ws( 67) = 0.2972348213308912D-02
        ws( 68) = 0.3547508880126081D-02
        ws( 69) = 0.4300203506934152D-02
        ws( 70) = 0.5303475156655384D-02
        ws( 71) = 0.6655617145617702D-02
        ws( 72) = 0.8466901881149378D-02
        ws( 73) = 0.1080316719698154D-01
        ws( 74) = 0.1356524310437456D-01
        ws( 75) = 0.1638423409294616D-01
        ws( 76) = 0.1873527220413517D-01
        ws( 77) = 0.2027941664593158D-01
        ws( 78) = 0.2104952948124938D-01
        ws( 79) = 0.2128799303222483D-01
        ws( 80) = 0.2124379924887868D-01
        ws( 81) = 0.2101024153905944D-01
        ws( 82) = 0.1914064782630427D-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 =  87
        err = 0.5913653862176218D-10
        xs(  1) = 0.9844615900424667D-06
        xs(  2) = 0.5187731243006772D-05
        xs(  3) = 0.1275247111716456D-04
        xs(  4) = 0.2368518743825626D-04
        xs(  5) = 0.3799336004551107D-04
        xs(  6) = 0.5568706887079591D-04
        xs(  7) = 0.7677949544864665D-04
        xs(  8) = 0.1012873755868052D-03
        xs(  9) = 0.1292314716460398D-03
        xs( 10) = 0.1606370640696458D-03
        xs( 11) = 0.1955344548461818D-03
        xs( 12) = 0.2339594768346383D-03
        xs( 13) = 0.2759540055604579D-03
        xs( 14) = 0.3215664728588495D-03
        xs( 15) = 0.3708523841729324D-03
        xs( 16) = 0.4238748432860034D-03
        xs( 17) = 0.4807050897815262D-03
        xs( 18) = 0.5414230557519949D-03
        xs( 19) = 0.6061179491837765D-03
        xs( 20) = 0.6748888721343407D-03
        xs( 21) = 0.7478454825051733D-03
        xs( 22) = 0.8251087087715838D-03
        xs( 23) = 0.9068115276989315D-03
        xs( 24) = 0.9930998158515112D-03
        xs( 25) = 0.1084133286609875D-02
        xs( 26) = 0.1180086525430020D-02
        xs( 27) = 0.1281150137527629D-02
        xs( 28) = 0.1387532023705684D-02
        xs( 29) = 0.1499458801989082D-02
        xs( 30) = 0.1617177395101696D-02
        xs( 31) = 0.1740956806496029D-02
        xs( 32) = 0.1871090111098078D-02
        xs( 33) = 0.2007896690781926D-02
        xs( 34) = 0.2151724749161742D-02
        xs( 35) = 0.2302954146125068D-02
        xs( 36) = 0.2461999598899137D-02
        xs( 37) = 0.2629314304626707D-02
        xs( 38) = 0.2805394048748085D-02
        xs( 39) = 0.2990781875058528D-02
        xs( 40) = 0.3186073406948945D-02
        xs( 41) = 0.3391922926231260D-02
        xs( 42) = 0.3609050335980806D-02
        xs( 43) = 0.3838249158461915D-02
        xs( 44) = 0.4080395749489844D-02
        xs( 45) = 0.4336459947936132D-02
        xs( 46) = 0.4607517424273129D-02
        xs( 47) = 0.4894764049352277D-02
        xs( 48) = 0.5199532675916216D-02
        xs( 49) = 0.5523312813308674D-02
        xs( 50) = 0.5867773788717541D-02
        xs( 51) = 0.6234792131505930D-02
        xs( 52) = 0.6626484097614290D-02
        xs( 53) = 0.7045244485169548D-02
        xs( 54) = 0.7493793196875042D-02
        xs( 55) = 0.7975231397480072D-02
        xs( 56) = 0.8493109635377581D-02
        xs( 57) = 0.9051510989617080D-02
        xs( 58) = 0.9655153220321682D-02
        xs( 59) = 0.1030951515619719D-01
        xs( 60) = 0.1102099425769759D-01
        xs( 61) = 0.1179710465135182D-01
        xs( 62) = 0.1264672825643288D-01
        xs( 63) = 0.1358043631185690D-01
        xs( 64) = 0.1461090540824412D-01
        xs( 65) = 0.1575346210399971D-01
        xs( 66) = 0.1702680504951948D-01
        xs( 67) = 0.1845397634597301D-01
        xs( 68) = 0.2006368929465624D-01
        xs( 69) = 0.2189217591179221D-01
        xs( 70) = 0.2398580838993971D-01
        xs( 71) = 0.2640489994540155D-01
        xs( 72) = 0.2922933928963892D-01
        xs( 73) = 0.3256708675192462D-01
        xs( 74) = 0.3656698181096443D-01
        xs( 75) = 0.4143723464764771D-01
        xs( 76) = 0.4746878401085851D-01
        xs( 77) = 0.5505568075775888D-01
        xs( 78) = 0.6468807488693051D-01
        xs( 79) = 0.7686660194309099D-01
        xs( 80) = 0.9189527262219413D-01
        xs( 81) = 0.1096396980167530D+00
        xs( 82) = 0.1294943265493937D+00
        xs( 83) = 0.1506535276261446D+00
        xs( 84) = 0.1724294599186062D+00
        xs( 85) = 0.1943745736632714D+00
        xs( 86) = 0.2162147048899202D+00
        xs( 87) = 0.2372835315408090D+00
        ws(  1) = 0.2526521531622375D-05
        ws(  2) = 0.5882766572814514D-05
        ws(  3) = 0.9247665072698475D-05
        ws(  4) = 0.1261900046294531D-04
        ws(  5) = 0.1599901714565186D-04
        ws(  6) = 0.1939058994755555D-04
        ws(  7) = 0.2279704462560133D-04
        ws(  8) = 0.2622216783531690D-04
        ws(  9) = 0.2967022928601825D-04
        ws( 10) = 0.3314599739448310D-04
        ws( 11) = 0.3665474777017398D-04
        ws( 12) = 0.4020226690653905D-04
        ws( 13) = 0.4379485390461456D-04
        ws( 14) = 0.4743932286414910D-04
        ws( 15) = 0.5114300811985416D-04
        ws( 16) = 0.5491377411107028D-04
        ws( 17) = 0.5876003119343083D-04
        ws( 18) = 0.6269075846276958D-04
        ws( 19) = 0.6671553439890585D-04
        ws( 20) = 0.7084457593219323D-04
        ws( 21) = 0.7508878662231150D-04
        ws( 22) = 0.7945981453951282D-04
        ws( 23) = 0.8397012048726188D-04
        ws( 24) = 0.8863305749575186D-04
        ws( 25) = 0.9346296250738883D-04
        ws( 26) = 0.9847526144601772D-04
        ws( 27) = 0.1036865892353670D-03
        ws( 28) = 0.1091149263873598D-03
        ws( 29) = 0.1147797544281189D-03
        ws( 30) = 0.1207022325993775D-03
        ws( 31) = 0.1269053988341487D-03
        ws( 32) = 0.1334143988646794D-03
        ws( 33) = 0.1402567473054593D-03
        ws( 34) = 0.1474626262150226D-03
        ws( 35) = 0.1550652270267258D-03
        ws( 36) = 0.1631011430858452D-03
        ws( 37) = 0.1716108216524082D-03
        ws( 38) = 0.1806390854538642D-03
        ws( 39) = 0.1902357367170935D-03
        ws( 40) = 0.2004562583431052D-03
        ws( 41) = 0.2113626311992392D-03
        ws( 42) = 0.2230242889560347D-03
        ws( 43) = 0.2355192384410154D-03
        ws( 44) = 0.2489353783761206D-03
        ws( 45) = 0.2633720583766945D-03
        ws( 46) = 0.2789419275469006D-03
        ws( 47) = 0.2957731382186150D-03
        ws( 48) = 0.3140119821908172D-03
        ws( 49) = 0.3338260595436195D-03
        ws( 50) = 0.3554081068117456D-03
        ws( 51) = 0.3789806445889400D-03
        ws( 52) = 0.4048016489616121D-03
        ws( 53) = 0.4331715128714626D-03
        ws( 54) = 0.4644416431817990D-03
        ws( 55) = 0.4990251396358976D-03
        ws( 56) = 0.5374101591219188D-03
        ws( 57) = 0.5801767525349774D-03
        ws( 58) = 0.6280182426598580D-03
        ws( 59) = 0.6817686014652880D-03
        ws( 60) = 0.7424378109425519D-03
        ws( 61) = 0.8112579935440276D-03
        ws( 62) = 0.8897442353224789D-03
        ws( 63) = 0.9797756770785532D-03
        ws( 64) = 0.1083705072719054D-02
        ws( 65) = 0.1204508818414349D-02
        ws( 66) = 0.1345995669807991D-02
        ws( 67) = 0.1513102263886754D-02
        ws( 68) = 0.1712319537536277D-02
        ws( 69) = 0.1952320553887305D-02
        ws( 70) = 0.2244905096125667D-02
        ws( 71) = 0.2606454766196059D-02
        ws( 72) = 0.3060207856501213D-02
        ws( 73) = 0.3639785397487039D-02
        ws( 74) = 0.4394301743343188D-02
        ws( 75) = 0.5394303033336629D-02
        ws( 76) = 0.6734459302646472D-02
        ws( 77) = 0.8522291041138221D-02
        ws( 78) = 0.1082954717431984D-01
        ws( 79) = 0.1358294451311999D-01
        ws( 80) = 0.1645292875204395D-01
        ws( 81) = 0.1892962053423171D-01
        ws( 82) = 0.2063936960956563D-01
        ws( 83) = 0.2156254436734205D-01
        ws( 84) = 0.2191590625898186D-01
        ws( 85) = 0.2194158111707331D-01
        ws( 86) = 0.2177790838803465D-01
        ws( 87) = 0.1946082257958239D-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 =  91
        err = 0.8191851892015411D-10
        xs(  1) = 0.8802311457358468D-06
        xs(  2) = 0.4638345304631949D-05
        xs(  3) = 0.1140138540808076D-04
        xs(  4) = 0.2117422832679671D-04
        xs(  5) = 0.3396217542706965D-04
        xs(  6) = 0.4977237775771378D-04
        xs(  7) = 0.6861424839514894D-04
        xs(  8) = 0.9049982533395480D-04
        xs(  9) = 0.1154441471785685D-03
        xs( 10) = 0.1434656421241583D-03
        xs( 11) = 0.1745865241627202D-03
        xs( 12) = 0.2088331911843814D-03
        xs( 13) = 0.2462366216620517D-03
        xs( 14) = 0.2868327687563552D-03
        xs( 15) = 0.3306629524821129D-03
        xs( 16) = 0.3777742522044014D-03
        xs( 17) = 0.4282199027836678D-03
        xs( 18) = 0.4820596986616838D-03
        xs( 19) = 0.5393604107911709D-03
        xs( 20) = 0.6001962218479323D-03
        xs( 21) = 0.6646491854795830D-03
        xs( 22) = 0.7328097156913665D-03
        xs( 23) = 0.8047771128584487D-03
        xs( 24) = 0.8806601331213586D-03
        xs( 25) = 0.9605776084026516D-03
        xs( 26) = 0.1044659124803447D-02
        xs( 27) = 0.1133045767732305D-02
        xs( 28) = 0.1225890942954450D-02
        xs( 29) = 0.1323361283610008D-02
        xs( 30) = 0.1425637654481225D-02
        xs( 31) = 0.1532916266041203D-02
        xs( 32) = 0.1645409912362384D-02
        xs( 33) = 0.1763349349111144D-02
        xs( 34) = 0.1886984829777376D-02
        xs( 35) = 0.2016587821008056D-02
        xs( 36) = 0.2152452921180587D-02
        xs( 37) = 0.2294900009762913D-02
        xs( 38) = 0.2444276659543731D-02
        xs( 39) = 0.2600960848714199D-02
        xs( 40) = 0.2765364016187855D-02
        xs( 41) = 0.2937934510367305D-02
        xs( 42) = 0.3119161490601047D-02
        xs( 43) = 0.3309579350632819D-02
        xs( 44) = 0.3509772745833834D-02
        xs( 45) = 0.3720382321112692D-02
        xs( 46) = 0.3942111254316749D-02
        xs( 47) = 0.4175732752101723D-02
        xs( 48) = 0.4422098661897516D-02
        xs( 49) = 0.4682149396524444D-02
        xs( 50) = 0.4956925409092765D-02
        xs( 51) = 0.5247580504573038D-02
        xs( 52) = 0.5555397337872704D-02
        xs( 53) = 0.5881805525567976D-02
        xs( 54) = 0.6228402895841874D-02
        xs( 55) = 0.6596980524733320D-02
        xs( 56) = 0.6989552364172726D-02
        xs( 57) = 0.7408390469064641D-02
        xs( 58) = 0.7856067085461904D-02
        xs( 59) = 0.8335505206608243D-02
        xs( 60) = 0.8850039633897454D-02
        xs( 61) = 0.9403491170968174D-02
        xs( 62) = 0.1000025734980461D-01
        xs( 63) = 0.1064542412712557D-01
        xs( 64) = 0.1134490441617220D-01
        xs( 65) = 0.1210561126339077D-01
        xs( 66) = 0.1293567620329022D-01
        xs( 67) = 0.1384472717178164D-01
        xs( 68) = 0.1484424586420839D-01
        xs( 69) = 0.1594803249048450D-01
        xs( 70) = 0.1717281780690740D-01
        xs( 71) = 0.1853908054865753D-01
        xs( 72) = 0.2007215662309859D-01
        xs( 73) = 0.2180377144561683D-01
        xs( 74) = 0.2377419921187647D-01
        xs( 75) = 0.2603537427850363D-01
        xs( 76) = 0.2865548666740024D-01
        xs( 77) = 0.3172593221981882D-01
        xs( 78) = 0.3537196601542668D-01
        xs( 79) = 0.3976874868855907D-01
        xs( 80) = 0.4516370557543470D-01
        xs( 81) = 0.5190212609754352D-01
        xs( 82) = 0.6044248979922214D-01
        xs( 83) = 0.7132582649135670D-01
        xs( 84) = 0.8504061657334663D-01
        xs( 85) = 0.1017717559627472D+00
        xs( 86) = 0.1211913319213676D+00
        xs( 87) = 0.1425395588658120D+00
        xs( 88) = 0.1649710385238295D+00
        xs( 89) = 0.1878345611685447D+00
        xs( 90) = 0.2107103889512814D+00
        xs( 91) = 0.2327992251592675D+00
        ws(  1) = 0.2259009577643236D-05
        ws(  2) = 0.5259590808192291D-05
        ws(  3) = 0.8267184112742856D-05
        ws(  4) = 0.1127937348361574D-04
        ws(  5) = 0.1429770637491584D-04
        ws(  6) = 0.1732426114619883D-04
        ws(  7) = 0.2036148018906360D-04
        ws(  8) = 0.2341217362350433D-04
        ws(  9) = 0.2647953481540910D-04
        ws( 10) = 0.2956715076528626D-04
        ws( 11) = 0.3267900634626663D-04
        ws( 12) = 0.3581948420885727D-04
        ws( 13) = 0.3899336241296852D-04
        ws( 14) = 0.4220581190936181D-04
        ws( 15) = 0.4546239550800226D-04
        ws( 16) = 0.4876906969026201D-04
        ws( 17) = 0.5213219027732210D-04
        ws( 18) = 0.5555852272967300D-04
        ws( 19) = 0.5905525766849888D-04
        ws( 20) = 0.6263003191513659D-04
        ws( 21) = 0.6629095559244255D-04
        ws( 22) = 0.7004664542175681D-04
        ws( 23) = 0.7390626462766472D-04
        ws( 24) = 0.7787956992842161D-04
        ws( 25) = 0.8197696591796260D-04
        ws( 26) = 0.8620956746174898D-04
        ws( 27) = 0.9058927093630054D-04
        ws( 28) = 0.9512883498697794D-04
        ws( 29) = 0.9984197191838085D-04
        ws( 30) = 0.1047434509803638D-03
        ws( 31) = 0.1098492148958581D-03
        ws( 32) = 0.1151765114702052D-03
        ws( 33) = 0.1207440424110182D-03
        ws( 34) = 0.1265721314509804D-03
        ws( 35) = 0.1326829149948171D-03
        ws( 36) = 0.1391005584770148D-03
        ws( 37) = 0.1458515023905183D-03
        ws( 38) = 0.1529647427331725D-03
        ws( 39) = 0.1604721514209268D-03
        ws( 40) = 0.1684088433990744D-03
        ws( 41) = 0.1768135979862959D-03
        ws( 42) = 0.1857293445478180D-03
        ws( 43) = 0.1952037228840046D-03
        ws( 44) = 0.2052897329374072D-03
        ws( 45) = 0.2160464893828061D-03
        ws( 46) = 0.2275401017350066D-03
        ws( 47) = 0.2398447035649010D-03
        ws( 48) = 0.2530436609210382D-03
        ws( 49) = 0.2672309961611631D-03
        ws( 50) = 0.2825130725119823D-03
        ws( 51) = 0.2990105936506539D-03
        ws( 52) = 0.3168609897442312D-03
        ws( 53) = 0.3362212749758037D-03
        ws( 54) = 0.3572714868382233D-03
        ws( 55) = 0.3802188454207861D-03
        ws( 56) = 0.4053028116411958D-03
        ws( 57) = 0.4328012679707860D-03
        ws( 58) = 0.4630381188915460D-03
        ws( 59) = 0.4963926950477387D-03
        ws( 60) = 0.5333114584489216D-03
        ws( 61) = 0.5743226898526671D-03
        ws( 62) = 0.6200550367094929D-03
        ws( 63) = 0.6712611418442729D-03
        ws( 64) = 0.7288480049931693D-03
        ws( 65) = 0.7939163596635394D-03
        ws( 66) = 0.8678122853117604D-03
        ws( 67) = 0.9521956140821925D-03
        ws( 68) = 0.1049131739941237D-02
        ws( 69) = 0.1161216547195933D-02
        ws( 70) = 0.1291749024479096D-02
        ws( 71) = 0.1444974038223345D-02
        ws( 72) = 0.1626430433091515D-02
        ws( 73) = 0.1843460936714170D-02
        ws( 74) = 0.2105975727793279D-02
        ws( 75) = 0.2427626797146596D-02
        ws( 76) = 0.2827657416428853D-02
        ws( 77) = 0.3333845538125986D-02
        ws( 78) = 0.3987037848043307D-02
        ws( 79) = 0.4847310993909453D-02
        ws( 80) = 0.5999816664928517D-02
        ws( 81) = 0.7553784757400471D-02
        ws( 82) = 0.9619267022632719D-02
        ws( 83) = 0.1223338709516981D-01
        ws( 84) = 0.1523129434855510D-01
        ws( 85) = 0.1817498735129083D-01
        ws( 86) = 0.2053064670382988D-01
        ws( 87) = 0.2201983438569326D-01
        ws( 88) = 0.2273470948260152D-01
        ws( 89) = 0.2292995001545409D-01
        ws( 90) = 0.2278545768204152D-01
        ws( 91) = 0.2112503968924079D-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 =  34
        err = 0.1653177853722920D-10
        xs(  1) = 0.2356209658721238D-03
        xs(  2) = 0.1239399636543369D-02
        xs(  3) = 0.3033541103488814D-02
        xs(  4) = 0.5590403621115026D-02
        xs(  5) = 0.8863931427599361D-02
        xs(  6) = 0.1279614861368088D-01
        xs(  7) = 0.1732539979309180D-01
        xs(  8) = 0.2239231472333094D-01
        xs(  9) = 0.2794275409243026D-01
        xs( 10) = 0.3392865885856307D-01
        xs( 11) = 0.4030783708892752D-01
        xs( 12) = 0.4704335425462979D-01
        xs( 13) = 0.5410285784329492D-01
        xs( 14) = 0.6145796575042754D-01
        xs( 15) = 0.6908374998498043D-01
        xs( 16) = 0.7695830874592625D-01
        xs( 17) = 0.8506240971051703D-01
        xs( 18) = 0.9337918952546033D-01
        xs( 19) = 0.1018938983635417D+00
        xs( 20) = 0.1105936730683369D+00
        xs( 21) = 0.1194673672439699D+00
        xs( 22) = 0.1285053923747451D+00
        xs( 23) = 0.1376994776201204D+00
        xs( 24) = 0.1470428713512764D+00
        xs( 25) = 0.1565298780973575D+00
        xs( 26) = 0.1661567197401990D+00
        xs( 27) = 0.1759155375219245D+00
        xs( 28) = 0.1858180101178318D+00
        xs( 29) = 0.1958425746481395D+00
        xs( 30) = 0.2060058919619360D+00
        xs( 31) = 0.2162085055506815D+00
        xs( 32) = 0.2270848323966474D+00
        xs( 33) = 0.2368200699329277D+00
        xs( 34) = 0.2597543191009801D+00
        ws(  1) = 0.6044816917950780D-03
        ws(  2) = 0.1401894043699622D-02
        ws(  3) = 0.2181775578760791D-02
        ws(  4) = 0.2924150865242065D-02
        ws(  5) = 0.3613094325916811D-02
        ws(  6) = 0.4240964032170889D-02
        ws(  7) = 0.4807597007287258D-02
        ws(  8) = 0.5317198072865844D-02
        ws(  9) = 0.5775675922444204D-02
        ws( 10) = 0.6189112510802624D-02
        ws( 11) = 0.6563099718855026D-02
        ws( 12) = 0.6902552773229575D-02
        ws( 13) = 0.7211732630936927D-02
        ws( 14) = 0.7494335610764450D-02
        ws( 15) = 0.7753588451560258D-02
        ws( 16) = 0.7992328633109351D-02
        ws( 17) = 0.8213067363531317D-02
        ws( 18) = 0.8418036590503365D-02
        ws( 19) = 0.8609239745831150D-02
        ws( 20) = 0.8788466006134504D-02
        ws( 21) = 0.8957302874185821D-02
        ws( 22) = 0.9117336425525488D-02
        ws( 23) = 0.9269933540873566D-02
        ws( 24) = 0.9415710189874957D-02
        ws( 25) = 0.9556928395201779D-02
        ws( 26) = 0.9696535034790054D-02
        ws( 27) = 0.9829106768641464D-02
        ws( 28) = 0.9950489448789592D-02
        ws( 29) = 0.1009502102272716D-01
        ws( 30) = 0.1039903341147049D-01
        ws( 31) = 0.9824701571549055D-02
        ws( 32) = 0.1087536637272412D-01
        ws( 33) = 0.1303652474617603D-01
        ws( 34) = 0.3401575317274952D-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 =  32
        err = 0.6103515585792664D-10
        xs(  1) = 0.2473473968137705D-03
        xs(  2) = 0.1302234830830549D-02
        xs(  3) = 0.3190789144235455D-02
        xs(  4) = 0.5885046184008435D-02
        xs(  5) = 0.9334517805896348D-02
        xs(  6) = 0.1347443960618638D-01
        xs(  7) = 0.1823618177142001D-01
        xs(  8) = 0.2355427583246301D-01
        xs(  9) = 0.2936952167124494D-01
        xs( 10) = 0.3562967293153200D-01
        xs( 11) = 0.4228905348409734D-01
        xs( 12) = 0.4930784986978775D-01
        xs( 13) = 0.5665138959870696D-01
        xs( 14) = 0.6428949933616890D-01
        xs( 15) = 0.7219595349815724D-01
        xs( 16) = 0.8034800066935363D-01
        xs( 17) = 0.8872595474965489D-01
        xs( 18) = 0.9731283856769848D-01
        xs( 19) = 0.1060940798655091D+00
        xs( 20) = 0.1150572670068035D+00
        xs( 21) = 0.1241918452980241D+00
        xs( 22) = 0.1334891116595155D+00
        xs( 23) = 0.1429422140631354D+00
        xs( 24) = 0.1525448821629140D+00
        xs( 25) = 0.1622917594360890D+00
        xs( 26) = 0.1721877828926939D+00
        xs( 27) = 0.1822296583028603D+00
        xs( 28) = 0.1923488867654857D+00
        xs( 29) = 0.2027762740675421D+00
        xs( 30) = 0.2133197973590036D+00
        xs( 31) = 0.2231958234090076D+00
        xs( 32) = 0.2467026943505311D+00
        ws(  1) = 0.6347164562144344D-03
        ws(  2) = 0.1474366525914539D-02
        ws(  3) = 0.2298098324135330D-02
        ws(  4) = 0.3081840146918790D-02
        ws(  5) = 0.3806121693168720D-02
        ws(  6) = 0.4462167000448247D-02
        ws(  7) = 0.5050358517211364D-02
        ws(  8) = 0.5575954800199385D-02
        ws(  9) = 0.6045837212412925D-02
        ws( 10) = 0.6466865058324652D-02
        ws( 11) = 0.6845272672502999D-02
        ws( 12) = 0.7186552051510065D-02
        ws( 13) = 0.7495507670281007D-02
        ws( 14) = 0.7776348726174230D-02
        ws( 15) = 0.8032774524518558D-02
        ws( 16) = 0.8268044669202362D-02
        ws( 17) = 0.8485038410908799D-02
        ws( 18) = 0.8686309280658208D-02
        ws( 19) = 0.8874097113467733D-02
        ws( 20) = 0.9050511993633523D-02
        ws( 21) = 0.9217321447249941D-02
        ws( 22) = 0.9375927922635927D-02
        ws( 23) = 0.9528152438650158D-02
        ws( 24) = 0.9680145711149678D-02
        ws( 25) = 0.9814863066131231D-02
        ws( 26) = 0.9952534371289679D-02
        ws( 27) = 0.1014067918577429D-01
        ws( 28) = 0.1029844783797955D-01
        ws( 29) = 0.9934884731409084D-02
        ws( 30) = 0.1153827224165364D-01
        ws( 31) = 0.1144340048922364D-01
        ws( 32) = 0.3762990552579280D-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 =  31
        err = 0.5665419148006621D-10
        xs(  1) = 0.2453152008504541D-03
        xs(  2) = 0.1294726749797825D-02
        xs(  3) = 0.3183727310339858D-02
        xs(  4) = 0.5894127606084872D-02
        xs(  5) = 0.9380378686675970D-02
        xs(  6) = 0.1357777358164911D-01
        xs(  7) = 0.1841505954868943D-01
        xs(  8) = 0.2382332189840582D-01
        xs(  9) = 0.2974002293393770D-01
        xs( 10) = 0.3611001790502898D-01
        xs( 11) = 0.4288524022168160D-01
        xs( 12) = 0.5002397297416245D-01
        xs( 13) = 0.5749007987951743D-01
        xs( 14) = 0.6525230872393867D-01
        xs( 15) = 0.7328368414935203D-01
        xs( 16) = 0.8156098097642293D-01
        xs( 17) = 0.9006426736370238D-01
        xs( 18) = 0.9877651369480463D-01
        xs( 19) = 0.1076832389699684D+00
        xs( 20) = 0.1167722967219233D+00
        xs( 21) = 0.1260335169669226D+00
        xs( 22) = 0.1354585313634205D+00
        xs( 23) = 0.1450413564142823D+00
        xs( 24) = 0.1547775609335530D+00
        xs( 25) = 0.1646582700912431D+00
        xs( 26) = 0.1747002771080692D+00
        xs( 27) = 0.1848643054701946D+00
        xs( 28) = 0.1952561340491625D+00
        xs( 29) = 0.2057146536917075D+00
        xs( 30) = 0.2161128380672538D+00
        xs( 31) = 0.2389491217066918D+00
        ws(  1) = 0.6298964431066745D-03
        ws(  2) = 0.1469983440365453D-02
        ws(  3) = 0.2305092002965245D-02
        ws(  4) = 0.3107947351628149D-02
        ws(  5) = 0.3853539672076666D-02
        ws(  6) = 0.4529226441361507D-02
        ws(  7) = 0.5133797883417913D-02
        ws(  8) = 0.5672291076555225D-02
        ws(  9) = 0.6151927491081864D-02
        ws( 10) = 0.6580064263881010D-02
        ws( 11) = 0.6963440576886255D-02
        ws( 12) = 0.7308013839486856D-02
        ws( 13) = 0.7619001362465575D-02
        ws( 14) = 0.7900969182609604D-02
        ws( 15) = 0.8157918368783747D-02
        ws( 16) = 0.8393360096553474D-02
        ws( 17) = 0.8610379052520035D-02
        ws( 18) = 0.8811705110004139D-02
        ws( 19) = 0.8999745231062006D-02
        ws( 20) = 0.9176562600557688D-02
        ws( 21) = 0.9344755789034719D-02
        ws( 22) = 0.9504288862981478D-02
        ws( 23) = 0.9659191214075571D-02
        ws( 24) = 0.9812507587351537D-02
        ws( 25) = 0.9963044549517122D-02
        ws( 26) = 0.1008940231845771D-01
        ws( 27) = 0.1026916623901763D-01
        ws( 28) = 0.1038207832403938D-01
        ws( 29) = 0.1067846521238229D-01
        ws( 30) = 0.1256377780390403D-01
        ws( 31) = 0.3484142728865211D-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 =  32
        err = 0.3296869335065833D-10
        xs(  1) = 0.2142778251977416D-03
        xs(  2) = 0.1136198114819947D-02
        xs(  3) = 0.2815518855630288D-02
        xs(  4) = 0.5262720155948259D-02
        xs(  5) = 0.8461389745180648D-02
        xs(  6) = 0.1236856052494514D-01
        xs(  7) = 0.1692564460768062D-01
        xs(  8) = 0.2206958293535095D-01
        xs(  9) = 0.2773969873263751D-01
        xs( 10) = 0.3388067538801278D-01
        xs( 11) = 0.4044333595774744D-01
        xs( 12) = 0.4738446875619892D-01
        xs( 13) = 0.5466632990209916D-01
        xs( 14) = 0.6225607797511450D-01
        xs( 15) = 0.7012522696357243D-01
        xs( 16) = 0.7824914223479718D-01
        xs( 17) = 0.8660658599514685D-01
        xs( 18) = 0.9517931464921475D-01
        xs( 19) = 0.1039517191029956D+00
        xs( 20) = 0.1129105588611286D+00
        xs( 21) = 0.1220446095735984D+00
        xs( 22) = 0.1313446418433616D+00
        xs( 23) = 0.1408030391864444D+00
        xs( 24) = 0.1504145037036529D+00
        xs( 25) = 0.1601718941995703D+00
        xs( 26) = 0.1700784462272366D+00
        xs( 27) = 0.1801288347620841D+00
        xs( 28) = 0.1903137948612031D+00
        xs( 29) = 0.2007031513881806D+00
        xs( 30) = 0.2110847001315880D+00
        xs( 31) = 0.2218205902466272D+00
        xs( 32) = 0.2440209561877574D+00
        ws(  1) = 0.5508176872741232D-03
        ws(  2) = 0.1297197715213621D-02
        ws(  3) = 0.2063483021262073D-02
        ws(  4) = 0.2828157132834046D-02
        ws(  5) = 0.3561809347593701D-02
        ws(  6) = 0.4242572418078497D-02
        ws(  7) = 0.4860974392491696D-02
        ws(  8) = 0.5416744391545574D-02
        ws(  9) = 0.5914257725535573D-02
        ws( 10) = 0.6359503716778377D-02
        ws( 11) = 0.6758624290486112D-02
        ws( 12) = 0.7117360248031234D-02
        ws( 13) = 0.7440897637090044D-02
        ws( 14) = 0.7733859248268161D-02
        ws( 15) = 0.8000340530554536D-02
        ws( 16) = 0.8243957209625641D-02
        ws( 17) = 0.8467894936227923D-02
        ws( 18) = 0.8674967391010585D-02
        ws( 19) = 0.8867643136115211D-02
        ws( 20) = 0.9048127648489834D-02
        ws( 21) = 0.9218557746923321D-02
        ws( 22) = 0.9380173489001878D-02
        ws( 23) = 0.9535320060550504D-02
        ws( 24) = 0.9686708227024922D-02
        ws( 25) = 0.9831843134632303D-02
        ws( 26) = 0.9976421436741514D-02
        ws( 27) = 0.1010742517373770D-01
        ws( 28) = 0.1030681421123340D-01
        ws( 29) = 0.1035850204705065D-01
        ws( 30) = 0.1071180023627305D-01
        ws( 31) = 0.1228774567503294D-01
        ws( 32) = 0.3552869449830650D-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 =  32
        err = 0.8479212771218534D-10
        xs(  1) = 0.1182167043987885D-03
        xs(  2) = 0.7024574237129906D-03
        xs(  3) = 0.1915688248484649D-02
        xs(  4) = 0.3839169992375754D-02
        xs(  5) = 0.6505806787657268D-02
        xs(  6) = 0.9908607801139314D-02
        xs(  7) = 0.1400778328071084D-01
        xs(  8) = 0.1874426464568622D-01
        xs(  9) = 0.2405224301893568D-01
        xs( 10) = 0.2986693086171218D-01
        xs( 11) = 0.3612814569192235D-01
        xs( 12) = 0.4278144231533171D-01
        xs( 13) = 0.4977810377589385D-01
        xs( 14) = 0.5707474278342415D-01
        xs( 15) = 0.6463293837581160D-01
        xs( 16) = 0.7241919405611799D-01
        xs( 17) = 0.8040542725514778D-01
        xs( 18) = 0.8857003895589501D-01
        xs( 19) = 0.9689924177794602D-01
        xs( 20) = 0.1053878089437489D+00
        xs( 21) = 0.1140380975402489D+00
        xs( 22) = 0.1228572936419794D+00
        xs( 23) = 0.1318531031611442D+00
        xs( 24) = 0.1410301927727194D+00
        xs( 25) = 0.1503920197147090D+00
        xs( 26) = 0.1599375209920575D+00
        xs( 27) = 0.1696514271870284D+00
        xs( 28) = 0.1795474907496134D+00
        xs( 29) = 0.1896641867150078D+00
        xs( 30) = 0.1998813081694340D+00
        xs( 31) = 0.2101843520356206D+00
        xs( 32) = 0.2319674555844978D+00
        ws(  1) = 0.3157103894000425D-03
        ws(  2) = 0.8797870462023539D-03
        ws(  3) = 0.1559453389600265D-02
        ws(  4) = 0.2292980853800122D-02
        ws(  5) = 0.3039010143000379D-02
        ws(  6) = 0.3759710499288694D-02
        ws(  7) = 0.4428578696500715D-02
        ws(  8) = 0.5033289538674968D-02
        ws(  9) = 0.5571814176970305D-02
        ws( 10) = 0.6047515319690131D-02
        ws( 11) = 0.6465841967848323D-02
        ws( 12) = 0.6832639363379963D-02
        ws( 13) = 0.7153459054403885D-02
        ws( 14) = 0.7433416697387374D-02
        ws( 15) = 0.7677383795772314D-02
        ws( 16) = 0.7890428629595264D-02
        ws( 17) = 0.8078413586712570D-02
        ws( 18) = 0.8248497506400743D-02
        ws( 19) = 0.8409047630401192D-02
        ws( 20) = 0.8568530805259038D-02
        ws( 21) = 0.8733393942052834D-02
        ws( 22) = 0.8905949231311707D-02
        ws( 23) = 0.9087237656498826D-02
        ws( 24) = 0.9267920415347948D-02
        ws( 25) = 0.9451360166265067D-02
        ws( 26) = 0.9635442532637196D-02
        ws( 27) = 0.9831004570855886D-02
        ws( 28) = 0.9950163055380752D-02
        ws( 29) = 0.1000733460854643D-01
        ws( 30) = 0.1063724844405352D-01
        ws( 31) = 0.1259447142643686D-01
        ws( 32) = 0.3189626762455881D-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 =  32
        err = 0.5239441350812110D-10
        xs(  1) = 0.1354081995564349D-03
        xs(  2) = 0.7271376705829972D-03
        xs(  3) = 0.1843842428308496D-02
        xs(  4) = 0.3559236075611642D-02
        xs(  5) = 0.5944494415595964D-02
        xs(  6) = 0.9041275866019339D-02
        xs(  7) = 0.1284989379153229D-01
        xs(  8) = 0.1733639569425268D-01
        xs(  9) = 0.2244763716681249D-01
        xs( 10) = 0.2812392278927913D-01
        xs( 11) = 0.3430638347437116D-01
        xs( 12) = 0.4094043602745793D-01
        xs( 13) = 0.4797709835573730D-01
        xs( 14) = 0.5537326595262903D-01
        xs( 15) = 0.6309150061352477D-01
        xs( 16) = 0.7109959286905027D-01
        xs( 17) = 0.7937003171729647D-01
        xs( 18) = 0.8787945806704366D-01
        xs( 19) = 0.9660814698496720D-01
        xs( 20) = 0.1055395477849464D+00
        xs( 21) = 0.1146598956982758D+00
        xs( 22) = 0.1239578026679197D+00
        xs( 23) = 0.1334245081992066D+00
        xs( 24) = 0.1430521487484873D+00
        xs( 25) = 0.1528364091524998D+00
        xs( 26) = 0.1627748260601348D+00
        xs( 27) = 0.1728660376863086D+00
        xs( 28) = 0.1831126838368641D+00
        xs( 29) = 0.1934722744862972D+00
        xs( 30) = 0.2040838655129648D+00
        xs( 31) = 0.2149848378267816D+00
        xs( 32) = 0.2258825420052115D+00
        ws(  1) = 0.3490937907817162D-03
        ws(  2) = 0.8431697095129992D-03
        ws(  3) = 0.1402973771494343D-02
        ws(  4) = 0.2040176905148029D-02
        ws(  5) = 0.2737489349075507D-02
        ws(  6) = 0.3455972773340198D-02
        ws(  7) = 0.4155325824071300D-02
        ws(  8) = 0.4808605566166123D-02
        ws(  9) = 0.5403809944041256D-02
        ws( 10) = 0.5938896617396606D-02
        ws( 11) = 0.6416908153239469D-02
        ws( 12) = 0.6843029859429217D-02
        ws( 13) = 0.7223114795688094D-02
        ws( 14) = 0.7562988284289720D-02
        ws( 15) = 0.7868121803908704D-02
        ws( 16) = 0.8143486769993158D-02
        ws( 17) = 0.8393506405392872D-02
        ws( 18) = 0.8622066497850330D-02
        ws( 19) = 0.8832561021759153D-02
        ws( 20) = 0.9027939929379293D-02
        ws( 21) = 0.9210906166088982D-02
        ws( 22) = 0.9383413750777485D-02
        ws( 23) = 0.9548363111135719D-02
        ws( 24) = 0.9707261304591172D-02
        ws( 25) = 0.9862154477905611D-02
        ws( 26) = 0.1000431240405598D-01
        ws( 27) = 0.1017244604287995D-01
        ws( 28) = 0.1039391258265286D-01
        ws( 29) = 0.1046788358824153D-01
        ws( 30) = 0.1006006561427317D-01
        ws( 31) = 0.9720214640558958D-02
        ws( 32) = 0.2206751773431259D-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 =  32
        err = 0.9932333926570156D-10
        xs(  1) = 0.1065296447117845D-03
        xs(  2) = 0.5731084519373320D-03
        xs(  3) = 0.1460190890276540D-02
        xs(  4) = 0.2845556578668561D-02
        xs(  5) = 0.4825525462908967D-02
        xs(  6) = 0.7488485709371416D-02
        xs(  7) = 0.1088524787912254D-01
        xs(  8) = 0.1501601819914927D-01
        xs(  9) = 0.1984011001311000D-01
        xs( 10) = 0.2529523749623719D-01
        xs( 11) = 0.3131317028573135D-01
        xs( 12) = 0.3782843534840552D-01
        xs( 13) = 0.4478203708368204D-01
        xs( 14) = 0.5212253545302342D-01
        xs( 15) = 0.5980590391999397D-01
        xs( 16) = 0.6779487956816890D-01
        xs( 17) = 0.7605814678110576D-01
        xs( 18) = 0.8456951856253510D-01
        xs( 19) = 0.9330719233844648D-01
        xs( 20) = 0.1022531079932878D+00
        xs( 21) = 0.1113924404906505D+00
        xs( 22) = 0.1207131050486152D+00
        xs( 23) = 0.1302056089578024D+00
        xs( 24) = 0.1398629779453293D+00
        xs( 25) = 0.1496789432633980D+00
        xs( 26) = 0.1596494143636583D+00
        xs( 27) = 0.1697905158655913D+00
        xs( 28) = 0.1800757012819790D+00
        xs( 29) = 0.1904419024586093D+00
        xs( 30) = 0.2011389017962553D+00
        xs( 31) = 0.2125784138292693D+00
        xs( 32) = 0.2228219539746922D+00
        ws(  1) = 0.2747392410044915D-03
        ws(  2) = 0.6662768628146289D-03
        ws(  3) = 0.1121048639190767D-02
        ws(  4) = 0.1666202587831804D-02
        ws(  5) = 0.2309021436016236D-02
        ws(  6) = 0.3025602254371208D-02
        ws(  7) = 0.3767751142014736D-02
        ws(  8) = 0.4486651788453548D-02
        ws(  9) = 0.5150885427017340D-02
        ws( 10) = 0.5747859469112329D-02
        ws( 11) = 0.6277037782980996D-02
        ws( 12) = 0.6743644992474398D-02
        ws( 13) = 0.7154989059790114D-02
        ws( 14) = 0.7518681496649066D-02
        ws( 15) = 0.7841858916848538D-02
        ws( 16) = 0.8130886926544198D-02
        ws( 17) = 0.8391295488857496D-02
        ws( 18) = 0.8627824840710193D-02
        ws( 19) = 0.8844522292693485D-02
        ws( 20) = 0.9044844747850410D-02
        ws( 21) = 0.9231787593889288D-02
        ws( 22) = 0.9408145517282125D-02
        ws( 23) = 0.9575103462224512D-02
        ws( 24) = 0.9738984148105857D-02
        ws( 25) = 0.9895811353742295D-02
        ws( 26) = 0.1004241542708019D-01
        ws( 27) = 0.1020319416941719D-01
        ws( 28) = 0.1042458481581382D-01
        ws( 29) = 0.1066047461993977D-01
        ws( 30) = 0.1005252157537515D-01
        ws( 31) = 0.9179784536083230D-02
        ws( 32) = 0.2302520071952074D-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 =  35
        err = 0.9253732791046666D-10
        xs(  1) = 0.5671821872589351D-04
        xs(  2) = 0.3034945385145172D-03
        xs(  3) = 0.7670059191613741D-03
        xs(  4) = 0.1483028311642090D-02
        xs(  5) = 0.2507352385658502D-02
        xs(  6) = 0.3918243009977132D-02
        xs(  7) = 0.5814416420603618D-02
        xs(  8) = 0.8303024338115621D-02
        xs(  9) = 0.1147522767019405D-01
        xs( 10) = 0.1537892080322645D-01
        xs( 11) = 0.2000745904407047D-01
        xs( 12) = 0.2531142469341990D-01
        xs( 13) = 0.3122053481682395D-01
        xs( 14) = 0.3766110114436269D-01
        xs( 15) = 0.4456512835224509D-01
        xs( 16) = 0.5187355106983918D-01
        xs( 17) = 0.5953656219360119D-01
        xs( 18) = 0.6751276885878545D-01
        xs( 19) = 0.7576799757842230D-01
        xs( 20) = 0.8427410397135386D-01
        xs( 21) = 0.9300792594812256D-01
        xs( 22) = 0.1019504208047372D+00
        xs( 23) = 0.1110859729005860D+00
        xs( 24) = 0.1204018974357501D+00
        xs( 25) = 0.1298879718696147D+00
        xs( 26) = 0.1395362508143645D+00
        xs( 27) = 0.1493407486845703D+00
        xs( 28) = 0.1592984059137043D+00
        xs( 29) = 0.1694057806283255D+00
        xs( 30) = 0.1796643179030176D+00
        xs( 31) = 0.1900756318504570D+00
        xs( 32) = 0.2006223903810612D+00
        xs( 33) = 0.2114666577350767D+00
        xs( 34) = 0.2226264119637560D+00
        xs( 35) = 0.2330636494845168D+00
        ws(  1) = 0.1460823873962932D-03
        ws(  2) = 0.3506734780797749D-03
        ws(  3) = 0.5822501417090139D-03
        ws(  4) = 0.8590441726218065D-03
        ws(  5) = 0.1202666858274884D-02
        ws(  6) = 0.1635756751338369D-02
        ws(  7) = 0.2174878015720618D-02
        ws(  8) = 0.2818042815799821D-02
        ws(  9) = 0.3534555966382279D-02
        ws( 10) = 0.4271484412392736D-02
        ws( 11) = 0.4976950638072464D-02
        ws( 12) = 0.5618970018281213D-02
        ws( 13) = 0.6186825743739321D-02
        ws( 14) = 0.6682927799635358D-02
        ws( 15) = 0.7115280815024650D-02
        ws( 16) = 0.7493279273865883D-02
        ws( 17) = 0.7825864832736871D-02
        ws( 18) = 0.8120873033368763D-02
        ws( 19) = 0.8384911194952001D-02
        ws( 20) = 0.8623455707956211D-02
        ws( 21) = 0.8841025576133834D-02
        ws( 22) = 0.9041371465722103D-02
        ws( 23) = 0.9227630911913014D-02
        ws( 24) = 0.9402467404037915D-02
        ws( 25) = 0.9568452545220317D-02
        ws( 26) = 0.9727284597301806D-02
        ws( 27) = 0.9880866510634346D-02
        ws( 28) = 0.1003211156643591D-01
        ws( 29) = 0.1018441972769086D-01
        ws( 30) = 0.1034811056728899D-01
        ws( 31) = 0.1048204203054681D-01
        ws( 32) = 0.1055588429284350D-01
        ws( 33) = 0.1077902509255388D-01
        ws( 34) = 0.1138760230234164D-01
        ws( 35) = 0.1679225023061064D-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 =  40
        err = 0.1683392302883495D-10
        xs(  1) = 0.2357609317563468D-04
        xs(  2) = 0.1251410475601286D-03
        xs(  3) = 0.3117105537123546D-03
        xs(  4) = 0.5902979295656753D-03
        xs(  5) = 0.9718592516645990D-03
        xs(  6) = 0.1472370519782749D-02
        xs(  7) = 0.2114345110683392D-02
        xs(  8) = 0.2928937515479994D-02
        xs(  9) = 0.3958731952453837D-02
        xs( 10) = 0.5261146382794745D-02
        xs( 11) = 0.6911875130579257D-02
        xs( 12) = 0.9006633453651949D-02
        xs( 13) = 0.1165751550360538D-01
        xs( 14) = 0.1497871899748359D-01
        xs( 15) = 0.1905942694507926D-01
        xs( 16) = 0.2393347273578301D-01
        xs( 17) = 0.2956702909110131D-01
        xs( 18) = 0.3587561108329440D-01
        xs( 19) = 0.4275598759507573D-01
        xs( 20) = 0.5011126677224624D-01
        xs( 21) = 0.5786168046910963D-01
        xs( 22) = 0.6594548618948640D-01
        xs( 23) = 0.7431592745651484D-01
        xs( 24) = 0.8293759685859226D-01
        xs( 25) = 0.9178339888212080D-01
        xs( 26) = 0.1008323130840577D+00
        xs( 27) = 0.1100678306373183D+00
        xs( 28) = 0.1194768980948778D+00
        xs( 29) = 0.1290491918577846D+00
        xs( 30) = 0.1387766743988745D+00
        xs( 31) = 0.1486532180534318D+00
        xs( 32) = 0.1586746748846623D+00
        xs( 33) = 0.1688384410909841D+00
        xs( 34) = 0.1791430589234461D+00
        xs( 35) = 0.1895910129568921D+00
        xs( 36) = 0.2001893165495333D+00
        xs( 37) = 0.2109458303388609D+00
        xs( 38) = 0.2218384840145371D+00
        xs( 39) = 0.2328169179756532D+00
        xs( 40) = 0.2443906873196502D+00
        ws(  1) = 0.6060799144756378D-04
        ws(  2) = 0.1431824822639120D-03
        ws(  3) = 0.2311112932368299D-03
        ws(  4) = 0.3278720654246251D-03
        ws(  5) = 0.4378882750492116D-03
        ws(  6) = 0.5668517100465868D-03
        ws(  7) = 0.7222433684819978D-03
        ws(  8) = 0.9139809633401730D-03
        ws(  9) = 0.1155116447988876D-02
        ws( 10) = 0.1462290374154285D-02
        ws( 11) = 0.1855166279560532D-02
        ws( 12) = 0.2353260912648109D-02
        ws( 13) = 0.2968009147138631D-02
        ws( 14) = 0.3689828912246792D-02
        ws( 15) = 0.4477468186854940D-02
        ws( 16) = 0.5264656343728932D-02
        ws( 17) = 0.5987780756952149D-02
        ws( 18) = 0.6611745521686016D-02
        ws( 19) = 0.7132694766315549D-02
        ws( 20) = 0.7564569222298175D-02
        ws( 21) = 0.7926025898181477D-02
        ws( 22) = 0.8233855761430086D-02
        ws( 23) = 0.8501176403296793D-02
        ws( 24) = 0.8737683369268664D-02
        ws( 25) = 0.8950442564108744D-02
        ws( 26) = 0.9144651579097328D-02
        ws( 27) = 0.9324223382057900D-02
        ws( 28) = 0.9492193213542124D-02
        ws( 29) = 0.9651060197717623D-02
        ws( 30) = 0.9802888382834973D-02
        ws( 31) = 0.9949506696998834D-02
        ws( 32) = 0.1009291294393830D-01
        ws( 33) = 0.1023475792214695D-01
        ws( 34) = 0.1037699312250186D-01
        ws( 35) = 0.1051754821569599D-01
        ws( 36) = 0.1066035050589265D-01
        ws( 37) = 0.1084861250487090D-01
        ws( 38) = 0.1104009915401388D-01
        ws( 39) = 0.1135505876999774D-01
        ws( 40) = 0.1468770140320999D-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 =  43
        err = 0.5835637555067436D-10
        xs(  1) = 0.1351147571330098D-04
        xs(  2) = 0.7149836075900713D-04
        xs(  3) = 0.1770964260371779D-03
        xs(  4) = 0.3326032381840909D-03
        xs(  5) = 0.5415096875436785D-03
        xs(  6) = 0.8087527248301275D-03
        xs(  7) = 0.1141050093950376D-02
        xs(  8) = 0.1547361338582125D-02
        xs(  9) = 0.2039521016232633D-02
        xs( 10) = 0.2633109376191766D-02
        xs( 11) = 0.3348651454467855D-02
        xs( 12) = 0.4213265749065987D-02
        xs( 13) = 0.5262910718549550D-02
        xs( 14) = 0.6545376252325668D-02
        xs( 15) = 0.8124070592590509D-02
        xs( 16) = 0.1008230307682297D-01
        xs( 17) = 0.1252684810143275D-01
        xs( 18) = 0.1558767271197747D-01
        xs( 19) = 0.1940790063743425D-01
        xs( 20) = 0.2411699478896755D-01
        xs( 21) = 0.2978804134573192D-01
        xs( 22) = 0.3640066836940046D-01
        xs( 23) = 0.4384234904350743D-01
        xs( 24) = 0.5195194333610318D-01
        xs( 25) = 0.6057068543314387D-01
        xs( 26) = 0.6957062696458052D-01
        xs( 27) = 0.7885958903487628D-01
        xs( 28) = 0.8837483185332858D-01
        xs( 29) = 0.9807463490389751D-01
        xs( 30) = 0.1079313991905879D+00
        xs( 31) = 0.1179268557044535D+00
        xs( 32) = 0.1280489625295165D+00
        xs( 33) = 0.1382899864880533D+00
        xs( 34) = 0.1486452984113708D+00
        xs( 35) = 0.1591127715368784D+00
        xs( 36) = 0.1696923163477586D+00
        xs( 37) = 0.1803856834039913D+00
        xs( 38) = 0.1911981960813709D+00
        xs( 39) = 0.2021372181075344D+00
        xs( 40) = 0.2132062132994330D+00
        xs( 41) = 0.2244038249473087D+00
        xs( 42) = 0.2357058058236229D+00
        xs( 43) = 0.2473778908460472D+00
        ws(  1) = 0.3470965981921195D-04
        ws(  2) = 0.8149701248785435D-04
        ws(  3) = 0.1300777353276216D-03
        ws(  4) = 0.1815137164206464D-03
        ws(  5) = 0.2371165078246910D-03
        ws(  6) = 0.2984816134266540D-03
        ws(  7) = 0.3675959814539444D-03
        ws(  8) = 0.4469846371574181D-03
        ws(  9) = 0.5399117300964269D-03
        ws( 10) = 0.6506587126483746D-03
        ws( 11) = 0.7849081341001256D-03
        ws( 12) = 0.9502638828048633D-03
        ws( 13) = 0.1156927419027352D-02
        ws( 14) = 0.1418497825210249D-02
        ws( 15) = 0.1752709437572291D-02
        ws( 16) = 0.2181541448040682D-02
        ws( 17) = 0.2729356931664935D-02
        ws( 18) = 0.3416587986693369D-02
        ws( 19) = 0.4246209421163747D-02
        ws( 20) = 0.5184878629646369D-02
        ws( 21) = 0.6153814314385122D-02
        ws( 22) = 0.7051849686268064D-02
        ws( 23) = 0.7803723455462499D-02
        ws( 24) = 0.8388538963652922D-02
        ws( 25) = 0.8827573836039659D-02
        ws( 26) = 0.9157073504255073D-02
        ws( 27) = 0.9410541586058425D-02
        ws( 28) = 0.9613105999764887D-02
        ws( 29) = 0.9781979025652889D-02
        ws( 30) = 0.9928555929294425D-02
        ws( 31) = 0.1006038026174283D-01
        ws( 32) = 0.1018256247556449D-01
        ws( 33) = 0.1029872040634948D-01
        ws( 34) = 0.1041158073947347D-01
        ws( 35) = 0.1052349011001972D-01
        ws( 36) = 0.1063605714675125D-01
        ws( 37) = 0.1075107175084363D-01
        ws( 38) = 0.1087160831085054D-01
        ws( 39) = 0.1100346445844602D-01
        ws( 40) = 0.1118075826478974D-01
        ws( 41) = 0.1141362568925486D-01
        ws( 42) = 0.1146677276730370D-01
        ws( 43) = 0.1264890194198610D-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 =  45
        err = 0.5435742302268818D-10
        xs(  1) = 0.8815368748800442D-05
        xs(  2) = 0.4657408889667211D-04
        xs(  3) = 0.1150280604158237D-03
        xs(  4) = 0.2151182412475782D-03
        xs(  5) = 0.3482495256607475D-03
        xs(  6) = 0.5163754267777829D-03
        xs(  7) = 0.7220981267131820D-03
        xs(  8) = 0.9687989063365963D-03
        xs(  9) = 0.1260808287522786D-02
        xs( 10) = 0.1603628925812202D-02
        xs( 11) = 0.2004229919501362D-02
        xs( 12) = 0.2471438957619071D-02
        xs( 13) = 0.3016469558590062D-02
        xs( 14) = 0.3653635892849120D-02
        xs( 15) = 0.4401328987065624D-02
        xs( 16) = 0.5283357055719571D-02
        xs( 17) = 0.6330789552598699D-02
        xs( 18) = 0.7584484471130238D-02
        xs( 19) = 0.9098501619478149D-02
        xs( 20) = 0.1094455190140732D-01
        xs( 21) = 0.1321735008653087D-01
        xs( 22) = 0.1603987286000719D-01
        xs( 23) = 0.1956541943778260D-01
        xs( 24) = 0.2396940858375907D-01
        xs( 25) = 0.2941990925203527D-01
        xs( 26) = 0.3602194110439213D-01
        xs( 27) = 0.4375895167445232D-01
        xs( 28) = 0.5248210637689132D-01
        xs( 29) = 0.6196656799673112D-01
        xs( 30) = 0.7198848537756602D-01
        xs( 31) = 0.8237105418297246D-01
        xs( 32) = 0.9299293955854702D-01
        xs( 33) = 0.1037778012134605D+00
        xs( 34) = 0.1146804169028353D+00
        xs( 35) = 0.1256755496535475D+00
        xs( 36) = 0.1367504637998486D+00
        xs( 37) = 0.1479002545802783D+00
        xs( 38) = 0.1591253248409666D+00
        xs( 39) = 0.1704296421864978D+00
        xs( 40) = 0.1818206296626407D+00
        xs( 41) = 0.1933090036126142D+00
        xs( 42) = 0.2049041098504342D+00
        xs( 43) = 0.2166324666843537D+00
        xs( 44) = 0.2284804004602560D+00
        xs( 45) = 0.2405159120891553D+00
        ws(  1) = 0.2263744164119313D-04
        ws(  2) = 0.5298333971118932D-04
        ws(  3) = 0.8407945394467491D-04
        ws(  4) = 0.1163337714857590D-03
        ws(  5) = 0.1502527347182409D-03
        ws(  6) = 0.1864306116834450D-03
        ws(  7) = 0.2255755297191836D-03
        ws(  8) = 0.2685441119298101D-03
        ws(  9) = 0.3163869162627780D-03
        ws( 10) = 0.3704094278708273D-03
        ws( 11) = 0.4322551762817647D-03
        ws( 12) = 0.5040200785924541D-03
        ws( 13) = 0.5884107895627281D-03
        ws( 14) = 0.6889650414249002D-03
        ws( 15) = 0.8103588802277437D-03
        ws( 16) = 0.9588338844321850D-03
        ws( 17) = 0.1142784321679059D-02
        ws( 18) = 0.1373541219960969D-02
        ws( 19) = 0.1666353775799872D-02
        ws( 20) = 0.2041438404093327D-02
        ws( 21) = 0.2524603524120191D-02
        ws( 22) = 0.3146099347230748D-02
        ws( 23) = 0.3934698184070201D-02
        ws( 24) = 0.4902270234962771D-02
        ws( 25) = 0.6017361685534103D-02
        ws( 26) = 0.7184191576850821D-02
        ws( 27) = 0.8263937227702037D-02
        ws( 28) = 0.9143468369481166D-02
        ws( 29) = 0.9787378702443192D-02
        ws( 30) = 0.1022690583801433D-01
        ws( 31) = 0.1051822130505032D-01
        ws( 32) = 0.1071306994581710D-01
        ws( 33) = 0.1084930248135924D-01
        ws( 34) = 0.1095184252730612D-01
        ws( 35) = 0.1103638297910453D-01
        ws( 36) = 0.1111270902055930D-01
        ws( 37) = 0.1118703274743600D-01
        ws( 38) = 0.1126346391557496D-01
        ws( 39) = 0.1134562513516937D-01
        ws( 40) = 0.1144074461518928D-01
        ws( 41) = 0.1154608316533484D-01
        ws( 42) = 0.1166533425853537D-01
        ws( 43) = 0.1190665602345695D-01
        ws( 44) = 0.1190084345626818D-01
        ws( 45) = 0.1328176719548878D-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 =  46
        err = 0.9460606468273800D-10
        xs(  1) = 0.6375167332243027D-05
        xs(  2) = 0.3365265036573728D-04
        xs(  3) = 0.8298416578453794D-04
        xs(  4) = 0.1548340762042506D-03
        xs(  5) = 0.2498866759987234D-03
        xs(  6) = 0.3690848703132497D-03
        xs(  7) = 0.5136705507474513D-03
        xs(  8) = 0.6852347382122834D-03
        xs(  9) = 0.8857800069314775D-03
        xs( 10) = 0.1117798450878998D-02
        xs( 11) = 0.1384369862643419D-02
        xs( 12) = 0.1689286634871344D-02
        xs( 13) = 0.2037214334142320D-02
        xs( 14) = 0.2433900244883279D-02
        xs( 15) = 0.2886446894192276D-02
        xs( 16) = 0.3403674306267666D-02
        xs( 17) = 0.3996604470280187D-02
        xs( 18) = 0.4679115641046459D-02
        xs( 19) = 0.5468834638340468D-02
        xs( 20) = 0.6388365051038228D-02
        xs( 21) = 0.7466991535206396D-02
        xs( 22) = 0.8743058245926872D-02
        xs( 23) = 0.1026729137896147D-01
        xs( 24) = 0.1210740365202283D-01
        xs( 25) = 0.1435430975690384D-01
        xs( 26) = 0.1712996763288261D-01
        xs( 27) = 0.2059560902622334D-01
        xs( 28) = 0.2495538160798022D-01
        xs( 29) = 0.3044225266505798D-01
        xs( 30) = 0.3726543557314906D-01
        xs( 31) = 0.4551596117768743D-01
        xs( 32) = 0.5508763984446209D-01
        xs( 33) = 0.6570125347436041D-01
        xs( 34) = 0.7702285989948303D-01
        xs( 35) = 0.8877036605301523D-01
        xs( 36) = 0.1007505870425956D+00
        xs( 37) = 0.1128482712040882D+00
        xs( 38) = 0.1250020113689837D+00
        xs( 39) = 0.1371837873771694D+00
        xs( 40) = 0.1493853969418303D+00
        xs( 41) = 0.1616104114920828D+00
        xs( 42) = 0.1738702851424407D+00
        xs( 43) = 0.1861763348014648D+00
        xs( 44) = 0.1985489043605548D+00
        xs( 45) = 0.2109443435512480D+00
        xs( 46) = 0.2234631871157167D+00
        ws(  1) = 0.1636781405096347D-04
        ws(  2) = 0.3824279163390168D-04
        ws(  3) = 0.6049644927904197D-04
        ws(  4) = 0.8331686327745323D-04
        ws(  5) = 0.1069448217366405D-03
        ws(  6) = 0.1316577183818761D-03
        ws(  7) = 0.1577777798314533D-03
        ws(  8) = 0.1856830689953761D-03
        ws(  9) = 0.2158211964020254D-03
        ws( 10) = 0.2487269295246170D-03
        ws( 11) = 0.2850453119686700D-03
        ws( 12) = 0.3255623909078888D-03
        ws( 13) = 0.3712463850162767D-03
        ws( 14) = 0.4233032314295379D-03
        ws( 15) = 0.4832521076551149D-03
        ws( 16) = 0.5530289683888235D-03
        ws( 17) = 0.6351297585905224D-03
        ws( 18) = 0.7328102436429401D-03
        ws( 19) = 0.8503670756271784D-03
        ws( 20) = 0.9935355268744003D-03
        ws( 21) = 0.1170053583042912D-02
        ws( 22) = 0.1390458343959698D-02
        ws( 23) = 0.1669190125662351D-02
        ws( 24) = 0.2026054116936478D-02
        ws( 25) = 0.2487937423276353D-02
        ws( 26) = 0.3090159843003700D-02
        ws( 27) = 0.3875324395532582D-02
        ws( 28) = 0.4883891894371644D-02
        ws( 29) = 0.6126431172339443D-02
        ws( 30) = 0.7536712014237597D-02
        ws( 31) = 0.8946220855228270D-02
        ws( 32) = 0.1014828256137952D-01
        ws( 33) = 0.1102137168117140D-01
        ws( 34) = 0.1157429813100655D-01
        ws( 35) = 0.1188879342479978D-01
        ws( 36) = 0.1205287496401313D-01
        ws( 37) = 0.1213261440941259D-01
        ws( 38) = 0.1217043747272202D-01
        ws( 39) = 0.1219188514729391D-01
        ws( 40) = 0.1221173540517526D-01
        ws( 41) = 0.1223953465215016D-01
        ws( 42) = 0.1228925126657395D-01
        ws( 43) = 0.1236359520923917D-01
        ws( 44) = 0.1244580189858743D-01
        ws( 45) = 0.1249734505218759D-01
        ws( 46) = 0.1378970077738536D-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 =  51
        err = 0.9019350140715643D-10
        xs(  1) = 0.4710244574915854D-05
        xs(  2) = 0.2484984594484361D-04
        xs(  3) = 0.6121389594605034D-04
        xs(  4) = 0.1140412315141054D-03
        xs(  5) = 0.1836786427547262D-03
        xs(  6) = 0.2706003062318854D-03
        xs(  7) = 0.3754251642996781D-03
        xs(  8) = 0.4989375294585259D-03
        xs(  9) = 0.6421116668600822D-03
        xs( 10) = 0.8061411296659685D-03
        xs( 11) = 0.9924739811367407D-03
        xs( 12) = 0.1202855486354335D-02
        xs( 13) = 0.1439380392314259D-02
        xs( 14) = 0.1704557584057111D-02
        xs( 15) = 0.2001390775001094D-02
        xs( 16) = 0.2333480057728617D-02
        xs( 17) = 0.2705150739545201D-02
        xs( 18) = 0.3121618102227862D-02
        xs( 19) = 0.3589199816020643D-02
        xs( 20) = 0.4115592092506644D-02
        xs( 21) = 0.4710231831078133D-02
        xs( 22) = 0.5384775801242842D-02
        xs( 23) = 0.6153740476072585D-02
        xs( 24) = 0.7035364108269247D-02
        xs( 25) = 0.8052778204511323D-02
        xs( 26) = 0.9235611333824785D-02
        xs( 27) = 0.1062219631127118D-01
        xs( 28) = 0.1226261105344193D-01
        xs( 29) = 0.1422284028489598D-01
        xs( 30) = 0.1659034742713071D-01
        xs( 31) = 0.1948113489968326D-01
        xs( 32) = 0.2304750836834369D-01
        xs( 33) = 0.2748313928977902D-01
        xs( 34) = 0.3301605582199173D-01
        xs( 35) = 0.3987267964199039D-01
        xs( 36) = 0.4820081654683351D-01
        xs( 37) = 0.5797866225063357D-01
        xs( 38) = 0.6898787265759421D-01
        xs( 39) = 0.8089416646734995D-01
        xs( 40) = 0.9336814494620609D-01
        xs( 41) = 0.1061580674195457D+00
        xs( 42) = 0.1191009943670589D+00
        xs( 43) = 0.1321039103064214D+00
        xs( 44) = 0.1451205676463545D+00
        xs( 45) = 0.1581339677359424D+00
        xs( 46) = 0.1711457085960943D+00
        xs( 47) = 0.1841688031186212D+00
        xs( 48) = 0.1972238275863677D+00
        xs( 49) = 0.2103578876841878D+00
        xs( 50) = 0.2234787721585956D+00
        xs( 51) = 0.2366015988844307D+00
        ws(  1) = 0.1209162917174500D-04
        ws(  2) = 0.2821942110209467D-04
        ws(  3) = 0.4454771350301415D-04
        ws(  4) = 0.6116449577763430D-04
        ws(  5) = 0.7818907042707772D-04
        ws(  6) = 0.9575707148683679D-04
        ws(  7) = 0.1140229554691506D-03
        ws(  8) = 0.1331636661230636D-03
        ws(  9) = 0.1533829509090663D-03
        ws( 10) = 0.1749166120424253D-03
        ws( 11) = 0.1980391036380673D-03
        ws( 12) = 0.2230719622859208D-03
        ws( 13) = 0.2503946636248217D-03
        ws( 14) = 0.2804586613086828D-03
        ws( 15) = 0.3138056089878199D-03
        ws( 16) = 0.3510911224590880D-03
        ws( 17) = 0.3931159521663984D-03
        ws( 18) = 0.4408671676552467D-03
        ws( 19) = 0.4955729985319591D-03
        ws( 20) = 0.5587764863620342D-03
        ws( 21) = 0.6324352655163209D-03
        ws( 22) = 0.7190579224801037D-03
        ws( 23) = 0.8218918990053891D-03
        ws( 24) = 0.9451842885247699D-03
        ws( 25) = 0.1094545759393444D-02
        ws( 26) = 0.1277459319471211D-02
        ws( 27) = 0.1503988350795078D-02
        ws( 28) = 0.1787746120192310D-02
        ws( 29) = 0.2147170657120848D-02
        ws( 30) = 0.2607041305921423D-02
        ws( 31) = 0.3199812779067837D-02
        ws( 32) = 0.3965285853791711D-02
        ws( 33) = 0.4944535357751051D-02
        ws( 34) = 0.6160367408997379D-02
        ws( 35) = 0.7579258439632715D-02
        ws( 36) = 0.9073988528035423D-02
        ws( 37) = 0.1044374923639790D-01
        ws( 38) = 0.1151668373403284D-01
        ws( 39) = 0.1223978601723406D-01
        ws( 40) = 0.1266612661919901D-01
        ws( 41) = 0.1288693870864812D-01
        ws( 42) = 0.1298382624533631D-01
        ws( 43) = 0.1301462581605157D-01
        ws( 44) = 0.1301618775955798D-01
        ws( 45) = 0.1300992114790283D-01
        ws( 46) = 0.1301157136258887D-01
        ws( 47) = 0.1303467941943907D-01
        ws( 48) = 0.1309415547592316D-01
        ws( 49) = 0.1336132904377824D-01
        ws( 50) = 0.1348575787169238D-01
        ws( 51) = 0.1433454263917072D-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 =  54
        err = 0.5440869727838242D-10
        xs(  1) = 0.3651305945948000D-05
        xs(  2) = 0.1925644076278485D-04
        xs(  3) = 0.4740517842651147D-04
        xs(  4) = 0.8823342087590864D-04
        xs(  5) = 0.1419358087085414D-03
        xs(  6) = 0.2087774466332661D-03
        xs(  7) = 0.2891029435117324D-03
        xs(  8) = 0.3833467156733577D-03
        xs(  9) = 0.4920448847125235D-03
        xs( 10) = 0.6158489862932176D-03
        xs( 11) = 0.7555418296594607D-03
        xs( 12) = 0.9120560067808295D-03
        xs( 13) = 0.1086495724504227D-02
        xs( 14) = 0.1280162830022678D-02
        xs( 15) = 0.1494588135847233D-02
        xs( 16) = 0.1731569446275083D-02
        xs( 17) = 0.1993218072085574D-02
        xs( 18) = 0.2282016129612014D-02
        xs( 19) = 0.2600887604950362D-02
        xs( 20) = 0.2953287089826489D-02
        xs( 21) = 0.3343311359149431D-02
        xs( 22) = 0.3775840697664848D-02
        xs( 23) = 0.4256719291914511D-02
        xs( 24) = 0.4792987366774440D-02
        xs( 25) = 0.5393182484246306D-02
        xs( 26) = 0.6067734157032028D-02
        xs( 27) = 0.6829485551115906D-02
        xs( 28) = 0.7694389913081948D-02
        xs( 29) = 0.8682449364432399D-02
        xs( 30) = 0.9818992607645224D-02
        xs( 31) = 0.1113642939410355D-01
        xs( 32) = 0.1267667723797741D-01
        xs( 33) = 0.1449453165632500D-01
        xs( 34) = 0.1666233494533034D-01
        xs( 35) = 0.1927634041084056D-01
        xs( 36) = 0.2246499279896787D-01
        xs( 37) = 0.2639839162582624D-01
        xs( 38) = 0.3129505014533705D-01
        xs( 39) = 0.3741477507802025D-01
        xs( 40) = 0.4501702901903605D-01
        xs( 41) = 0.5426860628587805D-01
        xs( 42) = 0.6513282238587502D-01
        xs( 43) = 0.7733977246362657D-01
        xs( 44) = 0.9049021118266116D-01
        xs( 45) = 0.1042023069279754D+00
        xs( 46) = 0.1181934246568702D+00
        xs( 47) = 0.1322874330184554D+00
        xs( 48) = 0.1463890711151888D+00
        xs( 49) = 0.1604560185479137D+00
        xs( 50) = 0.1744782303866595D+00
        xs( 51) = 0.1884651256945517D+00
        xs( 52) = 0.2024173911918478D+00
        xs( 53) = 0.2163630196498742D+00
        xs( 54) = 0.2302076980479448D+00
        ws(  1) = 0.9372468539618774D-05
        ws(  2) = 0.2185807703585289D-04
        ws(  3) = 0.3446148891830996D-04
        ws(  4) = 0.4722728989446468D-04
        ws(  5) = 0.6022152194725650D-04
        ws(  6) = 0.7351901741247897D-04
        ws(  7) = 0.8720418124455893D-04
        ws(  8) = 0.1013724889997283D-03
        ws(  9) = 0.1161321752126981D-03
        ws( 10) = 0.1316061892623385D-03
        ws( 11) = 0.1479345676522050D-03
        ws( 12) = 0.1652773899169773D-03
        ws( 13) = 0.1838185012893255D-03
        ws( 14) = 0.2037702156028499D-03
        ws( 15) = 0.2253792602392188D-03
        ws( 16) = 0.2489342977578164D-03
        ws( 17) = 0.2747754646916611D-03
        ws( 18) = 0.3033065145825641D-03
        ws( 19) = 0.3350103579372200D-03
        ws( 20) = 0.3704690739984449D-03
        ws( 21) = 0.4103898685559724D-03
        ws( 22) = 0.4556390113259035D-03
        ws( 23) = 0.5072865827221291D-03
        ws( 24) = 0.5666659958899246D-03
        ws( 25) = 0.6354539071538670D-03
        ws( 26) = 0.7157785165375821D-03
        ws( 27) = 0.8103677244807550D-03
        ws( 28) = 0.9227537129944956D-03
        ws( 29) = 0.1057557856344470D-02
        ws( 30) = 0.1220890451070053D-02
        ws( 31) = 0.1420914057324060D-02
        ws( 32) = 0.1668637414638666D-02
        ws( 33) = 0.1979023166528024D-02
        ws( 34) = 0.2372486666667739D-02
        ws( 35) = 0.2876766529829706D-02
        ws( 36) = 0.3528750835036299D-02
        ws( 37) = 0.4374531474474791D-02
        ws( 38) = 0.5462722980169404D-02
        ws( 39) = 0.6821562512234954D-02
        ws( 40) = 0.8412885404670861D-02
        ws( 41) = 0.1008484721781101D-01
        ws( 42) = 0.1159656786188446D-01
        ws( 43) = 0.1274803019608904D-01
        ws( 44) = 0.1348786247732916D-01
        ws( 45) = 0.1388922794630743D-01
        ws( 46) = 0.1406413876803908D-01
        ws( 47) = 0.1410847786770758D-01
        ws( 48) = 0.1408805257856057D-01
        ws( 49) = 0.1404451130676617D-01
        ws( 50) = 0.1400434452555375D-01
        ws( 51) = 0.1400217432839752D-01
        ws( 52) = 0.1401152029418742D-01
        ws( 53) = 0.1394721751991627D-01
        ws( 54) = 0.1429489443378703D-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 =  58
        err = 0.6350470028409009D-10
        xs(  1) = 0.2920853783568545D-05
        xs(  2) = 0.1540064769751035D-04
        xs(  3) = 0.3789742398425895D-04
        xs(  4) = 0.7049442453766830D-04
        xs(  5) = 0.1133090055709213D-03
        xs(  6) = 0.1665003782386787D-03
        xs(  7) = 0.2302747406817411D-03
        xs(  8) = 0.3048909419282461D-03
        xs(  9) = 0.3906668798648304D-03
        xs( 10) = 0.4879866923651681D-03
        xs( 11) = 0.5973088437004151D-03
        xs( 12) = 0.7191752752536451D-03
        xs( 13) = 0.8542218601794424D-03
        xs( 14) = 0.1003190474634427D-02
        xs( 15) = 0.1166943077871273D-02
        xs( 16) = 0.1346478285657690D-02
        xs( 17) = 0.1542951033532146D-02
        xs( 18) = 0.1757696067953164D-02
        xs( 19) = 0.1992256185132011D-02
        xs( 20) = 0.2248416374582648D-02
        xs( 21) = 0.2528245334986307D-02
        xs( 22) = 0.2834146241311700D-02
        xs( 23) = 0.3168919188599597D-02
        xs( 24) = 0.3535838470730838D-02
        xs( 25) = 0.3938748840500610D-02
        xs( 26) = 0.4382186240388348D-02
        xs( 27) = 0.4871530336371889D-02
        xs( 28) = 0.5413198735016640D-02
        xs( 29) = 0.6014896313060558D-02
        xs( 30) = 0.6685938095252433D-02
        xs( 31) = 0.7437671214176126D-02
        xs( 32) = 0.8284031651761897D-02
        xs( 33) = 0.9242286124348556D-02
        xs( 34) = 0.1033403074161862D-01
        xs( 35) = 0.1158654899881307D-01
        xs( 36) = 0.1303467620679849D-01
        xs( 37) = 0.1472338087127960D-01
        xs( 38) = 0.1671135846693893D-01
        xs( 39) = 0.1907603075431734D-01
        xs( 40) = 0.2192040297679136D-01
        xs( 41) = 0.2538205731288893D-01
        xs( 42) = 0.2964348586381091D-01
        xs( 43) = 0.3493936837886789D-01
        xs( 44) = 0.4154828688520670D-01
        xs( 45) = 0.4974620643548014D-01
        xs( 46) = 0.5970499636242837D-01
        xs( 47) = 0.7137486850475756D-01
        xs( 48) = 0.8445883723366658D-01
        xs( 49) = 0.9852710774907680D-01
        xs( 50) = 0.1131714990506605D+00
        xs( 51) = 0.1280903946973129D+00
        xs( 52) = 0.1430963353047225D+00
        xs( 53) = 0.1580893351726611D+00
        xs( 54) = 0.1730262437187135D+00
        xs( 55) = 0.1879009160561964D+00
        xs( 56) = 0.2027364358400569D+00
        xs( 57) = 0.2175406693151633D+00
        xs( 58) = 0.2320278314755405D+00
        ws(  1) = 0.7497087200774347D-05
        ws(  2) = 0.1747643773428455D-04
        ws(  3) = 0.2753056022990333D-04
        ws(  4) = 0.3768291066454300D-04
        ws(  5) = 0.4797270320264423D-04
        ws(  6) = 0.5844431429106412D-04
        ws(  7) = 0.6914744557602860D-04
        ws(  8) = 0.8013782027791533D-04
        ws(  9) = 0.9147794419710965D-04
        ws( 10) = 0.1032379395747534D-03
        ws( 11) = 0.1154965131639673D-03
        ws( 12) = 0.1283421285420265D-03
        ws( 13) = 0.1418744538109422D-03
        ws( 14) = 0.1562061601610701D-03
        ws( 15) = 0.1714651562932682D-03
        ws( 16) = 0.1877973591829543D-03
        ws( 17) = 0.2053701263920008D-03
        ws( 18) = 0.2243765095455883D-03
        ws( 19) = 0.2450405355548218D-03
        ws( 20) = 0.2676237860403026D-03
        ws( 21) = 0.2924336306165633D-03
        ws( 22) = 0.3198335862930530D-03
        ws( 23) = 0.3502564324725358D-03
        ws( 24) = 0.3842209289165405D-03
        ws( 25) = 0.4223532819516768D-03
        ws( 26) = 0.4654149232461260D-03
        ws( 27) = 0.5143387574177602D-03
        ws( 28) = 0.5702768642920908D-03
        ws( 29) = 0.6346638464981794D-03
        ws( 30) = 0.7093017450295121D-03
        ws( 31) = 0.7964749583945881D-03
        ws( 32) = 0.8991072975495465D-03
        ws( 33) = 0.1020978708655148D-02
        ws( 34) = 0.1167027193284964D-02
        ws( 35) = 0.1343772879312324D-02
        ws( 36) = 0.1559917335234567D-02
        ws( 37) = 0.1827192392292596D-02
        ws( 38) = 0.2161553081600265D-02
        ws( 39) = 0.2584808164928420D-02
        ws( 40) = 0.3126685964756715D-02
        ws( 41) = 0.3826888855371886D-02
        ws( 42) = 0.4735161565203786D-02
        ws( 43) = 0.5903746628350283D-02
        ws( 44) = 0.7361845312331415D-02
        ws( 45) = 0.9064924733937371D-02
        ws( 46) = 0.1084496051256104D-01
        ws( 47) = 0.1244304992293167D-01
        ws( 48) = 0.1365036632448274D-01
        ws( 49) = 0.1441675006631287D-01
        ws( 50) = 0.1482176836474936D-01
        ws( 51) = 0.1498529607810364D-01
        ws( 52) = 0.1501045287354791D-01
        ws( 53) = 0.1496898157715340D-01
        ws( 54) = 0.1490613407836259D-01
        ws( 55) = 0.1484054878679405D-01
        ws( 56) = 0.1480805442355250D-01
        ws( 57) = 0.1496054477856400D-01
        ws( 58) = 0.1585656279784557D-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 =  62
        err = 0.5469631364755561D-10
        xs(  1) = 0.2401933882362160D-05
        xs(  2) = 0.1266229209042893D-04
        xs(  3) = 0.3114885381858946D-04
        xs(  4) = 0.5791375163362637D-04
        xs(  5) = 0.9302924226231135D-04
        xs(  6) = 0.1365933529181502D-03
        xs(  7) = 0.1887331737847686D-03
        xs(  8) = 0.2496083696692120D-03
        xs(  9) = 0.3194150513545823D-03
        xs( 10) = 0.3983900117177190D-03
        xs( 11) = 0.4868153487781150D-03
        xs( 12) = 0.5850235334707912D-03
        xs( 13) = 0.6934030166289141D-03
        xs( 14) = 0.8124045043766311D-03
        xs( 15) = 0.9425480646736365D-03
        xs( 16) = 0.1084431262808151D-02
        xs( 17) = 0.1238738562577785D-02
        xs( 18) = 0.1406252276015944D-02
        xs( 19) = 0.1587865401391499D-02
        xs( 20) = 0.1784596761106479D-02
        xs( 21) = 0.1997608942895024D-02
        xs( 22) = 0.2228229664593057D-02
        xs( 23) = 0.2477977334782789D-02
        xs( 24) = 0.2748591777846229D-02
        xs( 25) = 0.3042071347200657D-02
        xs( 26) = 0.3360717985226135D-02
        xs( 27) = 0.3707192229148826D-02
        xs( 28) = 0.4084580745630428D-02
        xs( 29) = 0.4496479759645280D-02
        xs( 30) = 0.4947098792529098D-02
        xs( 31) = 0.5441390550707999D-02
        xs( 32) = 0.5985214764235780D-02
        xs( 33) = 0.6585546471519693D-02
        xs( 34) = 0.7250743010764121D-02
        xs( 35) = 0.7990889281009321D-02
        xs( 36) = 0.8818248355586091D-02
        xs( 37) = 0.9747855330084442D-02
        xs( 38) = 0.1079830786523696D-01
        xs( 39) = 0.1199282961922880D-01
        xs( 40) = 0.1336071585341868D-01
        xs( 41) = 0.1493931879931899D-01
        xs( 42) = 0.1677679973430046D-01
        xs( 43) = 0.1893596873889923D-01
        xs( 44) = 0.2149964526419224D-01
        xs( 45) = 0.2457804862839588D-01
        xs( 46) = 0.2831852020787990D-01
        xs( 47) = 0.3291656750972135D-01
        xs( 48) = 0.3862303507944183D-01
        xs( 49) = 0.4573336810728404D-01
        xs( 50) = 0.5453477910304116D-01
        xs( 51) = 0.6519671451829070D-01
        xs( 52) = 0.7765228787652736D-01
        xs( 53) = 0.9158139826340209D-01
        xs( 54) = 0.1065329627487162D+00
        xs( 55) = 0.1220815352744881D+00
        xs( 56) = 0.1379126615144425D+00
        xs( 57) = 0.1538308411419533D+00
        xs( 58) = 0.1697329398148183D+00
        xs( 59) = 0.1855754605131926D+00
        xs( 60) = 0.2013743122652955D+00
        xs( 61) = 0.2171329016186060D+00
        xs( 62) = 0.2325838005020448D+00
        ws(  1) = 0.6164893663245853D-05
        ws(  2) = 0.1436580567446842D-04
        ws(  3) = 0.2261566283166737D-04
        ws(  4) = 0.3092611392185063D-04
        ws(  5) = 0.3932115207961977D-04
        ws(  6) = 0.4782819249956222D-04
        ws(  7) = 0.5647799548806010D-04
        ws(  8) = 0.6530501085840489D-04
        ws(  9) = 0.7434774108072733D-04
        ws( 10) = 0.8364911174369427D-04
        ws( 11) = 0.9325688106250058D-04
        ws( 12) = 0.1032241259226293D-03
        ws( 13) = 0.1136098401066675D-03
        ws( 14) = 0.1244796783547284D-03
        ws( 15) = 0.1359068804351947D-03
        ws( 16) = 0.1479734114392432D-03
        ws( 17) = 0.1607713604449424D-03
        ws( 18) = 0.1744046483696275D-03
        ws( 19) = 0.1889911085559058D-03
        ws( 20) = 0.2046650212371169D-03
        ws( 21) = 0.2215802049166560D-03
        ws( 22) = 0.2399137973737632D-03
        ws( 23) = 0.2598708988477360D-03
        ws( 24) = 0.2816902998862550D-03
        ws( 25) = 0.3056515851878317D-03
        ws( 26) = 0.3320839960728764D-03
        ws( 27) = 0.3613775560899106D-03
        ws( 28) = 0.3939971324333503D-03
        ws( 29) = 0.4305003359470333D-03
        ws( 30) = 0.4715604748349733D-03
        ws( 31) = 0.5179962251276788D-03
        ws( 32) = 0.5708103042095261D-03
        ws( 33) = 0.6312403089077713D-03
        ws( 34) = 0.7008261642317153D-03
        ws( 35) = 0.7815004488571381D-03
        ws( 36) = 0.8757105512449240D-03
        ws( 37) = 0.9865855383912575D-03
        ws( 38) = 0.1118166414682746D-02
        ws( 39) = 0.1275727077885301D-02
        ws( 40) = 0.1466225648587246D-02
        ws( 41) = 0.1698944163698920D-02
        ws( 42) = 0.1986397993975092D-02
        ws( 43) = 0.2345621162408974D-02
        ws( 44) = 0.2799938406970044D-02
        ws( 45) = 0.3381230909488106D-02
        ws( 46) = 0.4132145528327072D-02
        ws( 47) = 0.5105872765574145D-02
        ws( 48) = 0.6357122576310734D-02
        ws( 49) = 0.7913335171923774D-02
        ws( 50) = 0.9720043930260675D-02
        ws( 51) = 0.1159309878933524D-01
        ws( 52) = 0.1326231979034579D-01
        ws( 53) = 0.1451781138400009D-01
        ws( 54) = 0.1531301011363763D-01
        ws( 55) = 0.1573172001769115D-01
        ws( 56) = 0.1589847950724713D-01
        ws( 57) = 0.1592099641156256D-01
        ws( 58) = 0.1587824760692900D-01
        ws( 59) = 0.1581506169987556D-01
        ws( 60) = 0.1575179288962710D-01
        ws( 61) = 0.1598263945682996D-01
        ws( 62) = 0.1753966734068452D-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 =  66
        err = 0.5661689302424433D-10
        xs(  1) = 0.2008013202965407D-05
        xs(  2) = 0.1058438203354863D-04
        xs(  3) = 0.2603156922285491D-04
        xs(  4) = 0.4838394300413749D-04
        xs(  5) = 0.7768815538598062D-04
        xs(  6) = 0.1140074078015561D-03
        xs(  7) = 0.1574236422478976D-03
        xs(  8) = 0.2080398177069569D-03
        xs(  9) = 0.2659823872768133D-03
        xs( 10) = 0.3314039668360218D-03
        xs( 11) = 0.4044861894684671D-03
        xs( 12) = 0.4854427600314174D-03
        xs( 13) = 0.5745227458794100D-03
        xs( 14) = 0.6720141597930709D-03
        xs( 15) = 0.7782479087826458D-03
        xs( 16) = 0.8936021991017024D-03
        xs( 17) = 0.1018507504160433D-02
        xs( 18) = 0.1153452219930954D-02
        xs( 19) = 0.1298989152937711D-02
        xs( 20) = 0.1455743010965120D-02
        xs( 21) = 0.1624419097732255D-02
        xs( 22) = 0.1805813451691251D-02
        xs( 23) = 0.2000824718191401D-02
        xs( 24) = 0.2210468106553432D-02
        xs( 25) = 0.2435891862352845D-02
        xs( 26) = 0.2678396785598253D-02
        xs( 27) = 0.2939459453806592D-02
        xs( 28) = 0.3220759973888482D-02
        xs( 29) = 0.3524215298283725D-02
        xs( 30) = 0.3852019417892078D-02
        xs( 31) = 0.4206692104411423D-02
        xs( 32) = 0.4591138347894371D-02
        xs( 33) = 0.5008721266130449D-02
        xs( 34) = 0.5463352101619116D-02
        xs( 35) = 0.5959602051694732D-02
        xs( 36) = 0.6502842219268846D-02
        xs( 37) = 0.7099420076675466D-02
        xs( 38) = 0.7756883752899151D-02
        xs( 39) = 0.8484269541842691D-02
        xs( 40) = 0.9292473769713490D-02
        xs( 41) = 0.1019473840021570D-01
        xs( 42) = 0.1120729159619279D-01
        xs( 43) = 0.1235020168936489D-01
        xs( 44) = 0.1364852834834090D-01
        xs( 45) = 0.1513389210376391D-01
        xs( 46) = 0.1684663888792869D-01
        xs( 47) = 0.1883885643054183D-01
        xs( 48) = 0.2117861085815432D-01
        xs( 49) = 0.2395590796584686D-01
        xs( 50) = 0.2729096928132602D-01
        xs( 51) = 0.3134510302401971D-01
        xs( 52) = 0.3633275566679670D-01
        xs( 53) = 0.4252833577117951D-01
        xs( 54) = 0.5025144065051781D-01
        xs( 55) = 0.5980362958291856D-01
        xs( 56) = 0.7134532339926869D-01
        xs( 57) = 0.8477458244104473D-01
        xs( 58) = 0.9972563453527641D-01
        xs( 59) = 0.1157098818739761D+00
        xs( 60) = 0.1322798245972742D+00
        xs( 61) = 0.1491119787814420D+00
        xs( 62) = 0.1660100101381291D+00
        xs( 63) = 0.1828749480514390D+00
        xs( 64) = 0.1996736739256213D+00
        xs( 65) = 0.2163937912202862D+00
        xs( 66) = 0.2327134811575172D+00
        ws(  1) = 0.5153697005579305D-05
        ws(  2) = 0.1200655526595984D-04
        ws(  3) = 0.1889326538677431D-04
        ws(  4) = 0.2581921357613200D-04
        ws(  5) = 0.3279970972111232D-04
        ws(  6) = 0.3985241424691793D-04
        ws(  7) = 0.4699717314337362D-04
        ws(  8) = 0.5425620879509723D-04
        ws(  9) = 0.6165431878191494D-04
        ws( 10) = 0.6921906169350374D-04
        ws( 11) = 0.7698094633944790D-04
        ws( 12) = 0.8497364647329907D-04
        ws( 13) = 0.9323426175627119D-04
        ws( 14) = 0.1018036440729771D-03
        ws( 15) = 0.1107268057807289D-03
        ws( 16) = 0.1200534265121557D-03
        ws( 17) = 0.1298384752038239D-03
        ws( 18) = 0.1401429663868486D-03
        ws( 19) = 0.1510348732463679D-03
        ws( 20) = 0.1625902251355653D-03
        ws( 21) = 0.1748944244361438D-03
        ws( 22) = 0.1880438261010461D-03
        ws( 23) = 0.2021476351679656D-03
        ws( 24) = 0.2173301920682919D-03
        ws( 25) = 0.2337337344240757D-03
        ws( 26) = 0.2515217482276166D-03
        ws( 27) = 0.2708830538327230D-03
        ws( 28) = 0.2920368124572834D-03
        ws( 29) = 0.3152386941567597D-03
        ws( 30) = 0.3407885229127680D-03
        ws( 31) = 0.3690398084746637D-03
        ws( 32) = 0.4004117093013422D-03
        ws( 33) = 0.4354041518464262D-03
        ws( 34) = 0.4746170725165446D-03
        ws( 35) = 0.5187750968443998D-03
        ws( 36) = 0.5687594482988872D-03
        ws( 37) = 0.6256495455404666D-03
        ws( 38) = 0.6907777266820136D-03
        ws( 39) = 0.7658019082694631D-03
        ws( 40) = 0.8528030013365960D-03
        ws( 41) = 0.9544169157009060D-03
        ws( 42) = 0.1074015293211780D-02
        ws( 43) = 0.1215955756877241D-02
        ws( 44) = 0.1385932172354106D-02
        ws( 45) = 0.1591470251331868D-02
        ws( 46) = 0.1842635200843015D-02
        ws( 47) = 0.2153046399559202D-02
        ws( 48) = 0.2541326624686639D-02
        ws( 49) = 0.3033121229517148D-02
        ws( 50) = 0.3663672249639398D-02
        ws( 51) = 0.4480185272704806D-02
        ws( 52) = 0.5541029846196242D-02
        ws( 53) = 0.6904391212209353D-02
        ws( 54) = 0.8594270477425347D-02
        ws( 55) = 0.1053923283671930D-01
        ws( 56) = 0.1252727783993689D-01
        ws( 57) = 0.1426754328549851D-01
        ws( 58) = 0.1555011032871460D-01
        ws( 59) = 0.1634246075240236D-01
        ws( 60) = 0.1674357349456637D-01
        ws( 61) = 0.1688871074029902D-01
        ws( 62) = 0.1689148114475003D-01
        ws( 63) = 0.1683664362457044D-01
        ws( 64) = 0.1675617722955028D-01
        ws( 65) = 0.1687967333835097D-01
        ws( 66) = 0.1712597835890084D-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 =  70
        err = 0.7367808992247857D-10
        xs(  1) = 0.1699147556540857D-05
        xs(  2) = 0.8955662211707682D-05
        xs(  3) = 0.2202285649066893D-04
        xs(  4) = 0.4092492345199289D-04
        xs(  5) = 0.6569393831085354D-04
        xs(  6) = 0.9637312566524373D-04
        xs(  7) = 0.1330183009561228D-03
        xs(  8) = 0.1756993302220318D-03
        xs(  9) = 0.2245017164469344D-03
        xs( 10) = 0.2795283076520410D-03
        xs( 11) = 0.3409011163870256D-03
        xs( 12) = 0.4087632495915531D-03
        xs( 13) = 0.4832809593734574D-03
        xs( 14) = 0.5646458365262260D-03
        xs( 15) = 0.6530771788566630D-03
        xs( 16) = 0.7488245755584880D-03
        xs( 17) = 0.8521707575200492D-03
        xs( 18) = 0.9634347719006873D-03
        xs( 19) = 0.1082975548405493D-02
        xs( 20) = 0.1211195934876462D-02
        xs( 21) = 0.1348547291804295D-02
        xs( 22) = 0.1495534750058690D-02
        xs( 23) = 0.1652723254030408D-02
        xs( 24) = 0.1820744534449051D-02
        xs( 25) = 0.2000305182737449D-02
        xs( 26) = 0.2192196032972592D-02
        xs( 27) = 0.2397303100153669D-02
        xs( 28) = 0.2616620377049743D-02
        xs( 29) = 0.2851264859031618D-02
        xs( 30) = 0.3102494250672049D-02
        xs( 31) = 0.3371727915522643D-02
        xs( 32) = 0.3660571766817129D-02
        xs( 33) = 0.3970847971853851D-02
        xs( 34) = 0.4304630567996137D-02
        xs( 35) = 0.4664288380830402D-02
        xs( 36) = 0.5052537016565814D-02
        xs( 37) = 0.5472502202812598D-02
        xs( 38) = 0.5927797418065074D-02
        xs( 39) = 0.6422619637970352D-02
        xs( 40) = 0.6961868225987122D-02
        xs( 41) = 0.7551293626280460D-02
        xs( 42) = 0.8197684751064169D-02
        xs( 43) = 0.8909107058331719D-02
        xs( 44) = 0.9695207657490620D-02
        xs( 45) = 0.1056760992825452D-01
        xs( 46) = 0.1154042896276846D-01
        xs( 47) = 0.1263095189726461D-01
        xs( 48) = 0.1386054590016265D-01
        xs( 49) = 0.1525588430627245D-01
        xs( 50) = 0.1685062284966091D-01
        xs( 51) = 0.1868771992014700D-01
        xs( 52) = 0.2082268585145648D-01
        xs( 53) = 0.2332817574282080D-01
        xs( 54) = 0.2630049824452460D-01
        xs( 55) = 0.2986868640541122D-01
        xs( 56) = 0.3420631135593622D-01
        xs( 57) = 0.3954407744748588D-01
        xs( 58) = 0.4617552229312758D-01
        xs( 59) = 0.5443759347185580D-01
        xs( 60) = 0.6463857614342602D-01
        xs( 61) = 0.7692730471811218D-01
        xs( 62) = 0.9117467143014876D-01
        xs( 63) = 0.1069843338566984D+00
        xs( 64) = 0.1238437759589831D+00
        xs( 65) = 0.1412904365787034D+00
        xs( 66) = 0.1589919465672118D+00
        xs( 67) = 0.1767462099835697D+00
        xs( 68) = 0.1944374175071556D+00
        xs( 69) = 0.2120850141832225D+00
        xs( 70) = 0.2288332282457668D+00
        ws(  1) = 0.4360897443792173D-05
        ws(  2) = 0.1015805484041797D-04
        ws(  3) = 0.1598013173963791D-04
        ws(  4) = 0.2182931662140300D-04
        ws(  5) = 0.2771589445761530D-04
        ws(  6) = 0.3365175859296210D-04
        ws(  7) = 0.3965020986246191D-04
        ws(  8) = 0.4572607066554010D-04
        ws(  9) = 0.5189581279159622D-04
        ws( 10) = 0.5817767290343528D-04
        ws( 11) = 0.6459176159410850D-04
        ws( 12) = 0.7116017702016197D-04
        ws( 13) = 0.7790713497028846D-04
        ws( 14) = 0.8485912601613157D-04
        ws( 15) = 0.9204510947589619D-04
        ws( 16) = 0.9949675299307804D-04
        ws( 17) = 0.1072487262021857D-03
        ws( 18) = 0.1153390571278783D-03
        ws( 19) = 0.1238095608620895D-03
        ws( 20) = 0.1327063514880686D-03
        ws( 21) = 0.1420804504675452D-03
        ws( 22) = 0.1519885076342673D-03
        ws( 23) = 0.1624936546784507D-03
        ws( 24) = 0.1736665156167806D-03
        ws( 25) = 0.1855864050491372D-03
        ws( 26) = 0.1983427521811623D-03
        ws( 27) = 0.2120367982994654D-03
        ws( 28) = 0.2267836276052473D-03
        ws( 29) = 0.2427146062714505D-03
        ws( 30) = 0.2599803248145581D-03
        ws( 31) = 0.2787541646067887D-03
        ws( 32) = 0.2992366422113181D-03
        ws( 33) = 0.3216607296261493D-03
        ws( 34) = 0.3462984057348929D-03
        ws( 35) = 0.3734687722045289D-03
        ws( 36) = 0.4035481690375584D-03
        ws( 37) = 0.4369828659046793D-03
        ws( 38) = 0.4743050946542865D-03
        ws( 39) = 0.5161534483478940D-03
        ws( 40) = 0.5632990400059275D-03
        ws( 41) = 0.6166793161845142D-03
        ws( 42) = 0.6774421437895682D-03
        ws( 43) = 0.7470038183543474D-03
        ws( 44) = 0.8271261218518689D-03
        ws( 45) = 0.9200197421383313D-03
        ws( 46) = 0.1028484593341172D-02
        ws( 47) = 0.1156102340853396D-02
        ws( 48) = 0.1307503734154643D-02
        ws( 49) = 0.1488744358460942D-02
        ws( 50) = 0.1707839276336044D-02
        ws( 51) = 0.1975531413305677D-02
        ws( 52) = 0.2306402854966705D-02
        ws( 53) = 0.2720478210251182D-02
        ws( 54) = 0.3245472160081932D-02
        ws( 55) = 0.3919606696203238D-02
        ws( 56) = 0.4793956886786609D-02
        ws( 57) = 0.5930746529515815D-02
        ws( 58) = 0.7389455183742764D-02
        ws( 59) = 0.9188419323606855D-02
        ws( 60) = 0.1124069327060325D-01
        ws( 61) = 0.1331511753916081D-01
        ws( 62) = 0.1511064227882039D-01
        ws( 63) = 0.1642021779702857D-01
        ws( 64) = 0.1722027674028985D-01
        ws( 65) = 0.1761789636734616D-01
        ws( 66) = 0.1775264562695733D-01
        ws( 67) = 0.1773765585294082D-01
        ws( 68) = 0.1762194641297648D-01
        ws( 69) = 0.1762182560656647D-01
        ws( 70) = 0.1746812424935162D-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 =  74
        err = 0.7450321180631994D-10
        xs(  1) = 0.1466096239215909D-05
        xs(  2) = 0.7726758060813590D-05
        xs(  3) = 0.1899834563943511D-04
        xs(  4) = 0.3529769205974400D-04
        xs(  5) = 0.5664649968141405D-04
        xs(  6) = 0.8307401765197045D-04
        xs(  7) = 0.1146181081936334D-03
        xs(  8) = 0.1513262966212778D-03
        xs(  9) = 0.1932569005916199D-03
        xs( 10) = 0.2404802343606598D-03
        xs( 11) = 0.2930798762416794D-03
        xs( 12) = 0.3511539927978844D-03
        xs( 13) = 0.4148167206680484D-03
        xs( 14) = 0.4841996145627751D-03
        xs( 15) = 0.5594531766455841D-03
        xs( 16) = 0.6407484884875096D-03
        xs( 17) = 0.7282789719658772D-03
        xs( 18) = 0.8222623101654610D-03
        xs( 19) = 0.9229425638386935D-03
        xs( 20) = 0.1030592523711319D-02
        xs( 21) = 0.1145516344012100D-02
        xs( 22) = 0.1268052508680022D-02
        xs( 23) = 0.1398577189032237D-02
        xs( 24) = 0.1537508060368837D-02
        xs( 25) = 0.1685308655897314D-02
        xs( 26) = 0.1842493349587320D-02
        xs( 27) = 0.2009633075869712D-02
        xs( 28) = 0.2187361914174652D-02
        xs( 29) = 0.2376384690997198D-02
        xs( 30) = 0.2577485782954525D-02
        xs( 31) = 0.2791539341651198D-02
        xs( 32) = 0.3019521208608483D-02
        xs( 33) = 0.3262522846953158D-02
        xs( 34) = 0.3521767690201580D-02
        xs( 35) = 0.3798630400931728D-02
        xs( 36) = 0.4094659649419296D-02
        xs( 37) = 0.4411605171393429D-02
        xs( 38) = 0.4751450056395635D-02
        xs( 39) = 0.5116449463969065D-02
        xs( 40) = 0.5509177285491854D-02
        xs( 41) = 0.5932582689176969D-02
        xs( 42) = 0.6390059037330486D-02
        xs( 43) = 0.6885528397181988D-02
        xs( 44) = 0.7423545851973831D-02
        xs( 45) = 0.8009429141744502D-02
        xs( 46) = 0.8649420975487421D-02
        xs( 47) = 0.9350893852011303D-02
        xs( 48) = 0.1012261068999660D-01
        xs( 49) = 0.1097505947536279D-01
        xs( 50) = 0.1192088708209878D-01
        xs( 51) = 0.1297546747160141D-01
        xs( 52) = 0.1415765412559845D-01
        xs( 53) = 0.1549078830289447D-01
        xs( 54) = 0.1700406721002881D-01
        xs( 55) = 0.1873442473151720D-01
        xs( 56) = 0.2072915057484047D-01
        xs( 57) = 0.2304958223322864D-01
        xs( 58) = 0.2577635248505972D-01
        xs( 59) = 0.2901681679397989D-01
        xs( 60) = 0.3291522761364076D-01
        xs( 61) = 0.3766544089502319D-01
        xs( 62) = 0.4352333167911435D-01
        xs( 63) = 0.5080979368841651D-01
        xs( 64) = 0.5988386263919417D-01
        xs( 65) = 0.7105668034292899D-01
        xs( 66) = 0.8444652848741900D-01
        xs( 67) = 0.9986435953785611D-01
        xs( 68) = 0.1168522653727278D+00
        xs( 69) = 0.1348601083781292D+00
        xs( 70) = 0.1534143317603874D+00
        xs( 71) = 0.1721883831579963D+00
        xs( 72) = 0.1909908423106166D+00
        xs( 73) = 0.2097562455638949D+00
        xs( 74) = 0.2278283836292540D+00
        ws(  1) = 0.3762702046950379D-05
        ws(  2) = 0.8763364629966429D-05
        ws(  3) = 0.1378241569612126D-04
        ws(  4) = 0.1881986946017411D-04
        ws(  5) = 0.2388260399248716D-04
        ws(  6) = 0.2897872489656398D-04
        ws(  7) = 0.3411735823136406D-04
        ws(  8) = 0.3930871813733660D-04
        ws(  9) = 0.4456418770123793D-04
        ws( 10) = 0.4989638748221894D-04
        ws( 11) = 0.5531923436481969D-04
        ws( 12) = 0.6084799742622662D-04
        ws( 13) = 0.6649935866144653D-04
        ws( 14) = 0.7229148568703358D-04
        ws( 15) = 0.7824412279862335D-04
        ws( 16) = 0.8437870593402057D-04
        ws( 17) = 0.9071850636037830D-04
        ws( 18) = 0.9728880773240332D-04
        ws( 19) = 0.1041171209661889D-03
        ws( 20) = 0.1112334418545281D-03
        ws( 21) = 0.1186705569336033D-03
        ws( 22) = 0.1264644042005492D-03
        ws( 23) = 0.1346544967066105D-03
        ws( 24) = 0.1432844187098420D-03
        ws( 25) = 0.1524024063183892D-03
        ws( 26) = 0.1620620274162080D-03
        ws( 27) = 0.1723229787900570D-03
        ws( 28) = 0.1832520227067872D-03
        ws( 29) = 0.1949240905957342D-03
        ws( 30) = 0.2074235874431854D-03
        ws( 31) = 0.2208459389558279D-03
        ws( 32) = 0.2352994341627720D-03
        ws( 33) = 0.2509074285806847D-03
        ws( 34) = 0.2678109904922619D-03
        ws( 35) = 0.2861720939612592D-03
        ws( 36) = 0.3061774903136952D-03
        ws( 37) = 0.3280434268736774D-03
        ws( 38) = 0.3520214299155090D-03
        ws( 39) = 0.3784054305741014D-03
        ws( 40) = 0.4075405994468339D-03
        ws( 41) = 0.4398343696834122D-03
        ws( 42) = 0.4757702789482121D-03
        ws( 43) = 0.5159254778163250D-03
        ws( 44) = 0.5609930396510173D-03
        ws( 45) = 0.6118106087926678D-03
        ws( 46) = 0.6693975072753487D-03
        ws( 47) = 0.7350032134331533D-03
        ws( 48) = 0.8101713119876960D-03
        ws( 49) = 0.8968247170681871D-03
        ws( 50) = 0.9973804489475946D-03
        ws( 51) = 0.1114906014745924D-02
        ws( 52) = 0.1253335053695955D-02
        ws( 53) = 0.1417768680693717D-02
        ws( 54) = 0.1614901905435324D-02
        ws( 55) = 0.1853634366489325D-02
        ws( 56) = 0.2145954318443924D-02
        ws( 57) = 0.2508225604913000D-02
        ws( 58) = 0.2963038044060513D-02
        ws( 59) = 0.3541715610300268D-02
        ws( 60) = 0.4287188999115553D-02
        ws( 61) = 0.5255786105240386D-02
        ws( 62) = 0.6513843051346326D-02
        ws( 63) = 0.8120316583442304D-02
        ws( 64) = 0.1008232218966794D-01
        ws( 65) = 0.1228533044259023D-01
        ws( 66) = 0.1446218111483452D-01
        ws( 67) = 0.1629375783494622D-01
        ws( 68) = 0.1758730992587100D-01
        ws( 69) = 0.1834836754857930D-01
        ws( 70) = 0.1870626787767111D-01
        ws( 71) = 0.1881221957732207D-01
        ws( 72) = 0.1877753404228336D-01
        ws( 73) = 0.1886627904171998D-01
        ws( 74) = 0.1862356737086676D-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 =  78
        err = 0.8348503210925663D-10
        xs(  1) = 0.1276150554953072D-05
        xs(  2) = 0.6725277330899545D-05
        xs(  3) = 0.1653410862496142D-04
        xs(  4) = 0.3071438912577935D-04
        xs(  5) = 0.4928075708386349D-04
        xs(  6) = 0.7225301464313901D-04
        xs(  7) = 0.9965697356284661D-04
        xs(  8) = 0.1315252630776804D-03
        xs(  9) = 0.1678981820038057D-03
        xs( 10) = 0.2088245906201027D-03
        xs( 11) = 0.2543628313928570D-03
        xs( 12) = 0.3045816717987167D-03
        xs( 13) = 0.3595612682062068D-03
        xs( 14) = 0.4193941552025911D-03
        xs( 15) = 0.4841862694009694D-03
        xs( 16) = 0.5540580204669770D-03
        xs( 17) = 0.6291454250553019D-03
        xs( 18) = 0.7096013219611498D-03
        xs( 19) = 0.7955966888732804D-03
        xs( 20) = 0.8873220833474137D-03
        xs( 21) = 0.9849892327696576D-03
        xs( 22) = 0.1088832800801677D-02
        xs( 23) = 0.1199112360694833D-02
        xs( 24) = 0.1316114609822520D-02
        xs( 25) = 0.1440155864157888D-02
        xs( 26) = 0.1571584876998169D-02
        xs( 27) = 0.1710786033047094D-02
        xs( 28) = 0.1858182977246695D-02
        xs( 29) = 0.2014242747524231D-02
        xs( 30) = 0.2179480492995706D-02
        xs( 31) = 0.2354464874124375D-02
        xs( 32) = 0.2539824258715219D-02
        xs( 33) = 0.2736253850436946D-02
        xs( 34) = 0.2944523913205197D-02
        xs( 35) = 0.3165489287923357D-02
        xs( 36) = 0.3400100439668695D-02
        xs( 37) = 0.3649416323902046D-02
        xs( 38) = 0.3914619423584694D-02
        xs( 39) = 0.4197033390284450D-02
        xs( 40) = 0.4498143821025971D-02
        xs( 41) = 0.4819622830970149D-02
        xs( 42) = 0.5163358243335401D-02
        xs( 43) = 0.5531488427507862D-02
        xs( 44) = 0.5926444083258080D-02
        xs( 45) = 0.6350998619666904D-02
        xs( 46) = 0.6808329235618542D-02
        xs( 47) = 0.7302091408562537D-02
        xs( 48) = 0.7836510310680597D-02
        xs( 49) = 0.8416493745289695D-02
        xs( 50) = 0.9047772665727139D-02
        xs( 51) = 0.9737077344472647D-02
        xs( 52) = 0.1049236002982878D-01
        xs( 53) = 0.1132307882494455D-01
        xs( 54) = 0.1224056302973217D-01
        xs( 55) = 0.1325848808157242D-01
        xs( 56) = 0.1439349972503052D-01
        xs( 57) = 0.1566604395837784D-01
        xs( 58) = 0.1710148475380116D-01
        xs( 59) = 0.1873162992553606D-01
        xs( 60) = 0.2059684422431773D-01
        xs( 61) = 0.2274901808050849D-01
        xs( 62) = 0.2525579503873227D-01
        xs( 63) = 0.2820664527318345D-01
        xs( 64) = 0.3172153592830852D-01
        xs( 65) = 0.3596277396580889D-01
        xs( 66) = 0.4114930586855197D-01
        xs( 67) = 0.4756903852763659D-01
        xs( 68) = 0.5557705166590595D-01
        xs( 69) = 0.6555575355151091D-01
        xs( 70) = 0.7780887434766465D-01
        xs( 71) = 0.9240513909907851D-01
        xs( 72) = 0.1090817314120434D+00
        xs( 73) = 0.1273204190525887D+00
        xs( 74) = 0.1465466891969968D+00
        xs( 75) = 0.1662946432938981D+00
        xs( 76) = 0.1862638556658951D+00
        xs( 77) = 0.2062950678926478D+00
        xs( 78) = 0.2261704594059589D+00
        ws(  1) = 0.3275163991704590D-05
        ws(  2) = 0.7626951385301036D-05
        ws(  3) = 0.1199249491315892D-04
        ws(  4) = 0.1637048525477836D-04
        ws(  5) = 0.2076553789962050D-04
        ws(  6) = 0.2518326578577268D-04
        ws(  7) = 0.2963007603284396D-04
        ws(  8) = 0.3411320457480829D-04
        ws(  9) = 0.3864076129755416D-04
        ws( 10) = 0.4322176396363222D-04
        ws( 11) = 0.4786616276766160D-04
        ws( 12) = 0.5258486096980848D-04
        ws( 13) = 0.5738973724942983D-04
        ws( 14) = 0.6229367503321699D-04
        ws( 15) = 0.6731060278349534D-04
        ws( 16) = 0.7245554858477201D-04
        ws( 17) = 0.7774471183545827D-04
        ws( 18) = 0.8319555429975253D-04
        ws( 19) = 0.8882691268292589D-04
        ws( 20) = 0.9465913479210691D-04
        ws( 21) = 0.1007142418568743D-03
        ws( 22) = 0.1070161195974993D-03
        ws( 23) = 0.1135907416137072D-03
        ws( 24) = 0.1204664291128375D-03
        ws( 25) = 0.1276741520155529D-03
        ws( 26) = 0.1352478774671329D-03
        ws( 27) = 0.1432249734329816D-03
        ws( 28) = 0.1516466762152624D-03
        ws( 29) = 0.1605586327908127D-03
        ws( 30) = 0.1700115319549668D-03
        ws( 31) = 0.1800618398487805D-03
        ws( 32) = 0.1907726600017825D-03
        ws( 33) = 0.2022147427143937D-03
        ws( 34) = 0.2144676728713319D-03
        ws( 35) = 0.2276212737967259D-03
        ws( 36) = 0.2417772726809749D-03
        ws( 37) = 0.2570512835109438D-03
        ws( 38) = 0.2735751797248420D-03
        ws( 39) = 0.2914999455563941D-03
        ws( 40) = 0.3109991177264629D-03
        ws( 41) = 0.3322729617811153D-03
        ws( 42) = 0.3555535653286393D-03
        ws( 43) = 0.3811110849545374D-03
        ws( 44) = 0.4092614497425638D-03
        ws( 45) = 0.4403759230459602D-03
        ws( 46) = 0.4748930422684859D-03
        ws( 47) = 0.5133336309517001D-03
        ws( 48) = 0.5563198174403640D-03
        ws( 49) = 0.6045992998869490D-03
        ws( 50) = 0.6590765765645623D-03
        ws( 51) = 0.7208534716547802D-03
        ws( 52) = 0.7912822260878427D-03
        ws( 53) = 0.8720357574304658D-03
        ws( 54) = 0.9652016203078165D-03
        ws( 55) = 0.1073409132044200D-02
        ws( 56) = 0.1200003471281988D-02
        ws( 57) = 0.1349287307722138D-02
        ws( 58) = 0.1526860988483558D-02
        ws( 59) = 0.1740108270290794D-02
        ws( 60) = 0.1998899666630887D-02
        ws( 61) = 0.2316622627663378D-02
        ws( 62) = 0.2711700256551083D-02
        ws( 63) = 0.3209796574824783D-02
        ws( 64) = 0.3846788653210125D-02
        ws( 65) = 0.4671946290570768D-02
        ws( 66) = 0.5749074859533768D-02
        ws( 67) = 0.7150148618596466D-02
        ws( 68) = 0.8931379797718976D-02
        ws( 69) = 0.1107954980883701D-01
        ws( 70) = 0.1344012840693994D-01
        ws( 71) = 0.1570717834866747D-01
        ws( 72) = 0.1755582729338886D-01
        ws( 73) = 0.1882289182723845D-01
        ws( 74) = 0.1955108024058073D-01
        ws( 75) = 0.1989585145688708D-01
        ws( 76) = 0.2003118043585402D-01
        ws( 77) = 0.2006255555134943D-01
        ws( 78) = 0.2060659503351601D-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 =  83
        err = 0.6333721734058026D-10
        xs(  1) = 0.1112784495224220D-05
        xs(  2) = 0.5864159605947700D-05
        xs(  3) = 0.1441622696993265D-04
        xs(  4) = 0.2677787908210414D-04
        xs(  5) = 0.4295983154737664D-04
        xs(  6) = 0.6297650261605612D-04
        xs(  7) = 0.8684663176960995D-04
        xs(  8) = 0.1145938527230905D-03
        xs(  9) = 0.1462472971037572D-03
        xs( 10) = 0.1818422278465968D-03
        xs( 11) = 0.2214206937018895D-03
        xs( 12) = 0.2650321983128731D-03
        xs( 13) = 0.3127343807360198D-03
        xs( 14) = 0.3645937079949464D-03
        xs( 15) = 0.4206861833751202D-03
        xs( 16) = 0.4810980768514372D-03
        xs( 17) = 0.5459266861042986D-03
        xs( 18) = 0.6152811383190641D-03
        xs( 19) = 0.6892832443729952D-03
        xs( 20) = 0.7680684181616583D-03
        xs( 21) = 0.8517866750813056D-03
        xs( 22) = 0.9406037248557682D-03
        xs( 23) = 0.1034702175308020D-02
        xs( 24) = 0.1134282865322515D-02
        xs( 25) = 0.1239566347248897D-02
        xs( 26) = 0.1350794541322516D-02
        xs( 27) = 0.1468232587621250D-02
        xs( 28) = 0.1592170924552074D-02
        xs( 29) = 0.1722927627038598D-02
        xs( 30) = 0.1860851042587656D-02
        xs( 31) = 0.2006322769569986D-02
        xs( 32) = 0.2159761029287725D-02
        xs( 33) = 0.2321624491975674D-02
        xs( 34) = 0.2492416627684010D-02
        xs( 35) = 0.2672690665493811D-02
        xs( 36) = 0.2863055259822622D-02
        xs( 37) = 0.3064180981487371D-02
        xs( 38) = 0.3276807773729543D-02
        xs( 39) = 0.3501753541038792D-02
        xs( 40) = 0.3739924072929742D-02
        xs( 41) = 0.3992324546795523D-02
        xs( 42) = 0.4260072906167119D-02
        xs( 43) = 0.4544415475016153D-02
        xs( 44) = 0.4846745250774246D-02
        xs( 45) = 0.5168623420268468D-02
        xs( 46) = 0.5511804771268523D-02
        xs( 47) = 0.5878267838211668D-02
        xs( 48) = 0.6270250830529309D-02
        xs( 49) = 0.6690294662229609D-02
        xs( 50) = 0.7141294756666825D-02
        xs( 51) = 0.7626563759211360D-02
        xs( 52) = 0.8149907898112822D-02
        xs( 53) = 0.8715720545253944D-02
        xs( 54) = 0.9329097608315512D-02
        xs( 55) = 0.9995980857429721D-02
        xs( 56) = 0.1072333729754099D-01
        xs( 57) = 0.1151938546294800D-01
        xs( 58) = 0.1239388340938493D-01
        xs( 59) = 0.1335849866495412D-01
        xs( 60) = 0.1442728830943942D-01
        xs( 61) = 0.1561732879950814D-01
        xs( 62) = 0.1694955208272549D-01
        xs( 63) = 0.1844987002983235D-01
        xs( 64) = 0.2015070768623809D-01
        xs( 65) = 0.2209312461261975D-01
        xs( 66) = 0.2432979330408242D-01
        xs( 67) = 0.2692924047057721D-01
        xs( 68) = 0.2998194295640352D-01
        xs( 69) = 0.3360903304762313D-01
        xs( 70) = 0.3797420920016632D-01
        xs( 71) = 0.4329825385597401D-01
        xs( 72) = 0.4987197137892522D-01
        xs( 73) = 0.5805530641242032D-01
        xs( 74) = 0.6823725903247986D-01
        xs( 75) = 0.8072871067109889D-01
        xs( 76) = 0.9560805581838994D-01
        xs( 77) = 0.1126262795077518D+00
        xs( 78) = 0.1312758972075980D+00
        xs( 79) = 0.1509801766594110D+00
        xs( 80) = 0.1712572791350204D+00
        xs( 81) = 0.1917841362535061D+00
        xs( 82) = 0.2123613293043610D+00
        xs( 83) = 0.2325778174730554D+00
        ws(  1) = 0.2855873988229073D-05
        ws(  2) = 0.6650123836539624D-05
        ws(  3) = 0.1045534274628485D-04
        ws(  4) = 0.1426973118722638D-04
        ws(  5) = 0.1809656734034038D-04
        ws(  6) = 0.2193988856308487D-04
        ws(  7) = 0.2580429862074979D-04
        ws(  8) = 0.2969498797808407D-04
        ws(  9) = 0.3361776701630711D-04
        ws( 10) = 0.3757909143695590D-04
        ws( 11) = 0.4158607954230492D-04
        ws( 12) = 0.4564652465366189D-04
        ws( 13) = 0.4976890623890177D-04
        ws( 14) = 0.5396240333727214D-04
        ws( 15) = 0.5823691309461519D-04
        ws( 16) = 0.6260307680529873D-04
        ws( 17) = 0.6707231535610184D-04
        ws( 18) = 0.7165687559690407D-04
        ws( 19) = 0.7636988888909711D-04
        ws( 20) = 0.8122544308098401D-04
        ws( 21) = 0.8623866902539214D-04
        ws( 22) = 0.9142584299153385D-04
        ws( 23) = 0.9680450640682469D-04
        ws( 24) = 0.1023936048340929D-03
        ws( 25) = 0.1082136482603679D-03
        ws( 26) = 0.1142868953368776D-03
        ws( 27) = 0.1206375647819498D-03
        ws( 28) = 0.1272920777369113D-03
        ws( 29) = 0.1342793356378226D-03
        ws( 30) = 0.1416310391281620D-03
        ws( 31) = 0.1493820547877172D-03
        ws( 32) = 0.1575708373693533D-03
        ws( 33) = 0.1662399172605968D-03
        ws( 34) = 0.1754364648416027D-03
        ws( 35) = 0.1852129453266488D-03
        ws( 36) = 0.1956278812641728D-03
        ws( 37) = 0.2067467432714016D-03
        ws( 38) = 0.2186429938051785D-03
        ws( 39) = 0.2313993147182483D-03
        ws( 40) = 0.2451090565084937D-03
        ws( 41) = 0.2598779559567476D-03
        ws( 42) = 0.2758261798473268D-03
        ws( 43) = 0.2930907670785383D-03
        ws( 44) = 0.3118285606959198D-03
        ws( 45) = 0.3322197429737114D-03
        ws( 46) = 0.3544721190548980D-03
        ws( 47) = 0.3788263365325568D-03
        ws( 48) = 0.4055622753832032D-03
        ws( 49) = 0.4350069198048311D-03
        ws( 50) = 0.4675441123163310D-03
        ws( 51) = 0.5036267156575141D-03
        ws( 52) = 0.5437918819286114D-03
        ws( 53) = 0.5886803605516562D-03
        ws( 54) = 0.6390610964865039D-03
        ws( 55) = 0.6958628322633236D-03
        ws( 56) = 0.7602150510763654D-03
        ws( 57) = 0.8335015222601146D-03
        ws( 58) = 0.9174310496040349D-03
        ws( 59) = 0.1014131942278700D-02
        ws( 60) = 0.1126279678092812D-02
        ws( 61) = 0.1257271498304300D-02
        ws( 62) = 0.1411468574461845D-02
        ws( 63) = 0.1594536759210847D-02
        ws( 64) = 0.1813933116429553D-02
        ws( 65) = 0.2079610199809465D-02
        ws( 66) = 0.2405048597347889D-02
        ws( 67) = 0.2808781904924101D-02
        ws( 68) = 0.3316612737634164D-02
        ws( 69) = 0.3964600311460084D-02
        ws( 70) = 0.4802307118854771D-02
        ws( 71) = 0.5894203050382091D-02
        ws( 72) = 0.7313801809718155D-02
        ws( 73) = 0.9119506150663061D-02
        ws( 74) = 0.1129907685651475D-01
        ws( 75) = 0.1369881246202145D-01
        ws( 76) = 0.1601709648428825D-01
        ws( 77) = 0.1793116818833209D-01
        ws( 78) = 0.1926902973145784D-01
        ws( 79) = 0.2005825035138894D-01
        ws( 80) = 0.2044133502795048D-01
        ws( 81) = 0.2059627714806553D-01
        ws( 82) = 0.2063719769521823D-01
        ws( 83) = 0.2060997961552105D-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 =  87
        err = 0.7187433031482201D-10
        xs(  1) = 0.9896208792313527D-06
        xs(  2) = 0.5214907899656749D-05
        xs(  3) = 0.1281922897854043D-04
        xs(  4) = 0.2380904900824900D-04
        xs(  5) = 0.3819177850562340D-04
        xs(  6) = 0.5597740955990057D-04
        xs(  7) = 0.7717902178616501D-04
        xs(  8) = 0.1018132401578518D-03
        xs(  9) = 0.1299007135441550D-03
        xs( 10) = 0.1614666134426100D-03
        xs( 11) = 0.1965411452594636D-03
        xs( 12) = 0.2351600657863545D-03
        xs( 13) = 0.2773652030994993D-03
        xs( 14) = 0.3232049780670025D-03
        xs( 15) = 0.3727349290269440D-03
        xs( 16) = 0.4260182433986973D-03
        xs( 17) = 0.4831263014591730D-03
        xs( 18) = 0.5441392388763100D-03
        xs( 19) = 0.6091465354743541D-03
        xs( 20) = 0.6782476384936456D-03
        xs( 21) = 0.7515526292712896D-03
        xs( 22) = 0.8291829427962463D-03
        xs( 23) = 0.9112721503440668D-03
        xs( 24) = 0.9979668160955875D-03
        xs( 25) = 0.1089427439567476D-02
        xs( 26) = 0.1185829496751037D-02
        xs( 27) = 0.1287364594231874D-02
        xs( 28) = 0.1394241752097085D-02
        xs( 29) = 0.1506688833471525D-02
        xs( 30) = 0.1624954140808118D-02
        xs( 31) = 0.1749308201743418D-02
        xs( 32) = 0.1880045770817790D-02
        xs( 33) = 0.2017488077267368D-02
        xs( 34) = 0.2161985353568027D-02
        xs( 35) = 0.2313919685257113D-02
        xs( 36) = 0.2473708229130862D-02
        xs( 37) = 0.2641806854776334D-02
        xs( 38) = 0.2818714274025669D-02
        xs( 39) = 0.3004976734436461D-02
        xs( 40) = 0.3201193366311416D-02
        xs( 41) = 0.3408022289847428D-02
        xs( 42) = 0.3626187609034165D-02
        xs( 43) = 0.3856487443414024D-02
        xs( 44) = 0.4099803178976854D-02
        xs( 45) = 0.4357110156465654D-02
        xs( 46) = 0.4629490061062678D-02
        xs( 47) = 0.4918145333568906D-02
        xs( 48) = 0.5224415993493283D-02
        xs( 49) = 0.5549799354226623D-02
        xs( 50) = 0.5895973218461647D-02
        xs( 51) = 0.6264823286073511D-02
        xs( 52) = 0.6658475684449662D-02
        xs( 53) = 0.7079335759975410D-02
        xs( 54) = 0.7530134570018775D-02
        xs( 55) = 0.8013984898230016D-02
        xs( 56) = 0.8534449124029061D-02
        xs( 57) = 0.9095621948437422D-02
        xs( 58) = 0.9702231870359351D-02
        xs( 59) = 0.1035976650669219D-01
        xs( 60) = 0.1107462849556686D-01
        xs( 61) = 0.1185433094601211D-01
        xs( 62) = 0.1270774453801790D-01
        xs( 63) = 0.1364541275079739D-01
        xs( 64) = 0.1467995794857862D-01
        xs( 65) = 0.1582661010944028D-01
        xs( 66) = 0.1710390316167439D-01
        xs( 67) = 0.1853460373468340D-01
        xs( 68) = 0.2014696693570593D-01
        xs( 69) = 0.2197645927672674D-01
        xs( 70) = 0.2406815885579385D-01
        xs( 71) = 0.2648015168275257D-01
        xs( 72) = 0.2928840547231112D-01
        xs( 73) = 0.3259380353993310D-01
        xs( 74) = 0.3653213307694801D-01
        xs( 75) = 0.4128745828391312D-01
        xs( 76) = 0.4710768374028487D-01
        xs( 77) = 0.5431679938742749D-01
        xs( 78) = 0.6330866024946624D-01
        xs( 79) = 0.7449213533350200D-01
        xs( 80) = 0.8816152505952231D-01
        xs( 81) = 0.1043322662536397D+00
        xs( 82) = 0.1226699601637951D+00
        xs( 83) = 0.1426016499279010D+00
        xs( 84) = 0.1635270078059212D+00
        xs( 85) = 0.1849749189830435D+00
        xs( 86) = 0.2066405520104669D+00
        xs( 87) = 0.2280290045948961D+00
        ws(  1) = 0.2539761096311687D-05
        ws(  2) = 0.5913569157417905D-05
        ws(  3) = 0.9296017308462230D-05
        ws(  4) = 0.1268484400534935D-04
        ws(  5) = 0.1608227267296397D-04
        ws(  6) = 0.1949116180432251D-04
        ws(  7) = 0.2291482548669753D-04
        ws(  8) = 0.2635704440194653D-04
        ws(  9) = 0.2982208908741134D-04
        ws( 10) = 0.3331473631289687D-04
        ws( 11) = 0.3684027811973010D-04
        ws( 12) = 0.4040452559230690D-04
        ws( 13) = 0.4401381044227697D-04
        ws( 14) = 0.4767498703092562D-04
        ws( 15) = 0.5139543707860783D-04
        ws( 16) = 0.5518307902147367D-04
        ws( 17) = 0.5904638325621187D-04
        ws( 18) = 0.6299439451422009D-04
        ws( 19) = 0.6703676212591395D-04
        ws( 20) = 0.7118377883631169D-04
        ws( 21) = 0.7544642886932677D-04
        ws( 22) = 0.7983644580871255D-04
        ws( 23) = 0.8436638097178156D-04
        ws( 24) = 0.8904968313446084D-04
        ws( 25) = 0.9390079061089922D-04
        ws( 26) = 0.9893523684624445D-04
        ws( 27) = 0.1041697710171169D-03
        ws( 28) = 0.1096224953490162D-03
        ws( 29) = 0.1153130214381259D-03
        ws( 30) = 0.1212626478863345D-03
        ws( 31) = 0.1274945623611326D-03
        ws( 32) = 0.1340340719458783D-03
        ws( 33) = 0.1409088656443058D-03
        ws( 34) = 0.1481493143721013D-03
        ws( 35) = 0.1557888146013549D-03
        ws( 36) = 0.1638641827687723D-03
        ws( 37) = 0.1724161091470931D-03
        ws( 38) = 0.1814896817457998D-03
        ws( 39) = 0.1911349926409295D-03
        ws( 40) = 0.2014078416037674D-03
        ws( 41) = 0.2123705560324366D-03
        ws( 42) = 0.2240929486029342D-03
        ws( 43) = 0.2366534403053168D-03
        ws( 44) = 0.2501403818731543D-03
        ws( 45) = 0.2646536146975383D-03
        ws( 46) = 0.2803063220541841D-03
        ws( 47) = 0.2972272323242523D-03
        ws( 48) = 0.3155632549058755D-03
        ws( 49) = 0.3354826456787456D-03
        ws( 50) = 0.3571788266025968D-03
        ws( 51) = 0.3808750200580346D-03
        ws( 52) = 0.4068298971687142D-03
        ws( 53) = 0.4353445020225401D-03
        ws( 54) = 0.4667707912089152D-03
        ws( 55) = 0.5015222255253196D-03
        ws( 56) = 0.5400869968966041D-03
        ws( 57) = 0.5830446622804821D-03
        ws( 58) = 0.6310872069127265D-03
        ws( 59) = 0.6850459430085846D-03
        ws( 60) = 0.7459261397873083D-03
        ws( 61) = 0.8149520069159455D-03
        ws( 62) = 0.8936257298248764D-03
        ws( 63) = 0.9838057153904796D-03
        ws( 64) = 0.1087811554780866D-02
        ws( 65) = 0.1208566495178474D-02
        ws( 66) = 0.1349793441956480D-02
        ws( 67) = 0.1516288658950653D-02
        ws( 68) = 0.1714309560791640D-02
        ws( 69) = 0.1952132657734422D-02
        ws( 70) = 0.2240867910244971D-02
        ws( 71) = 0.2595663855843663D-02
        ws( 72) = 0.3037492609397799D-02
        ws( 73) = 0.3595710009443596D-02
        ws( 74) = 0.4311355824012532D-02
        ws( 75) = 0.5240375726313867D-02
        ws( 76) = 0.6454101485257756D-02
        ws( 77) = 0.8030593428168311D-02
        ws( 78) = 0.1002350495077750D-01
        ws( 79) = 0.1239560021615891D-01
        ws( 80) = 0.1494723006788784D-01
        ws( 81) = 0.1733641051695664D-01
        ws( 82) = 0.1923949582806773D-01
        ws( 83) = 0.2052114415994498D-01
        ws( 84) = 0.2125022198631591D-01
        ws( 85) = 0.2159802594084900D-01
        ws( 86) = 0.2178101832778223D-01
        ws( 87) = 0.2156234166631387D-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 =  92
        err = 0.5380610745448823D-10
        xs(  1) = 0.8781560753844442D-06
        xs(  2) = 0.4627446005930211D-05
        xs(  3) = 0.1137474686114705D-04
        xs(  4) = 0.2112515361774822D-04
        xs(  5) = 0.3388426275163879D-04
        xs(  6) = 0.4965957139106812D-04
        xs(  7) = 0.6846086371979721D-04
        xs(  8) = 0.9030054811725208D-04
        xs(  9) = 0.1151940091433588D-03
        xs( 10) = 0.1431599761787989D-03
        xs( 11) = 0.1742209033607218D-03
        xs( 12) = 0.2084033555970239D-03
        xs( 13) = 0.2457383970429262D-03
        xs( 14) = 0.2862619802462216D-03
        xs( 15) = 0.3300153359221694D-03
        xs( 16) = 0.3770453647907226D-03
        xs( 17) = 0.4274050341559161D-03
        xs( 18) = 0.4811537828546110D-03
        xs( 19) = 0.5383579389936585D-03
        xs( 20) = 0.5990911554664260D-03
        xs( 21) = 0.6634348687131273D-03
        xs( 22) = 0.7314787865895424D-03
        xs( 23) = 0.8033214115849230D-03
        xs( 24) = 0.8790706060428848D-03
        xs( 25) = 0.9588442064448739D-03
        xs( 26) = 0.1042770694391222D-02
        xs( 27) = 0.1130989932486877D-02
        xs( 28) = 0.1223653974111026D-02
        xs( 29) = 0.1320927956990992D-02
        xs( 30) = 0.1422991091553510D-02
        xs( 31) = 0.1530037756302041D-02
        xs( 32) = 0.1642278713984162D-02
        xs( 33) = 0.1759942464270613D-02
        xs( 34) = 0.1883276750637774D-02
        xs( 35) = 0.2012550241674612D-02
        xs( 36) = 0.2148054410134847D-02
        xs( 37) = 0.2290105636459482D-02
        xs( 38) = 0.2439047567635600D-02
        xs( 39) = 0.2595253767152081D-02
        xs( 40) = 0.2759130697677290D-02
        xs( 41) = 0.2931121084875190D-02
        xs( 42) = 0.3111707719058164D-02
        xs( 43) = 0.3301417761078899D-02
        xs( 44) = 0.3500827630793003D-02
        xs( 45) = 0.3710568570502877D-02
        xs( 46) = 0.3931332992671154D-02
        xs( 47) = 0.4163881742242689D-02
        xs( 48) = 0.4409052428922686D-02
        xs( 49) = 0.4667769015207205D-02
        xs( 50) = 0.4941052884547181D-02
        xs( 51) = 0.5230035659764354D-02
        xs( 52) = 0.5535974099786908D-02
        xs( 53) = 0.5860267474591156D-02
        xs( 54) = 0.6204477908135822D-02
        xs( 55) = 0.6570354292052542D-02
        xs( 56) = 0.6959860515868491D-02
        xs( 57) = 0.7375208942664040D-02
        xs( 58) = 0.7818900290934353D-02
        xs( 59) = 0.8293771387297005D-02
        xs( 60) = 0.8803052646259841D-02
        xs( 61) = 0.9350437646620765D-02
        xs( 62) = 0.9940167856570585D-02
        xs( 63) = 0.1057713646261106D-01
        xs( 64) = 0.1126701648002915D-01
        xs( 65) = 0.1201641998101750D-01
        xs( 66) = 0.1283309755632738D-01
        xs( 67) = 0.1372619031424743D-01
        xs( 68) = 0.1470655119338633D-01
        xs( 69) = 0.1578715876007502D-01
        xs( 70) = 0.1698365594788069D-01
        xs( 71) = 0.1831505991514256D-01
        xs( 72) = 0.1980470986861791D-01
        xs( 73) = 0.2148155084468148D-01
        xs( 74) = 0.2338189944331440D-01
        xs( 75) = 0.2555191296553101D-01
        xs( 76) = 0.2805110204032010D-01
        xs( 77) = 0.3095739575290573D-01
        xs( 78) = 0.3437444922663299D-01
        xs( 79) = 0.3844192013459031D-01
        xs( 80) = 0.4334896288727209D-01
        xs( 81) = 0.4934940848647570D-01
        xs( 82) = 0.5677246021999676D-01
        xs( 83) = 0.6601304674199783D-01
        xs( 84) = 0.7747434442556066D-01
        xs( 85) = 0.9144395673138869D-01
        xs( 86) = 0.1079429413822640D+00
        xs( 87) = 0.1266586887597198D+00
        xs( 88) = 0.1470419024337361D+00
        xs( 89) = 0.1685014733612639D+00
        xs( 90) = 0.1905574331411299D+00
        xs( 91) = 0.2128701300024300D+00
        xs( 92) = 0.2349032068764475D+00
        ws(  1) = 0.2253688198068454D-05
        ws(  2) = 0.5247280622323114D-05
        ws(  3) = 0.8248052734591672D-05
        ws(  4) = 0.1125368213494416D-04
        ws(  5) = 0.1426577990401400D-04
        ws(  6) = 0.1728646251878644D-04
        ws(  7) = 0.2031818432856035D-04
        ws(  8) = 0.2336374240273691D-04
        ws(  9) = 0.2642629486901274D-04
        ws( 10) = 0.2950937511509720D-04
        ws( 11) = 0.3261690025439135D-04
        ws( 12) = 0.3575317509258183D-04
        ws( 13) = 0.3892289339828424D-04
        ws( 14) = 0.4213113827018988D-04
        ws( 15) = 0.4538338326623862D-04
        ws( 16) = 0.4868549561627548D-04
        ws( 17) = 0.5204374263800890D-04
        ws( 18) = 0.5546480219924502D-04
        ws( 19) = 0.5895577792803763D-04
        ws( 20) = 0.6252421964201489D-04
        ws( 21) = 0.6617814945631249D-04
        ws( 22) = 0.6992609397341134D-04
        ws( 23) = 0.7377712285706418D-04
        ws( 24) = 0.7774089430820096D-04
        ws( 25) = 0.8182770785208011D-04
        ws( 26) = 0.8604856500442535D-04
        ws( 27) = 0.9041523854954083D-04
        ws( 28) = 0.9494035120921981D-04
        ws( 29) = 0.9963746473184094D-04
        ws( 30) = 0.1045211805802299D-03
        ws( 31) = 0.1096072535378026D-03
        ws( 32) = 0.1149127200377801D-03
        ws( 33) = 0.1204560431492908D-03
        ws( 34) = 0.1262572764287485D-03
        ws( 35) = 0.1323382494521791D-03
        ws( 36) = 0.1387227783124730D-03
        ws( 37) = 0.1454369047674724D-03
        ws( 38) = 0.1525091685687844D-03
        ws( 39) = 0.1599709183140765D-03
        ws( 40) = 0.1678566671428627D-03
        ws( 41) = 0.1762045007250840D-03
        ws( 42) = 0.1850565465279727D-03
        ws( 43) = 0.1944595150234594D-03
        ws( 44) = 0.2044653259671080D-03
        ws( 45) = 0.2151318348591709D-03
        ws( 46) = 0.2265236785349343D-03
        ws( 47) = 0.2387132629604285D-03
        ws( 48) = 0.2517819203151945D-03
        ws( 49) = 0.2658212699658095D-03
        ws( 50) = 0.2809348251812112D-03
        ws( 51) = 0.2972398966556852D-03
        ws( 52) = 0.3148698574294114D-03
        ws( 53) = 0.3339768493665649D-03
        ws( 54) = 0.3547350313534309D-03
        ws( 55) = 0.3773444962027777D-03
        ws( 56) = 0.4020360173761276D-03
        ws( 57) = 0.4290768311172778D-03
        ws( 58) = 0.4587777174296999D-03
        ws( 59) = 0.4915017252959986D-03
        ws( 60) = 0.5276749862957292D-03
        ws( 61) = 0.5678002074724453D-03
        ws( 62) = 0.6124736243738806D-03
        ws( 63) = 0.6624064577985780D-03
        ws( 64) = 0.7184522935021535D-03
        ws( 65) = 0.7816423128459502D-03
        ws( 66) = 0.8532310546170587D-03
        ws( 67) = 0.9347564633986165D-03
        ws( 68) = 0.1028119517403228D-02
        ws( 69) = 0.1135691095869473D-02
        ws( 70) = 0.1260457235982227D-02
        ws( 71) = 0.1406219507195116D-02
        ws( 72) = 0.1577875653445330D-02
        ws( 73) = 0.1781818699923361D-02
        ws( 74) = 0.2026514036306387D-02
        ws( 75) = 0.2323348711593290D-02
        ws( 76) = 0.2687897736121794D-02
        ws( 77) = 0.3141795315567186D-02
        ws( 78) = 0.3715360419293781D-02
        ws( 79) = 0.4450841535180125D-02
        ws( 80) = 0.5405335627367118D-02
        ws( 81) = 0.6650511537483484D-02
        ws( 82) = 0.8262303292413804D-02
        ws( 83) = 0.1028820697266495D-01
        ws( 84) = 0.1268515000975538D-01
        ws( 85) = 0.1525896697558214D-01
        ws( 86) = 0.1768508271769587D-01
        ws( 87) = 0.1965119852287223D-01
        ws( 88) = 0.2101400073614418D-01
        ws( 89) = 0.2182481541068008D-01
        ws( 90) = 0.2224356321404236D-01
        ws( 91) = 0.2239860082611901D-01
        ws( 92) = 0.2150844247555080D-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 =  32
        err = 0.2219880619608895D-10
        xs(  1) = 0.2383246765643577D-03
        xs(  2) = 0.1256685896625479D-02
        xs(  3) = 0.3087031640118794D-02
        xs(  4) = 0.5711479807131115D-02
        xs(  5) = 0.9088701037757996D-02
        xs(  6) = 0.1315954967848306D-01
        xs(  7) = 0.1785735766098260D-01
        xs(  8) = 0.2311622071734083D-01
        xs(  9) = 0.2887542670466598D-01
        xs( 10) = 0.3508101111897675D-01
        xs( 11) = 0.4168580467567610D-01
        xs( 12) = 0.4864887118035753D-01
        xs( 13) = 0.5593478056780312D-01
        xs( 14) = 0.6351289819368074D-01
        xs( 15) = 0.7135674875401898D-01
        xs( 16) = 0.7944346499562734D-01
        xs( 17) = 0.8775331467139653D-01
        xs( 18) = 0.9626929606681341D-01
        xs( 19) = 0.1049768104519612D+00
        xs( 20) = 0.1138633242510633D+00
        xs( 21) = 0.1229182181203022D+00
        xs( 22) = 0.1321325879891264D+00
        xs( 23) = 0.1414988572822518D+00
        xs( 24) = 0.1510109215207827D+00
        xs( 25) = 0.1606629356043271D+00
        xs( 26) = 0.1704610257874234D+00
        xs( 27) = 0.1803769413130648D+00
        xs( 28) = 0.1904396545968920D+00
        xs( 29) = 0.2006287996364536D+00
        xs( 30) = 0.2111208116268689D+00
        xs( 31) = 0.2210957230027008D+00
        xs( 32) = 0.2432755759628999D+00
        ws(  1) = 0.6117931675174485D-03
        ws(  2) = 0.1425445991507001D-02
        ws(  3) = 0.2232357244935680D-02
        ws(  4) = 0.3009536375567202D-02
        ws(  5) = 0.3734859168319605D-02
        ws(  6) = 0.4395585731890335D-02
        ws(  7) = 0.4988975758588867D-02
        ws(  8) = 0.5518609234581943D-02
        ws(  9) = 0.5990809948237278D-02
        ws( 10) = 0.6412507674286239D-02
        ws( 11) = 0.6790269232133919D-02
        ws( 12) = 0.7129970723516361D-02
        ws( 13) = 0.7436752887186998D-02
        ws( 14) = 0.7715078996898417D-02
        ws( 15) = 0.7968818796641226D-02
        ws( 16) = 0.8201331236446381D-02
        ws( 17) = 0.8415542067667909D-02
        ws( 18) = 0.8613990351385168D-02
        ws( 19) = 0.8798939117775665D-02
        ws( 20) = 0.8972382802746854D-02
        ws( 21) = 0.9135897955445326D-02
        ws( 22) = 0.9291188951847678D-02
        ws( 23) = 0.9441066864674443D-02
        ws( 24) = 0.9583357844792329D-02
        ws( 25) = 0.9718583833842812D-02
        ws( 26) = 0.9861138243782989D-02
        ws( 27) = 0.1001140567514067D-01
        ws( 28) = 0.1014271802625819D-01
        ws( 29) = 0.9960423269319020D-02
        ws( 30) = 0.1133369416306781D-01
        ws( 31) = 0.1097699773730526D-01
        ws( 32) = 0.3639171774754243D-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 =  30
        err = 0.7045600328599553D-10
        xs(  1) = 0.2587452459103761D-03
        xs(  2) = 0.1365581886411880D-02
        xs(  3) = 0.3357078282905294D-02
        xs(  4) = 0.6210903654396406D-02
        xs(  5) = 0.9873677794485679D-02
        xs(  6) = 0.1427107082743184D-01
        xs(  7) = 0.1932248485474942D-01
        xs(  8) = 0.2495111365074218D-01
        xs(  9) = 0.3108834226740578D-01
        xs( 10) = 0.3767468625779827D-01
        xs( 11) = 0.4465922420813126D-01
        xs( 12) = 0.5199856802267944D-01
        xs( 13) = 0.5965580320151166D-01
        xs( 14) = 0.6759954032948425D-01
        xs( 15) = 0.7580310531790123D-01
        xs( 16) = 0.8424385946839283D-01
        xs( 17) = 0.9290263661505084D-01
        xs( 18) = 0.1017632602927615D+00
        xs( 19) = 0.1108122102337538D+00
        xs( 20) = 0.1200382665859731D+00
        xs( 21) = 0.1294320944532481D+00
        xs( 22) = 0.1389868701591866D+00
        xs( 23) = 0.1486982369486271D+00
        xs( 24) = 0.1585554991912443D+00
        xs( 25) = 0.1685771601452246D+00
        xs( 26) = 0.1787067197940503D+00
        xs( 27) = 0.1891492857094376D+00
        xs( 28) = 0.1993962278032596D+00
        xs( 29) = 0.2101198231194523D+00
        xs( 30) = 0.2324758982053018D+00
        ws(  1) = 0.6643874369588754D-03
        ws(  2) = 0.1550288321305204D-02
        ws(  3) = 0.2429091146439535D-02
        ws(  4) = 0.3269455344138216D-02
        ws(  5) = 0.4043437123808473D-02
        ws(  6) = 0.4737748763307326D-02
        ws(  7) = 0.5352211452841782D-02
        ws(  8) = 0.5893599406141172D-02
        ws(  9) = 0.6370955524325005D-02
        ws( 10) = 0.6793263613707475D-02
        ws( 11) = 0.7168598871106403D-02
        ws( 12) = 0.7503952189867074D-02
        ws( 13) = 0.7805300065331104D-02
        ws( 14) = 0.8077739758898594D-02
        ws( 15) = 0.8325626690848508D-02
        ws( 16) = 0.8552694485002694D-02
        ws( 17) = 0.8762168225786033D-02
        ws( 18) = 0.8956856140606114D-02
        ws( 19) = 0.9139068114891980D-02
        ws( 20) = 0.9311693336270405D-02
        ws( 21) = 0.9474929427505444D-02
        ws( 22) = 0.9633170375417341D-02
        ws( 23) = 0.9784926713601526D-02
        ws( 24) = 0.9949841578793941D-02
        ws( 25) = 0.1006293065487314D-01
        ws( 26) = 0.1022886194752105D-01
        ws( 27) = 0.1038892693338836D-01
        ws( 28) = 0.1075863416249106D-01
        ws( 29) = 0.1237576599837347D-01
        ws( 30) = 0.3444931987657176D-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 =  30
        err = 0.8066304317960561D-10
        xs(  1) = 0.2283824830596339D-03
        xs(  2) = 0.1209609572317954D-02
        xs(  3) = 0.2992129974070399D-02
        xs(  4) = 0.5581082235483795D-02
        xs(  5) = 0.8953273059351383D-02
        xs(  6) = 0.1305811582740596D-01
        xs(  7) = 0.1782926540692560D-01
        xs(  8) = 0.2319650821551090D-01
        xs(  9) = 0.2909316230197081D-01
        xs( 10) = 0.3545930018957750D-01
        xs( 11) = 0.4224251302199722D-01
        xs( 12) = 0.4939755948070531D-01
        xs( 13) = 0.5688562478687951D-01
        xs( 14) = 0.6467351088763344D-01
        xs( 15) = 0.7273287926033933D-01
        xs( 16) = 0.8103958317748820D-01
        xs( 17) = 0.8957309409735312D-01
        xs( 18) = 0.9831602703141917D-01
        xs( 19) = 0.1072536922235319D+00
        xs( 20) = 0.1163739321785683D+00
        xs( 21) = 0.1256665937645202D+00
        xs( 22) = 0.1351230320267353D+00
        xs( 23) = 0.1447386461458314D+00
        xs( 24) = 0.1545087953666627D+00
        xs( 25) = 0.1644214556501153D+00
        xs( 26) = 0.1744827034275622D+00
        xs( 27) = 0.1847550946852485D+00
        xs( 28) = 0.1951506051402837D+00
        xs( 29) = 0.2053411586198785D+00
        xs( 30) = 0.2277269971048025D+00
        ws(  1) = 0.5869095206057680D-03
        ws(  2) = 0.1379188455408105D-02
        ws(  3) = 0.2186988843362475D-02
        ws(  4) = 0.2987013968330162D-02
        ws(  5) = 0.3748713098326329D-02
        ws(  6) = 0.4449706723228397D-02
        ws(  7) = 0.5080769309535106D-02
        ws(  8) = 0.5642553634653423D-02
        ws(  9) = 0.6140757098278002D-02
        ws( 10) = 0.6582791334067404D-02
        ws( 11) = 0.6976107142791545D-02
        ws( 12) = 0.7327530388584907D-02
        ws( 13) = 0.7643079907013691D-02
        ws( 14) = 0.7927980340005601D-02
        ws( 15) = 0.8186741400306251D-02
        ws( 16) = 0.8423253631419053D-02
        ws( 17) = 0.8640875394366384D-02
        ws( 18) = 0.8842545560940437D-02
        ws( 19) = 0.9030825745522933D-02
        ws( 20) = 0.9207643879573220D-02
        ws( 21) = 0.9376950912327426D-02
        ws( 22) = 0.9535348756221538D-02
        ws( 23) = 0.9690952627309003D-02
        ws( 24) = 0.9848607126695346D-02
        ws( 25) = 0.1001119877990756D-01
        ws( 26) = 0.1008707251475544D-01
        ws( 27) = 0.1021389069640118D-01
        ws( 28) = 0.1076004162422450D-01
        ws( 29) = 0.1247312607573849D-01
        ws( 30) = 0.3304615990496003D-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 =  30
        err = 0.6524432540320917D-10
        xs(  1) = 0.2249757289173460D-03
        xs(  2) = 0.1194297072950450D-02
        xs(  3) = 0.2964800071535298D-02
        xs(  4) = 0.5552819269994013D-02
        xs(  5) = 0.8943430483901888D-02
        xs(  6) = 0.1308909632153020D-01
        xs(  7) = 0.1792233865127977D-01
        xs(  8) = 0.2336970082572459D-01
        xs(  9) = 0.2936066014234178D-01
        xs( 10) = 0.3583161291707301D-01
        xs( 11) = 0.4272694828302395D-01
        xs( 12) = 0.4999879107910126D-01
        xs( 13) = 0.5760625369262408D-01
        xs( 14) = 0.6551457018124018D-01
        xs( 15) = 0.7369426210621721D-01
        xs( 16) = 0.8212039040547058D-01
        xs( 17) = 0.9077190731154466D-01
        xs( 18) = 0.9963110677059368D-01
        xs( 19) = 0.1086832024054794D+00
        xs( 20) = 0.1179157517207866D+00
        xs( 21) = 0.1273192192328786D+00
        xs( 22) = 0.1368843644154091D+00
        xs( 23) = 0.1466068139048399D+00
        xs( 24) = 0.1564778609240857D+00
        xs( 25) = 0.1665103155800326D+00
        xs( 26) = 0.1766838692208339D+00
        xs( 27) = 0.1868961641662581D+00
        xs( 28) = 0.1975011911430593D+00
        xs( 29) = 0.2089084617163988D+00
        xs( 30) = 0.2185406214122863D+00
        ws(  1) = 0.5784803814299373D-03
        ws(  2) = 0.1365361523787285D-02
        ws(  3) = 0.2178746435281278D-02
        ws(  4) = 0.2994806754226985D-02
        ws(  5) = 0.3778244652613615D-02
        ws(  6) = 0.4501594117478943D-02
        ws(  7) = 0.5152501766708865D-02
        ws(  8) = 0.5730407980591013D-02
        ws(  9) = 0.6240895907149197D-02
        ws( 10) = 0.6691747306438022D-02
        ws( 11) = 0.7090957493206515D-02
        ws( 12) = 0.7445928235970126D-02
        ws( 13) = 0.7763216681766402D-02
        ws( 14) = 0.8048515733243163D-02
        ws( 15) = 0.8306722432232598D-02
        ws( 16) = 0.8542035026406486D-02
        ws( 17) = 0.8758057623833053D-02
        ws( 18) = 0.8957872203343037D-02
        ws( 19) = 0.9144263305766681D-02
        ws( 20) = 0.9319401224431818D-02
        ws( 21) = 0.9485065568961684D-02
        ws( 22) = 0.9646606413356573D-02
        ws( 23) = 0.9797557135025807D-02
        ws( 24) = 0.9936054492030459D-02
        ws( 25) = 0.1012035147396477D-01
        ws( 26) = 0.1027509316889778D-01
        ws( 27) = 0.1034669357395921D-01
        ws( 28) = 0.1054243788140249D-01
        ws( 29) = 0.7850588401400444D-02
        ws( 30) = 0.2357031857918945D-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 =  30
        err = 0.9601099446661940D-10
        xs(  1) = 0.2000239911405652D-03
        xs(  2) = 0.1066022922413177D-02
        xs(  3) = 0.2664678063302538D-02
        xs(  4) = 0.5036920459245481D-02
        xs(  5) = 0.8197657613994666D-02
        xs(  6) = 0.1212459163121811D-01
        xs(  7) = 0.1676516427888230D-01
        xs(  8) = 0.2205107700236616D-01
        xs(  9) = 0.2791073190143128D-01
        xs( 10) = 0.3427656560967062D-01
        xs( 11) = 0.4108824290606855D-01
        xs( 12) = 0.4829344487361082D-01
        xs( 13) = 0.5584751133759768D-01
        xs( 14) = 0.6371263860433342D-01
        xs( 15) = 0.7185697290277863D-01
        xs( 16) = 0.8025374882731003D-01
        xs( 17) = 0.8888052942274337D-01
        xs( 18) = 0.9771855958843455D-01
        xs( 19) = 0.1067522610181937D+00
        xs( 20) = 0.1159687051176448D+00
        xs( 21) = 0.1253574910969164D+00
        xs( 22) = 0.1349106781132701D+00
        xs( 23) = 0.1446205685079818D+00
        xs( 24) = 0.1544809545523117D+00
        xs( 25) = 0.1645125701888393D+00
        xs( 26) = 0.1746633531681805D+00
        xs( 27) = 0.1848948212189736D+00
        xs( 28) = 0.1955999117126580D+00
        xs( 29) = 0.2063344523543936D+00
        xs( 30) = 0.2167426636928216D+00
        ws(  1) = 0.5147958763995945D-03
        ws(  2) = 0.1224550256171518D-02
        ws(  3) = 0.1980073785923592D-02
        ws(  4) = 0.2767086366777985D-02
        ws(  5) = 0.3550523054234834D-02
        ws(  6) = 0.4294318459141600D-02
        ws(  7) = 0.4975230965005122D-02
        ws(  8) = 0.5584542951191976D-02
        ws(  9) = 0.6123457575360948D-02
        ws( 10) = 0.6598143803449792D-02
        ws( 11) = 0.7016498503985662D-02
        ws( 12) = 0.7386476179939356D-02
        ws( 13) = 0.7715371564287194D-02
        ws( 14) = 0.8009588483809435D-02
        ws( 15) = 0.8274631980751214D-02
        ws( 16) = 0.8515190827400806D-02
        ws( 17) = 0.8735254216702177D-02
        ws( 18) = 0.8938217640537998D-02
        ws( 19) = 0.9126996237045768D-02
        ws( 20) = 0.9304427675830817D-02
        ws( 21) = 0.9471003343617447D-02
        ws( 22) = 0.9634804509092569D-02
        ws( 23) = 0.9787182339446532D-02
        ws( 24) = 0.9932310796147457D-02
        ws( 25) = 0.1008989648496589D-01
        ws( 26) = 0.1026158648394397D-01
        ws( 27) = 0.1058654222841335D-01
        ws( 28) = 0.1022046710370915D-01
        ws( 29) = 0.7123015739685979D-02
        ws( 30) = 0.2516285027325926D-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 =  31
        err = 0.4369915880605701D-10
        xs(  1) = 0.1395232645827111D-03
        xs(  2) = 0.7491141095708762D-03
        xs(  3) = 0.1899292207587513D-02
        xs(  4) = 0.3666644538603406D-02
        xs(  5) = 0.6127354682687682D-02
        xs(  6) = 0.9329226154836615D-02
        xs(  7) = 0.1327644024077564D-01
        xs(  8) = 0.1793351740811189D-01
        xs(  9) = 0.2324058182836842D-01
        xs( 10) = 0.2912874084103667D-01
        xs( 11) = 0.3553025593305351D-01
        xs( 12) = 0.4238356413057967D-01
        xs( 13) = 0.4963498575484578D-01
        xs( 14) = 0.5723873139469833D-01
        xs( 15) = 0.6515618930623616D-01
        xs( 16) = 0.7335499644914466D-01
        xs( 17) = 0.8180812233174529D-01
        xs( 18) = 0.9049305583694524D-01
        xs( 19) = 0.9939112353783443D-01
        xs( 20) = 0.1084869438079365D+00
        xs( 21) = 0.1177679079412837D+00
        xs( 22) = 0.1272243111751451D+00
        xs( 23) = 0.1368477416116136D+00
        xs( 24) = 0.1466333201967756D+00
        xs( 25) = 0.1565790301640694D+00
        xs( 26) = 0.1666801660070902D+00
        xs( 27) = 0.1769451221457507D+00
        xs( 28) = 0.1873637867837540D+00
        xs( 29) = 0.1979233653950078D+00
        xs( 30) = 0.2085521035738763D+00
        xs( 31) = 0.2204703819414871D+00
        ws(  1) = 0.3596867863616849D-03
        ws(  2) = 0.8685135129279756D-03
        ws(  3) = 0.1445041308767806D-02
        ws(  4) = 0.2102873742958631D-02
        ws(  5) = 0.2826785701698939D-02
        ws(  6) = 0.3577562718056592D-02
        ws(  7) = 0.4310667067161259D-02
        ws(  8) = 0.4993239966389025D-02
        ws(  9) = 0.5609239135798892D-02
        ws( 10) = 0.6155710538355171D-02
        ws( 11) = 0.6637034602912762D-02
        ws( 12) = 0.7060637306607450D-02
        ws( 13) = 0.7434587363731932D-02
        ws( 14) = 0.7766484600762510D-02
        ws( 15) = 0.8063052854480075D-02
        ws( 16) = 0.8330069927416936D-02
        ws( 17) = 0.8572441320515115D-02
        ws( 18) = 0.8794324149025767D-02
        ws( 19) = 0.8999244235663253D-02
        ws( 20) = 0.9190338850696814D-02
        ws( 21) = 0.9369941068756615D-02
        ws( 22) = 0.9541214451600097D-02
        ws( 23) = 0.9705620843122173D-02
        ws( 24) = 0.9866555293871241D-02
        ws( 25) = 0.1001569849570074D-01
        ws( 26) = 0.1018100664838523D-01
        ws( 27) = 0.1041482943066368D-01
        ws( 28) = 0.1053792534125551D-01
        ws( 29) = 0.9976729001075515D-02
        ws( 30) = 0.9889567147419806D-02
        ws( 31) = 0.2252293992990611D-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 =  31
        err = 0.7213636852970306D-10
        xs(  1) = 0.1098875933742585D-03
        xs(  2) = 0.5907786101692382D-03
        xs(  3) = 0.1503452537276608D-02
        xs(  4) = 0.2925283370811514D-02
        xs(  5) = 0.4952414508824066D-02
        xs(  6) = 0.7675136339671841D-02
        xs(  7) = 0.1114955999539603D-01
        xs(  8) = 0.1538209337186475D-01
        xs(  9) = 0.2033465006470303D-01
        xs( 10) = 0.2594235301535577D-01
        xs( 11) = 0.3213106816318281D-01
        xs( 12) = 0.3882874364694181D-01
        xs( 13) = 0.4597079566100927D-01
        xs( 14) = 0.5350175967936495D-01
        xs( 15) = 0.6137508185375631D-01
        xs( 16) = 0.6955216318550907D-01
        xs( 17) = 0.7800121554089454D-01
        xs( 18) = 0.8669617791938995D-01
        xs( 19) = 0.9561578347160389D-01
        xs( 20) = 0.1047428170504656D+00
        xs( 21) = 0.1140634821441319D+00
        xs( 22) = 0.1235670453014957D+00
        xs( 23) = 0.1332458015305819D+00
        xs( 24) = 0.1430934947824582D+00
        xs( 25) = 0.1531063633343826D+00
        xs( 26) = 0.1632973448596529D+00
        xs( 27) = 0.1736489672447810D+00
        xs( 28) = 0.1841311056998228D+00
        xs( 29) = 0.1948901736972614D+00
        xs( 30) = 0.2060309610191485D+00
        xs( 31) = 0.2174829723537863D+00
        ws(  1) = 0.2833548667003059D-03
        ws(  2) = 0.6862717221558336D-03
        ws(  3) = 0.1152163871054373D-02
        ws(  4) = 0.1707953182961672D-02
        ws(  5) = 0.2361877939575244D-02
        ws(  6) = 0.3093199477413946D-02
        ws(  7) = 0.3856602146642743D-02
        ws(  8) = 0.4601786527490401D-02
        ws(  9) = 0.5292208591332799D-02
        ws( 10) = 0.5910655320760385D-02
        ws( 11) = 0.6454682671622325D-02
        ws( 12) = 0.6929881331450138D-02
        ws( 13) = 0.7344984618475796D-02
        ws( 14) = 0.7709201606863980D-02
        ws( 15) = 0.8031029176799626D-02
        ws( 16) = 0.8317853737214368D-02
        ws( 17) = 0.8575922948482346D-02
        ws( 18) = 0.8810470408499887D-02
        ws( 19) = 0.9025882159527430D-02
        ws( 20) = 0.9225871780930602D-02
        ws( 21) = 0.9413812015075459D-02
        ws( 22) = 0.9591618387194942D-02
        ws( 23) = 0.9765084421655900D-02
        ws( 24) = 0.9932077667187922D-02
        ws( 25) = 0.1009301160228669D-01
        ws( 26) = 0.1026329573111435D-01
        ws( 27) = 0.1047373495122987D-01
        ws( 28) = 0.1074524647127835D-01
        ws( 29) = 0.1037625449949986D-01
        ws( 30) = 0.9467026583911683D-02
        ws( 31) = 0.2221216694199499D-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 =  33
        err = 0.4879703271243790D-10
        xs(  1) = 0.5902059177922745D-04
        xs(  2) = 0.3158187946227477D-03
        xs(  3) = 0.7981673387988385D-03
        xs(  4) = 0.1543276322829120D-02
        xs(  5) = 0.2608991945693217D-02
        xs(  6) = 0.4075979863359735D-02
        xs(  7) = 0.6045131903550418D-02
        xs(  8) = 0.8625123360486028D-02
        xs(  9) = 0.1190846258413829D-01
        xs( 10) = 0.1594505227466842D-01
        xs( 11) = 0.2073002352868479D-01
        xs( 12) = 0.2621315908086434D-01
        xs( 13) = 0.3232003329108154D-01
        xs( 14) = 0.3897103664628427D-01
        xs( 15) = 0.4609247998783113D-01
        xs( 16) = 0.5362092529247344D-01
        xs( 17) = 0.6150369846738186D-01
        xs( 18) = 0.6969779591669728D-01
        xs( 19) = 0.7816835722079056D-01
        xs( 20) = 0.8688720335181752D-01
        xs( 21) = 0.9583160807464396D-01
        xs( 22) = 0.1049833288760645D+00
        xs( 23) = 0.1143278236568119D+00
        xs( 24) = 0.1238539396810868D+00
        xs( 25) = 0.1335528254911827D+00
        xs( 26) = 0.1434192877863820D+00
        xs( 27) = 0.1534481759533683D+00
        xs( 28) = 0.1636464775481205D+00
        xs( 29) = 0.1740070442001196D+00
        xs( 30) = 0.1845107876115862D+00
        xs( 31) = 0.1952573919985055D+00
        xs( 32) = 0.2060882012591792D+00
        xs( 33) = 0.2177692554198913D+00
        ws(  1) = 0.1520128564116755D-03
        ws(  2) = 0.3649194185816524D-03
        ws(  3) = 0.6059174099440678D-03
        ws(  4) = 0.8938970067850162D-03
        ws(  5) = 0.1251007711924235D-02
        ws(  6) = 0.1699982823401326D-02
        ws(  7) = 0.2256854619206264D-02
        ws(  8) = 0.2919036396562458D-02
        ws(  9) = 0.3656183888633627D-02
        ws( 10) = 0.4415995311043265D-02
        ws( 11) = 0.5145186809630460D-02
        ws( 12) = 0.5808350737828247D-02
        ws( 13) = 0.6391949573150189D-02
        ws( 14) = 0.6897711347687250D-02
        ws( 15) = 0.7334599040701554D-02
        ws( 16) = 0.7713533390329349D-02
        ws( 17) = 0.8044872184099373D-02
        ws( 18) = 0.8337537329426929D-02
        ws( 19) = 0.8598909273557350D-02
        ws( 20) = 0.8835012363020525D-02
        ws( 21) = 0.9050767772635004D-02
        ws( 22) = 0.9250260182728502D-02
        ws( 23) = 0.9436927127049142D-02
        ws( 24) = 0.9613485587877398D-02
        ws( 25) = 0.9784252535378350D-02
        ws( 26) = 0.9948723049845391D-02
        ws( 27) = 0.1010554257284450D-01
        ws( 28) = 0.1028132395738199D-01
        ws( 29) = 0.1047428082575191D-01
        ws( 30) = 0.1067424077635466D-01
        ws( 31) = 0.1048162692009444D-01
        ws( 32) = 0.1010086668357739D-01
        ws( 33) = 0.1909211908394816D-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 =  38
        err = 0.5823746664834011D-10
        xs(  1) = 0.2516414665767653D-04
        xs(  2) = 0.1336055317299044D-03
        xs(  3) = 0.3329600536364210D-03
        xs(  4) = 0.6310236216473852D-03
        xs(  5) = 0.1040036946505158D-02
        xs(  6) = 0.1577939561969922D-02
        xs(  7) = 0.2270119085313797D-02
        xs(  8) = 0.3151791605371452D-02
        xs(  9) = 0.4271049981660293D-02
        xs( 10) = 0.5692318819918392D-02
        xs( 11) = 0.7499187011508765D-02
        xs( 12) = 0.9794086295881644D-02
        xs( 13) = 0.1269041436522586D-01
        xs( 14) = 0.1629295961249468D-01
        xs( 15) = 0.2066946228641515D-01
        xs( 16) = 0.2582841051830535D-01
        xs( 17) = 0.3171980913066899D-01
        xs( 18) = 0.3825763982638463D-01
        xs( 19) = 0.4534659237489032D-01
        xs( 20) = 0.5289954513994149D-01
        xs( 21) = 0.6084425068253216D-01
        xs( 22) = 0.6912351017006392D-01
        xs( 23) = 0.7769283751830541D-01
        xs( 24) = 0.8651774099945732D-01
        xs( 25) = 0.9557140728465784D-01
        xs( 26) = 0.1048329443991407D+00
        xs( 27) = 0.1142861005813768D+00
        xs( 28) = 0.1239184112297073D+00
        xs( 29) = 0.1337205573301455D+00
        xs( 30) = 0.1436862244626368D+00
        xs( 31) = 0.1538112959262763D+00
        xs( 32) = 0.1640953266872808D+00
        xs( 33) = 0.1745412206922181D+00
        xs( 34) = 0.1851498695646688D+00
        xs( 35) = 0.1959377672295092D+00
        xs( 36) = 0.2069600107207669D+00
        xs( 37) = 0.2182295251116072D+00
        xs( 38) = 0.2300586159274011D+00
        ws(  1) = 0.6469436947059456D-04
        ws(  2) = 0.1529173899336336D-03
        ws(  3) = 0.2470746588593540D-03
        ws(  4) = 0.3510722712643731D-03
        ws(  5) = 0.4699154531557073D-03
        ws(  6) = 0.6100815386818726D-03
        ws(  7) = 0.7800956081322321D-03
        ws(  8) = 0.9912051958229130D-03
        ws(  9) = 0.1257996052065148D-02
        ws( 10) = 0.1598467418683220D-02
        ws( 11) = 0.2032459406880034D-02
        ws( 12) = 0.2576568042591638D-02
        ws( 13) = 0.3234067043590009D-02
        ws( 14) = 0.3982735019507987D-02
        ws( 15) = 0.4771667921653652D-02
        ws( 16) = 0.5537468658876204D-02
        ws( 17) = 0.6230511713591203D-02
        ws( 18) = 0.6828973544230829D-02
        ws( 19) = 0.7334312613773882D-02
        ws( 20) = 0.7759558643097678D-02
        ws( 21) = 0.8120362964249683D-02
        ws( 22) = 0.8430788584581461D-02
        ws( 23) = 0.8702156405463048D-02
        ws( 24) = 0.8943210735351799D-02
        ws( 25) = 0.9160659291875373D-02
        ws( 26) = 0.9359718212689249D-02
        ws( 27) = 0.9544552485978066D-02
        ws( 28) = 0.9718508034959368D-02
        ws( 29) = 0.9884691017380785D-02
        ws( 30) = 0.1004583871425416D-01
        ws( 31) = 0.1020445455617668D-01
        ws( 32) = 0.1036533702684906D-01
        ws( 33) = 0.1052871640266028D-01
        ws( 34) = 0.1069305789952181D-01
        ws( 35) = 0.1086897246730730D-01
        ws( 36) = 0.1105030586114342D-01
        ws( 37) = 0.1174456445037147D-01
        ws( 38) = 0.1590326530294407D-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 =  42
        err = 0.8037939730691188D-10
        xs(  1) = 0.1412845562411045D-04
        xs(  2) = 0.7476584743327136D-04
        xs(  3) = 0.1852029459077680D-03
        xs(  4) = 0.3478697895491856D-03
        xs(  5) = 0.5664703884071387D-03
        xs(  6) = 0.8462615308180272D-03
        xs(  7) = 0.1194421323970095D-02
        xs(  8) = 0.1620554070740833D-02
        xs(  9) = 0.2137380085590322D-02
        xs( 10) = 0.2761678580260830D-02
        xs( 11) = 0.3515575508939149D-02
        xs( 12) = 0.4428291355073178D-02
        xs( 13) = 0.5538471892178610D-02
        xs( 14) = 0.6897179230130387D-02
        xs( 15) = 0.8571429964708544D-02
        xs( 16) = 0.1064764774524520D-01
        xs( 17) = 0.1323326648715470D-01
        xs( 18) = 0.1645283652075380D-01
        xs( 19) = 0.2043331357636791D-01
        xs( 20) = 0.2527545150090442D-01
        xs( 21) = 0.3101913444654770D-01
        xs( 22) = 0.3762436349453778D-01
        xs( 23) = 0.4498504717491133D-01
        xs( 24) = 0.5296595185168931D-01
        xs( 25) = 0.6143721248685466D-01
        xs( 26) = 0.7029208870479854D-01
        xs( 27) = 0.7945016798788490D-01
        xs( 28) = 0.8885356690461658D-01
        xs( 29) = 0.9846148831777840D-01
        xs( 30) = 0.1082454294080336D+00
        xs( 31) = 0.1181855955622703D+00
        xs( 32) = 0.1282684069680963D+00
        xs( 33) = 0.1384848434159600D+00
        xs( 34) = 0.1488293899424675D+00
        xs( 35) = 0.1592994031834262D+00
        xs( 36) = 0.1698944211840464D+00
        xs( 37) = 0.1806174370274714D+00
        xs( 38) = 0.1914757807452339D+00
        xs( 39) = 0.2024773721903029D+00
        xs( 40) = 0.2136258218202987D+00
        xs( 41) = 0.2248387507743745D+00
        xs( 42) = 0.2361423208209607D+00
        ws(  1) = 0.3629490575271901D-04
        ws(  2) = 0.8522528501019365D-04
        ws(  3) = 0.1360492364053872D-03
        ws(  4) = 0.1898973736628170D-03
        ws(  5) = 0.2481738967729431D-03
        ws(  6) = 0.3125964373178354D-03
        ws(  7) = 0.3853125297186460D-03
        ws(  8) = 0.4690575199022234D-03
        ws(  9) = 0.5673698591713975D-03
        ws( 10) = 0.6848859701834496D-03
        ws( 11) = 0.8277393564157865D-03
        ws( 12) = 0.1004083298966184D-02
        ws( 13) = 0.1224727894488149D-02
        ws( 14) = 0.1503794831704296D-02
        ws( 15) = 0.1859075307175410D-02
        ws( 16) = 0.2311316847403010D-02
        ws( 17) = 0.2880912773912828D-02
        ws( 18) = 0.3579878838032275D-02
        ws( 19) = 0.4398505547109077D-02
        ws( 20) = 0.5292788965046109D-02
        ws( 21) = 0.6187651195201441D-02
        ws( 22) = 0.7004433014858847D-02
        ws( 23) = 0.7693785582706707D-02
        ws( 24) = 0.8246095231679205D-02
        ws( 25) = 0.8678603456978094D-02
        ws( 26) = 0.9017822849453249D-02
        ws( 27) = 0.9288784008996322D-02
        ws( 28) = 0.9511295128871899D-02
        ws( 29) = 0.9699856526026297D-02
        ws( 30) = 0.9864768885339166D-02
        ws( 31) = 0.1001332642576017D-01
        ws( 32) = 0.1015080277177390D-01
        ws( 33) = 0.1028114187157516D-01
        ws( 34) = 0.1040762772715809D-01
        ws( 35) = 0.1053284872776241D-01
        ws( 36) = 0.1065828973343784D-01
        ws( 37) = 0.1078554806008820D-01
        ws( 38) = 0.1091710284543370D-01
        ws( 39) = 0.1108888707455461D-01
        ws( 40) = 0.1140003498123439D-01
        ws( 41) = 0.1179338964334102D-01
        ws( 42) = 0.1193895361126248D-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 =  44
        err = 0.4280399625039228D-10
        xs(  1) = 0.9169787058311894D-05
        xs(  2) = 0.4844745348931257D-04
        xs(  3) = 0.1196593496519234D-03
        xs(  4) = 0.2237939387401139D-03
        xs(  5) = 0.3623319005142186D-03
        xs(  6) = 0.5373396367532457D-03
        xs(  7) = 0.7515801329417613D-03
        xs(  8) = 0.1008656992199355D-02
        xs(  9) = 0.1313201917078326D-02
        xs( 10) = 0.1671120191238642D-02
        xs( 11) = 0.2089915021550097D-02
        xs( 12) = 0.2579120162841773D-02
        xs( 13) = 0.3150882044051470D-02
        xs( 14) = 0.3820748881865389D-02
        xs( 15) = 0.4608746242910823D-02
        xs( 16) = 0.5540846595370996D-02
        xs( 17) = 0.6650971667158366D-02
        xs( 18) = 0.7983688489570767D-02
        xs( 19) = 0.9597735840208345D-02
        xs( 20) = 0.1157035264458354D-01
        xs( 21) = 0.1400186009838374D-01
        xs( 22) = 0.1701867866324791D-01
        xs( 23) = 0.2077049059765311D-01
        xs( 24) = 0.2541416678023656D-01
        xs( 25) = 0.3107793904602018D-01
        xs( 26) = 0.3781285467123593D-01
        xs( 27) = 0.4556133559076484D-01
        xs( 28) = 0.5417258722223988D-01
        xs( 29) = 0.6345572706017863D-01
        xs( 30) = 0.7323163610218252D-01
        xs( 31) = 0.8335909568023649D-01
        xs( 32) = 0.9373799924727685D-01
        xs( 33) = 0.1043019570934185D+00
        xs( 34) = 0.1150089849961501D+00
        xs( 35) = 0.1258337826800344D+00
        xs( 36) = 0.1367622698574343D+00
        xs( 37) = 0.1477879757809271D+00
        xs( 38) = 0.1589098378776189D+00
        xs( 39) = 0.1701316534800646D+00
        xs( 40) = 0.1814614756690796D+00
        xs( 41) = 0.1929096948937147D+00
        xs( 42) = 0.2044861409997391D+00
        xs( 43) = 0.2161615264837160D+00
        xs( 44) = 0.2278427322459327D+00
        ws(  1) = 0.2354766439035641D-04
        ws(  2) = 0.5511579510566758D-04
        ws(  3) = 0.8747061916556660D-04
        ws(  4) = 0.1210439114682929D-03
        ws(  5) = 0.1563745852671752D-03
        ws(  6) = 0.1940990073755605D-03
        ws(  7) = 0.2349794948173730D-03
        ws(  8) = 0.2799421315813476D-03
        ws(  9) = 0.3301265951917321D-03
        ws( 10) = 0.3869533735706515D-03
        ws( 11) = 0.4522156786504382D-03
        ws( 12) = 0.5282060434343101D-03
        ws( 13) = 0.6178914166244679D-03
        ws( 14) = 0.7251556935264875D-03
        ws( 15) = 0.8551347982871099D-03
        ws( 16) = 0.1014674967117950D-02
        ws( 17) = 0.1212944299449451D-02
        ws( 18) = 0.1462205980638308D-02
        ws( 19) = 0.1778681690984480D-02
        ws( 20) = 0.2183212141225090D-02
        ws( 21) = 0.2700901562956005D-02
        ws( 22) = 0.3357929387620891D-02
        ws( 23) = 0.4172446559501420D-02
        ws( 24) = 0.5137167244427972D-02
        ws( 25) = 0.6199503415580970D-02
        ws( 26) = 0.7260447927854773D-02
        ws( 27) = 0.8210377364742293D-02
        ws( 28) = 0.8979386508864980D-02
        ws( 29) = 0.9556621619471883D-02
        ws( 30) = 0.9971640996021564D-02
        ws( 31) = 0.1026673766267572D-01
        ws( 32) = 0.1048016669590466D-01
        ws( 33) = 0.1064087964860774D-01
        ws( 34) = 0.1076904517069328D-01
        ws( 35) = 0.1087827111498592D-01
        ws( 36) = 0.1097776557202675D-01
        ws( 37) = 0.1107376952015187D-01
        ws( 38) = 0.1117057828311101D-01
        ws( 39) = 0.1127147765303894D-01
        ws( 40) = 0.1138158293906262D-01
        ws( 41) = 0.1153383876510601D-01
        ws( 42) = 0.1182755470273033D-01
        ws( 43) = 0.1219514719910028D-01
        ws( 44) = 0.1160570704878056D-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 =  48
        err = 0.7461959965503961D-10
        xs(  1) = 0.6425635543388823D-05
        xs(  2) = 0.3391848522743233D-04
        xs(  3) = 0.8363709438253816D-04
        xs(  4) = 0.1560451012234591D-03
        xs(  5) = 0.2518252345600896D-03
        xs(  6) = 0.3719176047863049D-03
        xs(  7) = 0.5175594511819821D-03
        xs(  8) = 0.6903343966822174D-03
        xs(  9) = 0.8922335853724658D-03
        xs( 10) = 0.1125731739635554D-02
        xs( 11) = 0.1393882476721300D-02
        xs( 12) = 0.1700438905363054D-02
        xs( 13) = 0.2050007706369157D-02
        xs( 14) = 0.2448247837872051D-02
        xs( 15) = 0.2902129047221436D-02
        xs( 16) = 0.3420271003629719D-02
        xs( 17) = 0.4013391760995173D-02
        xs( 18) = 0.4694905293106697D-02
        xs( 19) = 0.5481723091230515D-02
        xs( 20) = 0.6395335390174450D-02
        xs( 21) = 0.7463274019846723D-02
        xs( 22) = 0.8721089160147872D-02
        xs( 23) = 0.1021499723462926D-01
        xs( 24) = 0.1200534887977699D-01
        xs( 25) = 0.1417095061208479D-01
        xs( 26) = 0.1681388007784180D-01
        xs( 27) = 0.2006341313558974D-01
        xs( 28) = 0.2407550355932345D-01
        xs( 29) = 0.2902093711896118D-01
        xs( 30) = 0.3505391563877050D-01
        xs( 31) = 0.4226158236207098D-01
        xs( 32) = 0.5061760933467959D-01
        xs( 33) = 0.5997730256830143D-01
        xs( 34) = 0.7012501528962996D-01
        xs( 35) = 0.8083949583503287D-01
        xs( 36) = 0.9193758463721929D-01
        xs( 37) = 0.1032871007698012D+00
        xs( 38) = 0.1148010761766672D+00
        xs( 39) = 0.1264263035196335D+00
        xs( 40) = 0.1381327966011924D+00
        xs( 41) = 0.1499060077110941D+00
        xs( 42) = 0.1617415903802496D+00
        xs( 43) = 0.1736432385877271D+00
        xs( 44) = 0.1856218760262557D+00
        xs( 45) = 0.1976821298957190D+00
        xs( 46) = 0.2098631900212030D+00
        xs( 47) = 0.2223396974979089D+00
        xs( 48) = 0.2346598776900841D+00
        ws(  1) = 0.1649732315947505D-04
        ws(  2) = 0.3854407876507655D-04
        ws(  3) = 0.6096922738210029D-04
        ws(  4) = 0.8396002418114691D-04
        ws(  5) = 0.1077562724691040D-03
        ws(  6) = 0.1326338585588877D-03
        ws(  7) = 0.1589127595008448D-03
        ws(  8) = 0.1869677314265211D-03
        ws(  9) = 0.2172415252222585D-03
        ws( 10) = 0.2502617288048842D-03
        ws( 11) = 0.2866627215793891D-03
        ws( 12) = 0.3272146396182591D-03
        ws( 13) = 0.3728618622193914D-03
        ws( 14) = 0.4247744402697558D-03
        ws( 15) = 0.4844172085305141D-03
        ws( 16) = 0.5536432164809966D-03
        ws( 17) = 0.6348207780240291D-03
        ws( 18) = 0.7310070885109901D-03
        ws( 19) = 0.8461861486126417D-03
        ws( 20) = 0.9855945261873038D-03
        ws( 21) = 0.1156164022096717D-02
        ws( 22) = 0.1367111374007991D-02
        ws( 23) = 0.1630690558861301D-02
        ws( 24) = 0.1963064073900220D-02
        ws( 25) = 0.2385079053903666D-02
        ws( 26) = 0.2922317888904812D-02
        ws( 27) = 0.3602914356112082D-02
        ws( 28) = 0.4450247813166753D-02
        ws( 29) = 0.5467216837480089D-02
        ws( 30) = 0.6614148642852871D-02
        ws( 31) = 0.7796916639571424D-02
        ws( 32) = 0.8890125608892177D-02
        ws( 33) = 0.9792118601309487D-02
        ws( 34) = 0.1046568967103703D-01
        ws( 35) = 0.1093256887742505D-01
        ws( 36) = 0.1124170759148030D-01
        ws( 37) = 0.1144303520656784D-01
        ws( 38) = 0.1157622284819183D-01
        ws( 39) = 0.1166935031911426D-01
        ws( 40) = 0.1174132387722558D-01
        ws( 41) = 0.1180473614929116D-01
        ws( 42) = 0.1186772443814935D-01
        ws( 43) = 0.1193647418859996D-01
        ws( 44) = 0.1202089218766859D-01
        ws( 45) = 0.1211809255216206D-01
        ws( 46) = 0.1213943720353969D-01
        ws( 47) = 0.1286392655135316D-01
        ws( 48) = 0.1535299566310775D-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 =  51
        err = 0.8368724433924483D-10
        xs(  1) = 0.4821177239284315D-05
        xs(  2) = 0.2543476303814953D-04
        xs(  3) = 0.6265336443804224D-04
        xs(  4) = 0.1167195357541259D-03
        xs(  5) = 0.1879860650440484D-03
        xs(  6) = 0.2769364237094380D-03
        xs(  7) = 0.3842031912919949D-03
        xs(  8) = 0.5105898220827066D-03
        xs(  9) = 0.6570965044311271D-03
        xs( 10) = 0.8249509054036515D-03
        xs( 11) = 0.1015644982468918D-02
        xs( 12) = 0.1230979522467630D-02
        xs( 13) = 0.1473118629875921D-02
        xs( 14) = 0.1744657080328692D-02
        xs( 15) = 0.2048704356737425D-02
        xs( 16) = 0.2388990389635261D-02
        xs( 17) = 0.2769999663000291D-02
        xs( 18) = 0.3197142612211099D-02
        xs( 19) = 0.3676976384976333D-02
        xs( 20) = 0.4217491423189362D-02
        xs( 21) = 0.4828486474824164D-02
        xs( 22) = 0.5522063283809648D-02
        xs( 23) = 0.6313284308907928D-02
        xs( 24) = 0.7221053628560179D-02
        xs( 25) = 0.8269304092050411D-02
        xs( 26) = 0.9488603672757657D-02
        xs( 27) = 0.1091832935930288D-01
        xs( 28) = 0.1260958918289344D-01
        xs( 29) = 0.1462907301353119D-01
        xs( 30) = 0.1706390049281495D-01
        xs( 31) = 0.2002711418900075D-01
        xs( 32) = 0.2366230961207156D-01
        xs( 33) = 0.2814332014272311D-01
        xs( 34) = 0.3366087992715561D-01
        xs( 35) = 0.4038650715591478D-01
        xs( 36) = 0.4841408095914176D-01
        xs( 37) = 0.5770611196980675D-01
        xs( 38) = 0.6808878461660377D-01
        xs( 39) = 0.7930838502150804D-01
        xs( 40) = 0.9110813339230441D-01
        xs( 41) = 0.1032786964323529D+00
        xs( 42) = 0.1156721541706445D+00
        xs( 43) = 0.1281942729255524D+00
        xs( 44) = 0.1407905607481308D+00
        xs( 45) = 0.1534335628018416D+00
        xs( 46) = 0.1661147931130692D+00
        xs( 47) = 0.1788398152120067D+00
        xs( 48) = 0.1916190288598868D+00
        xs( 49) = 0.2044802035991750D+00
        xs( 50) = 0.2174226101155599D+00
        xs( 51) = 0.2304149753421551D+00
        ws(  1) = 0.1237636508745932D-04
        ws(  2) = 0.2888319769333811D-04
        ws(  3) = 0.4559363374918658D-04
        ws(  4) = 0.6259723113069774D-04
        ws(  5) = 0.8001610288981185D-04
        ws(  6) = 0.9798968287893680D-04
        ws(  7) = 0.1166773321654692D-03
        ws(  8) = 0.1362621178511982D-03
        ws(  9) = 0.1569552484161807D-03
        ws( 10) = 0.1790014760286542D-03
        ws( 11) = 0.2026859079608297D-03
        ws( 12) = 0.2283427425259630D-03
        ws( 13) = 0.2563665460858248D-03
        ws( 14) = 0.2872268552512789D-03
        ws( 15) = 0.3214871384788588D-03
        ws( 16) = 0.3598295129407594D-03
        ws( 17) = 0.4030871321668730D-03
        ws( 18) = 0.4522869006793753D-03
        ws( 19) = 0.5087062080234059D-03
        ws( 20) = 0.5739488495938498D-03
        ws( 21) = 0.6500473898228942D-03
        ws( 22) = 0.7396021510388835D-03
        ws( 23) = 0.8459710593737836D-03
        ws( 24) = 0.9735299687384801D-03
        ws( 25) = 0.1128029828494195D-02
        ws( 26) = 0.1317083931053541D-02
        ws( 27) = 0.1550821536138093D-02
        ws( 28) = 0.1842731717123919D-02
        ws( 29) = 0.2210661313908836D-02
        ws( 30) = 0.2677747996673405D-02
        ws( 31) = 0.3272597682032891D-02
        ws( 32) = 0.4026959748737978D-02
        ws( 33) = 0.4967444340080025D-02
        ws( 34) = 0.6097300449184840D-02
        ws( 35) = 0.7370626811053161D-02
        ws( 36) = 0.8678400420462969D-02
        ws( 37) = 0.9875625470409268D-02
        ws( 38) = 0.1084602140275948D-01
        ws( 39) = 0.1154952660245543D-01
        ws( 40) = 0.1201489538594303D-01
        ws( 41) = 0.1230174750309263D-01
        ws( 42) = 0.1246971847170018D-01
        ws( 43) = 0.1256566689277490D-01
        ws( 44) = 0.1262256421712836D-01
        ws( 45) = 0.1266185916611318D-01
        ws( 46) = 0.1269875170542217D-01
        ws( 47) = 0.1275010776446904D-01
        ws( 48) = 0.1281856394575810D-01
        ws( 49) = 0.1301823520246568D-01
        ws( 50) = 0.1343754272984170D-01
        ws( 51) = 0.1440670814183215D-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 =  55
        err = 0.4119514359750700D-10
        xs(  1) = 0.3696920433990677D-05
        xs(  2) = 0.1949711373167559D-04
        xs(  3) = 0.4799813059357108D-04
        xs(  4) = 0.8933825902309744D-04
        xs(  5) = 0.1437154756898935D-03
        xs(  6) = 0.2113992652202874D-03
        xs(  7) = 0.2927397534893466D-03
        xs(  8) = 0.3881781659923771D-03
        xs(  9) = 0.4982589474423001D-03
        xs( 10) = 0.6236437533401233D-03
        xs( 11) = 0.7651276444558408D-03
        xs( 12) = 0.9236579765074399D-03
        xs( 13) = 0.1100356656109471D-02
        xs( 14) = 0.1296546635231311D-02
        xs( 15) = 0.1513783755310307D-02
        xs( 16) = 0.1753895349979846D-02
        xs( 17) = 0.2019027399125187D-02
        xs( 18) = 0.2311702531212543D-02
        xs( 19) = 0.2634891845564730D-02
        xs( 20) = 0.2992104433537256D-02
        xs( 21) = 0.3387499705362850D-02
        xs( 22) = 0.3826029305383270D-02
        xs( 23) = 0.4313617701764011D-02
        xs( 24) = 0.4857393714244627D-02
        xs( 25) = 0.5465989656603911D-02
        xs( 26) = 0.6149930931171599D-02
        xs( 27) = 0.6922147524643686D-02
        xs( 28) = 0.7798650879616323D-02
        xs( 29) = 0.8799436316215194D-02
        xs( 30) = 0.9949694017511872D-02
        xs( 31) = 0.1128144158841364D-01
        xs( 32) = 0.1283572770605713D-01
        xs( 33) = 0.1466559274610006D-01
        xs( 34) = 0.1683998338357854D-01
        xs( 35) = 0.1944873497887842D-01
        xs( 36) = 0.2260837948265383D-01
        xs( 37) = 0.2646747283453532D-01
        xs( 38) = 0.3120761236931030D-01
        xs( 39) = 0.3703211633656793D-01
        xs( 40) = 0.4413156698270657D-01
        xs( 41) = 0.5262325699099288D-01
        xs( 42) = 0.6248805774828348D-01
        xs( 43) = 0.7355340385382229D-01
        xs( 44) = 0.8554662117744054D-01
        xs( 45) = 0.9818048242878444D-01
        xs( 46) = 0.1112152363623669D+00
        xs( 47) = 0.1244792104294660D+00
        xs( 48) = 0.1378623616080167D+00
        xs( 49) = 0.1513009143167662D+00
        xs( 50) = 0.1647624557090859D+00
        xs( 51) = 0.1782358286171415D+00
        xs( 52) = 0.1917194636260015D+00
        xs( 53) = 0.2052130994622113D+00
        xs( 54) = 0.2186977911737662D+00
        xs( 55) = 0.2318442033040274D+00
        ws(  1) = 0.9489568084748322D-05
        ws(  2) = 0.2213141680331738D-04
        ws(  3) = 0.3489309934475680D-04
        ws(  4) = 0.4782000654412387D-04
        ws(  5) = 0.6097919146885955D-04
        ws(  6) = 0.7444656802751899D-04
        ws(  7) = 0.8830774455948584D-04
        ws(  8) = 0.1026595888152586D-03
        ws(  9) = 0.1176119812565611D-03
        ws( 10) = 0.1332898274228252D-03
        ws( 11) = 0.1498354785593814D-03
        ws( 12) = 0.1674117310363928D-03
        ws( 13) = 0.1862055927514327D-03
        ws( 14) = 0.2064330332367527D-03
        ws( 15) = 0.2283449820178565D-03
        ws( 16) = 0.2522349109198666D-03
        ws( 17) = 0.2784484375289000D-03
        ws( 18) = 0.3073955298332274D-03
        ws( 19) = 0.3395660912109312D-03
        ws( 20) = 0.3755499758143118D-03
        ws( 21) = 0.4160628607801361D-03
        ws( 22) = 0.4619799308562415D-03
        ws( 23) = 0.5143800662434179D-03
        ws( 24) = 0.5746042579734454D-03
        ws( 25) = 0.6443334372132707D-03
        ws( 26) = 0.7256929693042206D-03
        ws( 27) = 0.8213939457686563D-03
        ws( 28) = 0.9349254006708984D-03
        ws( 29) = 0.1070816981819726D-02
        ws( 30) = 0.1234998410646932D-02
        ws( 31) = 0.1435289333473504D-02
        ws( 32) = 0.1682058083224503D-02
        ws( 33) = 0.1989079739954463D-02
        ws( 34) = 0.2374574773302382D-02
        ws( 35) = 0.2862253378914738D-02
        ws( 36) = 0.3481758866980790D-02
        ws( 37) = 0.4266853112795183D-02
        ws( 38) = 0.5247870229785567D-02
        ws( 39) = 0.6433962742817750D-02
        ws( 40) = 0.7785680326767806D-02
        ws( 41) = 0.9194877989375244D-02
        ws( 42) = 0.1050495572348133D-01
        ws( 43) = 0.1157870283535332D-01
        ws( 44) = 0.1235879231072546D-01
        ws( 45) = 0.1286867744013066D-01
        ws( 46) = 0.1317236842477639D-01
        ws( 47) = 0.1333750101861570D-01
        ws( 48) = 0.1341846053516912D-01
        ws( 49) = 0.1345345419501720D-01
        ws( 50) = 0.1346857002653883D-01
        ws( 51) = 0.1348080089254720D-01
        ws( 52) = 0.1350796270897914D-01
        ws( 53) = 0.1355855347914806D-01
        ws( 54) = 0.1355748631021941D-01
        ws( 55) = 0.1310756951845565D-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 =  58
        err = 0.6906371986940213D-10
        xs(  1) = 0.2989956013571884D-05
        xs(  2) = 0.1576483365200988D-04
        xs(  3) = 0.3879288419428297D-04
        xs(  4) = 0.7215825496702329D-04
        xs(  5) = 0.1159796945082288D-03
        xs(  6) = 0.1704186427168248D-03
        xs(  7) = 0.2356846981542572D-03
        xs(  8) = 0.3120416698411442D-03
        xs(  9) = 0.3998144097273517D-03
        xs( 10) = 0.4993964747374187D-03
        xs( 11) = 0.6112587144875028D-03
        xs( 12) = 0.7359589555446204D-03
        xs( 13) = 0.8741530331691595D-03
        xs( 14) = 0.1026607502968208D-02
        xs( 15) = 0.1194214451544242D-02
        xs( 16) = 0.1378008924507203D-02
        xs( 17) = 0.1579189610337941D-02
        xs( 18) = 0.1799143568922883D-02
        xs( 19) = 0.2039475985695262D-02
        xs( 20) = 0.2302046184668034D-02
        xs( 21) = 0.2589011464520723D-02
        xs( 22) = 0.2902880759022787D-02
        xs( 23) = 0.3246580703207060D-02
        xs( 24) = 0.3623537464076650D-02
        xs( 25) = 0.4037778742476853D-02
        xs( 26) = 0.4494061774689481D-02
        xs( 27) = 0.4998035097329997D-02
        xs( 28) = 0.5556444505016579D-02
        xs( 29) = 0.6177397333180086D-02
        xs( 30) = 0.6870704348441835D-02
        xs( 31) = 0.7648325734300161D-02
        xs( 32) = 0.8524957819420757D-02
        xs( 33) = 0.9518811528650716D-02
        xs( 34) = 0.1065265356140520D-01
        xs( 35) = 0.1195520887067159D-01
        xs( 36) = 0.1346306000649028D-01
        xs( 37) = 0.1522322473472081D-01
        xs( 38) = 0.1729663857786943D-01
        xs( 39) = 0.1976278195143846D-01
        xs( 40) = 0.2272557619286685D-01
        xs( 41) = 0.2632014369399942D-01
        xs( 42) = 0.3071843887528814D-01
        xs( 43) = 0.3612829531788436D-01
        xs( 44) = 0.4277557634981042D-01
        xs( 45) = 0.5085792245902992D-01
        xs( 46) = 0.6047237418802353D-01
        xs( 47) = 0.7155213817917865D-01
        xs( 48) = 0.8386656696831572D-01
        xs( 49) = 0.9709570682719525D-01
        xs( 50) = 0.1109253243309572D+00
        xs( 51) = 0.1251061180991219D+00
        xs( 52) = 0.1394676366023013D+00
        xs( 53) = 0.1539068241214104D+00
        xs( 54) = 0.1683701104508364D+00
        xs( 55) = 0.1828378661072585D+00
        xs( 56) = 0.1973065792030772D+00
        xs( 57) = 0.2117970117997711D+00
        xs( 58) = 0.2259036610744551D+00
        ws(  1) = 0.7674435907583902D-05
        ws(  2) = 0.1788948044056197D-04
        ws(  3) = 0.2818020488185156D-04
        ws(  4) = 0.3857023359980568D-04
        ws(  5) = 0.4909946318656364D-04
        ws(  6) = 0.5981326563779821D-04
        ws(  7) = 0.7076269962063285D-04
        ws(  8) = 0.8200525826736809D-04
        ws(  9) = 0.9360567158852207D-04
        ws( 10) = 0.1056367725551079D-03
        ws( 11) = 0.1181804949768362D-03
        ws( 12) = 0.1313290821502873D-03
        ws( 13) = 0.1451865867426049D-03
        ws( 14) = 0.1598707449979994D-03
        ws( 15) = 0.1755153168920869D-03
        ws( 16) = 0.1922730006158844D-03
        ws( 17) = 0.2103190546974388D-03
        ws( 18) = 0.2298557968352584D-03
        ws( 19) = 0.2511181981580273D-03
        ws( 20) = 0.2743808612996321D-03
        ws( 21) = 0.2999667608159771D-03
        ws( 22) = 0.3282582471748696D-03
        ws( 23) = 0.3597109826822307D-03
        ws( 24) = 0.3948717073679922D-03
        ws( 25) = 0.4344010504793812D-03
        ws( 26) = 0.4791030371351904D-03
        ws( 27) = 0.5299635476318342D-03
        ws( 28) = 0.5882008540465638D-03
        ws( 29) = 0.6553325825246169D-03
        ws( 30) = 0.7332651522466375D-03
        ws( 31) = 0.8244141994642571D-03
        ws( 32) = 0.9318680027892622D-03
        ws( 33) = 0.1059610809608238D-02
        ws( 34) = 0.1212829523134942D-02
        ws( 35) = 0.1398335775906958D-02
        ws( 36) = 0.1625145357464924D-02
        ws( 37) = 0.1905263331633749D-02
        ws( 38) = 0.2254712250697822D-02
        ws( 39) = 0.2694778108833106D-02
        ws( 40) = 0.3253224808362960D-02
        ws( 41) = 0.3964559769502222D-02
        ws( 42) = 0.4866933660432948D-02
        ws( 43) = 0.5991188563231374D-02
        ws( 44) = 0.7337605851260563D-02
        ws( 45) = 0.8844475855702950D-02
        ws( 46) = 0.1037333876486429D-01
        ws( 47) = 0.1174633839144415D-01
        ws( 48) = 0.1282745152159383D-01
        ws( 49) = 0.1357745979645178D-01
        ws( 50) = 0.1404005469913370D-01
        ws( 51) = 0.1429338356557687D-01
        ws( 52) = 0.1441279923411560D-01
        ws( 53) = 0.1445675116762935D-01
        ws( 54) = 0.1446419355994536D-01
        ws( 55) = 0.1447002440069972D-01
        ws( 56) = 0.1450746005608243D-01
        ws( 57) = 0.1477650028036777D-01
        ws( 58) = 0.1443337690364838D-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 =  62
        err = 0.6146195096144307D-10
        xs(  1) = 0.2446108170169788D-05
        xs(  2) = 0.1289508993621844D-04
        xs(  3) = 0.3172120197453688D-04
        xs(  4) = 0.5897705316625149D-04
        xs(  5) = 0.9473560686116337D-04
        xs(  6) = 0.1390960080744457D-03
        xs(  7) = 0.1921870319937818D-03
        xs(  8) = 0.2541707711807001D-03
        xs(  9) = 0.3252467012296806D-03
        xs( 10) = 0.4056561260636978D-03
        xs( 11) = 0.4956870216776279D-03
        xs( 12) = 0.5956793348284179D-03
        xs( 13) = 0.7060308331156529D-03
        xs( 14) = 0.8272036408169319D-03
        xs( 15) = 0.9597316314521872D-03
        xs( 16) = 0.1104228885142264D-02
        xs( 17) = 0.1261399460344327D-02
        xs( 18) = 0.1432048778102320D-02
        xs( 19) = 0.1617096976506502D-02
        xs( 20) = 0.1817594667869975D-02
        xs( 21) = 0.2034741627437575D-02
        xs( 22) = 0.2269909065526674D-02
        xs( 23) = 0.2524666293918343D-02
        xs( 24) = 0.2800812803300160D-02
        xs( 25) = 0.3100417036552772D-02
        xs( 26) = 0.3425863493826815D-02
        xs( 27) = 0.3779910267948912D-02
        xs( 28) = 0.4165759719077097D-02
        xs( 29) = 0.4587145814729913D-02
        xs( 30) = 0.5048442759564283D-02
        xs( 31) = 0.5554801021492026D-02
        xs( 32) = 0.6112318884762822D-02
        xs( 33) = 0.6728260448118223D-02
        xs( 34) = 0.7411334844597724D-02
        xs( 35) = 0.8172056830193831D-02
        xs( 36) = 0.9023216431076325D-02
        xs( 37) = 0.9980496031819427D-02
        xs( 38) = 0.1106328834274582D-01
        xs( 39) = 0.1229578982471410D-01
        xs( 40) = 0.1370847377212903D-01
        xs( 41) = 0.1534008745176682D-01
        xs( 42) = 0.1724036773738476D-01
        xs( 43) = 0.1947372119957286D-01
        xs( 44) = 0.2212413626495338D-01
        xs( 45) = 0.2530146926358260D-01
        xs( 46) = 0.2914864017043601D-01
        xs( 47) = 0.3384755246235563D-01
        xs( 48) = 0.3961806374244840D-01
        xs( 49) = 0.4669957232563755D-01
        xs( 50) = 0.5530315457520068D-01
        xs( 51) = 0.6553491554992309D-01
        xs( 52) = 0.7732628758085243D-01
        xs( 53) = 0.9043125919166255D-01
        xs( 54) = 0.1045059534734557D+00
        xs( 55) = 0.1192120750826779D+00
        xs( 56) = 0.1342818473397646D+00
        xs( 57) = 0.1495335972596065D+00
        xs( 58) = 0.1648590161149482D+00
        xs( 59) = 0.1802065379126535D+00
        xs( 60) = 0.1955565557285955D+00
        xs( 61) = 0.2108713131505869D+00
        xs( 62) = 0.2256889598282607D+00
        ws(  1) = 0.6278264295446305D-05
        ws(  2) = 0.1462981742506451D-04
        ws(  3) = 0.2303082382522114D-04
        ws(  4) = 0.3149297501466662D-04
        ws(  5) = 0.4004060083971290D-04
        ws(  6) = 0.4870160277572860D-04
        ws(  7) = 0.5750739270508028D-04
        ws(  8) = 0.6649325754746370D-04
        ws(  9) = 0.7569873926918687D-04
        ws( 10) = 0.8516801830449375D-04
        ws( 11) = 0.9495033353747553D-04
        ws( 12) = 0.1051004788602616D-03
        ws( 13) = 0.1156794157116610D-03
        ws( 14) = 0.1267550382337222D-03
        ws( 15) = 0.1384031275627775D-03
        ws( 16) = 0.1507085340103254D-03
        ws( 17) = 0.1637666316822602D-03
        ws( 18) = 0.1776850988087611D-03
        ws( 19) = 0.1925860901133092D-03
        ws( 20) = 0.2086088858636144D-03
        ws( 21) = 0.2259131262748524D-03
        ws( 22) = 0.2446827702634924D-03
        ws( 23) = 0.2651309592560428D-03
        ws( 24) = 0.2875060198408806D-03
        ws( 25) = 0.3120989108053291D-03
        ws( 26) = 0.3392525162607868D-03
        ws( 27) = 0.3693733138456865D-03
        ws( 28) = 0.4029461201388183D-03
        ws( 29) = 0.4405528572331436D-03
        ws( 30) = 0.4828966101283838D-03
        ws( 31) = 0.5308326957316494D-03
        ws( 32) = 0.5854091074061675D-03
        ws( 33) = 0.6479195963563964D-03
        ws( 34) = 0.7199739181871205D-03
        ws( 35) = 0.8035915642081225D-03
        ws( 36) = 0.9013279097848386D-03
        ws( 37) = 0.1016445430229168D-02
        ws( 38) = 0.1153147723119186D-02
        ws( 39) = 0.1316901299121926D-02
        ws( 40) = 0.1514879805434430D-02
        ws( 41) = 0.1756576378632126D-02
        ws( 42) = 0.2054637252602265D-02
        ws( 43) = 0.2425962300617076D-02
        ws( 44) = 0.2893052843487397D-02
        ws( 45) = 0.3485321738532997D-02
        ws( 46) = 0.4239328972385975D-02
        ws( 47) = 0.5195411435425569D-02
        ws( 48) = 0.6386298111231955D-02
        ws( 49) = 0.7813259929890211D-02
        ws( 50) = 0.9412931026567473D-02
        ws( 51) = 0.1103926655391962D-01
        ws( 52) = 0.1250096772062314D-01
        ws( 53) = 0.1364976524071551D-01
        ws( 54) = 0.1444215300142124D-01
        ws( 55) = 0.1492525655350307D-01
        ws( 56) = 0.1518412449255518D-01
        ws( 57) = 0.1530166611339140D-01
        ws( 58) = 0.1534235201513123D-01
        ws( 59) = 0.1535564014960017D-01
        ws( 60) = 0.1544151186894262D-01
        ws( 61) = 0.1565446851213805D-01
        ws( 62) = 0.1495527613940867D-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 =  66
        err = 0.6132083553116023D-10
        xs(  1) = 0.2044497458344697D-05
        xs(  2) = 0.1077655034165344D-04
        xs(  3) = 0.2650358021256187D-04
        xs(  4) = 0.4925967741507960D-04
        xs(  5) = 0.7909117453982612D-04
        xs(  6) = 0.1160611121891440D-03
        xs(  7) = 0.1602515991748769D-03
        xs(  8) = 0.2117662532462670D-03
        xs(  9) = 0.2707328321766313D-03
        xs( 10) = 0.3373060431131347D-03
        xs( 11) = 0.4116705254587448D-03
        xs( 12) = 0.4940440255294797D-03
        xs( 13) = 0.5846808046375733D-03
        xs( 14) = 0.6838753428478401D-03
        xs( 15) = 0.7919664184889046D-03
        xs( 16) = 0.9093416598026476D-03
        xs( 17) = 0.1036442681500406D-02
        xs( 18) = 0.1173770937002594D-02
        xs( 19) = 0.1321894438367239D-02
        xs( 20) = 0.1481455521588050D-02
        xs( 21) = 0.1653179867317165D-02
        xs( 22) = 0.1837887028018672D-02
        xs( 23) = 0.2036502763787250D-02
        xs( 24) = 0.2250073554315115D-02
        xs( 25) = 0.2479783737182314D-02
        xs( 26) = 0.2726975827354101D-02
        xs( 27) = 0.2993174707194346D-02
        xs( 28) = 0.3280116549631074D-02
        xs( 29) = 0.3589783557613051D-02
        xs( 30) = 0.3924445891970883D-02
        xs( 31) = 0.4286712537305347D-02
        xs( 32) = 0.4679593348732686D-02
        xs( 33) = 0.5106575176777864D-02
        xs( 34) = 0.5571715842419342D-02
        xs( 35) = 0.6079760901087273D-02
        xs( 36) = 0.6636289727008835D-02
        xs( 37) = 0.7247899616848961D-02
        xs( 38) = 0.7922439581656875D-02
        xs( 39) = 0.8669309643736932D-02
        xs( 40) = 0.9499847220954658D-02
        xs( 41) = 0.1042783033786433D-01
        xs( 42) = 0.1147013895373397D-01
        xs( 43) = 0.1264763204056170D-01
        xs( 44) = 0.1398632140193922D-01
        xs( 45) = 0.1551895605148177D-01
        xs( 46) = 0.1728717594909213D-01
        xs( 47) = 0.1934445110025428D-01
        xs( 48) = 0.2176008400191253D-01
        xs( 49) = 0.2462457985819035D-01
        xs( 50) = 0.2805653568361507D-01
        xs( 51) = 0.3221048692659180D-01
        xs( 52) = 0.3728319239886289D-01
        xs( 53) = 0.4351193214673217D-01
        xs( 54) = 0.5115310325092496D-01
        xs( 55) = 0.6042783241309831D-01
        xs( 56) = 0.7143719745634967D-01
        xs( 57) = 0.8409049618605469D-01
        xs( 58) = 0.9811111482055843D-01
        xs( 59) = 0.1131278226939571D+00
        xs( 60) = 0.1287840094597215D+00
        xs( 61) = 0.1448024503431188D+00
        xs( 62) = 0.1609986320529148D+00
        xs( 63) = 0.1772659254179928D+00
        xs( 64) = 0.1935568629816896D+00
        xs( 65) = 0.2098583889025608D+00
        xs( 66) = 0.2257280835660408D+00
        ws(  1) = 0.5247319774404690D-05
        ws(  2) = 0.1222434651500452D-04
        ws(  3) = 0.1923510634513495D-04
        ws(  4) = 0.2628476335105016D-04
        ws(  5) = 0.3338869980673859D-04
        ws(  6) = 0.4056481967849985D-04
        ws(  7) = 0.4783338001322216D-04
        ws(  8) = 0.5521717424825249D-04
        ws(  9) = 0.6274171846590858D-04
        ws( 10) = 0.7043542382793608D-04
        ws( 11) = 0.7832977526093176D-04
        ws( 12) = 0.8645954023440388D-04
        ws( 13) = 0.9486303023311216D-04
        ws( 14) = 0.1035824336460724D-03
        ws( 15) = 0.1126642370436710D-03
        ws( 16) = 0.1221597508644621D-03
        ws( 17) = 0.1321257565192760D-03
        ws( 18) = 0.1426252942311012D-03
        ws( 19) = 0.1537286147466201D-03
        ws( 20) = 0.1655143237363629D-03
        ws( 21) = 0.1780707550754610D-03
        ws( 22) = 0.1914976188683167D-03
        ws( 23) = 0.2059079816134142D-03
        ws( 24) = 0.2214306520016646D-03
        ws( 25) = 0.2382130650989886D-03
        ws( 26) = 0.2564247828077573D-03
        ws( 27) = 0.2762617632703991D-03
        ws( 28) = 0.2979515940702881D-03
        ws( 29) = 0.3217599395341030D-03
        ws( 30) = 0.3479985326350478D-03
        ws( 31) = 0.3770351406934174D-03
        ws( 32) = 0.4093060692532084D-03
        ws( 33) = 0.4453319595914070D-03
        ws( 34) = 0.4857378832689654D-03
        ws( 35) = 0.5312790886919882D-03
        ws( 36) = 0.5828742531422722D-03
        ws( 37) = 0.6416487572459951D-03
        ws( 38) = 0.7089914724927958D-03
        ws( 39) = 0.7866299309794526D-03
        ws( 40) = 0.8767306731611046D-03
        ws( 41) = 0.9820344584836565D-03
        ws( 42) = 0.1106039970815447D-02
        ws( 43) = 0.1253255470029288D-02
        ws( 44) = 0.1429546036815785D-02
        ws( 45) = 0.1642614939963758D-02
        ws( 46) = 0.1902670595288363D-02
        ws( 47) = 0.2223341173310397D-02
        ws( 48) = 0.2622893160237460D-02
        ws( 49) = 0.3125728778071214D-02
        ws( 50) = 0.3763819579260593D-02
        ws( 51) = 0.4576875755423603D-02
        ws( 52) = 0.5608400643857320D-02
        ws( 53) = 0.6892709635731652D-02
        ws( 54) = 0.8428006633137470D-02
        ws( 55) = 0.1013969169939379D-01
        ws( 56) = 0.1186385529090733D-01
        ws( 57) = 0.1339490901290425D-01
        ws( 58) = 0.1458246284678195D-01
        ws( 59) = 0.1539043667065433D-01
        ws( 60) = 0.1587557038518326D-01
        ws( 61) = 0.1613082037903420D-01
        ws( 62) = 0.1624514481001957D-01
        ws( 63) = 0.1628396894629057D-01
        ws( 64) = 0.1630611662304827D-01
        ws( 65) = 0.1641607946402088D-01
        ws( 66) = 0.1687652603265919D-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 =  70
        err = 0.8291081417110222D-10
        xs(  1) = 0.1739585992934853D-05
        xs(  2) = 0.9168595891848631D-05
        xs(  3) = 0.2254559390584809D-04
        xs(  4) = 0.4189400854885120D-04
        xs(  5) = 0.6724487155289467D-04
        xs(  6) = 0.9864028612420199D-04
        xs(  7) = 0.1361350412881525D-03
        xs(  8) = 0.1797982486268383D-03
        xs(  9) = 0.2297151028897468D-03
        xs( 10) = 0.2859887550047962D-03
        xs( 11) = 0.3487422835421801D-03
        xs( 12) = 0.4181207627836791D-03
        xs( 13) = 0.4942934396428386D-03
        xs( 14) = 0.5774560448149026D-03
        xs( 15) = 0.6678332750266216D-03
        xs( 16) = 0.7656814929392760D-03
        xs( 17) = 0.8712917002377703D-03
        xs( 18) = 0.9849928478770770D-03
        xs( 19) = 0.1107155556893714D-02
        xs( 20) = 0.1238196333538479D-02
        xs( 21) = 0.1378582374849254D-02
        xs( 22) = 0.1528837076052193D-02
        xs( 23) = 0.1689546370332831D-02
        xs( 24) = 0.1861366054814053D-02
        xs( 25) = 0.2045030285939315D-02
        xs( 26) = 0.2241361464205357D-02
        xs( 27) = 0.2451281773883606D-02
        xs( 28) = 0.2675826700101109D-02
        xs( 29) = 0.2916160918936565D-02
        xs( 30) = 0.3173597046482780D-02
        xs( 31) = 0.3449617847906976D-02
        xs( 32) = 0.3745902654727684D-02
        xs( 33) = 0.4064358928089077D-02
        xs( 34) = 0.4407160146442261D-02
        xs( 35) = 0.4776791512410529D-02
        xs( 36) = 0.5176105385344071D-02
        xs( 37) = 0.5608388884053354D-02
        xs( 38) = 0.6077446823782686D-02
        xs( 39) = 0.6587704106613428D-02
        xs( 40) = 0.7144332965109792D-02
        xs( 41) = 0.7753412213427770D-02
        xs( 42) = 0.8422128036413744D-02
        xs( 43) = 0.9159029132794934D-02
        xs( 44) = 0.9974353621692010D-02
        xs( 45) = 0.1088045152984544D-01
        xs( 46) = 0.1189233577800933D-01
        xs( 47) = 0.1302840746171765D-01
        xs( 48) = 0.1431141966680837D-01
        xs( 49) = 0.1576977044514129D-01
        xs( 50) = 0.1743925259021566D-01
        xs( 51) = 0.1936543835687453D-01
        xs( 52) = 0.2160694131258314D-01
        xs( 53) = 0.2423986190249601D-01
        xs( 54) = 0.2736372259993184D-01
        xs( 55) = 0.3110893994177095D-01
        xs( 56) = 0.3564493408412991D-01
        xs( 57) = 0.4118564438127711D-01
        xs( 58) = 0.4798487187534970D-01
        xs( 59) = 0.5630855709577743D-01
        xs( 60) = 0.6637160806576212D-01
        xs( 61) = 0.7824836490055002D-01
        xs( 62) = 0.9180826480816709D-01
        xs( 63) = 0.1067375565677909D+00
        xs( 64) = 0.1226410724704662D+00
        xs( 65) = 0.1391510535846313D+00
        xs( 66) = 0.1559860725569657D+00
        xs( 67) = 0.1729595370342030D+00
        xs( 68) = 0.1899532008756657D+00
        xs( 69) = 0.2068647812929164D+00
        xs( 70) = 0.2231687191578556D+00
        ws(  1) = 0.4464660077751235D-05
        ws(  2) = 0.1039929303676253D-04
        ws(  3) = 0.1635836636423955D-04
        ws(  4) = 0.2234360060895318D-04
        ws(  5) = 0.2836511699995199D-04
        ws(  6) = 0.3443481645353963D-04
        ws(  7) = 0.4056618308035401D-04
        ws(  8) = 0.4677439946185700D-04
        ws(  9) = 0.5307646802000169D-04
        ws( 10) = 0.5949131486301104D-04
        ws( 11) = 0.6603988503382597D-04
        ws( 12) = 0.7274524284166503D-04
        ws( 13) = 0.7963269140319061D-04
        ws( 14) = 0.8672992353205931D-04
        ws( 15) = 0.9406721459998795D-04
        ws( 16) = 0.1016776665121886D-03
        ws( 17) = 0.1095975114282012D-03
        ws( 18) = 0.1178664839961286D-03
        ws( 19) = 0.1265282719149305D-03
        ws( 20) = 0.1356310560685616D-03
        ws( 21) = 0.1452281537989975D-03
        ws( 22) = 0.1553787824833925D-03
        ws( 23) = 0.1661489645268521D-03
        ws( 24) = 0.1776125997163080D-03
        ws( 25) = 0.1898527377107319D-03
        ws( 26) = 0.2029630918662104D-03
        ws( 27) = 0.2170498446706649D-03
        ws( 28) = 0.2322338093900079D-03
        ws( 29) = 0.2486530292392943D-03
        ws( 30) = 0.2664659153091385D-03
        ws( 31) = 0.2858550528554689D-03
        ws( 32) = 0.3070318430710108D-03
        ws( 33) = 0.3302421927765469D-03
        ws( 34) = 0.3557735262465393D-03
        ws( 35) = 0.3839634796625330D-03
        ws( 36) = 0.4152107467724052D-03
        ws( 37) = 0.4499886926942756D-03
        ws( 38) = 0.4888625665213444D-03
        ws( 39) = 0.5325114060704026D-03
        ws( 40) = 0.5817561300999498D-03
        ws( 41) = 0.6375958524302345D-03
        ws( 42) = 0.7012551838322001D-03
        ws( 43) = 0.7742463975721573D-03
        ws( 44) = 0.8584518418073170D-03
        ws( 45) = 0.9562341897136643D-03
        ws( 46) = 0.1070585304132974D-02
        ws( 47) = 0.1205328992975631D-02
        ws( 48) = 0.1365399681526811D-02
        ws( 49) = 0.1557228168522535D-02
        ws( 50) = 0.1789277881147767D-02
        ws( 51) = 0.2072789299372001D-02
        ws( 52) = 0.2422801463465353D-02
        ws( 53) = 0.2859500657005798D-02
        ws( 54) = 0.3409814857393349D-02
        ws( 55) = 0.4108747293557598D-02
        ws( 56) = 0.4998943065358155D-02
        ws( 57) = 0.6125201761474426D-02
        ws( 58) = 0.7518636999198387D-02
        ws( 59) = 0.9166178091895938D-02
        ws( 60) = 0.1097357553641050D-01
        ws( 61) = 0.1275780284748292D-01
        ws( 62) = 0.1430778488783035D-01
        ws( 63) = 0.1548296148307999D-01
        ws( 64) = 0.1626179469541410D-01
        ws( 65) = 0.1671145123621515D-01
        ws( 66) = 0.1692825879885803D-01
        ws( 67) = 0.1699834277588592D-01
        ws( 68) = 0.1700278572652379D-01
        ws( 69) = 0.1691217786355926D-01
        ws( 70) = 0.1558143134276447D-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 =  74
        err = 0.9824073495457228D-10
        xs(  1) = 0.1496223855349625D-05
        xs(  2) = 0.7885395177300647D-05
        xs(  3) = 0.1938776956001179D-04
        xs(  4) = 0.3601956614749022D-04
        xs(  5) = 0.5780161796670932D-04
        xs(  6) = 0.8476217390352193D-04
        xs(  7) = 0.1169380670343474D-03
        xs(  8) = 0.1543758711461261D-03
        xs(  9) = 0.1971331376681518D-03
        xs( 10) = 0.2452797046576222D-03
        xs( 11) = 0.2988990627266840D-03
        xs( 12) = 0.3580897695927866D-03
        xs( 13) = 0.4229669133846012D-03
        xs( 14) = 0.4936636338988639D-03
        xs( 15) = 0.5703327186738778D-03
        xs( 16) = 0.6531482974736336D-03
        xs( 17) = 0.7423076642398041D-03
        xs( 18) = 0.8380332604480182D-03
        xs( 19) = 0.9405748583565937D-03
        xs( 20) = 0.1050211987584277D-02
        xs( 21) = 0.1167256653283385D-02
        xs( 22) = 0.1292056400357455D-02
        xs( 23) = 0.1424997785506690D-02
        xs( 24) = 0.1566510328378529D-02
        xs( 25) = 0.1717071023827734D-02
        xs( 26) = 0.1877209511108113D-02
        xs( 27) = 0.2047514013136912D-02
        xs( 28) = 0.2228638180233432D-02
        xs( 29) = 0.2421308997592285D-02
        xs( 30) = 0.2626335948693160D-02
        xs( 31) = 0.2844621667021540D-02
        xs( 32) = 0.3077174356839600D-02
        xs( 33) = 0.3325122324712423D-02
        xs( 34) = 0.3589731042886286D-02
        xs( 35) = 0.3872423262320836D-02
        xs( 36) = 0.4174802813974180D-02
        xs( 37) = 0.4498682895983263D-02
        xs( 38) = 0.4846119846341852D-02
        xs( 39) = 0.5219453655621114D-02
        xs( 40) = 0.5621356813735312D-02
        xs( 41) = 0.6054893523807610D-02
        xs( 42) = 0.6523591887730188D-02
        xs( 43) = 0.7031532441323393D-02
        xs( 44) = 0.7583457435373054D-02
        xs( 45) = 0.8184906633806771D-02
        xs( 46) = 0.8842387286123559D-02
        xs( 47) = 0.9563588485074047D-02
        xs( 48) = 0.1035765368351478D-01
        xs( 49) = 0.1123553012506303D-01
        xs( 50) = 0.1221042096010555D-01
        xs( 51) = 0.1329837584081219D-01
        xs( 52) = 0.1451907006955819D-01
        xs( 53) = 0.1589684321731157D-01
        xs( 54) = 0.1746209847028850D-01
        xs( 55) = 0.1925320745621717D-01
        xs( 56) = 0.2131912585838663D-01
        xs( 57) = 0.2372300634604381D-01
        xs( 58) = 0.2654718552378676D-01
        xs( 59) = 0.2989993105304554D-01
        xs( 60) = 0.3392397745421262D-01
        xs( 61) = 0.3880558299647498D-01
        xs( 62) = 0.4477987554411300D-01
        xs( 63) = 0.5212326053513470D-01
        xs( 64) = 0.6111845016886814D-01
        xs( 65) = 0.7198093862107675D-01
        xs( 66) = 0.8476329832688113D-01
        xs( 67) = 0.9929730846530643D-01
        xs( 68) = 0.1152318306229252D+00
        xs( 69) = 0.1321473453264419D+00
        xs( 70) = 0.1496671879957242D+00
        xs( 71) = 0.1675128095959099D+00
        xs( 72) = 0.1855147742516244D+00
        xs( 73) = 0.2035518042456883D+00
        xs( 74) = 0.2212681593118950D+00
        ws(  1) = 0.3840007315696390D-05
        ws(  2) = 0.8943083421552696D-05
        ws(  3) = 0.1406416318052226D-04
        ws(  4) = 0.1920287574266897D-04
        ws(  5) = 0.2436591768730787D-04
        ws(  6) = 0.2956131383695630D-04
        ws(  7) = 0.3479821408493393D-04
        ws(  8) = 0.4008696418984930D-04
        ws(  9) = 0.4543918573278195D-04
        ws( 10) = 0.5086783976841897D-04
        ws( 11) = 0.5638727829421341D-04
        ws( 12) = 0.6201329147517720D-04
        ws( 13) = 0.6776315952988191D-04
        ws( 14) = 0.7365571791969286D-04
        ws( 15) = 0.7971144297953478D-04
        ws( 16) = 0.8595256398253948D-04
        ws( 17) = 0.9240320684415066D-04
        ws( 18) = 0.9908957394533215D-04
        ws( 19) = 0.1060401649649660D-03
        ws( 20) = 0.1132860434293337D-03
        ws( 21) = 0.1208611544348308D-03
        ws( 22) = 0.1288027001768669D-03
        ws( 23) = 0.1371515817522913D-03
        ws( 24) = 0.1459529172418550D-03
        ws( 25) = 0.1552566482013438D-03
        ws( 26) = 0.1651182498308072D-03
        ws( 27) = 0.1755995646217760D-03
        ws( 28) = 0.1867697816028012D-03
        ws( 29) = 0.1987065901621808D-03
        ws( 30) = 0.2114975447539840D-03
        ws( 31) = 0.2252416847698927D-03
        ws( 32) = 0.2400514628003070D-03
        ws( 33) = 0.2560550512722200D-03
        ws( 34) = 0.2733991154358653D-03
        ws( 35) = 0.2922521595189912D-03
        ws( 36) = 0.3128085835522335D-03
        ws( 37) = 0.3352936319984571D-03
        ws( 38) = 0.3599694578299161D-03
        ws( 39) = 0.3871425949208930D-03
        ws( 40) = 0.4171732266882050D-03
        ws( 41) = 0.4504867451581470D-03
        ws( 42) = 0.4875882641435750D-03
        ws( 43) = 0.5290809728631332D-03
        ws( 44) = 0.5756895002397472D-03
        ws( 45) = 0.6282898978380222D-03
        ws( 46) = 0.6879484242078814D-03
        ws( 47) = 0.7559721188674031D-03
        ws( 48) = 0.8339753670879285D-03
        ws( 49) = 0.9239683144904169D-03
        ws( 50) = 0.1028475477194113D-02
        ws( 51) = 0.1150696427027185D-02
        ws( 52) = 0.1294725641196888D-02
        ws( 53) = 0.1465856585765448D-02
        ws( 54) = 0.1671006272125188D-02
        ws( 55) = 0.1919311681050280D-02
        ws( 56) = 0.2222968492809887D-02
        ws( 57) = 0.2598403224542681D-02
        ws( 58) = 0.3067855134441112D-02
        ws( 59) = 0.3661264907572947D-02
        ws( 60) = 0.4417760397098414D-02
        ws( 61) = 0.5384728476823407D-02
        ws( 62) = 0.6610469689977284D-02
        ws( 63) = 0.8124670694599795D-02
        ws( 64) = 0.9903381348255053D-02
        ws( 65) = 0.1183150447617701D-01
        ws( 66) = 0.1370449287109695D-01
        ws( 67) = 0.1530285572271653D-01
        ws( 68) = 0.1649426053744536D-01
        ws( 69) = 0.1727312553638231D-01
        ws( 70) = 0.1772063115728684D-01
        ws( 71) = 0.1794400913771110D-01
        ws( 72) = 0.1802726329724903D-01
        ws( 73) = 0.1824746169671482D-01
        ws( 74) = 0.1850448719788707D-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 =  79
        err = 0.5246385345431317D-10
        xs(  1) = 0.1283717804246591D-05
        xs(  2) = 0.6765165225259177D-05
        xs(  3) = 0.1663220933694008D-04
        xs(  4) = 0.3089671309696600D-04
        xs(  5) = 0.4957345489116831D-04
        xs(  6) = 0.7268239800469895D-04
        xs(  7) = 0.1002495276045110D-03
        xs(  8) = 0.1323076520886108D-03
        xs(  9) = 0.1688972528137678D-03
        xs( 10) = 0.2100673778747785D-03
        xs( 11) = 0.2558765687953375D-03
        xs( 12) = 0.3063938124358407D-03
        xs( 13) = 0.3616995161618157D-03
        xs( 14) = 0.4218865096465518D-03
        xs( 15) = 0.4870610815335166D-03
        xs( 16) = 0.5573440630537326D-03
        xs( 17) = 0.6328719740053692D-03
        xs( 18) = 0.7137982490552339D-03
        xs( 19) = 0.8002945647077544D-03
        xs( 20) = 0.8925522895242267D-03
        xs( 21) = 0.9907840824861015D-03
        xs( 22) = 0.1095225666994294D-02
        xs( 23) = 0.1206137811005027D-02
        xs( 24) = 0.1323808547568368D-02
        xs( 25) = 0.1448555674497176D-02
        xs( 26) = 0.1580729577456011D-02
        xs( 27) = 0.1720716427286719D-02
        xs( 28) = 0.1868941810634720D-02
        xs( 29) = 0.2025874862650566D-02
        xs( 30) = 0.2192032982659869D-02
        xs( 31) = 0.2367987228138069D-02
        xs( 32) = 0.2554368499967680D-02
        xs( 33) = 0.2751874653774659D-02
        xs( 34) = 0.2961278698456052D-02
        xs( 35) = 0.3183438275297054D-02
        xs( 36) = 0.3419306651391283D-02
        xs( 37) = 0.3669945511038432D-02
        xs( 38) = 0.3936539889433386D-02
        xs( 39) = 0.4220415670430676D-02
        xs( 40) = 0.4523060168093735D-02
        xs( 41) = 0.4846146432672897D-02
        xs( 42) = 0.5191562076209085D-02
        xs( 43) = 0.5561443613524586D-02
        xs( 44) = 0.5958217567713240D-02
        xs( 45) = 0.6384649917518864D-02
        xs( 46) = 0.6843905897984651D-02
        xs( 47) = 0.7339622722944982D-02
        xs( 48) = 0.7875998542921637D-02
        xs( 49) = 0.8457901949063195D-02
        xs( 50) = 0.9091007656068554D-02
        xs( 51) = 0.9781965805295351D-02
        xs( 52) = 0.1053861478350445D-01
        xs( 53) = 0.1137025083990328D-01
        xs( 54) = 0.1228797253400528D-01
        xs( 55) = 0.1330512465525548D-01
        xs( 56) = 0.1443787565777784D-01
        xs( 57) = 0.1570597607494005D-01
        xs( 58) = 0.1713376478162266D-01
        xs( 59) = 0.1875151794613014D-01
        xs( 60) = 0.2059727530248780D-01
        xs( 61) = 0.2271933435359677D-01
        xs( 62) = 0.2517967719746142D-01
        xs( 63) = 0.2805867345521765D-01
        xs( 64) = 0.3146141543140877D-01
        xs( 65) = 0.3552578742958956D-01
        xs( 66) = 0.4043142131529307D-01
        xs( 67) = 0.4640635455066838D-01
        xs( 68) = 0.5372374719487155D-01
        xs( 69) = 0.6267504459403982D-01
        xs( 70) = 0.7350513209880322D-01
        xs( 71) = 0.8631646733826658D-01
        xs( 72) = 0.1009946126105401D+00
        xs( 73) = 0.1172213661170077D+00
        xs( 74) = 0.1345768124002673D+00
        xs( 75) = 0.1526583363352345D+00
        xs( 76) = 0.1711530498562569D+00
        xs( 77) = 0.1898589974488915D+00
        xs( 78) = 0.2086131128773338D+00
        xs( 79) = 0.2269932039115518D+00
        ws(  1) = 0.3294585882685840D-05
        ws(  2) = 0.7672199076558505D-05
        ws(  3) = 0.1206369177385546D-04
        ws(  4) = 0.1646775839591827D-04
        ws(  5) = 0.2088903943211116D-04
        ws(  6) = 0.2533316437622691D-04
        ws(  7) = 0.2980654870583087D-04
        ws(  8) = 0.3431643223498060D-04
        ws(  9) = 0.3887092842783464D-04
        ws( 10) = 0.4347906274070813D-04
        ws( 11) = 0.4815080067089947D-04
        ws( 12) = 0.5289707116294481D-04
        ws( 13) = 0.5772979065021676D-04
        ws( 14) = 0.6266189306773821D-04
        ws( 15) = 0.6770737018519839D-04
        ws( 16) = 0.7288132576748762D-04
        ws( 17) = 0.7820004652244765D-04
        ws( 18) = 0.8368109221802314D-04
        ws( 19) = 0.8934340727170406D-04
        ws( 20) = 0.9520745602690203D-04
        ws( 21) = 0.1012953842089290D-03
        ws( 22) = 0.1076312092187704D-03
        ws( 23) = 0.1142410427579457D-03
        ws( 24) = 0.1211533497406048D-03
        ws( 25) = 0.1283992485818269D-03
        ws( 26) = 0.1360128587962264D-03
        ws( 27) = 0.1440317032862458D-03
        ws( 28) = 0.1524971742333719D-03
        ws( 29) = 0.1614550733893485D-03
        ws( 30) = 0.1709562401120427D-03
        ws( 31) = 0.1810572828524083D-03
        ws( 32) = 0.1918214338930479D-03
        ws( 33) = 0.2033195511032823D-03
        ws( 34) = 0.2156312959227852D-03
        ws( 35) = 0.2288465232275607D-03
        ws( 36) = 0.2430669284459131D-03
        ws( 37) = 0.2584080063142397D-03
        ws( 38) = 0.2750013895995413D-03
        ws( 39) = 0.2929976548275508D-03
        ws( 40) = 0.3125697041249992D-03
        ws( 41) = 0.3339168576508365D-03
        ws( 42) = 0.3572698338376649D-03
        ws( 43) = 0.3828968419176239D-03
        ws( 44) = 0.4111110722830702D-03
        ws( 45) = 0.4422799622874786D-03
        ws( 46) = 0.4768367284691431D-03
        ws( 47) = 0.5152948013481541D-03
        ws( 48) = 0.5582660265831899D-03
        ws( 49) = 0.6064837730313390D-03
        ws( 50) = 0.6608324819890977D-03
        ws( 51) = 0.7223857628791969D-03
        ws( 52) = 0.7924558852017322D-03
        ws( 53) = 0.8726586684012973D-03
        ws( 54) = 0.9649993381873439D-03
        ws( 55) = 0.1071987162133914D-02
        ws( 56) = 0.1196790048816677D-02
        ws( 57) = 0.1343445095979065D-02
        ws( 58) = 0.1517148353933398D-02
        ws( 59) = 0.1724656984757907D-02
        ws( 60) = 0.1974851034348499D-02
        ws( 61) = 0.2279519971140287D-02
        ws( 62) = 0.2654455568120442D-02
        ws( 63) = 0.3120916355960722D-02
        ws( 64) = 0.3707392382326868D-02
        ws( 65) = 0.4451162021207044D-02
        ws( 66) = 0.5398133411884071D-02
        ws( 67) = 0.6597663648737202D-02
        ws( 68) = 0.8086777441191214D-02
        ws( 69) = 0.9858365338671436D-02
        ws( 70) = 0.1182032938643587D-01
        ws( 71) = 0.1378305759636621D-01
        ws( 72) = 0.1551827635831171D-01
        ws( 73) = 0.1686307865014776D-01
        ws( 74) = 0.1777960109932285D-01
        ws( 75) = 0.1833086771746125D-01
        ws( 76) = 0.1862078593442238D-01
        ws( 77) = 0.1877743289587334D-01
        ws( 78) = 0.1900735872571068D-01
        ws( 79) = 0.1884930945096704D-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 =  83
        err = 0.4606516691855828D-10
        xs(  1) = 0.1130507031920183D-05
        xs(  2) = 0.5957478638164848D-05
        xs(  3) = 0.1464530926116899D-04
        xs(  4) = 0.2720252511133161D-04
        xs(  5) = 0.4363930678460310D-04
        xs(  6) = 0.6396942681049366D-04
        xs(  7) = 0.8821091142161625D-04
        xs(  8) = 0.1163866590543834D-03
        xs(  9) = 0.1485250910866355D-03
        xs( 10) = 0.1846608317936257D-03
        xs( 11) = 0.2248354074307183D-03
        xs( 12) = 0.2690979564913898D-03
        xs( 13) = 0.3175059474943309D-03
        xs( 14) = 0.3701259044459672D-03
        xs( 15) = 0.4270341440896950D-03
        xs( 16) = 0.4883175318297754D-03
        xs( 17) = 0.5540742655893078D-03
        xs( 18) = 0.6244146986756802D-03
        xs( 19) = 0.6994622142089391D-03
        xs( 20) = 0.7793541647206762D-03
        xs( 21) = 0.8642428919552965D-03
        xs( 22) = 0.9542968428253027D-03
        xs( 23) = 0.1049701798995944D-02
        xs( 24) = 0.1150662239037553D-02
        xs( 25) = 0.1257402854271790D-02
        xs( 26) = 0.1370170241693012D-02
        xs( 27) = 0.1489234800326124D-02
        xs( 28) = 0.1614892860941367D-02
        xs( 29) = 0.1747469083449894D-02
        xs( 30) = 0.1887319161315550D-02
        xs( 31) = 0.2034832878561472D-02
        xs( 32) = 0.2190437572654095D-02
        xs( 33) = 0.2354602065429168D-02
        xs( 34) = 0.2527841135006233D-02
        xs( 35) = 0.2710720614713374D-02
        xs( 36) = 0.2903863221013052D-02
        xs( 37) = 0.3107955231637965D-02
        xs( 38) = 0.3323754158498789D-02
        xs( 39) = 0.3552097588540933D-02
        xs( 40) = 0.3793913400886247D-02
        xs( 41) = 0.4050231611542514D-02
        xs( 42) = 0.4322198151247263D-02
        xs( 43) = 0.4611090948238671D-02
        xs( 44) = 0.4918338770603220D-02
        xs( 45) = 0.5245543388825991D-02
        xs( 46) = 0.5594505750568552D-02
        xs( 47) = 0.5967257027373705D-02
        xs( 48) = 0.6366095610123412D-02
        xs( 49) = 0.6793631405009445D-02
        xs( 50) = 0.7252839140398888D-02
        xs( 51) = 0.7747122865528861D-02
        xs( 52) = 0.8280394432809779D-02
        xs( 53) = 0.8857169571302491D-02
        xs( 54) = 0.9482686249582492D-02
        xs( 55) = 0.1016305148542254D-01
        xs( 56) = 0.1090542475656280D-01
        xs( 57) = 0.1171824888999267D-01
        xs( 58) = 0.1261154309382822D-01
        xs( 59) = 0.1359727810801892D-01
        xs( 60) = 0.1468986092674963D-01
        xs( 61) = 0.1590676726132177D-01
        xs( 62) = 0.1726937533887729D-01
        xs( 63) = 0.1880407718926625D-01
        xs( 64) = 0.2054377627755240D-01
        xs( 65) = 0.2252992753234052D-01
        xs( 66) = 0.2481534269750380D-01
        xs( 67) = 0.2746807202332572D-01
        xs( 68) = 0.3057675866885281D-01
        xs( 69) = 0.3425784120402830D-01
        xs( 70) = 0.3866458534211571D-01
        xs( 71) = 0.4399666590676314D-01
        xs( 72) = 0.5050617857354107D-01
        xs( 73) = 0.5849081371830995D-01
        xs( 74) = 0.6825840531942066D-01
        xs( 75) = 0.8004858751351847D-01
        xs( 76) = 0.9392766898261252D-01
        xs( 77) = 0.1097233453137349D+00
        xs( 78) = 0.1270636516696384D+00
        xs( 79) = 0.1454997816633368D+00
        xs( 80) = 0.1646270143149214D+00
        xs( 81) = 0.1841487038871306D+00
        xs( 82) = 0.2038712772217818D+00
        xs( 83) = 0.2231649119636236D+00
        ws(  1) = 0.2901348858699727D-05
        ws(  2) = 0.6755845265002370D-05
        ws(  3) = 0.1062108405528199D-04
        ws(  4) = 0.1449502745894997D-04
        ws(  5) = 0.1838082114212012D-04
        ws(  6) = 0.2228241303224509D-04
        ws(  7) = 0.2620436173482887D-04
        ws(  8) = 0.3015185908110010D-04
        ws(  9) = 0.3413076402774851D-04
        ws( 10) = 0.3814762657785810D-04
        ws( 11) = 0.4220970247140510D-04
        ws( 12) = 0.4632496166974785D-04
        ws( 13) = 0.5050209539891195D-04
        ws( 14) = 0.5475052537266710D-04
        ws( 15) = 0.5908041844449698D-04
        ws( 16) = 0.6350270967734555D-04
        ws( 17) = 0.6802913551787854D-04
        ws( 18) = 0.7267227888414726D-04
        ws( 19) = 0.7744562730745799D-04
        ws( 20) = 0.8236364544869155D-04
        ws( 21) = 0.8744186305741128D-04
        ws( 22) = 0.9269697964099071D-04
        ws( 23) = 0.9814698725011845D-04
        ws( 24) = 0.1038113132323514D-03
        ws( 25) = 0.1097109851989012D-03
        ws( 26) = 0.1158688207322225D-03
        ws( 27) = 0.1223096451288982D-03
        ws( 28) = 0.1290605411158535D-03
        ws( 29) = 0.1361511353195314D-03
        ws( 30) = 0.1436139268478059D-03
        ws( 31) = 0.1514846652078245D-03
        ws( 32) = 0.1598027856173740D-03
        ws( 33) = 0.1686119115445709D-03
        ws( 34) = 0.1779604363069989D-03
        ws( 35) = 0.1879021982143960D-03
        ws( 36) = 0.1984972665444838D-03
        ws( 37) = 0.2098128598355870D-03
        ws( 38) = 0.2219244219981639D-03
        ws( 39) = 0.2349168879228802D-03
        ws( 40) = 0.2488861773643446D-03
        ws( 41) = 0.2639409654213563D-03
        ws( 42) = 0.2802047893032763D-03
        ws( 43) = 0.2978185649714561D-03
        ws( 44) = 0.3169436073049048D-03
        ws( 45) = 0.3377652721667331D-03
        ws( 46) = 0.3604973665006368D-03
        ws( 47) = 0.3853875180400067D-03
        ws( 48) = 0.4127237485244687D-03
        ws( 49) = 0.4428425608907913D-03
        ws( 50) = 0.4761389518636058D-03
        ws( 51) = 0.5130788836370512D-03
        ws( 52) = 0.5542149141848106D-03
        ws( 53) = 0.6002059298824609D-03
        ws( 54) = 0.6518422316697002D-03
        ws( 55) = 0.7100776725211924D-03
        ws( 56) = 0.7760711705422583D-03
        ws( 57) = 0.8512407759640120D-03
        ws( 58) = 0.9373347655144678D-03
        ws( 59) = 0.1036526012336860D-02
        ws( 60) = 0.1151538524459156D-02
        ws( 61) = 0.1285818914587779D-02
        ws( 62) = 0.1443771314967581D-02
        ws( 63) = 0.1631082817325074D-02
        ws( 64) = 0.1855178493496451D-02
        ws( 65) = 0.2125862252782555D-02
        ws( 66) = 0.2456221567233327D-02
        ws( 67) = 0.2863891186803373D-02
        ws( 68) = 0.3372735564474251D-02
        ws( 69) = 0.4014805260499682D-02
        ws( 70) = 0.4831840877706295D-02
        ws( 71) = 0.5874410812786852D-02
        ws( 72) = 0.7194773631604270D-02
        ws( 73) = 0.8827130521174398D-02
        ws( 74) = 0.1074992575728789D-01
        ws( 75) = 0.1284278041266012D-01
        ws( 76) = 0.1488595571880907D-01
        ws( 77) = 0.1664110028374956D-01
        ws( 78) = 0.1796256569675862D-01
        ws( 79) = 0.1884134355686979D-01
        ws( 80) = 0.1936184957757471D-01
        ws( 81) = 0.1965113522734804D-01
        ws( 82) = 0.1993025531598243D-01
        ws( 83) = 0.1986396828340203D-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 =  87
        err = 0.9242337855326459D-10
        xs(  1) = 0.1004299542279042D-05
        xs(  2) = 0.5292233293262422D-05
        xs(  3) = 0.1300919778310030D-04
        xs(  4) = 0.2416157844637177D-04
        xs(  5) = 0.3875664534305271D-04
        xs(  6) = 0.5680421740828595D-04
        xs(  7) = 0.7831718214361696D-04
        xs(  8) = 0.1033119690018319D-03
        xs(  9) = 0.1318090463967801D-03
        xs( 10) = 0.1638334415010273D-03
        xs( 11) = 0.1994152747001504D-03
        xs( 12) = 0.2385903014937230D-03
        xs( 13) = 0.2814004573901057D-03
        xs( 14) = 0.3278944042507442D-03
        xs( 15) = 0.3781280790604247D-03
        xs( 16) = 0.4321652487072248D-03
        xs( 17) = 0.4900780759170060D-03
        xs( 18) = 0.5519477030121532D-03
        xs( 19) = 0.6178648613109061D-03
        xs( 20) = 0.6879305147255818D-03
        xs( 21) = 0.7622565469216174D-03
        xs( 22) = 0.8409665020687920D-03
        xs( 23) = 0.9241963899679701D-03
        xs( 24) = 0.1012095566882906D-02
        xs( 25) = 0.1104827704582422D-02
        xs( 26) = 0.1202571861007726D-02
        xs( 27) = 0.1305523667613577D-02
        xs( 28) = 0.1413896649830255D-02
        xs( 29) = 0.1527923699165348D-02
        xs( 30) = 0.1647858717997934D-02
        xs( 31) = 0.1773978460872109D-02
        xs( 32) = 0.1906584599692478D-02
        xs( 33) = 0.2046006043945796D-02
        xs( 34) = 0.2192601552376587D-02
        xs( 35) = 0.2346762678507520D-02
        xs( 36) = 0.2508917098843820D-02
        xs( 37) = 0.2679532380854342D-02
        xs( 38) = 0.2859120258218072D-02
        xs( 39) = 0.3048241493293443D-02
        xs( 40) = 0.3247511419875575D-02
        xs( 41) = 0.3457606277076190D-02
        xs( 42) = 0.3679270467460663D-02
        xs( 43) = 0.3913324897553917D-02
        xs( 44) = 0.4160676589417961D-02
        xs( 45) = 0.4422329792596474D-02
        xs( 46) = 0.4699398873371557D-02
        xs( 47) = 0.4993123315519612D-02
        xs( 48) = 0.5304885242294940D-02
        xs( 49) = 0.5636229964214585D-02
        xs( 50) = 0.5988890169112673D-02
        xs( 51) = 0.6364814521827245D-02
        xs( 52) = 0.6766201631807824D-02
        xs( 53) = 0.7195540582324390D-02
        xs( 54) = 0.7655659533178236D-02
        xs( 55) = 0.8149784315882700D-02
        xs( 56) = 0.8681609462906078D-02
        xs( 57) = 0.9255384828917895D-02
        xs( 58) = 0.9876021895889932D-02
        xs( 59) = 0.1054922510253319D-01
        xs( 60) = 0.1128165526144503D-01
        xs( 61) = 0.1208113444297336D-01
        xs( 62) = 0.1295690498033303D-01
        xs( 63) = 0.1391995979351909D-01
        xs( 64) = 0.1498346759301071D-01
        xs( 65) = 0.1616332574624956D-01
        xs( 66) = 0.1747888695439155D-01
        xs( 67) = 0.1895392570315496D-01
        xs( 68) = 0.2061793904838125D-01
        xs( 69) = 0.2250791839971364D-01
        xs( 70) = 0.2467079205038566D-01
        xs( 71) = 0.2716682799773687D-01
        xs( 72) = 0.3007438664854387D-01
        xs( 73) = 0.3349644693753475D-01
        xs( 74) = 0.3756912308262712D-01
        xs( 75) = 0.4247164043268139D-01
        xs( 76) = 0.4843545231178373D-01
        xs( 77) = 0.5574652572520733D-01
        xs( 78) = 0.6472864978532142D-01
        xs( 79) = 0.7569022015311277D-01
        xs( 80) = 0.8882801808952386D-01
        xs( 81) = 0.1041242393292727D+00
        xs( 82) = 0.1213131185306149D+00
        xs( 83) = 0.1399588333256338D+00
        xs( 84) = 0.1595929046928772D+00
        xs( 85) = 0.1798275174554605D+00
        xs( 86) = 0.2003703570642758D+00
        xs( 87) = 0.2202405726011764D+00
        ws(  1) = 0.2577429491042502D-05
        ws(  2) = 0.6001218759446774D-05
        ws(  3) = 0.9433639284936212D-05
        ws(  4) = 0.1287231960771275D-04
        ws(  5) = 0.1631944277949162D-04
        ws(  6) = 0.1977784143152274D-04
        ws(  7) = 0.2325081798463479D-04
        ws(  8) = 0.2674215846930497D-04
        ws(  9) = 0.3025615860615211D-04
        ws( 10) = 0.3379764261981972D-04
        ws( 11) = 0.3737197392371759D-04
        ws( 12) = 0.4098505981300085D-04
        ws( 13) = 0.4464335317980001D-04
        ws( 14) = 0.4835385412130318D-04
        ws( 15) = 0.5212411386952956D-04
        ws( 16) = 0.5596224285208912D-04
        ws( 17) = 0.5987692517024596D-04
        ws( 18) = 0.6387744019482055D-04
        ws( 19) = 0.6797369228433443D-04
        ws( 20) = 0.7217624949892173D-04
        ws( 21) = 0.7649639219240313D-04
        ws( 22) = 0.8094617175708179D-04
        ws( 23) = 0.8553848063148588D-04
        ws( 24) = 0.9028713402161466D-04
        ws( 25) = 0.9520696461592592D-04
        ws( 26) = 0.1003139315058387D-03
        ws( 27) = 0.1056252447905953D-03
        ws( 28) = 0.1111595075410521D-03
        ws( 29) = 0.1169368775703684D-03
        ws( 30) = 0.1229792514927505D-03
        ws( 31) = 0.1293104743303050D-03
        ws( 32) = 0.1359565781417281D-03
        ws( 33) = 0.1429460544971978D-03
        ws( 34) = 0.1503101659429222D-03
        ws( 35) = 0.1580833031106663D-03
        ws( 36) = 0.1663033944232230D-03
        ws( 37) = 0.1750123776997131D-03
        ws( 38) = 0.1842567453008665D-03
        ws( 39) = 0.1940881752642936D-03
        ws( 40) = 0.2045642638111895D-03
        ws( 41) = 0.2157493790996155D-03
        ws( 42) = 0.2277156597916986D-03
        ws( 43) = 0.2405441861963794D-03
        ws( 44) = 0.2543263584025735D-03
        ws( 45) = 0.2691655266015914D-03
        ws( 46) = 0.2851789247392976D-03
        ws( 47) = 0.3024999724042797D-03
        ws( 48) = 0.3212810315080423D-03
        ws( 49) = 0.3416967192058648D-03
        ws( 50) = 0.3639479047249399D-03
        ws( 51) = 0.3882665636743425D-03
        ws( 52) = 0.4149216979557790D-03
        ws( 53) = 0.4442265921221085D-03
        ws( 54) = 0.4765477717457014D-03
        ws( 55) = 0.5123161150202537D-03
        ws( 56) = 0.5520407288449097D-03
        ws( 57) = 0.5963264112282491D-03
        ws( 58) = 0.6458957607542983D-03
        ws( 59) = 0.7016174028877000D-03
        ws( 60) = 0.7645423168585277D-03
        ws( 61) = 0.8359509844921083D-03
        ws( 62) = 0.9174152334816728D-03
        ws( 63) = 0.1010880070797349D-02
        ws( 64) = 0.1118773132003375D-02
        ws( 65) = 0.1244152737284807D-02
        ws( 66) = 0.1390910730485093D-02
        ws( 67) = 0.1564053877574503D-02
        ws( 68) = 0.1770098019066194D-02
        ws( 69) = 0.2017626300174897D-02
        ws( 70) = 0.2318087547541324D-02
        ws( 71) = 0.2686936373017694D-02
        ws( 72) = 0.3145201246950757D-02
        ws( 73) = 0.3721433988446319D-02
        ws( 74) = 0.4453624145915663D-02
        ws( 75) = 0.5389919860554595D-02
        ws( 76) = 0.6585595938952072D-02
        ws( 77) = 0.8091370349448354D-02
        ws( 78) = 0.9925962379176314D-02
        ws( 79) = 0.1203191099185570D-01
        ws( 80) = 0.1424140887729848D-01
        ws( 81) = 0.1630528621834039D-01
        ws( 82) = 0.1799732248456168D-01
        ws( 83) = 0.1921423016795112D-01
        ws( 84) = 0.1998556873721042D-01
        ws( 85) = 0.2042680349149357D-01
        ws( 86) = 0.2096732315612530D-01
        ws( 87) = 0.1948716994268771D-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 =  92
        err = 0.4881660575128564D-10
        xs(  1) = 0.8913938789080478D-06
        xs(  2) = 0.4697168036579951D-05
        xs(  3) = 0.1154597887337432D-04
        xs(  4) = 0.2144276206144968D-04
        xs(  5) = 0.3439286665237764D-04
        xs(  6) = 0.5040348506119046D-04
        xs(  7) = 0.6948405756456648D-04
        xs(  8) = 0.9164662873450190D-04
        xs(  9) = 0.1169062204731240D-03
        xs( 10) = 0.1452812227628874D-03
        xs( 11) = 0.1767937961393631D-03
        xs( 12) = 0.2114702799989933D-03
        xs( 13) = 0.2493416025198295D-03
        xs( 14) = 0.2904436900443604D-03
        xs( 15) = 0.3348178755367602D-03
        xs( 16) = 0.3825113075302162D-03
        xs( 17) = 0.4335773622679366D-03
        xs( 18) = 0.4880760629382212D-03
        xs( 19) = 0.5460745106730650D-03
        xs( 20) = 0.6076473326190469D-03
        xs( 21) = 0.6728771529820736D-03
        xs( 22) = 0.7418550932638402D-03
        xs( 23) = 0.8146813083326055D-03
        xs( 24) = 0.8914655653706401D-03
        xs( 25) = 0.9723278730895850D-03
        xs( 26) = 0.1057399169234084D-02
        xs( 27) = 0.1146822074971544D-02
        xs( 28) = 0.1240751725513307D-02
        xs( 29) = 0.1339356687216971D-02
        xs( 30) = 0.1442819972631551D-02
        xs( 31) = 0.1551340166178406D-02
        xs( 32) = 0.1665132674818808D-02
        xs( 33) = 0.1784431119791421D-02
        xs( 34) = 0.1909488887878746D-02
        xs( 35) = 0.2040580863275096D-02
        xs( 36) = 0.2178005364076254D-02
        xs( 37) = 0.2322086311136772D-02
        xs( 38) = 0.2473175661273695D-02
        xs( 39) = 0.2631656142001027D-02
        xs( 40) = 0.2797944330983144D-02
        xs( 41) = 0.2972494130348136D-02
        xs( 42) = 0.3155800694799819D-02
        xs( 43) = 0.3348404882540432D-02
        xs( 44) = 0.3550898310275529D-02
        xs( 45) = 0.3763929108196718D-02
        xs( 46) = 0.3988208488795235D-02
        xs( 47) = 0.4224518264602954D-02
        xs( 48) = 0.4473719476411186D-02
        xs( 49) = 0.4736762325123426D-02
        xs( 50) = 0.5014697640099640D-02
        xs( 51) = 0.5308690164841589D-02
        xs( 52) = 0.5620034000729425D-02
        xs( 53) = 0.5950170624128066D-02
        xs( 54) = 0.6300709985198931D-02
        xs( 55) = 0.6673455313517866D-02
        xs( 56) = 0.7070432404064042D-02
        xs( 57) = 0.7493924345436147D-02
        xs( 58) = 0.7946512892518728D-02
        xs( 59) = 0.8431127997353668D-02
        xs( 60) = 0.8951107413334138D-02
        xs( 61) = 0.9510268813667585D-02
        xs( 62) = 0.1011299756030673D-01
        xs( 63) = 0.1076435418046619D-01
        xs( 64) = 0.1147020684021434D-01
        xs( 65) = 0.1223739576939924D-01
        xs( 66) = 0.1307393886112370D-01
        xs( 67) = 0.1398929082337083D-01
        xs( 68) = 0.1499467264875612D-01
        xs( 69) = 0.1610349432971514D-01
        xs( 70) = 0.1733190252589091D-01
        xs( 71) = 0.1869949763297385D-01
        xs( 72) = 0.2023028350180282D-01
        xs( 73) = 0.2195394049833255D-01
        xs( 74) = 0.2390755273227219D-01
        xs( 75) = 0.2613797985416310D-01
        xs( 76) = 0.2870515225749696D-01
        xs( 77) = 0.3168668107774675D-01
        xs( 78) = 0.3518424685946246D-01
        xs( 79) = 0.3933207932423376D-01
        xs( 80) = 0.4430712964785455D-01
        xs( 81) = 0.5033876158457894D-01
        xs( 82) = 0.5771220041279273D-01
        xs( 83) = 0.6675386407871238D-01
        xs( 84) = 0.7778109007371917D-01
        xs( 85) = 0.9100867401343549D-01
        xs( 86) = 0.1064448906734548D+00
        xs( 87) = 0.1238501293176926D+00
        xs( 88) = 0.1428038444064388D+00
        xs( 89) = 0.1628371476632845D+00
        xs( 90) = 0.1835441263383424D+00
        xs( 91) = 0.2046157428516209D+00
        xs( 92) = 0.2252016249832376D+00
        ws(  1) = 0.2287657565702148D-05
        ws(  2) = 0.5326293417968794D-05
        ws(  3) = 0.8372031466180685D-05
        ws(  4) = 0.1142241469327389D-04
        ws(  5) = 0.1447898717423539D-04
        ws(  6) = 0.1754381714379298D-04
        ws(  7) = 0.2061932906811880D-04
        ws(  8) = 0.2370831039876043D-04
        ws(  9) = 0.2681393135631202D-04
        ws( 10) = 0.2993975982708865D-04
        ws( 11) = 0.3308976998606926D-04
        ws( 12) = 0.3626834560535242D-04
        ws( 13) = 0.3948028035847434D-04
        ws( 14) = 0.4273077671541619D-04
        ws( 15) = 0.4602544549958539D-04
        ws( 16) = 0.4937030754155196D-04
        ws( 17) = 0.5277179862838678D-04
        ws( 18) = 0.5623677879288532D-04
        ws( 19) = 0.5977254669555049D-04
        ws( 20) = 0.6338685956998917D-04
        ws( 21) = 0.6708795915904722D-04
        ws( 22) = 0.7088460425225058D-04
        ws( 23) = 0.7478610994950149D-04
        ws( 24) = 0.7880239413789721D-04
        ws( 25) = 0.8294403170856268D-04
        ws( 26) = 0.8722231696427401D-04
        ws( 27) = 0.9164933512118265D-04
        ws( 28) = 0.9623804346251143D-04
        ws( 29) = 0.1010023633133358D-03
        ws( 30) = 0.1059572841134608D-03
        ws( 31) = 0.1111189809935589D-03
        ws( 32) = 0.1165049473561668D-03
        ws( 33) = 0.1221341449083682D-03
        ws( 34) = 0.1280271731000232D-03
        ws( 35) = 0.1342064613038636D-03
        ws( 36) = 0.1406964866370214D-03
        ws( 37) = 0.1475240214795102D-03
        ws( 38) = 0.1547184155118345D-03
        ws( 39) = 0.1623119177879276D-03
        ws( 40) = 0.1703400452204532D-03
        ws( 41) = 0.1788420053082745D-03
        ws( 42) = 0.1878611826043874D-03
        ws( 43) = 0.1974457000107849D-03
        ws( 44) = 0.2076490679925779D-03
        ws( 45) = 0.2185309383553125D-03
        ws( 46) = 0.2301579815869137D-03
        ws( 47) = 0.2426049118546944D-03
        ws( 48) = 0.2559556880947786D-03
        ws( 49) = 0.2703049269354642D-03
        ws( 50) = 0.2857595705340295D-03
        ws( 51) = 0.3024408634468612D-03
        ws( 52) = 0.3204867042184999D-03
        ws( 53) = 0.3400544559991979D-03
        ws( 54) = 0.3613243185823901D-03
        ws( 55) = 0.3845033946018225D-03
        ws( 56) = 0.4098306152867970D-03
        ws( 57) = 0.4375827389126198D-03
        ws( 58) = 0.4680816929455711D-03
        ws( 59) = 0.5017036143621131D-03
        ws( 60) = 0.5388900432108119D-03
        ws( 61) = 0.5801618722453131D-03
        ws( 62) = 0.6261368506725416D-03
        ws( 63) = 0.6775516985343427D-03
        ws( 64) = 0.7352902616066177D-03
        ws( 65) = 0.8004196323431142D-03
        ws( 66) = 0.8742368981271959D-03
        ws( 67) = 0.9583302205840172D-03
        ws( 68) = 0.1054659404560577D-02
        ws( 69) = 0.1165663263360567D-02
        ws( 70) = 0.1294404244010107D-02
        ws( 71) = 0.1444765698349676D-02
        ws( 72) = 0.1621724420941115D-02
        ws( 73) = 0.1831731376916228D-02
        ws( 74) = 0.2083249051240407D-02
        ws( 75) = 0.2387517937933630D-02
        ws( 76) = 0.2759656536676088D-02
        ws( 77) = 0.3220205982912100D-02
        ws( 78) = 0.3797123186902406D-02
        ws( 79) = 0.4527859475190578D-02
        ws( 80) = 0.5460383580550417D-02
        ws( 81) = 0.6650615423826939D-02
        ws( 82) = 0.8151469127768240D-02
        ws( 83) = 0.9986377823897918D-02
        ws( 84) = 0.1210581384088142D-01
        ws( 85) = 0.1435156812861444D-01
        ws( 86) = 0.1647968112184053D-01
        ws( 87) = 0.1825824998410408D-01
        ws( 88) = 0.1956905547904634D-01
        ws( 89) = 0.2042865953163224D-01
        ws( 90) = 0.2093473168096017D-01
        ws( 91) = 0.2133922072336761D-01
        ws( 92) = 0.2001919701329021D-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 =  32
        err = 0.5666519042151744D-10
        xs(  1) = 0.2921613603514770D+00
        xs(  2) = 0.6791230462411726D+00
        xs(  3) = 0.1087561699003812D+01
        xs(  4) = 0.1524122408904762D+01
        xs(  5) = 0.1994181667494064D+01
        xs(  6) = 0.2500750076877410D+01
        xs(  7) = 0.3044795626181314D+01
        xs(  8) = 0.3625807411586243D+01
        xs(  9) = 0.4242330628701600D+01
        xs( 10) = 0.4892383345176301D+01
        xs( 11) = 0.5573746963226924D+01
        xs( 12) = 0.6284153812314613D+01
        xs( 13) = 0.7021400725334591D+01
        xs( 14) = 0.7783412856267553D+01
        xs( 15) = 0.8568275458678560D+01
        xs( 16) = 0.9374245703291040D+01
        xs( 17) = 0.1019975272632030D+02
        xs( 18) = 0.1104339084389174D+02
        xs( 19) = 0.1190390994488627D+02
        xs( 20) = 0.1278020183109102D+02
        xs( 21) = 0.1367129651215211D+02
        xs( 22) = 0.1457635258276436D+02
        xs( 23) = 0.1549463128629534D+02
        xs( 24) = 0.1642539587824594D+02
        xs( 25) = 0.1736783363718384D+02
        xs( 26) = 0.1832635129886682D+02
        xs( 27) = 0.1928369072519398D+02
        xs( 28) = 0.2026136029624939D+02
        xs( 29) = 0.2127420085409731D+02
        xs( 30) = 0.2226594602066673D+02
        xs( 31) = 0.2322281396714430D+02
        xs( 32) = 0.2642950581667099D+02
        ws(  1) = 0.3771502285463701D+00
        ws(  2) = 0.3966858489319212D+00
        ws(  3) = 0.4214111980530417D+00
        ws(  4) = 0.4526134628074742D+00
        ws(  5) = 0.4879999420064901D+00
        ws(  6) = 0.5252882620238718D+00
        ws(  7) = 0.5627085871852652D+00
        ws(  8) = 0.5990655702929546D+00
        ws(  9) = 0.6336457663828714D+00
        ws( 10) = 0.6660868457719038D+00
        ws( 11) = 0.6962606104223918D+00
        ws( 12) = 0.7241848712152354D+00
        ws( 13) = 0.7499626469188857D+00
        ws( 14) = 0.7737423082532511D+00
        ws( 15) = 0.7956924332460386D+00
        ws( 16) = 0.8159864207231652D+00
        ws( 17) = 0.8347934229164001D+00
        ws( 18) = 0.8522743903648590D+00
        ws( 19) = 0.8685794965564126D+00
        ws( 20) = 0.8838493162560684D+00
        ws( 21) = 0.8981844411086666D+00
        ws( 22) = 0.9117540686722022D+00
        ws( 23) = 0.9248408858275670D+00
        ws( 24) = 0.9372130938192098D+00
        ws( 25) = 0.9457858839762854D+00
        ws( 26) = 0.9637170065666967D+00
        ws( 27) = 0.9863388184492050D+00
        ws( 28) = 0.9613848499602458D+00
        ws( 29) = 0.8926145175839575D+00
        ws( 30) = 0.1195646043465921D+01
        ws( 31) = 0.1435149534979618D+01
        ws( 32) = 0.4871399213450222D+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 =  32
        err = 0.8764730755240957D-10
        xs(  1) = 0.2487286941827506D+00
        xs(  2) = 0.5947641954600582D+00
        xs(  3) = 0.9784771898879371D+00
        xs(  4) = 0.1398997766152896D+01
        xs(  5) = 0.1857369317384361D+01
        xs(  6) = 0.2355008533611144D+01
        xs(  7) = 0.2892388204954172D+01
        xs(  8) = 0.3468832833748088D+01
        xs(  9) = 0.4082776153162224D+01
        xs( 10) = 0.4732096948242609D+01
        xs( 11) = 0.5414397505322942D+01
        xs( 12) = 0.6127198863050712D+01
        xs( 13) = 0.6868064095552952D+01
        xs( 14) = 0.7634668189838136D+01
        xs( 15) = 0.8424830693897020D+01
        xs( 16) = 0.9236523025148056D+01
        xs( 17) = 0.1006785854561806D+02
        xs( 18) = 0.1091706978142333D+02
        xs( 19) = 0.1178247992655548D+02
        xs( 20) = 0.1266246135912933D+02
        xs( 21) = 0.1355539899414880D+02
        xs( 22) = 0.1445964867820465D+02
        xs( 23) = 0.1537364963557384D+02
        xs( 24) = 0.1629560779287473D+02
        xs( 25) = 0.1722353141091420D+02
        xs( 26) = 0.1816083566114310D+02
        xs( 27) = 0.1909592739228727D+02
        xs( 28) = 0.2005312651841737D+02
        xs( 29) = 0.2101090402115597D+02
        xs( 30) = 0.2197501898870105D+02
        xs( 31) = 0.2299165803453054D+02
        xs( 32) = 0.2504938868586390D+02
        ws(  1) = 0.3267401795990672D+00
        ws(  2) = 0.3651329295323791D+00
        ws(  3) = 0.4020862173070553D+00
        ws(  4) = 0.4391727099225063D+00
        ws(  5) = 0.4778275929400151D+00
        ws(  6) = 0.5175311968905456D+00
        ws(  7) = 0.5571104334256625D+00
        ws(  8) = 0.5955119160575498D+00
        ws(  9) = 0.6320165109698394D+00
        ws( 10) = 0.6662222429468927D+00
        ws( 11) = 0.6979637035091435D+00
        ws( 12) = 0.7272317320517740D+00
        ws( 13) = 0.7541107141727897D+00
        ws( 14) = 0.7787339623295445D+00
        ws( 15) = 0.8012531409477264D+00
        ws( 16) = 0.8218173930225010D+00
        ws( 17) = 0.8405596567972458D+00
        ws( 18) = 0.8575847076226008D+00
        ws( 19) = 0.8729614056217906D+00
        ws( 20) = 0.8867360021385819D+00
        ws( 21) = 0.8988874138874893D+00
        ws( 22) = 0.9093061197885407D+00
        ws( 23) = 0.9182136781250928D+00
        ws( 24) = 0.9260250948684454D+00
        ws( 25) = 0.9311523532061176D+00
        ws( 26) = 0.9338197480083619D+00
        ws( 27) = 0.9566414298139536D+00
        ws( 28) = 0.9432269658506131D+00
        ws( 29) = 0.9257738127002254D+00
        ws( 30) = 0.1194340142839148D+01
        ws( 31) = 0.8191557321835545D+00
        ws( 32) = 0.3767838569866130D+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 =  33
        err = 0.4096414417988663D-10
        xs(  1) = 0.2591814546392315D+00
        xs(  2) = 0.6082087796830570D+00
        xs(  3) = 0.9851137657105955D+00
        xs(  4) = 0.1394660995737603D+01
        xs(  5) = 0.1840212221234452D+01
        xs(  6) = 0.2323752988637566D+01
        xs(  7) = 0.2845855806933492D+01
        xs(  8) = 0.3405818791364839D+01
        xs(  9) = 0.4001966312267978D+01
        xs( 10) = 0.4631976220946550D+01
        xs( 11) = 0.5293161723122813D+01
        xs( 12) = 0.5982693711792483D+01
        xs( 13) = 0.6697778247196363D+01
        xs( 14) = 0.7435813718594973D+01
        xs( 15) = 0.8194547925789559D+01
        xs( 16) = 0.8972235144464170D+01
        xs( 17) = 0.9767758165831864D+01
        xs( 18) = 0.1058065008840958D+02
        xs( 19) = 0.1141096299872376D+02
        xs( 20) = 0.1225900210440262D+02
        xs( 21) = 0.1312503943636062D+02
        xs( 22) = 0.1400912098901716D+02
        xs( 23) = 0.1491100518370400D+02
        xs( 24) = 0.1583020119905074D+02
        xs( 25) = 0.1676610880451773D+02
        xs( 26) = 0.1771864343334305D+02
        xs( 27) = 0.1868554457971700D+02
        xs( 28) = 0.1966916828582966D+02
        xs( 29) = 0.2066760331665660D+02
        xs( 30) = 0.2167451160997736D+02
        xs( 31) = 0.2271991977944372D+02
        xs( 32) = 0.2372408961406121D+02
        xs( 33) = 0.2590793415657232D+02
        ws(  1) = 0.3363346670823020D+00
        ws(  2) = 0.3620798061593497D+00
        ws(  3) = 0.3925496390970438D+00
        ws(  4) = 0.4271019766763605D+00
        ws(  5) = 0.4643333498993457D+00
        ws(  6) = 0.5028410009925146D+00
        ws(  7) = 0.5412422772104832D+00
        ws(  8) = 0.5783988074094077D+00
        ws(  9) = 0.6135044903305510D+00
        ws( 10) = 0.6460638642781668D+00
        ws( 11) = 0.6758327277042983D+00
        ws( 12) = 0.7027630281363682D+00
        ws( 13) = 0.7269698300528450D+00
        ws( 14) = 0.7487230479451934D+00
        ws( 15) = 0.7684521985769912D+00
        ws( 16) = 0.7867354988991095D+00
        ws( 17) = 0.8042351150865787D+00
        ws( 18) = 0.8215618077746060D+00
        ws( 19) = 0.8391194740412991D+00
        ws( 20) = 0.8570104764010569D+00
        ws( 21) = 0.8750736554124803D+00
        ws( 22) = 0.8930211129246339D+00
        ws( 23) = 0.9106900150107371D+00
        ws( 24) = 0.9277662205576666D+00
        ws( 25) = 0.9435573909438068D+00
        ws( 26) = 0.9615468070508947D+00
        ws( 27) = 0.9714473987229389D+00
        ws( 28) = 0.1000649326920405D+01
        ws( 29) = 0.9962932450287740D+00
        ws( 30) = 0.9709387962087950D+00
        ws( 31) = 0.1212763824169530D+01
        ws( 32) = 0.1000927904746559D+01
        ws( 33) = 0.3635681349559504D+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 =  31
        err = 0.6506039503582754D-10
        xs(  1) = 0.2669051406778258D+00
        xs(  2) = 0.6146295509870350D+00
        xs(  3) = 0.9710780728388282D+00
        xs(  4) = 0.1346114697668878D+01
        xs(  5) = 0.1755990657036520D+01
        xs(  6) = 0.2211648562914270D+01
        xs(  7) = 0.2715722322682789D+01
        xs(  8) = 0.3266777902174137D+01
        xs(  9) = 0.3862106605247713D+01
        xs( 10) = 0.4498601036331323D+01
        xs( 11) = 0.5173046215556754D+01
        xs( 12) = 0.5882284516291632D+01
        xs( 13) = 0.6623329012288702D+01
        xs( 14) = 0.7393433090020495D+01
        xs( 15) = 0.8190123603855785D+01
        xs( 16) = 0.9011207955921664D+01
        xs( 17) = 0.9854765153289875D+01
        xs( 18) = 0.1071912843881488D+02
        xs( 19) = 0.1160286278235899D+02
        xs( 20) = 0.1250475455626995D+02
        xs( 21) = 0.1342376261062025D+02
        xs( 22) = 0.1435904777871625D+02
        xs( 23) = 0.1530998209325302D+02
        xs( 24) = 0.1627578867270734D+02
        xs( 25) = 0.1725771753127695D+02
        xs( 26) = 0.1824691461556392D+02
        xs( 27) = 0.1927231578974414D+02
        xs( 28) = 0.2027983194965383D+02
        xs( 29) = 0.2132190673001452D+02
        xs( 30) = 0.2237065013749741D+02
        xs( 31) = 0.2458935468866113D+02
        ws(  1) = 0.3429634043666956D+00
        ws(  2) = 0.3514486958923752D+00
        ws(  3) = 0.3631895601703278D+00
        ws(  4) = 0.3898549004067961D+00
        ws(  5) = 0.4317504767648994D+00
        ws(  6) = 0.4799079189781035D+00
        ws(  7) = 0.5279580827500651D+00
        ws(  8) = 0.5736904514403003D+00
        ws(  9) = 0.6164449623750128D+00
        ws( 10) = 0.6560054008708475D+00
        ws( 11) = 0.6923568020461607D+00
        ws( 12) = 0.7256208366354405D+00
        ws( 13) = 0.7560098605710934D+00
        ws( 14) = 0.7837860085900139D+00
        ws( 15) = 0.8092297557821533D+00
        ws( 16) = 0.8326191205702203D+00
        ws( 17) = 0.8542175722890138D+00
        ws( 18) = 0.8742709738405146D+00
        ws( 19) = 0.8929959355398377D+00
        ws( 20) = 0.9106039247258086D+00
        ws( 21) = 0.9273026372472676D+00
        ws( 22) = 0.9431766552907490D+00
        ws( 23) = 0.9583523560235913D+00
        ws( 24) = 0.9735193135888074D+00
        ws( 25) = 0.9896223279508357D+00
        ws( 26) = 0.9991545844579141D+00
        ws( 27) = 0.1012186137625176D+01
        ws( 28) = 0.1026162494771266D+01
        ws( 29) = 0.1190502187347568D+01
        ws( 30) = 0.9316033411530894D+00
        ws( 31) = 0.3959689429043597D+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 =  31
        err = 0.7023468401949540D-10
        xs(  1) = 0.2361227042417618D+00
        xs(  2) = 0.5548166470088459D+00
        xs(  3) = 0.9008343705110308D+00
        xs(  4) = 0.1279977265314705D+01
        xs(  5) = 0.1697055536750121D+01
        xs(  6) = 0.2155736063006003D+01
        xs(  7) = 0.2658116087872016D+01
        xs(  8) = 0.3204579668515024D+01
        xs(  9) = 0.3794058593403941D+01
        xs( 10) = 0.4424476055972397D+01
        xs( 11) = 0.5093181718105511D+01
        xs( 12) = 0.5797293829569904D+01
        xs( 13) = 0.6533934342327490D+01
        xs( 14) = 0.7300373180433235D+01
        xs( 15) = 0.8094105768551097D+01
        xs( 16) = 0.8912886080338243D+01
        xs( 17) = 0.9754732507280680D+01
        xs( 18) = 0.1061791891563679D+02
        xs( 19) = 0.1150095598321337D+02
        xs( 20) = 0.1240258178993846D+02
        xs( 21) = 0.1332172319147621D+02
        xs( 22) = 0.1425749805073814D+02
        xs( 23) = 0.1520923146378530D+02
        xs( 24) = 0.1617632778666682D+02
        xs( 25) = 0.1715943860635361D+02
        xs( 26) = 0.1815100648919654D+02
        xs( 27) = 0.1917738343726130D+02
        xs( 28) = 0.2018805201993878D+02
        xs( 29) = 0.2123828175333266D+02
        xs( 30) = 0.2226760654305324D+02
        xs( 31) = 0.2452112083667210D+02
        ws(  1) = 0.3065890792494746D+00
        ws(  2) = 0.3313270924977143D+00
        ws(  3) = 0.3616967148058323D+00
        ws(  4) = 0.3973908869533677D+00
        ws(  5) = 0.4373862740715452D+00
        ws(  6) = 0.4803267106224157D+00
        ws(  7) = 0.5244923272393976D+00
        ws(  8) = 0.5682489363113495D+00
        ws(  9) = 0.6103553488013737D+00
        ws( 10) = 0.6500321342051338D+00
        ws( 11) = 0.6868950264567992D+00
        ws( 12) = 0.7208471781592245D+00
        ws( 13) = 0.7519775968643470D+00
        ws( 14) = 0.7804821392975732D+00
        ws( 15) = 0.8066086278080454D+00
        ws( 16) = 0.8306219394669306D+00
        ws( 17) = 0.8527833141339204D+00
        ws( 18) = 0.8733418843775584D+00
        ws( 19) = 0.8925241847703471D+00
        ws( 20) = 0.9105365178247737D+00
        ws( 21) = 0.9276210398919623D+00
        ws( 22) = 0.9438620372880232D+00
        ws( 23) = 0.9592949291818577D+00
        ws( 24) = 0.9749132269087396D+00
        ws( 25) = 0.9904547311238296D+00
        ws( 26) = 0.1005935625672987D+01
        ws( 27) = 0.1001512921375478D+01
        ws( 28) = 0.1039120746383529D+01
        ws( 29) = 0.1217524291437454D+01
        ws( 30) = 0.8801335307671575D+00
        ws( 31) = 0.4060545134641930D+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 =  33
        err = 0.9906985270478688D-10
        xs(  1) = 0.2629172410075964D+00
        xs(  2) = 0.6069005479531261D+00
        xs(  3) = 0.9618373625851737D+00
        xs(  4) = 0.1333149532249196D+01
        xs(  5) = 0.1728695629445792D+01
        xs(  6) = 0.2156455840997673D+01
        xs(  7) = 0.2622914336487087D+01
        xs(  8) = 0.3132091025138124D+01
        xs(  9) = 0.3685440212701451D+01
        xs( 10) = 0.4282346410148179D+01
        xs( 11) = 0.4920810256565240D+01
        xs( 12) = 0.5598067731641873D+01
        xs( 13) = 0.6311052327767694D+01
        xs( 14) = 0.7056698822396462D+01
        xs( 15) = 0.7832120316798532D+01
        xs( 16) = 0.8634696378543360D+01
        xs( 17) = 0.9462104977540321D+01
        xs( 18) = 0.1031232215026321D+02
        xs( 19) = 0.1118360550148497D+02
        xs( 20) = 0.1207447175819037D+02
        xs( 21) = 0.1298367129237424D+02
        xs( 22) = 0.1391016539213688D+02
        xs( 23) = 0.1485312303642813D+02
        xs( 24) = 0.1581187287358878D+02
        xs( 25) = 0.1678597749245894D+02
        xs( 26) = 0.1777496486533570D+02
        xs( 27) = 0.1877800149861585D+02
        xs( 28) = 0.1979942532799174D+02
        xs( 29) = 0.2083738525839598D+02
        xs( 30) = 0.2186538069398289D+02
        xs( 31) = 0.2288710208941397D+02
        xs( 32) = 0.2412188147084247D+02
        xs( 33) = 0.2526667169931495D+02
        ws(  1) = 0.3382238295765519D+00
        ws(  2) = 0.3489613941299862D+00
        ws(  3) = 0.3619154824602027D+00
        ws(  4) = 0.3820494572368536D+00
        ws(  5) = 0.4104011766431435D+00
        ws(  6) = 0.4462166966377889D+00
        ws(  7) = 0.4873711121121434D+00
        ws(  8) = 0.5312152958092431D+00
        ws(  9) = 0.5753684686076530D+00
        ws( 10) = 0.6181002021253942D+00
        ws( 11) = 0.6583591357400574D+00
        ws( 12) = 0.6956397519064305D+00
        ws( 13) = 0.7298157134081024D+00
        ws( 14) = 0.7609947354150888D+00
        ws( 15) = 0.7894110416145345D+00
        ws( 16) = 0.8153541185348067D+00
        ws( 17) = 0.8391260110100613D+00
        ws( 18) = 0.8610185033844070D+00
        ws( 19) = 0.8813012342718884D+00
        ws( 20) = 0.9002222722000902D+00
        ws( 21) = 0.9180067035050113D+00
        ws( 22) = 0.9348499163888546D+00
        ws( 23) = 0.9509310852539143D+00
        ws( 24) = 0.9664515542586360D+00
        ws( 25) = 0.9815512786563375D+00
        ws( 26) = 0.9988602750483422D+00
        ws( 27) = 0.1001892866894663D+01
        ws( 28) = 0.1032314607268977D+01
        ws( 29) = 0.1075780212106260D+01
        ws( 30) = 0.1034532881158718D+01
        ws( 31) = 0.8736812249827355D+00
        ws( 32) = 0.1117101054708393D+01
        ws( 33) = 0.2682632555973843D+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 =  36
        err = 0.5464974673780804D-10
        xs(  1) = 0.2626277718991124D+00
        xs(  2) = 0.6027535273011134D+00
        xs(  3) = 0.9457099628749901D+00
        xs(  4) = 0.1292988955550477D+01
        xs(  5) = 0.1649837559142441D+01
        xs(  6) = 0.2023707836355805D+01
        xs(  7) = 0.2422940677666918D+01
        xs(  8) = 0.2855227604183141D+01
        xs(  9) = 0.3326361019844908D+01
        xs( 10) = 0.3839694518819939D+01
        xs( 11) = 0.4396286967674797D+01
        xs( 12) = 0.4995411873806225D+01
        xs( 13) = 0.5635142415584214D+01
        xs( 14) = 0.6312865051053841D+01
        xs( 15) = 0.7025672983034704D+01
        xs( 16) = 0.7770637151746067D+01
        xs( 17) = 0.8544973425776906D+01
        xs( 18) = 0.9346132270646038D+01
        xs( 19) = 0.1017183631436986D+02
        xs( 20) = 0.1102008614516604D+02
        xs( 21) = 0.1188914884336297D+02
        xs( 22) = 0.1277753865490287D+02
        xs( 23) = 0.1368399556369128D+02
        xs( 24) = 0.1460746547635176D+02
        xs( 25) = 0.1554708201065671D+02
        xs( 26) = 0.1650215554523742D+02
        xs( 27) = 0.1747216161826671D+02
        xs( 28) = 0.1845672434900975D+02
        xs( 29) = 0.1945584785106474D+02
        xs( 30) = 0.2046946635439251D+02
        xs( 31) = 0.2149720273994057D+02
        xs( 32) = 0.2253828981341514D+02
        xs( 33) = 0.2359653765693786D+02
        xs( 34) = 0.2468463973451406D+02
        xs( 35) = 0.2581908329279837D+02
        xs( 36) = 0.2693453006139575D+02
        ws(  1) = 0.3369348035284942D+00
        ws(  2) = 0.3417684422281527D+00
        ws(  3) = 0.3444808575887584D+00
        ws(  4) = 0.3509682109140989D+00
        ws(  5) = 0.3639930716347332D+00
        ws(  6) = 0.3851647637106371D+00
        ws(  7) = 0.4146048481017757D+00
        ws(  8) = 0.4509432344309354D+00
        ws(  9) = 0.4918792074417295D+00
        ws( 10) = 0.5349550570790454D+00
        ws( 11) = 0.5780986886626341D+00
        ws( 12) = 0.6198213314467860D+00
        ws( 13) = 0.6591976068700436D+00
        ws( 14) = 0.6957587308606835D+00
        ws( 15) = 0.7293662359016178D+00
        ws( 16) = 0.7600966465484080D+00
        ws( 17) = 0.7881504037259631D+00
        ws( 18) = 0.8137876623289427D+00
        ws( 19) = 0.8372873906962969D+00
        ws( 20) = 0.8589237808483581D+00
        ws( 21) = 0.8789544456150840D+00
        ws( 22) = 0.8976155370338227D+00
        ws( 23) = 0.9151225354638512D+00
        ws( 24) = 0.9316721382599363D+00
        ws( 25) = 0.9474459249254518D+00
        ws( 26) = 0.9626227949026060D+00
        ws( 27) = 0.9773967532492531D+00
        ws( 28) = 0.9915739254952749D+00
        ws( 29) = 0.1005717881709917D+01
        ws( 30) = 0.1022836925519367D+01
        ws( 31) = 0.1040073271088771D+01
        ws( 32) = 0.1041416223332067D+01
        ws( 33) = 0.1030773014747202D+01
        ws( 34) = 0.1075467499031530D+01
        ws( 35) = 0.1372784508933594D+01
        ws( 36) = 0.1717668892484974D+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 =  39
        err = 0.8410340656039517D-10
        xs(  1) = 0.2839716849233765D+00
        xs(  2) = 0.6483141444254727D+00
        xs(  3) = 0.1007436704623550D+01
        xs(  4) = 0.1357898678456862D+01
        xs(  5) = 0.1699885053650400D+01
        xs(  6) = 0.2035632815853723D+01
        xs(  7) = 0.2368755142109443D+01
        xs(  8) = 0.2703982841778504D+01
        xs(  9) = 0.3047247824918002D+01
        xs( 10) = 0.3405772155962836D+01
        xs( 11) = 0.3787779184965890D+01
        xs( 12) = 0.4201664282187479D+01
        xs( 13) = 0.4654830315939662D+01
        xs( 14) = 0.5152617096310873D+01
        xs( 15) = 0.5697701237233721D+01
        xs( 16) = 0.6290136666530219D+01
        xs( 17) = 0.6927935100347791D+01
        xs( 18) = 0.7607873716475199D+01
        xs( 19) = 0.8326221546929673D+01
        xs( 20) = 0.9079239623083884D+01
        xs( 21) = 0.9863458371253898D+01
        xs( 22) = 0.1067579704159199D+02
        xs( 23) = 0.1151359078371446D+02
        xs( 24) = 0.1237457169866282D+02
        xs( 25) = 0.1325683132326868D+02
        xs( 26) = 0.1415877941353543D+02
        xs( 27) = 0.1507910541026406D+02
        xs( 28) = 0.1601674658137701D+02
        xs( 29) = 0.1697086876994692D+02
        xs( 30) = 0.1794081881625639D+02
        xs( 31) = 0.1892622236646469D+02
        xs( 32) = 0.1992693991741472D+02
        xs( 33) = 0.2094276258128792D+02
        xs( 34) = 0.2197317972036081D+02
        xs( 35) = 0.2301922512882212D+02
        xs( 36) = 0.2408692224490308D+02
        xs( 37) = 0.2518440343828831D+02
        xs( 38) = 0.2631394908363337D+02
        xs( 39) = 0.2741140947570877D+02
        ws(  1) = 0.3634236310254175D+00
        ws(  2) = 0.3627916758252258D+00
        ws(  3) = 0.3549783493357490D+00
        ws(  4) = 0.3459937820432403D+00
        ws(  5) = 0.3383634137687228D+00
        ws(  6) = 0.3337384741609659D+00
        ws(  7) = 0.3332923427743301D+00
        ws(  8) = 0.3381492005454486D+00
        ws(  9) = 0.3495887879793534D+00
        ws( 10) = 0.3688448154660216D+00
        ws( 11) = 0.3965890426162810D+00
        ws( 12) = 0.4324337459536750D+00
        ws( 13) = 0.4747987297277871D+00
        ws( 14) = 0.5212200057485087D+00
        ws( 15) = 0.5689467326405614D+00
        ws( 16) = 0.6155784772296548D+00
        ws( 17) = 0.6594688201361633D+00
        ws( 18) = 0.6997782988558454D+00
        ws( 19) = 0.7362897562736812D+00
        ws( 20) = 0.7691663052482496D+00
        ws( 21) = 0.7987573864594917D+00
        ws( 22) = 0.8254761907518277D+00
        ws( 23) = 0.8497339953212208D+00
        ws( 24) = 0.8719104772019719D+00
        ws( 25) = 0.8923442629527920D+00
        ws( 26) = 0.9113337004970222D+00
        ws( 27) = 0.9291417857290877D+00
        ws( 28) = 0.9460032687246906D+00
        ws( 29) = 0.9621408317274895D+00
        ws( 30) = 0.9777459448239230D+00
        ws( 31) = 0.9926802278033862D+00
        ws( 32) = 0.1008496676065905D+01
        ws( 33) = 0.1025583988833082D+01
        ws( 34) = 0.1039230577065388D+01
        ws( 35) = 0.1043965880328832D+01
        ws( 36) = 0.1053001132479624D+01
        ws( 37) = 0.1122584118271291D+01
        ws( 38) = 0.1368748130553517D+01
        ws( 39) = 0.1486520933789838D+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 =  45
        err = 0.8636451325966810D-10
        xs(  1) = 0.3394468634719143D+00
        xs(  2) = 0.7750002315471856D+00
        xs(  3) = 0.1203615859765276D+01
        xs(  4) = 0.1619011133988061D+01
        xs(  5) = 0.2017999926421990D+01
        xs(  6) = 0.2399379211317420D+01
        xs(  7) = 0.2763767416567344D+01
        xs(  8) = 0.3113232275796512D+01
        xs(  9) = 0.3450646576023519D+01
        xs( 10) = 0.3778999786799497D+01
        xs( 11) = 0.4100952524292416D+01
        xs( 12) = 0.4418729410373851D+01
        xs( 13) = 0.4734239813248756D+01
        xs( 14) = 0.5049300834715790D+01
        xs( 15) = 0.5365957316361812D+01
        xs( 16) = 0.5686957165785027D+01
        xs( 17) = 0.6016339352071309D+01
        xs( 18) = 0.6359912393563443D+01
        xs( 19) = 0.6725289964715481D+01
        xs( 20) = 0.7121215569557348D+01
        xs( 21) = 0.7556214396797234D+01
        xs( 22) = 0.8037041887651204D+01
        xs( 23) = 0.8567613343724796D+01
        xs( 24) = 0.9148818018809546D+01
        xs( 25) = 0.9779077218907322D+01
        xs( 26) = 0.1045521662761559D+02
        xs( 27) = 0.1117329212700787D+02
        xs( 28) = 0.1192919992219248D+02
        xs( 29) = 0.1271904957577578D+02
        xs( 30) = 0.1353934983879710D+02
        xs( 31) = 0.1438707273753878D+02
        xs( 32) = 0.1525964995901705D+02
        xs( 33) = 0.1615493867952565D+02
        xs( 34) = 0.1707117325608589D+02
        xs( 35) = 0.1800693319131167D+02
        xs( 36) = 0.1896108125019367D+02
        xs( 37) = 0.1993284281935885D+02
        xs( 38) = 0.2092135809014603D+02
        xs( 39) = 0.2192645832617119D+02
        xs( 40) = 0.2294884610638583D+02
        xs( 41) = 0.2398804426739288D+02
        xs( 42) = 0.2504245303126677D+02
        xs( 43) = 0.2612108971863448D+02
        xs( 44) = 0.2722237232110427D+02
        xs( 45) = 0.2833610330523145D+02
        ws(  1) = 0.4344580718234263D+00
        ws(  2) = 0.4335851675469589D+00
        ws(  3) = 0.4227126658459605D+00
        ws(  4) = 0.4075528926332350D+00
        ws(  5) = 0.3902256531916072D+00
        ws(  6) = 0.3726421059243633D+00
        ws(  7) = 0.3564902963984544D+00
        ws(  8) = 0.3429305084937427D+00
        ws(  9) = 0.3324039895834474D+00
        ws( 10) = 0.3247472890100849D+00
        ws( 11) = 0.3195265813199271D+00
        ws( 12) = 0.3163417188407590D+00
        ws( 13) = 0.3149768282312118D+00
        ws( 14) = 0.3154780316364259D+00
        ws( 15) = 0.3182825541323228D+00
        ws( 16) = 0.3243814695091125D+00
        ws( 17) = 0.3353496469807134D+00
        ws( 18) = 0.3530766571056901D+00
        ws( 19) = 0.3791594070097641D+00
        ws( 20) = 0.4141404001795476D+00
        ws( 21) = 0.4570021016171985D+00
        ws( 22) = 0.5053080405950732D+00
        ws( 23) = 0.5559725862683677D+00
        ws( 24) = 0.6061582154128052D+00
        ws( 25) = 0.6538169928194966D+00
        ws( 26) = 0.6977942863721192D+00
        ws( 27) = 0.7376666742239503D+00
        ws( 28) = 0.7734975781027584D+00
        ws( 29) = 0.8056188899221075D+00
        ws( 30) = 0.8344771021353469D+00
        ws( 31) = 0.8605413645824899D+00
        ws( 32) = 0.8842566656250844D+00
        ws( 33) = 0.9060277214050996D+00
        ws( 34) = 0.9262116521053599D+00
        ws( 35) = 0.9450886540633758D+00
        ws( 36) = 0.9630930249463043D+00
        ws( 37) = 0.9802231764085070D+00
        ws( 38) = 0.9971422604405853D+00
        ws( 39) = 0.1014349686769610D+01
        ws( 40) = 0.1028655600197399D+01
        ws( 41) = 0.1039630741931782D+01
        ws( 42) = 0.1056673548889824D+01
        ws( 43) = 0.1128651049799911D+01
        ws( 44) = 0.1282386435848572D+01
        ws( 45) = 0.1289685513432021D+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 =  48
        err = 0.9387982349625963D-10
        xs(  1) = 0.4363678547855634D+00
        xs(  2) = 0.9984673637948865D+00
        xs(  3) = 0.1556412506614619D+01
        xs(  4) = 0.2103606522445263D+01
        xs(  5) = 0.2635909468347597D+01
        xs(  6) = 0.3149935358755911D+01
        xs(  7) = 0.3642909505054828D+01
        xs(  8) = 0.4112722411644556D+01
        xs(  9) = 0.4558058287100781D+01
        xs( 10) = 0.4978573283346281D+01
        xs( 11) = 0.5375076842494826D+01
        xs( 12) = 0.5749615752501402D+01
        xs( 13) = 0.6105330816588464D+01
        xs( 14) = 0.6446025528894300D+01
        xs( 15) = 0.6775563726551473D+01
        xs( 16) = 0.7097354687283131D+01
        xs( 17) = 0.7414124902369634D+01
        xs( 18) = 0.7727987737278046D+01
        xs( 19) = 0.8040722772225681D+01
        xs( 20) = 0.8354195750531456D+01
        xs( 21) = 0.8670876506235446D+01
        xs( 22) = 0.8994413170788198D+01
        xs( 23) = 0.9330166775928740D+01
        xs( 24) = 0.9685442973386488D+01
        xs( 25) = 0.1006904812942160D+02
        xs( 26) = 0.1049005284836396D+02
        xs( 27) = 0.1095616180921935D+02
        xs( 28) = 0.1147241635775198D+02
        xs( 29) = 0.1204075872331577D+02
        xs( 30) = 0.1266041689212495D+02
        xs( 31) = 0.1332870453526067D+02
        xs( 32) = 0.1404186218345899D+02
        xs( 33) = 0.1479573940398285D+02
        xs( 34) = 0.1558625767319152D+02
        xs( 35) = 0.1640967563020074D+02
        xs( 36) = 0.1726270995879895D+02
        xs( 37) = 0.1814257125608118D+02
        xs( 38) = 0.1904694373558860D+02
        xs( 39) = 0.1997397719240711D+02
        xs( 40) = 0.2092215387644015D+02
        xs( 41) = 0.2189046546092208D+02
        xs( 42) = 0.2287837354898751D+02
        xs( 43) = 0.2388517974765992D+02
        xs( 44) = 0.2491080200194284D+02
        xs( 45) = 0.2595915069032365D+02
        xs( 46) = 0.2703537844677171D+02
        xs( 47) = 0.2813942937735429D+02
        xs( 48) = 0.2924063350128448D+02
        ws(  1) = 0.5590945224710882D+00
        ws(  2) = 0.5615990226911509D+00
        ws(  3) = 0.5533459306667567D+00
        ws(  4) = 0.5403647424098414D+00
        ws(  5) = 0.5236780046695492D+00
        ws(  6) = 0.5039102864799779D+00
        ws(  7) = 0.4816842518223889D+00
        ws(  8) = 0.4577191946331590D+00
        ws(  9) = 0.4328919804593485D+00
        ws( 10) = 0.4082711650130643D+00
        ws( 11) = 0.3850792712224939D+00
        ws( 12) = 0.3645294920653828D+00
        ws( 13) = 0.3475453101921214D+00
        ws( 14) = 0.3344972117303059D+00
        ws( 15) = 0.3251511682213611D+00
        ws( 16) = 0.3188837366965591D+00
        ws( 17) = 0.3150041122576225D+00
        ws( 18) = 0.3130110627310230D+00
        ws( 19) = 0.3127612447227794D+00
        ws( 20) = 0.3145866192984307D+00
        ws( 21) = 0.3193733795438315D+00
        ws( 22) = 0.3285885120439468D+00
        ws( 23) = 0.3441432946604513D+00
        ws( 24) = 0.3678984728882131D+00
        ws( 25) = 0.4008527474571049D+00
        ws( 26) = 0.4424638923126652D+00
        ws( 27) = 0.4906012853877438D+00
        ws( 28) = 0.5422239374100968D+00
        ws( 29) = 0.5943178661725301D+00
        ws( 30) = 0.6445362762015105D+00
        ws( 31) = 0.6914009364076434D+00
        ws( 32) = 0.7342149852214734D+00
        ws( 33) = 0.7728554666939030D+00
        ws( 34) = 0.8075555768721943D+00
        ws( 35) = 0.8387326945860256D+00
        ws( 36) = 0.8668720731228695D+00
        ws( 37) = 0.8924605877249903D+00
        ws( 38) = 0.9159763698290910D+00
        ws( 39) = 0.9378295109619833D+00
        ws( 40) = 0.9584632306372515D+00
        ws( 41) = 0.9782991018408570D+00
        ws( 42) = 0.9969655065374352D+00
        ws( 43) = 0.1014426497942263D+01
        ws( 44) = 0.1032854852896015D+01
        ws( 45) = 0.1069129340209309D+01
        ws( 46) = 0.1131792316597213D+01
        ws( 47) = 0.1192904852721652D+01
        ws( 48) = 0.1172060906757991D+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 =  52
        err = 0.7080146898183375D-10
        xs(  1) = 0.4814929601627414D+00
        xs(  2) = 0.1103129504345688D+01
        xs(  3) = 0.1723485432207000D+01
        xs(  4) = 0.2336994502791539D+01
        xs(  5) = 0.2940576252808616D+01
        xs(  6) = 0.3531685140004980D+01
        xs(  7) = 0.4108070138793017D+01
        xs(  8) = 0.4667722417023853D+01
        xs(  9) = 0.5208861723161389D+01
        xs( 10) = 0.5729939630903241D+01
        xs( 11) = 0.6229660164778436D+01
        xs( 12) = 0.6707023497705117D+01
        xs( 13) = 0.7161398435591236D+01
        xs( 14) = 0.7592624903959511D+01
        xs( 15) = 0.8001136023852776D+01
        xs( 16) = 0.8388068300193856D+01
        xs( 17) = 0.8755302992529389D+01
        xs( 18) = 0.9105373709201068D+01
        xs( 19) = 0.9441215805295679D+01
        xs( 20) = 0.9765819653510412D+01
        xs( 21) = 0.1008191846155438D+02
        xs( 22) = 0.1039182836781418D+02
        xs( 23) = 0.1069747884178834D+02
        xs( 24) = 0.1100059974347350D+02
        xs( 25) = 0.1130301476712803D+02
        xs( 26) = 0.1160700923866440D+02
        xs( 27) = 0.1191575871036648D+02
        xs( 28) = 0.1223378966517095D+02
        xs( 29) = 0.1256734293157732D+02
        xs( 30) = 0.1292438479856218D+02
        xs( 31) = 0.1331403266224199D+02
        xs( 32) = 0.1374534551642441D+02
        xs( 33) = 0.1422575704947740D+02
        xs( 34) = 0.1475981270414083D+02
        xs( 35) = 0.1534879635804691D+02
        xs( 36) = 0.1599122926379701D+02
        xs( 37) = 0.1668378861217934D+02
        xs( 38) = 0.1742222256064882D+02
        xs( 39) = 0.1820205127204971D+02
        xs( 40) = 0.1901901093559764D+02
        xs( 41) = 0.1986928853018003D+02
        xs( 42) = 0.2074961054097871D+02
        xs( 43) = 0.2165726854604894D+02
        xs( 44) = 0.2259007224812244D+02
        xs( 45) = 0.2354635172089993D+02
        xs( 46) = 0.2452491681189134D+02
        xs( 47) = 0.2552541711156263D+02
        xs( 48) = 0.2654718696618535D+02
        xs( 49) = 0.2758973240915319D+02
        xs( 50) = 0.2865559104335760D+02
        xs( 51) = 0.2977539396989910D+02
        xs( 52) = 0.3088777266736086D+02
        ws(  1) = 0.6172822780395152D+00
        ws(  2) = 0.6224353133458644D+00
        ws(  3) = 0.6175200903760649D+00
        ws(  4) = 0.6089997494975269D+00
        ws(  5) = 0.5977421397537049D+00
        ws(  6) = 0.5841011356747218D+00
        ws(  7) = 0.5683342526304171D+00
        ws(  8) = 0.5506735467575735D+00
        ws(  9) = 0.5313466657836058D+00
        ws( 10) = 0.5105924406931146D+00
        ws( 11) = 0.4886807868157058D+00
        ws( 12) = 0.4659389513058145D+00
        ws( 13) = 0.4427821389628326D+00
        ws( 14) = 0.4197410070947028D+00
        ws( 15) = 0.3974697843641870D+00
        ws( 16) = 0.3767097689127287D+00
        ws( 17) = 0.3581862149950292D+00
        ws( 18) = 0.3424505741815689D+00
        ws( 19) = 0.3297375287909372D+00
        ws( 20) = 0.3199284519481144D+00
        ws( 21) = 0.3126545714840838D+00
        ws( 22) = 0.3074835679690023D+00
        ws( 23) = 0.3041007250227620D+00
        ws( 24) = 0.3024388726968648D+00
        ws( 25) = 0.3027648936463882D+00
        ws( 26) = 0.3057453501743780D+00
        ws( 27) = 0.3125012602911572D+00
        ws( 28) = 0.3245999799970465D+00
        ws( 29) = 0.3438436834588274D+00
        ws( 30) = 0.3717803400003690D+00
        ws( 31) = 0.4090531386592668D+00
        ws( 32) = 0.4548342657883522D+00
        ws( 33) = 0.5067524270961479D+00
        ws( 34) = 0.5615632289488600D+00
        ws( 35) = 0.6161412525754193D+00
        ws( 36) = 0.6681550315150209D+00
        ws( 37) = 0.7162432948687365D+00
        ws( 38) = 0.7598706706137375D+00
        ws( 39) = 0.7990721272879886D+00
        ws( 40) = 0.8342111173327597D+00
        ws( 41) = 0.8657980613421556D+00
        ws( 42) = 0.8943966508388949D+00
        ws( 43) = 0.9205560720687036D+00
        ws( 44) = 0.9447677217083592D+00
        ws( 45) = 0.9675453761532389D+00
        ws( 46) = 0.9893268892594514D+00
        ws( 47) = 0.1011493482252039D+01
        ws( 48) = 0.1033302274919927D+01
        ws( 49) = 0.1056753261246765D+01
        ws( 50) = 0.1097521837052613D+01
        ws( 51) = 0.1156625035126435D+01
        ws( 52) = 0.1197570724553097D+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 =  54
        err = 0.9746610404008348D-10
        xs(  1) = 0.5204428002344049D+00
        xs(  2) = 0.1193103289312291D+01
        xs(  3) = 0.1866118363636752D+01
        xs(  4) = 0.2534406055883529D+01
        xs(  5) = 0.3195498884051157D+01
        xs(  6) = 0.3847420667366424D+01
        xs(  7) = 0.4488417030245621D+01
        xs(  8) = 0.5116890824755178D+01
        xs(  9) = 0.5731376190444513D+01
        xs( 10) = 0.6330521904865485D+01
        xs( 11) = 0.6913078382470066D+01
        xs( 12) = 0.7477888430392965D+01
        xs( 13) = 0.8023883740633654D+01
        xs( 14) = 0.8550090100202917D+01
        xs( 15) = 0.9055645249489267D+01
        xs( 16) = 0.9539834361480848D+01
        xs( 17) = 0.1000214890839488D+02
        xs( 18) = 0.1044237410883605D+02
        xs( 19) = 0.1086070578135370D+02
        xs( 20) = 0.1125788541005845D+02
        xs( 21) = 0.1163531935812529D+02
        xs( 22) = 0.1199511873547229D+02
        xs( 23) = 0.1233998320807375D+02
        xs( 24) = 0.1267289803416739D+02
        xs( 25) = 0.1299673546536430D+02
        xs( 26) = 0.1331395410108032D+02
        xs( 27) = 0.1362653396937100D+02
        xs( 28) = 0.1393612522687220D+02
        xs( 29) = 0.1424431610288469D+02
        xs( 30) = 0.1455297049363400D+02
        xs( 31) = 0.1486463674898420D+02
        xs( 32) = 0.1518300063446559D+02
        xs( 33) = 0.1551324841458950D+02
        xs( 34) = 0.1586216306062843D+02
        xs( 35) = 0.1623784300516225D+02
        xs( 36) = 0.1664896034014589D+02
        xs( 37) = 0.1710358932922115D+02
        xs( 38) = 0.1760798637084009D+02
        xs( 39) = 0.1816583813657548D+02
        xs( 40) = 0.1877816124787582D+02
        xs( 41) = 0.1944369826466937D+02
        xs( 42) = 0.2015957626448077D+02
        xs( 43) = 0.2092201795453244D+02
        xs( 44) = 0.2172695293858392D+02
        xs( 45) = 0.2257045165798907D+02
        xs( 46) = 0.2344900835760969D+02
        xs( 47) = 0.2435971459468219D+02
        xs( 48) = 0.2530022414841357D+02
        xs( 49) = 0.2626880281351207D+02
        xs( 50) = 0.2726497251382759D+02
        xs( 51) = 0.2829045417646124D+02
        xs( 52) = 0.2934632688300498D+02
        xs( 53) = 0.3045337060344906D+02
        xs( 54) = 0.3155810129524371D+02
        ws(  1) = 0.6674105008531817D+00
        ws(  2) = 0.6742323974938049D+00
        ws(  3) = 0.6711361986507759D+00
        ws(  4) = 0.6650445110956340D+00
        ws(  5) = 0.6568147945083090D+00
        ws(  6) = 0.6467372245039659D+00
        ws(  7) = 0.6349896952096804D+00
        ws(  8) = 0.6217138522879800D+00
        ws(  9) = 0.6070318933753477D+00
        ws( 10) = 0.5910514302306089D+00
        ws( 11) = 0.5738687250482346D+00
        ws( 12) = 0.5555732419197839D+00
        ws( 13) = 0.5362547239777194D+00
        ws( 14) = 0.5160137080810914D+00
        ws( 15) = 0.4949764852860826D+00
        ws( 16) = 0.4733155315919272D+00
        ws( 17) = 0.4512757958850242D+00
        ws( 18) = 0.4292049131948392D+00
        ws( 19) = 0.4075798701081734D+00
        ws( 20) = 0.3870129100635743D+00
        ws( 21) = 0.3682086607930711D+00
        ws( 22) = 0.3518453037258362D+00
        ws( 23) = 0.3383883718160147D+00
        ws( 24) = 0.3279253858611347D+00
        ws( 25) = 0.3201602165370035D+00
        ws( 26) = 0.3146042982899602D+00
        ws( 27) = 0.3108258845519045D+00
        ws( 28) = 0.3086157458167645D+00
        ws( 29) = 0.3080698276548291D+00
        ws( 30) = 0.3096557786709678D+00
        ws( 31) = 0.3142844764412088D+00
        ws( 32) = 0.3233058577168945D+00
        ws( 33) = 0.3383246728060572D+00
        ws( 34) = 0.3608666145228452D+00
        ws( 35) = 0.3919591627702758D+00
        ws( 36) = 0.4316430600248142D+00
        ws( 37) = 0.4786705836260760D+00
        ws( 38) = 0.5307390956679513D+00
        ws( 39) = 0.5851266868858204D+00
        ws( 40) = 0.6392984886727340D+00
        ws( 41) = 0.6912844715623877D+00
        ws( 42) = 0.7398318723049802D+00
        ws( 43) = 0.7843655483382105D+00
        ws( 44) = 0.8248454718085205D+00
        ws( 45) = 0.8615652557225681D+00
        ws( 46) = 0.8950492493481768D+00
        ws( 47) = 0.9259710548670792D+00
        ws( 48) = 0.9547375965600642D+00
        ws( 49) = 0.9824842204140005D+00
        ws( 50) = 0.1010674470345821D+01
        ws( 51) = 0.1043419784599252D+01
        ws( 52) = 0.1074056195600545D+01
        ws( 53) = 0.1138799360036667D+01
        ws( 54) = 0.1289021359580143D+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 =  56
        err = 0.9508482756827442D-10
        xs(  1) = 0.5527823811137048D+00
        xs(  2) = 0.1267601193535696D+01
        xs(  3) = 0.1983649567364169D+01
        xs(  4) = 0.2695998377834574D+01
        xs(  5) = 0.3402472789174210D+01
        xs(  6) = 0.4101393919674490D+01
        xs(  7) = 0.4791292058969913D+01
        xs(  8) = 0.5470839585358417D+01
        xs(  9) = 0.6138825846475650D+01
        xs( 10) = 0.6794141513660651D+01
        xs( 11) = 0.7435764999924999D+01
        xs( 12) = 0.8062749495578050D+01
        xs( 13) = 0.8674210856788955D+01
        xs( 14) = 0.9269317101181576D+01
        xs( 15) = 0.9847280478566541D+01
        xs( 16) = 0.1040735329020318D+02
        xs( 17) = 0.1094882895846443D+02
        xs( 18) = 0.1147105037498995D+02
        xs( 19) = 0.1197342832154617D+02
        xs( 20) = 0.1245547373209408D+02
        xs( 21) = 0.1291684851570247D+02
        xs( 22) = 0.1335743983712290D+02
        xs( 23) = 0.1377746030963630D+02
        xs( 24) = 0.1417756812681881D+02
        xs( 25) = 0.1455898290756047D+02
        xs( 26) = 0.1492354554935549D+02
        xs( 27) = 0.1527365029185555D+02
        xs( 28) = 0.1561200568872003D+02
        xs( 29) = 0.1594128454237899D+02
        xs( 30) = 0.1626382402366490D+02
        xs( 31) = 0.1658151048510979D+02
        xs( 32) = 0.1689586338791051D+02
        xs( 33) = 0.1720826205493553D+02
        xs( 34) = 0.1752026817482705D+02
        xs( 35) = 0.1783401462934327D+02
        xs( 36) = 0.1815259748685065D+02
        xs( 37) = 0.1848038640806643D+02
        xs( 38) = 0.1882323656721585D+02
        xs( 39) = 0.1918856997676775D+02
        xs( 40) = 0.1958508713833230D+02
        xs( 41) = 0.2002185257464715D+02
        xs( 42) = 0.2050691018238631D+02
        xs( 43) = 0.2104598494126511D+02
        xs( 44) = 0.2164180097902505D+02
        xs( 45) = 0.2229418546509289D+02
        xs( 46) = 0.2300075082303112D+02
        xs( 47) = 0.2375778478454824D+02
        xs( 48) = 0.2456105483228889D+02
        xs( 49) = 0.2540641440915977D+02
        xs( 50) = 0.2629018248333455D+02
        xs( 51) = 0.2720915567648468D+02
        xs( 52) = 0.2816120845962585D+02
        xs( 53) = 0.2914497183547764D+02
        xs( 54) = 0.3015901511014663D+02
        xs( 55) = 0.3123109987508488D+02
        xs( 56) = 0.3227844822125214D+02
        ws(  1) = 0.7089770118976338D+00
        ws(  2) = 0.7168351219457124D+00
        ws(  3) = 0.7146371637410318D+00
        ws(  4) = 0.7097156412115171D+00
        ws(  5) = 0.7029565750167536D+00
        ws(  6) = 0.6946416073776959D+00
        ws(  7) = 0.6849337664233199D+00
        ws(  8) = 0.6739597588790951D+00
        ws(  9) = 0.6618280993849353D+00
        ws( 10) = 0.6486331874700748D+00
        ws( 11) = 0.6344561871850697D+00
        ws( 12) = 0.6193656241905997D+00
        ws( 13) = 0.6034185693954108D+00
        ws( 14) = 0.5866627008699427D+00
        ws( 15) = 0.5691394243411539D+00
        ws( 16) = 0.5508883034143428D+00
        ws( 17) = 0.5319532169847331D+00
        ws( 18) = 0.5123908867969731D+00
        ws( 19) = 0.4922826608243890D+00
        ws( 20) = 0.4717505819120927D+00
        ws( 21) = 0.4509784994467940D+00
        ws( 22) = 0.4302375237903994D+00
        ws( 23) = 0.4099110657359848D+00
        ws( 24) = 0.3905066512040875D+00
        ws( 25) = 0.3726307165227243D+00
        ws( 26) = 0.3568977259342349D+00
        ws( 27) = 0.3437694717011773D+00
        ws( 28) = 0.3333921565514121D+00
        ws( 29) = 0.3255569983488307D+00
        ws( 30) = 0.3198347851588245D+00
        ws( 31) = 0.3157874862034156D+00
        ws( 32) = 0.3131427936304238D+00
        ws( 33) = 0.3119081946449154D+00
        ws( 34) = 0.3124527235179503D+00
        ws( 35) = 0.3155510133280201D+00
        ws( 36) = 0.3223395086488103D+00
        ws( 37) = 0.3342121865668819D+00
        ws( 38) = 0.3527290750073524D+00
        ws( 39) = 0.3794034600410397D+00
        ws( 40) = 0.4151662419745245D+00
        ws( 41) = 0.4597283280627189D+00
        ws( 42) = 0.5113528096777972D+00
        ws( 43) = 0.5672484112464790D+00
        ws( 44) = 0.6243424771476078D+00
        ws( 45) = 0.6800129661373699D+00
        ws( 46) = 0.7324858215048983D+00
        ws( 47) = 0.7808684664576192D+00
        ws( 48) = 0.8249659600881079D+00
        ws( 49) = 0.8651067441536447D+00
        ws( 50) = 0.9020050024524203D+00
        ws( 51) = 0.9358985573922513D+00
        ws( 52) = 0.9674050355523901D+00
        ws( 53) = 0.1002777542145942D+01
        ws( 54) = 0.1021190922812978D+01
        ws( 55) = 0.1123817410055045D+01
        ws( 56) = 0.1294449662828859D+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 =  60
        err = 0.8365467079145412D-10
        xs(  1) = 0.5663446484106986D+00
        xs(  2) = 0.1299016261510479D+01
        xs(  3) = 0.2033692288243691D+01
        xs(  4) = 0.2765727737636772D+01
        xs(  5) = 0.3493274358613094D+01
        xs(  6) = 0.4214962408628380D+01
        xs(  7) = 0.4929605105523125D+01
        xs(  8) = 0.5636130697887882D+01
        xs(  9) = 0.6333559465845991D+01
        xs( 10) = 0.7020991651606713D+01
        xs( 11) = 0.7697598001615632D+01
        xs( 12) = 0.8362610754527836D+01
        xs( 13) = 0.9015314678463932D+01
        xs( 14) = 0.9655038301804971D+01
        xs( 15) = 0.1028114563211353D+02
        xs( 16) = 0.1089302868713892D+02
        xs( 17) = 0.1149010117170448D+02
        xs( 18) = 0.1207179366910872D+02
        xs( 19) = 0.1263755080104176D+02
        xs( 20) = 0.1318683096600109D+02
        xs( 21) = 0.1371910951313311D+02
        xs( 22) = 0.1423388656981347D+02
        xs( 23) = 0.1473070123664959D+02
        xs( 24) = 0.1520915448911476D+02
        xs( 25) = 0.1566894379675102D+02
        xs( 26) = 0.1610991290019580D+02
        xs( 27) = 0.1653211963101870D+02
        xs( 28) = 0.1693592154198355D+02
        xs( 29) = 0.1732207073547537D+02
        xs( 30) = 0.1769179298119370D+02
        xs( 31) = 0.1804680536218129D+02
        xs( 32) = 0.1838922127234622D+02
        xs( 33) = 0.1872133372962588D+02
        xs( 34) = 0.1904535215247676D+02
        xs( 35) = 0.1936321302122531D+02
        xs( 36) = 0.1967653211132950D+02
        xs( 37) = 0.1998668364868926D+02
        xs( 38) = 0.2029497046334359D+02
        xs( 39) = 0.2060287646388598D+02
        xs( 40) = 0.2091239873049319D+02
        xs( 41) = 0.2122640890483506D+02
        xs( 42) = 0.2154896275441305D+02
        xs( 43) = 0.2188553095365953D+02
        xs( 44) = 0.2224311871056246D+02
        xs( 45) = 0.2263005303793347D+02
        xs( 46) = 0.2305517227564779D+02
        xs( 47) = 0.2352655837854553D+02
        xs( 48) = 0.2405036666991328D+02
        xs( 49) = 0.2463019058383908D+02
        xs( 50) = 0.2526701201206892D+02
        xs( 51) = 0.2595959970090210D+02
        xs( 52) = 0.2670517199488601D+02
        xs( 53) = 0.2750012455650040D+02
        xs( 54) = 0.2834064257453607D+02
        xs( 55) = 0.2922318179736780D+02
        xs( 56) = 0.3014521393501250D+02
        xs( 57) = 0.3110490288099926D+02
        xs( 58) = 0.3209766080814995D+02
        xs( 59) = 0.3316119918250107D+02
        xs( 60) = 0.3422038412913863D+02
        ws(  1) = 0.7264542124722313D+00
        ws(  2) = 0.7350404369450915D+00
        ws(  3) = 0.7337394583339896D+00
        ws(  4) = 0.7300415646015047D+00
        ws(  5) = 0.7248267008226372D+00
        ws(  6) = 0.7183524819444149D+00
        ws(  7) = 0.7107546137248654D+00
        ws(  8) = 0.7021334706023724D+00
        ws(  9) = 0.6925742594025088D+00
        ws( 10) = 0.6821520528206254D+00
        ws( 11) = 0.6709328368218728D+00
        ws( 12) = 0.6589736105840772D+00
        ws( 13) = 0.6463224641451174D+00
        ws( 14) = 0.6330189090665730D+00
        ws( 15) = 0.6190945274140313D+00
        ws( 16) = 0.6045739479709066D+00
        ws( 17) = 0.5894761671316214D+00
        ws( 18) = 0.5738162709766188D+00
        ws( 19) = 0.5576076759236946D+00
        ws( 20) = 0.5408650857494819D+00
        ws( 21) = 0.5236084653642354D+00
        ws( 22) = 0.5058684569755301D+00
        ws( 23) = 0.4876938041449622D+00
        ws( 24) = 0.4691614572189715D+00
        ws( 25) = 0.4503899859668022D+00
        ws( 26) = 0.4315564153018724D+00
        ws( 27) = 0.4129150018023023D+00
        ws( 28) = 0.3948127385434227D+00
        ws( 29) = 0.3776895063011444D+00
        ws( 30) = 0.3620427024533611D+00
        ws( 31) = 0.3483380981623881D+00
        ws( 32) = 0.3368806190057009D+00
        ws( 33) = 0.3277158622230582D+00
        ws( 34) = 0.3206444554892833D+00
        ws( 35) = 0.3153451502725186D+00
        ws( 36) = 0.3115192218552970D+00
        ws( 37) = 0.3089968079350373D+00
        ws( 38) = 0.3078184827336136D+00
        ws( 39) = 0.3083200906209571D+00
        ws( 40) = 0.3111978421965437D+00
        ws( 41) = 0.3174946705467468D+00
        ws( 42) = 0.3285222383343048D+00
        ws( 43) = 0.3457843431526140D+00
        ws( 44) = 0.3707928302776777D+00
        ws( 45) = 0.4045716336364002D+00
        ws( 46) = 0.4470345060628245D+00
        ws( 47) = 0.4967741311478982D+00
        ws( 48) = 0.5514418245862037D+00
        ws( 49) = 0.6083626333057103D+00
        ws( 50) = 0.6650634980835537D+00
        ws( 51) = 0.7196345683147251D+00
        ws( 52) = 0.7708942463292983D+00
        ws( 53) = 0.8183805679758899D+00
        ws( 54) = 0.8621499599633530D+00
        ws( 55) = 0.9023198586749401D+00
        ws( 56) = 0.9404279256141028D+00
        ws( 57) = 0.9797928921290006D+00
        ws( 58) = 0.1004337060484586D+01
        ws( 59) = 0.1102587971286549D+01
        ws( 60) = 0.1457999155204102D+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 =  64
        err = 0.8325301340017941D-10
        xs(  1) = 0.5844625806828394D+00
        xs(  2) = 0.1340739501823821D+01
        xs(  3) = 0.2099479240301301D+01
        xs(  4) = 0.2856105186665498D+01
        xs(  5) = 0.3608916560132812D+01
        xs(  6) = 0.4356694069819128D+01
        xs(  7) = 0.5098394093286035D+01
        xs(  8) = 0.5833078859589531D+01
        xs(  9) = 0.6559893910300550D+01
        xs( 10) = 0.7278057487974588D+01
        xs( 11) = 0.7986852992310287D+01
        xs( 12) = 0.8685622017376845D+01
        xs( 13) = 0.9373757348458520D+01
        xs( 14) = 0.1005069589401781D+02
        xs( 15) = 0.1071591170786003D+02
        xs( 16) = 0.1136890928926912D+02
        xs( 17) = 0.1200921733275574D+02
        xs( 18) = 0.1263638307474169D+02
        xs( 19) = 0.1324996736953224D+02
        xs( 20) = 0.1384954062949222D+02
        xs( 21) = 0.1443467978947295D+02
        xs( 22) = 0.1500496650665680D+02
        xs( 23) = 0.1555998689022408D+02
        xs( 24) = 0.1609933317691921D+02
        xs( 25) = 0.1662260793754710D+02
        xs( 26) = 0.1712943162271092D+02
        xs( 27) = 0.1761945453689305D+02
        xs( 28) = 0.1809237465371711D+02
        xs( 29) = 0.1854796298942883D+02
        xs( 30) = 0.1898609836157728D+02
        xs( 31) = 0.1940681286383613D+02
        xs( 32) = 0.1981034748487945D+02
        xs( 33) = 0.2019721286701214D+02
        xs( 34) = 0.2056824274332674D+02
        xs( 35) = 0.2092461977725409D+02
        xs( 36) = 0.2126785324984462D+02
        xs( 37) = 0.2159970202659468D+02
        xs( 38) = 0.2192205687009201D+02
        xs( 39) = 0.2223680861388579D+02
        xs( 40) = 0.2254573474353154D+02
        xs( 41) = 0.2285044171054907D+02
        xs( 42) = 0.2315238619129132D+02
        xs( 43) = 0.2345297184575461D+02
        xs( 44) = 0.2375373261952545D+02
        xs( 45) = 0.2405664460802321D+02
        xs( 46) = 0.2436454602753778D+02
        xs( 47) = 0.2468153429630150D+02
        xs( 48) = 0.2501322660731533D+02
        xs( 49) = 0.2536686092322248D+02
        xs( 50) = 0.2575113290925084D+02
        xs( 51) = 0.2617545757216773D+02
        xs( 52) = 0.2664851314272845D+02
        xs( 53) = 0.2717662231816723D+02
        xs( 54) = 0.2776285895882813D+02
        xs( 55) = 0.2840717960045595D+02
        xs( 56) = 0.2910721743366110D+02
        xs( 57) = 0.2985930404231569D+02
        xs( 58) = 0.3065943250985595D+02
        xs( 59) = 0.3150405907187477D+02
        xs( 60) = 0.3239060030917290D+02
        xs( 61) = 0.3331772479012463D+02
        xs( 62) = 0.3427749483019473D+02
        xs( 63) = 0.3532330362278605D+02
        xs( 64) = 0.3635090473492001D+02
        ws(  1) = 0.7497378975681606D+00
        ws(  2) = 0.7588817662416624D+00
        ws(  3) = 0.7580434581823335D+00
        ws(  4) = 0.7549437514952209D+00
        ws(  5) = 0.7504792137175381D+00
        ws(  6) = 0.7449027712112050D+00
        ws(  7) = 0.7383412975747567D+00
        ws(  8) = 0.7308859860814558D+00
        ws(  9) = 0.7226139435244813D+00
        ws( 10) = 0.7135938933958464D+00
        ws( 11) = 0.7038874977497361D+00
        ws( 12) = 0.6935494681505269D+00
        ws( 13) = 0.6826274621862182D+00
        ws( 14) = 0.6711620833069065D+00
        ws( 15) = 0.6591870654424165D+00
        ws( 16) = 0.6467296409912053D+00
        ws( 17) = 0.6338110677652321D+00
        ws( 18) = 0.6204472932942753D+00
        ws( 19) = 0.6066497494272853D+00
        ws( 20) = 0.5924262903271489D+00
        ws( 21) = 0.5777823113079826D+00
        ws( 22) = 0.5627221146994980D+00
        ws( 23) = 0.5472506236853059D+00
        ws( 24) = 0.5313755883200799D+00
        ws( 25) = 0.5151104785019198D+00
        ws( 26) = 0.4984783164656001D+00
        ws( 27) = 0.4815167558400098D+00
        ws( 28) = 0.4642847382302247D+00
        ws( 29) = 0.4468709778648533D+00
        ws( 30) = 0.4294041778978825D+00
        ws( 31) = 0.4120639497266747D+00
        ws( 32) = 0.3950894576766837D+00
        ws( 33) = 0.3787797754500268D+00
        ws( 34) = 0.3634774402716876D+00
        ws( 35) = 0.3495294971023372D+00
        ws( 36) = 0.3372326203283957D+00
        ws( 37) = 0.3267823319326264D+00
        ws( 38) = 0.3182444820415029D+00
        ws( 39) = 0.3115562825177323D+00
        ws( 40) = 0.3065633323838675D+00
        ws( 41) = 0.3030917750277392D+00
        ws( 42) = 0.3010282282732023D+00
        ws( 43) = 0.3003935299109518D+00
        ws( 44) = 0.3014499779561601D+00
        ws( 45) = 0.3048400957747785D+00
        ws( 46) = 0.3116413426357360D+00
        ws( 47) = 0.3232695601444631D+00
        ws( 48) = 0.3413232040454509D+00
        ws( 49) = 0.3674063300922952D+00
        ws( 50) = 0.4027325779579810D+00
        ws( 51) = 0.4473927435366022D+00
        ws( 52) = 0.4997878114687036D+00
        ws( 53) = 0.5569393486878003D+00
        ws( 54) = 0.6155121717152718D+00
        ws( 55) = 0.6727177781562039D+00
        ws( 56) = 0.7267323415612481D+00
        ws( 57) = 0.7767603416834562D+00
        ws( 58) = 0.8228856429487581D+00
        ws( 59) = 0.8658697624834546D+00
        ws( 60) = 0.9067134077950244D+00
        ws( 61) = 0.9466678498060243D+00
        ws( 62) = 0.9791992162122892D+00
        ws( 63) = 0.1062598430170252D+01
        ws( 64) = 0.1512731885136935D+01
        endif
        if( idomain .eq.  177 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.1570796326794897D+01
        rk1r = 0.2827433388230814D+02
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  67
        err = 0.9089940919181185D-10
        xs(  1) = 0.5332563955171860D+00
        xs(  2) = 0.1235865779630224D+01
        xs(  3) = 0.1960809287905031D+01
        xs(  4) = 0.2701187018034757D+01
        xs(  5) = 0.3450392664546901D+01
        xs(  6) = 0.4203327801946546D+01
        xs(  7) = 0.4956426541188486D+01
        xs(  8) = 0.5707184104552765D+01
        xs(  9) = 0.6453769968881909D+01
        xs( 10) = 0.7194784259190876D+01
        xs( 11) = 0.7929112497383649D+01
        xs( 12) = 0.8655838061177999D+01
        xs( 13) = 0.9374187395834703D+01
        xs( 14) = 0.1008349397563813D+02
        xs( 15) = 0.1078317330054670D+02
        xs( 16) = 0.1147270464644426D+02
        xs( 17) = 0.1215161714787633D+02
        xs( 18) = 0.1281947881009821D+02
        xs( 19) = 0.1347588761370082D+02
        xs( 20) = 0.1412046419859585D+02
        xs( 21) = 0.1475284580596945D+02
        xs( 22) = 0.1537268127759499D+02
        xs( 23) = 0.1597962699588150D+02
        xs( 24) = 0.1657334371397076D+02
        xs( 25) = 0.1715349428574873D+02
        xs( 26) = 0.1771974236891480D+02
        xs( 27) = 0.1827175224841448D+02
        xs( 28) = 0.1880919002030533D+02
        xs( 29) = 0.1933172649531156D+02
        xs( 30) = 0.1983904233596476D+02
        xs( 31) = 0.2033083613980706D+02
        xs( 32) = 0.2080683643134102D+02
        xs( 33) = 0.2126681881993088D+02
        xs( 34) = 0.2171062986190567D+02
        xs( 35) = 0.2213821928178718D+02
        xs( 36) = 0.2254968183214885D+02
        xs( 37) = 0.2294530853054666D+02
        xs( 38) = 0.2332564322428359D+02
        xs( 39) = 0.2369153372932271D+02
        xs( 40) = 0.2404415925081578D+02
        xs( 41) = 0.2438501419696634D+02
        xs( 42) = 0.2471583833558734D+02
        xs( 43) = 0.2503849713669627D+02
        xs( 44) = 0.2535482845971209D+02
        xs( 45) = 0.2566649545756335D+02
        xs( 46) = 0.2597490960138716D+02
        xs( 47) = 0.2628127246085859D+02
        xs( 48) = 0.2658673866574572D+02
        xs( 49) = 0.2689267697774512D+02
        xs( 50) = 0.2720101365556219D+02
        xs( 51) = 0.2751464199342288D+02
        xs( 52) = 0.2783785902155452D+02
        xs( 53) = 0.2817677708949182D+02
        xs( 54) = 0.2853958355308564D+02
        xs( 55) = 0.2893629285813374D+02
        xs( 56) = 0.2937757475371424D+02
        xs( 57) = 0.2987282783077349D+02
        xs( 58) = 0.3042844707880308D+02
        xs( 59) = 0.3104716429851473D+02
        xs( 60) = 0.3172844287894708D+02
        xs( 61) = 0.3246939388397072D+02
        xs( 62) = 0.3326588587545035D+02
        xs( 63) = 0.3411355615313660D+02
        xs( 64) = 0.3500949437398874D+02
        xs( 65) = 0.3595517826161481D+02
        xs( 66) = 0.3696496373762708D+02
        xs( 67) = 0.3804210530752365D+02
        ws(  1) = 0.6878330354035012D+00
        ws(  2) = 0.7149368745427065D+00
        ws(  3) = 0.7338364692796548D+00
        ws(  4) = 0.7457877740404840D+00
        ws(  5) = 0.7517775521774615D+00
        ws(  6) = 0.7535072759058434D+00
        ws(  7) = 0.7522791826065693D+00
        ws(  8) = 0.7489347839909800D+00
        ws(  9) = 0.7440059557295008D+00
        ws( 10) = 0.7378382806592065D+00
        ws( 11) = 0.7306663070180422D+00
        ws( 12) = 0.7226564781312625D+00
        ws( 13) = 0.7139315106743860D+00
        ws( 14) = 0.7045845309672903D+00
        ws( 15) = 0.6946875602790549D+00
        ws( 16) = 0.6842968351712438D+00
        ws( 17) = 0.6734563156483595D+00
        ws( 18) = 0.6622001267590572D+00
        ws( 19) = 0.6505543542714801D+00
        ws( 20) = 0.6385384387874210D+00
        ws( 21) = 0.6261663171279619D+00
        ws( 22) = 0.6134474093890708D+00
        ws( 23) = 0.6003875240495321D+00
        ws( 24) = 0.5869897430645198D+00
        ws( 25) = 0.5732553469486366D+00
        ws( 26) = 0.5591848479818649D+00
        ws( 27) = 0.5447792131767408D+00
        ws( 28) = 0.5300413817798914D+00
        ws( 29) = 0.5149782128680392D+00
        ws( 30) = 0.4996030378213709D+00
        ws( 31) = 0.4839390416978511D+00
        ws( 32) = 0.4680237493457086D+00
        ws( 33) = 0.4519149203180175D+00
        ws( 34) = 0.4356980869772849D+00
        ws( 35) = 0.4194956826522728D+00
        ws( 36) = 0.4034769534226204D+00
        ws( 37) = 0.3878661865166855D+00
        ws( 38) = 0.3729439932699046D+00
        ws( 39) = 0.3590337948196359D+00
        ws( 40) = 0.3464674932346723D+00
        ws( 41) = 0.3355343861573911D+00
        ws( 42) = 0.3264274482554373D+00
        ws( 43) = 0.3191990888562609D+00
        ws( 44) = 0.3137421651252504D+00
        ws( 45) = 0.3098263724063761D+00
        ws( 46) = 0.3071993877288926D+00
        ws( 47) = 0.3057143851840200D+00
        ws( 48) = 0.3054404083112368D+00
        ws( 49) = 0.3067503256212194D+00
        ws( 50) = 0.3103978530665029D+00
        ws( 51) = 0.3175679376596863D+00
        ws( 52) = 0.3298796341327492D+00
        ws( 53) = 0.3493238595751279D+00
        ws( 54) = 0.3779779032691388D+00
        ws( 55) = 0.4172538237379548D+00
        ws( 56) = 0.4669077859180798D+00
        ws( 57) = 0.5246750398871730D+00
        ws( 58) = 0.5870103588813436D+00
        ws( 59) = 0.6503172624608388D+00
        ws( 60) = 0.7117427857441611D+00
        ws( 61) = 0.7694509509415486D+00
        ws( 62) = 0.8227462260668633D+00
        ws( 63) = 0.8722091969614156D+00
        ws( 64) = 0.9201592839060166D+00
        ws( 65) = 0.9665810273670704D+00
        ws( 66) = 0.1057873611523248D+01
        ws( 67) = 0.1338792708706963D+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 =  71
        err = 0.9479608810866958D-10
        xs(  1) = 0.6061956206059037D+00
        xs(  2) = 0.1390863054621599D+01
        xs(  3) = 0.2178720863898763D+01
        xs(  4) = 0.2965370865251780D+01
        xs(  5) = 0.3749378878120526D+01
        xs(  6) = 0.4529787239848003D+01
        xs(  7) = 0.5305795205591743D+01
        xs(  8) = 0.6076685881154043D+01
        xs(  9) = 0.6841803737936890D+01
        xs( 10) = 0.7600545724717367D+01
        xs( 11) = 0.8352356427620464D+01
        xs( 12) = 0.9096724347475458D+01
        xs( 13) = 0.9833178341694673D+01
        xs( 14) = 0.1056128395550422D+02
        xs( 15) = 0.1128063961524254D+02
        xs( 16) = 0.1199087274439613D+02
        xs( 17) = 0.1269163588538054D+02
        xs( 18) = 0.1338260290639321D+02
        xs( 19) = 0.1406346535863530D+02
        xs( 20) = 0.1473392903329411D+02
        xs( 21) = 0.1539371075337127D+02
        xs( 22) = 0.1604253542473942D+02
        xs( 23) = 0.1668013336419258D+02
        xs( 24) = 0.1730623792028194D+02
        xs( 25) = 0.1792058340508997D+02
        xs( 26) = 0.1852290336247826D+02
        xs( 27) = 0.1911292921102930D+02
        xs( 28) = 0.1969038931901466D+02
        xs( 29) = 0.2025500859559325D+02
        xs( 30) = 0.2080650871956477D+02
        xs( 31) = 0.2134460917702993D+02
        xs( 32) = 0.2186902934635911D+02
        xs( 33) = 0.2237949195822748D+02
        xs( 34) = 0.2287572837727203D+02
        xs( 35) = 0.2335748630521356D+02
        xs( 36) = 0.2382454069282282D+02
        xs( 37) = 0.2427670885868964D+02
        xs( 38) = 0.2471387100773653D+02
        xs( 39) = 0.2513599740744483D+02
        xs( 40) = 0.2554318314250821D+02
        xs( 41) = 0.2593569009591191D+02
        xs( 42) = 0.2631399272505409D+02
        xs( 43) = 0.2667881851604020D+02
        xs( 44) = 0.2703116668842124D+02
        xs( 45) = 0.2737228500151445D+02
        xs( 46) = 0.2770359339001811D+02
        xs( 47) = 0.2802656859490102D+02
        xs( 48) = 0.2834263104231529D+02
        xs( 49) = 0.2865307688385610D+02
        xs( 50) = 0.2895907325353546D+02
        xs( 51) = 0.2926171557831340D+02
        xs( 52) = 0.2956214315762837D+02
        xs( 53) = 0.2986170425292772D+02
        xs( 54) = 0.3016215865203351D+02
        xs( 55) = 0.3046591759792314D+02
        xs( 56) = 0.3077633379422730D+02
        xs( 57) = 0.3109804873171767D+02
        xs( 58) = 0.3143736472842390D+02
        xs( 59) = 0.3180249591058239D+02
        xs( 60) = 0.3220334207564429D+02
        xs( 61) = 0.3265036921730532D+02
        xs( 62) = 0.3315274323727864D+02
        xs( 63) = 0.3371667369240599D+02
        xs( 64) = 0.3434484215238903D+02
        xs( 65) = 0.3503687157030903D+02
        xs( 66) = 0.3579029457960463D+02
        xs( 67) = 0.3660168002546396D+02
        xs( 68) = 0.3746777948628027D+02
        xs( 69) = 0.3838987076186369D+02
        xs( 70) = 0.3937758817715173D+02
        xs( 71) = 0.4046836853370394D+02
        ws(  1) = 0.7776871782860224D+00
        ws(  2) = 0.7876277152866396D+00
        ws(  3) = 0.7875712307705579D+00
        ws(  4) = 0.7855092905925704D+00
        ws(  5) = 0.7823507258057074D+00
        ws(  6) = 0.7783334868015906D+00
        ws(  7) = 0.7735632754169578D+00
        ws(  8) = 0.7681089515693096D+00
        ws(  9) = 0.7620263284499249D+00
        ws( 10) = 0.7553651362986050D+00
        ws( 11) = 0.7481710784426027D+00
        ws( 12) = 0.7404862986307607D+00
        ws( 13) = 0.7323493442991021D+00
        ws( 14) = 0.7237950193109786D+00
        ws( 15) = 0.7148542689102348D+00
        ws( 16) = 0.7055541431762560D+00
        ws( 17) = 0.6959178443185550D+00
        ws( 18) = 0.6859648470368847D+00
        ws( 19) = 0.6757110761716887D+00
        ws( 20) = 0.6651691261678390D+00
        ws( 21) = 0.6543485095374674D+00
        ws( 22) = 0.6432559256907403D+00
        ws( 23) = 0.6318955458309852D+00
        ws( 24) = 0.6202693139772207D+00
        ws( 25) = 0.6083772690339135D+00
        ws( 26) = 0.5962178977856560D+00
        ws( 27) = 0.5837885344587955D+00
        ws( 28) = 0.5710858296262135D+00
        ws( 29) = 0.5581063199265686D+00
        ws( 30) = 0.5448471417166183D+00
        ws( 31) = 0.5313069463273600D+00
        ws( 32) = 0.5174870941616804D+00
        ws( 33) = 0.5033932304920374D+00
        ws( 34) = 0.4890373783980271D+00
        ws( 35) = 0.4744407201799847D+00
        ws( 36) = 0.4596372693018102D+00
        ws( 37) = 0.4446786461862884D+00
        ws( 38) = 0.4296401171052190D+00
        ws( 39) = 0.4146278230517970D+00
        ws( 40) = 0.3997865105795378D+00
        ws( 41) = 0.3853057580941158D+00
        ws( 42) = 0.3714203829637904D+00
        ws( 43) = 0.3583980871215431D+00
        ws( 44) = 0.3465075216716427D+00
        ws( 45) = 0.3359677937178802D+00
        ws( 46) = 0.3268971088968814D+00
        ws( 47) = 0.3192912093883758D+00
        ws( 48) = 0.3130497763786428D+00
        ws( 49) = 0.3080354694009325D+00
        ws( 50) = 0.3041378945149963D+00
        ws( 51) = 0.3013338479196245D+00
        ws( 52) = 0.2997426446447487D+00
        ws( 53) = 0.2996688837714609D+00
        ws( 54) = 0.3016369836014455D+00
        ws( 55) = 0.3064338507176380D+00
        ws( 56) = 0.3151656334125791D+00
        ws( 57) = 0.3293095786622450D+00
        ws( 58) = 0.3506939023756072D+00
        ws( 59) = 0.3812372112842847D+00
        ws( 60) = 0.4222333322773107D+00
        ws( 61) = 0.4733787290690902D+00
        ws( 62) = 0.5324133972223128D+00
        ws( 63) = 0.5958842062045581D+00
        ws( 64) = 0.6603786121466760D+00
        ws( 65) = 0.7232441539747645D+00
        ws( 66) = 0.7829124152680866D+00
        ws( 67) = 0.8394233882359127D+00
        ws( 68) = 0.8937534694327740D+00
        ws( 69) = 0.9493049720625985D+00
        ws( 70) = 0.1022597870761235D+01
        ws( 71) = 0.1390053146853457D+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 =  76
        err = 0.7467939185733669D-10
        xs(  1) = 0.6185384149683020D+00
        xs(  2) = 0.1419250485954987D+01
        xs(  3) = 0.2223379371227503D+01
        xs(  4) = 0.3026527397108355D+01
        xs(  5) = 0.3827318321326900D+01
        xs(  6) = 0.4624858470393772D+01
        xs(  7) = 0.5418410094193124D+01
        xs(  8) = 0.6207316498939918D+01
        xs(  9) = 0.6990979009753442D+01
        xs( 10) = 0.7768848004605779D+01
        xs( 11) = 0.8540418245229343D+01
        xs( 12) = 0.9305225481701132D+01
        xs( 13) = 0.1006284332336292D+02
        xs( 14) = 0.1081288006270456D+02
        xs( 15) = 0.1155497539465232D+02
        xs( 16) = 0.1228879706754232D+02
        xs( 17) = 0.1301403752941290D+02
        xs( 18) = 0.1373041063351091D+02
        xs( 19) = 0.1443764845637300D+02
        xs( 20) = 0.1513549826823376D+02
        xs( 21) = 0.1582371968253100D+02
        xs( 22) = 0.1650208200031739D+02
        xs( 23) = 0.1717036175706112D+02
        xs( 24) = 0.1782834047383260D+02
        xs( 25) = 0.1847580261185868D+02
        xs( 26) = 0.1911253372901593D+02
        xs( 27) = 0.1973831883847835D+02
        xs( 28) = 0.2035294097392021D+02
        xs( 29) = 0.2095617997190763D+02
        xs( 30) = 0.2154781149131028D+02
        xs( 31) = 0.2212760630167796D+02
        xs( 32) = 0.2269532988907428D+02
        xs( 33) = 0.2325074244964773D+02
        xs( 34) = 0.2379359937002910D+02
        xs( 35) = 0.2432365233147990D+02
        xs( 36) = 0.2484065122464431D+02
        xs( 37) = 0.2534434712715264D+02
        xs( 38) = 0.2583449668090871D+02
        xs( 39) = 0.2631086831355830D+02
        xs( 40) = 0.2677325087925493D+02
        xs( 41) = 0.2722146543745814D+02
        xs( 42) = 0.2765538101580792D+02
        xs( 43) = 0.2807493525105167D+02
        xs( 44) = 0.2848016061797297D+02
        xs( 45) = 0.2887121619672518D+02
        xs( 46) = 0.2924842307381152D+02
        xs( 47) = 0.2961229814441929D+02
        xs( 48) = 0.2996357668328131D+02
        xs( 49) = 0.3030321075855005D+02
        xs( 50) = 0.3063233345620764D+02
        xs( 51) = 0.3095219390267221D+02
        xs( 52) = 0.3126409146530267D+02
        xs( 53) = 0.3156934525400397D+02
        xs( 54) = 0.3186930198949478D+02
        xs( 55) = 0.3216534226598753D+02
        xs( 56) = 0.3245887748135051D+02
        xs( 57) = 0.3275140879030490D+02
        xs( 58) = 0.3304467077165071D+02
        xs( 59) = 0.3334075314632115D+02
        xs( 60) = 0.3364217414721964D+02
        xs( 61) = 0.3395209175553383D+02
        xs( 62) = 0.3427479026513580D+02
        xs( 63) = 0.3461626384488460D+02
        xs( 64) = 0.3498447011181211D+02
        xs( 65) = 0.3538884055086169D+02
        xs( 66) = 0.3583892357100231D+02
        xs( 67) = 0.3634260358678500D+02
        xs( 68) = 0.3690479623820580D+02
        xs( 69) = 0.3752720480203788D+02
        xs( 70) = 0.3820893511024624D+02
        xs( 71) = 0.3894777065188886D+02
        xs( 72) = 0.3974150742799352D+02
        xs( 73) = 0.4059047378315214D+02
        xs( 74) = 0.4149616691713066D+02
        xs( 75) = 0.4248628175609507D+02
        xs( 76) = 0.4360009201195558D+02
        ws(  1) = 0.7935395523394568D+00
        ws(  2) = 0.8037981531422220D+00
        ws(  3) = 0.8039474484872984D+00
        ws(  4) = 0.8021391888191189D+00
        ws(  5) = 0.7992973975413036D+00
        ws(  6) = 0.7956609132420204D+00
        ws(  7) = 0.7913332064392672D+00
        ws(  8) = 0.7863799553632851D+00
        ws(  9) = 0.7808535345645014D+00
        ws( 10) = 0.7748003033481157D+00
        ws( 11) = 0.7682628544668502D+00
        ws( 12) = 0.7612806062179722D+00
        ws( 13) = 0.7538898473046320D+00
        ws( 14) = 0.7461236365120609D+00
        ws( 15) = 0.7380117081572590D+00
        ws( 16) = 0.7295804340015316D+00
        ws( 17) = 0.7208528517376437D+00
        ws( 18) = 0.7118487531006318D+00
        ws( 19) = 0.7025848185435926D+00
        ws( 20) = 0.6930747850301729D+00
        ws( 21) = 0.6833296346304953D+00
        ws( 22) = 0.6733577943248285D+00
        ws( 23) = 0.6631653400924923D+00
        ws( 24) = 0.6527562010494004D+00
        ws( 25) = 0.6421323620178242D+00
        ws( 26) = 0.6312940650913504D+00
        ws( 27) = 0.6202400131202659D+00
        ws( 28) = 0.6089675802745450D+00
        ws( 29) = 0.5974730374833097D+00
        ws( 30) = 0.5857518029838806D+00
        ws( 31) = 0.5737987324375775D+00
        ws( 32) = 0.5616084673567292D+00
        ws( 33) = 0.5491758669321499D+00
        ws( 34) = 0.5364965560608388D+00
        ws( 35) = 0.5235676331136889D+00
        ws( 36) = 0.5103885942493396D+00
        ws( 37) = 0.4969625487598761D+00
        ws( 38) = 0.4832978210658307D+00
        ws( 39) = 0.4694100589930640D+00
        ws( 40) = 0.4553249884704892D+00
        ws( 41) = 0.4410819570938940D+00
        ws( 42) = 0.4267383689158011D+00
        ws( 43) = 0.4123749806856710D+00
        ws( 44) = 0.3981016645859242D+00
        ws( 45) = 0.3840624208414979D+00
        ws( 46) = 0.3704370733310445D+00
        ws( 47) = 0.3574356108293188D+00
        ws( 48) = 0.3452807478433149D+00
        ws( 49) = 0.3341774062333905D+00
        ws( 50) = 0.3242773799735244D+00
        ws( 51) = 0.3156606017072587D+00
        ws( 52) = 0.3083541102440194D+00
        ws( 53) = 0.3023777576731960D+00
        ws( 54) = 0.2977661054622976D+00
        ws( 55) = 0.2945488202161092D+00
        ws( 56) = 0.2927690292093880D+00
        ws( 57) = 0.2925805004547340D+00
        ws( 58) = 0.2942911237912570D+00
        ws( 59) = 0.2982902728842508D+00
        ws( 60) = 0.3050694776322279D+00
        ws( 61) = 0.3154689248762043D+00
        ws( 62) = 0.3309218166642594D+00
        ws( 63) = 0.3533593306894654D+00
        ws( 64) = 0.3846487512287026D+00
        ws( 65) = 0.4257158549530523D+00
        ws( 66) = 0.4757877950763343D+00
        ws( 67) = 0.5323937222213416D+00
        ws( 68) = 0.5922649369693233D+00
        ws( 69) = 0.6523952371172368D+00
        ws( 70) = 0.7106402232532326D+00
        ws( 71) = 0.7665756723158763D+00
        ws( 72) = 0.8215744077257319D+00
        ws( 73) = 0.8760052595594855D+00
        ws( 74) = 0.9302885179918073D+00
        ws( 75) = 0.1089879778546000D+01
        ws( 76) = 0.1341926525515983D+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 =  80
        err = 0.7176240165864686D-10
        xs(  1) = 0.6246515979828832D+00
        xs(  2) = 0.1433339793695290D+01
        xs(  3) = 0.2245626782149228D+01
        xs(  4) = 0.3057153494955779D+01
        xs(  5) = 0.3866608763832821D+01
        xs(  6) = 0.4673164559977636D+01
        xs(  7) = 0.5476145574751971D+01
        xs(  8) = 0.6274953348730584D+01
        xs(  9) = 0.7069043002038002D+01
        xs( 10) = 0.7857914393321616D+01
        xs( 11) = 0.8641107788373288D+01
        xs( 12) = 0.9418200936153637D+01
        xs( 13) = 0.1018880649068748D+02
        xs( 14) = 0.1095256942449447D+02
        xs( 15) = 0.1170916434558376D+02
        xs( 16) = 0.1245829273231610D+02
        xs( 17) = 0.1319968013506913D+02
        xs( 18) = 0.1393307339966734D+02
        xs( 19) = 0.1465823796136971D+02
        xs( 20) = 0.1537495524765988D+02
        xs( 21) = 0.1608302021688001D+02
        xs( 22) = 0.1678223904960420D+02
        xs( 23) = 0.1747242700125614D+02
        xs( 24) = 0.1815340641810369D+02
        xs( 25) = 0.1882500491428542D+02
        xs( 26) = 0.1948705370464130D+02
        xs( 27) = 0.2013938608686582D+02
        xs( 28) = 0.2078183606634000D+02
        xs( 29) = 0.2141423711817327D+02
        xs( 30) = 0.2203642108300950D+02
        xs( 31) = 0.2264821719639772D+02
        xs( 32) = 0.2324945125581032D+02
        xs( 33) = 0.2383994493513101D+02
        xs( 34) = 0.2441951526366348D+02
        xs( 35) = 0.2498797429624292D+02
        xs( 36) = 0.2554512901346883D+02
        xs( 37) = 0.2609078150739233D+02
        xs( 38) = 0.2662472952919823D+02
        xs( 39) = 0.2714676750378493D+02
        xs( 40) = 0.2765668815376982D+02
        xs( 41) = 0.2815428492513620D+02
        xs( 42) = 0.2863935547243965D+02
        xs( 43) = 0.2911170654809965D+02
        xs( 44) = 0.2957116075198093D+02
        xs( 45) = 0.3001756573151972D+02
        xs( 46) = 0.3045080656846339D+02
        xs( 47) = 0.3087082222120489D+02
        xs( 48) = 0.3127762693457941D+02
        xs( 49) = 0.3167133728187370D+02
        xs( 50) = 0.3205220455917287D+02
        xs( 51) = 0.3242064999247233D+02
        xs( 52) = 0.3277729613691599D+02
        xs( 53) = 0.3312298256237499D+02
        xs( 54) = 0.3345875068151247D+02
        xs( 55) = 0.3378578737045989D+02
        xs( 56) = 0.3410533374314432D+02
        xs( 57) = 0.3441858742890764D+02
        xs( 58) = 0.3472663661814215D+02
        xs( 59) = 0.3503045178450978D+02
        xs( 60) = 0.3533093871070418D+02
        xs( 61) = 0.3562904465677825D+02
        xs( 62) = 0.3592590952296003D+02
        xs( 63) = 0.3622304732865439D+02
        xs( 64) = 0.3652253075265198D+02
        xs( 65) = 0.3682717478546513D+02
        xs( 66) = 0.3714079933359011D+02
        xs( 67) = 0.3746867419465434D+02
        xs( 68) = 0.3781804892986285D+02
        xs( 69) = 0.3819836524134823D+02
        xs( 70) = 0.3862065375151793D+02
        xs( 71) = 0.3909595586815961D+02
        xs( 72) = 0.3963336903057469D+02
        xs( 73) = 0.4023877800871192D+02
        xs( 74) = 0.4091484940999501D+02
        xs( 75) = 0.4166157385371141D+02
        xs( 76) = 0.4247725657996898D+02
        xs( 77) = 0.4335846538620661D+02
        xs( 78) = 0.4430489109506083D+02
        xs( 79) = 0.4533346832697122D+02
        xs( 80) = 0.4641516553804312D+02
        ws(  1) = 0.8013987124674719D+00
        ws(  2) = 0.8118649684956153D+00
        ws(  3) = 0.8122054715909428D+00
        ws(  4) = 0.8106495962554872D+00
        ws(  5) = 0.8081266657001829D+00
        ws(  6) = 0.8048733600977924D+00
        ws(  7) = 0.8009892504051073D+00
        ws(  8) = 0.7965356133209536D+00
        ws(  9) = 0.7915604025577458D+00
        ws( 10) = 0.7861058042494176D+00
        ws( 11) = 0.7802106529572435D+00
        ws( 12) = 0.7739111278961107D+00
        ws( 13) = 0.7672408546969911D+00
        ws( 14) = 0.7602308271267595D+00
        ws( 15) = 0.7529093082197940D+00
        ws( 16) = 0.7453017700366544D+00
        ws( 17) = 0.7374308883005152D+00
        ws( 18) = 0.7293165901229418D+00
        ws( 19) = 0.7209761455901798D+00
        ws( 20) = 0.7124242918744776D+00
        ws( 21) = 0.7036733791210656D+00
        ws( 22) = 0.6947335286258847D+00
        ws( 23) = 0.6856127960926831D+00
        ws( 24) = 0.6763173344000729D+00
        ws( 25) = 0.6668515523820384D+00
        ws( 26) = 0.6572182675157471D+00
        ws( 27) = 0.6474188517871357D+00
        ws( 28) = 0.6374533714169062D+00
        ws( 29) = 0.6273207218752952D+00
        ws( 30) = 0.6170187609611703D+00
        ws( 31) = 0.6065444435269803D+00
        ws( 32) = 0.5958939630242525D+00
        ws( 33) = 0.5850629060898086D+00
        ws( 34) = 0.5740464285721223D+00
        ws( 35) = 0.5628394637713438D+00
        ws( 36) = 0.5514369771443269D+00
        ws( 37) = 0.5398342859908350D+00
        ws( 38) = 0.5280274684859840D+00
        ws( 39) = 0.5160138946387187D+00
        ws( 40) = 0.5037929223827706D+00
        ws( 41) = 0.4913668156993638D+00
        ws( 42) = 0.4787419598865660D+00
        ws( 43) = 0.4659304731617884D+00
        ws( 44) = 0.4529523381612472D+00
        ws( 45) = 0.4398381960987501D+00
        ws( 46) = 0.4266329492039577D+00
        ws( 47) = 0.4134002795786025D+00
        ws( 48) = 0.4002280308819361D+00
        ws( 49) = 0.3872339445017327D+00
        ws( 50) = 0.3745702622312491D+00
        ws( 51) = 0.3624240628238958D+00
        ws( 52) = 0.3510083769845705D+00
        ws( 53) = 0.3405389942402970D+00
        ws( 54) = 0.3311966498781245D+00
        ws( 55) = 0.3230853112468281D+00
        ws( 56) = 0.3162082045650084D+00
        ws( 57) = 0.3104806725906738D+00
        ws( 58) = 0.3057785411995370D+00
        ws( 59) = 0.3020009707029772D+00
        ws( 60) = 0.2991282099781072D+00
        ws( 61) = 0.2972705628363394D+00
        ws( 62) = 0.2967083835581028D+00
        ws( 63) = 0.2979098152780570D+00
        ws( 64) = 0.3015221889438207D+00
        ws( 65) = 0.3083949373678097D+00
        ws( 66) = 0.3197225687715013D+00
        ws( 67) = 0.3372305265894220D+00
        ws( 68) = 0.3631019817472709D+00
        ws( 69) = 0.3993969336641622D+00
        ws( 70) = 0.4470558028500588D+00
        ws( 71) = 0.5050879273941533D+00
        ws( 72) = 0.5707171439119306D+00
        ws( 73) = 0.6405309238690099D+00
        ws( 74) = 0.7116100988294872D+00
        ws( 75) = 0.7814960275622563D+00
        ws( 76) = 0.8491895652698878D+00
        ws( 77) = 0.9149410073676630D+00
        ws( 78) = 0.9684597675999662D+00
        ws( 79) = 0.1085001938158680D+01
        ws( 80) = 0.1405212791768062D+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 =  84
        err = 0.7017344070330596D-10
        xs(  1) = 0.6322261023532471D+00
        xs(  2) = 0.1450779903406594D+01
        xs(  3) = 0.2273117200150954D+01
        xs(  4) = 0.3094904028594775D+01
        xs(  5) = 0.3914887838092167D+01
        xs(  6) = 0.4732300762391530D+01
        xs(  7) = 0.5546524563133651D+01
        xs(  8) = 0.6357013473038992D+01
        xs(  9) = 0.7163270528255446D+01
        xs( 10) = 0.7964838720243839D+01
        xs( 11) = 0.8761296885638211D+01
        xs( 12) = 0.9552257148244648D+01
        xs( 13) = 0.1033736279689174D+02
        xs( 14) = 0.1111628620309941D+02
        xs( 15) = 0.1188872665999606D+02
        xs( 16) = 0.1265440813388115D+02
        xs( 17) = 0.1341307696147629D+02
        xs( 18) = 0.1416449953750924D+02
        xs( 19) = 0.1490846003522292D+02
        xs( 20) = 0.1564475819546594D+02
        xs( 21) = 0.1637320721090878D+02
        xs( 22) = 0.1709363172357180D+02
        xs( 23) = 0.1780586594623171D+02
        xs( 24) = 0.1850975191232788D+02
        xs( 25) = 0.1920513785438661D+02
        xs( 26) = 0.1989187670763640D+02
        xs( 27) = 0.2056982473337412D+02
        xs( 28) = 0.2123884025534506D+02
        xs( 29) = 0.2189878250218233D+02
        xs( 30) = 0.2254951054911983D+02
        xs( 31) = 0.2319088235304159D+02
        xs( 32) = 0.2382275387618883D+02
        xs( 33) = 0.2444497829575998D+02
        xs( 34) = 0.2505740529910866D+02
        xs( 35) = 0.2565988046724533D+02
        xs( 36) = 0.2625224475291206D+02
        xs( 37) = 0.2683433406447311D+02
        xs( 38) = 0.2740597897269748D+02
        xs( 39) = 0.2796700456545182D+02
        xs( 40) = 0.2851723048496335D+02
        xs( 41) = 0.2905647119559912D+02
        xs( 42) = 0.2958453654693380D+02
        xs( 43) = 0.3010123271919899D+02
        xs( 44) = 0.3060636366703758D+02
        xs( 45) = 0.3109973321645319D+02
        xs( 46) = 0.3158114802146576D+02
        xs( 47) = 0.3205042165231864D+02
        xs( 48) = 0.3250738017108575D+02
        xs( 49) = 0.3295186965093180D+02
        xs( 50) = 0.3338376620868978D+02
        xs( 51) = 0.3380298922950333D+02
        xs( 52) = 0.3420951851805336D+02
        xs( 53) = 0.3460341599377666D+02
        xs( 54) = 0.3498485200598303D+02
        xs( 55) = 0.3535413494916294D+02
        xs( 56) = 0.3571174021800568D+02
        xs( 57) = 0.3605833095623876D+02
        xs( 58) = 0.3639476008774600D+02
        xs( 59) = 0.3672204354183919D+02
        xs( 60) = 0.3704130184466809D+02
        xs( 61) = 0.3735368260203740D+02
        xs( 62) = 0.3766029159565537D+02
        xs( 63) = 0.3796215956491710D+02
        xs( 64) = 0.3826025506327006D+02
        xs( 65) = 0.3855554489266396D+02
        xs( 66) = 0.3884910730438571D+02
        xs( 67) = 0.3914228193182789D+02
        xs( 68) = 0.3943680205489629D+02
        xs( 69) = 0.3973488912608373D+02
        xs( 70) = 0.4003941139198010D+02
        xs( 71) = 0.4035425379467506D+02
        xs( 72) = 0.4068488305032022D+02
        xs( 73) = 0.4103885739056885D+02
        xs( 74) = 0.4142590999971079D+02
        xs( 75) = 0.4185722732422144D+02
        xs( 76) = 0.4234382146138217D+02
        xs( 77) = 0.4289464032361241D+02
        xs( 78) = 0.4351550014608308D+02
        xs( 79) = 0.4420933899426691D+02
        xs( 80) = 0.4497647448667259D+02
        xs( 81) = 0.4581644305458939D+02
        xs( 82) = 0.4672707234508971D+02
        xs( 83) = 0.4771776537210231D+02
        xs( 84) = 0.4882761257632777D+02
        ws(  1) = 0.8111320566620167D+00
        ws(  2) = 0.8218263951174463D+00
        ws(  3) = 0.8223515659618104D+00
        ws(  4) = 0.8210337621218146D+00
        ws(  5) = 0.8188096639187474D+00
        ws(  6) = 0.8159141479303113D+00
        ws(  7) = 0.8124428222772544D+00
        ws(  8) = 0.8084522991237615D+00
        ws(  9) = 0.8039857054812578D+00
        ws( 10) = 0.7990805250078680D+00
        ws( 11) = 0.7937711943089637D+00
        ws( 12) = 0.7880899135261888D+00
        ws( 13) = 0.7820668150457053D+00
        ws( 14) = 0.7757299171169593D+00
        ws( 15) = 0.7691050295540786D+00
        ws( 16) = 0.7622156796369859D+00
        ws( 17) = 0.7550830794220733D+00
        ws( 18) = 0.7477261384294226D+00
        ws( 19) = 0.7401615157837307D+00
        ws( 20) = 0.7324037035461038D+00
        ws( 21) = 0.7244651323292312D+00
        ws( 22) = 0.7163562909611545D+00
        ws( 23) = 0.7080858536138317D+00
        ws( 24) = 0.6996608089271968D+00
        ws( 25) = 0.6910865873222469D+00
        ws( 26) = 0.6823671837741307D+00
        ws( 27) = 0.6735052742671568D+00
        ws( 28) = 0.6645023254027855D+00
        ws( 29) = 0.6553586968854493D+00
        ws( 30) = 0.6460737377323841D+00
        ws( 31) = 0.6366458769918377D+00
        ws( 32) = 0.6270727105877932D+00
        ws( 33) = 0.6173510867375485D+00
        ws( 34) = 0.6074771921905607D+00
        ws( 35) = 0.5974466431756043D+00
        ws( 36) = 0.5872545845015450D+00
        ws( 37) = 0.5768958029188812D+00
        ws( 38) = 0.5663648609997280D+00
        ws( 39) = 0.5556562605652923D+00
        ws( 40) = 0.5447646466787789D+00
        ws( 41) = 0.5336850673620688D+00
        ws( 42) = 0.5224133083177681D+00
        ws( 43) = 0.5109463275267124D+00
        ws( 44) = 0.4992828238291167D+00
        ws( 45) = 0.4874239833955181D+00
        ws( 46) = 0.4753744631426960D+00
        ws( 47) = 0.4631436849390413D+00
        ws( 48) = 0.4507475325668162D+00
        ws( 49) = 0.4382105613023815D+00
        ws( 50) = 0.4255688341700406D+00
        ws( 51) = 0.4128734805280464D+00
        ws( 52) = 0.4001949752718982D+00
        ws( 53) = 0.3876278651597246D+00
        ws( 54) = 0.3752950576684133D+00
        ws( 55) = 0.3633496890157008D+00
        ws( 56) = 0.3519713119593453D+00
        ws( 57) = 0.3413527540337731D+00
        ws( 58) = 0.3316758328848161D+00
        ws( 59) = 0.3230791951238041D+00
        ws( 60) = 0.3156299001541678D+00
        ws( 61) = 0.3093164856659471D+00
        ws( 62) = 0.3040730698141114D+00
        ws( 63) = 0.2998233129532181D+00
        ws( 64) = 0.2965269098763287D+00
        ws( 65) = 0.2942297936332441D+00
        ws( 66) = 0.2931159957276272D+00
        ws( 67) = 0.2935208362990579D+00
        ws( 68) = 0.2958874698728797D+00
        ws( 69) = 0.3007585434399811D+00
        ws( 70) = 0.3089233874220903D+00
        ws( 71) = 0.3216631224051183D+00
        ws( 72) = 0.3408527332267094D+00
        ws( 73) = 0.3687295970087936D+00
        ws( 74) = 0.4072688203695576D+00
        ws( 75) = 0.4572355338571525D+00
        ws( 76) = 0.5174646126642019D+00
        ws( 77) = 0.5851333189571744D+00
        ws( 78) = 0.6570562513547862D+00
        ws( 79) = 0.7307125760642988D+00
        ws( 80) = 0.8036772211321657D+00
        ws( 81) = 0.8739887875656969D+00
        ws( 82) = 0.9507989032644303D+00
        ws( 83) = 0.1044031214075633D+01
        ws( 84) = 0.1350669585899565D+01
        endif
        if( idomain .eq.  182 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.1570796326794897D+01
        rk1r = 0.4398229715025710D+02
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  88
        err = 0.5412762379973556D-10
        xs(  1) = 0.6397059283950907D+00
        xs(  2) = 0.1467993700793757D+01
        xs(  3) = 0.2300227605612518D+01
        xs(  4) = 0.3132087459649230D+01
        xs(  5) = 0.3962367931478605D+01
        xs(  6) = 0.4790350292041825D+01
        xs(  7) = 0.5615462786688924D+01
        xs(  8) = 0.6437202183242009D+01
        xs(  9) = 0.7255109666629276D+01
        xs( 10) = 0.8068761935073248D+01
        xs( 11) = 0.8877767266187233D+01
        xs( 12) = 0.9681763291761085D+01
        xs( 13) = 0.1048041531085345D+02
        xs( 14) = 0.1127341470183250D+02
        xs( 15) = 0.1206047727914202D+02
        xs( 16) = 0.1284134155879232D+02
        xs( 17) = 0.1361576694595032D+02
        xs( 18) = 0.1438353187647127D+02
        xs( 19) = 0.1514443194820359D+02
        xs( 20) = 0.1589827807497616D+02
        xs( 21) = 0.1664489469070005D+02
        xs( 22) = 0.1738411802421279D+02
        xs( 23) = 0.1811579445964159D+02
        xs( 24) = 0.1883977899108040D+02
        xs( 25) = 0.1955593377613694D+02
        xs( 26) = 0.2026412678895890D+02
        xs( 27) = 0.2096423057077902D+02
        xs( 28) = 0.2165612107414856D+02
        xs( 29) = 0.2233967659572912D+02
        xs( 30) = 0.2301477679207649D+02
        xs( 31) = 0.2368130177241402D+02
        xs( 32) = 0.2433913126276412D+02
        xs( 33) = 0.2498814383622965D+02
        xs( 34) = 0.2562821620517007D+02
        xs( 35) = 0.2625922257215119D+02
        xs( 36) = 0.2688103403763456D+02
        xs( 37) = 0.2749351806421879D+02
        xs( 38) = 0.2809653799914526D+02
        xs( 39) = 0.2868995265969919D+02
        xs( 40) = 0.2927361598875381D+02
        xs( 41) = 0.2984737679180732D+02
        xs( 42) = 0.3041107857153756D+02
        xs( 43) = 0.3096455948255585D+02
        xs( 44) = 0.3150765243676376D+02
        xs( 45) = 0.3204018540045461D+02
        xs( 46) = 0.3256198193763209D+02
        xs( 47) = 0.3307286207180590D+02
        xs( 48) = 0.3357264356146969D+02
        xs( 49) = 0.3406114371542657D+02
        xs( 50) = 0.3453818191404992D+02
        xs( 51) = 0.3500358305394730D+02
        xs( 52) = 0.3545718219825446D+02
        xs( 53) = 0.3589883079311966D+02
        xs( 54) = 0.3632840490147392D+02
        xs( 55) = 0.3674581599996517D+02
        xs( 56) = 0.3715102495697123D+02
        xs( 57) = 0.3754405979502114D+02
        xs( 58) = 0.3792503759608491D+02
        xs( 59) = 0.3829419017209353D+02
        xs( 60) = 0.3865189161526309D+02
        xs( 61) = 0.3899868351679507D+02
        xs( 62) = 0.3933529096413293D+02
        xs( 63) = 0.3966262045794414D+02
        xs( 64) = 0.3998173113109589D+02
        xs( 65) = 0.4029377574880424D+02
        xs( 66) = 0.4059992113183693D+02
        xs( 67) = 0.4090127360654823D+02
        xs( 68) = 0.4119883852471092D+02
        xs( 69) = 0.4149353759872378D+02
        xs( 70) = 0.4178630771595217D+02
        xs( 71) = 0.4207826732941138D+02
        xs( 72) = 0.4237084678162562D+02
        xs( 73) = 0.4266579869348440D+02
        xs( 74) = 0.4296521195011426D+02
        xs( 75) = 0.4327175949964197D+02
        xs( 76) = 0.4358922938329670D+02
        xs( 77) = 0.4392316943978035D+02
        xs( 78) = 0.4428138956278325D+02
        xs( 79) = 0.4467398048765316D+02
        xs( 80) = 0.4511244855582590D+02
        xs( 81) = 0.4560794648159245D+02
        xs( 82) = 0.4616941307034279D+02
        xs( 83) = 0.4680274063572967D+02
        xs( 84) = 0.4751127237236681D+02
        xs( 85) = 0.4829646964803303D+02
        xs( 86) = 0.4916123779103098D+02
        xs( 87) = 0.5010652463535496D+02
        xs( 88) = 0.5112451334498787D+02
        ws(  1) = 0.8207415558816972D+00
        ws(  2) = 0.8316469715387776D+00
        ws(  3) = 0.8323291875820952D+00
        ws(  4) = 0.8312103168437213D+00
        ws(  5) = 0.8292346783505552D+00
        ws(  6) = 0.8266357715253606D+00
        ws(  7) = 0.8235056821806791D+00
        ws(  8) = 0.8198967712663382D+00
        ws(  9) = 0.8158477043824134D+00
        ws( 10) = 0.8113915801562717D+00
        ws( 11) = 0.8065587145878921D+00
        ws( 12) = 0.8013775792273961D+00
        ws( 13) = 0.7958750493464741D+00
        ws( 14) = 0.7900763972964303D+00
        ws( 15) = 0.7840052069487399D+00
        ws( 16) = 0.7776832842748225D+00
        ws( 17) = 0.7711305939064516D+00
        ws( 18) = 0.7643652309468646D+00
        ws( 19) = 0.7574034281308651D+00
        ws( 20) = 0.7502595931914401D+00
        ws( 21) = 0.7429463704044742D+00
        ws( 22) = 0.7354747197464255D+00
        ws( 23) = 0.7278540075672679D+00
        ws( 24) = 0.7200921040234376D+00
        ws( 25) = 0.7121954825975091D+00
        ws( 26) = 0.7041693191667890D+00
        ws( 27) = 0.6960175876739542D+00
        ws( 28) = 0.6877431515611883D+00
        ws( 29) = 0.6793478494688531D+00
        ws( 30) = 0.6708325753472759D+00
        ws( 31) = 0.6621973524847766D+00
        ws( 32) = 0.6534414021895056D+00
        ws( 33) = 0.6445632076129681D+00
        ws( 34) = 0.6355605739012645D+00
        ws( 35) = 0.6264306857362620D+00
        ws( 36) = 0.6171701636345587D+00
        ws( 37) = 0.6077751209982341D+00
        ws( 38) = 0.5982412241735249D+00
        ws( 39) = 0.5885637584982826D+00
        ws( 40) = 0.5787377033390467D+00
        ws( 41) = 0.5687578207056327D+00
        ws( 42) = 0.5586187628671987D+00
        ws( 43) = 0.5483152063236049D+00
        ws( 44) = 0.5378420209244231D+00
        ws( 45) = 0.5271944863198357D+00
        ws( 46) = 0.5163685709914783D+00
        ws( 47) = 0.5053612939022805D+00
        ws( 48) = 0.4941711953829873D+00
        ws( 49) = 0.4827989525140222D+00
        ws( 50) = 0.4712481841820544D+00
        ws( 51) = 0.4595265035943917D+00
        ws( 52) = 0.4476468901134660D+00
        ws( 53) = 0.4356294649956014D+00
        ws( 54) = 0.4235037663626544D+00
        ws( 55) = 0.4113116136781871D+00
        ws( 56) = 0.3991106051014933D+00
        ws( 57) = 0.3869781526732542D+00
        ws( 58) = 0.3750156157624046D+00
        ws( 59) = 0.3633514479845142D+00
        ws( 60) = 0.3521414150037096D+00
        ws( 61) = 0.3415632484449168D+00
        ws( 62) = 0.3318031972158137D+00
        ws( 63) = 0.3230333161317015D+00
        ws( 64) = 0.3153815516384892D+00
        ws( 65) = 0.3089034720084313D+00
        ws( 66) = 0.3035724038027427D+00
        ws( 67) = 0.2992998848547721D+00
        ws( 68) = 0.2959819328665608D+00
        ws( 69) = 0.2935692980566737D+00
        ws( 70) = 0.2921548525591853D+00
        ws( 71) = 0.2920029346550587D+00
        ws( 72) = 0.2934485576894555D+00
        ws( 73) = 0.2967994005258246D+00
        ws( 74) = 0.3024632616041811D+00
        ws( 75) = 0.3112518378463967D+00
        ws( 76) = 0.3246034187050271D+00
        ws( 77) = 0.3445769048073859D+00
        ws( 78) = 0.3735591648943878D+00
        ws( 79) = 0.4135721371900282D+00
        ws( 80) = 0.4652568368917986D+00
        ws( 81) = 0.5272445080931903D+00
        ws( 82) = 0.5966571930429859D+00
        ws( 83) = 0.6705377265410029D+00
        ws( 84) = 0.7467695405024004D+00
        ws( 85) = 0.8243894179500243D+00
        ws( 86) = 0.8980491597473523D+00
        ws( 87) = 0.1015405384203810D+01
        ws( 88) = 0.1194078124370658D+01
        endif
        if( idomain .eq.  183 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.1570796326794897D+01
        rk1r = 0.4712388980384689D+02
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  93
        err = 0.4553634022251164D-10
        xs(  1) = 0.6442054480044870D+00
        xs(  2) = 0.1478357580571041D+01
        xs(  3) = 0.2316574820129568D+01
        xs(  4) = 0.3154557366073970D+01
        xs(  5) = 0.3991140362552467D+01
        xs(  6) = 0.4825646649845301D+01
        xs(  7) = 0.5657544319752512D+01
        xs(  8) = 0.6486367392420225D+01
        xs(  9) = 0.7311691336702469D+01
        xs( 10) = 0.8133124011134115D+01
        xs( 11) = 0.8950301715700602D+01
        xs( 12) = 0.9762887058328136D+01
        xs( 13) = 0.1057056744413304D+02
        xs( 14) = 0.1137305372852117D+02
        xs( 15) = 0.1217007886276363D+02
        xs( 16) = 0.1296139647924389D+02
        xs( 17) = 0.1374677941517539D+02
        xs( 18) = 0.1452601819373974D+02
        xs( 19) = 0.1529891948827399D+02
        xs( 20) = 0.1606530459477745D+02
        xs( 21) = 0.1682500793483527D+02
        xs( 22) = 0.1757787560669160D+02
        xs( 23) = 0.1832376399771255D+02
        xs( 24) = 0.1906253846735681D+02
        xs( 25) = 0.1979407210609109D+02
        xs( 26) = 0.2051824457282908D+02
        xs( 27) = 0.2123494101102445D+02
        xs( 28) = 0.2194405104185201D+02
        xs( 29) = 0.2264546783165032D+02
        xs( 30) = 0.2333908722988262D+02
        xs( 31) = 0.2402480697344908D+02
        xs( 32) = 0.2470252595286500D+02
        xs( 33) = 0.2537214353586392D+02
        xs( 34) = 0.2603355894419111D+02
        xs( 35) = 0.2668667067963224D+02
        xs( 36) = 0.2733137599589196D+02
        xs( 37) = 0.2796757041336209D+02
        xs( 38) = 0.2859514727455431D+02
        xs( 39) = 0.2921399733882931D+02
        xs( 40) = 0.2982400841602073D+02
        xs( 41) = 0.3042506503975328D+02
        xs( 42) = 0.3101704818251905D+02
        xs( 43) = 0.3159983501641310D+02
        xs( 44) = 0.3217329872559356D+02
        xs( 45) = 0.3273730837932589D+02
        xs( 46) = 0.3329172887794088D+02
        xs( 47) = 0.3383642098853903D+02
        xs( 48) = 0.3437124149292026D+02
        xs( 49) = 0.3489604347843469D+02
        xs( 50) = 0.3541067681215649D+02
        xs( 51) = 0.3591498885232974D+02
        xs( 52) = 0.3640882546810398D+02
        xs( 53) = 0.3689203246220887D+02
        xs( 54) = 0.3736445752058630D+02
        xs( 55) = 0.3782595285010524D+02
        xs( 56) = 0.3827637871364999D+02
        xs( 57) = 0.3871560813199507D+02
        xs( 58) = 0.3914353309331845D+02
        xs( 59) = 0.3956007268818897D+02
        xs( 60) = 0.3996518364522342D+02
        xs( 61) = 0.4035887371505772D+02
        xs( 62) = 0.4074121812946233D+02
        xs( 63) = 0.4111237878143801D+02
        xs( 64) = 0.4147262463575007D+02
        xs( 65) = 0.4182235015334523D+02
        xs( 66) = 0.4216208661401791D+02
        xs( 67) = 0.4249250027041140D+02
        xs( 68) = 0.4281437308965236D+02
        xs( 69) = 0.4312856755450577D+02
        xs( 70) = 0.4343598436878373D+02
        xs( 71) = 0.4373752540800459D+02
        xs( 72) = 0.4403407007170019D+02
        xs( 73) = 0.4432646607390147D+02
        xs( 74) = 0.4461554154030037D+02
        xs( 75) = 0.4490217253106447D+02
        xs( 76) = 0.4518743670979282D+02
        xs( 77) = 0.4547278708899065D+02
        xs( 78) = 0.4576011115019757D+02
        xs( 79) = 0.4605169413849198D+02
        xs( 80) = 0.4635032257219909D+02
        xs( 81) = 0.4665967910827257D+02
        xs( 82) = 0.4698488584309893D+02
        xs( 83) = 0.4733294973332897D+02
        xs( 84) = 0.4771292460438379D+02
        xs( 85) = 0.4813553963275920D+02
        xs( 86) = 0.4861203072892509D+02
        xs( 87) = 0.4915245039145150D+02
        xs( 88) = 0.4976438899409438D+02
        xs( 89) = 0.5045313604145672D+02
        xs( 90) = 0.5122329620168109D+02
        xs( 91) = 0.5207809486474541D+02
        xs( 92) = 0.5303791333015959D+02
        xs( 93) = 0.5410519999429209D+02
        ws(  1) = 0.8265245065881446D+00
        ws(  2) = 0.8375719825012485D+00
        ws(  3) = 0.8383758583113732D+00
        ws(  4) = 0.8374159301031392D+00
        ws(  5) = 0.8356410767834477D+00
        ws(  6) = 0.8332838801639374D+00
        ws(  7) = 0.8304341385387628D+00
        ws(  8) = 0.8271413835695905D+00
        ws(  9) = 0.8234412074164598D+00
        ws( 10) = 0.8193635579299795D+00
        ws( 11) = 0.8149356434151096D+00
        ws( 12) = 0.8101829647968466D+00
        ws( 13) = 0.8051296385115106D+00
        ws( 14) = 0.7997984457329327D+00
        ws( 15) = 0.7942107861347538D+00
        ws( 16) = 0.7883866117428888D+00
        ws( 17) = 0.7823443729734419D+00
        ws( 18) = 0.7761009885554268D+00
        ws( 19) = 0.7696718415060195D+00
        ws( 20) = 0.7630707992780412D+00
        ws( 21) = 0.7563102536939021D+00
        ws( 22) = 0.7494011765413978D+00
        ws( 23) = 0.7423531861031025D+00
        ws( 24) = 0.7351746209709720D+00
        ws( 25) = 0.7278726177096569D+00
        ws( 26) = 0.7204531897827809D+00
        ws( 27) = 0.7129213056702651D+00
        ws( 28) = 0.7052809647325147D+00
        ws( 29) = 0.6975352696915221D+00
        ws( 30) = 0.6896864951423161D+00
        ws( 31) = 0.6817361516745964D+00
        ws( 32) = 0.6736850454871621D+00
        ws( 33) = 0.6655333336934529D+00
        ws( 34) = 0.6572805753873375D+00
        ws( 35) = 0.6489257791944575D+00
        ws( 36) = 0.6404674474635229D+00
        ws( 37) = 0.6319036179798064D+00
        ws( 38) = 0.6232319037413727D+00
        ws( 39) = 0.6144495318965667D+00
        ws( 40) = 0.6055533828468769D+00
        ws( 41) = 0.5965400307035080D+00
        ws( 42) = 0.5874057866552324D+00
        ws( 43) = 0.5781467473059720D+00
        ws( 44) = 0.5687588502043424D+00
        ws( 45) = 0.5592379401024935D+00
        ws( 46) = 0.5495798492573885D+00
        ws( 47) = 0.5397804974785892D+00
        ws( 48) = 0.5298360180710109D+00
        ws( 49) = 0.5197429191065537D+00
        ws( 50) = 0.5094982912754853D+00
        ws( 51) = 0.4991000771757718D+00
        ws( 52) = 0.4885474227084962D+00
        ws( 53) = 0.4778411363612084D+00
        ws( 54) = 0.4669842899203663D+00
        ws( 55) = 0.4559830020372883D+00
        ws( 56) = 0.4448474593598980D+00
        ws( 57) = 0.4335932409382827D+00
        ws( 58) = 0.4222430223347474D+00
        ws( 59) = 0.4108287331319127D+00
        ws( 60) = 0.3993941977678869D+00
        ws( 61) = 0.3879981575779177D+00
        ws( 62) = 0.3767173056889280D+00
        ws( 63) = 0.3656485061508522D+00
        ws( 64) = 0.3549087416960388D+00
        ws( 65) = 0.3446308589601828D+00
        ws( 66) = 0.3349534279825423D+00
        ws( 67) = 0.3260048219840721D+00
        ws( 68) = 0.3178853016527257D+00
        ws( 69) = 0.3106543843544556D+00
        ws( 70) = 0.3043299487446115D+00
        ws( 71) = 0.2988988523127622D+00
        ws( 72) = 0.2943316466334663D+00
        ws( 73) = 0.2905973826559326D+00
        ws( 74) = 0.2876968447372801D+00
        ws( 75) = 0.2857414063593798D+00
        ws( 76) = 0.2850281242509993D+00
        ws( 77) = 0.2859885595904935D+00
        ws( 78) = 0.2890391918569469D+00
        ws( 79) = 0.2945841564295922D+00
        ws( 80) = 0.3032767488527919D+00
        ws( 81) = 0.3162822460506132D+00
        ws( 82) = 0.3352957728054445D+00
        ws( 83) = 0.3623462484234834D+00
        ws( 84) = 0.3994117546404260D+00
        ws( 85) = 0.4477218339195591D+00
        ws( 86) = 0.5069585373849261D+00
        ws( 87) = 0.5751464027945875D+00
        ws( 88) = 0.6495945385820872D+00
        ws( 89) = 0.7286151876009254D+00
        ws( 90) = 0.8122219174707782D+00
        ws( 91) = 0.8966624713059667D+00
        ws( 92) = 0.1029172755111503D+01
        ws( 93) = 0.1304994323690254D+01
        endif
        if( idomain .eq.  184 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.1570796326794897D+01
        rk1r = 0.5026548245743669D+02
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  96
        err = 0.9286963678836414D-10
        xs(  1) = 0.6542548303722270D+00
        xs(  2) = 0.1501441755855623D+01
        xs(  3) = 0.2352810295870448D+01
        xs(  4) = 0.3204023443625698D+01
        xs(  5) = 0.4053927396610818D+01
        xs(  6) = 0.4901862842770013D+01
        xs(  7) = 0.5747317036156909D+01
        xs(  8) = 0.6589843140449518D+01
        xs(  9) = 0.7429035313538835D+01
        xs( 10) = 0.8264519491456342D+01
        xs( 11) = 0.9095949394891225D+01
        xs( 12) = 0.9923004404199743D+01
        xs( 13) = 0.1074538808535532D+02
        xs( 14) = 0.1156282689510020D+02
        xs( 15) = 0.1237506888629351D+02
        xs( 16) = 0.1318188235639739D+02
        xs( 17) = 0.1398305443524048D+02
        xs( 18) = 0.1477838962959116D+02
        xs( 19) = 0.1556770834958927D+02
        xs( 20) = 0.1635084544175398D+02
        xs( 21) = 0.1712764875087469D+02
        xs( 22) = 0.1789797772819844D+02
        xs( 23) = 0.1866170209930094D+02
        xs( 24) = 0.1941870060052821D+02
        xs( 25) = 0.2016885978936881D+02
        xs( 26) = 0.2091207293107931D+02
        xs( 27) = 0.2164823896161078D+02
        xs( 28) = 0.2237726152488784D+02
        xs( 29) = 0.2309904808153245D+02
        xs( 30) = 0.2381350908485180D+02
        xs( 31) = 0.2452055721970894D+02
        xs( 32) = 0.2522010669945281D+02
        xs( 33) = 0.2591207261609517D+02
        xs( 34) = 0.2659637033901313D+02
        xs( 35) = 0.2727291495772414D+02
        xs( 36) = 0.2794162076445813D+02
        xs( 37) = 0.2860240077294354D+02
        xs( 38) = 0.2925516626998698D+02
        xs( 39) = 0.2989982639718164D+02
        xs( 40) = 0.3053628776045772D+02
        xs( 41) = 0.3116445406596507D+02
        xs( 42) = 0.3178422578167989D+02
        xs( 43) = 0.3239549982476054D+02
        xs( 44) = 0.3299816927580589D+02
        xs( 45) = 0.3359212312228592D+02
        xs( 46) = 0.3417724603487979D+02
        xs( 47) = 0.3475341818253027D+02
        xs( 48) = 0.3532051509407254D+02
        xs( 49) = 0.3587840757725100D+02
        xs( 50) = 0.3642696170921161D+02
        xs( 51) = 0.3696603891721270D+02
        xs( 52) = 0.3749549617479513D+02
        xs( 53) = 0.3801518634572988D+02
        xs( 54) = 0.3852495871810416D+02
        xs( 55) = 0.3902465978321142D+02
        xs( 56) = 0.3951413433227771D+02
        xs( 57) = 0.3999322696551747D+02
        xs( 58) = 0.4046178413894106D+02
        xs( 59) = 0.4091965691085702D+02
        xs( 60) = 0.4136670459667461D+02
        xs( 61) = 0.4180279960443118D+02
        xs( 62) = 0.4222783379201744D+02
        xs( 63) = 0.4264172675882100D+02
        xs( 64) = 0.4304443657857203D+02
        xs( 65) = 0.4343597353857209D+02
        xs( 66) = 0.4381641735125144D+02
        xs( 67) = 0.4418593789653608D+02
        xs( 68) = 0.4454481836675270D+02
        xs( 69) = 0.4489347730267660D+02
        xs( 70) = 0.4523248331948161D+02
        xs( 71) = 0.4556255559911263D+02
        xs( 72) = 0.4588454698996127D+02
        xs( 73) = 0.4619941321187878D+02
        xs( 74) = 0.4650817222845507D+02
        xs( 75) = 0.4681185232347302D+02
        xs( 76) = 0.4711143461668796D+02
        xs( 77) = 0.4740781739016585D+02
        xs( 78) = 0.4770183371511470D+02
        xs( 79) = 0.4799432922358625D+02
        xs( 80) = 0.4828627570194544D+02
        xs( 81) = 0.4857887879213242D+02
        xs( 82) = 0.4887367744898425D+02
        xs( 83) = 0.4917269785000701D+02
        xs( 84) = 0.4947871954222498D+02
        xs( 85) = 0.4979566722010154D+02
        xs( 86) = 0.5012907479595435D+02
        xs( 87) = 0.5048648123365148D+02
        xs( 88) = 0.5087754105047730D+02
        xs( 89) = 0.5131350963143906D+02
        xs( 90) = 0.5180589037762688D+02
        xs( 91) = 0.5236477361070317D+02
        xs( 92) = 0.5299808868741526D+02
        xs( 93) = 0.5371255573456273D+02
        xs( 94) = 0.5451631629416355D+02
        xs( 95) = 0.5542545455552865D+02
        xs( 96) = 0.5643566226163084D+02
        ws(  1) = 0.8394238518779100D+00
        ws(  2) = 0.8506816473742252D+00
        ws(  3) = 0.8515661839375120D+00
        ws(  4) = 0.8506889783087460D+00
        ws(  5) = 0.8490129789384236D+00
        ws(  6) = 0.8467735071762442D+00
        ws(  7) = 0.8440607553243471D+00
        ws(  8) = 0.8409239471499712D+00
        ws(  9) = 0.8373981150149287D+00
        ws( 10) = 0.8335125605500443D+00
        ws( 11) = 0.8292938333046196D+00
        ws( 12) = 0.8247668008576425D+00
        ws( 13) = 0.8199549923743593D+00
        ws( 14) = 0.8148806584572682D+00
        ws( 15) = 0.8095647304148200D+00
        ws( 16) = 0.8040267557594734D+00
        ws( 17) = 0.7982848443279257D+00
        ws( 18) = 0.7923556372420411D+00
        ws( 19) = 0.7862543011810846D+00
        ws( 20) = 0.7799945471787296D+00
        ws( 21) = 0.7735886684962797D+00
        ws( 22) = 0.7670475948166716D+00
        ws( 23) = 0.7603809566149103D+00
        ws( 24) = 0.7535971573056519D+00
        ws( 25) = 0.7467034485324888D+00
        ws( 26) = 0.7397060069223429D+00
        ws( 27) = 0.7326100096365399D+00
        ws( 28) = 0.7254197074168947D+00
        ws( 29) = 0.7181384940909568D+00
        ws( 30) = 0.7107689717345530D+00
        ws( 31) = 0.7033130110230457D+00
        ws( 32) = 0.6957718071437102D+00
        ws( 33) = 0.6881459303137168D+00
        ws( 34) = 0.6804353723904000D+00
        ws( 35) = 0.6726395884182186D+00
        ws( 36) = 0.6647575348007703D+00
        ws( 37) = 0.6567877036024552D+00
        ws( 38) = 0.6487281539214158D+00
        ws( 39) = 0.6405765408564864D+00
        ws( 40) = 0.6323301423562985D+00
        ws( 41) = 0.6239858852069273D+00
        ws( 42) = 0.6155403705158083D+00
        ws( 43) = 0.6069899000184910D+00
        ws( 44) = 0.5983305037357300D+00
        ws( 45) = 0.5895579707690595D+00
        ws( 46) = 0.5806678849079351D+00
        ws( 47) = 0.5716556665801102D+00
        ws( 48) = 0.5625166246623000D+00
        ws( 49) = 0.5532460199356191D+00
        ws( 50) = 0.5438391453374550D+00
        ws( 51) = 0.5342914272951278D+00
        ws( 52) = 0.5245985563748944D+00
        ws( 53) = 0.5147566540551388D+00
        ws( 54) = 0.5047624878386432D+00
        ws( 55) = 0.4946137494011030D+00
        ws( 56) = 0.4843094150410077D+00
        ws( 57) = 0.4738502154768377D+00
        ws( 58) = 0.4632392475068472D+00
        ws( 59) = 0.4524827691086409D+00
        ws( 60) = 0.4415912322196050D+00
        ws( 61) = 0.4305806226457375D+00
        ws( 62) = 0.4194741749374848D+00
        ws( 63) = 0.4083045431952484D+00
        ws( 64) = 0.3971165244450837D+00
        ws( 65) = 0.3859703331381753D+00
        ws( 66) = 0.3749452116731464D+00
        ws( 67) = 0.3641426948752270D+00
        ws( 68) = 0.3536877384885307D+00
        ws( 69) = 0.3437248846825849D+00
        ws( 70) = 0.3344073055506678D+00
        ws( 71) = 0.3258799230622107D+00
        ws( 72) = 0.3182628124388148D+00
        ws( 73) = 0.3116401610750678D+00
        ws( 74) = 0.3060502852088944D+00
        ws( 75) = 0.3014741105797117D+00
        ws( 76) = 0.2978399107515631D+00
        ws( 77) = 0.2950631276989201D+00
        ws( 78) = 0.2931084405196644D+00
        ws( 79) = 0.2920427162445448D+00
        ws( 80) = 0.2920497233015845D+00
        ws( 81) = 0.2934105293555791D+00
        ws( 82) = 0.2965200802213695D+00
        ws( 83) = 0.3019773495422169D+00
        ws( 84) = 0.3107120523212167D+00
        ws( 85) = 0.3240985305906615D+00
        ws( 86) = 0.3439704519882760D+00
        ws( 87) = 0.3724591139635190D+00
        ws( 88) = 0.4115603333935220D+00
        ws( 89) = 0.4623235450677399D+00
        ws( 90) = 0.5241405160651361D+00
        ws( 91) = 0.5949079931346536D+00
        ws( 92) = 0.6727711272313613D+00
        ws( 93) = 0.7576689364868558D+00
        ws( 94) = 0.8530487031880297D+00
        ws( 95) = 0.9330750376177042D+00
        ws( 96) = 0.1318408879593239D+01
        endif
        if( idomain .eq.  185 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.3141592653589793D+01
        rk1r = 0.2000000000000000D-01
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  31
        err = 0.7565019297272375D-10
        xs(  1) = 0.3059107922703771D+00
        xs(  2) = 0.7806909716337049D+00
        xs(  3) = 0.1314340681910069D+01
        xs(  4) = 0.1878481658087614D+01
        xs(  5) = 0.2467539585169229D+01
        xs(  6) = 0.3081460746803855D+01
        xs(  7) = 0.3720978290752457D+01
        xs(  8) = 0.4386489615988746D+01
        xs(  9) = 0.5077861852206014D+01
        xs( 10) = 0.5794501324392517D+01
        xs( 11) = 0.6535486557716792D+01
        xs( 12) = 0.7299696807300177D+01
        xs( 13) = 0.8085914946010551D+01
        xs( 14) = 0.8892901838133541D+01
        xs( 15) = 0.9719445845675127D+01
        xs( 16) = 0.1056439301176816D+02
        xs( 17) = 0.1142666441148675D+02
        xs( 18) = 0.1230525114876562D+02
        xs( 19) = 0.1319925047477456D+02
        xs( 20) = 0.1410777948196545D+02
        xs( 21) = 0.1502994174844008D+02
        xs( 22) = 0.1596525097191631D+02
        xs( 23) = 0.1691283601992779D+02
        xs( 24) = 0.1787016130750466D+02
        xs( 25) = 0.1883586364056235D+02
        xs( 26) = 0.1982914646900323D+02
        xs( 27) = 0.2078061866094921D+02
        xs( 28) = 0.2173277893095528D+02
        xs( 29) = 0.2326235195387791D+02
        xs( 30) = 0.2379598222634002D+02
        xs( 31) = 0.2766817262779492D+02
        ws(  1) = 0.4255932794465688D+00
        ws(  2) = 0.5123908548688882D+00
        ws(  3) = 0.5508043851171583D+00
        ws(  4) = 0.5767980517339665D+00
        ws(  5) = 0.6013679333039208D+00
        ws(  6) = 0.6266108617166271D+00
        ws(  7) = 0.6524925129339491D+00
        ws(  8) = 0.6785064462493676D+00
        ws(  9) = 0.7041367274018147D+00
        ws( 10) = 0.7289864547473408D+00
        ws( 11) = 0.7527955024423021D+00
        ws( 12) = 0.7754209143365238D+00
        ws( 13) = 0.7968080354741545D+00
        ws( 14) = 0.8169632803902280D+00
        ws( 15) = 0.8359323316426622D+00
        ws( 16) = 0.8537813168144017D+00
        ws( 17) = 0.8705945341516201D+00
        ws( 18) = 0.8864378972751876D+00
        ws( 19) = 0.9013551795148731D+00
        ws( 20) = 0.9156605357874606D+00
        ws( 21) = 0.9288190941357251D+00
        ws( 22) = 0.9401343071126728D+00
        ws( 23) = 0.9571239627330396D+00
        ws( 24) = 0.9567311311637802D+00
        ws( 25) = 0.9853154966932389D+00
        ws( 26) = 0.9272305342917352D+00
        ws( 27) = 0.1101922359021633D+01
        ws( 28) = 0.9461451788320955D+00
        ws( 29) = 0.7690531077150508D+00
        ws( 30) = 0.2214779633608411D+01
        ws( 31) = 0.5446928179418426D+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 =  30
        err = 0.6345721980338046D-10
        xs(  1) = 0.4309894391115342D+00
        xs(  2) = 0.9942952762131512D+00
        xs(  3) = 0.1572368773043070D+01
        xs(  4) = 0.2168028650213090D+01
        xs(  5) = 0.2784894835671137D+01
        xs(  6) = 0.3425561745201650D+01
        xs(  7) = 0.4091493992710450D+01
        xs(  8) = 0.4783198658520788D+01
        xs(  9) = 0.5500462624064169D+01
        xs( 10) = 0.6242581120985528D+01
        xs( 11) = 0.7008547867706969D+01
        xs( 12) = 0.7797199499426068D+01
        xs( 13) = 0.8607318078734377D+01
        xs( 14) = 0.9437699804146279D+01
        xs( 15) = 0.1028719860517016D+02
        xs( 16) = 0.1115475034679475D+02
        xs( 17) = 0.1203939210647156D+02
        xs( 18) = 0.1294025777773212D+02
        xs( 19) = 0.1385657943115079D+02
        xs( 20) = 0.1478771516881389D+02
        xs( 21) = 0.1573321931563083D+02
        xs( 22) = 0.1669218318418119D+02
        xs( 23) = 0.1766456407952239D+02
        xs( 24) = 0.1865167865416096D+02
        xs( 25) = 0.1964806694506172D+02
        xs( 26) = 0.2066047407961306D+02
        xs( 27) = 0.2169059751406242D+02
        xs( 28) = 0.2265031633014760D+02
        xs( 29) = 0.2425100826963708D+02
        xs( 30) = 0.2490591891273654D+02
        ws(  1) = 0.5543529895797809D+00
        ws(  2) = 0.5705708526230410D+00
        ws(  3) = 0.5862045628522295D+00
        ws(  4) = 0.6057332491469548D+00
        ws(  5) = 0.6284318283150038D+00
        ws(  6) = 0.6531428514517645D+00
        ws(  7) = 0.6788020450239043D+00
        ws(  8) = 0.7045678940264649D+00
        ws(  9) = 0.7298393936914904D+00
        ws( 10) = 0.7542274914879611D+00
        ws( 11) = 0.7775104182662196D+00
        ws( 12) = 0.7995887311637192D+00
        ws( 13) = 0.8204471215138897D+00
        ws( 14) = 0.8401247436858715D+00
        ws( 15) = 0.8586954813877717D+00
        ws( 16) = 0.8762489421515858D+00
        ws( 17) = 0.8928819667864738D+00
        ws( 18) = 0.9087320002258606D+00
        ws( 19) = 0.9238481910338484D+00
        ws( 20) = 0.9381843764963878D+00
        ws( 21) = 0.9526304961985137D+00
        ws( 22) = 0.9663327942838109D+00
        ws( 23) = 0.9777067069661465D+00
        ws( 24) = 0.9932306652787199D+00
        ws( 25) = 0.1003300926532953D+01
        ws( 26) = 0.9981803499877143D+00
        ws( 27) = 0.1175685881649811D+01
        ws( 28) = 0.8633910516541350D+00
        ws( 29) = 0.2983734702806802D+00
        ws( 30) = 0.3623425993777503D+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 =  32
        err = 0.2028582478403651D-10
        xs(  1) = 0.4147151955167331D+00
        xs(  2) = 0.9563386322611818D+00
        xs(  3) = 0.1511285899670408D+01
        xs(  4) = 0.2081994644584331D+01
        xs(  5) = 0.2671872750039007D+01
        xs(  6) = 0.3283482387457136D+01
        xs(  7) = 0.3918352129305168D+01
        xs(  8) = 0.4577059663617345D+01
        xs(  9) = 0.5259399291502465D+01
        xs( 10) = 0.5964566478910562D+01
        xs( 11) = 0.6691327609871316D+01
        xs( 12) = 0.7438165082983470D+01
        xs( 13) = 0.8203403818994715D+01
        xs( 14) = 0.8985336595144075D+01
        xs( 15) = 0.9782371395290212D+01
        xs( 16) = 0.1059321703408805D+02
        xs( 17) = 0.1141709264571204D+02
        xs( 18) = 0.1225389401871601D+02
        xs( 19) = 0.1310419916905970D+02
        xs( 20) = 0.1396905165422066D+02
        xs( 21) = 0.1484955459280802D+02
        xs( 22) = 0.1574652418224164D+02
        xs( 23) = 0.1666039623676216D+02
        xs( 24) = 0.1759097076251276D+02
        xs( 25) = 0.1853869082318325D+02
        xs( 26) = 0.1950027132949539D+02
        xs( 27) = 0.2047917040810818D+02
        xs( 28) = 0.2147603764916964D+02
        xs( 29) = 0.2249442208928592D+02
        xs( 30) = 0.2349346399237669D+02
        xs( 31) = 0.2450432731136184D+02
        xs( 32) = 0.2674095545150840D+02
        ws(  1) = 0.5333091266908871D+00
        ws(  2) = 0.5482343777599968D+00
        ws(  3) = 0.5622189870615211D+00
        ws(  4) = 0.5797817333800064D+00
        ws(  5) = 0.6004033429903718D+00
        ws(  6) = 0.6230689994006940D+00
        ws(  7) = 0.6467638279982761D+00
        ws(  8) = 0.6706138095446436D+00
        ws(  9) = 0.6939285066868449D+00
        ws( 10) = 0.7161978632880399D+00
        ws( 11) = 0.7370694013092487D+00
        ws( 12) = 0.7563243317846674D+00
        ws( 13) = 0.7738661905732656D+00
        ws( 14) = 0.7897309695331962D+00
        ws( 15) = 0.8041196650686113D+00
        ws( 16) = 0.8174382654843045D+00
        ws( 17) = 0.8302958275946262D+00
        ws( 18) = 0.8434080132028813D+00
        ws( 19) = 0.8573797601898899D+00
        ws( 20) = 0.8725056174053760D+00
        ws( 21) = 0.8886729095882611D+00
        ws( 22) = 0.9053736737674989D+00
        ws( 23) = 0.9222808424324124D+00
        ws( 24) = 0.9381892826586512D+00
        ws( 25) = 0.9575455418686817D+00
        ws( 26) = 0.9709335878059990D+00
        ws( 27) = 0.9842806634708838D+00
        ws( 28) = 0.9765457104375512D+00
        ws( 29) = 0.1053526532630433D+01
        ws( 30) = 0.1186382307284211D+01
        ws( 31) = 0.8269948057571912D+00
        ws( 32) = 0.3980887408710444D+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 =  29
        err = 0.8497775159708968D-10
        xs(  1) = 0.4251114233094724D+00
        xs(  2) = 0.9807919283851503D+00
        xs(  3) = 0.1551216624510266D+01
        xs(  4) = 0.2139346760778592D+01
        xs(  5) = 0.2748963009179959D+01
        xs(  6) = 0.3382815159850599D+01
        xs(  7) = 0.4042487449940371D+01
        xs(  8) = 0.4728561007525649D+01
        xs(  9) = 0.5440856210418359D+01
        xs( 10) = 0.6178671846199968D+01
        xs( 11) = 0.6940985771695291D+01
        xs( 12) = 0.7726607664902566D+01
        xs( 13) = 0.8534287464891779D+01
        xs( 14) = 0.9362788073903054D+01
        xs( 15) = 0.1021093140633699D+02
        xs( 16) = 0.1107762628343540D+02
        xs( 17) = 0.1196188193171531D+02
        xs( 18) = 0.1286281653707158D+02
        xs( 19) = 0.1377968696121970D+02
        xs( 20) = 0.1471172495472952D+02
        xs( 21) = 0.1565846603327183D+02
        xs( 22) = 0.1662061116098362D+02
        xs( 23) = 0.1759250455099596D+02
        xs( 24) = 0.1858412814173492D+02
        xs( 25) = 0.1959079325490534D+02
        xs( 26) = 0.2060227863059624D+02
        xs( 27) = 0.2161558820826835D+02
        xs( 28) = 0.2370546580778615D+02
        xs( 29) = 0.2496117604720595D+02
        ws(  1) = 0.5468058463825460D+00
        ws(  2) = 0.5629099755646869D+00
        ws(  3) = 0.5785900727290024D+00
        ws(  4) = 0.5983157435888199D+00
        ws(  5) = 0.6213758930275265D+00
        ws(  6) = 0.6465893478895778D+00
        ws(  7) = 0.6728478670407209D+00
        ws(  8) = 0.6992652485254770D+00
        ws(  9) = 0.7252049268243036D+00
        ws( 10) = 0.7502534532256032D+00
        ws( 11) = 0.7741742255517221D+00
        ws( 12) = 0.7968600284454701D+00
        ws( 13) = 0.8182926409913212D+00
        ws( 14) = 0.8385117791791726D+00
        ws( 15) = 0.8575928161049896D+00
        ws( 16) = 0.8756309778648557D+00
        ws( 17) = 0.8927396372014892D+00
        ws( 18) = 0.9089805127634339D+00
        ws( 19) = 0.9246521950646609D+00
        ws( 20) = 0.9395806028266567D+00
        ws( 21) = 0.9532026222944634D+00
        ws( 22) = 0.9696844194244020D+00
        ws( 23) = 0.9826899451121329D+00
        ws( 24) = 0.9996838212249015D+00
        ws( 25) = 0.9399774100179469D+00
        ws( 26) = 0.1194809411498666D+01
        ws( 27) = 0.1142174275901214D+01
        ws( 28) = 0.2091788040635797D+01
        ws( 29) = 0.2384072270662337D+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 =  29
        err = 0.5107526708694824D-10
        xs(  1) = 0.3952976942266971D+00
        xs(  2) = 0.9113865441126369D+00
        xs(  3) = 0.1440631266438734D+01
        xs(  4) = 0.1987388360242959D+01
        xs(  5) = 0.2557628416483064D+01
        xs(  6) = 0.3156016417514748D+01
        xs(  7) = 0.3785127236082410D+01
        xs(  8) = 0.4445687995208685D+01
        xs(  9) = 0.5137181631868335D+01
        xs( 10) = 0.5858379079540455D+01
        xs( 11) = 0.6607697202784181D+01
        xs( 12) = 0.7383418815736737D+01
        xs( 13) = 0.8183824982812698D+01
        xs( 14) = 0.9007273366534228D+01
        xs( 15) = 0.9852242892503359D+01
        xs( 16) = 0.1071735685046775D+02
        xs( 17) = 0.1160138996254701D+02
        xs( 18) = 0.1250328465214313D+02
        xs( 19) = 0.1342210520477245D+02
        xs( 20) = 0.1435710776022052D+02
        xs( 21) = 0.1530769899127036D+02
        xs( 22) = 0.1627323430493535D+02
        xs( 23) = 0.1725485169133496D+02
        xs( 24) = 0.1824383272760135D+02
        xs( 25) = 0.1926835594261722D+02
        xs( 26) = 0.2028046054082122D+02
        xs( 27) = 0.2131409440656387D+02
        xs( 28) = 0.2236758279209490D+02
        xs( 29) = 0.2459392099335344D+02
        ws(  1) = 0.5082595743517228D+00
        ws(  2) = 0.5223911896252559D+00
        ws(  3) = 0.5369835982054197D+00
        ws(  4) = 0.5575633206414692D+00
        ws(  5) = 0.5837063360014630D+00
        ws(  6) = 0.6134928832849291D+00
        ws(  7) = 0.6448388540192471D+00
        ws(  8) = 0.6761874769066134D+00
        ws(  9) = 0.7065891185928044D+00
        ws( 10) = 0.7355383802646851D+00
        ws( 11) = 0.7628095417559083D+00
        ws( 12) = 0.7883459302966767D+00
        ws( 13) = 0.8121919706647704D+00
        ws( 14) = 0.8344509771615690D+00
        ws( 15) = 0.8552580580459337D+00
        ws( 16) = 0.8747668175647219D+00
        ws( 17) = 0.8931234812124015D+00
        ws( 18) = 0.9104959752634123D+00
        ws( 19) = 0.9270598140931662D+00
        ws( 20) = 0.9428584101706099D+00
        ws( 21) = 0.9580148037661491D+00
        ws( 22) = 0.9730972214065293D+00
        ws( 23) = 0.9898887923086221D+00
        ws( 24) = 0.9992761445478460D+00
        ws( 25) = 0.1006356678788530D+01
        ws( 26) = 0.1040972980396452D+01
        ws( 27) = 0.1174636000804036D+01
        ws( 28) = 0.9391388857851478D+00
        ws( 29) = 0.3964960597555635D+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 =  32
        err = 0.6344414120022954D-10
        xs(  1) = 0.4015400996554968D+00
        xs(  2) = 0.9260871319513754D+00
        xs(  3) = 0.1464008111456967D+01
        xs(  4) = 0.2018303738798401D+01
        xs(  5) = 0.2593188632026092D+01
        xs(  6) = 0.3192185312260654D+01
        xs(  7) = 0.3817758973766549D+01
        xs(  8) = 0.4471264575497787D+01
        xs(  9) = 0.5153067555136285D+01
        xs( 10) = 0.5862759790184360D+01
        xs( 11) = 0.6599398966748480D+01
        xs( 12) = 0.7361722158645774D+01
        xs( 13) = 0.8148312282523220D+01
        xs( 14) = 0.8957715943600036D+01
        xs( 15) = 0.9788520629492879D+01
        xs( 16) = 0.1063940169989493D+02
        xs( 17) = 0.1150914815991390D+02
        xs( 18) = 0.1239667520807661D+02
        xs( 19) = 0.1330102855126076D+02
        xs( 20) = 0.1422138439837360D+02
        xs( 21) = 0.1515704754842555D+02
        xs( 22) = 0.1610744440551482D+02
        xs( 23) = 0.1707215393688428D+02
        xs( 24) = 0.1805072237552863D+02
        xs( 25) = 0.1904346856054427D+02
        xs( 26) = 0.2004976420601649D+02
        xs( 27) = 0.2106999990129178D+02
        xs( 28) = 0.2210302661461815D+02
        xs( 29) = 0.2314961905139754D+02
        xs( 30) = 0.2421352107983608D+02
        xs( 31) = 0.2535128910064194D+02
        xs( 32) = 0.2643475732416159D+02
        ws(  1) = 0.5163946047153036D+00
        ws(  2) = 0.5311046986890070D+00
        ws(  3) = 0.5453856063441973D+00
        ws(  4) = 0.5639255421226953D+00
        ws(  5) = 0.5864363892512102D+00
        ws(  6) = 0.6119685149923441D+00
        ws(  7) = 0.6394024372341426D+00
        ws(  8) = 0.6676658922719356D+00
        ws(  9) = 0.6958679384074796D+00
        ws( 10) = 0.7233558729819874D+00
        ws( 11) = 0.7497092194554076D+00
        ws( 12) = 0.7746990420189136D+00
        ws( 13) = 0.7982377067646947D+00
        ws( 14) = 0.8203334492197930D+00
        ws( 15) = 0.8410547504909550D+00
        ws( 16) = 0.8605052435465237D+00
        ws( 17) = 0.8788068955884710D+00
        ws( 18) = 0.8960887426629646D+00
        ws( 19) = 0.9124800238152779D+00
        ws( 20) = 0.9281135626775719D+00
        ws( 21) = 0.9431169546016678D+00
        ws( 22) = 0.9576104649717280D+00
        ws( 23) = 0.9717752006400888D+00
        ws( 24) = 0.9857020347601545D+00
        ws( 25) = 0.9979179849934042D+00
        ws( 26) = 0.1014467665757842D+01
        ws( 27) = 0.1035901750830841D+01
        ws( 28) = 0.1038529250121412D+01
        ws( 29) = 0.1017472734440833D+01
        ws( 30) = 0.1001607126443297D+01
        ws( 31) = 0.1250169695932938D+01
        ws( 32) = 0.2107867699299279D+01
        endif
        if( idomain .eq.  191 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.3141592653589793D+01
        rk1r = 0.1570796326794897D+01
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  34
        err = 0.5400538972941443D-10
        xs(  1) = 0.3962515318624773D+00
        xs(  2) = 0.9121957188846878D+00
        xs(  3) = 0.1437653398658621D+01
        xs(  4) = 0.1974397045248106D+01
        xs(  5) = 0.2526314292845147D+01
        xs(  6) = 0.3097426708701894D+01
        xs(  7) = 0.3691254852785781D+01
        xs(  8) = 0.4310439296767006D+01
        xs(  9) = 0.4956586826528304D+01
        xs( 10) = 0.5630319203009298D+01
        xs( 11) = 0.6331452516147065D+01
        xs( 12) = 0.7059223915600787D+01
        xs( 13) = 0.7812505352546668D+01
        xs( 14) = 0.8589975538699107D+01
        xs( 15) = 0.9390244646752810D+01
        xs( 16) = 0.1021193795769847D+02
        xs( 17) = 0.1105374820210935D+02
        xs( 18) = 0.1191446580418111D+02
        xs( 19) = 0.1279299443005071D+02
        xs( 20) = 0.1368835736012541D+02
        xs( 21) = 0.1459969814920138D+02
        xs( 22) = 0.1552627925961803D+02
        xs( 23) = 0.1646747805367863D+02
        xs( 24) = 0.1742280349091986D+02
        xs( 25) = 0.1839174543308101D+02
        xs( 26) = 0.1937448118249576D+02
        xs( 27) = 0.2037003482395483D+02
        xs( 28) = 0.2137836158408153D+02
        xs( 29) = 0.2240179429760373D+02
        xs( 30) = 0.2343949371938034D+02
        xs( 31) = 0.2448710174087505D+02
        xs( 32) = 0.2554582906425538D+02
        xs( 33) = 0.2664734441052710D+02
        xs( 34) = 0.2777400008202998D+02
        ws(  1) = 0.5091369652679992D+00
        ws(  2) = 0.5208447437117805D+00
        ws(  3) = 0.5305097551384627D+00
        ws(  4) = 0.5436445848436274D+00
        ws(  5) = 0.5608700551067279D+00
        ws(  6) = 0.5819479185889352D+00
        ws(  7) = 0.6061509773308505D+00
        ws(  8) = 0.6324847038708742D+00
        ws(  9) = 0.6599107803809073D+00
        ws( 10) = 0.6875193959533862D+00
        ws( 11) = 0.7146164620099541D+00
        ws( 12) = 0.7407354544483041D+00
        ws( 13) = 0.7656051457003366D+00
        ws( 14) = 0.7891022187886916D+00
        ws( 15) = 0.8112060231763804D+00
        ws( 16) = 0.8319622355865245D+00
        ws( 17) = 0.8514564335737549D+00
        ws( 18) = 0.8697959445343384D+00
        ws( 19) = 0.8870984537007442D+00
        ws( 20) = 0.9034845452114844D+00
        ws( 21) = 0.9190741678871992D+00
        ws( 22) = 0.9339869937926549D+00
        ws( 23) = 0.9483219154344471D+00
        ws( 24) = 0.9622676516864279D+00
        ws( 25) = 0.9756540726368716D+00
        ws( 26) = 0.9891614865275975D+00
        ws( 27) = 0.1002581646906621D+01
        ws( 28) = 0.1016999186528582D+01
        ws( 29) = 0.1029644394472089D+01
        ws( 30) = 0.1032244705711526D+01
        ws( 31) = 0.1037468251129017D+01
        ws( 32) = 0.1090053510693598D+01
        ws( 33) = 0.1284642128942538D+01
        ws( 34) = 0.1578414501265983D+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 =  35
        err = 0.9072719954933736D-10
        xs(  1) = 0.3948155581153093D+00
        xs(  2) = 0.9061360734330411D+00
        xs(  3) = 0.1420647190781670D+01
        xs(  4) = 0.1937349473758416D+01
        xs(  5) = 0.2458446328773920D+01
        xs(  6) = 0.2987641153176363D+01
        xs(  7) = 0.3529553253459755D+01
        xs(  8) = 0.4089108908118905D+01
        xs(  9) = 0.4670911542892319D+01
        xs( 10) = 0.5278697978749730D+01
        xs( 11) = 0.5914995808265470D+01
        xs( 12) = 0.6581048487108664D+01
        xs( 13) = 0.7276975840785365D+01
        xs( 14) = 0.8002061369704860D+01
        xs( 15) = 0.8755054870127976D+01
        xs( 16) = 0.9534424399644905D+01
        xs( 17) = 0.1033853817827603D+02
        xs( 18) = 0.1116578334646850D+02
        xs( 19) = 0.1201463718730320D+02
        xs( 20) = 0.1288370580783164D+02
        xs( 21) = 0.1377174231597673D+02
        xs( 22) = 0.1467765252895729D+02
        xs( 23) = 0.1560049397763935D+02
        xs( 24) = 0.1653947310950825D+02
        xs( 25) = 0.1749395466448993D+02
        xs( 26) = 0.1846333466687419D+02
        xs( 27) = 0.1944764159157820D+02
        xs( 28) = 0.2044608674634156D+02
        xs( 29) = 0.2145823434895336D+02
        xs( 30) = 0.2248587077556520D+02
        xs( 31) = 0.2353043633874935D+02
        xs( 32) = 0.2458915740903673D+02
        xs( 33) = 0.2566364249063938D+02
        xs( 34) = 0.2676881225892514D+02
        xs( 35) = 0.2783740730857553D+02
        ws(  1) = 0.5065612080456932D+00
        ws(  2) = 0.5135929547913106D+00
        ws(  3) = 0.5153993189731029D+00
        ws(  4) = 0.5183866980671156D+00
        ws(  5) = 0.5244331340515274D+00
        ws(  6) = 0.5347366948779823D+00
        ws(  7) = 0.5499193177831184D+00
        ws(  8) = 0.5699685888746971D+00
        ws(  9) = 0.5942653817939052D+00
        ws( 10) = 0.6217299150372469D+00
        ws( 11) = 0.6510700160553159D+00
        ws( 12) = 0.6810502382455649D+00
        ws( 13) = 0.7106798541095815D+00
        ws( 14) = 0.7392786015417402D+00
        ws( 15) = 0.7664500679822880D+00
        ws( 16) = 0.7920150838078284D+00
        ws( 17) = 0.8159425110400037D+00
        ws( 18) = 0.8382934514110844D+00
        ws( 19) = 0.8591816454828407D+00
        ws( 20) = 0.8787475934248029D+00
        ws( 21) = 0.8971429242304084D+00
        ws( 22) = 0.9145204150293184D+00
        ws( 23) = 0.9310327233292160D+00
        ws( 24) = 0.9468149626366043D+00
        ws( 25) = 0.9620815583752645D+00
        ws( 26) = 0.9766317909254283D+00
        ws( 27) = 0.9913923873329770D+00
        ws( 28) = 0.1006166836915955D+01
        ws( 29) = 0.1021360184032510D+01
        ws( 30) = 0.1033803913443162D+01
        ws( 31) = 0.1038417441537110D+01
        ws( 32) = 0.1049750721401081D+01
        ws( 33) = 0.1115925737960827D+01
        ws( 34) = 0.1363642907447342D+01
        ws( 35) = 0.1306537226318681D+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 =  39
        err = 0.8889887496518756D-10
        xs(  1) = 0.4124738291847884D+00
        xs(  2) = 0.9449871784974645D+00
        xs(  3) = 0.1476633030947210D+01
        xs(  4) = 0.2003470717100582D+01
        xs(  5) = 0.2524440333905921D+01
        xs(  6) = 0.3039699644724982D+01
        xs(  7) = 0.3550303167257126D+01
        xs(  8) = 0.4058007011855536D+01
        xs(  9) = 0.4565155044857783D+01
        xs( 10) = 0.5074655568747785D+01
        xs( 11) = 0.5590006905601891D+01
        xs( 12) = 0.6115285261294638D+01
        xs( 13) = 0.6655001867643403D+01
        xs( 14) = 0.7213784549949158D+01
        xs( 15) = 0.7795930724278998D+01
        xs( 16) = 0.8404962045620834D+01
        xs( 17) = 0.9043323241659406D+01
        xs( 18) = 0.9712298282222559D+01
        xs( 19) = 0.1041212145071713D+02
        xs( 20) = 0.1114220319446683D+02
        xs( 21) = 0.1190138774715451D+02
        xs( 22) = 0.1268818729640472D+02
        xs( 23) = 0.1350096802763975D+02
        xs( 24) = 0.1433808426957281D+02
        xs( 25) = 0.1519796754791743D+02
        xs( 26) = 0.1607918121977741D+02
        xs( 27) = 0.1698045002877363D+02
        xs( 28) = 0.1790067712895237D+02
        xs( 29) = 0.1883895285626903D+02
        xs( 30) = 0.1979455811506439D+02
        xs( 31) = 0.2076692888730127D+02
        xs( 32) = 0.2175578267102880D+02
        xs( 33) = 0.2276105309165537D+02
        xs( 34) = 0.2378277776567979D+02
        xs( 35) = 0.2482213307616555D+02
        xs( 36) = 0.2588299113177923D+02
        xs( 37) = 0.2696710322674366D+02
        xs( 38) = 0.2806767309099150D+02
        xs( 39) = 0.2918944665393299D+02
        ws(  1) = 0.5287853587884623D+00
        ws(  2) = 0.5332312250199776D+00
        ws(  3) = 0.5295475085208594D+00
        ws(  4) = 0.5239641183170880D+00
        ws(  5) = 0.5180058262867796D+00
        ws(  6) = 0.5126918520755371D+00
        ws(  7) = 0.5088098201712609D+00
        ws(  8) = 0.5069887973894062D+00
        ws(  9) = 0.5077913373523708D+00
        ws( 10) = 0.5117927215112885D+00
        ws( 11) = 0.5195915727878538D+00
        ws( 12) = 0.5317224317168004D+00
        ws( 13) = 0.5484898778871077D+00
        ws( 14) = 0.5697995233971038D+00
        ws( 15) = 0.5950849723856086D+00
        ws( 16) = 0.6233864488011159D+00
        ws( 17) = 0.6535478709446851D+00
        ws( 18) = 0.6844372835959004D+00
        ws( 19) = 0.7151063702942086D+00
        ws( 20) = 0.7448605334109981D+00
        ws( 21) = 0.7732574976691291D+00
        ws( 22) = 0.8000670701536354D+00
        ws( 23) = 0.8252186427080273D+00
        ws( 24) = 0.8487516183810065D+00
        ws( 25) = 0.8707751114652064D+00
        ws( 26) = 0.8914392876418026D+00
        ws( 27) = 0.9109172156448935D+00
        ws( 28) = 0.9293801192883824D+00
        ws( 29) = 0.9470381208282218D+00
        ws( 30) = 0.9640520513823239D+00
        ws( 31) = 0.9808340852447449D+00
        ws( 32) = 0.9973594618857629D+00
        ws( 33) = 0.1012718800728156D+01
        ws( 34) = 0.1027207097646724D+01
        ws( 35) = 0.1045304037382692D+01
        ws( 36) = 0.1081028929031800D+01
        ws( 37) = 0.1148455325368601D+01
        ws( 38) = 0.1194955345823852D+01
        ws( 39) = 0.1208075487377708D+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 =  41
        err = 0.6698688479125983D-10
        xs(  1) = 0.4711288715528414D+00
        xs(  2) = 0.1079059150808630D+01
        xs(  3) = 0.1685066389352413D+01
        xs(  4) = 0.2283623767185859D+01
        xs(  5) = 0.2872027685002431D+01
        xs(  6) = 0.3448601906780693D+01
        xs(  7) = 0.4012535498830165D+01
        xs(  8) = 0.4563840707536044D+01
        xs(  9) = 0.5103269515145175D+01
        xs( 10) = 0.5632179560841349D+01
        xs( 11) = 0.6152389240401561D+01
        xs( 12) = 0.6666069553654731D+01
        xs( 13) = 0.7175701400628756D+01
        xs( 14) = 0.7684107489333467D+01
        xs( 15) = 0.8194551276806648D+01
        xs( 16) = 0.8710864252027836D+01
        xs( 17) = 0.9237519873312792D+01
        xs( 18) = 0.9779546916547284D+01
        xs( 19) = 0.1034220451093614D+02
        xs( 20) = 0.1093044560507641D+02
        xs( 21) = 0.1154832856198918D+02
        xs( 22) = 0.1219859286300421D+02
        xs( 23) = 0.1288253588062375D+02
        xs( 24) = 0.1360017572443766D+02
        xs( 25) = 0.1435057764634760D+02
        xs( 26) = 0.1513221010889473D+02
        xs( 27) = 0.1594324679909912D+02
        xs( 28) = 0.1678178742800023D+02
        xs( 29) = 0.1764600347566594D+02
        xs( 30) = 0.1853422486813431D+02
        xs( 31) = 0.1944500271816865D+02
        xs( 32) = 0.2037710494074890D+02
        xs( 33) = 0.2132957801706133D+02
        xs( 34) = 0.2230179073020604D+02
        xs( 35) = 0.2329327721765445D+02
        xs( 36) = 0.2430412071449156D+02
        xs( 37) = 0.2533494709386988D+02
        xs( 38) = 0.2639059502877251D+02
        xs( 39) = 0.2746700353283130D+02
        xs( 40) = 0.2857780609314403D+02
        xs( 41) = 0.2971430021190253D+02
        ws(  1) = 0.6039064750912697D+00
        ws(  2) = 0.6084163707493424D+00
        ws(  3) = 0.6028422878529006D+00
        ws(  4) = 0.5938347221544183D+00
        ws(  5) = 0.5826950468316152D+00
        ws(  6) = 0.5703187021367687D+00
        ws(  7) = 0.5575519113414189D+00
        ws(  8) = 0.5451861826470494D+00
        ws(  9) = 0.5339002466224686D+00
        ws( 10) = 0.5242247793450695D+00
        ws( 11) = 0.5165571430912855D+00
        ws( 12) = 0.5112164249590605D+00
        ws( 13) = 0.5085159862791182D+00
        ws( 14) = 0.5088377782309396D+00
        ws( 15) = 0.5126868682884484D+00
        ws( 16) = 0.5206858821380834D+00
        ws( 17) = 0.5334689517554875D+00
        ws( 18) = 0.5514710132764408D+00
        ws( 19) = 0.5746800532431146D+00
        ws( 20) = 0.6024859599631389D+00
        ws( 21) = 0.6337385287640245D+00
        ws( 22) = 0.6670032507435455D+00
        ws( 23) = 0.7008800150629253D+00
        ws( 24) = 0.7342377485371699D+00
        ws( 25) = 0.7663057456857539D+00
        ws( 26) = 0.7966511337432028D+00
        ws( 27) = 0.8251032476408127D+00
        ws( 28) = 0.8516716242250371D+00
        ws( 29) = 0.8764824733034928D+00
        ws( 30) = 0.8997162231091367D+00
        ws( 31) = 0.9216226739537535D+00
        ws( 32) = 0.9424423606140090D+00
        ws( 33) = 0.9624854299996447D+00
        ws( 34) = 0.9818922869089604D+00
        ws( 35) = 0.1000577742759121D+01
        ws( 36) = 0.1019968636987548D+01
        ws( 37) = 0.1041527467009925D+01
        ws( 38) = 0.1073850382909686D+01
        ws( 39) = 0.1109626828097073D+01
        ws( 40) = 0.1173841683316143D+01
        ws( 41) = 0.1362309963278054D+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 =  43
        err = 0.9999200744753650D-10
        xs(  1) = 0.5104989773339166D+00
        xs(  2) = 0.1170004196525335D+01
        xs(  3) = 0.1829162667928788D+01
        xs(  4) = 0.2482676163376161D+01
        xs(  5) = 0.3127924350711934D+01
        xs(  6) = 0.3762925607781970D+01
        xs(  7) = 0.4386117874966406D+01
        xs(  8) = 0.4996341141436757D+01
        xs(  9) = 0.5592855806553006D+01
        xs( 10) = 0.6175363328237015D+01
        xs( 11) = 0.6744016500553243D+01
        xs( 12) = 0.7299411307561899D+01
        xs( 13) = 0.7842556494584475D+01
        xs( 14) = 0.8374824185194402D+01
        xs( 15) = 0.8897892988859541D+01
        xs( 16) = 0.9413700624596432D+01
        xs( 17) = 0.9924425422030380D+01
        xs( 18) = 0.1043251552308711D+02
        xs( 19) = 0.1094077702914639D+02
        xs( 20) = 0.1145250920309505D+02
        xs( 21) = 0.1197163412298638D+02
        xs( 22) = 0.1250272866306202D+02
        xs( 23) = 0.1305086561014053D+02
        xs( 24) = 0.1362123225802443D+02
        xs( 25) = 0.1421859668018352D+02
        xs( 26) = 0.1484677721021707D+02
        xs( 27) = 0.1550828755879497D+02
        xs( 28) = 0.1620425773919874D+02
        xs( 29) = 0.1693460832716724D+02
        xs( 30) = 0.1769836666752524D+02
        xs( 31) = 0.1849400457635943D+02
        xs( 32) = 0.1931972716988056D+02
        xs( 33) = 0.2017367840774654D+02
        xs( 34) = 0.2105409765979463D+02
        xs( 35) = 0.2195939803952160D+02
        xs( 36) = 0.2288824203812957D+02
        xs( 37) = 0.2383970325284395D+02
        xs( 38) = 0.2481292429590767D+02
        xs( 39) = 0.2580770136979015D+02
        xs( 40) = 0.2682357666180655D+02
        xs( 41) = 0.2786111197253649D+02
        xs( 42) = 0.2893312319442631D+02
        xs( 43) = 0.3003058541144283D+02
        ws(  1) = 0.6545782934691511D+00
        ws(  2) = 0.6607593890693210D+00
        ws(  3) = 0.6568557284025682D+00
        ws(  4) = 0.6497500713814580D+00
        ws(  5) = 0.6404182324210232D+00
        ws(  6) = 0.6293240006363348D+00
        ws(  7) = 0.6168668351397306D+00
        ws(  8) = 0.6034560607452606D+00
        ws(  9) = 0.5895233215983443D+00
        ws( 10) = 0.5755173124097851D+00
        ws( 11) = 0.5618888774928333D+00
        ws( 12) = 0.5490697123547779D+00
        ws( 13) = 0.5374503391286310D+00
        ws( 14) = 0.5273656467623751D+00
        ws( 15) = 0.5190952691852012D+00
        ws( 16) = 0.5128826038552592D+00
        ws( 17) = 0.5089735259397637D+00
        ws( 18) = 0.5076719825474053D+00
        ws( 19) = 0.5093985103874470D+00
        ws( 20) = 0.5147187331026801D+00
        ws( 21) = 0.5242964726990358D+00
        ws( 22) = 0.5387446039640013D+00
        ws( 23) = 0.5584031336400778D+00
        ws( 24) = 0.5831341333760062D+00
        ws( 25) = 0.6122372772810070D+00
        ws( 26) = 0.6445439831008358D+00
        ws( 27) = 0.6786618368507940D+00
        ws( 28) = 0.7132597058866561D+00
        ws( 29) = 0.7472734924015171D+00
        ws( 30) = 0.7799838660868206D+00
        ws( 31) = 0.8109892361610472D+00
        ws( 32) = 0.8401424897440278D+00
        ws( 33) = 0.8674661950622422D+00
        ws( 34) = 0.8931152635345752D+00
        ws( 35) = 0.9172588694276755D+00
        ws( 36) = 0.9402373612357730D+00
        ws( 37) = 0.9624755076706063D+00
        ws( 38) = 0.9837736097063636D+00
        ws( 39) = 0.1005795737880824D+01
        ws( 40) = 0.1027978657569565D+01
        ws( 41) = 0.1054893044291707D+01
        ws( 42) = 0.1115262426808630D+01
        ws( 43) = 0.1342886683250887D+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 =  47
        err = 0.5942768727506946D-10
        xs(  1) = 0.5339353332568078D+00
        xs(  2) = 0.1224169131658667D+01
        xs(  3) = 0.1915091629888869D+01
        xs(  4) = 0.2601686893496337D+01
        xs(  5) = 0.3281641156341605D+01
        xs(  6) = 0.3953177941112898D+01
        xs(  7) = 0.4614798104650931D+01
        xs(  8) = 0.5265232113830956D+01
        xs(  9) = 0.5903432533969322D+01
        xs( 10) = 0.6528575539634055D+01
        xs( 11) = 0.7140065069866042D+01
        xs( 12) = 0.7737539164743090D+01
        xs( 13) = 0.8320879006408376D+01
        xs( 14) = 0.8890220262660492D+01
        xs( 15) = 0.9445964468900664D+01
        xs( 16) = 0.9988785745574914D+01
        xs( 17) = 0.1051962615960055D+02
        xs( 18) = 0.1103967464144658D+02
        xs( 19) = 0.1155033280809310D+02
        xs( 20) = 0.1205318356280297D+02
        xs( 21) = 0.1254998497889541D+02
        xs( 22) = 0.1304270590644359D+02
        xs( 23) = 0.1353360618778364D+02
        xs( 24) = 0.1402535146274894D+02
        xs( 25) = 0.1452113736503505D+02
        xs( 26) = 0.1502477561487969D+02
        xs( 27) = 0.1554067944330601D+02
        xs( 28) = 0.1607370068200335D+02
        xs( 29) = 0.1662881315723758D+02
        xs( 30) = 0.1721068431405962D+02
        xs( 31) = 0.1782322099986575D+02
        xs( 32) = 0.1846920992580323D+02
        xs( 33) = 0.1915016165124003D+02
        xs( 34) = 0.1986638878889342D+02
        xs( 35) = 0.2061725371486118D+02
        xs( 36) = 0.2140147797305131D+02
        xs( 37) = 0.2221743253626597D+02
        xs( 38) = 0.2306336389517637D+02
        xs( 39) = 0.2393756636311703D+02
        xs( 40) = 0.2483850763558848D+02
        xs( 41) = 0.2576493533771730D+02
        xs( 42) = 0.2671588024917988D+02
        xs( 43) = 0.2769101939806066D+02
        xs( 44) = 0.2869208343564993D+02
        xs( 45) = 0.2970970866563326D+02
        xs( 46) = 0.3077186254086364D+02
        xs( 47) = 0.3192202610947495D+02
        ws(  1) = 0.6847483025052976D+00
        ws(  2) = 0.6919770653644995D+00
        ws(  3) = 0.6892220280018146D+00
        ws(  4) = 0.6835996503032509D+00
        ws(  5) = 0.6760156080475611D+00
        ws(  6) = 0.6668086621677873D+00
        ws(  7) = 0.6562201503192310D+00
        ws(  8) = 0.6444732600408447D+00
        ws(  9) = 0.6317902071745027D+00
        ws( 10) = 0.6183963569483414D+00
        ws( 11) = 0.6045222255298589D+00
        ws( 12) = 0.5904059670744656D+00
        ws( 13) = 0.5762961266877104D+00
        ws( 14) = 0.5624531791639423D+00
        ws( 15) = 0.5491476487288197D+00
        ws( 16) = 0.5366522727350197D+00
        ws( 17) = 0.5252273203213546D+00
        ws( 18) = 0.5151038294167741D+00
        ws( 19) = 0.5064764655227263D+00
        ws( 20) = 0.4995174680019539D+00
        ws( 21) = 0.4944121454413658D+00
        ws( 22) = 0.4914043815174519D+00
        ws( 23) = 0.4908382697490660D+00
        ws( 24) = 0.4931832873186232D+00
        ws( 25) = 0.4990239202640189D+00
        ws( 26) = 0.5089908207791188D+00
        ws( 27) = 0.5236308535026433D+00
        ws( 28) = 0.5432479378887324D+00
        ws( 29) = 0.5677627951799132D+00
        ws( 30) = 0.5966369464062063D+00
        ws( 31) = 0.6289035502012096D+00
        ws( 32) = 0.6633245940390119D+00
        ws( 33) = 0.6986265967488228D+00
        ws( 34) = 0.7337160274562196D+00
        ws( 35) = 0.7677953460855987D+00
        ws( 36) = 0.8003777354945774D+00
        ws( 37) = 0.8312348437165049D+00
        ws( 38) = 0.8603429697233202D+00
        ws( 39) = 0.8878237422920972D+00
        ws( 40) = 0.9138631288977160D+00
        ws( 41) = 0.9387944299267953D+00
        ws( 42) = 0.9632114615140703D+00
        ws( 43) = 0.9858445293732334D+00
        ws( 44) = 0.1011834666041831D+01
        ws( 45) = 0.1037333596694191D+01
        ws( 46) = 0.1039446762544335D+01
        ws( 47) = 0.1781923650112641D+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 =  50
        err = 0.6516045665518019D-10
        xs(  1) = 0.5619158989701205D+00
        xs(  2) = 0.1288648685425716D+01
        xs(  3) = 0.2016875183186979D+01
        xs(  4) = 0.2741718273196540D+01
        xs(  5) = 0.3461095915013150D+01
        xs(  6) = 0.4173429083686958D+01
        xs(  7) = 0.4877357085480473D+01
        xs(  8) = 0.5571678865772574D+01
        xs(  9) = 0.6255338632134252D+01
        xs( 10) = 0.6927421724745798D+01
        xs( 11) = 0.7587152476511513D+01
        xs( 12) = 0.8233892409441335D+01
        xs( 13) = 0.8867139354256754D+01
        xs( 14) = 0.9486528910760994D+01
        xs( 15) = 0.1009183989768495D+02
        xs( 16) = 0.1068300542054631D+02
        xs( 17) = 0.1126013084903658D+02
        xs( 18) = 0.1182351863585805D+02
        xs( 19) = 0.1237369663621102D+02
        xs( 20) = 0.1291144178482901D+02
        xs( 21) = 0.1343778769130060D+02
        xs( 22) = 0.1395400766766576D+02
        xs( 23) = 0.1446157602548221D+02
        xs( 24) = 0.1496212505912534D+02
        xs( 25) = 0.1545742218174714D+02
        xs( 26) = 0.1594938436686827D+02
        xs( 27) = 0.1644013083522556D+02
        xs( 28) = 0.1693206362611743D+02
        xs( 29) = 0.1742796660064796D+02
        xs( 30) = 0.1793111500311524D+02
        xs( 31) = 0.1844536851067805D+02
        xs( 32) = 0.1897518128143484D+02
        xs( 33) = 0.1952544116695477D+02
        xs( 34) = 0.2010109158387225D+02
        xs( 35) = 0.2070659654334997D+02
        xs( 36) = 0.2134542179634431D+02
        xs( 37) = 0.2201972654642616D+02
        xs( 38) = 0.2273035385812107D+02
        xs( 39) = 0.2347706338100674D+02
        xs( 40) = 0.2425885949954868D+02
        xs( 41) = 0.2507431235463716D+02
        xs( 42) = 0.2592179689041087D+02
        xs( 43) = 0.2679974669697225D+02
        xs( 44) = 0.2770665837609232D+02
        xs( 45) = 0.2864151833035742D+02
        xs( 46) = 0.2960425606414365D+02
        xs( 47) = 0.3059192834857040D+02
        xs( 48) = 0.3161118245167714D+02
        xs( 49) = 0.3268938752895087D+02
        xs( 50) = 0.3369727423863565D+02
        ws(  1) = 0.7207184110679800D+00
        ws(  2) = 0.7288816233721108D+00
        ws(  3) = 0.7269588274160909D+00
        ws(  4) = 0.7223982348402354D+00
        ws(  5) = 0.7160970226235360D+00
        ws(  6) = 0.7083432591061121D+00
        ws(  7) = 0.6993127516744987D+00
        ws(  8) = 0.6891548974758746D+00
        ws(  9) = 0.6780122249092269D+00
        ws( 10) = 0.6660247143642304D+00
        ws( 11) = 0.6533303944270422D+00
        ws( 12) = 0.6400657562184401D+00
        ws( 13) = 0.6263673131641740D+00
        ws( 14) = 0.6123747553058024D+00
        ws( 15) = 0.5982357705243636D+00
        ws( 16) = 0.5841124160218301D+00
        ws( 17) = 0.5701883579403536D+00
        ws( 18) = 0.5566747670713109D+00
        ws( 19) = 0.5438105720214573D+00
        ws( 20) = 0.5318522812508247D+00
        ws( 21) = 0.5210524401540889D+00
        ws( 22) = 0.5116340131306807D+00
        ws( 23) = 0.5037751778119886D+00
        ws( 24) = 0.4976172174507378D+00
        ws( 25) = 0.4932956140023167D+00
        ws( 26) = 0.4909805928045569D+00
        ws( 27) = 0.4909110250818202D+00
        ws( 28) = 0.4934166549935016D+00
        ws( 29) = 0.4989334530892781D+00
        ws( 30) = 0.5080062241509987D+00
        ws( 31) = 0.5212456876047471D+00
        ws( 32) = 0.5392009394413499D+00
        ws( 33) = 0.5621521105455112D+00
        ws( 34) = 0.5899018939142039D+00
        ws( 35) = 0.6216909796899442D+00
        ws( 36) = 0.6563194621712837D+00
        ws( 37) = 0.6924262814458307D+00
        ws( 38) = 0.7287822608882601D+00
        ws( 39) = 0.7644651437318588D+00
        ws( 40) = 0.7988846342325440D+00
        ws( 41) = 0.8317594008231207D+00
        ws( 42) = 0.8629498851625607D+00
        ws( 43) = 0.8926343877158690D+00
        ws( 44) = 0.9210840854714439D+00
        ws( 45) = 0.9480543051412690D+00
        ws( 46) = 0.9769431839100394D+00
        ws( 47) = 0.1004902722006456D+01
        ws( 48) = 0.1002486305020502D+01
        ws( 49) = 0.1194353669070504D+01
        ws( 50) = 0.1398777311601451D+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 =  54
        err = 0.4646479405664821D-10
        xs(  1) = 0.5747762913857766D+00
        xs(  2) = 0.1318400628242807D+01
        xs(  3) = 0.2064165483758085D+01
        xs(  4) = 0.2807415650874659D+01
        xs(  5) = 0.3546333116683526D+01
        xs(  6) = 0.4279585982781186D+01
        xs(  7) = 0.5006031536773466D+01
        xs(  8) = 0.5724651509794579D+01
        xs(  9) = 0.6434533749596747D+01
        xs( 10) = 0.7134865388548204D+01
        xs( 11) = 0.7824928731062139D+01
        xs( 12) = 0.8504097505518873D+01
        xs( 13) = 0.9171833132601510D+01
        xs( 14) = 0.9827681396034819D+01
        xs( 15) = 0.1047127017112185D+02
        xs( 16) = 0.1110230892496537D+02
        xs( 17) = 0.1172059063681925D+02
        xs( 18) = 0.1232599662812783D+02
        xs( 19) = 0.1291850454744906D+02
        xs( 20) = 0.1349819939168965D+02
        xs( 21) = 0.1406528682578033D+02
        xs( 22) = 0.1462010704074285D+02
        xs( 23) = 0.1516314619315367D+02
        xs( 24) = 0.1569504206446278D+02
        xs( 25) = 0.1621658213961804D+02
        xs( 26) = 0.1672869579031815D+02
        xs( 27) = 0.1723244573197412D+02
        xs( 28) = 0.1772902510029166D+02
        xs( 29) = 0.1821976495885963D+02
        xs( 30) = 0.1870615511211525D+02
        xs( 31) = 0.1918988231533921D+02
        xs( 32) = 0.1967289480821381D+02
        xs( 33) = 0.2015750278566296D+02
        xs( 34) = 0.2064650860101748D+02
        xs( 35) = 0.2114332765220602D+02
        xs( 36) = 0.2165203298083811D+02
        xs( 37) = 0.2217725919761300D+02
        xs( 38) = 0.2272393586564978D+02
        xs( 39) = 0.2329687188592096D+02
        xs( 40) = 0.2390027492460189D+02
        xs( 41) = 0.2453734489549166D+02
        xs( 42) = 0.2521007174097328D+02
        xs( 43) = 0.2591928274748611D+02
        xs( 44) = 0.2666487233143525D+02
        xs( 45) = 0.2744609018831937D+02
        xs( 46) = 0.2826182563144526D+02
        xs( 47) = 0.2911083609929664D+02
        xs( 48) = 0.2999197692311400D+02
        xs( 49) = 0.3090448767980459D+02
        xs( 50) = 0.3184772239071794D+02
        xs( 51) = 0.3282092730631423D+02
        xs( 52) = 0.3383318752270438D+02
        xs( 53) = 0.3489547607541281D+02
        xs( 54) = 0.3598880925040915D+02
        ws(  1) = 0.7372813102788996D+00
        ws(  2) = 0.7460715982888105D+00
        ws(  3) = 0.7448872529262873D+00
        ws(  4) = 0.7413284881730635D+00
        ws(  5) = 0.7362877727886382D+00
        ws(  6) = 0.7300283293077523D+00
        ws(  7) = 0.7226933145714557D+00
        ws(  8) = 0.7143947039964348D+00
        ws(  9) = 0.7052343618527227D+00
        ws( 10) = 0.6953093621439523D+00
        ws( 11) = 0.6847130075558594D+00
        ws( 12) = 0.6735348352570671D+00
        ws( 13) = 0.6618607558010594D+00
        ws( 14) = 0.6497737602003988D+00
        ws( 15) = 0.6373553370149470D+00
        ws( 16) = 0.6246875873370126D+00
        ws( 17) = 0.6118559233368115D+00
        ws( 18) = 0.5989521487765368D+00
        ws( 19) = 0.5860776299767630D+00
        ws( 20) = 0.5733460977058538D+00
        ws( 21) = 0.5608852694581287D+00
        ws( 22) = 0.5488360869884694D+00
        ws( 23) = 0.5373485507352145D+00
        ws( 24) = 0.5265745830626344D+00
        ws( 25) = 0.5166606213403944D+00
        ws( 26) = 0.5077438597587625D+00
        ws( 27) = 0.4999547597858333D+00
        ws( 28) = 0.4934254815583865D+00
        ws( 29) = 0.4883019217601040D+00
        ws( 30) = 0.4847584653765589D+00
        ws( 31) = 0.4830189678054208D+00
        ws( 32) = 0.4833887856869714D+00
        ws( 33) = 0.4862920387380689D+00
        ws( 34) = 0.4922879153051949D+00
        ws( 35) = 0.5020305548664299D+00
        ws( 36) = 0.5161570251886560D+00
        ws( 37) = 0.5351241233663678D+00
        ws( 38) = 0.5590390729201740D+00
        ws( 39) = 0.5875413914934623D+00
        ws( 40) = 0.6198014859457081D+00
        ws( 41) = 0.6546690925890462D+00
        ws( 42) = 0.6909182895237267D+00
        ws( 43) = 0.7274813715605645D+00
        ws( 44) = 0.7635686522489512D+00
        ws( 45) = 0.7986786126426595D+00
        ws( 46) = 0.8325845199907324D+00
        ws( 47) = 0.8652103578153529D+00
        ws( 48) = 0.8970434697135372D+00
        ws( 49) = 0.9272437966118505D+00
        ws( 50) = 0.9597936183353623D+00
        ws( 51) = 0.9896192418330588D+00
        ws( 52) = 0.1030983608476283D+01
        ws( 53) = 0.1112096274523772D+01
        ws( 54) = 0.1459153679506313D+01
        endif
        if( idomain .eq.  199 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.3141592653589793D+01
        rk1r = 0.2513274122871834D+02
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  56
        err = 0.8488238441043732D-10
        xs(  1) = 0.5933030747526641D+00
        xs(  2) = 0.1361063536900135D+01
        xs(  3) = 0.2131428175491372D+01
        xs(  4) = 0.2899806823560773D+01
        xs(  5) = 0.3664524349725338D+01
        xs(  6) = 0.4424390053187505D+01
        xs(  7) = 0.5178388219517258D+01
        xs(  8) = 0.5925609277943101D+01
        xs(  9) = 0.6665229802619539D+01
        xs( 10) = 0.7396505206952874D+01
        xs( 11) = 0.8118765843331891D+01
        xs( 12) = 0.8831413727980152D+01
        xs( 13) = 0.9533919095508949D+01
        xs( 14) = 0.1022581671900632D+02
        xs( 15) = 0.1090670224335251D+02
        xs( 16) = 0.1157622891777469D+02
        xs( 17) = 0.1223410515968677D+02
        xs( 18) = 0.1288009337140720D+02
        xs( 19) = 0.1351401039220627D+02
        xs( 20) = 0.1413572992088836D+02
        xs( 21) = 0.1474518719766021D+02
        xs( 22) = 0.1534238616506917D+02
        xs( 23) = 0.1592740916652486D+02
        xs( 24) = 0.1650042886033056D+02
        xs( 25) = 0.1706172131620495D+02
        xs( 26) = 0.1761167829666302D+02
        xs( 27) = 0.1815081601358691D+02
        xs( 28) = 0.1867977806704722D+02
        xs( 29) = 0.1919933243340815D+02
        xs( 30) = 0.1971036547035951D+02
        xs( 31) = 0.2021387767520917D+02
        xs( 32) = 0.2071098500924514D+02
        xs( 33) = 0.2120292823348983D+02
        xs( 34) = 0.2169109488775451D+02
        xs( 35) = 0.2217706373702977D+02
        xs( 36) = 0.2266268212849318D+02
        xs( 37) = 0.2315017542728316D+02
        xs( 38) = 0.2364226841854467D+02
        xs( 39) = 0.2414228507655623D+02
        xs( 40) = 0.2465419306282669D+02
        xs( 41) = 0.2518256142933719D+02
        xs( 42) = 0.2573239162037058D+02
        xs( 43) = 0.2630878226963934D+02
        xs( 44) = 0.2691644233223120D+02
        xs( 45) = 0.2755917782791775D+02
        xs( 46) = 0.2823954359744608D+02
        xs( 47) = 0.2895878755527154D+02
        xs( 48) = 0.2971708805439633D+02
        xs( 49) = 0.3051391525160627D+02
        xs( 50) = 0.3134829857421367D+02
        xs( 51) = 0.3221915880913280D+02
        xs( 52) = 0.3312619297474023D+02
        xs( 53) = 0.3406644754844081D+02
        xs( 54) = 0.3504155860263563D+02
        xs( 55) = 0.3607603685298836D+02
        xs( 56) = 0.3713276105101822D+02
        ws(  1) = 0.7610899499179483D+00
        ws(  2) = 0.7704471601664059D+00
        ws(  3) = 0.7697287751929620D+00
        ws(  4) = 0.7667683980687394D+00
        ws(  5) = 0.7624716726570800D+00
        ws(  6) = 0.7570913305495446D+00
        ws(  7) = 0.7507536801061971D+00
        ws(  8) = 0.7435513038247076D+00
        ws(  9) = 0.7355657074277865D+00
        ws( 10) = 0.7268735463767357D+00
        ws( 11) = 0.7175481198250458D+00
        ws( 12) = 0.7076594172266188D+00
        ws( 13) = 0.6972738420717176D+00
        ws( 14) = 0.6864540679118697D+00
        ws( 15) = 0.6752592306072436D+00
        ws( 16) = 0.6637455417808982D+00
        ws( 17) = 0.6519673356905923D+00
        ws( 18) = 0.6399785212712313D+00
        ws( 19) = 0.6278343926647748D+00
        ws( 20) = 0.6155937522824921D+00
        ws( 21) = 0.6033212960706320D+00
        ws( 22) = 0.5910901617598198D+00
        ws( 23) = 0.5789843944385396D+00
        ws( 24) = 0.5671007932376910D+00
        ws( 25) = 0.5555492600387270D+00
        ws( 26) = 0.5444506863743336D+00
        ws( 27) = 0.5339320719555117D+00
        ws( 28) = 0.5241201436665147D+00
        ws( 29) = 0.5151363955651220D+00
        ws( 30) = 0.5070964098160713D+00
        ws( 31) = 0.5001138470080309D+00
        ws( 32) = 0.4943072732533713D+00
        ws( 33) = 0.4898097218321544D+00
        ws( 34) = 0.4867854273179325D+00
        ws( 35) = 0.4854582875422061D+00
        ws( 36) = 0.4861472779857529D+00
        ws( 37) = 0.4892917064313825D+00
        ws( 38) = 0.4954474648207115D+00
        ws( 39) = 0.5052477361350262D+00
        ws( 40) = 0.5193324329130625D+00
        ws( 41) = 0.5382434619943053D+00
        ws( 42) = 0.5622751380200459D+00
        ws( 43) = 0.5913000675877385D+00
        ws( 44) = 0.6246604906243154D+00
        ws( 45) = 0.6612371836052588D+00
        ws( 46) = 0.6996976302663007D+00
        ws( 47) = 0.7388139491855849D+00
        ws( 48) = 0.7776981035097432D+00
        ws( 49) = 0.8157906204977401D+00
        ws( 50) = 0.8527617657361957D+00
        ws( 51) = 0.8890442740405698D+00
        ws( 52) = 0.9235160904498829D+00
        ws( 53) = 0.9532967576881027D+00
        ws( 54) = 0.1045217203579477D+01
        ws( 55) = 0.8658179033690759D+00
        ws( 56) = 0.1780472425660599D+01
        endif
        if( idomain .eq.  200 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.3141592653589793D+01
        rk1r = 0.2827433388230814D+02
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  59
        err = 0.7386041503320041D-10
        xs(  1) = 0.6085179768127805D+00
        xs(  2) = 0.1396086352026098D+01
        xs(  3) = 0.2186607881206148D+01
        xs(  4) = 0.2975529543008870D+01
        xs(  5) = 0.3761279825687399D+01
        xs(  6) = 0.4542773668901139D+01
        xs(  7) = 0.5319093486912481D+01
        xs(  8) = 0.6089417516682668D+01
        xs(  9) = 0.6852998765121235D+01
        xs( 10) = 0.7609157397331260D+01
        xs( 11) = 0.8357276945409819D+01
        xs( 12) = 0.9096801374615254D+01
        xs( 13) = 0.9827232058604377D+01
        xs( 14) = 0.1054812443687677D+02
        xs( 15) = 0.1125908441882627D+02
        xs( 16) = 0.1195976472274414D+02
        xs( 17) = 0.1264986138745118D+02
        xs( 18) = 0.1332911070900292D+02
        xs( 19) = 0.1399728685622805D+02
        xs( 20) = 0.1465420041063125D+02
        xs( 21) = 0.1529969805902817D+02
        xs( 22) = 0.1593366364275222D+02
        xs( 23) = 0.1655602074996395D+02
        xs( 24) = 0.1716673704269232D+02
        xs( 25) = 0.1776583051632964D+02
        xs( 26) = 0.1835337782250194D+02
        xs( 27) = 0.1892952452293578D+02
        xs( 28) = 0.1949449662003780D+02
        xs( 29) = 0.2004861205079546D+02
        xs( 30) = 0.2059229042001223D+02
        xs( 31) = 0.2112605953881432D+02
        xs( 32) = 0.2165055840996856D+02
        xs( 33) = 0.2216653746363282D+02
        xs( 34) = 0.2267485707155591D+02
        xs( 35) = 0.2317648464678194D+02
        xs( 36) = 0.2367249050754710D+02
        xs( 37) = 0.2416404476052668D+02
        xs( 38) = 0.2465242174240305D+02
        xs( 39) = 0.2513902340761094D+02
        xs( 40) = 0.2562543542848300D+02
        xs( 41) = 0.2611352590563967D+02
        xs( 42) = 0.2660558436694738D+02
        xs( 43) = 0.2710447948313194D+02
        xs( 44) = 0.2761379238276862D+02
        xs( 45) = 0.2813786448298945D+02
        xs( 46) = 0.2868169060056530D+02
        xs( 47) = 0.2925060438278768D+02
        xs( 48) = 0.2984976530551603D+02
        xs( 49) = 0.3048357492069112D+02
        xs( 50) = 0.3115522575818785D+02
        xs( 51) = 0.3186655217743127D+02
        xs( 52) = 0.3261823736066892D+02
        xs( 53) = 0.3341023395024186D+02
        xs( 54) = 0.3424194648484386D+02
        xs( 55) = 0.3511277592676133D+02
        xs( 56) = 0.3602403200416880D+02
        xs( 57) = 0.3696751301959107D+02
        xs( 58) = 0.3792687691420069D+02
        xs( 59) = 0.3905819018469596D+02
        ws(  1) = 0.7806389322509174D+00
        ws(  2) = 0.7904386886392174D+00
        ws(  3) = 0.7900626881275962D+00
        ws(  4) = 0.7875383075086309D+00
        ws(  5) = 0.7837849985309401D+00
        ws(  6) = 0.7790506788421507D+00
        ws(  7) = 0.7734522855823432D+00
        ws(  8) = 0.7670713843119321D+00
        ws(  9) = 0.7599778641938094D+00
        ws( 10) = 0.7522367026064116D+00
        ws( 11) = 0.7439097711264792D+00
        ws( 12) = 0.7350560387864005D+00
        ws( 13) = 0.7257312961919181D+00
        ws( 14) = 0.7159878401756286D+00
        ws( 15) = 0.7058743021638054D+00
        ws( 16) = 0.6954356971637041D+00
        ws( 17) = 0.6847137219221913D+00
        ws( 18) = 0.6737473075352979D+00
        ws( 19) = 0.6625734227538741D+00
        ws( 20) = 0.6512281168020003D+00
        ws( 21) = 0.6397477774932141D+00
        ws( 22) = 0.6281705829840378D+00
        ws( 23) = 0.6165381378322095D+00
        ws( 24) = 0.6048973079663218D+00
        ws( 25) = 0.5933022422088661D+00
        ws( 26) = 0.5818164349930057D+00
        ws( 27) = 0.5705144370012633D+00
        ws( 28) = 0.5594825806773921D+00
        ws( 29) = 0.5488181050542577D+00
        ws( 30) = 0.5386265544410983D+00
        ws( 31) = 0.5290181827524439D+00
        ws( 32) = 0.5201046565944333D+00
        ws( 33) = 0.5119968935611269D+00
        ws( 34) = 0.5048036310995239D+00
        ws( 35) = 0.4986299730606876D+00
        ws( 36) = 0.4935767201990155D+00
        ws( 37) = 0.4897438207575007D+00
        ws( 38) = 0.4872428941986753D+00
        ws( 39) = 0.4862230675139970D+00
        ws( 40) = 0.4869099589431364D+00
        ws( 41) = 0.4896498500870722D+00
        ws( 42) = 0.4949428131312998D+00
        ws( 43) = 0.5034433037843404D+00
        ws( 44) = 0.5159077041764097D+00
        ws( 45) = 0.5330742194060915D+00
        ws( 46) = 0.5554758430837295D+00
        ws( 47) = 0.5832218143805262D+00
        ws( 48) = 0.6158415219984972D+00
        ws( 49) = 0.6523127015157740D+00
        ws( 50) = 0.6912899251031520D+00
        ws( 51) = 0.7314711042925596D+00
        ws( 52) = 0.7718798845895429D+00
        ws( 53) = 0.8119563839768873D+00
        ws( 54) = 0.8514289291895986D+00
        ws( 55) = 0.8898940504989516D+00
        ws( 56) = 0.9344706826485268D+00
        ws( 57) = 0.9477415753151307D+00
        ws( 58) = 0.9132895563285336D+00
        ws( 59) = 0.1672629566164079D+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 =  63
        err = 0.8665327120136156D-10
        xs(  1) = 0.6150145756627815D+00
        xs(  2) = 0.1411089295107604D+01
        xs(  3) = 0.2210381712145733D+01
        xs(  4) = 0.3008419405636049D+01
        xs(  5) = 0.3803738153656808D+01
        xs(  6) = 0.4595358939515409D+01
        xs(  7) = 0.5382464577934814D+01
        xs(  8) = 0.6164326619611788D+01
        xs(  9) = 0.6940283659614135D+01
        xs( 10) = 0.7709733435581258D+01
        xs( 11) = 0.8472128933870286D+01
        xs( 12) = 0.9226975458992435D+01
        xs( 13) = 0.9973827662776584D+01
        xs( 14) = 0.1071228625991557D+02
        xs( 15) = 0.1144199444706205D+02
        xs( 16) = 0.1216263415866706D+02
        xs( 17) = 0.1287392233088191D+02
        xs( 18) = 0.1357560734363291D+02
        xs( 19) = 0.1426746579239313D+02
        xs( 20) = 0.1494929971792632D+02
        xs( 21) = 0.1562093440074843D+02
        xs( 22) = 0.1628221681214176D+02
        xs( 23) = 0.1693301480676442D+02
        xs( 24) = 0.1757321714073829D+02
        xs( 25) = 0.1820273440391075D+02
        xs( 26) = 0.1882150096436460D+02
        xs( 27) = 0.1942947804166194D+02
        xs( 28) = 0.2002665804584455D+02
        xs( 29) = 0.2061307032091837D+02
        xs( 30) = 0.2118878836251680D+02
        xs( 31) = 0.2175393837579693D+02
        xs( 32) = 0.2230870866844287D+02
        xs( 33) = 0.2285335894542853D+02
        xs( 34) = 0.2338822839460427D+02
        xs( 35) = 0.2391374188920329D+02
        xs( 36) = 0.2443041467355018D+02
        xs( 37) = 0.2493885676481327D+02
        xs( 38) = 0.2543977785720254D+02
        xs( 39) = 0.2593399174477144D+02
        xs( 40) = 0.2642241827284459D+02
        xs( 41) = 0.2690608310736063D+02
        xs( 42) = 0.2738612088077509D+02
        xs( 43) = 0.2786379216565638D+02
        xs( 44) = 0.2834052617014779D+02
        xs( 45) = 0.2881799700359254D+02
        xs( 46) = 0.2929822972553057D+02
        xs( 47) = 0.2978371635038024D+02
        xs( 48) = 0.3027751277735170D+02
        xs( 49) = 0.3078328943225829D+02
        xs( 50) = 0.3130530861601415D+02
        xs( 51) = 0.3184828934111801D+02
        xs( 52) = 0.3241712061955029D+02
        xs( 53) = 0.3301643608977623D+02
        xs( 54) = 0.3365016156536800D+02
        xs( 55) = 0.3432121370793154D+02
        xs( 56) = 0.3503145045635748D+02
        xs( 57) = 0.3578195192252261D+02
        xs( 58) = 0.3657321783512789D+02
        xs( 59) = 0.3740549168029878D+02
        xs( 60) = 0.3827961199562797D+02
        xs( 61) = 0.3919565538590316D+02
        xs( 62) = 0.4018767889389529D+02
        xs( 63) = 0.4124159593834112D+02
        ws(  1) = 0.7889988743504853D+00
        ws(  2) = 0.7990702928826228D+00
        ws(  3) = 0.7989886353065681D+00
        ws(  4) = 0.7968625364994598D+00
        ws(  5) = 0.7936154289823949D+00
        ws(  6) = 0.7894908880607741D+00
        ws(  7) = 0.7845992793857531D+00
        ws(  8) = 0.7790146834684789D+00
        ws(  9) = 0.7727990784650088D+00
        ws( 10) = 0.7660093513712311D+00
        ws( 11) = 0.7586992449628212D+00
        ws( 12) = 0.7509196354339760D+00
        ws( 13) = 0.7427182845907105D+00
        ws( 14) = 0.7341395053072629D+00
        ws( 15) = 0.7252239207483472D+00
        ws( 16) = 0.7160083847998541D+00
        ws( 17) = 0.7065260770646343D+00
        ws( 18) = 0.6968067607726114D+00
        ws( 19) = 0.6868771805032190D+00
        ws( 20) = 0.6767615766728684D+00
        ws( 21) = 0.6664822978482284D+00
        ws( 22) = 0.6560605006218320D+00
        ws( 23) = 0.6455169326614431D+00
        ws( 24) = 0.6348728014661941D+00
        ws( 25) = 0.6241507353328239D+00
        ws( 26) = 0.6133758502068106D+00
        ws( 27) = 0.6025769438929983D+00
        ws( 28) = 0.5917878346156290D+00
        ws( 29) = 0.5810488209833057D+00
        ws( 30) = 0.5704081375598676D+00
        ws( 31) = 0.5599231157896865D+00
        ws( 32) = 0.5496606169635658D+00
        ws( 33) = 0.5396963658544164D+00
        ws( 34) = 0.5301132702079168D+00
        ws( 35) = 0.5209995222390155D+00
        ws( 36) = 0.5124476316330635D+00
        ws( 37) = 0.5045547533420170D+00
        ws( 38) = 0.4974230306073566D+00
        ws( 39) = 0.4911580692443043D+00
        ws( 40) = 0.4858659051449440D+00
        ws( 41) = 0.4816526172406520D+00
        ws( 42) = 0.4786323352994391D+00
        ws( 43) = 0.4769471579765819D+00
        ws( 44) = 0.4767980526521723D+00
        ws( 45) = 0.4784791157785795D+00
        ws( 46) = 0.4823999825895853D+00
        ws( 47) = 0.4890816874041688D+00
        ws( 48) = 0.4991231895502149D+00
        ws( 49) = 0.5131426237775132D+00
        ws( 50) = 0.5316870533491231D+00
        ws( 51) = 0.5550966623229301D+00
        ws( 52) = 0.5833461573857510D+00
        ws( 53) = 0.6159444937218596D+00
        ws( 54) = 0.6519929698702491D+00
        ws( 55) = 0.6904175089087886D+00
        ws( 56) = 0.7302294356755795D+00
        ws( 57) = 0.7708349130743799D+00
        ws( 58) = 0.8117657155726697D+00
        ws( 59) = 0.8525744824842632D+00
        ws( 60) = 0.8960846496297402D+00
        ws( 61) = 0.9380815572623568D+00
        ws( 62) = 0.1059637654867761D+01
        ws( 63) = 0.1164441622018817D+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 =  66
        err = 0.9483616112993250D-10
        xs(  1) = 0.6263830142236583D+00
        xs(  2) = 0.1437253025994711D+01
        xs(  3) = 0.2251589906718542D+01
        xs(  4) = 0.3064943340263824D+01
        xs(  5) = 0.3875922021366480D+01
        xs(  6) = 0.4683622674500242D+01
        xs(  7) = 0.5487299595371116D+01
        xs(  8) = 0.6286289403049273D+01
        xs(  9) = 0.7079988470471279D+01
        xs( 10) = 0.7867844730498160D+01
        xs( 11) = 0.8649353877291652D+01
        xs( 12) = 0.9424056828775315D+01
        xs( 13) = 0.1019153736753341D+02
        xs( 14) = 0.1095141960675204D+02
        xs( 15) = 0.1170336521066120D+02
        xs( 16) = 0.1244707041954869D+02
        xs( 17) = 0.1318226297648033D+02
        xs( 18) = 0.1390869906626859D+02
        xs( 19) = 0.1462616037256540D+02
        xs( 20) = 0.1533445134681121D+02
        xs( 21) = 0.1603339676886141D+02
        xs( 22) = 0.1672283966823135D+02
        xs( 23) = 0.1740263966555179D+02
        xs( 24) = 0.1807267178877398D+02
        xs( 25) = 0.1873282581282628D+02
        xs( 26) = 0.1938300616780731D+02
        xs( 27) = 0.2002313246265706D+02
        xs( 28) = 0.2065314068393744D+02
        xs( 29) = 0.2127298515802629D+02
        xs( 30) = 0.2188264140072291D+02
        xs( 31) = 0.2248211000204992D+02
        xs( 32) = 0.2307142167138583D+02
        xs( 33) = 0.2365064346935582D+02
        xs( 34) = 0.2421988606417040D+02
        xs( 35) = 0.2477931158343226D+02
        xs( 36) = 0.2532914136065746D+02
        xs( 37) = 0.2586966272110678D+02
        xs( 38) = 0.2640123408422342D+02
        xs( 39) = 0.2692428823046421D+02
        xs( 40) = 0.2743933456092133D+02
        xs( 41) = 0.2794696205909989D+02
        xs( 42) = 0.2844784442473885D+02
        xs( 43) = 0.2894274691019397D+02
        xs( 44) = 0.2943253166658575D+02
        xs( 45) = 0.2991815796178720D+02
        xs( 46) = 0.3040067906444795D+02
        xs( 47) = 0.3088124826399392D+02
        xs( 48) = 0.3136115401717363D+02
        xs( 49) = 0.3184189856469160D+02
        xs( 50) = 0.3232531581633462D+02
        xs( 51) = 0.3281370709480102D+02
        xs( 52) = 0.3330996971032592D+02
        xs( 53) = 0.3381769850849062D+02
        xs( 54) = 0.3434123246468633D+02
        xs( 55) = 0.3488559110974980D+02
        xs( 56) = 0.3545622585172557D+02
        xs( 57) = 0.3605856345295407D+02
        xs( 58) = 0.3669743271216704D+02
        xs( 59) = 0.3737653586280048D+02
        xs( 60) = 0.3809844944668181D+02
        xs( 61) = 0.3886470877649934D+02
        xs( 62) = 0.3967567257897128D+02
        xs( 63) = 0.4053704117097685D+02
        xs( 64) = 0.4144073224496860D+02
        xs( 65) = 0.4245307218829221D+02
        xs( 66) = 0.4355377747597486D+02
        ws(  1) = 0.8036043754271821D+00
        ws(  2) = 0.8139980137899463D+00
        ws(  3) = 0.8141576073842709D+00
        ws(  4) = 0.8123375866559581D+00
        ws(  5) = 0.8094729543242182D+00
        ws(  6) = 0.8058050415612780D+00
        ws(  7) = 0.8014385490294186D+00
        ws(  8) = 0.7964405799273705D+00
        ws(  9) = 0.7908656009918943D+00
        ws( 10) = 0.7847629081458281D+00
        ws( 11) = 0.7781789104463407D+00
        ws( 12) = 0.7711576650763935D+00
        ws( 13) = 0.7637408110400875D+00
        ws( 14) = 0.7559673279391619D+00
        ws( 15) = 0.7478733047888400D+00
        ws( 16) = 0.7394917881190961D+00
        ws( 17) = 0.7308527391237297D+00
        ws( 18) = 0.7219831000843416D+00
        ws( 19) = 0.7129069619451035D+00
        ws( 20) = 0.7036458179461945D+00
        ws( 21) = 0.6942188921700724D+00
        ws( 22) = 0.6846435298773510D+00
        ws( 23) = 0.6749356471860987D+00
        ws( 24) = 0.6651102300742060D+00
        ws( 25) = 0.6551818811194263D+00
        ws( 26) = 0.6451654105476929D+00
        ws( 27) = 0.6350764778297947D+00
        ws( 28) = 0.6249323053604827D+00
        ws( 29) = 0.6147524977026536D+00
        ws( 30) = 0.6045600020460368D+00
        ws( 31) = 0.5943822146218803D+00
        ws( 32) = 0.5842521788823897D+00
        ws( 33) = 0.5742097292243902D+00
        ws( 34) = 0.5643023503102220D+00
        ws( 35) = 0.5545854621571856D+00
        ws( 36) = 0.5451218944354231D+00
        ws( 37) = 0.5359805104535310D+00
        ws( 38) = 0.5272343125399934D+00
        ws( 39) = 0.5189588351627495D+00
        ws( 40) = 0.5112319038600815D+00
        ws( 41) = 0.5041352530138626D+00
        ws( 42) = 0.4977569198249241D+00
        ws( 43) = 0.4921917411315220D+00
        ws( 44) = 0.4875377321242024D+00
        ws( 45) = 0.4838903561612473D+00
        ws( 46) = 0.4813435183289449D+00
        ws( 47) = 0.4800083036365557D+00
        ws( 48) = 0.4800515518613447D+00
        ws( 49) = 0.4817408646480815D+00
        ws( 50) = 0.4854750147943753D+00
        ws( 51) = 0.4917886616963452D+00
        ws( 52) = 0.5013348026832526D+00
        ws( 53) = 0.5148468593506060D+00
        ws( 54) = 0.5330614937949458D+00
        ws( 55) = 0.5565720219777146D+00
        ws( 56) = 0.5856136066145395D+00
        ws( 57) = 0.6198726444113052D+00
        ws( 58) = 0.6584774277953025D+00
        ws( 59) = 0.7001890119434721D+00
        ws( 60) = 0.7438231723419899D+00
        ws( 61) = 0.7887624672356298D+00
        ws( 62) = 0.8340568225145806D+00
        ws( 63) = 0.8853826954615162D+00
        ws( 64) = 0.9397362652762030D+00
        ws( 65) = 0.1046419028254579D+01
        ws( 66) = 0.1448601746276238D+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 =  71
        err = 0.5571480124846462D-10
        xs(  1) = 0.6339991891698027D+00
        xs(  2) = 0.1454799963305010D+01
        xs(  3) = 0.2279279023343132D+01
        xs(  4) = 0.3103025168623288D+01
        xs(  5) = 0.3924718795276449D+01
        xs(  6) = 0.4743528371942556D+01
        xs(  7) = 0.5558774933223314D+01
        xs(  8) = 0.6369855191477515D+01
        xs(  9) = 0.7176218286491028D+01
        xs( 10) = 0.7977357390515607D+01
        xs( 11) = 0.8772806043907718D+01
        xs( 12) = 0.9562136001300480D+01
        xs( 13) = 0.1034495544312642D+02
        xs( 14) = 0.1112090713085473D+02
        xs( 15) = 0.1188966637564354D+02
        xs( 16) = 0.1265093881156190D+02
        xs( 17) = 0.1340445802263017D+02
        xs( 18) = 0.1414998309392049D+02
        xs( 19) = 0.1488729616309891D+02
        xs( 20) = 0.1561620004408281D+02
        xs( 21) = 0.1633651598483497D+02
        xs( 22) = 0.1704808161076502D+02
        xs( 23) = 0.1775074909365259D+02
        xs( 24) = 0.1844438357597952D+02
        xs( 25) = 0.1912886187405897D+02
        xs( 26) = 0.1980407148037280D+02
        xs( 27) = 0.2046990988931199D+02
        xs( 28) = 0.2112628427668632D+02
        xs( 29) = 0.2177311157242284D+02
        xs( 30) = 0.2241031897376387D+02
        xs( 31) = 0.2303784495586381D+02
        xs( 32) = 0.2365564084725278D+02
        xs( 33) = 0.2426367305102404D+02
        xs( 34) = 0.2486192600618911D+02
        xs( 35) = 0.2545040600292619D+02
        xs( 36) = 0.2602914598709194D+02
        xs( 37) = 0.2659821149306225D+02
        xs( 38) = 0.2715770776512939D+02
        xs( 39) = 0.2770778788697311D+02
        xs( 40) = 0.2824866130258865D+02
        xs( 41) = 0.2878060159655125D+02
        xs( 42) = 0.2930395210819356D+02
        xs( 43) = 0.2981912830609243D+02
        xs( 44) = 0.3032661708636343D+02
        xs( 45) = 0.3082697483178608D+02
        xs( 46) = 0.3132082692979087D+02
        xs( 47) = 0.3180887027415116D+02
        xs( 48) = 0.3229187741301044D+02
        xs( 49) = 0.3277069885965328D+02
        xs( 50) = 0.3324626188034644D+02
        xs( 51) = 0.3371957137034117D+02
        xs( 52) = 0.3419172763664078D+02
        xs( 53) = 0.3466397905219088D+02
        xs( 54) = 0.3513781866477947D+02
        xs( 55) = 0.3561511604640954D+02
        xs( 56) = 0.3609826113094574D+02
        xs( 57) = 0.3659029449662777D+02
        xs( 58) = 0.3709500062815094D+02
        xs( 59) = 0.3761692970372109D+02
        xs( 60) = 0.3816128719894718D+02
        xs( 61) = 0.3873362232804665D+02
        xs( 62) = 0.3933931887040593D+02
        xs( 63) = 0.3998301356408700D+02
        xs( 64) = 0.4066819455823331D+02
        xs( 65) = 0.4139727564293859D+02
        xs( 66) = 0.4217185634722231D+02
        xs( 67) = 0.4299293623140756D+02
        xs( 68) = 0.4386892483644273D+02
        xs( 69) = 0.4478785309243146D+02
        xs( 70) = 0.4583847035996679D+02
        xs( 71) = 0.4697907679623598D+02
        ws(  1) = 0.8133941266057639D+00
        ws(  2) = 0.8240355883596343D+00
        ws(  3) = 0.8244136523849658D+00
        ws(  4) = 0.8228791828700150D+00
        ws(  5) = 0.8203732691110517D+00
        ws(  6) = 0.8171337209825162D+00
        ws(  7) = 0.8132591764516728D+00
        ws(  8) = 0.8088096513022290D+00
        ws(  9) = 0.8038321221598326D+00
        ws( 10) = 0.7983683762432122D+00
        ws( 11) = 0.7924575852074339D+00
        ws( 12) = 0.7861370568633343D+00
        ws( 13) = 0.7794423208487067D+00
        ws( 14) = 0.7724069770636609D+00
        ws( 15) = 0.7650624912388826D+00
        ws( 16) = 0.7574380189336148D+00
        ws( 17) = 0.7495602917007030D+00
        ws( 18) = 0.7414535802289453D+00
        ws( 19) = 0.7331397312961172D+00
        ws( 20) = 0.7246382730408502D+00
        ws( 21) = 0.7159665766091491D+00
        ws( 22) = 0.7071400635258103D+00
        ws( 23) = 0.6981724476422100D+00
        ws( 24) = 0.6890760030920288D+00
        ws( 25) = 0.6798618531260539D+00
        ws( 26) = 0.6705402806822061D+00
        ws( 27) = 0.6611210653902004D+00
        ws( 28) = 0.6516138559019437D+00
        ws( 29) = 0.6420285851079274D+00
        ws( 30) = 0.6323759373710764D+00
        ws( 31) = 0.6226678781079619D+00
        ws( 32) = 0.6129182561105916D+00
        ws( 33) = 0.6031434946506447D+00
        ws( 34) = 0.5933633843234977D+00
        ws( 35) = 0.5836020014580170D+00
        ws( 36) = 0.5738887702319740D+00
        ws( 37) = 0.5642596454669816D+00
        ws( 38) = 0.5547582678778989D+00
        ws( 39) = 0.5454367497576562D+00
        ws( 40) = 0.5363555823278039D+00
        ws( 41) = 0.5275821894482401D+00
        ws( 42) = 0.5191880948250143D+00
        ws( 43) = 0.5112454901874935D+00
        ws( 44) = 0.5038248131384083D+00
        ws( 45) = 0.4969948638003872D+00
        ws( 46) = 0.4908254024414426D+00
        ws( 47) = 0.4853899984998661D+00
        ws( 48) = 0.4807660642818661D+00
        ws( 49) = 0.4770313968418476D+00
        ws( 50) = 0.4742618784902320D+00
        ws( 51) = 0.4725396347870980D+00
        ws( 52) = 0.4719793292823912D+00
        ws( 53) = 0.4727700841577501D+00
        ws( 54) = 0.4752182714628235D+00
        ws( 55) = 0.4797726068904528D+00
        ws( 56) = 0.4870226980141064D+00
        ws( 57) = 0.4976742580049573D+00
        ws( 58) = 0.5124980317139580D+00
        ws( 59) = 0.5322329460527312D+00
        ws( 60) = 0.5574154428073635D+00
        ws( 61) = 0.5881631590887044D+00
        ws( 62) = 0.6240099366042684D+00
        ws( 63) = 0.6639551714046745D+00
        ws( 64) = 0.7068153838094705D+00
        ws( 65) = 0.7515878756158774D+00
        ws( 66) = 0.7977755613340154D+00
        ws( 67) = 0.8457306263086291D+00
        ws( 68) = 0.8994764776633578D+00
        ws( 69) = 0.9775151879415342D+00
        ws( 70) = 0.1017966575527340D+01
        ws( 71) = 0.1665629697875381D+01
        endif
        if( idomain .eq.  204 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.3141592653589793D+01
        rk1r = 0.4084070449666731D+02
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  74
        err = 0.5227689407898996D-10
        xs(  1) = 0.6445995248701442D+00
        xs(  2) = 0.1479159487501016D+01
        xs(  3) = 0.2317543886904456D+01
        xs(  4) = 0.3155315388168197D+01
        xs(  5) = 0.3991178929622541D+01
        xs(  6) = 0.4824334427409023D+01
        xs(  7) = 0.5654135474184184D+01
        xs(  8) = 0.6480011041391390D+01
        xs(  9) = 0.7301441762761739D+01
        xs( 10) = 0.8117951350499855D+01
        xs( 11) = 0.8929102833955646D+01
        xs( 12) = 0.9734496340727157D+01
        xs( 13) = 0.1053376725296119D+02
        xs( 14) = 0.1132658431974437D+02
        xs( 15) = 0.1211264759701470D+02
        xs( 16) = 0.1289168621467590D+02
        xs( 17) = 0.1366345601732078D+02
        xs( 18) = 0.1442773714573950D+02
        xs( 19) = 0.1518433162446822D+02
        xs( 20) = 0.1593306101704359D+02
        xs( 21) = 0.1667376419958529D+02
        xs( 22) = 0.1740629529262760D+02
        xs( 23) = 0.1813052178011740D+02
        xs( 24) = 0.1884632283225619D+02
        xs( 25) = 0.1955358784378630D+02
        xs( 26) = 0.2025221519625812D+02
        xs( 27) = 0.2094211125267061D+02
        xs( 28) = 0.2162318959393364D+02
        xs( 29) = 0.2229537050396637D+02
        xs( 30) = 0.2295858071437863D+02
        xs( 31) = 0.2361275342623949D+02
        xs( 32) = 0.2425782863738340D+02
        xs( 33) = 0.2489375381132161D+02
        xs( 34) = 0.2552048492923704D+02
        xs( 35) = 0.2613798798630295D+02
        xs( 36) = 0.2674624102169227D+02
        xs( 37) = 0.2734523680208553D+02
        xs( 38) = 0.2793498627362338D+02
        xs( 39) = 0.2851552285337432D+02
        xs( 40) = 0.2908690753803051D+02
        xs( 41) = 0.2964923464214413D+02
        xs( 42) = 0.3020263773852912D+02
        xs( 43) = 0.3074729512590287D+02
        xs( 44) = 0.3128343408562645D+02
        xs( 45) = 0.3181133342539095D+02
        xs( 46) = 0.3233132434270721D+02
        xs( 47) = 0.3284379026980996D+02
        xs( 48) = 0.3334916684013952D+02
        xs( 49) = 0.3384794296499477D+02
        xs( 50) = 0.3434066289293985D+02
        xs( 51) = 0.3482792776481004D+02
        xs( 52) = 0.3531039514637935D+02
        xs( 53) = 0.3578877707220817D+02
        xs( 54) = 0.3626384089431306D+02
        xs( 55) = 0.3673642297683689D+02
        xs( 56) = 0.3720747070576625D+02
        xs( 57) = 0.3767812459377619D+02
        xs( 58) = 0.3814983304051201D+02
        xs( 59) = 0.3862447003699428D+02
        xs( 60) = 0.3910442730579197D+02
        xs( 61) = 0.3959268336875654D+02
        xs( 62) = 0.4009287330471351D+02
        xs( 63) = 0.4060935480171649D+02
        xs( 64) = 0.4114719870716674D+02
        xs( 65) = 0.4171199115765769D+02
        xs( 66) = 0.4230939297999761D+02
        xs( 67) = 0.4294453816150881D+02
        xs( 68) = 0.4362158931825974D+02
        xs( 69) = 0.4434348545570025D+02
        xs( 70) = 0.4511261458439880D+02
        xs( 71) = 0.4593247819248220D+02
        xs( 72) = 0.4681137399415145D+02
        xs( 73) = 0.4778233825843587D+02
        xs( 74) = 0.4885424619464544D+02
        ws(  1) = 0.8270032340340407D+00
        ws(  2) = 0.8378831795270966D+00
        ws(  3) = 0.8383761725334234D+00
        ws(  4) = 0.8369718115906173D+00
        ws(  5) = 0.8346257776512384D+00
        ws(  6) = 0.8315784997597904D+00
        ws(  7) = 0.8279287518284871D+00
        ws(  8) = 0.8237359455322075D+00
        ws(  9) = 0.8190461722222722D+00
        ws( 10) = 0.8139002094446675D+00
        ws( 11) = 0.8083361419255688D+00
        ws( 12) = 0.8023901331375486D+00
        ws( 13) = 0.7960965172862517D+00
        ws( 14) = 0.7894876628848029D+00
        ws( 15) = 0.7825937861395881D+00
        ws( 16) = 0.7754427970563111D+00
        ws( 17) = 0.7680602054272901D+00
        ws( 18) = 0.7604690947144578D+00
        ws( 19) = 0.7526901605515024D+00
        ws( 20) = 0.7447418051290127D+00
        ws( 21) = 0.7366402780284830D+00
        ws( 22) = 0.7283998500636402D+00
        ws( 23) = 0.7200330110108842D+00
        ws( 24) = 0.7115506797235849D+00
        ws( 25) = 0.7029624237378157D+00
        ws( 26) = 0.6942766877536481D+00
        ws( 27) = 0.6855010304589731D+00
        ws( 28) = 0.6766423703030841D+00
        ws( 29) = 0.6677072381210023D+00
        ws( 30) = 0.6587020442298318D+00
        ws( 31) = 0.6496333680328943D+00
        ws( 32) = 0.6405082807678329D+00
        ws( 33) = 0.6313347058794710D+00
        ws( 34) = 0.6221218289765228D+00
        ws( 35) = 0.6128805805355924D+00
        ws( 36) = 0.6036242273503716D+00
        ws( 37) = 0.5943690862697849D+00
        ws( 38) = 0.5851353406624638D+00
        ws( 39) = 0.5759478882799377D+00
        ws( 40) = 0.5668370994368609D+00
        ws( 41) = 0.5578392778420594D+00
        ws( 42) = 0.5489965589187911D+00
        ws( 43) = 0.5403560538415570D+00
        ws( 44) = 0.5319683204979154D+00
        ws( 45) = 0.5238855640181030D+00
        ws( 46) = 0.5161601793438277D+00
        ws( 47) = 0.5088442621837219D+00
        ws( 48) = 0.5019903252250173D+00
        ws( 49) = 0.4956526016714393D+00
        ws( 50) = 0.4898874530099573D+00
        ws( 51) = 0.4847519270173367D+00
        ws( 52) = 0.4803015177574620D+00
        ws( 53) = 0.4765900383780994D+00
        ws( 54) = 0.4736763358587616D+00
        ws( 55) = 0.4716443452171454D+00
        ws( 56) = 0.4706392042140219D+00
        ws( 57) = 0.4709079254846330D+00
        ws( 58) = 0.4728197736156203D+00
        ws( 59) = 0.4768517810873938D+00
        ws( 60) = 0.4835579676056902D+00
        ws( 61) = 0.4935587315969336D+00
        ws( 62) = 0.5075473895359996D+00
        ws( 63) = 0.5262634841009663D+00
        ws( 64) = 0.5503616990280003D+00
        ws( 65) = 0.5801803973633712D+00
        ws( 66) = 0.6154852922769323D+00
        ws( 67) = 0.6554731363322082D+00
        ws( 68) = 0.6991668351443484D+00
        ws( 69) = 0.7449195599133130D+00
        ws( 70) = 0.7935954992454916D+00
        ws( 71) = 0.8484887189192504D+00
        ws( 72) = 0.9047257625751755D+00
        ws( 73) = 0.1032814044788466D+01
        ws( 74) = 0.1361836714877845D+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 =  78
        err = 0.7102997798571653D-10
        xs(  1) = 0.6508961483311749D+00
        xs(  2) = 0.1493662841720005D+01
        xs(  3) = 0.2340420396374857D+01
        xs(  4) = 0.3186758780313436D+01
        xs(  5) = 0.4031436903151390D+01
        xs(  6) = 0.4873708412979377D+01
        xs(  7) = 0.5712976284626580D+01
        xs(  8) = 0.6548713286795211D+01
        xs(  9) = 0.7380437863068391D+01
        xs( 10) = 0.8207705566699001D+01
        xs( 11) = 0.9030105595949424D+01
        xs( 12) = 0.9847259067754445D+01
        xs( 13) = 0.1065881779505761D+02
        xs( 14) = 0.1146446308773054D+02
        xs( 15) = 0.1226390439644442D+02
        xs( 16) = 0.1305687775454354D+02
        xs( 17) = 0.1384314403418532D+02
        xs( 18) = 0.1462248706424109D+02
        xs( 19) = 0.1539471166723574D+02
        xs( 20) = 0.1615964167468986D+02
        xs( 21) = 0.1691711797331416D+02
        xs( 22) = 0.1766699662609089D+02
        xs( 23) = 0.1840914710222737D+02
        xs( 24) = 0.1914345064049442D+02
        xs( 25) = 0.1986979876318445D+02
        xs( 26) = 0.2058809195134751D+02
        xs( 27) = 0.2129823848834230D+02
        xs( 28) = 0.2200015347404696D+02
        xs( 29) = 0.2269375801134660D+02
        xs( 30) = 0.2337897856524087D+02
        xs( 31) = 0.2405574650044402D+02
        xs( 32) = 0.2472399780736965D+02
        xs( 33) = 0.2538367303155186D+02
        xs( 34) = 0.2603471742074215D+02
        xs( 35) = 0.2667708130758621D+02
        xs( 36) = 0.2731072075399056D+02
        xs( 37) = 0.2793559850192137D+02
        xs( 38) = 0.2855168529667559D+02
        xs( 39) = 0.2915896166996497D+02
        xs( 40) = 0.2975742027992783D+02
        xs( 41) = 0.3034706889306143D+02
        xs( 42) = 0.3092793405971922D+02
        xs( 43) = 0.3150006546042289D+02
        xs( 44) = 0.3206354072565533D+02
        xs( 45) = 0.3261847022804810D+02
        xs( 46) = 0.3316500107321675D+02
        xs( 47) = 0.3370331959288023D+02
        xs( 48) = 0.3423365213538107D+02
        xs( 49) = 0.3475626456305794D+02
        xs( 50) = 0.3527146139441741D+02
        xs( 51) = 0.3577958627741061D+02
        xs( 52) = 0.3628102628926562D+02
        xs( 53) = 0.3677622197718098D+02
        xs( 54) = 0.3726568163984760D+02
        xs( 55) = 0.3774999340996688D+02
        xs( 56) = 0.3822982648150406D+02
        xs( 57) = 0.3870591753752266D+02
        xs( 58) = 0.3917905016400084D+02
        xs( 59) = 0.3965004713748668D+02
        xs( 60) = 0.4011979753207986D+02
        xs( 61) = 0.4058932790576151D+02
        xs( 62) = 0.4105990684848671D+02
        xs( 63) = 0.4153315914555049D+02
        xs( 64) = 0.4201116866289254D+02
        xs( 65) = 0.4249656482642936D+02
        xs( 66) = 0.4299259835321032D+02
        xs( 67) = 0.4350319882973297D+02
        xs( 68) = 0.4403297068712011D+02
        xs( 69) = 0.4458704703611182D+02
        xs( 70) = 0.4517074874303828D+02
        xs( 71) = 0.4578909197871909D+02
        xs( 72) = 0.4644633714003201D+02
        xs( 73) = 0.4714584173022586D+02
        xs( 74) = 0.4789049405096566D+02
        xs( 75) = 0.4868246313348065D+02
        xs( 76) = 0.4952515705971232D+02
        xs( 77) = 0.5043664717155145D+02
        xs( 78) = 0.5134250743735130D+02
        ws(  1) = 0.8350959436134187D+00
        ws(  2) = 0.8461748539254426D+00
        ws(  3) = 0.8468376269212343D+00
        ws(  4) = 0.8456533389940675D+00
        ws(  5) = 0.8435824189995866D+00
        ws(  6) = 0.8408621305942385D+00
        ws(  7) = 0.8375860762897021D+00
        ws(  8) = 0.8338077920628509D+00
        ws(  9) = 0.8295673371909547D+00
        ws( 10) = 0.8248996293543965D+00
        ws( 11) = 0.8198373013564129D+00
        ws( 12) = 0.8144116306801392D+00
        ws( 13) = 0.8086527314303175D+00
        ws( 14) = 0.8025894550227493D+00
        ws( 15) = 0.7962491971498978D+00
        ws( 16) = 0.7896576959273492D+00
        ws( 17) = 0.7828388677215177D+00
        ws( 18) = 0.7758146960022793D+00
        ws( 19) = 0.7686051812320586D+00
        ws( 20) = 0.7612283461856024D+00
        ws( 21) = 0.7537002911142727D+00
        ws( 22) = 0.7460352866397024D+00
        ws( 23) = 0.7382458968863053D+00
        ws( 24) = 0.7303431221318761D+00
        ws( 25) = 0.7223365560119560D+00
        ws( 26) = 0.7142345506629516D+00
        ws( 27) = 0.7060443868492656D+00
        ws( 28) = 0.6977724457421929D+00
        ws( 29) = 0.6894243807542240D+00
        ws( 30) = 0.6810052924424445D+00
        ws( 31) = 0.6725199108827569D+00
        ws( 32) = 0.6639727914756226D+00
        ws( 33) = 0.6553685252129074D+00
        ws( 34) = 0.6467119646441258D+00
        ws( 35) = 0.6380084703178146D+00
        ws( 36) = 0.6292641909703492D+00
        ws( 37) = 0.6204863996617522D+00
        ws( 38) = 0.6116839063123179D+00
        ws( 39) = 0.6028675670535957D+00
        ws( 40) = 0.5940508859960557D+00
        ws( 41) = 0.5852506924825425D+00
        ws( 42) = 0.5764878394350990D+00
        ws( 43) = 0.5677878184699584D+00
        ws( 44) = 0.5591810390510414D+00
        ws( 45) = 0.5507024411659303D+00
        ws( 46) = 0.5423902924499695D+00
        ws( 47) = 0.5342844820590078D+00
        ws( 48) = 0.5264249314477375D+00
        ws( 49) = 0.5188506754647725D+00
        ws( 50) = 0.5116001962429310D+00
        ws( 51) = 0.5047139126738114D+00
        ws( 52) = 0.4982392810977589D+00
        ws( 53) = 0.4922365859562275D+00
        ws( 54) = 0.4867807285617614D+00
        ws( 55) = 0.4819545887432227D+00
        ws( 56) = 0.4778347295435805D+00
        ws( 57) = 0.4744781679990515D+00
        ws( 58) = 0.4719237901465488D+00
        ws( 59) = 0.4702171221744344D+00
        ws( 60) = 0.4694529531926544D+00
        ws( 61) = 0.4698172728657851D+00
        ws( 62) = 0.4716096986903246D+00
        ws( 63) = 0.4752407846148568D+00
        ws( 64) = 0.4812152125210109D+00
        ws( 65) = 0.4901179380734626D+00
        ws( 66) = 0.5026039492520910D+00
        ws( 67) = 0.5193665127669250D+00
        ws( 68) = 0.5410388328833619D+00
        ws( 69) = 0.5680107934161333D+00
        ws( 70) = 0.6002366767595058D+00
        ws( 71) = 0.6371614096804127D+00
        ws( 72) = 0.6778808834541684D+00
        ws( 73) = 0.7216856505370879D+00
        ws( 74) = 0.7681316704414090D+00
        ws( 75) = 0.8154766047050815D+00
        ws( 76) = 0.8672287390655199D+00
        ws( 77) = 0.9318184346663780D+00
        ws( 78) = 0.1219442127011383D+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 =  81
        err = 0.8611440638116152D-10
        xs(  1) = 0.6571887504560209D+00
        xs(  2) = 0.1508139646330101D+01
        xs(  3) = 0.2363207147757386D+01
        xs(  4) = 0.3217987269269989D+01
        xs(  5) = 0.4071274061933599D+01
        xs(  6) = 0.4922359090354543D+01
        xs(  7) = 0.5770682261566234D+01
        xs(  8) = 0.6615751177169380D+01
        xs(  9) = 0.7457116522052941D+01
        xs( 10) = 0.8294363249725730D+01
        xs( 11) = 0.9127107015751864D+01
        xs( 12) = 0.9954992458166384D+01
        xs( 13) = 0.1077769207321864D+02
        xs( 14) = 0.1159490518593979D+02
        xs( 15) = 0.1240635682022752D+02
        xs( 16) = 0.1321179640380723D+02
        xs( 17) = 0.1401099630975744D+02
        xs( 18) = 0.1480375026562938D+02
        xs( 19) = 0.1558987167571148D+02
        xs( 20) = 0.1636919190391844D+02
        xs( 21) = 0.1714155856208731D+02
        xs( 22) = 0.1790683384042797D+02
        xs( 23) = 0.1866489291000163D+02
        xs( 24) = 0.1941562241913914D+02
        xs( 25) = 0.2015891910063017D+02
        xs( 26) = 0.2089468850038265D+02
        xs( 27) = 0.2162284383497657D+02
        xs( 28) = 0.2234330497972998D+02
        xs( 29) = 0.2305599758752729D+02
        xs( 30) = 0.2376085233549364D+02
        xs( 31) = 0.2445780429800726D+02
        xs( 32) = 0.2514679244663889D+02
        xs( 33) = 0.2582775928071822D+02
        xs( 34) = 0.2650065059545349D+02
        xs( 35) = 0.2716541539508054D+02
        xs( 36) = 0.2782200595919655D+02
        xs( 37) = 0.2847037807312941D+02
        xs( 38) = 0.2911049143957844D+02
        xs( 39) = 0.2974231029952204D+02
        xs( 40) = 0.3036580430252954D+02
        xs( 41) = 0.3098094967892599D+02
        xs( 42) = 0.3158773077418823D+02
        xs( 43) = 0.3218614202657351D+02
        xs( 44) = 0.3277619049883714D+02
        xs( 45) = 0.3335789906925090D+02
        xs( 46) = 0.3393131025992018D+02
        xs( 47) = 0.3449649044554814D+02
        xs( 48) = 0.3505353400077045D+02
        xs( 49) = 0.3560256692288414D+02
        xs( 50) = 0.3614374954047043D+02
        xs( 51) = 0.3667727805061429D+02
        xs( 52) = 0.3720338504901559D+02
        xs( 53) = 0.3772234005399341D+02
        xs( 54) = 0.3823445169197500D+02
        xs( 55) = 0.3874007264526052D+02
        xs( 56) = 0.3923960635960947D+02
        xs( 57) = 0.3973351216118763D+02
        xs( 58) = 0.4022230495128106D+02
        xs( 59) = 0.4070654785149688D+02
        xs( 60) = 0.4118683963109744D+02
        xs( 61) = 0.4166380196480666D+02
        xs( 62) = 0.4213807491031606D+02
        xs( 63) = 0.4261033220672175D+02
        xs( 64) = 0.4308132743774519D+02
        xs( 65) = 0.4355197365038834D+02
        xs( 66) = 0.4402344430023296D+02
        xs( 67) = 0.4449727241454419D+02
        xs( 68) = 0.4497543018993186D+02
        xs( 69) = 0.4546039309854584D+02
        xs( 70) = 0.4595520926747909D+02
        xs( 71) = 0.4646358038126397D+02
        xs( 72) = 0.4698991519805254D+02
        xs( 73) = 0.4753926479788165D+02
        xs( 74) = 0.4811706268053642D+02
        xs( 75) = 0.4872870374812434D+02
        xs( 76) = 0.4937908503752834D+02
        xs( 77) = 0.5007251221114978D+02
        xs( 78) = 0.5081298346670552D+02
        xs( 79) = 0.5160255458503283D+02
        xs( 80) = 0.5245110302745974D+02
        xs( 81) = 0.5340308628930882D+02
        ws(  1) = 0.8431789341930074D+00
        ws(  2) = 0.8544273677876800D+00
        ws(  3) = 0.8552082684205667D+00
        ws(  4) = 0.8541722408733262D+00
        ws(  5) = 0.8522872209267045D+00
        ws(  6) = 0.8497905370202991D+00
        ws(  7) = 0.8467740819606300D+00
        ws(  8) = 0.8432889908722891D+00
        ws(  9) = 0.8393725772146500D+00
        ws( 10) = 0.8350568468573119D+00
        ws( 11) = 0.8303714758859774D+00
        ws( 12) = 0.8253448417252865D+00
        ws( 13) = 0.8200042945753747D+00
        ws( 14) = 0.8143761231437709D+00
        ws( 15) = 0.8084854077901767D+00
        ws( 16) = 0.8023558481857178D+00
        ws( 17) = 0.7960096130416179D+00
        ws( 18) = 0.7894672281391417D+00
        ws( 19) = 0.7827475145816403D+00
        ws( 20) = 0.7758675717247963D+00
        ws( 21) = 0.7688428030007755D+00
        ws( 22) = 0.7616869739734541D+00
        ws( 23) = 0.7544122964622235D+00
        ws( 24) = 0.7470295318202970D+00
        ws( 25) = 0.7395481078510860D+00
        ws( 26) = 0.7319762446367573D+00
        ws( 27) = 0.7243210850868462D+00
        ws( 28) = 0.7165888257963614D+00
        ws( 29) = 0.7087848464516184D+00
        ws( 30) = 0.7009138368823921D+00
        ws( 31) = 0.6929799229045333D+00
        ws( 32) = 0.6849867947892466D+00
        ws( 33) = 0.6769378407089803D+00
        ws( 34) = 0.6688362883936945D+00
        ws( 35) = 0.6606853536592964D+00
        ws( 36) = 0.6524883986309257D+00
        ws( 37) = 0.6442491027556732D+00
        ws( 38) = 0.6359716559587045D+00
        ws( 39) = 0.6276609861011548D+00
        ws( 40) = 0.6193230329016242D+00
        ws( 41) = 0.6109650780752909D+00
        ws( 42) = 0.6025961436258288D+00
        ws( 43) = 0.5942274851092118D+00
        ws( 44) = 0.5858732079695027D+00
        ws( 45) = 0.5775509485973860D+00
        ws( 46) = 0.5692824249252618D+00
        ws( 47) = 0.5610936141047000D+00
        ws( 48) = 0.5530144500438705D+00
        ws( 49) = 0.5450780901550726D+00
        ws( 50) = 0.5373198380361079D+00
        ws( 51) = 0.5297759439351143D+00
        ws( 52) = 0.5224829395211847D+00
        ws( 53) = 0.5154784235069675D+00
        ws( 54) = 0.5088035122134736D+00
        ws( 55) = 0.5025055395523571D+00
        ws( 56) = 0.4966384441404718D+00
        ws( 57) = 0.4912591033795412D+00
        ws( 58) = 0.4864205523429990D+00
        ws( 59) = 0.4821652749546686D+00
        ws( 60) = 0.4785220010725381D+00
        ws( 61) = 0.4755091187948880D+00
        ws( 62) = 0.4731483025478244D+00
        ws( 63) = 0.4714905288139035D+00
        ws( 64) = 0.4706503639488594D+00
        ws( 65) = 0.4708359378575430D+00
        ws( 66) = 0.4723595388653394D+00
        ws( 67) = 0.4756243907223136D+00
        ws( 68) = 0.4811026257860235D+00
        ws( 69) = 0.4893296620873437D+00
        ws( 70) = 0.5009184171552467D+00
        ws( 71) = 0.5165599574652731D+00
        ws( 72) = 0.5369550851431715D+00
        ws( 73) = 0.5626544025576315D+00
        ws( 74) = 0.5938574215465156D+00
        ws( 75) = 0.6302385961010205D+00
        ws( 76) = 0.6711837934701399D+00
        ws( 77) = 0.7165865697603062D+00
        ws( 78) = 0.7638023302298910D+00
        ws( 79) = 0.8136323172096797D+00
        ws( 80) = 0.8971315088276977D+00
        ws( 81) = 0.1127749079246476D+01
        endif
        if( idomain .eq.  207 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.3141592653589793D+01
        rk1r = 0.5026548245743669D+02
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  85
        err = 0.5113363895779524D-10
        xs(  1) = 0.6615520610384923D+00
        xs(  2) = 0.1518186994951445D+01
        xs(  3) = 0.2379047306268770D+01
        xs(  4) = 0.3239745221016265D+01
        xs(  5) = 0.4099110769364532D+01
        xs(  6) = 0.4956472918244560D+01
        xs(  7) = 0.5811307723747180D+01
        xs(  8) = 0.6663156865956524D+01
        xs(  9) = 0.7511602665585852D+01
        xs( 10) = 0.8356259075775588D+01
        xs( 11) = 0.9196768022498254D+01
        xs( 12) = 0.1003279767001154D+02
        xs( 13) = 0.1086404134362024D+02
        xs( 14) = 0.1169021660592563D+02
        xs( 15) = 0.1251106428204628D+02
        xs( 16) = 0.1332634736333758D+02
        xs( 17) = 0.1413584978170970D+02
        xs( 18) = 0.1493937507222920D+02
        xs( 19) = 0.1573674495921017D+02
        xs( 20) = 0.1652779789743614D+02
        xs( 21) = 0.1731238760575512D+02
        xs( 22) = 0.1809038161953191D+02
        xs( 23) = 0.1886165988951427D+02
        xs( 24) = 0.1962611344443201D+02
        xs( 25) = 0.2038364313369184D+02
        xs( 26) = 0.2113415845823415D+02
        xs( 27) = 0.2187757649690341D+02
        xs( 28) = 0.2261382092901105D+02
        xs( 29) = 0.2334282115548196D+02
        xs( 30) = 0.2406451151569616D+02
        xs( 31) = 0.2477883060037324D+02
        xs( 32) = 0.2548572065726550D+02
        xs( 33) = 0.2618512709044288D+02
        xs( 34) = 0.2687699804965646D+02
        xs( 35) = 0.2756128411314428D+02
        xs( 36) = 0.2823793806022374D+02
        xs( 37) = 0.2890691474069575D+02
        xs( 38) = 0.2956817104421939D+02
        xs( 39) = 0.3022166598231913D+02
        xs( 40) = 0.3086736089883538D+02
        xs( 41) = 0.3150521982291218D+02
        xs( 42) = 0.3213520998285417D+02
        xs( 43) = 0.3275730249335293D+02
        xs( 44) = 0.3337147324396696D+02
        xs( 45) = 0.3397770403226233D+02
        xs( 46) = 0.3457598401409257D+02
        xs( 47) = 0.3516631154024341D+02
        xs( 48) = 0.3574869640271787D+02
        xs( 49) = 0.3632316242840025D+02
        xs( 50) = 0.3688975028861617D+02
        xs( 51) = 0.3744852038336297D+02
        xs( 52) = 0.3799955569465148D+02
        xs( 53) = 0.3854296453438902D+02
        xs( 54) = 0.3907888314694478D+02
        xs( 55) = 0.3960747841555080D+02
        xs( 56) = 0.4012895159715863D+02
        xs( 57) = 0.4064354443508888D+02
        xs( 58) = 0.4115154775891136D+02
        xs( 59) = 0.4165330990002609D+02
        xs( 60) = 0.4214924086783009D+02
        xs( 61) = 0.4263981053371989D+02
        xs( 62) = 0.4312554221795272D+02
        xs( 63) = 0.4360700245422856D+02
        xs( 64) = 0.4408478533854963D+02
        xs( 65) = 0.4455949376190901D+02
        xs( 66) = 0.4503173006249200D+02
        xs( 67) = 0.4550211309402032D+02
        xs( 68) = 0.4597132762379619D+02
        xs( 69) = 0.4644019293431546D+02
        xs( 70) = 0.4690972846872679D+02
        xs( 71) = 0.4738120547352785D+02
        xs( 72) = 0.4785619702221401D+02
        xs( 73) = 0.4833665515968309D+02
        xs( 74) = 0.4882503733809642D+02
        xs( 75) = 0.4932447740564145D+02
        xs( 76) = 0.4983896458619199D+02
        xs( 77) = 0.5037345573680090D+02
        xs( 78) = 0.5093381052359526D+02
        xs( 79) = 0.5152651183400578D+02
        xs( 80) = 0.5215804427162783D+02
        xs( 81) = 0.5283419594767237D+02
        xs( 82) = 0.5355912307289021D+02
        xs( 83) = 0.5433664167224548D+02
        xs( 84) = 0.5518772331986231D+02
        xs( 85) = 0.5609467550621796D+02
        ws(  1) = 0.8487860888120599D+00
        ws(  2) = 0.8601675317615005D+00
        ws(  3) = 0.8610579908801119D+00
        ws(  4) = 0.8601642496659563D+00
        ws(  5) = 0.8584589896332355D+00
        ws(  6) = 0.8561790456778250D+00
        ws(  7) = 0.8534145274786022D+00
        ws(  8) = 0.8502142741134455D+00
        ws(  9) = 0.8466130383066793D+00
        ws( 10) = 0.8426401293272481D+00
        ws( 11) = 0.8383224751305497D+00
        ws( 12) = 0.8336857224037414D+00
        ws( 13) = 0.8287545680263430D+00
        ws( 14) = 0.8235527790784977D+00
        ws( 15) = 0.8181030921491627D+00
        ws( 16) = 0.8124270815033533D+00
        ws( 17) = 0.8065450346312194D+00
        ws( 18) = 0.8004758582527516D+00
        ws( 19) = 0.7942370159886777D+00
        ws( 20) = 0.7878445045180383D+00
        ws( 21) = 0.7813128580554904D+00
        ws( 22) = 0.7746551836221575D+00
        ws( 23) = 0.7678832154316133D+00
        ws( 24) = 0.7610073887859119D+00
        ws( 25) = 0.7540369244477741D+00
        ws( 26) = 0.7469799207732647D+00
        ws( 27) = 0.7398434510727251D+00
        ws( 28) = 0.7326336597209357D+00
        ws( 29) = 0.7253558611701364D+00
        ws( 30) = 0.7180146343469822D+00
        ws( 31) = 0.7106139179345947D+00
        ws( 32) = 0.7031571033872490D+00
        ws( 33) = 0.6956471264990339D+00
        ws( 34) = 0.6880865588526022D+00
        ws( 35) = 0.6804777001383171D+00
        ws( 36) = 0.6728226695524806D+00
        ws( 37) = 0.6651235049778595D+00
        ws( 38) = 0.6573822671870968D+00
        ws( 39) = 0.6496011605042826D+00
        ws( 40) = 0.6417826688096278D+00
        ws( 41) = 0.6339297060399388D+00
        ws( 42) = 0.6260457848326303D+00
        ws( 43) = 0.6181351991286768D+00
        ws( 44) = 0.6102032443018006D+00
        ws( 45) = 0.6022564944526113D+00
        ws( 46) = 0.5943031567140789D+00
        ws( 47) = 0.5863534839384656D+00
        ws( 48) = 0.5784201649583678D+00
        ws( 49) = 0.5705186167093420D+00
        ws( 50) = 0.5626671227202815D+00
        ws( 51) = 0.5548868509247151D+00
        ws( 52) = 0.5472017806858072D+00
        ws( 53) = 0.5396385632550058D+00
        ws( 54) = 0.5322264177925038D+00
        ws( 55) = 0.5249975613184567D+00
        ws( 56) = 0.5179889420292365D+00
        ws( 57) = 0.5112450541811643D+00
        ws( 58) = 0.5048195740705059D+00
        ws( 59) = 0.4987730787741454D+00
        ws( 60) = 0.4931672795009123D+00
        ws( 61) = 0.4880594350113977D+00
        ws( 62) = 0.4834986187663236D+00
        ws( 63) = 0.4795212149291256D+00
        ws( 64) = 0.4761452380995464D+00
        ws( 65) = 0.4733717303821573D+00
        ws( 66) = 0.4712031537349125D+00
        ws( 67) = 0.4696758255544550D+00
        ws( 68) = 0.4688886453785390D+00
        ws( 69) = 0.4690110572188900D+00
        ws( 70) = 0.4702711056111526D+00
        ws( 71) = 0.4729438292906640D+00
        ws( 72) = 0.4773625591403385D+00
        ws( 73) = 0.4839602334044149D+00
        ws( 74) = 0.4933229819858510D+00
        ws( 75) = 0.5062205066447827D+00
        ws( 76) = 0.5235807573198490D+00
        ws( 77) = 0.5463778138126245D+00
        ws( 78) = 0.5754322658932610D+00
        ws( 79) = 0.6110432337404739D+00
        ws( 80) = 0.6529488869487718D+00
        ws( 81) = 0.7001023671897167D+00
        ws( 82) = 0.7511025504278194D+00
        ws( 83) = 0.7937687185180795D+00
        ws( 84) = 0.9256780854704327D+00
        ws( 85) = 0.1056172081450701D+01
        endif
        if( idomain .eq.  208 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.6283185307179586D+01
        rk1r = 0.2000000000000000D-01
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  28
        err = 0.5252118455087263D-10
        xs(  1) = 0.5534663014469653D+00
        xs(  2) = 0.1272599102443557D+01
        xs(  3) = 0.2001015684490718D+01
        xs(  4) = 0.2738014790860164D+01
        xs(  5) = 0.3485212281817074D+01
        xs(  6) = 0.4244209108390797D+01
        xs(  7) = 0.5016284762755370D+01
        xs(  8) = 0.5802353533023361D+01
        xs(  9) = 0.6602992035180783D+01
        xs( 10) = 0.7418491957605597D+01
        xs( 11) = 0.8248919574639118D+01
        xs( 12) = 0.9094173012491707D+01
        xs( 13) = 0.9954032795660646D+01
        xs( 14) = 0.1082820448550842D+02
        xs( 15) = 0.1171634579852482D+02
        xs( 16) = 0.1261813336989803D+02
        xs( 17) = 0.1353313830377340D+02
        xs( 18) = 0.1446121630668176D+02
        xs( 19) = 0.1540173315504330D+02
        xs( 20) = 0.1635545768707459D+02
        xs( 21) = 0.1731787498440207D+02
        xs( 22) = 0.1830447267074585D+02
        xs( 23) = 0.1927458816130524D+02
        xs( 24) = 0.2030265110496421D+02
        xs( 25) = 0.2129768884429958D+02
        xs( 26) = 0.2233019993893889D+02
        xs( 27) = 0.2441678070035031D+02
        xs( 28) = 0.2773530599059632D+02
        ws(  1) = 0.7107570538180181D+00
        ws(  2) = 0.7244408261765185D+00
        ws(  3) = 0.7324747690515035D+00
        ws(  4) = 0.7418116215740526D+00
        ws(  5) = 0.7528536965124615D+00
        ws(  6) = 0.7653536552737257D+00
        ws(  7) = 0.7789494880051131D+00
        ws(  8) = 0.7932832402392200D+00
        ws(  9) = 0.8080413623735577D+00
        ws( 10) = 0.8229685562116793D+00
        ws( 11) = 0.8378688984232141D+00
        ws( 12) = 0.8526007293140634D+00
        ws( 13) = 0.8670683089440514D+00
        ws( 14) = 0.8812206455607572D+00
        ws( 15) = 0.8950067569211929D+00
        ws( 16) = 0.9084674786536036D+00
        ws( 17) = 0.9216373404140781D+00
        ws( 18) = 0.9342028152160035D+00
        ws( 19) = 0.9469559109374721D+00
        ws( 20) = 0.9604750561520106D+00
        ws( 21) = 0.9670835456796159D+00
        ws( 22) = 0.9887640235334025D+00
        ws( 23) = 0.9982533770291423D+00
        ws( 24) = 0.1014300060523584D+01
        ws( 25) = 0.8810246117567035D+00
        ws( 26) = 0.1547502782686372D+01
        ws( 27) = 0.2501512103914119D+01
        ws( 28) = 0.4601569937727662D+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 =  28
        err = 0.7775735902033316D-10
        xs(  1) = 0.5300229214111746D+00
        xs(  2) = 0.1217614441271314D+01
        xs(  3) = 0.1911700527932509D+01
        xs(  4) = 0.2610812934471801D+01
        xs(  5) = 0.3316533760349753D+01
        xs(  6) = 0.4031457689118877D+01
        xs(  7) = 0.4758705752121994D+01
        xs(  8) = 0.5501279312584457D+01
        xs(  9) = 0.6261420387409215D+01
        xs( 10) = 0.7040328471934374D+01
        xs( 11) = 0.7838277320476097D+01
        xs( 12) = 0.8654917680929874D+01
        xs( 13) = 0.9489565242461095D+01
        xs( 14) = 0.1034139596150726D+02
        xs( 15) = 0.1120955516515852D+02
        xs( 16) = 0.1209321674231015D+02
        xs( 17) = 0.1299155682252863D+02
        xs( 18) = 0.1390393742845033D+02
        xs( 19) = 0.1482917534176917D+02
        xs( 20) = 0.1576768175354514D+02
        xs( 21) = 0.1671610242724452D+02
        xs( 22) = 0.1767788081649872D+02
        xs( 23) = 0.1863759265396077D+02
        xs( 24) = 0.1962513602930613D+02
        xs( 25) = 0.2060325972748756D+02
        xs( 26) = 0.2147068185865651D+02
        xs( 27) = 0.2320781900840311D+02
        xs( 28) = 0.2497932679837430D+02
        ws(  1) = 0.6803624332741797D+00
        ws(  2) = 0.6916620682279202D+00
        ws(  3) = 0.6964502494534822D+00
        ws(  4) = 0.7020523149016746D+00
        ws(  5) = 0.7098281991980467D+00
        ws(  6) = 0.7205513384934399D+00
        ws(  7) = 0.7344567380074059D+00
        ws(  8) = 0.7510688180989034D+00
        ws(  9) = 0.7694106481933177D+00
        ws( 10) = 0.7884455835604171D+00
        ws( 11) = 0.8073889635696725D+00
        ws( 12) = 0.8257745261359486D+00
        ws( 13) = 0.8433810996251282D+00
        ws( 14) = 0.8601386104300806D+00
        ws( 15) = 0.8760383716455807D+00
        ws( 16) = 0.8911553096096145D+00
        ws( 17) = 0.9053943544743936D+00
        ws( 18) = 0.9192157579083137D+00
        ws( 19) = 0.9314334997784687D+00
        ws( 20) = 0.9445661785702602D+00
        ws( 21) = 0.9512266410730486D+00
        ws( 22) = 0.9816534786806419D+00
        ws( 23) = 0.9264615184225947D+00
        ws( 24) = 0.1018682311255759D+01
        ws( 25) = 0.9161406761798050D+00
        ws( 26) = 0.1228832186695722D+01
        ws( 27) = 0.1426283596927528D+01
        ws( 28) = 0.3431753526678921D+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 =  26
        err = 0.7753807376235008D-10
        xs(  1) = 0.5730930805560648D+00
        xs(  2) = 0.1317716799790395D+01
        xs(  3) = 0.2071921771484916D+01
        xs(  4) = 0.2834947668410641D+01
        xs(  5) = 0.3608417295922280D+01
        xs(  6) = 0.4393923568718701D+01
        xs(  7) = 0.5192717486740602D+01
        xs(  8) = 0.6005670186712157D+01
        xs(  9) = 0.6833308877119937D+01
        xs( 10) = 0.7675877600005138D+01
        xs( 11) = 0.8533403114811412D+01
        xs( 12) = 0.9405756125300842D+01
        xs( 13) = 0.1029270508103452D+02
        xs( 14) = 0.1119395811622517D+02
        xs( 15) = 0.1210919020734690D+02
        xs( 16) = 0.1303810883054013D+02
        xs( 17) = 0.1398041682181028D+02
        xs( 18) = 0.1493549316921244D+02
        xs( 19) = 0.1590441573145183D+02
        xs( 20) = 0.1688515005698757D+02
        xs( 21) = 0.1787669532123377D+02
        xs( 22) = 0.1887835954795966D+02
        xs( 23) = 0.1991668632810832D+02
        xs( 24) = 0.2093280663781310D+02
        xs( 25) = 0.2173157691954982D+02
        xs( 26) = 0.2424456077540141D+02
        ws(  1) = 0.7359590408113881D+00
        ws(  2) = 0.7501085220452559D+00
        ws(  3) = 0.7583811236028558D+00
        ws(  4) = 0.7679606451094614D+00
        ws(  5) = 0.7792476359300446D+00
        ws(  6) = 0.7919737484295992D+00
        ws(  7) = 0.8057585851662475D+00
        ws(  8) = 0.8202336274113049D+00
        ws(  9) = 0.8350833130596663D+00
        ws( 10) = 0.8500575417521915D+00
        ws( 11) = 0.8649710651735206D+00
        ws( 12) = 0.8796959803068881D+00
        ws( 13) = 0.8941504896127781D+00
        ws( 14) = 0.9083073862291182D+00
        ws( 15) = 0.9221085837305840D+00
        ws( 16) = 0.9356127256281807D+00
        ws( 17) = 0.9490190551800202D+00
        ws( 18) = 0.9619752239418459D+00
        ws( 19) = 0.9719694693709079D+00
        ws( 20) = 0.9929230937791349D+00
        ws( 21) = 0.1006267709206067D+01
        ws( 22) = 0.9711745501117006D+00
        ws( 23) = 0.9703226875955732D+00
        ws( 24) = 0.1468875778925520D+01
        ws( 25) = 0.5159225295912597D+00
        ws( 26) = 0.4397010001401272D+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 =  26
        err = 0.8624639834273851D-10
        xs(  1) = 0.5752780608092838D+00
        xs(  2) = 0.1322669863908058D+01
        xs(  3) = 0.2079518281955298D+01
        xs(  4) = 0.2844988896848210D+01
        xs(  5) = 0.3620662005690671D+01
        xs(  6) = 0.4408110862972647D+01
        xs(  7) = 0.5208585526247724D+01
        xs(  8) = 0.6022970012779386D+01
        xs(  9) = 0.6851813288371469D+01
        xs( 10) = 0.7695385808620007D+01
        xs( 11) = 0.8553742279183476D+01
        xs( 12) = 0.9426780897517917D+01
        xs( 13) = 0.1031429623597075D+02
        xs( 14) = 0.1121602050979619D+02
        xs( 15) = 0.1213165268692744D+02
        xs( 16) = 0.1306092688459839D+02
        xs( 17) = 0.1400353375945054D+02
        xs( 18) = 0.1495911307973493D+02
        xs( 19) = 0.1592779706632454D+02
        xs( 20) = 0.1691092083682242D+02
        xs( 21) = 0.1789973988312201D+02
        xs( 22) = 0.1890500977802129D+02
        xs( 23) = 0.1995716117765800D+02
        xs( 24) = 0.2094835200672430D+02
        xs( 25) = 0.2187884813802159D+02
        xs( 26) = 0.2424037414431378D+02
        ws(  1) = 0.7387461216803684D+00
        ws(  2) = 0.7528305082430774D+00
        ws(  3) = 0.7609343880768606D+00
        ws(  4) = 0.7702898006753865D+00
        ws(  5) = 0.7813222333259269D+00
        ws(  6) = 0.7937842469943813D+00
        ws(  7) = 0.8073118077494128D+00
        ws(  8) = 0.8215476764597168D+00
        ws(  9) = 0.8361828876214698D+00
        ws( 10) = 0.8509702506177866D+00
        ws( 11) = 0.8657248782117284D+00
        ws( 12) = 0.8803177116964060D+00
        ws( 13) = 0.8946654689249200D+00
        ws( 14) = 0.9087398224489724D+00
        ws( 15) = 0.9224752710111076D+00
        ws( 16) = 0.9359750326240461D+00
        ws( 17) = 0.9492562459870502D+00
        ws( 18) = 0.9625347530540233D+00
        ws( 19) = 0.9724893547645067D+00
        ws( 20) = 0.9905213142969903D+00
        ws( 21) = 0.1022937866362180D+01
        ws( 22) = 0.9255047382490573D+00
        ws( 23) = 0.1070825474843617D+01
        ws( 24) = 0.1392667662685804D+01
        ws( 25) = 0.5202774417458621D+00
        ws( 26) = 0.4358727934916904D+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 =  26
        err = 0.8577547629153979D-10
        xs(  1) = 0.5731343828895958D+00
        xs(  2) = 0.1317769397521706D+01
        xs(  3) = 0.2071893147830053D+01
        xs(  4) = 0.2834712119793886D+01
        xs(  5) = 0.3607836412789881D+01
        xs(  6) = 0.4392865139825067D+01
        xs(  7) = 0.5191069718758884D+01
        xs(  8) = 0.6003350125360688D+01
        xs(  9) = 0.6830265566220524D+01
        xs( 10) = 0.7672091354156302D+01
        xs( 11) = 0.8528882458490996D+01
        xs( 12) = 0.9400533765307554D+01
        xs( 13) = 0.1028683384028398D+02
        xs( 14) = 0.1118750784460983D+02
        xs( 15) = 0.1210224460652514D+02
        xs( 16) = 0.1303077311861689D+02
        xs( 17) = 0.1397276214833475D+02
        xs( 18) = 0.1492789023835180D+02
        xs( 19) = 0.1589611590500872D+02
        xs( 20) = 0.1687898180798442D+02
        xs( 21) = 0.1786816222565066D+02
        xs( 22) = 0.1887163517413480D+02
        xs( 23) = 0.1992148846336924D+02
        xs( 24) = 0.2092235133234538D+02
        xs( 25) = 0.2181567610423605D+02
        xs( 26) = 0.2422742561370889D+02
        ws(  1) = 0.7360007032881100D+00
        ws(  2) = 0.7500807395698706D+00
        ws(  3) = 0.7582408899691635D+00
        ws(  4) = 0.7676849397809291D+00
        ws(  5) = 0.7788337891435092D+00
        ws(  6) = 0.7914360073860749D+00
        ws(  7) = 0.8051225434854548D+00
        ws(  8) = 0.8195304816887211D+00
        ws(  9) = 0.8343452088791897D+00
        ws( 10) = 0.8493144927042419D+00
        ws( 11) = 0.8642493231677538D+00
        ws( 12) = 0.8790176616608035D+00
        ws( 13) = 0.8935338350936565D+00
        ws( 14) = 0.9077685229665224D+00
        ws( 15) = 0.9216577607575662D+00
        ws( 16) = 0.9352919437398476D+00
        ws( 17) = 0.9487195942857296D+00
        ws( 18) = 0.9620633747471741D+00
        ws( 19) = 0.9725378570326552D+00
        ws( 20) = 0.9887588920917786D+00
        ws( 21) = 0.1025894560130850D+01
        ws( 22) = 0.9221945300514632D+00
        ws( 23) = 0.1072576239846472D+01
        ws( 24) = 0.1365471015510492D+01
        ws( 25) = 0.5750484371975212D+00
        ws( 26) = 0.4326795433743320D+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 =  28
        err = 0.4183633009378253D-10
        xs(  1) = 0.5201664687819986D+00
        xs(  2) = 0.1200842388682785D+01
        xs(  3) = 0.1899133931428490D+01
        xs(  4) = 0.2614831281043745D+01
        xs(  5) = 0.3348049021087704D+01
        xs(  6) = 0.4098576916945452D+01
        xs(  7) = 0.4866221532651127D+01
        xs(  8) = 0.5650851312873552D+01
        xs(  9) = 0.6452334323646016D+01
        xs( 10) = 0.7270483422034961D+01
        xs( 11) = 0.8105033670835876D+01
        xs( 12) = 0.8955645064516640D+01
        xs( 13) = 0.9821919263781753D+01
        xs( 14) = 0.1070342151416770D+02
        xs( 15) = 0.1159969458017613D+02
        xs( 16) = 0.1251030430006229D+02
        xs( 17) = 0.1343478877876312D+02
        xs( 18) = 0.1437271015325297D+02
        xs( 19) = 0.1532379228280441D+02
        xs( 20) = 0.1628751895161142D+02
        xs( 21) = 0.1726413371633351D+02
        xs( 22) = 0.1824707367340649D+02
        xs( 23) = 0.1925598023995212D+02
        xs( 24) = 0.2026162757275542D+02
        xs( 25) = 0.2126748957504623D+02
        xs( 26) = 0.2220223195638037D+02
        xs( 27) = 0.2425171173412776D+02
        xs( 28) = 0.2472093003797194D+02
        ws(  1) = 0.6693637253282056D+00
        ws(  2) = 0.6897776890714594D+00
        ws(  3) = 0.7069218493904411D+00
        ws(  4) = 0.7244829234930875D+00
        ws(  5) = 0.7419116695445633D+00
        ws(  6) = 0.7591117599045952D+00
        ws(  7) = 0.7761568253683976D+00
        ws(  8) = 0.7930816939327801D+00
        ws(  9) = 0.8098534894926651D+00
        ws( 10) = 0.8264004729909412D+00
        ws( 11) = 0.8426430425405878D+00
        ws( 12) = 0.8585131784715662D+00
        ws( 13) = 0.8739615472812107D+00
        ws( 14) = 0.8889679197009563D+00
        ws( 15) = 0.9035105703254568D+00
        ws( 16) = 0.9175974375003921D+00
        ws( 17) = 0.9313599069253145D+00
        ws( 18) = 0.9445360711691897D+00
        ws( 19) = 0.9570622541605570D+00
        ws( 20) = 0.9701089715319502D+00
        ws( 21) = 0.9849563233587963D+00
        ws( 22) = 0.9898499518370559D+00
        ws( 23) = 0.9856625218522445D+00
        ws( 24) = 0.1026236335162007D+01
        ws( 25) = 0.1165066058047668D+01
        ws( 26) = 0.8447920379295232D+00
        ws( 27) = 0.1496215198294938D+01
        ws( 28) = 0.2607564243637126D+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 =  30
        err = 0.5163212927839025D-11
        xs(  1) = 0.5220257658946555D+00
        xs(  2) = 0.1200447763451848D+01
        xs(  3) = 0.1888008517118006D+01
        xs(  4) = 0.2584372823228064D+01
        xs(  5) = 0.3291473815399994D+01
        xs(  6) = 0.4011272899891346D+01
        xs(  7) = 0.4745416745797710D+01
        xs(  8) = 0.5495149733333922D+01
        xs(  9) = 0.6261311494923073D+01
        xs( 10) = 0.7044376648682717D+01
        xs( 11) = 0.7844514792561717D+01
        xs( 12) = 0.8661656435744533D+01
        xs( 13) = 0.9495556508318103D+01
        xs( 14) = 0.1034584952802984D+02
        xs( 15) = 0.1121209583870149D+02
        xs( 16) = 0.1209381852435803D+02
        xs( 17) = 0.1299053434201261D+02
        xs( 18) = 0.1390176140508385D+02
        xs( 19) = 0.1482705128350574D+02
        xs( 20) = 0.1576599999290203D+02
        xs( 21) = 0.1671814877267471D+02
        xs( 22) = 0.1768331967074674D+02
        xs( 23) = 0.1866163083481003D+02
        xs( 24) = 0.1964900552373219D+02
        xs( 25) = 0.2064990254295963D+02
        xs( 26) = 0.2167129943148705D+02
        xs( 27) = 0.2268997454664808D+02
        xs( 28) = 0.2368547517962432D+02
        xs( 29) = 0.2460079805674721D+02
        xs( 30) = 0.2735099668902649D+02
        ws(  1) = 0.6704165122841436D+00
        ws(  2) = 0.6835731858770074D+00
        ws(  3) = 0.6916805352776914D+00
        ws(  4) = 0.7013887997379357D+00
        ws(  5) = 0.7131443480227790D+00
        ws(  6) = 0.7267294851212004D+00
        ws(  7) = 0.7417655620045516D+00
        ws(  8) = 0.7578396388870633D+00
        ws(  9) = 0.7745619604341767D+00
        ws( 10) = 0.7915954764391467D+00
        ws( 11) = 0.8086681665079292D+00
        ws( 12) = 0.8255734666047327D+00
        ws( 13) = 0.8421646641268083D+00
        ws( 14) = 0.8583474952402720D+00
        ws( 15) = 0.8740667053943454D+00
        ws( 16) = 0.8892966087119963D+00
        ws( 17) = 0.9040474010660134D+00
        ws( 18) = 0.9183418909575575D+00
        ws( 19) = 0.9321855789509174D+00
        ws( 20) = 0.9456427265564677D+00
        ws( 21) = 0.9586755069797493D+00
        ws( 22) = 0.9704461396446554D+00
        ws( 23) = 0.9874151891608690D+00
        ws( 24) = 0.9954072734556882D+00
        ws( 25) = 0.9926688045350393D+00
        ws( 26) = 0.1017882237336250D+01
        ws( 27) = 0.1042550062019433D+01
        ws( 28) = 0.1094940010837331D+01
        ws( 29) = 0.1019513618812723D+01
        ws( 30) = 0.4815180765399803D+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 =  30
        err = 0.6763186245693618D-10
        xs(  1) = 0.5429204215290111D+00
        xs(  2) = 0.1247641463260528D+01
        xs(  3) = 0.1959921020079125D+01
        xs(  4) = 0.2678560280821602D+01
        xs(  5) = 0.3405025281854927D+01
        xs(  6) = 0.4141146587773094D+01
        xs(  7) = 0.4888732748911725D+01
        xs(  8) = 0.5649404041440208D+01
        xs(  9) = 0.6424495724769953D+01
        xs( 10) = 0.7215011932224371D+01
        xs( 11) = 0.8021623115902628D+01
        xs( 12) = 0.8844696166594327D+01
        xs( 13) = 0.9684344048257204D+01
        xs( 14) = 0.1054048314034316D+02
        xs( 15) = 0.1141288971139568D+02
        xs( 16) = 0.1230124967436719D+02
        xs( 17) = 0.1320520210198494D+02
        xs( 18) = 0.1412437802125383D+02
        xs( 19) = 0.1505842394418139D+02
        xs( 20) = 0.1600701969591459D+02
        xs( 21) = 0.1696998052282488D+02
        xs( 22) = 0.1794681034174821D+02
        xs( 23) = 0.1893823861828473D+02
        xs( 24) = 0.1994393923660731D+02
        xs( 25) = 0.2096429034077203D+02
        xs( 26) = 0.2199558261660886D+02
        xs( 27) = 0.2303401302311302D+02
        xs( 28) = 0.2411560696547728D+02
        xs( 29) = 0.2528077719572105D+02
        xs( 30) = 0.2632478567336909D+02
        ws(  1) = 0.6970233153830259D+00
        ws(  2) = 0.7092691690840122D+00
        ws(  3) = 0.7152843286265498D+00
        ws(  4) = 0.7222573005415623D+00
        ws(  5) = 0.7309827611897840D+00
        ws(  6) = 0.7415638666515380D+00
        ws(  7) = 0.7538800942359505D+00
        ws(  8) = 0.7676857862689098D+00
        ws(  9) = 0.7826649526360647D+00
        ws( 10) = 0.7984786763931390D+00
        ws( 11) = 0.8148039631143562D+00
        ws( 12) = 0.8313599808451769D+00
        ws( 13) = 0.8479210312140900D+00
        ws( 14) = 0.8643188940376092D+00
        ws( 15) = 0.8804404305858792D+00
        ws( 16) = 0.8962204784878351D+00
        ws( 17) = 0.9116247115442553D+00
        ws( 18) = 0.9266594180482237D+00
        ws( 19) = 0.9413758904404731D+00
        ws( 20) = 0.9557736725992726D+00
        ws( 21) = 0.9700644764619393D+00
        ws( 22) = 0.9849267516087451D+00
        ws( 23) = 0.9941204867572724D+00
        ws( 24) = 0.1015184950397400D+01
        ws( 25) = 0.1042620797459148D+01
        ws( 26) = 0.1032627483152501D+01
        ws( 27) = 0.1002389547351649D+01
        ws( 28) = 0.1003303836188016D+01
        ws( 29) = 0.1454813676680854D+01
        ws( 30) = 0.1695907503158442D+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 =  31
        err = 0.6864738180920121D-10
        xs(  1) = 0.5381262817498789D+00
        xs(  2) = 0.1235279768084995D+01
        xs(  3) = 0.1936784255967440D+01
        xs(  4) = 0.2639863677030380D+01
        xs(  5) = 0.3344678479318465D+01
        xs(  6) = 0.4052162236100905D+01
        xs(  7) = 0.4763734293294122D+01
        xs(  8) = 0.5481182576347156D+01
        xs(  9) = 0.6206545910086197D+01
        xs( 10) = 0.6941971864633170D+01
        xs( 11) = 0.7689559034974943D+01
        xs( 12) = 0.8451205928985484D+01
        xs( 13) = 0.9228491682676825D+01
        xs( 14) = 0.1002260696895544D+02
        xs( 15) = 0.1083434072285386D+02
        xs( 16) = 0.1166411440204507D+02
        xs( 17) = 0.1251204606278182D+02
        xs( 18) = 0.1337802594566576D+02
        xs( 19) = 0.1426179049195462D+02
        xs( 20) = 0.1516298900682623D+02
        xs( 21) = 0.1608123449292824D+02
        xs( 22) = 0.1701617451517109D+02
        xs( 23) = 0.1796744146107177D+02
        xs( 24) = 0.1893486922474233D+02
        xs( 25) = 0.1991799904956794D+02
        xs( 26) = 0.2091848604564676D+02
        xs( 27) = 0.2193465728994178D+02
        xs( 28) = 0.2296412038510714D+02
        xs( 29) = 0.2401291970461175D+02
        xs( 30) = 0.2509305011911210D+02
        xs( 31) = 0.2621327734168152D+02
        ws(  1) = 0.6905139560981065D+00
        ws(  2) = 0.7003744154511869D+00
        ws(  3) = 0.7023624377143703D+00
        ws(  4) = 0.7038397440352128D+00
        ws(  5) = 0.7059487134056951D+00
        ws(  6) = 0.7092570775944093D+00
        ws(  7) = 0.7141869506603703D+00
        ws(  8) = 0.7210518151737841D+00
        ws(  9) = 0.7300354655386336D+00
        ws( 10) = 0.7411687915685753D+00
        ws( 11) = 0.7543239980782193D+00
        ws( 12) = 0.7692341533911473D+00
        ws( 13) = 0.7855359748885516D+00
        ws( 14) = 0.8028254587902482D+00
        ws( 15) = 0.8207112444803275D+00
        ws( 16) = 0.8388544274421867D+00
        ws( 17) = 0.8569891526451332D+00
        ws( 18) = 0.8749258154075557D+00
        ws( 19) = 0.8925436658846112D+00
        ws( 20) = 0.9097882285233156D+00
        ws( 21) = 0.9266483366358746D+00
        ws( 22) = 0.9431200772996977D+00
        ws( 23) = 0.9595620071875984D+00
        ws( 24) = 0.9749967261936953D+00
        ws( 25) = 0.9917210942318353D+00
        ws( 26) = 0.1007853884734847D+01
        ws( 27) = 0.1022271260557174D+01
        ws( 28) = 0.1045860996658766D+01
        ws( 29) = 0.1093877371049196D+01
        ws( 30) = 0.1131789434833174D+01
        ws( 31) = 0.1167581975846453D+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 =  33
        err = 0.5812838646423950D-10
        xs(  1) = 0.5657393237757868D+00
        xs(  2) = 0.1297698154555596D+01
        xs(  3) = 0.2031901623309614D+01
        xs(  4) = 0.2764054155761474D+01
        xs(  5) = 0.3492910049268731D+01
        xs(  6) = 0.4218021616053849D+01
        xs(  7) = 0.4939487383359403D+01
        xs(  8) = 0.5657907303668880D+01
        xs(  9) = 0.6374363160094379D+01
        xs( 10) = 0.7090389672602596D+01
        xs( 11) = 0.7807924964775620D+01
        xs( 12) = 0.8529233264489855D+01
        xs( 13) = 0.9256796137763798D+01
        xs( 14) = 0.9993175550779265D+01
        xs( 15) = 0.1074086160895742D+02
        xs( 16) = 0.1150212640024398D+02
        xs( 17) = 0.1227890720251037D+02
        xs( 18) = 0.1307273469186232D+02
        xs( 19) = 0.1388471586378143D+02
        xs( 20) = 0.1471556318672185D+02
        xs( 21) = 0.1556565917579686D+02
        xs( 22) = 0.1643513527908583D+02
        xs( 23) = 0.1732395992494702D+02
        xs( 24) = 0.1823197557470874D+02
        xs( 25) = 0.1915910818140422D+02
        xs( 26) = 0.2010505190143344D+02
        xs( 27) = 0.2107019796797166D+02
        xs( 28) = 0.2205418748222046D+02
        xs( 29) = 0.2305741465548542D+02
        xs( 30) = 0.2408338363507411D+02
        xs( 31) = 0.2514409446114329D+02
        xs( 32) = 0.2621351334725311D+02
        xs( 33) = 0.2737577400746287D+02
        ws(  1) = 0.7256936686419665D+00
        ws(  2) = 0.7344063908873290D+00
        ws(  3) = 0.7334850216750008D+00
        ws(  4) = 0.7306295045323605D+00
        ws(  5) = 0.7270102545432665D+00
        ws(  6) = 0.7232297971774398D+00
        ws(  7) = 0.7198019993923225D+00
        ws(  8) = 0.7172185968055491D+00
        ws(  9) = 0.7159497119589118D+00
        ws( 10) = 0.7164276130906629D+00
        ws( 11) = 0.7190221524908172D+00
        ws( 12) = 0.7240103625912561D+00
        ws( 13) = 0.7315449945076054D+00
        ws( 14) = 0.7416312872894874D+00
        ws( 15) = 0.7541215026063645D+00
        ws( 16) = 0.7687322676328786D+00
        ws( 17) = 0.7850846358692811D+00
        ws( 18) = 0.8027543601694485D+00
        ws( 19) = 0.8213255374922427D+00
        ws( 20) = 0.8404308967834530D+00
        ws( 21) = 0.8597822164153360D+00
        ws( 22) = 0.8791639786044894D+00
        ws( 23) = 0.8984579911439642D+00
        ws( 24) = 0.9175665976083164D+00
        ws( 25) = 0.9365253588453567D+00
        ws( 26) = 0.9555380756720525D+00
        ws( 27) = 0.9750495717214201D+00
        ws( 28) = 0.9945788611609858D+00
        ws( 29) = 0.1008605605689004D+01
        ws( 30) = 0.1037029546617996D+01
        ws( 31) = 0.1072241917184757D+01
        ws( 32) = 0.1097206032421609D+01
        ws( 33) = 0.1739192879540616D+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 =  34
        err = 0.6099253557482130D-10
        xs(  1) = 0.5887671857801741D+00
        xs(  2) = 0.1350462172336654D+01
        xs(  3) = 0.2114317398746553D+01
        xs(  4) = 0.2875655204145394D+01
        xs(  5) = 0.3632838597121440D+01
        xs(  6) = 0.4384895451187601D+01
        xs(  7) = 0.5131238698043532D+01
        xs(  8) = 0.5871618834741066D+01
        xs(  9) = 0.6606121341017891D+01
        xs( 10) = 0.7335174866491118D+01
        xs( 11) = 0.8059561408433693D+01
        xs( 12) = 0.8780424852461980D+01
        xs( 13) = 0.9499274396142569D+01
        xs( 14) = 0.1021797757049987D+02
        xs( 15) = 0.1093873441952914D+02
        xs( 16) = 0.1166402155748241D+02
        xs( 17) = 0.1239649912914244D+02
        xs( 18) = 0.1313888078634692D+02
        xs( 19) = 0.1389377965840785D+02
        xs( 20) = 0.1466355669349170D+02
        xs( 21) = 0.1545019790059080D+02
        xs( 22) = 0.1625525092779552D+02
        xs( 23) = 0.1707982715926614D+02
        xs( 24) = 0.1792462928442504D+02
        xs( 25) = 0.1879009069336106D+02
        xs( 26) = 0.1967651268728967D+02
        xs( 27) = 0.2058397233734983D+02
        xs( 28) = 0.2151204718350391D+02
        xs( 29) = 0.2246242436354565D+02
        xs( 30) = 0.2343536235423388D+02
        xs( 31) = 0.2442755438774736D+02
        xs( 32) = 0.2544355280650026D+02
        xs( 33) = 0.2652187949802643D+02
        xs( 34) = 0.2759745561512598D+02
        ws(  1) = 0.7552185418725935D+00
        ws(  2) = 0.7641797398444783D+00
        ws(  3) = 0.7629603957275493D+00
        ws(  4) = 0.7594607034106935D+00
        ws(  5) = 0.7547470553084270D+00
        ws(  6) = 0.7492693421522330D+00
        ws(  7) = 0.7433755569319416D+00
        ws(  8) = 0.7373988103822577D+00
        ws(  9) = 0.7316774648677132D+00
        ws( 10) = 0.7265597704291779D+00
        ws( 11) = 0.7224039023069644D+00
        ws( 12) = 0.7195745961037490D+00
        ws( 13) = 0.7184361462568823D+00
        ws( 14) = 0.7193378496882624D+00
        ws( 15) = 0.7225900993767992D+00
        ws( 16) = 0.7284296331386197D+00
        ws( 17) = 0.7369805331869967D+00
        ws( 18) = 0.7482212211812302D+00
        ws( 19) = 0.7619724533988848D+00
        ws( 20) = 0.7779121106408350D+00
        ws( 21) = 0.7956281753110697D+00
        ws( 22) = 0.8146637516192127D+00
        ws( 23) = 0.8346024633849451D+00
        ws( 24) = 0.8551308061256391D+00
        ws( 25) = 0.8757200258659043D+00
        ws( 26) = 0.8969321208852340D+00
        ws( 27) = 0.9182587286331243D+00
        ws( 28) = 0.9396647342816551D+00
        ws( 29) = 0.9606602941712443D+00
        ws( 30) = 0.9811757938729265D+00
        ws( 31) = 0.9981952326690342D+00
        ws( 32) = 0.9993188699409155D+00
        ws( 33) = 0.1173499312831286D+01
        ws( 34) = 0.1745763718119849D+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 =  37
        err = 0.4934918148659504D-10
        xs(  1) = 0.6062247432619974D+00
        xs(  2) = 0.1390627791071131D+01
        xs(  3) = 0.2177519311580738D+01
        xs(  4) = 0.2962153752044373D+01
        xs(  5) = 0.3742820256781196D+01
        xs(  6) = 0.4518377886317958D+01
        xs(  7) = 0.5287958062349855D+01
        xs(  8) = 0.6050912944663059D+01
        xs(  9) = 0.6806813465685799D+01
        xs( 10) = 0.7555459063023908D+01
        xs( 11) = 0.8296888365028440D+01
        xs( 12) = 0.9031387532531536D+01
        xs( 13) = 0.9759495980315547D+01
        xs( 14) = 0.1048201113893439D+02
        xs( 15) = 0.1119999404566741D+02
        xs( 16) = 0.1191477639064790D+02
        xs( 17) = 0.1262796724812952D+02
        xs( 18) = 0.1334145472049470D+02
        xs( 19) = 0.1405739455264545D+02
        xs( 20) = 0.1477817733947481D+02
        xs( 21) = 0.1550636518679789D+02
        xs( 22) = 0.1624459572397556D+02
        xs( 23) = 0.1699546056396445D+02
        xs( 24) = 0.1776137063536687D+02
        xs( 25) = 0.1854443786057495D+02
        xs( 26) = 0.1934639223396174D+02
        xs( 27) = 0.2016855040938978D+02
        xs( 28) = 0.2101186971267985D+02
        xs( 29) = 0.2187699491326144D+02
        xs( 30) = 0.2276436081899658D+02
        xs( 31) = 0.2367442212054167D+02
        xs( 32) = 0.2460729287936629D+02
        xs( 33) = 0.2556452433874682D+02
        xs( 34) = 0.2654778868678025D+02
        xs( 35) = 0.2755312186576224D+02
        xs( 36) = 0.2861326302109028D+02
        xs( 37) = 0.2964115594624068D+02
        ws(  1) = 0.7776447837138878D+00
        ws(  2) = 0.7870750086918770D+00
        ws(  3) = 0.7861330803627561D+00
        ws(  4) = 0.7828698296446249D+00
        ws(  5) = 0.7782762561346342D+00
        ws(  6) = 0.7726948294373706D+00
        ws(  7) = 0.7663575187895267D+00
        ws(  8) = 0.7594805491375884D+00
        ws(  9) = 0.7522868806572073D+00
        ws( 10) = 0.7450106148626426D+00
        ws( 11) = 0.7378955933496877D+00
        ws( 12) = 0.7311925585327556D+00
        ws( 13) = 0.7251571594828208D+00
        ws( 14) = 0.7200498874135463D+00
        ws( 15) = 0.7161377374311373D+00
        ws( 16) = 0.7136950732631844D+00
        ws( 17) = 0.7130014952226378D+00
        ws( 18) = 0.7143332651550657D+00
        ws( 19) = 0.7179459789816759D+00
        ws( 20) = 0.7240480603004111D+00
        ws( 21) = 0.7327691687017464D+00
        ws( 22) = 0.7441265222459048D+00
        ws( 23) = 0.7580072325094079D+00
        ws( 24) = 0.7741655684544232D+00
        ws( 25) = 0.7922571135096327D+00
        ws( 26) = 0.8118718832925644D+00
        ws( 27) = 0.8325976848778183D+00
        ws( 28) = 0.8541311978305925D+00
        ws( 29) = 0.8761617967692010D+00
        ws( 30) = 0.8988421306653097D+00
        ws( 31) = 0.9216381404742993D+00
        ws( 32) = 0.9431258217183274D+00
        ws( 33) = 0.9705413765451548D+00
        ws( 34) = 0.9909366186272089D+00
        ws( 35) = 0.1000172182415965D+01
        ws( 36) = 0.1188501486744724D+01
        ws( 37) = 0.1367437449925751D+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 =  38
        err = 0.5160158539481374D-10
        xs(  1) = 0.6262366488429068D+00
        xs(  2) = 0.1436628373073457D+01
        xs(  3) = 0.2249808731888486D+01
        xs(  4) = 0.3060974990803983D+01
        xs(  5) = 0.3868425398559375D+01
        xs(  6) = 0.4671000300401516D+01
        xs(  7) = 0.5467761668551550D+01
        xs(  8) = 0.6257927074338096D+01
        xs(  9) = 0.7040856555263608D+01
        xs( 10) = 0.7816054987122733D+01
        xs( 11) = 0.8583180491856822D+01
        xs( 12) = 0.9342055999826869D+01
        xs( 13) = 0.1009268290480381D+02
        xs( 14) = 0.1083525587942902D+02
        xs( 15) = 0.1157017777345493D+02
        xs( 16) = 0.1229807307864449D+02
        xs( 17) = 0.1301979838028292D+02
        xs( 18) = 0.1373644960114072D+02
        xs( 19) = 0.1444936678628399D+02
        xs( 20) = 0.1516013894629960D+02
        xs( 21) = 0.1587061010739444D+02
        xs( 22) = 0.1658288400243735D+02
        xs( 23) = 0.1729932033590064D+02
        xs( 24) = 0.1802251186279162D+02
        xs( 25) = 0.1875522788661590D+02
        xs( 26) = 0.1950032202318790D+02
        xs( 27) = 0.2026060310685999D+02
        xs( 28) = 0.2103868184131971D+02
        xs( 29) = 0.2183683926302104D+02
        xs( 30) = 0.2265696604441017D+02
        xs( 31) = 0.2350045952814888D+02
        xs( 32) = 0.2436837055650907D+02
        xs( 33) = 0.2526117905843267D+02
        xs( 34) = 0.2617913565053622D+02
        xs( 35) = 0.2712387214873382D+02
        xs( 36) = 0.2810608750755983D+02
        xs( 37) = 0.2914669310780934D+02
        xs( 38) = 0.3016647558879827D+02
        ws(  1) = 0.8033405476689269D+00
        ws(  2) = 0.8132421181345084D+00
        ws(  3) = 0.8125414494468129D+00
        ws(  4) = 0.8095274553238713D+00
        ws(  5) = 0.8051836487408961D+00
        ws(  6) = 0.7998106389410695D+00
        ws(  7) = 0.7935818516707570D+00
        ws(  8) = 0.7866422437623877D+00
        ws(  9) = 0.7791340486298701D+00
        ws( 10) = 0.7712056427586358D+00
        ws( 11) = 0.7630156210588849D+00
        ws( 12) = 0.7547353772344604D+00
        ws( 13) = 0.7465506269846165D+00
        ws( 14) = 0.7386622370456505D+00
        ws( 15) = 0.7312854598269047D+00
        ws( 16) = 0.7246477833077845D+00
        ws( 17) = 0.7189854081425038D+00
        ws( 18) = 0.7145403032562898D+00
        ws( 19) = 0.7115587561543654D+00
        ws( 20) = 0.7102927503335538D+00
        ws( 21) = 0.7110003203486650D+00
        ws( 22) = 0.7139412152116427D+00
        ws( 23) = 0.7193644594815922D+00
        ws( 24) = 0.7274803960847162D+00
        ws( 25) = 0.7384307340390583D+00
        ws( 26) = 0.7522283155356133D+00
        ws( 27) = 0.7687692876722121D+00
        ws( 28) = 0.7877763874176832D+00
        ws( 29) = 0.8088505114442209D+00
        ws( 30) = 0.8316017234850460D+00
        ws( 31) = 0.8554356299675721D+00
        ws( 32) = 0.8805490965153198D+00
        ws( 33) = 0.9053667673665593D+00
        ws( 34) = 0.9312060220760093D+00
        ws( 35) = 0.9575314050243003D+00
        ws( 36) = 0.9808747915641014D+00
        ws( 37) = 0.1129024965628439D+01
        ws( 38) = 0.1339911426704997D+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 =  40
        err = 0.7465256660507200D-10
        xs(  1) = 0.6440585350458840D+00
        xs(  2) = 0.1477658558124201D+01
        xs(  3) = 0.2314467258968854D+01
        xs(  4) = 0.3149719300067242D+01
        xs(  5) = 0.3981812752875818D+01
        xs(  6) = 0.4809670161298303D+01
        xs(  7) = 0.5632403022468015D+01
        xs(  8) = 0.6449238570338335D+01
        xs(  9) = 0.7259501130815754D+01
        xs( 10) = 0.8062609288395000D+01
        xs( 11) = 0.8858078920701439D+01
        xs( 12) = 0.9645529076631625D+01
        xs( 13) = 0.1042468976172227D+02
        xs( 14) = 0.1119541111877272D+02
        xs( 15) = 0.1195767379336797D+02
        xs( 16) = 0.1271160008648149D+02
        xs( 17) = 0.1345746551501782D+02
        xs( 18) = 0.1419570971479773D+02
        xs( 19) = 0.1492694617556167D+02
        xs( 20) = 0.1565197054939566D+02
        xs( 21) = 0.1637176842911693D+02
        xs( 22) = 0.1708752496564116D+02
        xs( 23) = 0.1780063850639504D+02
        xs( 24) = 0.1851273988584981D+02
        xs( 25) = 0.1922571476190754D+02
        xs( 26) = 0.1994172015072223D+02
        xs( 27) = 0.2066319145806695D+02
        xs( 28) = 0.2139282060527120D+02
        xs( 29) = 0.2213350116761982D+02
        xs( 30) = 0.2288823828602879D+02
        xs( 31) = 0.2366003178219725D+02
        xs( 32) = 0.2445176244034279D+02
        xs( 33) = 0.2526598383613527D+02
        xs( 34) = 0.2610481863281239D+02
        xs( 35) = 0.2697077441073744D+02
        xs( 36) = 0.2786643954999143D+02
        xs( 37) = 0.2878484199799032D+02
        xs( 38) = 0.2975130526305125D+02
        xs( 39) = 0.3078487965942686D+02
        xs( 40) = 0.3180653127813778D+02
        ws(  1) = 0.8262408772787539D+00
        ws(  2) = 0.8366711030189768D+00
        ws(  3) = 0.8363818418436921D+00
        ws(  4) = 0.8338759585141343D+00
        ws(  5) = 0.8301351418578521D+00
        ws(  6) = 0.8254325198450093D+00
        ws(  7) = 0.8199046518186440D+00
        ws(  8) = 0.8136538559644620D+00
        ws(  9) = 0.8067743207005817D+00
        ws( 10) = 0.7993612071601196D+00
        ws( 11) = 0.7915144187857784D+00
        ws( 12) = 0.7833407369033147D+00
        ws( 13) = 0.7749555006386535D+00
        ws( 14) = 0.7664838184809264D+00
        ws( 15) = 0.7580616926164491D+00
        ws( 16) = 0.7498366212794250D+00
        ws( 17) = 0.7419673568871188D+00
        ws( 18) = 0.7346231463372778D+00
        ws( 19) = 0.7279822830861410D+00
        ws( 20) = 0.7222305716501729D+00
        ws( 21) = 0.7175624480136831D+00
        ws( 22) = 0.7141832795189687D+00
        ws( 23) = 0.7123153093362520D+00
        ws( 24) = 0.7122014696256813D+00
        ws( 25) = 0.7141071672040185D+00
        ws( 26) = 0.7183099272691461D+00
        ws( 27) = 0.7250818950872352D+00
        ws( 28) = 0.7346587574889976D+00
        ws( 29) = 0.7472055655400930D+00
        ws( 30) = 0.7627747414825707D+00
        ws( 31) = 0.7812763383942993D+00
        ws( 32) = 0.8025445583910203D+00
        ws( 33) = 0.8262488336150597D+00
        ws( 34) = 0.8521208064895708D+00
        ws( 35) = 0.8804053355862262D+00
        ws( 36) = 0.9071885414516668D+00
        ws( 37) = 0.9379294969517779D+00
        ws( 38) = 0.9397289750282454D+00
        ws( 39) = 0.1145108842381054D+01
        ws( 40) = 0.1490994468656845D+01
        endif
        if( idomain .eq.  222 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.6283185307179586D+01
        rk1r = 0.2513274122871834D+02
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  43
        err = 0.5258330769444235D-10
        xs(  1) = 0.6545324382444097D+00
        xs(  2) = 0.1501802379916272D+01
        xs(  3) = 0.2352599978028157D+01
        xs(  4) = 0.3202225916692366D+01
        xs(  5) = 0.4049183313646404D+01
        xs(  6) = 0.4892492581045296D+01
        xs(  7) = 0.5731346875979458D+01
        xs(  8) = 0.6565034334547040D+01
        xs(  9) = 0.7392915572836437D+01
        xs( 10) = 0.8214416957210220D+01
        xs( 11) = 0.9029029407777893D+01
        xs( 12) = 0.9836309644493822D+01
        xs( 13) = 0.1063588278906381D+02
        xs( 14) = 0.1142744608163225D+02
        xs( 15) = 0.1221077343985987D+02
        xs( 16) = 0.1298572101769169D+02
        xs( 17) = 0.1375223356799823D+02
        xs( 18) = 0.1451035174174923D+02
        xs( 19) = 0.1526022015113713D+02
        xs( 20) = 0.1600209641448838D+02
        xs( 21) = 0.1673636122661714D+02
        xs( 22) = 0.1746353031530128D+02
        xs( 23) = 0.1818426898640467D+02
        xs( 24) = 0.1889940986415827D+02
        xs( 25) = 0.1960997528316199D+02
        xs( 26) = 0.2031720254899916D+02
        xs( 27) = 0.2102257224645850D+02
        xs( 28) = 0.2172783565032120D+02
        xs( 29) = 0.2243503945739651D+02
        xs( 30) = 0.2314653748813672D+02
        xs( 31) = 0.2386498498695020D+02
        xs( 32) = 0.2459330425820877D+02
        xs( 33) = 0.2533460335628535D+02
        xs( 34) = 0.2609206659742297D+02
        xs( 35) = 0.2686878548546572D+02
        xs( 36) = 0.2766763442021840D+02
        xs( 37) = 0.2849130929823144D+02
        xs( 38) = 0.2934183900248948D+02
        xs( 39) = 0.3021993707069787D+02
        xs( 40) = 0.3112560771654482D+02
        xs( 41) = 0.3208101382409755D+02
        xs( 42) = 0.3310085338972945D+02
        xs( 43) = 0.3405092038498359D+02
        ws(  1) = 0.8397076146473224D+00
        ws(  2) = 0.8504995671755250D+00
        ws(  3) = 0.8505460319464406D+00
        ws(  4) = 0.8484774862134137D+00
        ws(  5) = 0.8452779025952134D+00
        ws(  6) = 0.8412071480948842D+00
        ws(  7) = 0.8363831224411175D+00
        ws(  8) = 0.8308853344995462D+00
        ws(  9) = 0.8247815495151845D+00
        ws( 10) = 0.8181363425415527D+00
        ws( 11) = 0.8110146288803983D+00
        ws( 12) = 0.8034832992527580D+00
        ws( 13) = 0.7956124609754072D+00
        ws( 14) = 0.7874763491202026D+00
        ws( 15) = 0.7791542910173244D+00
        ws( 16) = 0.7707315315322631D+00
        ws( 17) = 0.7623002046278184D+00
        ws( 18) = 0.7539600870297644D+00
        ws( 19) = 0.7458195106525878D+00
        ws( 20) = 0.7379962609180515D+00
        ws( 21) = 0.7306190916226152D+00
        ws( 22) = 0.7238296875559868D+00
        ws( 23) = 0.7177859394255603D+00
        ws( 24) = 0.7126658847799243D+00
        ws( 25) = 0.7086707725884515D+00
        ws( 26) = 0.7060299257045659D+00
        ws( 27) = 0.7050009292625777D+00
        ws( 28) = 0.7058668579741919D+00
        ws( 29) = 0.7089330939859548D+00
        ws( 30) = 0.7145069523247599D+00
        ws( 31) = 0.7228762893818649D+00
        ws( 32) = 0.7342834453213950D+00
        ws( 33) = 0.7488554468707259D+00
        ws( 34) = 0.7665828536146094D+00
        ws( 35) = 0.7873292262509081D+00
        ws( 36) = 0.8108757882741361D+00
        ws( 37) = 0.8370647839365004D+00
        ws( 38) = 0.8648190241980869D+00
        ws( 39) = 0.8894792134095254D+00
        ws( 40) = 0.9214310717441526D+00
        ws( 41) = 0.1024916074674003D+01
        ws( 42) = 0.7557413427780141D+00
        ws( 43) = 0.2002430994600550D+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 =  45
        err = 0.5760118339250155D-10
        xs(  1) = 0.6642688004422653D+00
        xs(  2) = 0.1524234495686298D+01
        xs(  3) = 0.2387999350453624D+01
        xs(  4) = 0.3250914059600379D+01
        xs(  5) = 0.4111572741273125D+01
        xs(  6) = 0.4969085842083539D+01
        xs(  7) = 0.5822728751106482D+01
        xs(  8) = 0.6671861178822863D+01
        xs(  9) = 0.7515902736002536D+01
        xs( 10) = 0.8354324234336980D+01
        xs( 11) = 0.9186644489896755D+01
        xs( 12) = 0.1001242917891437D+02
        xs( 13) = 0.1083129086152232D+02
        xs( 14) = 0.1164288962799943D+02
        xs( 15) = 0.1244693445436600D+02
        xs( 16) = 0.1324318516175348D+02
        xs( 17) = 0.1403145520771861D+02
        xs( 18) = 0.1481161536667000D+02
        xs( 19) = 0.1558359843164615D+02
        xs( 20) = 0.1634740513021354D+02
        xs( 21) = 0.1710311124802631D+02
        xs( 22) = 0.1785087608874870D+02
        xs( 23) = 0.1859095243145044D+02
        xs( 24) = 0.1932369786965736D+02
        xs( 25) = 0.2004958779147872D+02
        xs( 26) = 0.2076922958730728D+02
        xs( 27) = 0.2148337800756935D+02
        xs( 28) = 0.2219295172951060D+02
        xs( 29) = 0.2289905092874371D+02
        xs( 30) = 0.2360297865798650D+02
        xs( 31) = 0.2430626482716452D+02
        xs( 32) = 0.2501069646149711D+02
        xs( 33) = 0.2571834498355086D+02
        xs( 34) = 0.2643159022785357D+02
        xs( 35) = 0.2715312575335426D+02
        xs( 36) = 0.2788592378047511D+02
        xs( 37) = 0.2863316186506431D+02
        xs( 38) = 0.2939803761988298D+02
        xs( 39) = 0.3018382493530241D+02
        xs( 40) = 0.3099346323937454D+02
        xs( 41) = 0.3182928103367358D+02
        xs( 42) = 0.3269479044729757D+02
        xs( 43) = 0.3359090399863257D+02
        xs( 44) = 0.3451564618072323D+02
        xs( 45) = 0.3540947290793027D+02
        ws(  1) = 0.8522227111843148D+00
        ws(  2) = 0.8633324376189009D+00
        ws(  3) = 0.8636594954485055D+00
        ws(  4) = 0.8619570623669796D+00
        ws(  5) = 0.8592160080681343D+00
        ws(  6) = 0.8556904707803878D+00
        ws(  7) = 0.8514889687218454D+00
        ws(  8) = 0.8466792810760762D+00
        ws(  9) = 0.8413156748723642D+00
        ws( 10) = 0.8354471511325396D+00
        ws( 11) = 0.8291209684950274D+00
        ws( 12) = 0.8223838354370571D+00
        ws( 13) = 0.8152828525980804D+00
        ws( 14) = 0.8078661402211784D+00
        ws( 15) = 0.8001834259144245D+00
        ws( 16) = 0.7922868412203239D+00
        ws( 17) = 0.7842316420732675D+00
        ws( 18) = 0.7760773719829061D+00
        ws( 19) = 0.7678887734862422D+00
        ws( 20) = 0.7597371055615473D+00
        ws( 21) = 0.7517014975037565D+00
        ws( 22) = 0.7438701227808581D+00
        ws( 23) = 0.7363419553029331D+00
        ws( 24) = 0.7292279494245183D+00
        ws( 25) = 0.7226528235591112D+00
        ws( 26) = 0.7167562095980068D+00
        ws( 27) = 0.7116934476558391D+00
        ws( 28) = 0.7076370005407584D+00
        ws( 29) = 0.7047781301367717D+00
        ws( 30) = 0.7033314244067524D+00
        ws( 31) = 0.7035373592036238D+00
        ws( 32) = 0.7056701622231019D+00
        ws( 33) = 0.7100237545642132D+00
        ws( 34) = 0.7169114109278065D+00
        ws( 35) = 0.7266433355749615D+00
        ws( 36) = 0.7394642505019342D+00
        ws( 37) = 0.7555311683968521D+00
        ws( 38) = 0.7747567685402567D+00
        ws( 39) = 0.7970666460000037D+00
        ws( 40) = 0.8217939660440130D+00
        ws( 41) = 0.8503833714731064D+00
        ws( 42) = 0.8722585147876156D+00
        ws( 43) = 0.9037926586424688D+00
        ws( 44) = 0.9787872494437826D+00
        ws( 45) = 0.1020005190387543D+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 =  48
        err = 0.6375564022573260D-10
        xs(  1) = 0.6739710611436756D+00
        xs(  2) = 0.1546563413256435D+01
        xs(  3) = 0.2423166660493338D+01
        xs(  4) = 0.3299148899933136D+01
        xs(  5) = 0.4173163841688873D+01
        xs(  6) = 0.5044382706812762D+01
        xs(  7) = 0.5912136474456296D+01
        xs(  8) = 0.6775833491280869D+01
        xs(  9) = 0.7634933898448233D+01
        xs( 10) = 0.8488940463695911D+01
        xs( 11) = 0.9337394717106566D+01
        xs( 12) = 0.1017987545505476D+02
        xs( 13) = 0.1101599815922719D+02
        xs( 14) = 0.1184541507952076D+02
        xs( 15) = 0.1266781580835023D+02
        xs( 16) = 0.1348292824385335D+02
        xs( 17) = 0.1429052005412786D+02
        xs( 18) = 0.1509040058483425D+02
        xs( 19) = 0.1588242335273870D+02
        xs( 20) = 0.1666648908118468D+02
        xs( 21) = 0.1744254937050445D+02
        xs( 22) = 0.1821061109126710D+02
        xs( 23) = 0.1897074134232937D+02
        xs( 24) = 0.1972307330884841D+02
        xs( 25) = 0.2046781257286321D+02
        xs( 26) = 0.2120524408138917D+02
        xs( 27) = 0.2193573986200148D+02
        xs( 28) = 0.2265976686537269D+02
        xs( 29) = 0.2337789568664565D+02
        xs( 30) = 0.2409081015469132D+02
        xs( 31) = 0.2479931949898344D+02
        xs( 32) = 0.2550437478158477D+02
        xs( 33) = 0.2620709261525062D+02
        xs( 34) = 0.2690878678460320D+02
        xs( 35) = 0.2761100998890102D+02
        xs( 36) = 0.2831559971129853D+02
        xs( 37) = 0.2902472072761655D+02
        xs( 38) = 0.2974090383948555D+02
        xs( 39) = 0.3046705346565053D+02
        xs( 40) = 0.3120642274635553D+02
        xs( 41) = 0.3196256637624649D+02
        xs( 42) = 0.3273900390315528D+02
        xs( 43) = 0.3353991174725254D+02
        xs( 44) = 0.3436941261413008D+02
        xs( 45) = 0.3522786971870226D+02
        xs( 46) = 0.3613657478951696D+02
        xs( 47) = 0.3708535978447631D+02
        xs( 48) = 0.3809553627546608D+02
        ws(  1) = 0.8646875124617419D+00
        ws(  2) = 0.8760718969388332D+00
        ws(  3) = 0.8766032201815545D+00
        ws(  4) = 0.8751586418180080D+00
        ws(  5) = 0.8727371852928658D+00
        ws(  6) = 0.8695900824398447D+00
        ws(  7) = 0.8658192119516769D+00
        ws(  8) = 0.8614849702544258D+00
        ws(  9) = 0.8566330494896885D+00
        ws( 10) = 0.8513036895328081D+00
        ws( 11) = 0.8455346264249327D+00
        ws( 12) = 0.8393627516403259D+00
        ws( 13) = 0.8328246832015064D+00
        ws( 14) = 0.8259574104742411D+00
        ws( 15) = 0.8187986769370615D+00
        ws( 16) = 0.8113874409730186D+00
        ws( 17) = 0.8037643547093988D+00
        ws( 18) = 0.7959722357860545D+00
        ws( 19) = 0.7880566998138635D+00
        ws( 20) = 0.7800666153919256D+00
        ws( 21) = 0.7720550190502516D+00
        ws( 22) = 0.7640794997449143D+00
        ws( 23) = 0.7562030932836389D+00
        ws( 24) = 0.7484949657375597D+00
        ws( 25) = 0.7410309053708763D+00
        ws( 26) = 0.7338940227129362D+00
        ws( 27) = 0.7271752098894656D+00
        ws( 28) = 0.7209736807470363D+00
        ws( 29) = 0.7153977355078022D+00
        ws( 30) = 0.7105658019863247D+00
        ws( 31) = 0.7066110687018082D+00
        ws( 32) = 0.7036851187267535D+00
        ws( 33) = 0.7019686053805099D+00
        ws( 34) = 0.7016783706996360D+00
        ws( 35) = 0.7030733514944434D+00
        ws( 36) = 0.7064658972192294D+00
        ws( 37) = 0.7122002826056163D+00
        ws( 38) = 0.7206592452326918D+00
        ws( 39) = 0.7321811008888190D+00
        ws( 40) = 0.7471063695221407D+00
        ws( 41) = 0.7658012855966385D+00
        ws( 42) = 0.7881393221842142D+00
        ws( 43) = 0.8140237472435129D+00
        ws( 44) = 0.8427779639244682D+00
        ws( 45) = 0.8790846381915114D+00
        ws( 46) = 0.9418577223991011D+00
        ws( 47) = 0.8796042412960192D+00
        ws( 48) = 0.1484919636908652D+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 =  51
        err = 0.5931328376558577D-10
        xs(  1) = 0.6808698065624120D+00
        xs(  2) = 0.1562460425771500D+01
        xs(  3) = 0.2448261083607872D+01
        xs(  4) = 0.3333680166105934D+01
        xs(  5) = 0.4217442334218963D+01
        xs(  6) = 0.5098790836590929D+01
        xs(  7) = 0.5977125796861784D+01
        xs(  8) = 0.6851920129351691D+01
        xs(  9) = 0.7722693417303466D+01
        xs( 10) = 0.8589002035833563D+01
        xs( 11) = 0.9450434689341186D+01
        xs( 12) = 0.1030661021727863D+02
        xs( 13) = 0.1115717609009124D+02
        xs( 14) = 0.1200180749422818D+02
        xs( 15) = 0.1284020663735835D+02
        xs( 16) = 0.1367210233251531D+02
        xs( 17) = 0.1449724988061105D+02
        xs( 18) = 0.1531543122178385D+02
        xs( 19) = 0.1612645557846200D+02
        xs( 20) = 0.1693016046235997D+02
        xs( 21) = 0.1772641324469560D+02
        xs( 22) = 0.1851511338095750D+02
        xs( 23) = 0.1929619532647445D+02
        xs( 24) = 0.2006963205125762D+02
        xs( 25) = 0.2083543957909827D+02
        xs( 26) = 0.2159368195750185D+02
        xs( 27) = 0.2234447691560502D+02
        xs( 28) = 0.2308800197133592D+02
        xs( 29) = 0.2382450068151203D+02
        xs( 30) = 0.2455428898404609D+02
        xs( 31) = 0.2527776162635426D+02
        xs( 32) = 0.2599539931297573D+02
        xs( 33) = 0.2670777702784649D+02
        xs( 34) = 0.2741557495856516D+02
        xs( 35) = 0.2811959564770093D+02
        xs( 36) = 0.2882078617924210D+02
        xs( 37) = 0.2952027216923085D+02
        xs( 38) = 0.3021939890237291D+02
        xs( 39) = 0.3091977926182016D+02
        xs( 40) = 0.3162334820006807D+02
        xs( 41) = 0.3233240186359681D+02
        xs( 42) = 0.3304964626436213D+02
        xs( 43) = 0.3377817041940660D+02
        xs( 44) = 0.3452155364562359D+02
        xs( 45) = 0.3528365035772049D+02
        xs( 46) = 0.3606812357981448D+02
        xs( 47) = 0.3687951056404863D+02
        xs( 48) = 0.3772661805052082D+02
        xs( 49) = 0.3860413987902304D+02
        xs( 50) = 0.3952362396157918D+02
        xs( 51) = 0.4060984056014120D+02
        ws(  1) = 0.8735557833252185D+00
        ws(  2) = 0.8851699950665901D+00
        ws(  3) = 0.8859091211486938D+00
        ws(  4) = 0.8847385000038041D+00
        ws(  5) = 0.8826638087593478D+00
        ws(  6) = 0.8799343075396864D+00
        ws(  7) = 0.8766481222971761D+00
        ws(  8) = 0.8728606284533972D+00
        ws(  9) = 0.8686120922103518D+00
        ws( 10) = 0.8639366184225175D+00
        ws( 11) = 0.8588651898612178D+00
        ws( 12) = 0.8534271108734330D+00
        ws( 13) = 0.8476505102359988D+00
        ws( 14) = 0.8415626782373230D+00
        ws( 15) = 0.8351904176809778D+00
        ws( 16) = 0.8285601877292477D+00
        ws( 17) = 0.8216985517159476D+00
        ws( 18) = 0.8146323240704698D+00
        ws( 19) = 0.8073892655317678D+00
        ws( 20) = 0.7999983481303827D+00
        ws( 21) = 0.7924904222159852D+00
        ws( 22) = 0.7848988802341190D+00
        ws( 23) = 0.7772604144757806D+00
        ws( 24) = 0.7696156278103259D+00
        ws( 25) = 0.7620099724540255D+00
        ws( 26) = 0.7544942740793010D+00
        ws( 27) = 0.7471251426280624D+00
        ws( 28) = 0.7399654878887852D+00
        ws( 29) = 0.7330844092218386D+00
        ws( 30) = 0.7265577451671624D+00
        ws( 31) = 0.7204675084580303D+00
        ws( 32) = 0.7149035034434614D+00
        ws( 33) = 0.7099649113029994D+00
        ws( 34) = 0.7057642078540979D+00
        ws( 35) = 0.7024338692696910D+00
        ws( 36) = 0.7001341612574797D+00
        ws( 37) = 0.6990611788443462D+00
        ws( 38) = 0.6994599493067994D+00
        ws( 39) = 0.7016223877422073D+00
        ws( 40) = 0.7058906827148940D+00
        ws( 41) = 0.7126775401116998D+00
        ws( 42) = 0.7223382155393355D+00
        ws( 43) = 0.7353242316417868D+00
        ws( 44) = 0.7519519954021259D+00
        ws( 45) = 0.7730776842215183D+00
        ws( 46) = 0.7971293465915710D+00
        ws( 47) = 0.8243678036190415D+00
        ws( 48) = 0.8775215121657380D+00
        ws( 49) = 0.8748668022140942D+00
        ws( 50) = 0.8666148414561770D+00
        ws( 51) = 0.1750235733175175D+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 =  54
        err = 0.8256000981492376D-10
        xs(  1) = 0.6877455701103360D+00
        xs(  2) = 0.1578277040905772D+01
        xs(  3) = 0.2473152771258784D+01
        xs(  4) = 0.3367785361711128D+01
        xs(  5) = 0.4260935463769218D+01
        xs(  6) = 0.5151884892020807D+01
        xs(  7) = 0.6040071086519912D+01
        xs(  8) = 0.6925001662064013D+01
        xs(  9) = 0.7806228020551873D+01
        xs( 10) = 0.8683335092138313D+01
        xs( 11) = 0.9555936971020857D+01
        xs( 12) = 0.1042367450356351D+02
        xs( 13) = 0.1128621400962042D+02
        xs( 14) = 0.1214324623205068D+02
        xs( 15) = 0.1299448571172689D+02
        xs( 16) = 0.1383967024805493D+02
        xs( 17) = 0.1467856061173184D+02
        xs( 18) = 0.1551094035321773D+02
        xs( 19) = 0.1633661587792165D+02
        xs( 20) = 0.1715541665883270D+02
        xs( 21) = 0.1796719578761141D+02
        xs( 22) = 0.1877183071574773D+02
        xs( 23) = 0.1956922435877681D+02
        xs( 24) = 0.2035930653301542D+02
        xs( 25) = 0.2114203573873552D+02
        xs( 26) = 0.2191740133964947D+02
        xs( 27) = 0.2268542608220753D+02
        xs( 28) = 0.2344616882602119D+02
        xs( 29) = 0.2419972766456783D+02
        xs( 30) = 0.2494624310841101D+02
        xs( 31) = 0.2568590180551973D+02
        xs( 32) = 0.2641894058868992D+02
        xs( 33) = 0.2714565150756371D+02
        xs( 34) = 0.2786638852797931D+02
        xs( 35) = 0.2858157549430383D+02
        xs( 36) = 0.2929171833685201D+02
        xs( 37) = 0.2999741939559264D+02
        xs( 38) = 0.3069939765080536D+02
        xs( 39) = 0.3139851302672424D+02
        xs( 40) = 0.3209579284479908D+02
        xs( 41) = 0.3279246512902878D+02
        xs( 42) = 0.3348998835585028D+02
        xs( 43) = 0.3419010797663610D+02
        xs( 44) = 0.3489486547827044D+02
        xs( 45) = 0.3560673769521319D+02
        xs( 46) = 0.3632851338547050D+02
        xs( 47) = 0.3706356416970975D+02
        xs( 48) = 0.3781544126179785D+02
        xs( 49) = 0.3858899216170961D+02
        xs( 50) = 0.3938729300730961D+02
        xs( 51) = 0.4021442961400600D+02
        xs( 52) = 0.4109762650158946D+02
        xs( 53) = 0.4201791410415101D+02
        xs( 54) = 0.4300364386063742D+02
        ws(  1) = 0.8823871939147659D+00
        ws(  2) = 0.8941841495667191D+00
        ws(  3) = 0.8950482321288311D+00
        ws(  4) = 0.8940327215706046D+00
        ws(  5) = 0.8921518919488775D+00
        ws(  6) = 0.8896543403271789D+00
        ws(  7) = 0.8866363261723965D+00
        ws(  8) = 0.8831502199179303D+00
        ws(  9) = 0.8792333712589488D+00
        ws( 10) = 0.8749165001632492D+00
        ws( 11) = 0.8702274190689450D+00
        ws( 12) = 0.8651920708755289D+00
        ws( 13) = 0.8598354003479819D+00
        ws( 14) = 0.8541814619438860D+00
        ws( 15) = 0.8482537880648656D+00
        ws( 16) = 0.8420754249963016D+00
        ws( 17) = 0.8356692402854262D+00
        ws( 18) = 0.8290579869270386D+00
        ws( 19) = 0.8222646144104625D+00
        ws( 20) = 0.8153124394973701D+00
        ws( 21) = 0.8082253890937532D+00
        ws( 22) = 0.8010282672849310D+00
        ws( 23) = 0.7937472873980502D+00
        ws( 24) = 0.7864100993828672D+00
        ws( 25) = 0.7790464747281794D+00
        ws( 26) = 0.7716884967640343D+00
        ws( 27) = 0.7643707671700910D+00
        ws( 28) = 0.7571310038041238D+00
        ws( 29) = 0.7500099991490216D+00
        ws( 30) = 0.7430519106959006D+00
        ws( 31) = 0.7363048353850254D+00
        ws( 32) = 0.7298212900255929D+00
        ws( 33) = 0.7236594988292803D+00
        ws( 34) = 0.7178847508127778D+00
        ws( 35) = 0.7125730671117805D+00
        ws( 36) = 0.7078126731680900D+00
        ws( 37) = 0.7037085693914881D+00
        ws( 38) = 0.7003905332625813D+00
        ws( 39) = 0.6980100394366425D+00
        ws( 40) = 0.6967534764130596D+00
        ws( 41) = 0.6968315172042557D+00
        ws( 42) = 0.6985055809160866D+00
        ws( 43) = 0.7020699806779643D+00
        ws( 44) = 0.7078686666010654D+00
        ws( 45) = 0.7162907948431746D+00
        ws( 46) = 0.7278127083466874D+00
        ws( 47) = 0.7430811990886136D+00
        ws( 48) = 0.7609506105906807D+00
        ws( 49) = 0.7854784388428057D+00
        ws( 50) = 0.8150421955362251D+00
        ws( 51) = 0.8297593957402842D+00
        ws( 52) = 0.9156379932804338D+00
        ws( 53) = 0.9589678332347771D+00
        ws( 54) = 0.8851957232338424D+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 =  57
        err = 0.6725024771531498D-10
        xs(  1) = 0.6950480338675203D+00
        xs(  2) = 0.1595075898412431D+01
        xs(  3) = 0.2499589251998847D+01
        xs(  4) = 0.3404003581119911D+01
        xs(  5) = 0.4307113583307486D+01
        xs(  6) = 0.5208235616301038D+01
        xs(  7) = 0.6106837238303007D+01
        xs(  8) = 0.7002450007013823D+01
        xs(  9) = 0.7894642618043481D+01
        xs( 10) = 0.8783009970334865D+01
        xs( 11) = 0.9667169076143121D+01
        xs( 12) = 0.1054675661105704D+02
        xs( 13) = 0.1142142837374557D+02
        xs( 14) = 0.1229085900812854D+02
        xs( 15) = 0.1315474267243871D+02
        xs( 16) = 0.1401279403004624D+02
        xs( 17) = 0.1486474993111477D+02
        xs( 18) = 0.1571037141013770D+02
        xs( 19) = 0.1654944599457115D+02
        xs( 20) = 0.1738179011204830D+02
        xs( 21) = 0.1820725127652017D+02
        xs( 22) = 0.1902570974483093D+02
        xs( 23) = 0.1983707933847873D+02
        xs( 24) = 0.2064130717633928D+02
        xs( 25) = 0.2143837223119903D+02
        xs( 26) = 0.2222828281385298D+02
        xs( 27) = 0.2301107349497503D+02
        xs( 28) = 0.2378680161787685D+02
        xs( 29) = 0.2455554454516553D+02
        xs( 30) = 0.2531739784286194D+02
        xs( 31) = 0.2607247482102424D+02
        xs( 32) = 0.2682090809518771D+02
        xs( 33) = 0.2756285277349043D+02
        xs( 34) = 0.2829849111863437D+02
        xs( 35) = 0.2902803887018524D+02
        xs( 36) = 0.2975175250200187D+02
        xs( 37) = 0.3046993800715299D+02
        xs( 38) = 0.3118295986073899D+02
        xs( 39) = 0.3189125349962310D+02
        xs( 40) = 0.3259533702877461D+02
        xs( 41) = 0.3329582760430098D+02
        xs( 42) = 0.3399345947837503D+02
        xs( 43) = 0.3468910299487076D+02
        xs( 44) = 0.3538379246635903D+02
        xs( 45) = 0.3607875003695567D+02
        xs( 46) = 0.3677543639275196D+02
        xs( 47) = 0.3747558491521265D+02
        xs( 48) = 0.3818128296455450D+02
        xs( 49) = 0.3889504455857038D+02
        xs( 50) = 0.3961979045630177D+02
        xs( 51) = 0.4035894246598567D+02
        xs( 52) = 0.4111647340084273D+02
        xs( 53) = 0.4189736247224942D+02
        xs( 54) = 0.4270293012168981D+02
        xs( 55) = 0.4353954103709060D+02
        xs( 56) = 0.4448717216034809D+02
        xs( 57) = 0.4542278253203978D+02
        ws(  1) = 0.8917672041465858D+00
        ws(  2) = 0.9037580967556142D+00
        ws(  3) = 0.9047526870754807D+00
        ws(  4) = 0.9038976379997846D+00
        ws(  5) = 0.9022126092498874D+00
        ws(  6) = 0.8999438794123605D+00
        ws(  7) = 0.8971816321054159D+00
        ws(  8) = 0.8939722083471452D+00
        ws(  9) = 0.8903455431922148D+00
        ws( 10) = 0.8863253851776866D+00
        ws( 11) = 0.8819322481061738D+00
        ws( 12) = 0.8771854706838333D+00
        ws( 13) = 0.8721038379049229D+00
        ws( 14) = 0.8667064548617547D+00
        ws( 15) = 0.8610132644829672D+00
        ws( 16) = 0.8550455408764051D+00
        ws( 17) = 0.8488264011911283D+00
        ws( 18) = 0.8423811198843126D+00
        ws( 19) = 0.8357374318751513D+00
        ws( 20) = 0.8289253510589376D+00
        ws( 21) = 0.8219769823566588D+00
        ws( 22) = 0.8149256020689500D+00
        ws( 23) = 0.8078048033458529D+00
        ws( 24) = 0.8006474160774710D+00
        ws( 25) = 0.7934841395932407D+00
        ws( 26) = 0.7863428505004787D+00
        ws( 27) = 0.7792480802759102D+00
        ws( 28) = 0.7722211161102343D+00
        ws( 29) = 0.7652807044784026D+00
        ws( 30) = 0.7584447034883913D+00
        ws( 31) = 0.7517313313854973D+00
        ws( 32) = 0.7451610578873779D+00
        ws( 33) = 0.7387584951118277D+00
        ws( 34) = 0.7325540589045207D+00
        ws( 35) = 0.7265841647574104D+00
        ws( 36) = 0.7208939521689933D+00
        ws( 37) = 0.7155376216783372D+00
        ws( 38) = 0.7105786842905683D+00
        ws( 39) = 0.7060949160509027D+00
        ws( 40) = 0.7021748001916028D+00
        ws( 41) = 0.6989290853789879D+00
        ws( 42) = 0.6964799305417908D+00
        ws( 43) = 0.6949804635323723D+00
        ws( 44) = 0.6946029315999827D+00
        ws( 45) = 0.6955569747910599D+00
        ws( 46) = 0.6981088394070104D+00
        ws( 47) = 0.7025453202290280D+00
        ws( 48) = 0.7092711469813628D+00
        ws( 49) = 0.7187302068293163D+00
        ws( 50) = 0.7313735386467979D+00
        ws( 51) = 0.7475758077271014D+00
        ws( 52) = 0.7679615012544457D+00
        ws( 53) = 0.7933198873771046D+00
        ws( 54) = 0.8209897116237672D+00
        ws( 55) = 0.8436580979547715D+00
        ws( 56) = 0.9961788341590523D+00
        ws( 57) = 0.1130882327926715D+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 =  59
        err = 0.5978480266794291D-10
        xs(  1) = 0.7046629052144036D+00
        xs(  2) = 0.1617161132750708D+01
        xs(  3) = 0.2534253988002913D+01
        xs(  4) = 0.3451320908990351D+01
        xs(  5) = 0.4367166923935447D+01
        xs(  6) = 0.5281126728681181D+01
        xs(  7) = 0.6192688150119900D+01
        xs(  8) = 0.7101404903544679D+01
        xs(  9) = 0.8006868748884809D+01
        xs( 10) = 0.8908699176950686D+01
        xs( 11) = 0.9806539207767671D+01
        xs( 12) = 0.1070005316361059D+02
        xs( 13) = 0.1158892636759038D+02
        xs( 14) = 0.1247286470530625D+02
        xs( 15) = 0.1335159556648981D+02
        xs( 16) = 0.1422486827604037D+02
        xs( 17) = 0.1509245565822135D+02
        xs( 18) = 0.1595415528251767D+02
        xs( 19) = 0.1680979097272962D+02
        xs( 20) = 0.1765921410582219D+02
        xs( 21) = 0.1850230432887938D+02
        xs( 22) = 0.1933896950513636D+02
        xs( 23) = 0.2016914441159047D+02
        xs( 24) = 0.2099278793501561D+02
        xs( 25) = 0.2180987916059975D+02
        xs( 26) = 0.2262041194907487D+02
        xs( 27) = 0.2342438933761825D+02
        xs( 28) = 0.2422181828359632D+02
        xs( 29) = 0.2501270570337994D+02
        xs( 30) = 0.2579705615969142D+02
        xs( 31) = 0.2657487326046379D+02
        xs( 32) = 0.2734616233689106D+02
        xs( 33) = 0.2811093647927806D+02
        xs( 34) = 0.2886922369402537D+02
        xs( 35) = 0.2962107559013750D+02
        xs( 36) = 0.3036657553956553D+02
        xs( 37) = 0.3110584707625722D+02
        xs( 38) = 0.3183906085897889D+02
        xs( 39) = 0.3256644156244984D+02
        xs( 40) = 0.3328827065963790D+02
        xs( 41) = 0.3400489243353537D+02
        xs( 42) = 0.3471671379054978D+02
        xs( 43) = 0.3542421043402877D+02
        xs( 44) = 0.3612792873326510D+02
        xs( 45) = 0.3682849680254385D+02
        xs( 46) = 0.3752664060798409D+02
        xs( 47) = 0.3822320573920890D+02
        xs( 48) = 0.3891919914606936D+02
        xs( 49) = 0.3961583432797359D+02
        xs( 50) = 0.4031458141321634D+02
        xs( 51) = 0.4101727877017523D+02
        xs( 52) = 0.4172602869930341D+02
        xs( 53) = 0.4244351089054016D+02
        xs( 54) = 0.4317296076498496D+02
        xs( 55) = 0.4391688628489804D+02
        xs( 56) = 0.4468060168580449D+02
        xs( 57) = 0.4546109238495408D+02
        xs( 58) = 0.4629490641710107D+02
        xs( 59) = 0.4729369082837800D+02
        ws(  1) = 0.9041086959663083D+00
        ws(  2) = 0.9162990505364826D+00
        ws(  3) = 0.9173682635067937D+00
        ws(  4) = 0.9165891828199223D+00
        ws(  5) = 0.9149962980016255D+00
        ws(  6) = 0.9128390324197481D+00
        ws(  7) = 0.9102098229923965D+00
        ws(  8) = 0.9071557923834828D+00
        ws(  9) = 0.9037085220587778D+00
        ws( 10) = 0.8998928904990141D+00
        ws( 11) = 0.8957312107773991D+00
        ws( 12) = 0.8912443034299715D+00
        ws( 13) = 0.8864530469195471D+00
        ws( 14) = 0.8813782556086960D+00
        ws( 15) = 0.8760416258902159D+00
        ws( 16) = 0.8704658897931067D+00
        ws( 17) = 0.8646750688913862D+00
        ws( 18) = 0.8586947731886581D+00
        ws( 19) = 0.8525518680483620D+00
        ws( 20) = 0.8462743652214870D+00
        ws( 21) = 0.8398907519114935D+00
        ws( 22) = 0.8334287873118744D+00
        ws( 23) = 0.8269142402946640D+00
        ws( 24) = 0.8203693933979503D+00
        ws( 25) = 0.8138120830718536D+00
        ws( 26) = 0.8072540983674843D+00
        ws( 27) = 0.8007019843743078D+00
        ws( 28) = 0.7941571390114804D+00
        ws( 29) = 0.7876183407820659D+00
        ws( 30) = 0.7810832053243096D+00
        ws( 31) = 0.7745517805069319D+00
        ws( 32) = 0.7680283911387152D+00
        ws( 33) = 0.7615243804045380D+00
        ws( 34) = 0.7550585641092626D+00
        ws( 35) = 0.7486589900742324D+00
        ws( 36) = 0.7423612920813903D+00
        ws( 37) = 0.7362098411239064D+00
        ws( 38) = 0.7302553550974399D+00
        ws( 39) = 0.7245526644977622D+00
        ws( 40) = 0.7191630003193091D+00
        ws( 41) = 0.7141478500045195D+00
        ws( 42) = 0.7095745385685376D+00
        ws( 43) = 0.7055099777486050D+00
        ws( 44) = 0.7020307342793991D+00
        ws( 45) = 0.6992251823202673D+00
        ws( 46) = 0.6972033555465051D+00
        ws( 47) = 0.6960962442914929D+00
        ws( 48) = 0.6960832032797424D+00
        ws( 49) = 0.6974410108159482D+00
        ws( 50) = 0.7003918626557579D+00
        ws( 51) = 0.7053342464560282D+00
        ws( 52) = 0.7128664119921410D+00
        ws( 53) = 0.7226843622880728D+00
        ws( 54) = 0.7372210938325843D+00
        ws( 55) = 0.7533551332551247D+00
        ws( 56) = 0.7697775556393230D+00
        ws( 57) = 0.8011771592223113D+00
        ws( 58) = 0.8388136101776174D+00
        ws( 59) = 0.1229715685160765D+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 =  63
        err = 0.5274092212814377D-10
        xs(  1) = 0.7066352662026774D+00
        xs(  2) = 0.1621715200401434D+01
        xs(  3) = 0.2541468605614485D+01
        xs(  4) = 0.3461297381028554D+01
        xs(  5) = 0.4380037449861874D+01
        xs(  6) = 0.5297052614085735D+01
        xs(  7) = 0.6211857692289649D+01
        xs(  8) = 0.7124030345574947D+01
        xs(  9) = 0.8033183169829739D+01
        xs( 10) = 0.8938953621705046D+01
        xs( 11) = 0.9840999548680387D+01
        xs( 12) = 0.1073899750300612D+02
        xs( 13) = 0.1163264205913539D+02
        xs( 14) = 0.1252164570218244D+02
        xs( 15) = 0.1340573916119345D+02
        xs( 16) = 0.1428467161575012D+02
        xs( 17) = 0.1515821124295166D+02
        xs( 18) = 0.1602614537978115D+02
        xs( 19) = 0.1688828089372620D+02
        xs( 20) = 0.1774444399063179D+02
        xs( 21) = 0.1859448022928905D+02
        xs( 22) = 0.1943825406165537D+02
        xs( 23) = 0.2027564859929703D+02
        xs( 24) = 0.2110656516285658D+02
        xs( 25) = 0.2193092318080831D+02
        xs( 26) = 0.2274866044364266D+02
        xs( 27) = 0.2355973411160100D+02
        xs( 28) = 0.2436412228935358D+02
        xs( 29) = 0.2516182712950834D+02
        xs( 30) = 0.2595287820785995D+02
        xs( 31) = 0.2673733663738657D+02
        xs( 32) = 0.2751529785548017D+02
        xs( 33) = 0.2828689209301009D+02
        xs( 34) = 0.2905228097767022D+02
        xs( 35) = 0.2981164953495636D+02
        xs( 36) = 0.3056519455641243D+02
        xs( 37) = 0.3131311159050262D+02
        xs( 38) = 0.3205558347592171D+02
        xs( 39) = 0.3279277438059553D+02
        xs( 40) = 0.3352482979038781D+02
        xs( 41) = 0.3425188368546930D+02
        xs( 42) = 0.3497407213810560D+02
        xs( 43) = 0.3569154894949991D+02
        xs( 44) = 0.3640450403129881D+02
        xs( 45) = 0.3711317879959888D+02
        xs( 46) = 0.3781788447383855D+02
        xs( 47) = 0.3851900977296492D+02
        xs( 48) = 0.3921703817149204D+02
        xs( 49) = 0.3991256031527651D+02
        xs( 50) = 0.4060628713412937D+02
        xs( 51) = 0.4129907982361552D+02
        xs( 52) = 0.4199197486679110D+02
        xs( 53) = 0.4268624189402721D+02
        xs( 54) = 0.4338345141006014D+02
        xs( 55) = 0.4408550514483354D+02
        xs( 56) = 0.4479469957288342D+02
        xs( 57) = 0.4551422997029003D+02
        xs( 58) = 0.4624761963831001D+02
        xs( 59) = 0.4699728912032596D+02
        xs( 60) = 0.4777182325064144D+02
        xs( 61) = 0.4856570965557267D+02
        xs( 62) = 0.4945194198510701D+02
        xs( 63) = 0.5036847941207574D+02
        ws(  1) = 0.9066464157004552D+00
        ws(  2) = 0.9189182849969459D+00
        ws(  3) = 0.9200744332300804D+00
        ws(  4) = 0.9194120588969219D+00
        ws(  5) = 0.9179663295378585D+00
        ws(  6) = 0.9159843052814106D+00
        ws(  7) = 0.9135558588348415D+00
        ws(  8) = 0.9107250156938932D+00
        ws(  9) = 0.9075202604380332D+00
        ws( 10) = 0.9039636348850247D+00
        ws( 11) = 0.9000743157835887D+00
        ws( 12) = 0.8958706866911328D+00
        ws( 13) = 0.8913704974178351D+00
        ws( 14) = 0.8865919333058659D+00
        ws( 15) = 0.8815531750250754D+00
        ws( 16) = 0.8762731199462978D+00
        ws( 17) = 0.8707706643409500D+00
        ws( 18) = 0.8650654039294006D+00
        ws( 19) = 0.8591766488811406D+00
        ws( 20) = 0.8531238144310623D+00
        ws( 21) = 0.8469260735379943D+00
        ws( 22) = 0.8406021557146514D+00
        ws( 23) = 0.8341704825798850D+00
        ws( 24) = 0.8276491990857419D+00
        ws( 25) = 0.8210564165449693D+00
        ws( 26) = 0.8144109750643626D+00
        ws( 27) = 0.8077326504830138D+00
        ws( 28) = 0.8010440162845033D+00
        ws( 29) = 0.7943705191108619D+00
        ws( 30) = 0.7877417838843176D+00
        ws( 31) = 0.7811909749811600D+00
        ws( 32) = 0.7747531774354722D+00
        ws( 33) = 0.7684623982626494D+00
        ws( 34) = 0.7623464452704092D+00
        ws( 35) = 0.7564236905330896D+00
        ws( 36) = 0.7506991610545403D+00
        ws( 37) = 0.7451654758736882D+00
        ws( 38) = 0.7398057353719046D+00
        ws( 39) = 0.7346003071183262D+00
        ws( 40) = 0.7295326039119158D+00
        ws( 41) = 0.7245976673377230D+00
        ws( 42) = 0.7198045997220058D+00
        ws( 43) = 0.7151806978420330D+00
        ws( 44) = 0.7107692697593688D+00
        ws( 45) = 0.7066317416894063D+00
        ws( 46) = 0.7028439790221666D+00
        ws( 47) = 0.6994877254297389D+00
        ws( 48) = 0.6966652738153853D+00
        ws( 49) = 0.6944958662456545D+00
        ws( 50) = 0.6931022191763877D+00
        ws( 51) = 0.6926542728542042D+00
        ws( 52) = 0.6933357987280786D+00
        ws( 53) = 0.6954628611912043D+00
        ws( 54) = 0.6993089859944720D+00
        ws( 55) = 0.7050736979171435D+00
        ws( 56) = 0.7138891305945466D+00
        ws( 57) = 0.7259590418659601D+00
        ws( 58) = 0.7411251538335331D+00
        ws( 59) = 0.7592077166419970D+00
        ws( 60) = 0.7856374700196134D+00
        ws( 61) = 0.8261102854773271D+00
        ws( 62) = 0.8476068871318373D+00
        ws( 63) = 0.1163618125265725D+01
        endif
        if( idomain .eq.  230 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.6283185307179586D+01
        rk1r = 0.5026548245743669D+02
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  67
        err = 0.3557912798269267D-10
        xs(  1) = 0.7046425183544180D+00
        xs(  2) = 0.1617167232959436D+01
        xs(  3) = 0.2534412392307039D+01
        xs(  4) = 0.3451827226297452D+01
        xs(  5) = 0.4368284298307605D+01
        xs(  6) = 0.5283182266895062D+01
        xs(  7) = 0.6196069818891294D+01
        xs(  8) = 0.7106557525930287D+01
        xs(  9) = 0.8014290506760380D+01
        xs( 10) = 0.8918937732014850D+01
        xs( 11) = 0.9820187891527731D+01
        xs( 12) = 0.1071774726175606D+02
        xs( 13) = 0.1161133873573602D+02
        xs( 14) = 0.1250070147291443D+02
        xs( 15) = 0.1338559064457336D+02
        xs( 16) = 0.1426577752708717D+02
        xs( 17) = 0.1514104964020350D+02
        xs( 18) = 0.1601121100777269D+02
        xs( 19) = 0.1687608257524182D+02
        xs( 20) = 0.1773550254640820D+02
        xs( 21) = 0.1858932692591394D+02
        xs( 22) = 0.1943742993945616D+02
        xs( 23) = 0.2027970445040385D+02
        xs( 24) = 0.2111606227225891D+02
        xs( 25) = 0.2194643423472725D+02
        xs( 26) = 0.2277077003670528D+02
        xs( 27) = 0.2358903768866143D+02
        xs( 28) = 0.2440122245864872D+02
        xs( 29) = 0.2520732553821283D+02
        xs( 30) = 0.2600736202694143D+02
        xs( 31) = 0.2680135880641532D+02
        xs( 32) = 0.2758935221155587D+02
        xs( 33) = 0.2837138579409685D+02
        xs( 34) = 0.2914750863865352D+02
        xs( 35) = 0.2991777421459924D+02
        xs( 36) = 0.3068224043996971D+02
        xs( 37) = 0.3144097051535756D+02
        xs( 38) = 0.3219403499946657D+02
        xs( 39) = 0.3294151461504022D+02
        xs( 40) = 0.3368350311426209D+02
        xs( 41) = 0.3442010975009997D+02
        xs( 42) = 0.3515146119882565D+02
        xs( 43) = 0.3587770166906945D+02
        xs( 44) = 0.3659899301657858D+02
        xs( 45) = 0.3731551429591881D+02
        xs( 46) = 0.3802746278717809D+02
        xs( 47) = 0.3873505619577183D+02
        xs( 48) = 0.3943853684725531D+02
        xs( 49) = 0.4013817866514502D+02
        xs( 50) = 0.4083429441620574D+02
        xs( 51) = 0.4152724606070063D+02
        xs( 52) = 0.4221745602800452D+02
        xs( 53) = 0.4290542539499411D+02
        xs( 54) = 0.4359175098954048D+02
        xs( 55) = 0.4427715985725920D+02
        xs( 56) = 0.4496253485519287D+02
        xs( 57) = 0.4564899450105593D+02
        xs( 58) = 0.4633790771594633D+02
        xs( 59) = 0.4703095481269787D+02
        xs( 60) = 0.4773028295348173D+02
        xs( 61) = 0.4843852795187737D+02
        xs( 62) = 0.4915854253752337D+02
        xs( 63) = 0.4989431249420334D+02
        xs( 64) = 0.5065055319635432D+02
        xs( 65) = 0.5142017910328107D+02
        xs( 66) = 0.5225819719675290D+02
        xs( 67) = 0.5312635034737428D+02
        ws(  1) = 0.9040962736138359D+00
        ws(  2) = 0.9163766293527157D+00
        ws(  3) = 0.9176068562712851D+00
        ws(  4) = 0.9170577315407710D+00
        ws(  5) = 0.9157604678922688D+00
        ws(  6) = 0.9139614196105321D+00
        ws(  7) = 0.9117491568000227D+00
        ws(  8) = 0.9091672949946678D+00
        ws(  9) = 0.9062435354387915D+00
        ws( 10) = 0.9029990640808006D+00
        ws( 11) = 0.8994523140411405D+00
        ws( 12) = 0.8956202391733991D+00
        ws( 13) = 0.8915192385915900D+00
        ws( 14) = 0.8871654355005252D+00
        ws( 15) = 0.8825747813857313D+00
        ws( 16) = 0.8777635605901073D+00
        ws( 17) = 0.8727479937678191D+00
        ws( 18) = 0.8675449026698216D+00
        ws( 19) = 0.8621712548621790D+00
        ws( 20) = 0.8566446830665083D+00
        ws( 21) = 0.8509831027493854D+00
        ws( 22) = 0.8452050545694030D+00
        ws( 23) = 0.8393292666176198D+00
        ws( 24) = 0.8333748474300717D+00
        ws( 25) = 0.8273607079456166D+00
        ws( 26) = 0.8213055756944440D+00
        ws( 27) = 0.8152272795521875D+00
        ws( 28) = 0.8091424956380106D+00
        ws( 29) = 0.8030662038483269D+00
        ws( 30) = 0.7970112889946170D+00
        ws( 31) = 0.7909883725533851D+00
        ws( 32) = 0.7850057128135169D+00
        ws( 33) = 0.7790696474370505D+00
        ws( 34) = 0.7731849210666484D+00
        ws( 35) = 0.7673558738811145D+00
        ws( 36) = 0.7615870827033876D+00
        ws( 37) = 0.7558847745153471D+00
        ws( 38) = 0.7502576001731494D+00
        ws( 39) = 0.7447171979937699D+00
        ws( 40) = 0.7392779581652268D+00
        ws( 41) = 0.7339564367667952D+00
        ws( 42) = 0.7287705033189482D+00
        ws( 43) = 0.7237374551399911D+00
        ws( 44) = 0.7188749827418155D+00
        ws( 45) = 0.7142003875992130D+00
        ws( 46) = 0.7097328687339916D+00
        ws( 47) = 0.7054940714728614D+00
        ws( 48) = 0.7015126953648400D+00
        ws( 49) = 0.6978227813725028D+00
        ws( 50) = 0.6944688802353063D+00
        ws( 51) = 0.6915041738301543D+00
        ws( 52) = 0.6889987362350029D+00
        ws( 53) = 0.6870392592034325D+00
        ws( 54) = 0.6857308554400957D+00
        ws( 55) = 0.6852316214552421D+00
        ws( 56) = 0.6857028444681591D+00
        ws( 57) = 0.6874330062817788D+00
        ws( 58) = 0.6906719329890431D+00
        ws( 59) = 0.6957551190611257D+00
        ws( 60) = 0.7033457040195477D+00
        ws( 61) = 0.7133939229549743D+00
        ws( 62) = 0.7275012317644772D+00
        ws( 63) = 0.7445474881742462D+00
        ws( 64) = 0.7649692395618058D+00
        ws( 65) = 0.7746479144222524D+00
        ws( 66) = 0.8389097132397576D+00
        ws( 67) = 0.1049984074013358D+01
        endif
        if( idomain .eq.  231 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.9424777960769379D+01
        rk1r = 0.2000000000000000D-01
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  26
        err = 0.7228956569268420D-10
        xs(  1) = 0.6225663747801606D+00
        xs(  2) = 0.1430186782150250D+01
        xs(  3) = 0.2245248329562906D+01
        xs(  4) = 0.3065494010423129D+01
        xs(  5) = 0.3891559339266937D+01
        xs(  6) = 0.4724383268456136D+01
        xs(  7) = 0.5564858750773319D+01
        xs(  8) = 0.6413749665087638D+01
        xs(  9) = 0.7271671030984278D+01
        xs( 10) = 0.8139091991909805D+01
        xs( 11) = 0.9016348023555564D+01
        xs( 12) = 0.9903658474105832D+01
        xs( 13) = 0.1080114544214808D+02
        xs( 14) = 0.1170883527095939D+02
        xs( 15) = 0.1262670172021165D+02
        xs( 16) = 0.1355475182162999D+02
        xs( 17) = 0.1449231127335222D+02
        xs( 18) = 0.1543953776882301D+02
        xs( 19) = 0.1640044799676762D+02
        xs( 20) = 0.1734838067378487D+02
        xs( 21) = 0.1836158209402372D+02
        xs( 22) = 0.1925837585187503D+02
        xs( 23) = 0.2047545344688953D+02
        xs( 24) = 0.2126171292186637D+02
        xs( 25) = 0.2419575145263842D+02
        xs( 26) = 0.2462302824151974D+02
        ws(  1) = 0.7991522745831973D+00
        ws(  2) = 0.8123557268074241D+00
        ws(  3) = 0.8176141399018459D+00
        ws(  4) = 0.8230038058571069D+00
        ws(  5) = 0.8292873865794359D+00
        ws(  6) = 0.8365104069844541D+00
        ws(  7) = 0.8445681257091402D+00
        ws(  8) = 0.8533161316816708D+00
        ws(  9) = 0.8626045813868090D+00
        ws( 10) = 0.8722928483649272D+00
        ws( 11) = 0.8822562290813670D+00
        ws( 12) = 0.8923822320444853D+00
        ws( 13) = 0.9025975221200294D+00
        ws( 14) = 0.9127988364881301D+00
        ws( 15) = 0.9228773748239307D+00
        ws( 16) = 0.9328578301951247D+00
        ws( 17) = 0.9445164779483332D+00
        ws( 18) = 0.9437401426898534D+00
        ws( 19) = 0.9819022369194438D+00
        ws( 20) = 0.9388000024763832D+00
        ws( 21) = 0.9928826797570737D+00
        ws( 22) = 0.1019667546002668D+01
        ws( 23) = 0.7867574947760870D+00
        ws( 24) = 0.1810525521317949D+01
        ws( 25) = 0.1742805115746048D+01
        ws( 26) = 0.2800663980426544D+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 =  27
        err = 0.3118106929848395D-10
        xs(  1) = 0.4460944496461413D+00
        xs(  2) = 0.1121709158704118D+01
        xs(  3) = 0.1870219103608210D+01
        xs(  4) = 0.2647961284439909D+01
        xs(  5) = 0.3441830428054869D+01
        xs(  6) = 0.4248098594773700D+01
        xs(  7) = 0.5065752045092565D+01
        xs(  8) = 0.5894622705987659D+01
        xs(  9) = 0.6734790656288850D+01
        xs( 10) = 0.7586374677441315D+01
        xs( 11) = 0.8449458172418801D+01
        xs( 12) = 0.9324067266414760D+01
        xs( 13) = 0.1021016910594440D+02
        xs( 14) = 0.1110767163004290D+02
        xs( 15) = 0.1201646161198818D+02
        xs( 16) = 0.1293629581284184D+02
        xs( 17) = 0.1386715275285362D+02
        xs( 18) = 0.1480820891886263D+02
        xs( 19) = 0.1576027481283523D+02
        xs( 20) = 0.1672106151998102D+02
        xs( 21) = 0.1769346665006869D+02
        xs( 22) = 0.1865523595916947D+02
        xs( 23) = 0.1967413275389907D+02
        xs( 24) = 0.2062995603995161D+02
        xs( 25) = 0.2152135111693612D+02
        xs( 26) = 0.2321647366601724D+02
        xs( 27) = 0.2499112301505694D+02
        ws(  1) = 0.6128869598227559D+00
        ws(  2) = 0.7235655211538891D+00
        ws(  3) = 0.7667904800466487D+00
        ws(  4) = 0.7868389079825407D+00
        ws(  5) = 0.8003639947522444D+00
        ws(  6) = 0.8120285197485507D+00
        ws(  7) = 0.8232587705271387D+00
        ws(  8) = 0.8344989127785460D+00
        ws(  9) = 0.8458578429714541D+00
        ws( 10) = 0.8573243949059657D+00
        ws( 11) = 0.8688472082099333D+00
        ws( 12) = 0.8803642335819744D+00
        ws( 13) = 0.8918267234811468D+00
        ws( 14) = 0.9031568481862206D+00
        ws( 15) = 0.9143811166612327D+00
        ws( 16) = 0.9252775154430263D+00
        ws( 17) = 0.9363345029855019D+00
        ws( 18) = 0.9459318144382131D+00
        ws( 19) = 0.9583704524610605D+00
        ws( 20) = 0.9565071105679315D+00
        ws( 21) = 0.1012013396998669D+01
        ws( 22) = 0.8942145101874371D+00
        ws( 23) = 0.1065592570211898D+01
        ws( 24) = 0.9459550020874056D+00
        ws( 25) = 0.1179006931829981D+01
        ws( 26) = 0.1328634276548255D+01
        ws( 27) = 0.3594245743317700D+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 =  25
        err = 0.2815266634042928D-10
        xs(  1) = 0.6379690339257805D+00
        xs(  2) = 0.1465573023141731D+01
        xs(  3) = 0.2300805806287748D+01
        xs(  4) = 0.3141349490120483D+01
        xs(  5) = 0.3987842061118886D+01
        xs(  6) = 0.4841223082212466D+01
        xs(  7) = 0.5702375316236058D+01
        xs(  8) = 0.6572039724976535D+01
        xs(  9) = 0.7450795017424108D+01
        xs( 10) = 0.8339059262122824D+01
        xs( 11) = 0.9237098360047973D+01
        xs( 12) = 0.1014503724309491D+02
        xs( 13) = 0.1106286248887045D+02
        xs( 14) = 0.1199039220845491D+02
        xs( 15) = 0.1292731668406634D+02
        xs( 16) = 0.1387308319236846D+02
        xs( 17) = 0.1482576541756107D+02
        xs( 18) = 0.1578605552054399D+02
        xs( 19) = 0.1674594501565859D+02
        xs( 20) = 0.1769999113236132D+02
        xs( 21) = 0.1862398035338891D+02
        xs( 22) = 0.1950793589348625D+02
        xs( 23) = 0.2040916494490900D+02
        xs( 24) = 0.2118049904318451D+02
        xs( 25) = 0.2430894441081424D+02
        ws(  1) = 0.8189245267338717D+00
        ws(  2) = 0.8324584994320492D+00
        ws(  3) = 0.8378492448659797D+00
        ws(  4) = 0.8433656448006569D+00
        ws(  5) = 0.8497802435479189D+00
        ws(  6) = 0.8571300541286643D+00
        ws(  7) = 0.8652981684709199D+00
        ws(  8) = 0.8741270604386236D+00
        ws(  9) = 0.8834530126781373D+00
        ws( 10) = 0.8931195244911443D+00
        ws( 11) = 0.9029805576899368D+00
        ws( 12) = 0.9128900489337420D+00
        ws( 13) = 0.9227404565009595D+00
        ws( 14) = 0.9322853182514508D+00
        ws( 15) = 0.9413383767627488D+00
        ws( 16) = 0.9499791404221947D+00
        ws( 17) = 0.9570851467865912D+00
        ws( 18) = 0.9559570755214900D+00
        ws( 19) = 0.9685835957698461D+00
        ws( 20) = 0.9517754905785013D+00
        ws( 21) = 0.8845692873018732D+00
        ws( 22) = 0.8002134288632287D+00
        ws( 23) = 0.8441396969706983D+00
        ws( 24) = 0.1574748683262988D+01
        ws( 25) = 0.4565571841041514D+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 =  25
        err = 0.3474720956391698D-10
        xs(  1) = 0.6393215735021800D+00
        xs(  2) = 0.1468691484120642D+01
        xs(  3) = 0.2305734474436050D+01
        xs(  4) = 0.3148146613706034D+01
        xs(  5) = 0.3996589717381172D+01
        xs(  6) = 0.4852032631437392D+01
        xs(  7) = 0.5715393448838257D+01
        xs(  8) = 0.6587456152554068D+01
        xs(  9) = 0.7468852795101717D+01
        xs( 10) = 0.8360069196986984D+01
        xs( 11) = 0.9261459904483255D+01
        xs( 12) = 0.1017326959873014D+02
        xs( 13) = 0.1109565266198738D+02
        xs( 14) = 0.1202866840618900D+02
        xs( 15) = 0.1297239299758849D+02
        xs( 16) = 0.1392677751200992D+02
        xs( 17) = 0.1489124674246822D+02
        xs( 18) = 0.1586694780218654D+02
        xs( 19) = 0.1685348136378745D+02
        xs( 20) = 0.1784270374420774D+02
        xs( 21) = 0.1883687577223360D+02
        xs( 22) = 0.1986730567929223D+02
        xs( 23) = 0.2082485492428916D+02
        xs( 24) = 0.2139502886047330D+02
        xs( 25) = 0.2427232095185367D+02
        ws(  1) = 0.8206636358234644D+00
        ws(  2) = 0.8342458642005026D+00
        ws(  3) = 0.8396850845161964D+00
        ws(  4) = 0.8452707112783883D+00
        ws(  5) = 0.8517811126773434D+00
        ws(  6) = 0.8592588288300900D+00
        ws(  7) = 0.8675936904056690D+00
        ws(  8) = 0.8766369541804694D+00
        ws(  9) = 0.8862369989389016D+00
        ws( 10) = 0.8962544716014464D+00
        ws( 11) = 0.9065685566045950D+00
        ws( 12) = 0.9170708554781337D+00
        ws( 13) = 0.9277163896218346D+00
        ws( 14) = 0.9383382816563954D+00
        ws( 15) = 0.9489794186754565D+00
        ws( 16) = 0.9598069067189821D+00
        ws( 17) = 0.9705977532347515D+00
        ws( 18) = 0.9764125149679601D+00
        ws( 19) = 0.9919518394073326D+00
        ws( 20) = 0.1034572618149847D+01
        ws( 21) = 0.8873072749213865D+00
        ws( 22) = 0.1003198073564896D+01
        ws( 23) = 0.1259543951760886D+01
        ws( 24) = 0.7181504576266127D+00
        ws( 25) = 0.4570617877813164D+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 =  25
        err = 0.3572194785404839D-10
        xs(  1) = 0.6373792468177085D+00
        xs(  2) = 0.1464245797421095D+01
        xs(  3) = 0.2298801270850639D+01
        xs(  4) = 0.3138771162076545D+01
        xs(  5) = 0.3984837082291931D+01
        xs(  6) = 0.4837985063965785D+01
        xs(  7) = 0.5699147560295418D+01
        xs(  8) = 0.6569119089549213D+01
        xs(  9) = 0.7448537479886468D+01
        xs( 10) = 0.8337888906408015D+01
        xs( 11) = 0.9237522440263497D+01
        xs( 12) = 0.1014767067996050D+02
        xs( 13) = 0.1106846993808243D+02
        xs( 14) = 0.1199995014363870D+02
        xs( 15) = 0.1294215072684368D+02
        xs( 16) = 0.1389495545263987D+02
        xs( 17) = 0.1485777691847226D+02
        xs( 18) = 0.1583128803999008D+02
        xs( 19) = 0.1681546104684509D+02
        xs( 20) = 0.1780215530519659D+02
        xs( 21) = 0.1878466965459469D+02
        xs( 22) = 0.1981060684408762D+02
        xs( 23) = 0.2073903282128187D+02
        xs( 24) = 0.2132634881134508D+02
        xs( 25) = 0.2426467732404187D+02
        ws(  1) = 0.8181746504004412D+00
        ws(  2) = 0.8317435164442076D+00
        ws(  3) = 0.8372166168252676D+00
        ws(  4) = 0.8428579360411373D+00
        ws(  5) = 0.8494423950399272D+00
        ws(  6) = 0.8570100932301948D+00
        ws(  7) = 0.8654475560084841D+00
        ws(  8) = 0.8746017116774321D+00
        ws(  9) = 0.8843158108863510D+00
        ws( 10) = 0.8944447777309485D+00
        ws( 11) = 0.9048619281960708D+00
        ws( 12) = 0.9154518277988534D+00
        ws( 13) = 0.9261613744345319D+00
        ws( 14) = 0.9368201443058120D+00
        ws( 15) = 0.9474400940370957D+00
        ws( 16) = 0.9581512321854460D+00
        ws( 17) = 0.9688993976287068D+00
        ws( 18) = 0.9742713088150755D+00
        ws( 19) = 0.9875473789926643D+00
        ws( 20) = 0.1033889865919885D+01
        ws( 21) = 0.8764656845095968D+00
        ws( 22) = 0.9855452165225445D+00
        ws( 23) = 0.1141044126579366D+01
        ws( 24) = 0.8966359326909168D+00
        ws( 25) = 0.4573250871507430D+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 =  26
        err = 0.4398672814966809D-10
        xs(  1) = 0.4871630396135040D+00
        xs(  2) = 0.1192502526158934D+01
        xs(  3) = 0.1965192811339944D+01
        xs(  4) = 0.2768568963278543D+01
        xs(  5) = 0.3588744838792505D+01
        xs(  6) = 0.4421123229997780D+01
        xs(  7) = 0.5264263315814424D+01
        xs(  8) = 0.6117849687449686D+01
        xs(  9) = 0.6981967249646687D+01
        xs( 10) = 0.7856817109396229D+01
        xs( 11) = 0.8742600323397602D+01
        xs( 12) = 0.9639473711492922D+01
        xs( 13) = 0.1054753884906520D+02
        xs( 14) = 0.1146683050884384D+02
        xs( 15) = 0.1239737693220081D+02
        xs( 16) = 0.1333905605737375D+02
        xs( 17) = 0.1429191457514742D+02
        xs( 18) = 0.1525576134791793D+02
        xs( 19) = 0.1622774029225215D+02
        xs( 20) = 0.1722611295578708D+02
        xs( 21) = 0.1817293593892791D+02
        xs( 22) = 0.1929127435863307D+02
        xs( 23) = 0.2019530555968376D+02
        xs( 24) = 0.2123394311916983D+02
        xs( 25) = 0.2300792366583448D+02
        xs( 26) = 0.2463562542321771D+02
        ws(  1) = 0.6536424087869508D+00
        ws(  2) = 0.7476730682281763D+00
        ws(  3) = 0.7916990759374224D+00
        ws(  4) = 0.8129958269112491D+00
        ws(  5) = 0.8266755651721940D+00
        ws(  6) = 0.8378694774150796D+00
        ws(  7) = 0.8483686011890726D+00
        ws(  8) = 0.8588225006036861D+00
        ws(  9) = 0.8694478989699826D+00
        ws( 10) = 0.8802858804219204D+00
        ws( 11) = 0.8913074164964019D+00
        ws( 12) = 0.9024542852169548D+00
        ws( 13) = 0.9136853656480236D+00
        ws( 14) = 0.9249020698051881D+00
        ws( 15) = 0.9361631839606021D+00
        ws( 16) = 0.9471685716863293D+00
        ws( 17) = 0.9586416664330522D+00
        ws( 18) = 0.9691826300989878D+00
        ws( 19) = 0.9748752504371254D+00
        ws( 20) = 0.1001272281053814D+01
        ws( 21) = 0.1007989952916829D+01
        ws( 22) = 0.9224619426190938D+00
        ws( 23) = 0.1131219475235548D+01
        ws( 24) = 0.1343289353893694D+01
        ws( 25) = 0.9957141997109710D+00
        ws( 26) = 0.3852526260915091D+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 =  25
        err = 0.2467945715577351D-10
        xs(  1) = 0.6326543286906660D+00
        xs(  2) = 0.1453344416402826D+01
        xs(  3) = 0.2281567622997197D+01
        xs(  4) = 0.3115043217377938D+01
        xs(  5) = 0.3954461021598846D+01
        xs(  6) = 0.4800850073958606D+01
        xs(  7) = 0.5655217963331435D+01
        xs(  8) = 0.6518457939201083D+01
        xs(  9) = 0.7391320013826480D+01
        xs( 10) = 0.8274407502705873D+01
        xs( 11) = 0.9168185347302442D+01
        xs( 12) = 0.1007299918761496D+02
        xs( 13) = 0.1098908738038197D+02
        xs( 14) = 0.1191663132103931D+02
        xs( 15) = 0.1285570813646956D+02
        xs( 16) = 0.1380634144538346D+02
        xs( 17) = 0.1476892850685841D+02
        xs( 18) = 0.1574302837615447D+02
        xs( 19) = 0.1672585564904003D+02
        xs( 20) = 0.1773114901929477D+02
        xs( 21) = 0.1873820325487107D+02
        xs( 22) = 0.1972888113796972D+02
        xs( 23) = 0.2080726818151382D+02
        xs( 24) = 0.2194307543495562D+02
        xs( 25) = 0.2283538701343040D+02
        ws(  1) = 0.8120966909259115D+00
        ws(  2) = 0.8254880667430914D+00
        ws(  3) = 0.8308046206856525D+00
        ws(  4) = 0.8362825475663170D+00
        ws(  5) = 0.8427287738105212D+00
        ws(  6) = 0.8502185442927209D+00
        ws(  7) = 0.8586665259232089D+00
        ws(  8) = 0.8679384672683216D+00
        ws(  9) = 0.8778861588309543D+00
        ws( 10) = 0.8883659731711115D+00
        ws( 11) = 0.8992471275516025D+00
        ws( 12) = 0.9104197786914870D+00
        ws( 13) = 0.9217929360850211D+00
        ws( 14) = 0.9332656811743399D+00
        ws( 15) = 0.9450329677227136D+00
        ws( 16) = 0.9561918854214171D+00
        ws( 17) = 0.9678734828963704D+00
        ws( 18) = 0.9840413657942895D+00
        ws( 19) = 0.9806042869565944D+00
        ws( 20) = 0.1012938850832082D+01
        ws( 21) = 0.1003644533711163D+01
        ws( 22) = 0.1152446266822954D+01
        ws( 23) = 0.6698844364150327D+00
        ws( 24) = 0.1088461882168871D+01
        ws( 25) = 0.2423596050878366D+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 =  25
        err = 0.8497885325752962D-10
        xs(  1) = 0.6357170121729826D+00
        xs(  2) = 0.1460239272300462D+01
        xs(  3) = 0.2292014742464136D+01
        xs(  4) = 0.3128623106092710D+01
        xs(  5) = 0.3970688372602603D+01
        xs(  6) = 0.4819239863811857D+01
        xs(  7) = 0.5675344064298080D+01
        xs(  8) = 0.6539998011810594D+01
        xs(  9) = 0.7414082727052104D+01
        xs( 10) = 0.8298341279655874D+01
        xs( 11) = 0.9193375225416396D+01
        xs( 12) = 0.1009965046908249D+02
        xs( 13) = 0.1101751536494042D+02
        xs( 14) = 0.1194724321993317D+02
        xs( 15) = 0.1288900668282325D+02
        xs( 16) = 0.1384291158163505D+02
        xs( 17) = 0.1480948058457068D+02
        xs( 18) = 0.1578834602015311D+02
        xs( 19) = 0.1677773709205831D+02
        xs( 20) = 0.1778683542596652D+02
        xs( 21) = 0.1881088028392776D+02
        xs( 22) = 0.1980318167829486D+02
        xs( 23) = 0.2086725567238392D+02
        xs( 24) = 0.2204964258249637D+02
        xs( 25) = 0.2299314988410902D+02
        ws(  1) = 0.8159904181913346D+00
        ws(  2) = 0.8292111254464836D+00
        ws(  3) = 0.8341637389530724D+00
        ws(  4) = 0.8391779914308988D+00
        ws(  5) = 0.8451284050797395D+00
        ws(  6) = 0.8521537656895835D+00
        ws(  7) = 0.8602216651034716D+00
        ws(  8) = 0.8692333817233613D+00
        ws(  9) = 0.8790597751330416D+00
        ws( 10) = 0.8895577935508381D+00
        ws( 11) = 0.9005861878116711D+00
        ws( 12) = 0.9120245430378764D+00
        ws( 13) = 0.9237495686976127D+00
        ws( 14) = 0.9357068736738489D+00
        ws( 15) = 0.9479456104224004D+00
        ws( 16) = 0.9599069746187759D+00
        ws( 17) = 0.9721586882464042D+00
        ws( 18) = 0.9882443825575881D+00
        ws( 19) = 0.9956722542047555D+00
        ws( 20) = 0.9868488031539991D+00
        ws( 21) = 0.1100398476069880D+01
        ws( 22) = 0.1038740840478964D+01
        ws( 23) = 0.7027049641913825D+00
        ws( 24) = 0.1489351348628150D+01
        ws( 25) = 0.1910549284598008D+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 =  26
        err = 0.8285626572186090D-10
        xs(  1) = 0.6268928240223098D+00
        xs(  2) = 0.1439339386545446D+01
        xs(  3) = 0.2257493177744336D+01
        xs(  4) = 0.3078303856349079D+01
        xs(  5) = 0.3901906738790034D+01
        xs(  6) = 0.4729044086806714D+01
        xs(  7) = 0.5560707270981951D+01
        xs(  8) = 0.6398019314859097D+01
        xs(  9) = 0.7242162792381688D+01
        xs( 10) = 0.8094318995977339D+01
        xs( 11) = 0.8955612726356122D+01
        xs( 12) = 0.9827067574731009D+01
        xs( 13) = 0.1070957687959388D+02
        xs( 14) = 0.1160389178419875D+02
        xs( 15) = 0.1251063038079350D+02
        xs( 16) = 0.1343031691579588D+02
        xs( 17) = 0.1436336830107579D+02
        xs( 18) = 0.1531028448343764D+02
        xs( 19) = 0.1627145481006479D+02
        xs( 20) = 0.1724723038545056D+02
        xs( 21) = 0.1824069690125654D+02
        xs( 22) = 0.1924685166009434D+02
        xs( 23) = 0.2026963069431481D+02
        xs( 24) = 0.2132376250455933D+02
        xs( 25) = 0.2243983114154771D+02
        xs( 26) = 0.2356682301166699D+02
        ws(  1) = 0.8044967401233808D+00
        ws(  2) = 0.8164715722212044D+00
        ws(  3) = 0.8195509980164404D+00
        ws(  4) = 0.8221133566937711D+00
        ws(  5) = 0.8252203068059620D+00
        ws(  6) = 0.8292214154778227D+00
        ws(  7) = 0.8342932825453439D+00
        ws(  8) = 0.8405287551562425D+00
        ws(  9) = 0.8479561523492578D+00
        ws( 10) = 0.8565440288407813D+00
        ws( 11) = 0.8662145704365112D+00
        ws( 12) = 0.8768440712400714D+00
        ws( 13) = 0.8882981710384994D+00
        ws( 14) = 0.9004365821930254D+00
        ws( 15) = 0.9131215139412167D+00
        ws( 16) = 0.9263226889184238D+00
        ws( 17) = 0.9398643008376674D+00
        ws( 18) = 0.9540080863007278D+00
        ws( 19) = 0.9687361921272774D+00
        ws( 20) = 0.9821640009803331D+00
        ws( 21) = 0.1002098511099991D+01
        ws( 22) = 0.1027232579659980D+01
        ws( 23) = 0.1013165820886008D+01
        ws( 24) = 0.1015864605700934D+01
        ws( 25) = 0.1266255839751589D+01
        ws( 26) = 0.1663526190478633D+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 =  28
        err = 0.8282828728017489D-10
        xs(  1) = 0.6344037881043298D+00
        xs(  2) = 0.1455969400059183D+01
        xs(  3) = 0.2281836778581159D+01
        xs(  4) = 0.3108073040415270D+01
        xs(  5) = 0.3933993118914627D+01
        xs(  6) = 0.4759588622738916D+01
        xs(  7) = 0.5585210164157310D+01
        xs(  8) = 0.6411492293565181D+01
        xs(  9) = 0.7239316389417379D+01
        xs( 10) = 0.8069774155586373D+01
        xs( 11) = 0.8904122314406822D+01
        xs( 12) = 0.9743728080421500D+01
        xs( 13) = 0.1059001048779937D+02
        xs( 14) = 0.1144437413552134D+02
        xs( 15) = 0.1230814997029222D+02
        xs( 16) = 0.1318255788571906D+02
        xs( 17) = 0.1406864862424929D+02
        xs( 18) = 0.1496735024994602D+02
        xs( 19) = 0.1587943350743893D+02
        xs( 20) = 0.1680564988112774D+02
        xs( 21) = 0.1774687078099424D+02
        xs( 22) = 0.1870328556236119D+02
        xs( 23) = 0.1967662439959933D+02
        xs( 24) = 0.2066833650351522D+02
        xs( 25) = 0.2167920724069555D+02
        xs( 26) = 0.2272033534099630D+02
        xs( 27) = 0.2377531570390015D+02
        xs( 28) = 0.2485921674787776D+02
        ws(  1) = 0.8139747937470312D+00
        ws(  2) = 0.8250434672755323D+00
        ws(  3) = 0.8262614515116886D+00
        ws(  4) = 0.8261168321609647D+00
        ws(  5) = 0.8257253977349857D+00
        ws(  6) = 0.8255250424811661D+00
        ws(  7) = 0.8258243354945246D+00
        ws(  8) = 0.8268873937685433D+00
        ws(  9) = 0.8289435581987160D+00
        ws( 10) = 0.8321821773909021D+00
        ws( 11) = 0.8367430289300753D+00
        ws( 12) = 0.8427067743475548D+00
        ws( 13) = 0.8500906791448056D+00
        ws( 14) = 0.8588612985682741D+00
        ws( 15) = 0.8688981778258874D+00
        ws( 16) = 0.8800822828431893D+00
        ws( 17) = 0.8922555963280117D+00
        ws( 18) = 0.9052973094285985D+00
        ws( 19) = 0.9190073113658282D+00
        ws( 20) = 0.9331782351336982D+00
        ws( 21) = 0.9495095542076655D+00
        ws( 22) = 0.9646168011216669D+00
        ws( 23) = 0.9849884570559492D+00
        ws( 24) = 0.9928910072275700D+00
        ws( 25) = 0.1002796467320825D+01
        ws( 26) = 0.1089142009703481D+01
        ws( 27) = 0.1180418711660107D+01
        ws( 28) = 0.1399570460349222D+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 =  30
        err = 0.2148692075385439D-10
        xs(  1) = 0.6407877192033425D+00
        xs(  2) = 0.1470368062376877D+01
        xs(  3) = 0.2303678837925763D+01
        xs(  4) = 0.3136363718284163D+01
        xs(  5) = 0.3967308719089052D+01
        xs(  6) = 0.4796040954313455D+01
        xs(  7) = 0.5622413103970306D+01
        xs(  8) = 0.6446542619804517D+01
        xs(  9) = 0.7268797646607167D+01
        xs( 10) = 0.8089791648107070D+01
        xs( 11) = 0.8910374430313325D+01
        xs( 12) = 0.9731615291723088D+01
        xs( 13) = 0.1055477802713573D+02
        xs( 14) = 0.1138128286166732D+02
        xs( 15) = 0.1221266092805736D+02
        xs( 16) = 0.1305050077390500D+02
        xs( 17) = 0.1389637650309718D+02
        xs( 18) = 0.1475181920141820D+02
        xs( 19) = 0.1561822275473631D+02
        xs( 20) = 0.1649686226944166D+02
        xs( 21) = 0.1738887572618550D+02
        xs( 22) = 0.1829512428503623D+02
        xs( 23) = 0.1921677069749494D+02
        xs( 24) = 0.2015410656822562D+02
        xs( 25) = 0.2110837832854834D+02
        xs( 26) = 0.2208047043438390D+02
        xs( 27) = 0.2306922385235272D+02
        xs( 28) = 0.2407624357462832D+02
        xs( 29) = 0.2511423226528189D+02
        xs( 30) = 0.2621569635335509D+02
        ws(  1) = 0.8220999092451051D+00
        ws(  2) = 0.8328472415359742D+00
        ws(  3) = 0.8332764072100446D+00
        ws(  4) = 0.8319279101678724D+00
        ws(  5) = 0.8298867520582854D+00
        ws(  6) = 0.8275538890839291D+00
        ws(  7) = 0.8252101519846334D+00
        ws(  8) = 0.8231102996238446D+00
        ws(  9) = 0.8215021091332383D+00
        ws( 10) = 0.8206277660638364D+00
        ws( 11) = 0.8207164145151860D+00
        ws( 12) = 0.8219768273669654D+00
        ws( 13) = 0.8245852484224343D+00
        ws( 14) = 0.8286815745276565D+00
        ws( 15) = 0.8343418975673457D+00
        ws( 16) = 0.8415967215595181D+00
        ws( 17) = 0.8504149802567442D+00
        ws( 18) = 0.8607021823864556D+00
        ws( 19) = 0.8723151844351769D+00
        ws( 20) = 0.8851237585548171D+00
        ws( 21) = 0.8989894770664429D+00
        ws( 22) = 0.9137407858764401D+00
        ws( 23) = 0.9294249058486747D+00
        ws( 24) = 0.9458714334843205D+00
        ws( 25) = 0.9627277431618468D+00
        ws( 26) = 0.9765740335101577D+00
        ws( 27) = 0.1011312964377930D+01
        ws( 28) = 0.9831934184388520D+00
        ws( 29) = 0.1151164206492385D+01
        ws( 30) = 0.1285544156780192D+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 =  30
        err = 0.7853280639362376D-10
        xs(  1) = 0.6618481640677051D+00
        xs(  2) = 0.1518651250967967D+01
        xs(  3) = 0.2379191451724394D+01
        xs(  4) = 0.3238869480401219D+01
        xs(  5) = 0.4096391412190080D+01
        xs(  6) = 0.4951069313634523D+01
        xs(  7) = 0.5802485443702894D+01
        xs(  8) = 0.6650424328628376D+01
        xs(  9) = 0.7494859226602621D+01
        xs( 10) = 0.8335950023877990D+01
        xs( 11) = 0.9174051312416372D+01
        xs( 12) = 0.1000971682575585D+02
        xs( 13) = 0.1084370652871524D+02
        xs( 14) = 0.1167698697186853D+02
        xs( 15) = 0.1251074524954587D+02
        xs( 16) = 0.1334635850315169D+02
        xs( 17) = 0.1418539217999944D+02
        xs( 18) = 0.1502955446287110D+02
        xs( 19) = 0.1588070817065674D+02
        xs( 20) = 0.1674071100304530D+02
        xs( 21) = 0.1761152160428667D+02
        xs( 22) = 0.1849488482522217D+02
        xs( 23) = 0.1939330356781050D+02
        xs( 24) = 0.2030727878218399D+02
        xs( 25) = 0.2124055155543681D+02
        xs( 26) = 0.2219516396464358D+02
        xs( 27) = 0.2316194075043414D+02
        xs( 28) = 0.2415097456951289D+02
        xs( 29) = 0.2525241453924108D+02
        xs( 30) = 0.2629535841559477D+02
        ws(  1) = 0.8491087798412718D+00
        ws(  2) = 0.8601330854039396D+00
        ws(  3) = 0.8604169504859729D+00
        ws(  4) = 0.8587446240733529D+00
        ws(  5) = 0.8561881738477436D+00
        ws(  6) = 0.8530988339687574D+00
        ws(  7) = 0.8496974289610376D+00
        ws(  8) = 0.8461762277877967D+00
        ws(  9) = 0.8427198865744863D+00
        ws( 10) = 0.8395208884745839D+00
        ws( 11) = 0.8367747129528593D+00
        ws( 12) = 0.8346812468147469D+00
        ws( 13) = 0.8334601892519103D+00
        ws( 14) = 0.8333040186691332D+00
        ws( 15) = 0.8344316475502088D+00
        ws( 16) = 0.8370515117430839D+00
        ws( 17) = 0.8413268717220403D+00
        ws( 18) = 0.8473329451702843D+00
        ws( 19) = 0.8552034072390123D+00
        ws( 20) = 0.8650595087752982D+00
        ws( 21) = 0.8772025769005398D+00
        ws( 22) = 0.8900439064779134D+00
        ws( 23) = 0.9058806983262853D+00
        ws( 24) = 0.9231983395559897D+00
        ws( 25) = 0.9410692560396832D+00
        ws( 26) = 0.9751786502260957D+00
        ws( 27) = 0.9786785708035276D+00
        ws( 28) = 0.9215873519841229D+00
        ws( 29) = 0.1132502519761485D+01
        ws( 30) = 0.1847926317873985D+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 =  32
        err = 0.3573966962808305D-10
        xs(  1) = 0.6703359251130286D+00
        xs(  2) = 0.1538142681042816D+01
        xs(  3) = 0.2409763940962441D+01
        xs(  4) = 0.3280527949331106D+01
        xs(  5) = 0.4149075002151273D+01
        xs(  6) = 0.5014613929159148D+01
        xs(  7) = 0.5876575711116811D+01
        xs(  8) = 0.6734539285777356D+01
        xs(  9) = 0.7588214330070642D+01
        xs( 10) = 0.8437439272918420D+01
        xs( 11) = 0.9282184814915578D+01
        xs( 12) = 0.1012256588300563D+02
        xs( 13) = 0.1095884490516017D+02
        xs( 14) = 0.1179144652604536D+02
        xs( 15) = 0.1262096792195334D+02
        xs( 16) = 0.1344818321516529D+02
        xs( 17) = 0.1427406342538696D+02
        xs( 18) = 0.1509976453664384D+02
        xs( 19) = 0.1592665435142475D+02
        xs( 20) = 0.1675627365482315D+02
        xs( 21) = 0.1759034233973028D+02
        xs( 22) = 0.1843069191099255D+02
        xs( 23) = 0.1927931805748443D+02
        xs( 24) = 0.2013825123859641D+02
        xs( 25) = 0.2100953003828333D+02
        xs( 26) = 0.2189559412417862D+02
        xs( 27) = 0.2279829141255352D+02
        xs( 28) = 0.2371936838741960D+02
        xs( 29) = 0.2465810954461275D+02
        xs( 30) = 0.2561424702568729D+02
        xs( 31) = 0.2659978049950651D+02
        xs( 32) = 0.2767582243609859D+02
        ws(  1) = 0.8600019574179478D+00
        ws(  2) = 0.8711938607112898D+00
        ws(  3) = 0.8715090931744001D+00
        ws(  4) = 0.8698138993992820D+00
        ws(  5) = 0.8671520409832206D+00
        ws(  6) = 0.8638318269775266D+00
        ws(  7) = 0.8600215470427909D+00
        ws(  8) = 0.8558573917201964D+00
        ws(  9) = 0.8514655729970747D+00
        ws( 10) = 0.8469787267563771D+00
        ws( 11) = 0.8425329832877561D+00
        ws( 12) = 0.8382711412176673D+00
        ws( 13) = 0.8343579304067293D+00
        ws( 14) = 0.8309465381347618D+00
        ws( 15) = 0.8282224029577653D+00
        ws( 16) = 0.8263693105764441D+00
        ws( 17) = 0.8255833594803016D+00
        ws( 18) = 0.8260542255106940D+00
        ws( 19) = 0.8279846442677227D+00
        ws( 20) = 0.8315435044277522D+00
        ws( 21) = 0.8368831658050035D+00
        ws( 22) = 0.8441820985244287D+00
        ws( 23) = 0.8534726327483528D+00
        ws( 24) = 0.8647165500957578D+00
        ws( 25) = 0.8777288091408120D+00
        ws( 26) = 0.8941815223447613D+00
        ws( 27) = 0.9105841782780910D+00
        ws( 28) = 0.9309004333091392D+00
        ws( 29) = 0.9657049746415420D+00
        ws( 30) = 0.9311244024301060D+00
        ws( 31) = 0.8625421849041034D+00
        ws( 32) = 0.1661820031850085D+01
        endif
        if( idomain .eq.  244 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.9424777960769379D+01
        rk1r = 0.2199114857512855D+02
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  33
        err = 0.7682245790630080D-10
        xs(  1) = 0.6874785555929953D+00
        xs(  2) = 0.1577518382040556D+01
        xs(  3) = 0.2471558303455257D+01
        xs(  4) = 0.3364845703954057D+01
        xs(  5) = 0.4256010554664140D+01
        xs(  6) = 0.5144243530604579D+01
        xs(  7) = 0.6028937980825968D+01
        xs(  8) = 0.6909606786051497D+01
        xs(  9) = 0.7785862924170213D+01
        xs( 10) = 0.8657409788441681D+01
        xs( 11) = 0.9524043778203202D+01
        xs( 12) = 0.1038566264378763D+02
        xs( 13) = 0.1124226388690750D+02
        xs( 14) = 0.1209397024688425D+02
        xs( 15) = 0.1294102237518064D+02
        xs( 16) = 0.1378380753483156D+02
        xs( 17) = 0.1462286223369576D+02
        xs( 18) = 0.1545889423198988D+02
        xs( 19) = 0.1629276794014466D+02
        xs( 20) = 0.1712557063568839D+02
        xs( 21) = 0.1795851643839662D+02
        xs( 22) = 0.1879305933992743D+02
        xs( 23) = 0.1963083064921944D+02
        xs( 24) = 0.2047367602966589D+02
        xs( 25) = 0.2132349971340111D+02
        xs( 26) = 0.2218251807435584D+02
        xs( 27) = 0.2305299882675949D+02
        xs( 28) = 0.2393682939402671D+02
        xs( 29) = 0.2483729117680197D+02
        xs( 30) = 0.2575997575230631D+02
        xs( 31) = 0.2668994665274789D+02
        xs( 32) = 0.2773158196904829D+02
        xs( 33) = 0.2872432704136267D+02
        ws(  1) = 0.8820082271564254D+00
        ws(  2) = 0.8935491615102531D+00
        ws(  3) = 0.8939827704240731D+00
        ws(  4) = 0.8923862348314079D+00
        ws(  5) = 0.8898125620885206D+00
        ws(  6) = 0.8865542777991809D+00
        ws(  7) = 0.8827536743270779D+00
        ws(  8) = 0.8785196235392378D+00
        ws(  9) = 0.8739424910943097D+00
        ws( 10) = 0.8691176801433227D+00
        ws( 11) = 0.8641329273214153D+00
        ws( 12) = 0.8591013376436109D+00
        ws( 13) = 0.8541245294057297D+00
        ws( 14) = 0.8493285390605630D+00
        ws( 15) = 0.8448384798330284D+00
        ws( 16) = 0.8408180852343716D+00
        ws( 17) = 0.8374134874715596D+00
        ws( 18) = 0.8347909754547039D+00
        ws( 19) = 0.8331379491513462D+00
        ws( 20) = 0.8326425201616293D+00
        ws( 21) = 0.8335046067636264D+00
        ws( 22) = 0.8358861666412311D+00
        ws( 23) = 0.8399495671633581D+00
        ws( 24) = 0.8460363816851070D+00
        ws( 25) = 0.8536047767137454D+00
        ws( 26) = 0.8645286052657574D+00
        ws( 27) = 0.8783579796151590D+00
        ws( 28) = 0.8923071247774853D+00
        ws( 29) = 0.9026164624473235D+00
        ws( 30) = 0.9269613769010687D+00
        ws( 31) = 0.9111775052383396D+00
        ws( 32) = 0.1199142021029634D+01
        ws( 33) = 0.1321001714935796D+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 =  35
        err = 0.6972733251220639D-10
        xs(  1) = 0.6968777583025557D+00
        xs(  2) = 0.1599126831393369D+01
        xs(  3) = 0.2505555265694115D+01
        xs(  4) = 0.3411398286724175D+01
        xs(  5) = 0.4315317716742877D+01
        xs(  6) = 0.5216526598144480D+01
        xs(  7) = 0.6114427133689791D+01
        xs(  8) = 0.7008521513318400D+01
        xs(  9) = 0.7898387892547167D+01
        xs( 10) = 0.8783673116741753D+01
        xs( 11) = 0.9664084414912946D+01
        xs( 12) = 0.1053939154169243D+02
        xs( 13) = 0.1140943212513414D+02
        xs( 14) = 0.1227410820861121D+02
        xs( 15) = 0.1313339859788419D+02
        xs( 16) = 0.1398736214738873D+02
        xs( 17) = 0.1483614643723642D+02
        xs( 18) = 0.1567999822829742D+02
        xs( 19) = 0.1651927979298313D+02
        xs( 20) = 0.1735447206278038D+02
        xs( 21) = 0.1818620306736417D+02
        xs( 22) = 0.1901526261678669D+02
        xs( 23) = 0.1984259459883850D+02
        xs( 24) = 0.2066937847094455D+02
        xs( 25) = 0.2149686496856501D+02
        xs( 26) = 0.2232675441471614D+02
        xs( 27) = 0.2316064471818419D+02
        xs( 28) = 0.2400054165583750D+02
        xs( 29) = 0.2484808261384661D+02
        xs( 30) = 0.2570832791079858D+02
        xs( 31) = 0.2657794502879433D+02
        xs( 32) = 0.2746578841772768D+02
        xs( 33) = 0.2836088743721829D+02
        xs( 34) = 0.2928804098133655D+02
        xs( 35) = 0.3031289054693882D+02
        ws(  1) = 0.8940701252752424D+00
        ws(  2) = 0.9058605320367497D+00
        ws(  3) = 0.9064485951922552D+00
        ws(  4) = 0.9050379748427048D+00
        ws(  5) = 0.9026732279802165D+00
        ws(  6) = 0.8996464577873540D+00
        ws(  7) = 0.8960722131185082D+00
        ws(  8) = 0.8920449336257807D+00
        ws(  9) = 0.8876299144205922D+00
        ws( 10) = 0.8828925601763162D+00
        ws( 11) = 0.8778913731113981D+00
        ws( 12) = 0.8726969991241714D+00
        ws( 13) = 0.8673659179544485D+00
        ws( 14) = 0.8619829141426204D+00
        ws( 15) = 0.8566131020410639D+00
        ws( 16) = 0.8513354141917090D+00
        ws( 17) = 0.8462691367305147D+00
        ws( 18) = 0.8414955537761540D+00
        ws( 19) = 0.8371447323435792D+00
        ws( 20) = 0.8333564507458509D+00
        ws( 21) = 0.8302542170888552D+00
        ws( 22) = 0.8279923387611016D+00
        ws( 23) = 0.8268426011068245D+00
        ws( 24) = 0.8268762494959241D+00
        ws( 25) = 0.8284359929079055D+00
        ws( 26) = 0.8315739903538408D+00
        ws( 27) = 0.8366342711413655D+00
        ws( 28) = 0.8427582531771634D+00
        ws( 29) = 0.8517035008625027D+00
        ws( 30) = 0.8672635822551932D+00
        ws( 31) = 0.8755494924114284D+00
        ws( 32) = 0.8719937821459206D+00
        ws( 33) = 0.8988981464316999D+00
        ws( 34) = 0.9580802546731910D+00
        ws( 35) = 0.1243498122683557D+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 =  38
        err = 0.5262137228305642D-10
        xs(  1) = 0.7033559099595931D+00
        xs(  2) = 0.1614083137222577D+01
        xs(  3) = 0.2529167710892161D+01
        xs(  4) = 0.3443896930594247D+01
        xs(  5) = 0.4356977463729859D+01
        xs(  6) = 0.5267676518009594D+01
        xs(  7) = 0.6175428572832838D+01
        xs(  8) = 0.7079762112462808D+01
        xs(  9) = 0.7980265322596196D+01
        xs( 10) = 0.8876580509334149D+01
        xs( 11) = 0.9768396947695242D+01
        xs( 12) = 0.1065545056218441D+02
        xs( 13) = 0.1153752585065892D+02
        xs( 14) = 0.1241445385311195D+02
        xs( 15) = 0.1328611683924668D+02
        xs( 16) = 0.1415245162208469D+02
        xs( 17) = 0.1501345093156913D+02
        xs( 18) = 0.1586917346561995D+02
        xs( 19) = 0.1671974191551285D+02
        xs( 20) = 0.1756535918892431D+02
        xs( 21) = 0.1840630931551430D+02
        xs( 22) = 0.1924296798967871D+02
        xs( 23) = 0.2007581537800838D+02
        xs( 24) = 0.2090543695806733D+02
        xs( 25) = 0.2173256449895035D+02
        xs( 26) = 0.2255803035965679D+02
        xs( 27) = 0.2338286049672394D+02
        xs( 28) = 0.2420823094439388D+02
        xs( 29) = 0.2503547242480548D+02
        xs( 30) = 0.2586622134052602D+02
        xs( 31) = 0.2670171076013751D+02
        xs( 32) = 0.2754457176514532D+02
        xs( 33) = 0.2839657834540821D+02
        xs( 34) = 0.2925877019012655D+02
        xs( 35) = 0.3012894766086003D+02
        xs( 36) = 0.3103390444767488D+02
        xs( 37) = 0.3198645057920769D+02
        xs( 38) = 0.3292161691675787D+02
        ws(  1) = 0.9024181148570403D+00
        ws(  2) = 0.9144266584295168D+00
        ws(  3) = 0.9152113873261529D+00
        ws(  4) = 0.9140515010835772D+00
        ws(  5) = 0.9119938507510812D+00
        ws(  6) = 0.9093098928233445D+00
        ws(  7) = 0.9061167118980444D+00
        ws(  8) = 0.9024814110725986D+00
        ws(  9) = 0.8984648763621553D+00
        ws( 10) = 0.8941136480341161D+00
        ws( 11) = 0.8894760832260790D+00
        ws( 12) = 0.8845966158529855D+00
        ws( 13) = 0.8795249233828565D+00
        ws( 14) = 0.8743105840209388D+00
        ws( 15) = 0.8690046445910982D+00
        ws( 16) = 0.8636641354156697D+00
        ws( 17) = 0.8583444125325952D+00
        ws( 18) = 0.8531213751843945D+00
        ws( 19) = 0.8480526657377583D+00
        ws( 20) = 0.8432303650977515D+00
        ws( 21) = 0.8387330711692697D+00
        ws( 22) = 0.8346635037864866D+00
        ws( 23) = 0.8311328788965562D+00
        ws( 24) = 0.8282538577490095D+00
        ws( 25) = 0.8261409675299333D+00
        ws( 26) = 0.8249751786483541D+00
        ws( 27) = 0.8249483553887181D+00
        ws( 28) = 0.8260719256298330D+00
        ws( 29) = 0.8287376345082715D+00
        ws( 30) = 0.8328902678426565D+00
        ws( 31) = 0.8390966089282148D+00
        ws( 32) = 0.8470608543716763D+00
        ws( 33) = 0.8599013447026991D+00
        ws( 34) = 0.8675100075040444D+00
        ws( 35) = 0.8643076929614166D+00
        ws( 36) = 0.8871794252994594D+00
        ws( 37) = 0.1077364131578542D+01
        ws( 38) = 0.1256423887799402D+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 =  40
        err = 0.7571770067477633D-10
        xs(  1) = 0.7108746343026410D+00
        xs(  2) = 0.1631337343355353D+01
        xs(  3) = 0.2556326299583830D+01
        xs(  4) = 0.3481109401140781D+01
        xs(  5) = 0.4404438366489571D+01
        xs(  6) = 0.5325604795517041D+01
        xs(  7) = 0.6244077656189011D+01
        xs(  8) = 0.7159402576478678D+01
        xs(  9) = 0.8071180879014568D+01
        xs( 10) = 0.8979057009875516D+01
        xs( 11) = 0.9882715869506729D+01
        xs( 12) = 0.1078187412714053D+02
        xs( 13) = 0.1167629126907594D+02
        xs( 14) = 0.1256575606359460D+02
        xs( 15) = 0.1345009868989807D+02
        xs( 16) = 0.1432918630612061D+02
        xs( 17) = 0.1520292434296557D+02
        xs( 18) = 0.1607126437193041D+02
        xs( 19) = 0.1693420449105689D+02
        xs( 20) = 0.1779179190114935D+02
        xs( 21) = 0.1864413153023896D+02
        xs( 22) = 0.1949139351309682D+02
        xs( 23) = 0.2033381385187930D+02
        xs( 24) = 0.2117171630120939D+02
        xs( 25) = 0.2200551314335678D+02
        xs( 26) = 0.2283571813470636D+02
        xs( 27) = 0.2366299318177393D+02
        xs( 28) = 0.2448811989081027D+02
        xs( 29) = 0.2531201142233577D+02
        xs( 30) = 0.2613579080336810D+02
        xs( 31) = 0.2696068947955345D+02
        xs( 32) = 0.2778845029217499D+02
        xs( 33) = 0.2862059025504732D+02
        xs( 34) = 0.2945934724019571D+02
        xs( 35) = 0.3030661098469814D+02
        xs( 36) = 0.3116756153329109D+02
        xs( 37) = 0.3203821971333536D+02
        xs( 38) = 0.3292639074860868D+02
        xs( 39) = 0.3385420371604750D+02
        xs( 40) = 0.3492982353493373D+02
        ws(  1) = 0.9120387694773134D+00
        ws(  2) = 0.9242577576205386D+00
        ws(  3) = 0.9251877734576442D+00
        ws(  4) = 0.9241924409807311D+00
        ws(  5) = 0.9223478919854750D+00
        ws(  6) = 0.9199015455668098D+00
        ws(  7) = 0.9169692479147441D+00
        ws(  8) = 0.9136134927729048D+00
        ws(  9) = 0.9098820629292712D+00
        ws( 10) = 0.9058175220266226D+00
        ws( 11) = 0.9014524641135220D+00
        ws( 12) = 0.8968270864342442D+00
        ws( 13) = 0.8919724335455284D+00
        ws( 14) = 0.8869283751725618D+00
        ws( 15) = 0.8817342612688909D+00
        ws( 16) = 0.8764241062999606D+00
        ws( 17) = 0.8710441966442541D+00
        ws( 18) = 0.8656364169623891D+00
        ws( 19) = 0.8602512072566280D+00
        ws( 20) = 0.8549448084704646D+00
        ws( 21) = 0.8497644154338185D+00
        ws( 22) = 0.8447958564530507D+00
        ws( 23) = 0.8400960413789796D+00
        ws( 24) = 0.8357764553124896D+00
        ws( 25) = 0.8319108228117029D+00
        ws( 26) = 0.8286133794587593D+00
        ws( 27) = 0.8260476806502596D+00
        ws( 28) = 0.8243249715919679D+00
        ws( 29) = 0.8235860855721777D+00
        ws( 30) = 0.8242399888077649D+00
        ws( 31) = 0.8256615523650893D+00
        ws( 32) = 0.8296988587926204D+00
        ws( 33) = 0.8349408045710803D+00
        ws( 34) = 0.8408953426542626D+00
        ws( 35) = 0.8526893924913100D+00
        ws( 36) = 0.8631154107337343D+00
        ws( 37) = 0.8915544374660954D+00
        ws( 38) = 0.8348000580053903D+00
        ws( 39) = 0.8775532391140199D+00
        ws( 40) = 0.1611925469326110D+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 =  43
        err = 0.7822652103944433D-10
        xs(  1) = 0.7167067190922481D+00
        xs(  2) = 0.1644813727120172D+01
        xs(  3) = 0.2577537048344145D+01
        xs(  4) = 0.3510179944436581D+01
        xs(  5) = 0.4441510205684715D+01
        xs(  6) = 0.5370863022607875D+01
        xs(  7) = 0.6297728394334435D+01
        xs(  8) = 0.7221679632660097D+01
        xs(  9) = 0.8142336559232378D+01
        xs( 10) = 0.9059359593030868D+01
        xs( 11) = 0.9972439583482625D+01
        xs( 12) = 0.1088129878451416D+02
        xs( 13) = 0.1178568390203232D+02
        xs( 14) = 0.1268537445301462D+02
        xs( 15) = 0.1358017051224991D+02
        xs( 16) = 0.1446990702976632D+02
        xs( 17) = 0.1535444054173970D+02
        xs( 18) = 0.1623366213829681D+02
        xs( 19) = 0.1710749064119944D+02
        xs( 20) = 0.1797588133990417D+02
        xs( 21) = 0.1883882102237312D+02
        xs( 22) = 0.1969633916257983D+02
        xs( 23) = 0.2054850927923156D+02
        xs( 24) = 0.2139544902456281D+02
        xs( 25) = 0.2223732220194224D+02
        xs( 26) = 0.2307437227198568D+02
        xs( 27) = 0.2390689722877309D+02
        xs( 28) = 0.2473527085309992D+02
        xs( 29) = 0.2555998987707403D+02
        xs( 30) = 0.2638164332615774D+02
        xs( 31) = 0.2720088748022650D+02
        xs( 32) = 0.2801879460499083D+02
        xs( 33) = 0.2883602776447379D+02
        xs( 34) = 0.2965416885104737D+02
        xs( 35) = 0.3047481275506777D+02
        xs( 36) = 0.3129922944994855D+02
        xs( 37) = 0.3213024918680764D+02
        xs( 38) = 0.3296772073640528D+02
        xs( 39) = 0.3381762188155210D+02
        xs( 40) = 0.3466673080018179D+02
        xs( 41) = 0.3557777278815738D+02
        xs( 42) = 0.3649815624253297D+02
        xs( 43) = 0.3747329339291938D+02
        ws(  1) = 0.9195786912961763D+00
        ws(  2) = 0.9319482352302323D+00
        ws(  3) = 0.9329761174830516D+00
        ws(  4) = 0.9321240357222489D+00
        ws(  5) = 0.9304343094512576D+00
        ws(  6) = 0.9281854047640637D+00
        ws(  7) = 0.9254736826629001D+00
        ws(  8) = 0.9223657501417634D+00
        ws(  9) = 0.9188942465162360D+00
        ws( 10) = 0.9150992009315597D+00
        ws( 11) = 0.9110148679543048D+00
        ws( 12) = 0.9066596638043460D+00
        ws( 13) = 0.9020730147658542D+00
        ws( 14) = 0.8972747820446867D+00
        ws( 15) = 0.8922917433572717D+00
        ws( 16) = 0.8871568846329642D+00
        ws( 17) = 0.8818939616806457D+00
        ws( 18) = 0.8765335587359805D+00
        ws( 19) = 0.8711143737855460D+00
        ws( 20) = 0.8656640858865920D+00
        ws( 21) = 0.8602208687083360D+00
        ws( 22) = 0.8548318835526278D+00
        ws( 23) = 0.8495256657970774D+00
        ws( 24) = 0.8443727922981754D+00
        ws( 25) = 0.8394185470451700D+00
        ws( 26) = 0.8347363557874866D+00
        ws( 27) = 0.8303721316423415D+00
        ws( 28) = 0.8264714897221240D+00
        ws( 29) = 0.8230608164993946D+00
        ws( 30) = 0.8203348399025526D+00
        ws( 31) = 0.8184528220975176D+00
        ws( 32) = 0.8173959005142865D+00
        ws( 33) = 0.8175986908502481D+00
        ws( 34) = 0.8189713780672973D+00
        ws( 35) = 0.8229505061313666D+00
        ws( 36) = 0.8263894108164593D+00
        ws( 37) = 0.8347094595947643D+00
        ws( 38) = 0.8483203368959634D+00
        ws( 39) = 0.8514550673545347D+00
        ws( 40) = 0.8375786408854700D+00
        ws( 41) = 0.9319339716003500D+00
        ws( 42) = 0.9705598047817063D+00
        ws( 43) = 0.1131115247945626D+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 =  45
        err = 0.9599412222489512D-10
        xs(  1) = 0.7228633275974125D+00
        xs(  2) = 0.1658933293053780D+01
        xs(  3) = 0.2599753952739030D+01
        xs(  4) = 0.3540612551767168D+01
        xs(  5) = 0.4480314594902304D+01
        xs(  6) = 0.5418216271171752D+01
        xs(  7) = 0.6353850559449410D+01
        xs(  8) = 0.7286810233575422D+01
        xs(  9) = 0.8216746519777606D+01
        xs( 10) = 0.9143335590226281D+01
        xs( 11) = 0.1006629366766386D+02
        xs( 12) = 0.1098535184317920D+02
        xs( 13) = 0.1190027399420705D+02
        xs( 14) = 0.1281083832995398D+02
        xs( 15) = 0.1371685396514602D+02
        xs( 16) = 0.1461814537884399D+02
        xs( 17) = 0.1551456144425108D+02
        xs( 18) = 0.1640597274750876D+02
        xs( 19) = 0.1729227033627354D+02
        xs( 20) = 0.1817337318716253D+02
        xs( 21) = 0.1904922614575906D+02
        xs( 22) = 0.1991979640161416D+02
        xs( 23) = 0.2078508202697562D+02
        xs( 24) = 0.2164512339811864D+02
        xs( 25) = 0.2249997837121042D+02
        xs( 26) = 0.2334975842402254D+02
        xs( 27) = 0.2419461963260126D+02
        xs( 28) = 0.2503476789330308D+02
        xs( 29) = 0.2587043709256459D+02
        xs( 30) = 0.2670197326849661D+02
        xs( 31) = 0.2752977641848746D+02
        xs( 32) = 0.2835428021058741D+02
        xs( 33) = 0.2917614792972835D+02
        xs( 34) = 0.2999599989458912D+02
        xs( 35) = 0.3081458165903639D+02
        xs( 36) = 0.3163322858784438D+02
        xs( 37) = 0.3245256892256637D+02
        xs( 38) = 0.3327415913579331D+02
        xs( 39) = 0.3409965064291565D+02
        xs( 40) = 0.3493159822804482D+02
        xs( 41) = 0.3577138716881302D+02
        xs( 42) = 0.3662203836723686D+02
        xs( 43) = 0.3746937108924661D+02
        xs( 44) = 0.3831506666039582D+02
        xs( 45) = 0.3940754081451207D+02
        ws(  1) = 0.9274532950080915D+00
        ws(  2) = 0.9399892076227978D+00
        ws(  3) = 0.9411261133375683D+00
        ws(  4) = 0.9404124886927373D+00
        ws(  5) = 0.9388890158318123D+00
        ws(  6) = 0.9368405874609136D+00
        ws(  7) = 0.9343580305284764D+00
        ws(  8) = 0.9315037652596287D+00
        ws(  9) = 0.9283149728664172D+00
        ws( 10) = 0.9248191051538295D+00
        ws( 11) = 0.9210493754450749D+00
        ws( 12) = 0.9170265103841932D+00
        ws( 13) = 0.9127794584598606D+00
        ws( 14) = 0.9083216328115488D+00
        ws( 15) = 0.9036801024374450D+00
        ws( 16) = 0.8988766649903351D+00
        ws( 17) = 0.8939317680681471D+00
        ws( 18) = 0.8888703979827864D+00
        ws( 19) = 0.8837144314502178D+00
        ws( 20) = 0.8784866607794856D+00
        ws( 21) = 0.8732113790681343D+00
        ws( 22) = 0.8679222913704439D+00
        ws( 23) = 0.8626526764551522D+00
        ws( 24) = 0.8574346343206799D+00
        ws( 25) = 0.8523002596541364D+00
        ws( 26) = 0.8472948016321341D+00
        ws( 27) = 0.8424488997870897D+00
        ws( 28) = 0.8378637058370302D+00
        ws( 29) = 0.8335449190334472D+00
        ws( 30) = 0.8295830530879893D+00
        ws( 31) = 0.8260710856426248D+00
        ws( 32) = 0.8230831087376299D+00
        ws( 33) = 0.8206530812406370D+00
        ws( 34) = 0.8190941259244505D+00
        ws( 35) = 0.8183994656861950D+00
        ws( 36) = 0.8184566713706307D+00
        ws( 37) = 0.8199118235241730D+00
        ws( 38) = 0.8241063551963232D+00
        ws( 39) = 0.8251508688149645D+00
        ws( 40) = 0.8327598384600646D+00
        ws( 41) = 0.8418875578215766D+00
        ws( 42) = 0.8390927018299787D+00
        ws( 43) = 0.8281353955983959D+00
        ws( 44) = 0.7773520088672928D+00
        ws( 45) = 0.1236964172800408D+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 =  48
        err = 0.7859621664545730D-10
        xs(  1) = 0.7267181074970331D+00
        xs(  2) = 0.1667852621650915D+01
        xs(  3) = 0.2613846945632848D+01
        xs(  4) = 0.3560013358898374D+01
        xs(  5) = 0.4505204552466403D+01
        xs(  6) = 0.5448807390957442D+01
        xs(  7) = 0.6390383007338198D+01
        xs(  8) = 0.7329553834073343D+01
        xs(  9) = 0.8265988999803087D+01
        xs( 10) = 0.9199382977030977D+01
        xs( 11) = 0.1012946023662038D+02
        xs( 12) = 0.1105596164584282D+02
        xs( 13) = 0.1197865285967495D+02
        xs( 14) = 0.1289731275773381D+02
        xs( 15) = 0.1381174499746284D+02
        xs( 16) = 0.1472176589487115D+02
        xs( 17) = 0.1562721121718447D+02
        xs( 18) = 0.1652793507645588D+02
        xs( 19) = 0.1742380608431042D+02
        xs( 20) = 0.1831471563183309D+02
        xs( 21) = 0.1920056969103724D+02
        xs( 22) = 0.2008129410619285D+02
        xs( 23) = 0.2095683642593591D+02
        xs( 24) = 0.2182716633668192D+02
        xs( 25) = 0.2269227308714229D+02
        xs( 26) = 0.2355216747309836D+02
        xs( 27) = 0.2440689887628105D+02
        xs( 28) = 0.2525653021497258D+02
        xs( 29) = 0.2610117038357926D+02
        xs( 30) = 0.2694095606154735D+02
        xs( 31) = 0.2777608144213517D+02
        xs( 32) = 0.2860676089942328D+02
        xs( 33) = 0.2943332339392081D+02
        xs( 34) = 0.3025610078164440D+02
        xs( 35) = 0.3107553520292685D+02
        xs( 36) = 0.3189219787256059D+02
        xs( 37) = 0.3270677739660043D+02
        xs( 38) = 0.3351994754262420D+02
        xs( 39) = 0.3433267480264161D+02
        xs( 40) = 0.3514597780714241D+02
        xs( 41) = 0.3596183627900355D+02
        xs( 42) = 0.3677979077678774D+02
        xs( 43) = 0.3760213313695401D+02
        xs( 44) = 0.3843604080448908D+02
        xs( 45) = 0.3926639717062423D+02
        xs( 46) = 0.4013053691025673D+02
        xs( 47) = 0.4103863129775391D+02
        xs( 48) = 0.4206349973330173D+02
        ws(  1) = 0.9324266289996911D+00
        ws(  2) = 0.9451110145299119D+00
        ws(  3) = 0.9463616706064570D+00
        ws(  4) = 0.9458033343071784D+00
        ws(  5) = 0.9444774283501977D+00
        ws(  6) = 0.9426574182223421D+00
        ws(  7) = 0.9404309849267375D+00
        ws(  8) = 0.9378565310758858D+00
        ws(  9) = 0.9349629483912764D+00
        ws( 10) = 0.9317804917107351D+00
        ws( 11) = 0.9283303773443762D+00
        ws( 12) = 0.9246327609808017D+00
        ws( 13) = 0.9207099381677215D+00
        ws( 14) = 0.9165788341043301D+00
        ws( 15) = 0.9122560477649247D+00
        ws( 16) = 0.9077588829102514D+00
        ws( 17) = 0.9031073052251967D+00
        ws( 18) = 0.8983168848475112D+00
        ws( 19) = 0.8934065751846051D+00
        ws( 20) = 0.8883961252758082D+00
        ws( 21) = 0.8833005288245255D+00
        ws( 22) = 0.8781396852240670D+00
        ws( 23) = 0.8729396606823637D+00
        ws( 24) = 0.8677181314922044D+00
        ws( 25) = 0.8624955921683485D+00
        ws( 26) = 0.8573005512379713D+00
        ws( 27) = 0.8521647543518035D+00
        ws( 28) = 0.8471237840550355D+00
        ws( 29) = 0.8421766002458979D+00
        ws( 30) = 0.8374174987658694D+00
        ws( 31) = 0.8328692407565219D+00
        ws( 32) = 0.8285439835181890D+00
        ws( 33) = 0.8246084589857529D+00
        ws( 34) = 0.8210357355823446D+00
        ws( 35) = 0.8179699176368432D+00
        ws( 36) = 0.8154242780141784D+00
        ws( 37) = 0.8137763040348370D+00
        ws( 38) = 0.8128950250114224D+00
        ws( 39) = 0.8128753677050475D+00
        ws( 40) = 0.8140507189786607D+00
        ws( 41) = 0.8170534846932104D+00
        ws( 42) = 0.8198063269832855D+00
        ws( 43) = 0.8278747900580465D+00
        ws( 44) = 0.8348241562784812D+00
        ws( 45) = 0.8242836672611716D+00
        ws( 46) = 0.8748403374143853D+00
        ws( 47) = 0.9014663808674499D+00
        ws( 48) = 0.1169107160705963D+01
        endif
        if( idomain .eq.  251 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.9424777960769379D+01
        rk1r = 0.4398229715025710D+02
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  51
        err = 0.7720689833784978D-10
        xs(  1) = 0.7297401905713448D+00
        xs(  2) = 0.1674810497007665D+01
        xs(  3) = 0.2624817521611151D+01
        xs(  4) = 0.3575092950742004D+01
        xs(  5) = 0.4524507143148323D+01
        xs(  6) = 0.5472479613984271D+01
        xs(  7) = 0.6418592925797915D+01
        xs(  8) = 0.7362494750863174D+01
        xs(  9) = 0.8303872370617588D+01
        xs( 10) = 0.9242439197955923D+01
        xs( 11) = 0.1017793385400839D+02
        xs( 12) = 0.1111010985367790D+02
        xs( 13) = 0.1203874103977145D+02
        xs( 14) = 0.1296361371902657D+02
        xs( 15) = 0.1388453229343556D+02
        xs( 16) = 0.1480131197816904D+02
        xs( 17) = 0.1571378621680530D+02
        xs( 18) = 0.1662179785755055D+02
        xs( 19) = 0.1752520531357302D+02
        xs( 20) = 0.1842388261098067D+02
        xs( 21) = 0.1931771298257849D+02
        xs( 22) = 0.2020660273731591D+02
        xs( 23) = 0.2109046455287698D+02
        xs( 24) = 0.2196923342108308D+02
        xs( 25) = 0.2284285856740514D+02
        xs( 26) = 0.2371130889192193D+02
        xs( 27) = 0.2457456676129160D+02
        xs( 28) = 0.2543264079442512D+02
        xs( 29) = 0.2628556081699151D+02
        xs( 30) = 0.2713336736275232D+02
        xs( 31) = 0.2797614337588594D+02
        xs( 32) = 0.2881398238737074D+02
        xs( 33) = 0.2964702273393585D+02
        xs( 34) = 0.3047541527665950D+02
        xs( 35) = 0.3129939530041092D+02
        xs( 36) = 0.3211919636730883D+02
        xs( 37) = 0.3293513748491691D+02
        xs( 38) = 0.3374760225722600D+02
        xs( 39) = 0.3455711942350149D+02
        xs( 40) = 0.3536414585114255D+02
        xs( 41) = 0.3616951180788602D+02
        xs( 42) = 0.3697396771309589D+02
        xs( 43) = 0.3777816721347397D+02
        xs( 44) = 0.3858444527623351D+02
        xs( 45) = 0.3939275824011847D+02
        xs( 46) = 0.4020460424781202D+02
        xs( 47) = 0.4102265189529419D+02
        xs( 48) = 0.4184897888353047D+02
        xs( 49) = 0.4268635471151562D+02
        xs( 50) = 0.4354440768816139D+02
        xs( 51) = 0.4453735346455148D+02
        ws(  1) = 0.9363101165341754D+00
        ws(  2) = 0.9490862198112500D+00
        ws(  3) = 0.9504173778168820D+00
        ws(  4) = 0.9499658844605942D+00
        ws(  5) = 0.9487700855923263D+00
        ws(  6) = 0.9471074103661752D+00
        ws(  7) = 0.9450607396118543D+00
        ws(  8) = 0.9426894120458902D+00
        ws(  9) = 0.9400184219474638D+00
        ws( 10) = 0.9370733542902095D+00
        ws( 11) = 0.9338740573918562D+00
        ws( 12) = 0.9304408331585832D+00
        ws( 13) = 0.9267854016991300D+00
        ws( 14) = 0.9229272669408500D+00
        ws( 15) = 0.9188792076167445D+00
        ws( 16) = 0.9146538896446738D+00
        ws( 17) = 0.9102664981892774D+00
        ws( 18) = 0.9057327919108566D+00
        ws( 19) = 0.9010611266764181D+00
        ws( 20) = 0.8962726072039600D+00
        ws( 21) = 0.8913768777125242D+00
        ws( 22) = 0.8863890003759981D+00
        ws( 23) = 0.8813213818065445D+00
        ws( 24) = 0.8762047380502735D+00
        ws( 25) = 0.8710420358575275D+00
        ws( 26) = 0.8658555394803731D+00
        ws( 27) = 0.8606649579885255D+00
        ws( 28) = 0.8554901924722557D+00
        ws( 29) = 0.8503542505943004D+00
        ws( 30) = 0.8452750807663917D+00
        ws( 31) = 0.8402877418511774D+00
        ws( 32) = 0.8354231848177929D+00
        ws( 33) = 0.8306841060804331D+00
        ws( 34) = 0.8261505611815103D+00
        ws( 35) = 0.8218433546053069D+00
        ws( 36) = 0.8178074343650121D+00
        ws( 37) = 0.8141945513947677D+00
        ws( 38) = 0.8108660408612550D+00
        ws( 39) = 0.8082366018910238D+00
        ws( 40) = 0.8061945278899287D+00
        ws( 41) = 0.8046411170096327D+00
        ws( 42) = 0.8048712420456521D+00
        ws( 43) = 0.8050361019154303D+00
        ws( 44) = 0.8061008336712503D+00
        ws( 45) = 0.8138346187979033D+00
        ws( 46) = 0.8085927679511934D+00
        ws( 47) = 0.8224695543868424D+00
        ws( 48) = 0.8404828561718252D+00
        ws( 49) = 0.7970464681527890D+00
        ws( 50) = 0.7677212174799006D+00
        ws( 51) = 0.1354312375991676D+01
        endif
        if( idomain .eq.  252 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.9424777960769379D+01
        rk1r = 0.4712388980384689D+02
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  55
        err = 0.3573772190045200D-10
        xs(  1) = 0.7319967151306180D+00
        xs(  2) = 0.1679995956043283D+01
        xs(  3) = 0.2633040372008816D+01
        xs(  4) = 0.3586478143907661D+01
        xs(  5) = 0.4539220797500211D+01
        xs(  6) = 0.5490723379072898D+01
        xs(  7) = 0.6440598667144224D+01
        xs(  8) = 0.7388524688409547D+01
        xs(  9) = 0.8334210995943486D+01
        xs( 10) = 0.9277393469764252D+01
        xs( 11) = 0.1021782335418718D+02
        xs( 12) = 0.1115526806769473D+02
        xs( 13) = 0.1208950754735750D+02
        xs( 14) = 0.1302033265500727D+02
        xs( 15) = 0.1394754510161988D+02
        xs( 16) = 0.1487095621133775D+02
        xs( 17) = 0.1579038661633776D+02
        xs( 18) = 0.1670566529722308D+02
        xs( 19) = 0.1761662916358421D+02
        xs( 20) = 0.1852312455970932D+02
        xs( 21) = 0.1942500548013103D+02
        xs( 22) = 0.2032213533002334D+02
        xs( 23) = 0.2121438662901445D+02
        xs( 24) = 0.2210164221508023D+02
        xs( 25) = 0.2298379510819423D+02
        xs( 26) = 0.2386075382757625D+02
        xs( 27) = 0.2473243679008377D+02
        xs( 28) = 0.2559877991247434D+02
        xs( 29) = 0.2645973769537944D+02
        xs( 30) = 0.2731527985762663D+02
        xs( 31) = 0.2816540236182534D+02
        xs( 32) = 0.2901012082665911D+02
        xs( 33) = 0.2984947918352050D+02
        xs( 34) = 0.3068354969215622D+02
        xs( 35) = 0.3151243942757469D+02
        xs( 36) = 0.3233628212605871D+02
        xs( 37) = 0.3315524744896632D+02
        xs( 38) = 0.3396958190707404D+02
        xs( 39) = 0.3477952768883372D+02
        xs( 40) = 0.3558541290726997D+02
        xs( 41) = 0.3638763304126559D+02
        xs( 42) = 0.3718662226918732D+02
        xs( 43) = 0.3798296541873124D+02
        xs( 44) = 0.3877727229895891D+02
        xs( 45) = 0.3957027474039091D+02
        xs( 46) = 0.4036288078399565D+02
        xs( 47) = 0.4115607290154120D+02
        xs( 48) = 0.4195183684902934D+02
        xs( 49) = 0.4274826893995722D+02
        xs( 50) = 0.4355507384996418D+02
        xs( 51) = 0.4436250873059039D+02
        xs( 52) = 0.4517110465896624D+02
        xs( 53) = 0.4602032134551144D+02
        xs( 54) = 0.4690541257798614D+02
        xs( 55) = 0.4791116762712208D+02
        ws(  1) = 0.9392039236263982D+00
        ws(  2) = 0.9520566290621273D+00
        ws(  3) = 0.9535166156610284D+00
        ws(  4) = 0.9532026436307436D+00
        ws(  5) = 0.9521949532290173D+00
        ws(  6) = 0.9507477000225554D+00
        ws(  7) = 0.9489508078591135D+00
        ws(  8) = 0.9468520464105542D+00
        ws(  9) = 0.9444768298860091D+00
        ws( 10) = 0.9418459112126480D+00
        ws( 11) = 0.9389750604551149D+00
        ws( 12) = 0.9358781588848417D+00
        ws( 13) = 0.9325661551445990D+00
        ws( 14) = 0.9290507573161602D+00
        ws( 15) = 0.9253430742876926D+00
        ws( 16) = 0.9214494610572072D+00
        ws( 17) = 0.9173823592298905D+00
        ws( 18) = 0.9131476846489728D+00
        ws( 19) = 0.9087548511298925D+00
        ws( 20) = 0.9042116237653849D+00
        ws( 21) = 0.8995272999455163D+00
        ws( 22) = 0.8947110043820580D+00
        ws( 23) = 0.8897718538432756D+00
        ws( 24) = 0.8847209303546764D+00
        ws( 25) = 0.8795711869785526D+00
        ws( 26) = 0.8743327678287250D+00
        ws( 27) = 0.8690223264465275D+00
        ws( 28) = 0.8636559725710675D+00
        ws( 29) = 0.8582528006502114D+00
        ws( 30) = 0.8528317716033909D+00
        ws( 31) = 0.8474179236666317D+00
        ws( 32) = 0.8420275490391307D+00
        ws( 33) = 0.8367020243043541D+00
        ws( 34) = 0.8314598866693577D+00
        ws( 35) = 0.8263376682622035D+00
        ws( 36) = 0.8213806500322198D+00
        ws( 37) = 0.8166091060793730D+00
        ws( 38) = 0.8120919547944117D+00
        ws( 39) = 0.8078619651937774D+00
        ws( 40) = 0.8039858695591452D+00
        ws( 41) = 0.8005129456834591D+00
        ws( 42) = 0.7975341995254136D+00
        ws( 43) = 0.7952114769618905D+00
        ws( 44) = 0.7935309787088392D+00
        ws( 45) = 0.7922882914661770D+00
        ws( 46) = 0.7930252049366288D+00
        ws( 47) = 0.7933884446834795D+00
        ws( 48) = 0.7965436397414536D+00
        ws( 49) = 0.8015286571587223D+00
        ws( 50) = 0.8014574489539722D+00
        ws( 51) = 0.8198988384588523D+00
        ws( 52) = 0.8072586996802931D+00
        ws( 53) = 0.8479803961203193D+00
        ws( 54) = 0.8621219975518108D+00
        ws( 55) = 0.1150523462712286D+01
        endif
        if( idomain .eq.  253 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.9424777960769379D+01
        rk1r = 0.5026548245743669D+02
        rk1i = 0.1256637061435917D+02
        iquadtype =  1
        n =  57
        err = 0.7954805847770227D-10
        xs(  1) = 0.7372290229625753D+00
        xs(  2) = 0.1691999977633140D+01
        xs(  3) = 0.2651877309246832D+01
        xs(  4) = 0.3612199617739491D+01
        xs(  5) = 0.4571877034194633D+01
        xs(  6) = 0.5530378435264477D+01
        xs(  7) = 0.6487338109378271D+01
        xs(  8) = 0.7442441041775084D+01
        xs(  9) = 0.8395422087379163D+01
        xs( 10) = 0.9346031051487728D+01
        xs( 11) = 0.1029404271004163D+02
        xs( 12) = 0.1123924358155823D+02
        xs( 13) = 0.1218143851672246D+02
        xs( 14) = 0.1312044222511315D+02
        xs( 15) = 0.1405608148491803D+02
        xs( 16) = 0.1498819485911688D+02
        xs( 17) = 0.1591663316565539D+02
        xs( 18) = 0.1684125265598674D+02
        xs( 19) = 0.1776192074433945D+02
        xs( 20) = 0.1867851431846812D+02
        xs( 21) = 0.1959091667409286D+02
        xs( 22) = 0.2049901870605586D+02
        xs( 23) = 0.2140272113105016D+02
        xs( 24) = 0.2230192987286580D+02
        xs( 25) = 0.2319655538643952D+02
        xs( 26) = 0.2408652196354643D+02
        xs( 27) = 0.2497175835356220D+02
        xs( 28) = 0.2585219680754631D+02
        xs( 29) = 0.2672778722371118D+02
        xs( 30) = 0.2759847835107786D+02
        xs( 31) = 0.2846423850738987D+02
        xs( 32) = 0.2932504285055904D+02
        xs( 33) = 0.3018088565583451D+02
        xs( 34) = 0.3103177352818300D+02
        xs( 35) = 0.3187772490386018D+02
        xs( 36) = 0.3271879621699159D+02
        xs( 37) = 0.3355505059569818D+02
        xs( 38) = 0.3438658434343740D+02
        xs( 39) = 0.3521353071295780D+02
        xs( 40) = 0.3603605954519256D+02
        xs( 41) = 0.3685435901760509D+02
        xs( 42) = 0.3766868474399298D+02
        xs( 43) = 0.3847934698351948D+02
        xs( 44) = 0.3928666448745227D+02
        xs( 45) = 0.4009127507733513D+02
        xs( 46) = 0.4089345228690780D+02
        xs( 47) = 0.4169389049506550D+02
        xs( 48) = 0.4249332263809234D+02
        xs( 49) = 0.4329320431295757D+02
        xs( 50) = 0.4409329168484125D+02
        xs( 51) = 0.4489690530121107D+02
        xs( 52) = 0.4570437232205951D+02
        xs( 53) = 0.4651030654061391D+02
        xs( 54) = 0.4732287054260644D+02
        xs( 55) = 0.4815837092475523D+02
        xs( 56) = 0.4906085645379489D+02
        xs( 57) = 0.4991798103693825D+02
        ws(  1) = 0.9459185974967793D+00
        ws(  2) = 0.9588647354911385D+00
        ws(  3) = 0.9603751829662119D+00
        ws(  4) = 0.9601100094995232D+00
        ws(  5) = 0.9591583758493025D+00
        ws(  6) = 0.9577868105746046D+00
        ws(  7) = 0.9560771780539301D+00
        ws(  8) = 0.9540849591982359D+00
        ws(  9) = 0.9518368017682286D+00
        ws( 10) = 0.9493454168711756D+00
        ws( 11) = 0.9466417650223521D+00
        ws( 12) = 0.9437288209560605D+00
        ws( 13) = 0.9406276942034117D+00
        ws( 14) = 0.9373495562193471D+00
        ws( 15) = 0.9339040723843824D+00
        ws( 16) = 0.9302988807275819D+00
        ws( 17) = 0.9265518604086748D+00
        ws( 18) = 0.9226657000901886D+00
        ws( 19) = 0.9186521722837127D+00
        ws( 20) = 0.9145162321703938D+00
        ws( 21) = 0.9102673569048474D+00
        ws( 22) = 0.9059202313236447D+00
        ws( 23) = 0.9014685172975307D+00
        ws( 24) = 0.8969342687849404D+00
        ws( 25) = 0.8923101492196363D+00
        ws( 26) = 0.8876136137390079D+00
        ws( 27) = 0.8828470238638783D+00
        ws( 28) = 0.8780203798476838D+00
        ws( 29) = 0.8731476883200355D+00
        ws( 30) = 0.8682359979016656D+00
        ws( 31) = 0.8632896032109320D+00
        ws( 32) = 0.8583276211695366D+00
        ws( 33) = 0.8533589123115874D+00
        ws( 34) = 0.8484212366248998D+00
        ws( 35) = 0.8434993561734426D+00
        ws( 36) = 0.8386579455148994D+00
        ws( 37) = 0.8338920166768317D+00
        ws( 38) = 0.8292187063207666D+00
        ws( 39) = 0.8247045051608821D+00
        ws( 40) = 0.8203788290404586D+00
        ws( 41) = 0.8162516718444175D+00
        ws( 42) = 0.8124854438863064D+00
        ws( 43) = 0.8088646798087354D+00
        ws( 44) = 0.8058025495302285D+00
        ws( 45) = 0.8032973031446555D+00
        ws( 46) = 0.8011378258467722D+00
        ws( 47) = 0.7993987050349438D+00
        ws( 48) = 0.7998020853248208D+00
        ws( 49) = 0.7998797715348203D+00
        ws( 50) = 0.8012498078444166D+00
        ws( 51) = 0.8055783874693656D+00
        ws( 52) = 0.8119237701125352D+00
        ws( 53) = 0.8151846800509616D+00
        ws( 54) = 0.8118550058122860D+00
        ws( 55) = 0.8866005407158319D+00
        ws( 56) = 0.7582109016125569D+00
        ws( 57) = 0.1256550050680338D+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 =  20
        err = 0.5995886737064124D-10
        xs(  1) = 0.6665438460641310D+00
        xs(  2) = 0.1533553220113399D+01
        xs(  3) = 0.2413187194089275D+01
        xs(  4) = 0.3303742624023008D+01
        xs(  5) = 0.4205372911283757D+01
        xs(  6) = 0.5117960463446941D+01
        xs(  7) = 0.6041250159206972D+01
        xs(  8) = 0.6975021731348918D+01
        xs(  9) = 0.7919156785084103D+01
        xs( 10) = 0.8873646098244860D+01
        xs( 11) = 0.9838571169813699D+01
        xs( 12) = 0.1081409097642962D+02
        xs( 13) = 0.1180043074661106D+02
        xs( 14) = 0.1279796008675865D+02
        xs( 15) = 0.1380614200028052D+02
        xs( 16) = 0.1483114872163522D+02
        xs( 17) = 0.1584386947555847D+02
        xs( 18) = 0.1695641532362256D+02
        xs( 19) = 0.1790776951404621D+02
        xs( 20) = 0.2029585649799952D+02
        ws(  1) = 0.8562525922594868D+00
        ws(  2) = 0.8741577946332050D+00
        ws(  3) = 0.8850577607235289D+00
        ws(  4) = 0.8960888796428570D+00
        ws(  5) = 0.9071475523794145D+00
        ws(  6) = 0.9179821756533519D+00
        ws(  7) = 0.9285593097815705D+00
        ws(  8) = 0.9389638200648618D+00
        ws(  9) = 0.9493053877353299D+00
        ws( 10) = 0.9596856150294851D+00
        ws( 11) = 0.9701917405550357D+00
        ws( 12) = 0.9808912286710058D+00
        ws( 13) = 0.9917757815635568D+00
        ws( 14) = 0.1003617957327493D+01
        ws( 15) = 0.1012084433071443D+01
        ws( 16) = 0.1036174394362725D+01
        ws( 17) = 0.1017941109725532D+01
        ws( 18) = 0.1047454267475082D+01
        ws( 19) = 0.1340921346942909D+01
        ws( 20) = 0.3601624406949442D+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 =  20
        err = 0.6033049336274227D-10
        xs(  1) = 0.6664359864628639D+00
        xs(  2) = 0.1533326097708469D+01
        xs(  3) = 0.2412877764986026D+01
        xs(  4) = 0.3303389075717231D+01
        xs(  5) = 0.4205004573554068D+01
        xs(  6) = 0.5117596060064019D+01
        xs(  7) = 0.6040900000307109D+01
        xs(  8) = 0.6974690579348893D+01
        xs(  9) = 0.7918846119786783D+01
        xs( 10) = 0.8873355613467584D+01
        xs( 11) = 0.9838299695107095D+01
        xs( 12) = 0.1081383700714222D+02
        xs( 13) = 0.1180019272638117D+02
        xs( 14) = 0.1279773677776746D+02
        xs( 15) = 0.1380593190768781D+02
        xs( 16) = 0.1483095192689066D+02
        xs( 17) = 0.1584368838726384D+02
        xs( 18) = 0.1695623967353687D+02
        xs( 19) = 0.1790763656807904D+02
        xs( 20) = 0.2029572820653789D+02
        ws(  1) = 0.8561200019887550D+00
        ws(  2) = 0.8740554400539786D+00
        ws(  3) = 0.8849955246409897D+00
        ws(  4) = 0.8960612550152371D+00
        ws(  5) = 0.9071437704482485D+00
        ws(  6) = 0.9179924181482917D+00
        ws(  7) = 0.9285766457979802D+00
        ws(  8) = 0.9389839653130632D+00
        ws(  9) = 0.9493259287010570D+00
        ws( 10) = 0.9597053034073789D+00
        ws( 11) = 0.9702100183182704D+00
        ws( 12) = 0.9809079727873063D+00
        ws( 13) = 0.9917910391767051D+00
        ws( 14) = 0.1003631719272581D+01
        ws( 15) = 0.1012099925321553D+01
        ws( 16) = 0.1036174899181095D+01
        ws( 17) = 0.1018002615344387D+01
        ws( 18) = 0.1047340867087533D+01
        ws( 19) = 0.1341134504187143D+01
        ws( 20) = 0.3601200031164837D+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 =  20
        err = 0.6240432260109464D-10
        xs(  1) = 0.6659745776676459D+00
        xs(  2) = 0.1532355574872101D+01
        xs(  3) = 0.2411557575682653D+01
        xs(  4) = 0.3301882791474782D+01
        xs(  5) = 0.4203436493745850D+01
        xs(  6) = 0.5116044232039408D+01
        xs(  7) = 0.6039406133783810D+01
        xs(  8) = 0.6973272652723125D+01
        xs(  9) = 0.7917508259884490D+01
        xs( 10) = 0.8872094592183618D+01
        xs( 11) = 0.9837108972352304D+01
        xs( 12) = 0.1081270905119985D+02
        xs( 13) = 0.1179912023642086D+02
        xs( 14) = 0.1279671463162395D+02
        xs( 15) = 0.1380495377339316D+02
        xs( 16) = 0.1483002093547407D+02
        xs( 17) = 0.1584281644353017D+02
        xs( 18) = 0.1695538511566902D+02
        xs( 19) = 0.1790697882689767D+02
        xs( 20) = 0.2029509795682649D+02
        ws(  1) = 0.8555531305710508D+00
        ws(  2) = 0.8736194433261143D+00
        ws(  3) = 0.8847320703334666D+00
        ws(  4) = 0.8959453361913901D+00
        ws(  5) = 0.9071281352955765D+00
        ws(  6) = 0.9180344780556714D+00
        ws(  7) = 0.9286466189161703D+00
        ws(  8) = 0.9390636291838864D+00
        ws(  9) = 0.9494052130274711D+00
        ws( 10) = 0.9597792092802629D+00
        ws( 11) = 0.9702765335937326D+00
        ws( 12) = 0.9809671391024676D+00
        ws( 13) = 0.9918433958034824D+00
        ws( 14) = 0.1003678090196578D+01
        ws( 15) = 0.1012155600267282D+01
        ws( 16) = 0.1036161457305583D+01
        ws( 17) = 0.1018285141337118D+01
        ws( 18) = 0.1046782315120059D+01
        ws( 19) = 0.1342165174811089D+01
        ws( 20) = 0.3599179742798764D+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 =  20
        err = 0.7118617779991234D-10
        xs(  1) = 0.6637453750356040D+00
        xs(  2) = 0.1527690689472781D+01
        xs(  3) = 0.2405259864213199D+01
        xs(  4) = 0.3294757248794902D+01
        xs(  5) = 0.4196078891988087D+01
        xs(  6) = 0.5108818198888609D+01
        xs(  7) = 0.6032499964112222D+01
        xs(  8) = 0.6966763828587807D+01
        xs(  9) = 0.7911411442208383D+01
        xs( 10) = 0.8866392030910047D+01
        xs( 11) = 0.9831768702879122D+01
        xs( 12) = 0.1080769507724675D+02
        xs( 13) = 0.1179439776469653D+02
        xs( 14) = 0.1279225760523422D+02
        xs( 15) = 0.1380073231010058D+02
        xs( 16) = 0.1482604008754581D+02
        xs( 17) = 0.1583913055778233D+02
        xs( 18) = 0.1695178630330151D+02
        xs( 19) = 0.1790425506621575D+02
        xs( 20) = 0.2029246035135543D+02
        ws(  1) = 0.8528218408198838D+00
        ws(  2) = 0.8715548237463758D+00
        ws(  3) = 0.8835269913740263D+00
        ws(  4) = 0.8954566056727324D+00
        ws(  5) = 0.9071128871625856D+00
        ws(  6) = 0.9182836356818966D+00
        ws(  7) = 0.9290190799365053D+00
        ws(  8) = 0.9394757180502855D+00
        ws(  9) = 0.9498119478250722D+00
        ws( 10) = 0.9601588823716960D+00
        ws( 11) = 0.9706207822683923D+00
        ws( 12) = 0.9812760961446790D+00
        ws( 13) = 0.9921199227216175D+00
        ws( 14) = 0.1003924451589803D+01
        ws( 15) = 0.1012438308627298D+01
        ws( 16) = 0.1036144527553172D+01
        ws( 17) = 0.1019515066364664D+01
        ws( 18) = 0.1044454081401830D+01
        ws( 19) = 0.1346523304481433D+01
        ws( 20) = 0.3590526908125574D+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 =  21
        err = 0.4970765399043771D-10
        xs(  1) = 0.6948538640179613D+00
        xs(  2) = 0.1595752682900743D+01
        xs(  3) = 0.2503796557745444D+01
        xs(  4) = 0.3415871357505296D+01
        xs(  5) = 0.4332174576670873D+01
        xs(  6) = 0.5253341973566234D+01
        xs(  7) = 0.6180065080707674D+01
        xs(  8) = 0.7112997835523802D+01
        xs(  9) = 0.8052726695276023D+01
        xs( 10) = 0.8999762274642233D+01
        xs( 11) = 0.9954538178671614D+01
        xs( 12) = 0.1091741137586345D+02
        xs( 13) = 0.1188866784946048D+02
        xs( 14) = 0.1286856418854727D+02
        xs( 15) = 0.1385657412668364D+02
        xs( 16) = 0.1485689080518320D+02
        xs( 17) = 0.1584832441891002D+02
        xs( 18) = 0.1690831275256914D+02
        xs( 19) = 0.1785887143613028D+02
        xs( 20) = 0.2001252319248411D+02
        xs( 21) = 0.2072783082145069D+02
        ws(  1) = 0.8918134107275154D+00
        ws(  2) = 0.9057091493871010D+00
        ws(  3) = 0.9101083732620577D+00
        ws(  4) = 0.9140973085906696D+00
        ws(  5) = 0.9186198557448318D+00
        ws(  6) = 0.9238319099473261D+00
        ws(  7) = 0.9297243835207003D+00
        ws(  8) = 0.9362397867192698D+00
        ws(  9) = 0.9433045821256110D+00
        ws( 10) = 0.9508406635058491D+00
        ws( 11) = 0.9587743562207806D+00
        ws( 12) = 0.9670319120757639D+00
        ws( 13) = 0.9754863592406037D+00
        ws( 14) = 0.9845285533167002D+00
        ws( 15) = 0.9913302328795975D+00
        ws( 16) = 0.1005566162506805D+01
        ws( 17) = 0.1011338126568839D+01
        ws( 18) = 0.9412288663067616D+00
        ws( 19) = 0.1413234597769206D+01
        ws( 20) = 0.2325829502558287D+01
        ws( 21) = 0.1000288364907463D+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 =  20
        err = 0.3292667524840851D-10
        xs(  1) = 0.6970166045218790D+00
        xs(  2) = 0.1600773632538189D+01
        xs(  3) = 0.2511826120870314D+01
        xs(  4) = 0.3427126734883947D+01
        xs(  5) = 0.4346953087506230D+01
        xs(  6) = 0.5272025247034802D+01
        xs(  7) = 0.6203120647807282D+01
        xs(  8) = 0.7140979780441181D+01
        xs(  9) = 0.8086274513716432D+01
        xs( 10) = 0.9039599733647565D+01
        xs( 11) = 0.1000147283398669D+02
        xs( 12) = 0.1097233569509367D+02
        xs( 13) = 0.1195256671491269D+02
        xs( 14) = 0.1294241620357525D+02
        xs( 15) = 0.1394245639705634D+02
        xs( 16) = 0.1495000296055621D+02
        xs( 17) = 0.1597920114720024D+02
        xs( 18) = 0.1696685741286600D+02
        xs( 19) = 0.1814451137766628D+02
        xs( 20) = 0.1902516441155111D+02
        ws(  1) = 0.8946064951466286D+00
        ws(  2) = 0.9086351613223476D+00
        ws(  3) = 0.9132137775740862D+00
        ws(  4) = 0.9174592551849449D+00
        ws(  5) = 0.9223209153418493D+00
        ws(  6) = 0.9279577939967995D+00
        ws(  7) = 0.9343620023275057D+00
        ws(  8) = 0.9414759888365704D+00
        ws(  9) = 0.9492257844003001D+00
        ws( 10) = 0.9575323249720415D+00
        ws( 11) = 0.9663250338159562D+00
        ws( 12) = 0.9755287780225541D+00
        ws( 13) = 0.9851157762014885D+00
        ws( 14) = 0.9948053726505754D+00
        ws( 15) = 0.1005899494466651D+01
        ws( 16) = 0.1011707969163175D+01
        ws( 17) = 0.1031273649386839D+01
        ws( 18) = 0.1053630242781092D+01
        ws( 19) = 0.8906072090514543D+00
        ws( 20) = 0.1772767445699882D+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 =  20
        err = 0.3948462647193203D-10
        xs(  1) = 0.6959550743040408D+00
        xs(  2) = 0.1598293628378101D+01
        xs(  3) = 0.2507848372887514D+01
        xs(  4) = 0.3421543071011402D+01
        xs(  5) = 0.4339630502292982D+01
        xs(  6) = 0.5262813630727211D+01
        xs(  7) = 0.6191857815987480D+01
        xs(  8) = 0.7127499409842430D+01
        xs(  9) = 0.8070409080331528D+01
        xs( 10) = 0.9021185792868884D+01
        xs( 11) = 0.9980360571825742D+01
        xs( 12) = 0.1094838519051401D+02
        xs( 13) = 0.1192568432450249D+02
        xs( 14) = 0.1291250061014891D+02
        xs( 15) = 0.1390961330952615D+02
        xs( 16) = 0.1491400923163493D+02
        xs( 17) = 0.1594111816886974D+02
        xs( 18) = 0.1692789682688972D+02
        xs( 19) = 0.1810118625910935D+02
        xs( 20) = 0.1899262061394266D+02
        ws(  1) = 0.8932063690570496D+00
        ws(  2) = 0.9071758854982496D+00
        ws(  3) = 0.9116637586047790D+00
        ws(  4) = 0.9157893984969960D+00
        ws(  5) = 0.9205093806271448D+00
        ws(  6) = 0.9259897191887034D+00
        ws(  7) = 0.9322310654851158D+00
        ws(  8) = 0.9391785743130669D+00
        ws(  9) = 0.9467687032506658D+00
        ws( 10) = 0.9549179479449701D+00
        ws( 11) = 0.9635784532394398D+00
        ws( 12) = 0.9726647521575956D+00
        ws( 13) = 0.9821810938294816D+00
        ws( 14) = 0.9918734429365148D+00
        ws( 15) = 0.1002935306423294D+01
        ws( 16) = 0.1009990807516002D+01
        ws( 17) = 0.1024495036728668D+01
        ws( 18) = 0.1072469094914629D+01
        ws( 19) = 0.8382934704130609D+00
        ws( 20) = 0.1841297481266826D+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 =  19
        err = 0.6004308169555548D-10
        xs(  1) = 0.6913468771535241D+00
        xs(  2) = 0.1587630696071544D+01
        xs(  3) = 0.2490939689235967D+01
        xs(  4) = 0.3398155463374478D+01
        xs(  5) = 0.4309504745325646D+01
        xs(  6) = 0.5225704191325678D+01
        xs(  7) = 0.6147576090709807D+01
        xs(  8) = 0.7075958509022329D+01
        xs(  9) = 0.8011661928496656D+01
        xs( 10) = 0.8955439877959451D+01
        xs( 11) = 0.9907994594873712D+01
        xs( 12) = 0.1086999330223512D+02
        xs( 13) = 0.1184212827664032D+02
        xs( 14) = 0.1282515578177760D+02
        xs( 15) = 0.1381991125749914D+02
        xs( 16) = 0.1482754244659020D+02
        xs( 17) = 0.1584168190697058D+02
        xs( 18) = 0.1687635241619118D+02
        xs( 19) = 0.1786891856952579D+02
        ws(  1) = 0.8872361153321791D+00
        ws(  2) = 0.9010236625056472D+00
        ws(  3) = 0.9053039280272321D+00
        ws(  4) = 0.9091783209358202D+00
        ws(  5) = 0.9136356414404010D+00
        ws(  6) = 0.9188907503466770D+00
        ws(  7) = 0.9249907778835741D+00
        ws(  8) = 0.9319108984703749D+00
        ws(  9) = 0.9396088207005495D+00
        ws( 10) = 0.9480529618562928D+00
        ws( 11) = 0.9572148680056654D+00
        ws( 12) = 0.9670081129683242D+00
        ws( 13) = 0.9773432259830099D+00
        ws( 14) = 0.9883986762576973D+00
        ws( 15) = 0.1001045361465169D+01
        ws( 16) = 0.1021728330906610D+01
        ws( 17) = 0.1055001985275340D+01
        ws( 18) = 0.1078784887228663D+01
        ws( 19) = 0.1411824965515408D+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 =  22
        err = 0.7751816411690648D-10
        xs(  1) = 0.6824264199634411D+00
        xs(  2) = 0.1566779539598699D+01
        xs(  3) = 0.2457022870702128D+01
        xs(  4) = 0.3349595705096829D+01
        xs(  5) = 0.4244301981506386D+01
        xs(  6) = 0.5141486141098392D+01
        xs(  7) = 0.6041694598915129D+01
        xs(  8) = 0.6945528639175950D+01
        xs(  9) = 0.7853586422037687D+01
        xs( 10) = 0.8766396980311404D+01
        xs( 11) = 0.9684387912769084D+01
        xs( 12) = 0.1060772480863822D+02
        xs( 13) = 0.1153616854310128D+02
        xs( 14) = 0.1246921504219943D+02
        xs( 15) = 0.1340460458469244D+02
        xs( 16) = 0.1434138833072892D+02
        xs( 17) = 0.1526632323701932D+02
        xs( 18) = 0.1620610619685447D+02
        xs( 19) = 0.1706018922485559D+02
        xs( 20) = 0.1809291695593515D+02
        xs( 21) = 0.1891083028166071D+02
        xs( 22) = 0.2101324110300551D+02
        ws(  1) = 0.8757733926079931D+00
        ws(  2) = 0.8885948749638364D+00
        ws(  3) = 0.8915489593287614D+00
        ws(  4) = 0.8935915929228132D+00
        ws(  5) = 0.8958734484038740D+00
        ws(  6) = 0.8986073322029666D+00
        ws(  7) = 0.9018935510250331D+00
        ws(  8) = 0.9058834467099737D+00
        ws(  9) = 0.9103302553796238D+00
        ws( 10) = 0.9152979272027929D+00
        ws( 11) = 0.9208369829175709D+00
        ws( 12) = 0.9255614287911871D+00
        ws( 13) = 0.9315392898166227D+00
        ws( 14) = 0.9340156737864330D+00
        ws( 15) = 0.9359219832509142D+00
        ws( 16) = 0.9389633956762077D+00
        ws( 17) = 0.9088970744537100D+00
        ws( 18) = 0.9440054751791108D+00
        ws( 19) = 0.9043251700520621D+00
        ws( 20) = 0.7794707434706623D+00
        ws( 21) = 0.1433660097712565D+01
        ws( 22) = 0.2796907310195612D+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 =  22
        err = 0.7616813356540998D-10
        xs(  1) = 0.6872090206298072D+00
        xs(  2) = 0.1577389610700445D+01
        xs(  3) = 0.2472846078486720D+01
        xs(  4) = 0.3369645307755866D+01
        xs(  5) = 0.4267336984068091D+01
        xs(  6) = 0.5166116044547688D+01
        xs(  7) = 0.6066433087125594D+01
        xs(  8) = 0.6968917036020531D+01
        xs(  9) = 0.7874339333662978D+01
        xs( 10) = 0.8783567958506625D+01
        xs( 11) = 0.9697588498800677D+01
        xs( 12) = 0.1061745440735000D+02
        xs( 13) = 0.1154424951770939D+02
        xs( 14) = 0.1247910056682836D+02
        xs( 15) = 0.1342282964917008D+02
        xs( 16) = 0.1437719238537892D+02
        xs( 17) = 0.1534001489180470D+02
        xs( 18) = 0.1632172820383411D+02
        xs( 19) = 0.1730559325949107D+02
        xs( 20) = 0.1833868826471580D+02
        xs( 21) = 0.1926069944409955D+02
        xs( 22) = 0.2036602992833669D+02
        ws(  1) = 0.8817402117698105D+00
        ws(  2) = 0.8941954659880763D+00
        ws(  3) = 0.8962985530567560D+00
        ws(  4) = 0.8972511295826467D+00
        ws(  5) = 0.8981827834580650D+00
        ws(  6) = 0.8994614559534032D+00
        ws(  7) = 0.9012857905805953D+00
        ws(  8) = 0.9038029165416011D+00
        ws(  9) = 0.9071563589939396D+00
        ws( 10) = 0.9114202024689010D+00
        ws( 11) = 0.9167089456137091D+00
        ws( 12) = 0.9231184687661171D+00
        ws( 13) = 0.9305356302081266D+00
        ws( 14) = 0.9392149455410226D+00
        ws( 15) = 0.9481444328778657D+00
        ws( 16) = 0.9600617011000122D+00
        ws( 17) = 0.9706298452670139D+00
        ws( 18) = 0.9771518578112722D+00
        ws( 19) = 0.9956521820916243D+00
        ws( 20) = 0.1058901608598120D+01
        ws( 21) = 0.1048487723453013D+01
        ws( 22) = 0.1228579088057935D+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 =  25
        err = 0.5583419779602491D-10
        xs(  1) = 0.6878408551119926D+00
        xs(  2) = 0.1578680008986159D+01
        xs(  3) = 0.2474351170308006D+01
        xs(  4) = 0.3370609030788973D+01
        xs(  5) = 0.4266637244131183D+01
        xs(  6) = 0.5162238926203343D+01
        xs(  7) = 0.6057477458527874D+01
        xs(  8) = 0.6952604943857022D+01
        xs(  9) = 0.7848033856852429D+01
        xs( 10) = 0.8744316097192279D+01
        xs( 11) = 0.9642163305082541D+01
        xs( 12) = 0.1054240584797312D+02
        xs( 13) = 0.1144597993075312D+02
        xs( 14) = 0.1235398705824715D+02
        xs( 15) = 0.1326750495012840D+02
        xs( 16) = 0.1418751827718902D+02
        xs( 17) = 0.1511593369752131D+02
        xs( 18) = 0.1605321329650150D+02
        xs( 19) = 0.1699861716549098D+02
        xs( 20) = 0.1796416018066237D+02
        xs( 21) = 0.1893310718269365D+02
        xs( 22) = 0.1990950457703791D+02
        xs( 23) = 0.2091657138348611D+02
        xs( 24) = 0.2200157344892296D+02
        xs( 25) = 0.2308440937549429D+02
        ws(  1) = 0.8825436381310547D+00
        ws(  2) = 0.8946868017264074D+00
        ws(  3) = 0.8961964683979744D+00
        ws(  4) = 0.8962074548799267D+00
        ws(  5) = 0.8958222237533062D+00
        ws(  6) = 0.8953916803711605D+00
        ws(  7) = 0.8951278984576810D+00
        ws(  8) = 0.8951956511548185D+00
        ws(  9) = 0.8957477285680931D+00
        ws( 10) = 0.8969376093393308D+00
        ws( 11) = 0.8988799433711541D+00
        ws( 12) = 0.9017548561086296D+00
        ws( 13) = 0.9056385536883224D+00
        ws( 14) = 0.9103957420525312D+00
        ws( 15) = 0.9169037021843570D+00
        ws( 16) = 0.9234717150400892D+00
        ws( 17) = 0.9331023418398761D+00
        ws( 18) = 0.9438513531245978D+00
        ws( 19) = 0.9496676595657847D+00
        ws( 20) = 0.9452141013075324D+00
        ws( 21) = 0.1043632983479104D+01
        ws( 22) = 0.9751021480270142D+00
        ws( 23) = 0.8278072415965809D+00
        ws( 24) = 0.1147825672027060D+01
        ws( 25) = 0.2123153319413607D+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 =  26
        err = 0.3306125742172123D-10
        xs(  1) = 0.6959318127133570D+00
        xs(  2) = 0.1597088291987696D+01
        xs(  3) = 0.2502755119057746D+01
        xs(  4) = 0.3408419747758636D+01
        xs(  5) = 0.4313048402909232D+01
        xs(  6) = 0.5216229224088525D+01
        xs(  7) = 0.6117798961143064D+01
        xs(  8) = 0.7017777434249060D+01
        xs(  9) = 0.7916346142423517D+01
        xs( 10) = 0.8813826089561996D+01
        xs( 11) = 0.9710683008744232D+01
        xs( 12) = 0.1060752494654824D+02
        xs( 13) = 0.1150508079540795D+02
        xs( 14) = 0.1240424847395618D+02
        xs( 15) = 0.1330596790113697D+02
        xs( 16) = 0.1421138352672621D+02
        xs( 17) = 0.1512178933313635D+02
        xs( 18) = 0.1603826802629314D+02
        xs( 19) = 0.1696279950178622D+02
        xs( 20) = 0.1789533733190295D+02
        xs( 21) = 0.1883925007681769D+02
        xs( 22) = 0.1979496460642860D+02
        xs( 23) = 0.2075921154153036D+02
        xs( 24) = 0.2174220526428820D+02
        xs( 25) = 0.2274298008342369D+02
        xs( 26) = 0.2374800890929431D+02
        ws(  1) = 0.8928906892403115D+00
        ws(  2) = 0.9048974762567966D+00
        ws(  3) = 0.9059335659451196D+00
        ws(  4) = 0.9052497734179554D+00
        ws(  5) = 0.9039492938916742D+00
        ws(  6) = 0.9023873468391285D+00
        ws(  7) = 0.9007574628493795D+00
        ws(  8) = 0.8992261760686694D+00
        ws(  9) = 0.8979612511327572D+00
        ws( 10) = 0.8970688311078653D+00
        ws( 11) = 0.8967399883493855D+00
        ws( 12) = 0.8970704106747036D+00
        ws( 13) = 0.8981639154748329D+00
        ws( 14) = 0.9002833270642718D+00
        ws( 15) = 0.9035096484907821D+00
        ws( 16) = 0.9078000415380606D+00
        ws( 17) = 0.9127988307750066D+00
        ws( 18) = 0.9200400023573985D+00
        ws( 19) = 0.9274851421841045D+00
        ws( 20) = 0.9400179086118408D+00
        ws( 21) = 0.9410216843015504D+00
        ws( 22) = 0.9656090038731328D+00
        ws( 23) = 0.9746475406198946D+00
        ws( 24) = 0.9320338705759064D+00
        ws( 25) = 0.1175754853615884D+01
        ws( 26) = 0.1218784515393541D+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 =  27
        err = 0.9430562412131463D-10
        xs(  1) = 0.7097765284310644D+00
        xs(  2) = 0.1628831636998649D+01
        xs(  3) = 0.2552342987839285D+01
        xs(  4) = 0.3475629566266717D+01
        xs(  5) = 0.4397544638540332D+01
        xs(  6) = 0.5317569023740736D+01
        xs(  7) = 0.6235419952121218D+01
        xs(  8) = 0.7150932636023585D+01
        xs(  9) = 0.8064092780912516D+01
        xs( 10) = 0.8975046891307773D+01
        xs( 11) = 0.9883993800798141D+01
        xs( 12) = 0.1079127750046643D+02
        xs( 13) = 0.1169747209713564D+02
        xs( 14) = 0.1260301913598514D+02
        xs( 15) = 0.1350879553814141D+02
        xs( 16) = 0.1441571127866059D+02
        xs( 17) = 0.1532452043097557D+02
        xs( 18) = 0.1623677444834453D+02
        xs( 19) = 0.1715367194115717D+02
        xs( 20) = 0.1807698925778002D+02
        xs( 21) = 0.1900879161134415D+02
        xs( 22) = 0.1994916612881433D+02
        xs( 23) = 0.2089942645277191D+02
        xs( 24) = 0.2187489340087514D+02
        xs( 25) = 0.2285975698577601D+02
        xs( 26) = 0.2387645635629224D+02
        xs( 27) = 0.2497911327525641D+02
        ws(  1) = 0.9106621191614286D+00
        ws(  2) = 0.9228076790302296D+00
        ws(  3) = 0.9236944008685534D+00
        ws(  4) = 0.9227137535019343D+00
        ws(  5) = 0.9210327703792142D+00
        ws(  6) = 0.9189741867755377D+00
        ws(  7) = 0.9166951557860522D+00
        ws(  8) = 0.9143273009487543D+00
        ws(  9) = 0.9120272332707109D+00
        ws( 10) = 0.9099041480843106D+00
        ws( 11) = 0.9080547322786849D+00
        ws( 12) = 0.9066625547561763D+00
        ws( 13) = 0.9056691968149831D+00
        ws( 14) = 0.9057574407351872D+00
        ws( 15) = 0.9058711172495731D+00
        ws( 16) = 0.9079337624830994D+00
        ws( 17) = 0.9103821434696451D+00
        ws( 18) = 0.9143325382753371D+00
        ws( 19) = 0.9190246889650654D+00
        ws( 20) = 0.9261160848462539D+00
        ws( 21) = 0.9373869186738905D+00
        ws( 22) = 0.9492753462825695D+00
        ws( 23) = 0.9523417421454838D+00
        ws( 24) = 0.9926352141193518D+00
        ws( 25) = 0.9210964316354933D+00
        ws( 26) = 0.9691243085390359D+00
        ws( 27) = 0.1759095454686086D+01
        endif
        if( idomain .eq.  267 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.1256637061435917D+02
        rk1r = 0.2199114857512855D+02
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  30
        err = 0.1744138762196788D-10
        xs(  1) = 0.7072201771916924D+00
        xs(  2) = 0.1622978380638912D+01
        xs(  3) = 0.2543289322391129D+01
        xs(  4) = 0.3463496078772987D+01
        xs(  5) = 0.4382434517562993D+01
        xs(  6) = 0.5299512785323223D+01
        xs(  7) = 0.6214342272837391D+01
        xs(  8) = 0.7126650063678761D+01
        xs(  9) = 0.8036251056221497D+01
        xs( 10) = 0.8943071196310582D+01
        xs( 11) = 0.9847086751348558D+01
        xs( 12) = 0.1074840173183648D+02
        xs( 13) = 0.1164717622914198D+02
        xs( 14) = 0.1254368955400976D+02
        xs( 15) = 0.1343830906751487D+02
        xs( 16) = 0.1433152542274208D+02
        xs( 17) = 0.1522389586271685D+02
        xs( 18) = 0.1611618202764974D+02
        xs( 19) = 0.1700918688340476D+02
        xs( 20) = 0.1790381645112614D+02
        xs( 21) = 0.1880138582424412D+02
        xs( 22) = 0.1970296288830344D+02
        xs( 23) = 0.2060983521964366D+02
        xs( 24) = 0.2152438770800042D+02
        xs( 25) = 0.2244608698627880D+02
        xs( 26) = 0.2337912703633994D+02
        xs( 27) = 0.2431666067304279D+02
        xs( 28) = 0.2527797721801638D+02
        xs( 29) = 0.2629802805355894D+02
        xs( 30) = 0.2731011648882438D+02
        ws(  1) = 0.9073625591618051D+00
        ws(  2) = 0.9195498750976404D+00
        ws(  3) = 0.9205445684978631D+00
        ws(  4) = 0.9196992899415380D+00
        ws(  5) = 0.9180810301335377D+00
        ws(  6) = 0.9160091546634832D+00
        ws(  7) = 0.9136021855449279D+00
        ws(  8) = 0.9109814012941374D+00
        ws(  9) = 0.9082124812889989D+00
        ws( 10) = 0.9054179228251038D+00
        ws( 11) = 0.9026438779945249D+00
        ws( 12) = 0.9000065006256593D+00
        ws( 13) = 0.8975914379160650D+00
        ws( 14) = 0.8955035752476170D+00
        ws( 15) = 0.8938012781783911D+00
        ws( 16) = 0.8927432767375382D+00
        ws( 17) = 0.8921311090301552D+00
        ws( 18) = 0.8925178328391571D+00
        ws( 19) = 0.8936455241693533D+00
        ws( 20) = 0.8961721663783073D+00
        ws( 21) = 0.8988516535794795D+00
        ws( 22) = 0.9044945167234061D+00
        ws( 23) = 0.9107338256630404D+00
        ws( 24) = 0.9163658809013449D+00
        ws( 25) = 0.9290627193266691D+00
        ws( 26) = 0.9309657577695807D+00
        ws( 27) = 0.9271489718593051D+00
        ws( 28) = 0.9437882727027119D+00
        ws( 29) = 0.1164988042773440D+01
        ws( 30) = 0.1291304517364894D+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 =  31
        err = 0.3404263397811553D-10
        xs(  1) = 0.7189998766971682D+00
        xs(  2) = 0.1650059230826135D+01
        xs(  3) = 0.2585712471168124D+01
        xs(  4) = 0.3521261273789969D+01
        xs(  5) = 0.4455476112452010D+01
        xs(  6) = 0.5387775147228294D+01
        xs(  7) = 0.6317691356406281D+01
        xs(  8) = 0.7244942760612084D+01
        xs(  9) = 0.8169229913724710D+01
        xs( 10) = 0.9090404130920367D+01
        xs( 11) = 0.1000836409845827D+02
        xs( 12) = 0.1092303862673417D+02
        xs( 13) = 0.1183443769485394D+02
        xs( 14) = 0.1274271032036808D+02
        xs( 15) = 0.1364795658946660D+02
        xs( 16) = 0.1455047598685327D+02
        xs( 17) = 0.1545055663443330D+02
        xs( 18) = 0.1634869033373313D+02
        xs( 19) = 0.1724531246684268D+02
        xs( 20) = 0.1814127248652269D+02
        xs( 21) = 0.1903722563349344D+02
        xs( 22) = 0.1993392113086684D+02
        xs( 23) = 0.2083272922383729D+02
        xs( 24) = 0.2173416653763756D+02
        xs( 25) = 0.2264150341690538D+02
        xs( 26) = 0.2355940666236913D+02
        xs( 27) = 0.2447807907592027D+02
        xs( 28) = 0.2541451042664553D+02
        xs( 29) = 0.2633143831155773D+02
        xs( 30) = 0.2725997363040562D+02
        xs( 31) = 0.2841587042620794D+02
        ws(  1) = 0.9225005204452112D+00
        ws(  2) = 0.9348990727548218D+00
        ws(  3) = 0.9358882884703681D+00
        ws(  4) = 0.9350114218095343D+00
        ws(  5) = 0.9333436551609015D+00
        ws(  6) = 0.9311612395918203D+00
        ws(  7) = 0.9286497445721185D+00
        ws(  8) = 0.9257639476692160D+00
        ws(  9) = 0.9228109077301671D+00
        ws( 10) = 0.9195353478731001D+00
        ws( 11) = 0.9163208597750223D+00
        ws( 12) = 0.9130297098476114D+00
        ws( 13) = 0.9098724345329327D+00
        ws( 14) = 0.9066467994591055D+00
        ws( 15) = 0.9038475258951288D+00
        ws( 16) = 0.9012179279747899D+00
        ws( 17) = 0.8991173282123294D+00
        ws( 18) = 0.8972926740294943D+00
        ws( 19) = 0.8959648527073594D+00
        ws( 20) = 0.8956282545933149D+00
        ws( 21) = 0.8968625058017802D+00
        ws( 22) = 0.8978186789361496D+00
        ws( 23) = 0.8994688538329122D+00
        ws( 24) = 0.9035585441339375D+00
        ws( 25) = 0.9072090413434618D+00
        ws( 26) = 0.9216430618898921D+00
        ws( 27) = 0.9351888294782847D+00
        ws( 28) = 0.9495554328531474D+00
        ws( 29) = 0.8656126883190809D+00
        ws( 30) = 0.7217467430170484D+00
        ws( 31) = 0.2040909844922594D+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 =  32
        err = 0.7443314531959414D-10
        xs(  1) = 0.7324057499711775D+00
        xs(  2) = 0.1681032032070095D+01
        xs(  3) = 0.2634190244185748D+01
        xs(  4) = 0.3587244394846308D+01
        xs(  5) = 0.4538828226468312D+01
        xs(  6) = 0.5488400868731562D+01
        xs(  7) = 0.6435479603619723D+01
        xs(  8) = 0.7379777665081356D+01
        xs(  9) = 0.8320936400959202D+01
        xs( 10) = 0.9258745384081784D+01
        xs( 11) = 0.1019309376208238D+02
        xs( 12) = 0.1112381693621118D+02
        xs( 13) = 0.1205084705502913D+02
        xs( 14) = 0.1297424801186026D+02
        xs( 15) = 0.1389396539947899D+02
        xs( 16) = 0.1481000941009043D+02
        xs( 17) = 0.1572286383019118D+02
        xs( 18) = 0.1663241276031264D+02
        xs( 19) = 0.1753915275352726D+02
        xs( 20) = 0.1844315558247914D+02
        xs( 21) = 0.1934541575215472D+02
        xs( 22) = 0.2024646416457215D+02
        xs( 23) = 0.2114600824524845D+02
        xs( 24) = 0.2204563488960011D+02
        xs( 25) = 0.2294641742337665D+02
        xs( 26) = 0.2385106625549272D+02
        xs( 27) = 0.2476297447057604D+02
        xs( 28) = 0.2566074067942962D+02
        xs( 29) = 0.2656145879460183D+02
        xs( 30) = 0.2754333965785423D+02
        xs( 31) = 0.2842665724998309D+02
        xs( 32) = 0.2961327782561388D+02
        ws(  1) = 0.9398734296031862D+00
        ws(  2) = 0.9524074789685341D+00
        ws(  3) = 0.9534449649322326D+00
        ws(  4) = 0.9524230600940718D+00
        ws(  5) = 0.9507073499888674D+00
        ws(  6) = 0.9483164436017173D+00
        ws(  7) = 0.9458028239755151D+00
        ws(  8) = 0.9427097436840157D+00
        ws(  9) = 0.9395754208627297D+00
        ws( 10) = 0.9360388654000296D+00
        ws( 11) = 0.9326271889193197D+00
        ws( 12) = 0.9288840747681341D+00
        ws( 13) = 0.9252145716969365D+00
        ws( 14) = 0.9215042816847049D+00
        ws( 15) = 0.9179302440261026D+00
        ws( 16) = 0.9143832818592074D+00
        ws( 17) = 0.9110997942782209D+00
        ws( 18) = 0.9081414602295743D+00
        ws( 19) = 0.9054254850958925D+00
        ws( 20) = 0.9030810765136077D+00
        ws( 21) = 0.9017298613055782D+00
        ws( 22) = 0.9009252914204523D+00
        ws( 23) = 0.8980001329251427D+00
        ws( 24) = 0.9006037973180834D+00
        ws( 25) = 0.9015339530780510D+00
        ws( 26) = 0.9084002050551354D+00
        ws( 27) = 0.9073366637968664D+00
        ws( 28) = 0.9083158294211189D+00
        ws( 29) = 0.9090700149460388D+00
        ws( 30) = 0.8866426269120291D+00
        ws( 31) = 0.8513087338979184D+00
        ws( 32) = 0.1766330041507297D+01
        endif
        if( idomain .eq.  270 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.1256637061435917D+02
        rk1r = 0.3141592653589793D+02
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  35
        err = 0.4516288082857552D-10
        xs(  1) = 0.7316427609834067D+00
        xs(  2) = 0.1678964785270259D+01
        xs(  3) = 0.2631155590003683D+01
        xs(  4) = 0.3583316269953330D+01
        xs(  5) = 0.4534355053651740D+01
        xs(  6) = 0.5483577562902565D+01
        xs(  7) = 0.6430614629641490D+01
        xs(  8) = 0.7375054043578778D+01
        xs(  9) = 0.8316667217508293D+01
        xs( 10) = 0.9255140886396690D+01
        xs( 11) = 0.1019033826402326D+02
        xs( 12) = 0.1112204143522174D+02
        xs( 13) = 0.1205017487334378D+02
        xs( 14) = 0.1297458167890935D+02
        xs( 15) = 0.1389527431315424D+02
        xs( 16) = 0.1481219025939540D+02
        xs( 17) = 0.1572538468895533D+02
        xs( 18) = 0.1663490534845258D+02
        xs( 19) = 0.1754088096184714D+02
        xs( 20) = 0.1844352634051241D+02
        xs( 21) = 0.1934299057805994D+02
        xs( 22) = 0.2023974722651002D+02
        xs( 23) = 0.2113388257094721D+02
        xs( 24) = 0.2202612902203933D+02
        xs( 25) = 0.2291716524815966D+02
        xs( 26) = 0.2380731806424856D+02
        xs( 27) = 0.2469786455287644D+02
        xs( 28) = 0.2558801740909087D+02
        xs( 29) = 0.2648185067673686D+02
        xs( 30) = 0.2738185995516974D+02
        xs( 31) = 0.2827664897881525D+02
        xs( 32) = 0.2919343676665738D+02
        xs( 33) = 0.3009446029652277D+02
        xs( 34) = 0.3101665301518751D+02
        xs( 35) = 0.3206882478708812D+02
        ws(  1) = 0.9386204026148001D+00
        ws(  2) = 0.9513375901356530D+00
        ws(  3) = 0.9524392502949564D+00
        ws(  4) = 0.9517712147067319D+00
        ws(  5) = 0.9501731503256845D+00
        ws(  6) = 0.9482046386593665D+00
        ws(  7) = 0.9457988216384545D+00
        ws(  8) = 0.9430712669550064D+00
        ws(  9) = 0.9400795945211108D+00
        ws( 10) = 0.9368561934012436D+00
        ws( 11) = 0.9335001297948958D+00
        ws( 12) = 0.9299221000646726D+00
        ws( 13) = 0.9262759365335523D+00
        ws( 14) = 0.9226156242187382D+00
        ws( 15) = 0.9187358266490069D+00
        ws( 16) = 0.9150485357677972D+00
        ws( 17) = 0.9113706273744404D+00
        ws( 18) = 0.9077299939631702D+00
        ws( 19) = 0.9042391304542889D+00
        ws( 20) = 0.9010479521483977D+00
        ws( 21) = 0.8979803139933923D+00
        ws( 22) = 0.8954641162997559D+00
        ws( 23) = 0.8931445861689655D+00
        ws( 24) = 0.8915819894094212D+00
        ws( 25) = 0.8902673237350948D+00
        ws( 26) = 0.8883112128462453D+00
        ws( 27) = 0.8919922615427409D+00
        ws( 28) = 0.8925797022648720D+00
        ws( 29) = 0.8962928294584515D+00
        ws( 30) = 0.8923535015871271D+00
        ws( 31) = 0.8820884418868837D+00
        ws( 32) = 0.8780566369718327D+00
        ws( 33) = 0.9259158913237153D+00
        ws( 34) = 0.9209855753558678D+00
        ws( 35) = 0.1042681742783458D+01
        endif
        if( idomain .eq.  271 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.1256637061435917D+02
        rk1r = 0.3455751918948772D+02
        rk1i = 0.1570796326794897D+02
        iquadtype =  1
        n =  37
        err = 0.9594171771710911D-10
        xs(  1) = 0.7401384820095130D+00
        xs(  2) = 0.1699342033795100D+01
        xs(  3) = 0.2663086656788427D+01
        xs(  4) = 0.3627093747811045D+01
        xs(  5) = 0.4589872485403280D+01
        xs(  6) = 0.5551117068141435D+01
        xs(  7) = 0.6510210661516519D+01
        xs(  8) = 0.7466870721372653D+01
        xs(  9) = 0.8420856365252680D+01
        xs( 10) = 0.9371839709100342D+01
        xs( 11) = 0.1031968227886218D+02
        xs( 12) = 0.1126419515503509D+02
        xs( 13) = 0.1220518650146311D+02
        xs( 14) = 0.1314259773311687D+02
        xs( 15) = 0.1407632766799725D+02
        xs( 16) = 0.1500620544155377D+02
        xs( 17) = 0.1593239584566863D+02
        xs( 18) = 0.1685474121706418D+02
        xs( 19) = 0.1777335889425573D+02
        xs( 20) = 0.1868828678644257D+02
        xs( 21) = 0.1959958365705104D+02
        xs( 22) = 0.2050752784858909D+02
        xs( 23) = 0.2141243427557894D+02
        xs( 24) = 0.2231413280427233D+02
        xs( 25) = 0.2321349151045671D+02
        xs( 26) = 0.2411076037288325D+02
        xs( 27) = 0.2500569590586637D+02
        xs( 28) = 0.2590129324826135D+02
        xs( 29) = 0.2679515555678474D+02
        xs( 30) = 0.2769132343939673D+02
        xs( 31) = 0.2858751951558409D+02
        xs( 32) = 0.2949285470958658D+02
        xs( 33) = 0.3038095856814743D+02
        xs( 34) = 0.3129900679126386D+02
        xs( 35) = 0.3218117714878587D+02
        xs( 36) = 0.3329075928586159D+02
        xs( 37) = 0.3436602983183977D+02
        ws(  1) = 0.9502157120491785D+00
        ws(  2) = 0.9630224617605839D+00
        ws(  3) = 0.9640731207659098D+00
        ws(  4) = 0.9636610856271244D+00
        ws(  5) = 0.9619930879987373D+00
        ws(  6) = 0.9602491037867671D+00
        ws(  7) = 0.9579223941394838D+00
        ws(  8) = 0.9554067154596226D+00
        ws(  9) = 0.9525289593332833D+00
        ws( 10) = 0.9494015235026864D+00
        ws( 11) = 0.9462034678414933D+00
        ws( 12) = 0.9427874084355691D+00
        ws( 13) = 0.9391510197391710D+00
        ws( 14) = 0.9356495650322216D+00
        ws( 15) = 0.9318018078785237D+00
        ws( 16) = 0.9280620442666819D+00
        ws( 17) = 0.9242279660307660D+00
        ws( 18) = 0.9204596445011552D+00
        ws( 19) = 0.9167118201045252D+00
        ws( 20) = 0.9131612306975915D+00
        ws( 21) = 0.9095816650241291D+00
        ws( 22) = 0.9062375272076882D+00
        ws( 23) = 0.9031418502051094D+00
        ws( 24) = 0.9006891970726941D+00
        ws( 25) = 0.8979334108797408D+00
        ws( 26) = 0.8965243635889313D+00
        ws( 27) = 0.8939072809333863D+00
        ws( 28) = 0.8956730288867651D+00
        ws( 29) = 0.8943301579233992D+00
        ws( 30) = 0.8954939984653822D+00
        ws( 31) = 0.8969118010261410D+00
        ws( 32) = 0.9086619607678594D+00
        ws( 33) = 0.9034887439181153D+00
        ws( 34) = 0.8964910923130867D+00
        ws( 35) = 0.9463202996485450D+00
        ws( 36) = 0.8814608667362488D+00
        ws( 37) = 0.1978376346568996D+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 =  39
        err = 0.6530048423352984D-10
        xs(  1) = 0.7444494699905598D+00
        xs(  2) = 0.1708722822785740D+01
        xs(  3) = 0.2677858489312090D+01
        xs(  4) = 0.3647215277232856D+01
        xs(  5) = 0.4615609492902181D+01
        xs(  6) = 0.5582368101656110D+01
        xs(  7) = 0.6547213320916752D+01
        xs(  8) = 0.7509709636357235D+01
        xs(  9) = 0.8469667862371509D+01
        xs( 10) = 0.9426759523338802D+01
        xs( 11) = 0.1038083243354170D+02
        xs( 12) = 0.1133164806446201D+02
        xs( 13) = 0.1227914661718496D+02
        xs( 14) = 0.1322308564398989D+02
        xs( 15) = 0.1416337760888565D+02
        xs( 16) = 0.1510001676177325D+02
        xs( 17) = 0.1603276357594803D+02
        xs( 18) = 0.1696171375519392D+02
        xs( 19) = 0.1788681183331380D+02
        xs( 20) = 0.1880799344082776D+02
        xs( 21) = 0.1972532740828572D+02
        xs( 22) = 0.2063895932834131D+02
        xs( 23) = 0.2154877620532234D+02
        xs( 24) = 0.2245514899708123D+02
        xs( 25) = 0.2335797905832033D+02
        xs( 26) = 0.2425787111774069D+02
        xs( 27) = 0.2515495494350139D+02
        xs( 28) = 0.2604936804936808D+02
        xs( 29) = 0.2694155747121951D+02
        xs( 30) = 0.2783248799278965D+02
        xs( 31) = 0.2872359236748130D+02
        xs( 32) = 0.2961307827830443D+02
        xs( 33) = 0.3050834898441935D+02
        xs( 34) = 0.3140056413843403D+02
        xs( 35) = 0.3229367341288208D+02
        xs( 36) = 0.3317294828253750D+02
        xs( 37) = 0.3409973707338145D+02
        xs( 38) = 0.3502986689554710D+02
        xs( 39) = 0.3614974520713855D+02
        ws(  1) = 0.9552140462523275D+00
        ws(  2) = 0.9683401380972843D+00
        ws(  3) = 0.9695203110143213D+00
        ws(  4) = 0.9689990539099187D+00
        ws(  5) = 0.9676404011553866D+00
        ws(  6) = 0.9658551238013359D+00
        ws(  7) = 0.9637467184702861D+00
        ws(  8) = 0.9612687311174618D+00
        ws(  9) = 0.9585291053272422D+00
        ws( 10) = 0.9556274729544998D+00
        ws( 11) = 0.9525356003531885D+00
        ws( 12) = 0.9490903607757126D+00
        ws( 13) = 0.9457939070878704D+00
        ws( 14) = 0.9421065641022477D+00
        ws( 15) = 0.9384418206208049D+00
        ws( 16) = 0.9347193367417590D+00
        ws( 17) = 0.9308787036691853D+00
        ws( 18) = 0.9270394573853208D+00
        ws( 19) = 0.9231652325174740D+00
        ws( 20) = 0.9191269434381578D+00
        ws( 21) = 0.9153899103898164D+00
        ws( 22) = 0.9118766671286244D+00
        ws( 23) = 0.9081374905090316D+00
        ws( 24) = 0.9044080266070903D+00
        ws( 25) = 0.9012480254265876D+00
        ws( 26) = 0.8978989990174885D+00
        ws( 27) = 0.8967114001063459D+00
        ws( 28) = 0.8918778064484099D+00
        ws( 29) = 0.8930154948838648D+00
        ws( 30) = 0.8898029713309779D+00
        ws( 31) = 0.8854169577798235D+00
        ws( 32) = 0.8921902725000327D+00
        ws( 33) = 0.8983083702205517D+00
        ws( 34) = 0.8871573387811343D+00
        ws( 35) = 0.8686572915089651D+00
        ws( 36) = 0.8566369149297373D+00
        ws( 37) = 0.8988543348339800D+00
        ws( 38) = 0.8551348756149271D+00
        ws( 39) = 0.1286421692217084D+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 =  42
        err = 0.7531657074276302D-10
        xs(  1) = 0.7455730972776360D+00
        xs(  2) = 0.1711758835541983D+01
        xs(  3) = 0.2682727821246806D+01
        xs(  4) = 0.3654048325526891D+01
        xs(  5) = 0.4624532410816263D+01
        xs(  6) = 0.5593615884158213D+01
        xs(  7) = 0.6560871689192375D+01
        xs(  8) = 0.7526127719804774D+01
        xs(  9) = 0.8488939756212103D+01
        xs( 10) = 0.9449208744287242D+01
        xs( 11) = 0.1040665503508455D+02
        xs( 12) = 0.1136112865924888D+02
        xs( 13) = 0.1231245211410750D+02
        xs( 14) = 0.1326048726117394D+02
        xs( 15) = 0.1420511020472382D+02
        xs( 16) = 0.1514618741977098D+02
        xs( 17) = 0.1608366530654433D+02
        xs( 18) = 0.1701741551379436D+02
        xs( 19) = 0.1794743955943281D+02
        xs( 20) = 0.1887366003141990D+02
        xs( 21) = 0.1979604414926949D+02
        xs( 22) = 0.2071454342029510D+02
        xs( 23) = 0.2162937549367449D+02
        xs( 24) = 0.2254032545526668D+02
        xs( 25) = 0.2344763875533019D+02
        xs( 26) = 0.2435129782850660D+02
        xs( 27) = 0.2525159542484282D+02
        xs( 28) = 0.2614855955446421D+02
        xs( 29) = 0.2704246662995625D+02
        xs( 30) = 0.2793372560599144D+02
        xs( 31) = 0.2882231356838827D+02
        xs( 32) = 0.2970969014758363D+02
        xs( 33) = 0.3059394931806822D+02
        xs( 34) = 0.3147815939953435D+02
        xs( 35) = 0.3236219754106602D+02
        xs( 36) = 0.3324579133677811D+02
        xs( 37) = 0.3413681534361381D+02
        xs( 38) = 0.3501458092977882D+02
        xs( 39) = 0.3591774510318016D+02
        xs( 40) = 0.3673646559487633D+02
        xs( 41) = 0.3775680065135963D+02
        xs( 42) = 0.3879172882686867D+02
        ws(  1) = 0.9569283403603708D+00
        ws(  2) = 0.9702255089090229D+00
        ws(  3) = 0.9713948598155837D+00
        ws(  4) = 0.9710514591446379D+00
        ws(  5) = 0.9698493601074893D+00
        ws(  6) = 0.9681990068532857D+00
        ws(  7) = 0.9663231652631651D+00
        ws(  8) = 0.9640516931822281D+00
        ws(  9) = 0.9616145690719311D+00
        ws( 10) = 0.9588984472776376D+00
        ws( 11) = 0.9559525305728442D+00
        ws( 12) = 0.9529228690181605D+00
        ws( 13) = 0.9497016086772537D+00
        ws( 14) = 0.9463413412560502D+00
        ws( 15) = 0.9429151790729361D+00
        ws( 16) = 0.9392607828809689D+00
        ws( 17) = 0.9356176080667991D+00
        ws( 18) = 0.9319104102065473D+00
        ws( 19) = 0.9280590603440328D+00
        ws( 20) = 0.9244095864336042D+00
        ws( 21) = 0.9204257373849721D+00
        ws( 22) = 0.9165759640116528D+00
        ws( 23) = 0.9128722037322513D+00
        ws( 24) = 0.9091917395399151D+00
        ws( 25) = 0.9054716497702585D+00
        ws( 26) = 0.9019616127094494D+00
        ws( 27) = 0.8984826052383927D+00
        ws( 28) = 0.8954866120731078D+00
        ws( 29) = 0.8924181556219729D+00
        ws( 30) = 0.8901797139136753D+00
        ws( 31) = 0.8884137599337434D+00
        ws( 32) = 0.8842666454592685D+00
        ws( 33) = 0.8853034480088152D+00
        ws( 34) = 0.8867455005976286D+00
        ws( 35) = 0.8820701242479179D+00
        ws( 36) = 0.8844347108401349D+00
        ws( 37) = 0.8907720860125088D+00
        ws( 38) = 0.8834399348649236D+00
        ws( 39) = 0.8896026664989163D+00
        ws( 40) = 0.8411397989958356D+00
        ws( 41) = 0.8161554173445470D+00
        ws( 42) = 0.1495839546718003D+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 =  45
        err = 0.9931712305662409D-10
        xs(  1) = 0.7477100623923306D+00
        xs(  2) = 0.1714993196329112D+01
        xs(  3) = 0.2687623099523154D+01
        xs(  4) = 0.3660831069678209D+01
        xs(  5) = 0.4633155577999167D+01
        xs(  6) = 0.5604358660178956D+01
        xs(  7) = 0.6573833084785771D+01
        xs(  8) = 0.7541440670605158D+01
        xs(  9) = 0.8506816965007763D+01
        xs( 10) = 0.9469782447521753D+01
        xs( 11) = 0.1043010173123547D+02
        xs( 12) = 0.1138760506205933D+02
        xs( 13) = 0.1234213328298707D+02
        xs( 14) = 0.1329351337916301D+02
        xs( 15) = 0.1424162238677337D+02
        xs( 16) = 0.1518631348385514D+02
        xs( 17) = 0.1612749956548480D+02
        xs( 18) = 0.1706506867257915D+02
        xs( 19) = 0.1799894602435516D+02
        xs( 20) = 0.1892905820923531D+02
        xs( 21) = 0.1985532607369991D+02
        xs( 22) = 0.2077769150893654D+02
        xs( 23) = 0.2169617447706317D+02
        xs( 24) = 0.2261071773341028D+02
        xs( 25) = 0.2352137265612394D+02
        xs( 26) = 0.2442803295986661D+02
        xs( 27) = 0.2533082424827709D+02
        xs( 28) = 0.2622987788427335D+02
        xs( 29) = 0.2712517134112911D+02
        xs( 30) = 0.2801684241170450D+02
        xs( 31) = 0.2890500956813747D+02
        xs( 32) = 0.2979011236925534D+02
        xs( 33) = 0.3067177024492281D+02
        xs( 34) = 0.3155064634068702D+02
        xs( 35) = 0.3242739099554532D+02
        xs( 36) = 0.3330097359169457D+02
        xs( 37) = 0.3417385204895533D+02
        xs( 38) = 0.3504479683748385D+02
        xs( 39) = 0.3591206544481691D+02
        xs( 40) = 0.3678148611522287D+02
        xs( 41) = 0.3764297843118376D+02
        xs( 42) = 0.3850665223408303D+02
        xs( 43) = 0.3938750194505409D+02
        xs( 44) = 0.4018182537057783D+02
        xs( 45) = 0.4184704870206002D+02
        ws(  1) = 0.9587530706280422D+00
        ws(  2) = 0.9713219593790399D+00
        ws(  3) = 0.9733991304697976D+00
        ws(  4) = 0.9727428562435327D+00
        ws(  5) = 0.9719518395910945D+00
        ws(  6) = 0.9703114073541402D+00
        ws(  7) = 0.9686451439400299D+00
        ws(  8) = 0.9664679211835323D+00
        ws(  9) = 0.9642457493160957D+00
        ws( 10) = 0.9616642840941731D+00
        ws( 11) = 0.9589698292875661D+00
        ws( 12) = 0.9560265662873161D+00
        ws( 13) = 0.9529692520237553D+00
        ws( 14) = 0.9497492516535527D+00
        ws( 15) = 0.9464365150432928D+00
        ws( 16) = 0.9429731211433680D+00
        ws( 17) = 0.9394021290869096D+00
        ws( 18) = 0.9357223816432422D+00
        ws( 19) = 0.9319991234741339D+00
        ws( 20) = 0.9281920957797946D+00
        ws( 21) = 0.9243183229856203D+00
        ws( 22) = 0.9204422878665895D+00
        ws( 23) = 0.9165649362894188D+00
        ws( 24) = 0.9125709157583177D+00
        ws( 25) = 0.9086443059004534D+00
        ws( 26) = 0.9047364956601857D+00
        ws( 27) = 0.9008962589259674D+00
        ws( 28) = 0.8970848115462837D+00
        ws( 29) = 0.8936165751227356D+00
        ws( 30) = 0.8900065200401066D+00
        ws( 31) = 0.8863198898283801D+00
        ws( 32) = 0.8833975820697747D+00
        ws( 33) = 0.8802375024070619D+00
        ws( 34) = 0.8778115619279406D+00
        ws( 35) = 0.8741744792308159D+00
        ws( 36) = 0.8747373279981880D+00
        ws( 37) = 0.8690833043471075D+00
        ws( 38) = 0.8647839717990650D+00
        ws( 39) = 0.8780362343605559D+00
        ws( 40) = 0.8375185193378339D+00
        ws( 41) = 0.8861675756515160D+00
        ws( 42) = 0.8120685601740606D+00
        ws( 43) = 0.8009925087024480D+00
        ws( 44) = 0.9995125430099603D+00
        ws( 45) = 0.1694891031205237D+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 =  47
        err = 0.8389173015812997D-10
        xs(  1) = 0.7535571002527255D+00
        xs(  2) = 0.1729678902456856D+01
        xs(  3) = 0.2710802161425568D+01
        xs(  4) = 0.3692497645651235D+01
        xs(  5) = 0.4673531589585375D+01
        xs(  6) = 0.5653363812156896D+01
        xs(  7) = 0.6631740885511873D+01
        xs(  8) = 0.7608222337774666D+01
        xs(  9) = 0.8582745203775849D+01
        xs( 10) = 0.9554965763327910D+01
        xs( 11) = 0.1052474090800635D+02
        xs( 12) = 0.1149187238402802D+02
        xs( 13) = 0.1245623209708981D+02
        xs( 14) = 0.1341766224322654D+02
        xs( 15) = 0.1437602214705589D+02
        xs( 16) = 0.1533124269128214D+02
        xs( 17) = 0.1628316115428244D+02
        xs( 18) = 0.1723169899571881D+02
        xs( 19) = 0.1817676850884247D+02
        xs( 20) = 0.1911834630031535D+02
        xs( 21) = 0.2005631704006015D+02
        xs( 22) = 0.2099061273638424D+02
        xs( 23) = 0.2192125794830228D+02
        xs( 24) = 0.2284816330953093D+02
        xs( 25) = 0.2377141319029048D+02
        xs( 26) = 0.2469086490851317D+02
        xs( 27) = 0.2560657849034745D+02
        xs( 28) = 0.2651865763544943D+02
        xs( 29) = 0.2742711182940585D+02
        xs( 30) = 0.2833214113009782D+02
        xs( 31) = 0.2923370469826464D+02
        xs( 32) = 0.3013151099056080D+02
        xs( 33) = 0.3102699993993609D+02
        xs( 34) = 0.3191867329006557D+02
        xs( 35) = 0.3280815702104438D+02
        xs( 36) = 0.3369649044180626D+02
        xs( 37) = 0.3458078338288535D+02
        xs( 38) = 0.3546295874143985D+02
        xs( 39) = 0.3634776985179921D+02
        xs( 40) = 0.3722543449709845D+02
        xs( 41) = 0.3811321507084691D+02
        xs( 42) = 0.3898407910841411D+02
        xs( 43) = 0.3988008159337076D+02
        xs( 44) = 0.4077798003903221D+02
        xs( 45) = 0.4161318151866651D+02
        xs( 46) = 0.4252732228465490D+02
        xs( 47) = 0.4388211784882236D+02
        ws(  1) = 0.9672991429124757D+00
        ws(  2) = 0.9799953850838496D+00
        ws(  3) = 0.9817011955013354D+00
        ws(  4) = 0.9815227538152468D+00
        ws(  5) = 0.9804567380742920D+00
        ws(  6) = 0.9791478367470500D+00
        ws(  7) = 0.9775144127721695D+00
        ws(  8) = 0.9755275970103726D+00
        ws(  9) = 0.9734375254350858D+00
        ws( 10) = 0.9709744866698331D+00
        ws( 11) = 0.9684702144071006D+00
        ws( 12) = 0.9657906647534169D+00
        ws( 13) = 0.9629505677710394D+00
        ws( 14) = 0.9599036688512583D+00
        ws( 15) = 0.9568067413975184D+00
        ws( 16) = 0.9535405834225942D+00
        ws( 17) = 0.9502554444578495D+00
        ws( 18) = 0.9468486604330977D+00
        ws( 19) = 0.9433709652933040D+00
        ws( 20) = 0.9397417207425781D+00
        ws( 21) = 0.9361278568646366D+00
        ws( 22) = 0.9324547509606061D+00
        ws( 23) = 0.9287445068227065D+00
        ws( 24) = 0.9251383183309079D+00
        ws( 25) = 0.9214372788093519D+00
        ws( 26) = 0.9175212782920031D+00
        ws( 27) = 0.9137729588827075D+00
        ws( 28) = 0.9104122232840484D+00
        ws( 29) = 0.9064800575883371D+00
        ws( 30) = 0.9033438903328832D+00
        ws( 31) = 0.8999115191159450D+00
        ws( 32) = 0.8966022150125291D+00
        ws( 33) = 0.8935456891117607D+00
        ws( 34) = 0.8906658999936196D+00
        ws( 35) = 0.8894683577354252D+00
        ws( 36) = 0.8853952549646839D+00
        ws( 37) = 0.8871575523663778D+00
        ws( 38) = 0.8837245411564896D+00
        ws( 39) = 0.8844639938555900D+00
        ws( 40) = 0.8888325899460778D+00
        ws( 41) = 0.8759893636427105D+00
        ws( 42) = 0.9058083705449230D+00
        ws( 43) = 0.9195003752254314D+00
        ws( 44) = 0.8407435447936061D+00
        ws( 45) = 0.9907343237239526D+00
        ws( 46) = 0.7640631286364457D+00
        ws( 47) = 0.2001148143559026D+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 =  50
        err = 0.7896990800439067D-10
        xs(  1) = 0.7538950509879865D+00
        xs(  2) = 0.1730263931235018D+01
        xs(  3) = 0.2712149743319348D+01
        xs(  4) = 0.3694354576127642D+01
        xs(  5) = 0.4676068509566098D+01
        xs(  6) = 0.5656782027984457D+01
        xs(  7) = 0.6636008034785167D+01
        xs(  8) = 0.7613662555269929D+01
        xs(  9) = 0.8589372679210411D+01
        xs( 10) = 0.9563001619103995D+01
        xs( 11) = 0.1053433788143632D+02
        xs( 12) = 0.1150322977959664D+02
        xs( 13) = 0.1246949112064817D+02
        xs( 14) = 0.1343302469842978D+02
        xs( 15) = 0.1439367491047186D+02
        xs( 16) = 0.1535131135343879D+02
        xs( 17) = 0.1630584974939805D+02
        xs( 18) = 0.1725719331424345D+02
        xs( 19) = 0.1820521809912744D+02
        xs( 20) = 0.1914989137337980D+02
        xs( 21) = 0.2009109011694872D+02
        xs( 22) = 0.2102880332041880D+02
        xs( 23) = 0.2196292553379595D+02
        xs( 24) = 0.2289340905818330D+02
        xs( 25) = 0.2382031801847598D+02
        xs( 26) = 0.2474348979871332D+02
        xs( 27) = 0.2566295073006519D+02
        xs( 28) = 0.2657873930093392D+02
        xs( 29) = 0.2749086468758573D+02
        xs( 30) = 0.2839927292876595D+02
        xs( 31) = 0.2930403805923649D+02
        xs( 32) = 0.3020526328806690D+02
        xs( 33) = 0.3110288113032861D+02
        xs( 34) = 0.3199736199949742D+02
        xs( 35) = 0.3288825839275270D+02
        xs( 36) = 0.3377633045734376D+02
        xs( 37) = 0.3466078589829731D+02
        xs( 38) = 0.3554393141556396D+02
        xs( 39) = 0.3642246945417476D+02
        xs( 40) = 0.3730207766853412D+02
        xs( 41) = 0.3817753648903006D+02
        xs( 42) = 0.3905340091331608D+02
        xs( 43) = 0.3992894730122267D+02
        xs( 44) = 0.4079435384417566D+02
        xs( 45) = 0.4168726888237137D+02
        xs( 46) = 0.4254718695466797D+02
        xs( 47) = 0.4342110756778355D+02
        xs( 48) = 0.4433912150823666D+02
        xs( 49) = 0.4529582789311228D+02
        xs( 50) = 0.4647459208864827D+02
        ws(  1) = 0.9669612733609178D+00
        ws(  2) = 0.9810014599718635D+00
        ws(  3) = 0.9821664760201640D+00
        ws(  4) = 0.9821229783976232D+00
        ws(  5) = 0.9812852159468731D+00
        ws(  6) = 0.9800104526399563D+00
        ws(  7) = 0.9784644336462599D+00
        ws(  8) = 0.9767230864131417D+00
        ws(  9) = 0.9746954821227498D+00
        ws( 10) = 0.9725383432970383D+00
        ws( 11) = 0.9701301632886581D+00
        ws( 12) = 0.9675918149912766D+00
        ws( 13) = 0.9649321657495666D+00
        ws( 14) = 0.9620796622770260D+00
        ws( 15) = 0.9592046291753112D+00
        ws( 16) = 0.9561088128770255D+00
        ws( 17) = 0.9529370377878474D+00
        ws( 18) = 0.9496760624700709D+00
        ws( 19) = 0.9463675028840484D+00
        ws( 20) = 0.9429634338804858D+00
        ws( 21) = 0.9394765861461097D+00
        ws( 22) = 0.9359153860746380D+00
        ws( 23) = 0.9323690649747678D+00
        ws( 24) = 0.9286104602120995D+00
        ws( 25) = 0.9250113189258240D+00
        ws( 26) = 0.9213873963136957D+00
        ws( 27) = 0.9176276628040716D+00
        ws( 28) = 0.9139810917536811D+00
        ws( 29) = 0.9102274577420268D+00
        ws( 30) = 0.9065350396171225D+00
        ws( 31) = 0.9028728766912676D+00
        ws( 32) = 0.8994122599504969D+00
        ws( 33) = 0.8959037706940205D+00
        ws( 34) = 0.8930479819633681D+00
        ws( 35) = 0.8886552835910017D+00
        ws( 36) = 0.8865096425439459D+00
        ws( 37) = 0.8830029135167075D+00
        ws( 38) = 0.8801978955739201D+00
        ws( 39) = 0.8799496486873167D+00
        ws( 40) = 0.8739507664781065D+00
        ws( 41) = 0.8811985514409395D+00
        ws( 42) = 0.8643855711452952D+00
        ws( 43) = 0.8793231145228141D+00
        ws( 44) = 0.8652077851772773D+00
        ws( 45) = 0.9088832148830830D+00
        ws( 46) = 0.8314213156681625D+00
        ws( 47) = 0.8785606475276571D+00
        ws( 48) = 0.9845448945874340D+00
        ws( 49) = 0.8408815370219495D+00
        ws( 50) = 0.1454368110836028D+01
        endif
        if( idomain .eq.  277 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.1570796326794897D+02
        rk1r = 0.2000000000000000D-01
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  16
        err = 0.6303699010186905D-10
        xs(  1) = 0.7434039600623326D+00
        xs(  2) = 0.1706125945422463D+01
        xs(  3) = 0.2676407546770984D+01
        xs(  4) = 0.3650389957915086D+01
        xs(  5) = 0.4628127944226529D+01
        xs(  6) = 0.5610207693550166D+01
        xs(  7) = 0.6597229267650477D+01
        xs(  8) = 0.7590039057292717D+01
        xs(  9) = 0.8589167309397425D+01
        xs( 10) = 0.9595544468067152D+01
        xs( 11) = 0.1060973561822888D+02
        xs( 12) = 0.1163245193263154D+02
        xs( 13) = 0.1266519978411170D+02
        xs( 14) = 0.1370627164005859D+02
        xs( 15) = 0.1476500193116605D+02
        xs( 16) = 0.1580251141542342D+02
        ws(  1) = 0.9534581902116998D+00
        ws(  2) = 0.9684080293729626D+00
        ws(  3) = 0.9724221225201655D+00
        ws(  4) = 0.9760701871586354D+00
        ws(  5) = 0.9799800375830739D+00
        ws(  6) = 0.9847405830397664D+00
        ws(  7) = 0.9901110037505410D+00
        ws(  8) = 0.9962849638568265D+00
        ws(  9) = 0.1003419760481875D+01
        ws( 10) = 0.1011008879134903D+01
        ws( 11) = 0.1020749165992758D+01
        ws( 12) = 0.1030189067379677D+01
        ws( 13) = 0.1046267859147076D+01
        ws( 14) = 0.1062116164228950D+01
        ws( 15) = 0.1118468550655122D+01
        ws( 16) = 0.1254794788422300D+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 =  16
        err = 0.6322113053999673D-10
        xs(  1) = 0.7434116193596033D+00
        xs(  2) = 0.1706143197391070D+01
        xs(  3) = 0.2676434295097203D+01
        xs(  4) = 0.3650425951064392D+01
        xs(  5) = 0.4628172811593780D+01
        xs(  6) = 0.5610260922624070D+01
        xs(  7) = 0.6597290321695861D+01
        xs(  8) = 0.7590107204002441D+01
        xs(  9) = 0.8589241826734671D+01
        xs( 10) = 0.9595624411173159D+01
        xs( 11) = 0.1060981995641814D+02
        xs( 12) = 0.1163253956934269D+02
        xs( 13) = 0.1266528868106043D+02
        xs( 14) = 0.1370636112157532D+02
        xs( 15) = 0.1476508272293486D+02
        xs( 16) = 0.1580259362304170D+02
        ws(  1) = 0.9534677203265448D+00
        ws(  2) = 0.9684176419150601D+00
        ws(  3) = 0.9724316472385669D+00
        ws(  4) = 0.9760792819599932D+00
        ws(  5) = 0.9799887635520375D+00
        ws(  6) = 0.9847487287564767D+00
        ws(  7) = 0.9901185497430256D+00
        ws(  8) = 0.9962918451974687D+00
        ws(  9) = 0.1003425732979854D+01
        ws( 10) = 0.1011014221749765D+01
        ws( 11) = 0.1020753008432124D+01
        ws( 12) = 0.1030192641649240D+01
        ws( 13) = 0.1046268764026727D+01
        ws( 14) = 0.1062118479317589D+01
        ws( 15) = 0.1118453554921291D+01
        ws( 16) = 0.1254749124023268D+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 =  16
        err = 0.6447963920537555D-10
        xs(  1) = 0.7434661355741248D+00
        xs(  2) = 0.1706266671148917D+01
        xs(  3) = 0.2676625943569887D+01
        xs(  4) = 0.3650684136767066D+01
        xs(  5) = 0.4628495066033177D+01
        xs(  6) = 0.5610643684256209D+01
        xs(  7) = 0.6597729981677971D+01
        xs(  8) = 0.7590598396588911D+01
        xs(  9) = 0.8589779475258672D+01
        xs( 10) = 0.9596201335416374D+01
        xs( 11) = 0.1061042841619184D+02
        xs( 12) = 0.1163317115108033D+02
        xs( 13) = 0.1266592674721551D+02
        xs( 14) = 0.1370700189470853D+02
        xs( 15) = 0.1476564830348294D+02
        xs( 16) = 0.1580318026565375D+02
        ws(  1) = 0.9535362839108723D+00
        ws(  2) = 0.9684863860333954D+00
        ws(  3) = 0.9725001417660115D+00
        ws(  4) = 0.9761446653761517D+00
        ws(  5) = 0.9800519126074017D+00
        ws(  6) = 0.9848076777557863D+00
        ws(  7) = 0.9901733977088255D+00
        ws(  8) = 0.9963419524573512D+00
        ws(  9) = 0.1003468867269623D+01
        ws( 10) = 0.1011053159728097D+01
        ws( 11) = 0.1020779398917921D+01
        ws( 12) = 0.1030218151237456D+01
        ws( 13) = 0.1046269491372933D+01
        ws( 14) = 0.1062130175612579D+01
        ws( 15) = 0.1118287564231728D+01
        ws( 16) = 0.1254395082668323D+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 =  16
        err = 0.6915269973588905D-10
        xs(  1) = 0.7436611639566058D+00
        xs(  2) = 0.1706706290490783D+01
        xs(  3) = 0.2677307838534047D+01
        xs(  4) = 0.3651602153874962D+01
        xs(  5) = 0.4629640059932850D+01
        xs(  6) = 0.5612002840430985D+01
        xs(  7) = 0.6599289989736011D+01
        xs(  8) = 0.7592340540797040D+01
        xs(  9) = 0.8591685526611441D+01
        xs( 10) = 0.9598246753716358D+01
        xs( 11) = 0.1061258650151138D+02
        xs( 12) = 0.1163541313306122D+02
        xs( 13) = 0.1266819835418873D+02
        xs( 14) = 0.1370928652302193D+02
        xs( 15) = 0.1476770275386113D+02
        xs( 16) = 0.1580527878477680D+02
        ws(  1) = 0.9537793811408514D+00
        ws(  2) = 0.9687313539970318D+00
        ws(  3) = 0.9727432552422619D+00
        ws(  4) = 0.9763769146544858D+00
        ws(  5) = 0.9802753661433531D+00
        ws(  6) = 0.9850163591315212D+00
        ws(  7) = 0.9903671587561914D+00
        ws(  8) = 0.9965188390811511D+00
        ws(  9) = 0.1003622066809631D+01
        ws( 10) = 0.1011190642235636D+01
        ws( 11) = 0.1020876566545775D+01
        ws( 12) = 0.1030309082135006D+01
        ws( 13) = 0.1046285191272660D+01
        ws( 14) = 0.1062177077425713D+01
        ws( 15) = 0.1117824519981818D+01
        ws( 16) = 0.1253267813566717D+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 =  16
        err = 0.8992457871169186D-10
        xs(  1) = 0.7445222944751646D+00
        xs(  2) = 0.1708646988892093D+01
        xs(  3) = 0.2680320096374551D+01
        xs(  4) = 0.3655662386351125D+01
        xs(  5) = 0.4634712046630021D+01
        xs(  6) = 0.5618034825201962D+01
        xs(  7) = 0.6606228677341445D+01
        xs(  8) = 0.7600108047525878D+01
        xs(  9) = 0.8600206827772199D+01
        xs( 10) = 0.9607416595132017D+01
        xs( 11) = 0.1062229043362722D+02
        xs( 12) = 0.1164552418579976D+02
        xs( 13) = 0.1267847414997070D+02
        xs( 14) = 0.1371965101502023D+02
        xs( 15) = 0.1477708754958668D+02
        xs( 16) = 0.1581487092213938D+02
        ws(  1) = 0.9548492697218874D+00
        ws(  2) = 0.9698121335563098D+00
        ws(  3) = 0.9738195721422664D+00
        ws(  4) = 0.9774086996487936D+00
        ws(  5) = 0.9812736859215864D+00
        ws(  6) = 0.9859538118418107D+00
        ws(  7) = 0.9912444904546477D+00
        ws(  8) = 0.9973262675012412D+00
        ws(  9) = 0.1004328611545591D+01
        ws( 10) = 0.1011831644111961D+01
        ws( 11) = 0.1021338097835098D+01
        ws( 12) = 0.1030744154232668D+01
        ws( 13) = 0.1046372739712421D+01
        ws( 14) = 0.1062385735995436D+01
        ws( 15) = 0.1115790351581939D+01
        ws( 16) = 0.1248538319884258D+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 =  17
        err = 0.3340619020677924D-10
        xs(  1) = 0.7344742152146084D+00
        xs(  2) = 0.1686168805887116D+01
        xs(  3) = 0.2645052191493442D+01
        xs(  4) = 0.3607459845112509D+01
        xs(  5) = 0.4573402508847664D+01
        xs(  6) = 0.5543399768160709D+01
        xs(  7) = 0.6518104054980891D+01
        xs(  8) = 0.7498195863337296D+01
        xs(  9) = 0.8484373740738445D+01
        xs( 10) = 0.9477349115368535D+01
        xs( 11) = 0.1047782477653231D+02
        xs( 12) = 0.1148657974151798D+02
        xs( 13) = 0.1250434144988928D+02
        xs( 14) = 0.1353190807660980D+02
        xs( 15) = 0.1457004695861667D+02
        xs( 16) = 0.1561864519022481D+02
        xs( 17) = 0.1667035454339173D+02
        ws(  1) = 0.9425230856913603D+00
        ws(  2) = 0.9568537978971751D+00
        ws(  3) = 0.9608774894733333D+00
        ws(  4) = 0.9642377520461642D+00
        ws(  5) = 0.9679882647261305D+00
        ws(  6) = 0.9723907828162168D+00
        ws(  7) = 0.9774549783883255D+00
        ws(  8) = 0.9832812182792282D+00
        ws(  9) = 0.9898253701113733D+00
        ws( 10) = 0.9971694289825157D+00
        ws( 11) = 0.1005471543468408D+01
        ws( 12) = 0.1014860306118152D+01
        ws( 13) = 0.1025970945110309D+01
        ws( 14) = 0.1039478437541080D+01
        ws( 15) = 0.1059935310483087D+01
        ws( 16) = 0.1085608545735712D+01
        ws( 17) = 0.1266437025611438D+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 =  16
        err = 0.8316258496690035D-10
        xs(  1) = 0.7365327863784549D+00
        xs(  2) = 0.1686732199430851D+01
        xs(  3) = 0.2645520317685019D+01
        xs(  4) = 0.3608571788726453D+01
        xs(  5) = 0.4576009399567664D+01
        xs(  6) = 0.5548064094164605D+01
        xs(  7) = 0.6526102391056802D+01
        xs(  8) = 0.7509779131541115D+01
        xs(  9) = 0.8501058899631891D+01
        xs( 10) = 0.9499183953749045D+01
        xs( 11) = 0.1050601117020960D+02
        xs( 12) = 0.1152154719047420D+02
        xs( 13) = 0.1254487773485013D+02
        xs( 14) = 0.1358208891799036D+02
        xs( 15) = 0.1461022594297983D+02
        xs( 16) = 0.1566815782554677D+02
        ws(  1) = 0.9399350671614055D+00
        ws(  2) = 0.9553242188703686D+00
        ws(  3) = 0.9621297850315451D+00
        ws(  4) = 0.9650214579620362D+00
        ws(  5) = 0.9706367014130332D+00
        ws(  6) = 0.9752364138973397D+00
        ws(  7) = 0.9817680601520278D+00
        ws(  8) = 0.9885937491358744D+00
        ws(  9) = 0.9958406079287183D+00
        ws( 10) = 0.1006008845429299D+01
        ws( 11) = 0.1012980396624625D+01
        ws( 12) = 0.1029711883132287D+01
        ws( 13) = 0.1035992151158896D+01
        ws( 14) = 0.1070974888786287D+01
        ws( 15) = 0.1059027226550136D+01
        ws( 16) = 0.1230762085123671D+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 =  17
        err = 0.8274195260510113D-10
        xs(  1) = 0.7352428272224323D+00
        xs(  2) = 0.1685703868848978D+01
        xs(  3) = 0.2643974584739574D+01
        xs(  4) = 0.3605511318132310D+01
        xs(  5) = 0.4570041634700336D+01
        xs(  6) = 0.5538337519316399D+01
        xs(  7) = 0.6510628982588574D+01
        xs(  8) = 0.7488072656824474D+01
        xs(  9) = 0.8471686666969626D+01
        xs( 10) = 0.9462588355572564D+01
        xs( 11) = 0.1046280956391138D+02
        xs( 12) = 0.1147079688910350D+02
        xs( 13) = 0.1248730915983415D+02
        xs( 14) = 0.1351078364494663D+02
        xs( 15) = 0.1454485995643491D+02
        xs( 16) = 0.1559847266944021D+02
        xs( 17) = 0.1664501233009167D+02
        ws(  1) = 0.9404338793025525D+00
        ws(  2) = 0.9564791960232852D+00
        ws(  3) = 0.9595191913338253D+00
        ws(  4) = 0.9631651660610521D+00
        ws(  5) = 0.9662861878378369D+00
        ws(  6) = 0.9700385407618785D+00
        ws(  7) = 0.9749164243658516D+00
        ws(  8) = 0.9800354660211787D+00
        ws(  9) = 0.9874674537913603D+00
        ws( 10) = 0.9950255578358527D+00
        ws( 11) = 0.1005046668601068D+01
        ws( 12) = 0.1015403787118503D+01
        ws( 13) = 0.1015460251145565D+01
        ws( 14) = 0.1019394640753716D+01
        ws( 15) = 0.1053400381041243D+01
        ws( 16) = 0.1274161889309727D+01
        ws( 17) = 0.1486304368675915D+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 =  17
        err = 0.7133437539796956D-10
        xs(  1) = 0.7275837073944900D+00
        xs(  2) = 0.1669230220998619D+01
        xs(  3) = 0.2616949807053484D+01
        xs(  4) = 0.3567336410134338D+01
        xs(  5) = 0.4520325447490854D+01
        xs(  6) = 0.5476021099720535D+01
        xs(  7) = 0.6434950839483013D+01
        xs(  8) = 0.7397984536477029D+01
        xs(  9) = 0.8366554283294500D+01
        xs( 10) = 0.9340926183889726D+01
        xs( 11) = 0.1032094183149376D+02
        xs( 12) = 0.1131138557009515D+02
        xs( 13) = 0.1231146782097379D+02
        xs( 14) = 0.1331151066722825D+02
        xs( 15) = 0.1434691927619515D+02
        xs( 16) = 0.1537240680957693D+02
        xs( 17) = 0.1639899869732796D+02
        ws(  1) = 0.9319577964345841D+00
        ws(  2) = 0.9461800749266160D+00
        ws(  3) = 0.9495754515689936D+00
        ws(  4) = 0.9518554066897883D+00
        ws(  5) = 0.9543461780521559D+00
        ws(  6) = 0.9568075032054559D+00
        ws(  7) = 0.9601117833810359D+00
        ws(  8) = 0.9650233773834108D+00
        ws(  9) = 0.9709872029270091D+00
        ws( 10) = 0.9776580365729001D+00
        ws( 11) = 0.9859746792239582D+00
        ws( 12) = 0.1000886598382295D+01
        ws( 13) = 0.1010673885548382D+01
        ws( 14) = 0.1012860978649571D+01
        ws( 15) = 0.1103851052784641D+01
        ws( 16) = 0.8952606581680441D+00
        ws( 17) = 0.1568965986059245D+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 =  18
        err = 0.6627268811039173D-10
        xs(  1) = 0.7292422030909032D+00
        xs(  2) = 0.1672347718273199D+01
        xs(  3) = 0.2621909406444399D+01
        xs(  4) = 0.3572893040299574D+01
        xs(  5) = 0.4524910891516699D+01
        xs(  6) = 0.5478352449618853D+01
        xs(  7) = 0.6433621131448422D+01
        xs(  8) = 0.7391529871328692D+01
        xs(  9) = 0.8351855385772060D+01
        xs( 10) = 0.9316142093707024D+01
        xs( 11) = 0.1028569394724617D+02
        xs( 12) = 0.1125638033684199D+02
        xs( 13) = 0.1223848675105845D+02
        xs( 14) = 0.1321838640999270D+02
        xs( 15) = 0.1421004670787119D+02
        xs( 16) = 0.1518753930949214D+02
        xs( 17) = 0.1628401825276429D+02
        xs( 18) = 0.1715150386781732D+02
        ws(  1) = 0.9334597164576247D+00
        ws(  2) = 0.9480450414939731D+00
        ws(  3) = 0.9504809017125442D+00
        ws(  4) = 0.9518234898735415D+00
        ws(  5) = 0.9524502488431588D+00
        ws(  6) = 0.9542952051773594D+00
        ws(  7) = 0.9563373329503397D+00
        ws(  8) = 0.9582848274406344D+00
        ws(  9) = 0.9619542809446486D+00
        ws( 10) = 0.9657717309706677D+00
        ws( 11) = 0.9708918119729817D+00
        ws( 12) = 0.9731994124092957D+00
        ws( 13) = 0.9856071880485249D+00
        ws( 14) = 0.9770460477372378D+00
        ws( 15) = 0.1032150415296876D+01
        ws( 16) = 0.8790430713731320D+00
        ws( 17) = 0.1251173357649336D+01
        ws( 18) = 0.1466118143142286D+01
        endif
        if( idomain .eq.  287 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.1570796326794897D+02
        rk1r = 0.1256637061435917D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =  19
        err = 0.8930862093623781D-10
        xs(  1) = 0.7324630671043394D+00
        xs(  2) = 0.1679895982986102D+01
        xs(  3) = 0.2632185042102698D+01
        xs(  4) = 0.3584551521463274D+01
        xs(  5) = 0.4536325165350220D+01
        xs(  6) = 0.5487643619157326D+01
        xs(  7) = 0.6438776486758060D+01
        xs(  8) = 0.7390157972556937D+01
        xs(  9) = 0.8342410863658905D+01
        xs( 10) = 0.9296265239215227D+01
        xs( 11) = 0.1025222259684645D+02
        xs( 12) = 0.1121069622897946D+02
        xs( 13) = 0.1217145003953884D+02
        xs( 14) = 0.1313495541137256D+02
        xs( 15) = 0.1409756679304962D+02
        xs( 16) = 0.1507053587203041D+02
        xs( 17) = 0.1606890791498157D+02
        xs( 18) = 0.1712458795851512D+02
        xs( 19) = 0.1803721225771351D+02
        ws(  1) = 0.9378365574853195D+00
        ws(  2) = 0.9513538793288021D+00
        ws(  3) = 0.9526425082203611D+00
        ws(  4) = 0.9523480824368932D+00
        ws(  5) = 0.9516847169734817D+00
        ws(  6) = 0.9512521760089137D+00
        ws(  7) = 0.9510372788928131D+00
        ws(  8) = 0.9513462707394594D+00
        ws(  9) = 0.9524880862396868D+00
        ws( 10) = 0.9539259182472455D+00
        ws( 11) = 0.9561649845902715D+00
        ws( 12) = 0.9585799961839980D+00
        ws( 13) = 0.9596113184589482D+00
        ws( 14) = 0.9642679628045473D+00
        ws( 15) = 0.9693574766902389D+00
        ws( 16) = 0.9621527808180173D+00
        ws( 17) = 0.9685609759288994D+00
        ws( 18) = 0.1238937403356356D+01
        ws( 19) = 0.1388248247853837D+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 =  21
        err = 0.6896666856799967D-10
        xs(  1) = 0.6991340410655322D+00
        xs(  2) = 0.1604166047275049D+01
        xs(  3) = 0.2510820815165457D+01
        xs(  4) = 0.3412865574083629D+01
        xs(  5) = 0.4306609071211179D+01
        xs(  6) = 0.5189038563962997D+01
        xs(  7) = 0.6058508662572503D+01
        xs(  8) = 0.6917646748999177D+01
        xs(  9) = 0.7774291659416048D+01
        xs( 10) = 0.8638620252950080D+01
        xs( 11) = 0.9517033553708050D+01
        xs( 12) = 0.1041069491432358D+02
        xs( 13) = 0.1131834257032457D+02
        xs( 14) = 0.1223836814844829D+02
        xs( 15) = 0.1316799531452934D+02
        xs( 16) = 0.1410938993601403D+02
        xs( 17) = 0.1506280514272172D+02
        xs( 18) = 0.1598096269520666D+02
        xs( 19) = 0.1702234639883732D+02
        xs( 20) = 0.1794652799139611D+02
        xs( 21) = 0.1996362686491195D+02
        ws(  1) = 0.8981756771908804D+00
        ws(  2) = 0.9072645703973818D+00
        ws(  3) = 0.9046426319136380D+00
        ws(  4) = 0.8983452800168886D+00
        ws(  5) = 0.8888602260129360D+00
        ws(  6) = 0.8762885508928999D+00
        ws(  7) = 0.8635549116064265D+00
        ws(  8) = 0.8562238793991497D+00
        ws(  9) = 0.8586352110179593D+00
        ws( 10) = 0.8702257809143947D+00
        ws( 11) = 0.8855113252425904D+00
        ws( 12) = 0.9001529897511622D+00
        ws( 13) = 0.9128307627551721D+00
        ws( 14) = 0.9253616266052623D+00
        ws( 15) = 0.9357635693955192D+00
        ws( 16) = 0.9292652493287065D+00
        ws( 17) = 0.9826851203214685D+00
        ws( 18) = 0.9372254623374507D+00
        ws( 19) = 0.8983509250984980D+00
        ws( 20) = 0.1373088677523350D+01
        ws( 21) = 0.2135693647334926D+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 =  22
        err = 0.8322085836839430D-10
        xs(  1) = 0.7355954534381104D+00
        xs(  2) = 0.1687867916220497D+01
        xs(  3) = 0.2645212255310703D+01
        xs(  4) = 0.3602501166412593D+01
        xs(  5) = 0.4558945420115033D+01
        xs(  6) = 0.5514244182014738D+01
        xs(  7) = 0.6468417013980427D+01
        xs(  8) = 0.7421840222353421D+01
        xs(  9) = 0.8374271303893481D+01
        xs( 10) = 0.9326101597250624D+01
        xs( 11) = 0.1027830640305777D+02
        xs( 12) = 0.1123031561401799D+02
        xs( 13) = 0.1218322805055269D+02
        xs( 14) = 0.1313895610832672D+02
        xs( 15) = 0.1409558719487089D+02
        xs( 16) = 0.1505821533220889D+02
        xs( 17) = 0.1601940431064312D+02
        xs( 18) = 0.1700378528476436D+02
        xs( 19) = 0.1794590802293478D+02
        xs( 20) = 0.1897341904872643D+02
        xs( 21) = 0.2004824432067891D+02
        xs( 22) = 0.2098422324081280D+02
        ws(  1) = 0.9441050233704172D+00
        ws(  2) = 0.9563919535836422D+00
        ws(  3) = 0.9573659076294955D+00
        ws(  4) = 0.9572027079365067D+00
        ws(  5) = 0.9559676209545754D+00
        ws(  6) = 0.9548655288209860D+00
        ws(  7) = 0.9537906835923983D+00
        ws(  8) = 0.9527788439561425D+00
        ws(  9) = 0.9520233481780763D+00
        ws( 10) = 0.9513401390071090D+00
        ws( 11) = 0.9521366860992426D+00
        ws( 12) = 0.9519478268187838D+00
        ws( 13) = 0.9532422442436873D+00
        ws( 14) = 0.9544390738001698D+00
        ws( 15) = 0.9644478654810227D+00
        ws( 16) = 0.9651885024558629D+00
        ws( 17) = 0.9539494522721474D+00
        ws( 18) = 0.9594471584923997D+00
        ws( 19) = 0.1059402100286791D+01
        ws( 20) = 0.7154052470069086D+00
        ws( 21) = 0.1065740235937616D+01
        ws( 22) = 0.1935847325771977D+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 =  24
        err = 0.8744679318484072D-10
        xs(  1) = 0.7433318705184286D+00
        xs(  2) = 0.1705619053151959D+01
        xs(  3) = 0.2672714823863358D+01
        xs(  4) = 0.3639944991344220D+01
        xs(  5) = 0.4605956389241250D+01
        xs(  6) = 0.5570318207303046D+01
        xs(  7) = 0.6533104779693248D+01
        xs(  8) = 0.7494347561359972D+01
        xs(  9) = 0.8453900081212815D+01
        xs( 10) = 0.9411681546149548D+01
        xs( 11) = 0.1036852189470353D+02
        xs( 12) = 0.1132411616541026D+02
        xs( 13) = 0.1227878623671400D+02
        xs( 14) = 0.1323284632301160D+02
        xs( 15) = 0.1418842292167523D+02
        xs( 16) = 0.1514230056375889D+02
        xs( 17) = 0.1610528294148690D+02
        xs( 18) = 0.1705766284374394D+02
        xs( 19) = 0.1802826947451745D+02
        xs( 20) = 0.1898607842766940D+02
        xs( 21) = 0.1994465511034765D+02
        xs( 22) = 0.2093062183913116D+02
        xs( 23) = 0.2192959082069915D+02
        xs( 24) = 0.2295207803733717D+02
        ws(  1) = 0.9530399048476771D+00
        ws(  2) = 0.9666638643569387D+00
        ws(  3) = 0.9677413998934129D+00
        ws(  4) = 0.9666454497508989D+00
        ws(  5) = 0.9652310390812709D+00
        ws(  6) = 0.9635675065911918D+00
        ws(  7) = 0.9621146146939847D+00
        ws(  8) = 0.9604198834667764D+00
        ws(  9) = 0.9584385770363471D+00
        ws( 10) = 0.9570774811423061D+00
        ws( 11) = 0.9563338073678039D+00
        ws( 12) = 0.9545225291275705D+00
        ws( 13) = 0.9550797013387938D+00
        ws( 14) = 0.9527449906217367D+00
        ws( 15) = 0.9563673999156916D+00
        ws( 16) = 0.9621590202743283D+00
        ws( 17) = 0.9577948597152448D+00
        ws( 18) = 0.9503245606164649D+00
        ws( 19) = 0.9395333958407892D+00
        ws( 20) = 0.1003876531325410D+01
        ws( 21) = 0.9231246062026466D+00
        ws( 22) = 0.7548196671689715D+00
        ws( 23) = 0.1498987095892889D+01
        ws( 24) = 0.1148630822294389D+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 =  25
        err = 0.7502258368689456D-10
        xs(  1) = 0.7503680199877620D+00
        xs(  2) = 0.1722463404591375D+01
        xs(  3) = 0.2699347593020397D+01
        xs(  4) = 0.3675718049099565D+01
        xs(  5) = 0.4650633722324842D+01
        xs(  6) = 0.5623576177970819D+01
        xs(  7) = 0.6594494907113489D+01
        xs(  8) = 0.7563428208068865D+01
        xs(  9) = 0.8530014428373615D+01
        xs( 10) = 0.9494206939180192D+01
        xs( 11) = 0.1045610322467330D+02
        xs( 12) = 0.1141658425783472D+02
        xs( 13) = 0.1237287488118205D+02
        xs( 14) = 0.1333201094567289D+02
        xs( 15) = 0.1428355128476287D+02
        xs( 16) = 0.1524029938465387D+02
        xs( 17) = 0.1618817514176715D+02
        xs( 18) = 0.1715114678708056D+02
        xs( 19) = 0.1808326153725741D+02
        xs( 20) = 0.1906449752218904D+02
        xs( 21) = 0.2003497107231965D+02
        xs( 22) = 0.2096552472836883D+02
        xs( 23) = 0.2194257925710614D+02
        xs( 24) = 0.2280251777745309D+02
        xs( 25) = 0.2384424930439477D+02
        ws(  1) = 0.9647616932733459D+00
        ws(  2) = 0.9759298841803494D+00
        ws(  3) = 0.9766021699745984D+00
        ws(  4) = 0.9759856554552180D+00
        ws(  5) = 0.9741757326742621D+00
        ws(  6) = 0.9721570221409607D+00
        ws(  7) = 0.9698828545231543D+00
        ws(  8) = 0.9677519630274675D+00
        ws(  9) = 0.9651008021626857D+00
        ws( 10) = 0.9629070312718714D+00
        ws( 11) = 0.9600970998704651D+00
        ws( 12) = 0.9601795112184177D+00
        ws( 13) = 0.9554811224081108D+00
        ws( 14) = 0.9534800244807470D+00
        ws( 15) = 0.9609188486481868D+00
        ws( 16) = 0.9510275102828696D+00
        ws( 17) = 0.9515125709590344D+00
        ws( 18) = 0.9514836267557133D+00
        ws( 19) = 0.9610188444971882D+00
        ws( 20) = 0.8733695672485849D+00
        ws( 21) = 0.9944626354304535D+00
        ws( 22) = 0.1103158054205148D+01
        ws( 23) = 0.6512119362519914D+00
        ws( 24) = 0.9453438892373585D+00
        ws( 25) = 0.1302311061488872D+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 =  26
        err = 0.9645570903481310D-10
        xs(  1) = 0.7620260310247362D+00
        xs(  2) = 0.1742886407821172D+01
        xs(  3) = 0.2730362449365501D+01
        xs(  4) = 0.3717246706305564D+01
        xs(  5) = 0.4702447040827084D+01
        xs(  6) = 0.5685581824007733D+01
        xs(  7) = 0.6666201930625864D+01
        xs(  8) = 0.7645303369456983D+01
        xs(  9) = 0.8621348995448502D+01
        xs( 10) = 0.9595686078246120D+01
        xs( 11) = 0.1056513422055930D+02
        xs( 12) = 0.1153622140227250D+02
        xs( 13) = 0.1250039559162449D+02
        xs( 14) = 0.1346403891847369D+02
        xs( 15) = 0.1442639833028375D+02
        xs( 16) = 0.1538495052395101D+02
        xs( 17) = 0.1634317550979759D+02
        xs( 18) = 0.1730727670445603D+02
        xs( 19) = 0.1824901765575259D+02
        xs( 20) = 0.1921563562703375D+02
        xs( 21) = 0.2017407473710985D+02
        xs( 22) = 0.2112802089382787D+02
        xs( 23) = 0.2212967488382579D+02
        xs( 24) = 0.2298139621712626D+02
        xs( 25) = 0.2377494504181640D+02
        xs( 26) = 0.2521111440342125D+02
        ws(  1) = 0.9707770296453127D+00
        ws(  2) = 0.9871931184504690D+00
        ws(  3) = 0.9872235644467328D+00
        ws(  4) = 0.9866705354953257D+00
        ws(  5) = 0.9837727815529277D+00
        ws(  6) = 0.9818085081301580D+00
        ws(  7) = 0.9793144276818295D+00
        ws(  8) = 0.9775515407421166D+00
        ws(  9) = 0.9752000950531433D+00
        ws( 10) = 0.9718322401383380D+00
        ws( 11) = 0.9723340824185447D+00
        ws( 12) = 0.9632424165384499D+00
        ws( 13) = 0.9733363648090114D+00
        ws( 14) = 0.9539909849853691D+00
        ws( 15) = 0.9655078618346149D+00
        ws( 16) = 0.9596293735199113D+00
        ws( 17) = 0.9579404089412487D+00
        ws( 18) = 0.9561552980205589D+00
        ws( 19) = 0.9524014867669813D+00
        ws( 20) = 0.9551399397016044D+00
        ws( 21) = 0.9868984293079797D+00
        ws( 22) = 0.9558457532409538D+00
        ws( 23) = 0.9912933091196151D+00
        ws( 24) = 0.7890850182460564D+00
        ws( 25) = 0.6894104266790217D+00
        ws( 26) = 0.2087203051804215D+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 =  29
        err = 0.4509861253212476D-10
        xs(  1) = 0.7503507401131140D+00
        xs(  2) = 0.1724637948848465D+01
        xs(  3) = 0.2702505614037089D+01
        xs(  4) = 0.3680993457955485D+01
        xs(  5) = 0.4658256773485251D+01
        xs(  6) = 0.5633740328413678D+01
        xs(  7) = 0.6607652540477539D+01
        xs(  8) = 0.7578698037136674D+01
        xs(  9) = 0.8548404810404213D+01
        xs( 10) = 0.9514061687692598D+01
        xs( 11) = 0.1047883822215838D+02
        xs( 12) = 0.1143876474055960D+02
        xs( 13) = 0.1239834758644917D+02
        xs( 14) = 0.1335327238201281D+02
        xs( 15) = 0.1430696677067663D+02
        xs( 16) = 0.1525679589845394D+02
        xs( 17) = 0.1620589637118648D+02
        xs( 18) = 0.1715179240518815D+02
        xs( 19) = 0.1809622186896002D+02
        xs( 20) = 0.1903844426440540D+02
        xs( 21) = 0.1998295373642322D+02
        xs( 22) = 0.2091997414680466D+02
        xs( 23) = 0.2186915716750051D+02
        xs( 24) = 0.2279890768257287D+02
        xs( 25) = 0.2374062689346517D+02
        xs( 26) = 0.2468396495863333D+02
        xs( 27) = 0.2560124593320520D+02
        xs( 28) = 0.2664240722322785D+02
        xs( 29) = 0.2760368198078382D+02
        ws(  1) = 0.9646708655746752D+00
        ws(  2) = 0.9772800173377697D+00
        ws(  3) = 0.9791024100388115D+00
        ws(  4) = 0.9773351899955423D+00
        ws(  5) = 0.9767704604840266D+00
        ws(  6) = 0.9741859908728207D+00
        ws(  7) = 0.9729848238112011D+00
        ws(  8) = 0.9700594736453243D+00
        ws(  9) = 0.9680288822282165D+00
        ws( 10) = 0.9648601171804289D+00
        ws( 11) = 0.9629039203335017D+00
        ws( 12) = 0.9593911860563560D+00
        ws( 13) = 0.9569833440123700D+00
        ws( 14) = 0.9534133584058618D+00
        ws( 15) = 0.9553618825283672D+00
        ws( 16) = 0.9466819125943974D+00
        ws( 17) = 0.9466130569726926D+00
        ws( 18) = 0.9471889362733763D+00
        ws( 19) = 0.9435554789161820D+00
        ws( 20) = 0.9413382403490971D+00
        ws( 21) = 0.9375561301746964D+00
        ws( 22) = 0.9304654869842838D+00
        ws( 23) = 0.9670893418520056D+00
        ws( 24) = 0.9499750550350247D+00
        ws( 25) = 0.9018072862648681D+00
        ws( 26) = 0.9323373738222293D+00
        ws( 27) = 0.6397000525742756D+00
        ws( 28) = 0.1222992444238194D+01
        ws( 29) = 0.1543548718692449D+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 =  30
        err = 0.9166932509340740D-10
        xs(  1) = 0.7600315332350818D+00
        xs(  2) = 0.1741197642703915D+01
        xs(  3) = 0.2728692241841911D+01
        xs(  4) = 0.3715896242520156D+01
        xs(  5) = 0.4702325949502362D+01
        xs(  6) = 0.5686815809252495D+01
        xs(  7) = 0.6669127590463767D+01
        xs(  8) = 0.7649942150812327D+01
        xs(  9) = 0.8627441676378965D+01
        xs( 10) = 0.9602725017235549D+01
        xs( 11) = 0.1057626209867689D+02
        xs( 12) = 0.1154455555095377D+02
        xs( 13) = 0.1251266447629225D+02
        xs( 14) = 0.1347539647085573D+02
        xs( 15) = 0.1443834599671267D+02
        xs( 16) = 0.1539526616398981D+02
        xs( 17) = 0.1635100520709195D+02
        xs( 18) = 0.1730337890496149D+02
        xs( 19) = 0.1825573438132361D+02
        xs( 20) = 0.1920194415947520D+02
        xs( 21) = 0.2014763158030649D+02
        xs( 22) = 0.2109278426941086D+02
        xs( 23) = 0.2203507117121144D+02
        xs( 24) = 0.2298044810821948D+02
        xs( 25) = 0.2391959808552935D+02
        xs( 26) = 0.2483408709580807D+02
        xs( 27) = 0.2581947149526902D+02
        xs( 28) = 0.2663109604135736D+02
        xs( 29) = 0.2771273455187882D+02
        xs( 30) = 0.2878715670015189D+02
        ws(  1) = 0.9712866015046462D+00
        ws(  2) = 0.9865826676605278D+00
        ws(  3) = 0.9871133843049034D+00
        ws(  4) = 0.9876123865540420D+00
        ws(  5) = 0.9844645329644403D+00
        ws(  6) = 0.9848034590661150D+00
        ws(  7) = 0.9790624873705145D+00
        ws(  8) = 0.9812232586805288D+00
        ws(  9) = 0.9752036737080596D+00
        ws( 10) = 0.9753662453344880D+00
        ws( 11) = 0.9687699588942332D+00
        ws( 12) = 0.9725327279385284D+00
        ws( 13) = 0.9647028427911238D+00
        ws( 14) = 0.9607580843427636D+00
        ws( 15) = 0.9629358564486995D+00
        ws( 16) = 0.9548774648318340D+00
        ws( 17) = 0.9565348531270556D+00
        ws( 18) = 0.9487730016318398D+00
        ws( 19) = 0.9479022277866365D+00
        ws( 20) = 0.9543362096088999D+00
        ws( 21) = 0.9439404417504607D+00
        ws( 22) = 0.9361218199628114D+00
        ws( 23) = 0.9754114089726560D+00
        ws( 24) = 0.9317146247704322D+00
        ws( 25) = 0.9345765355108948D+00
        ws( 26) = 0.8670307900553541D+00
        ws( 27) = 0.8999434239868572D+00
        ws( 28) = 0.9857170924664245D+00
        ws( 29) = 0.7626469313928425D+00
        ws( 30) = 0.1636549405199877D+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 =  33
        err = 0.8676044686913027D-10
        xs(  1) = 0.7667722248264216D+00
        xs(  2) = 0.1752114374169409D+01
        xs(  3) = 0.2746757415189639D+01
        xs(  4) = 0.3739196457909835D+01
        xs(  5) = 0.4732689722030069D+01
        xs(  6) = 0.5721360177856694D+01
        xs(  7) = 0.6712403291496267D+01
        xs(  8) = 0.7696698720815541D+01
        xs(  9) = 0.8681596933320360D+01
        xs( 10) = 0.9662873072895458D+01
        xs( 11) = 0.1064164146071643D+02
        xs( 12) = 0.1161746590302699D+02
        xs( 13) = 0.1258978343538475D+02
        xs( 14) = 0.1355991523705086D+02
        xs( 15) = 0.1452590561952402D+02
        xs( 16) = 0.1548990505288964D+02
        xs( 17) = 0.1645019382144494D+02
        xs( 18) = 0.1740881200987600D+02
        xs( 19) = 0.1836202674802479D+02
        xs( 20) = 0.1931312818431530D+02
        xs( 21) = 0.2026159297043088D+02
        xs( 22) = 0.2120774260062493D+02
        xs( 23) = 0.2214986610696628D+02
        xs( 24) = 0.2308806015480746D+02
        xs( 25) = 0.2402455009198220D+02
        xs( 26) = 0.2497098922913478D+02
        xs( 27) = 0.2589977462704731D+02
        xs( 28) = 0.2681487261178815D+02
        xs( 29) = 0.2773315301619294D+02
        xs( 30) = 0.2866163953997075D+02
        xs( 31) = 0.2953060520640271D+02
        xs( 32) = 0.3125102053370744D+02
        xs( 33) = 0.3209525205075970D+02
        ws(  1) = 0.9792843607649454D+00
        ws(  2) = 0.9910626258275040D+00
        ws(  3) = 0.9935731317357142D+00
        ws(  4) = 0.9929068669628137D+00
        ws(  5) = 0.9928063964961311D+00
        ws(  6) = 0.9883795607522816D+00
        ws(  7) = 0.9864965201086362D+00
        ws(  8) = 0.9866246751617044D+00
        ws(  9) = 0.9843863355959739D+00
        ws( 10) = 0.9770565588829488D+00
        ws( 11) = 0.9785179665252599D+00
        ws( 12) = 0.9742905012529286D+00
        ws( 13) = 0.9718890359696074D+00
        ws( 14) = 0.9684129086309470D+00
        ws( 15) = 0.9675272375067580D+00
        ws( 16) = 0.9572986412388887D+00
        ws( 17) = 0.9600173445333604D+00
        ws( 18) = 0.9540336006977436D+00
        ws( 19) = 0.9545984309693452D+00
        ws( 20) = 0.9584430125658142D+00
        ws( 21) = 0.9470772689182198D+00
        ws( 22) = 0.9332830775928926D+00
        ws( 23) = 0.9560743099094652D+00
        ws( 24) = 0.9346656072007504D+00
        ws( 25) = 0.9472956299255124D+00
        ws( 26) = 0.9618176712834985D+00
        ws( 27) = 0.8890762391635255D+00
        ws( 28) = 0.9714065642458052D+00
        ws( 29) = 0.9724949452516535D+00
        ws( 30) = 0.9964405989027610D+00
        ws( 31) = 0.1092562795965674D+01
        ws( 32) = 0.9994851831686610D+00
        ws( 33) = 0.2572791941248130D+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 =  35
        err = 0.6029010401091499D-10
        xs(  1) = 0.7643303949843221D+00
        xs(  2) = 0.1756104703521569D+01
        xs(  3) = 0.2751688789204166D+01
        xs(  4) = 0.3748464439191591D+01
        xs(  5) = 0.4744213704444687D+01
        xs(  6) = 0.5737443718129765D+01
        xs(  7) = 0.6730429014442976D+01
        xs(  8) = 0.7720666936814751D+01
        xs(  9) = 0.8708328181779189D+01
        xs( 10) = 0.9694825637664211D+01
        xs( 11) = 0.1067733707677861D+02
        xs( 12) = 0.1165747534061584D+02
        xs( 13) = 0.1263576693437824D+02
        xs( 14) = 0.1361057547434701D+02
        xs( 15) = 0.1458139073671127D+02
        xs( 16) = 0.1555157782309962D+02
        xs( 17) = 0.1651707417652499D+02
        xs( 18) = 0.1747879425061331D+02
        xs( 19) = 0.1844061430566394D+02
        xs( 20) = 0.1939561370960297D+02
        xs( 21) = 0.2034988525559185D+02
        xs( 22) = 0.2130184398509055D+02
        xs( 23) = 0.2225156798779610D+02
        xs( 24) = 0.2319303912136876D+02
        xs( 25) = 0.2414080453004213D+02
        xs( 26) = 0.2508051908631607D+02
        xs( 27) = 0.2601688964661558D+02
        xs( 28) = 0.2696408017511849D+02
        xs( 29) = 0.2789896363388953D+02
        xs( 30) = 0.2882892035825903D+02
        xs( 31) = 0.2975846022115970D+02
        xs( 32) = 0.3062968846127870D+02
        xs( 33) = 0.3159843712384960D+02
        xs( 34) = 0.3269239256262432D+02
        xs( 35) = 0.3379110384121582D+02
        ws(  1) = 0.9769913067792000D+00
        ws(  2) = 0.1000348036230224D+01
        ws(  3) = 0.9938211507215561D+00
        ws(  4) = 0.9966815462986442D+00
        ws(  5) = 0.9955345700872859D+00
        ws(  6) = 0.9917458672525322D+00
        ws(  7) = 0.9927547110058633D+00
        ws(  8) = 0.9881415132250264D+00
        ws(  9) = 0.9873361960904363D+00
        ws( 10) = 0.9853491844320622D+00
        ws( 11) = 0.9814899574132085D+00
        ws( 12) = 0.9793679088293870D+00
        ws( 13) = 0.9751422936684641D+00
        ws( 14) = 0.9731314606829801D+00
        ws( 15) = 0.9698535267908968D+00
        ws( 16) = 0.9682669883912522D+00
        ws( 17) = 0.9642701092215505D+00
        ws( 18) = 0.9603096407403710D+00
        ws( 19) = 0.9590822045498302D+00
        ws( 20) = 0.9548099325653040D+00
        ws( 21) = 0.9537993722697206D+00
        ws( 22) = 0.9464837394593857D+00
        ws( 23) = 0.9498424412759281D+00
        ws( 24) = 0.9434643608169769D+00
        ws( 25) = 0.9460280774584032D+00
        ws( 26) = 0.9328358453615588D+00
        ws( 27) = 0.9355287522437944D+00
        ws( 28) = 0.9471987194317260D+00
        ws( 29) = 0.9695351101182913D+00
        ws( 30) = 0.8967493059316033D+00
        ws( 31) = 0.9628229661271456D+00
        ws( 32) = 0.8152377588575099D+00
        ws( 33) = 0.9848862563379257D+00
        ws( 34) = 0.9085215025224760D+00
        ws( 35) = 0.1834187568672723D+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 =  37
        err = 0.8668146635521853D-10
        xs(  1) = 0.7733403764602866D+00
        xs(  2) = 0.1763394989968906D+01
        xs(  3) = 0.2767559599179610D+01
        xs(  4) = 0.3766670649546943D+01
        xs(  5) = 0.4767965093988440D+01
        xs(  6) = 0.5766222217554199D+01
        xs(  7) = 0.6763515481607247D+01
        xs(  8) = 0.7758899816845213D+01
        xs(  9) = 0.8751464680766629D+01
        xs( 10) = 0.9742675375828052D+01
        xs( 11) = 0.1073024327762270D+02
        xs( 12) = 0.1171597387088358D+02
        xs( 13) = 0.1269894334627074D+02
        xs( 14) = 0.1367807067605030D+02
        xs( 15) = 0.1465531156113856D+02
        xs( 16) = 0.1562862979837864D+02
        xs( 17) = 0.1659942796796423D+02
        xs( 18) = 0.1756712180169521D+02
        xs( 19) = 0.1853269005752295D+02
        xs( 20) = 0.1949245251371459D+02
        xs( 21) = 0.2045041827396450D+02
        xs( 22) = 0.2140697558992528D+02
        xs( 23) = 0.2235704561396024D+02
        xs( 24) = 0.2330779825003719D+02
        xs( 25) = 0.2425275674827521D+02
        xs( 26) = 0.2519559878843109D+02
        xs( 27) = 0.2613239880526039D+02
        xs( 28) = 0.2707402401037469D+02
        xs( 29) = 0.2800575326659250D+02
        xs( 30) = 0.2894455069056804D+02
        xs( 31) = 0.2988428256985813D+02
        xs( 32) = 0.3080026213885860D+02
        xs( 33) = 0.3168473687029140D+02
        xs( 34) = 0.3262244859005792D+02
        xs( 35) = 0.3361188064250023D+02
        xs( 36) = 0.3449503678023452D+02
        xs( 37) = 0.3597738903177366D+02
        ws(  1) = 0.9820521670830104D+00
        ws(  2) = 0.1002141163032671D+01
        ws(  3) = 0.1000121429012426D+01
        ws(  4) = 0.9997331801908852D+00
        ws(  5) = 0.1002241955530708D+01
        ws(  6) = 0.9963392615691027D+00
        ws(  7) = 0.9960510827656374D+00
        ws(  8) = 0.9941267143818274D+00
        ws(  9) = 0.9923700439026027D+00
        ws( 10) = 0.9901424198572331D+00
        ws( 11) = 0.9858596709640997D+00
        ws( 12) = 0.9837693944741077D+00
        ws( 13) = 0.9814581883226938D+00
        ws( 14) = 0.9774136425967312D+00
        ws( 15) = 0.9771800828533329D+00
        ws( 16) = 0.9720433227735765D+00
        ws( 17) = 0.9693097932103930D+00
        ws( 18) = 0.9643137495014887D+00
        ws( 19) = 0.9634097348439146D+00
        ws( 20) = 0.9595435517135495D+00
        ws( 21) = 0.9571982602757246D+00
        ws( 22) = 0.9558272859244112D+00
        ws( 23) = 0.9469200088353494D+00
        ws( 24) = 0.9452233354740860D+00
        ws( 25) = 0.9451368784525430D+00
        ws( 26) = 0.9442298946046026D+00
        ws( 27) = 0.9348907885037268D+00
        ws( 28) = 0.9304189184319654D+00
        ws( 29) = 0.9292947437010065D+00
        ws( 30) = 0.9243580644172275D+00
        ws( 31) = 0.9427529907307578D+00
        ws( 32) = 0.8563686584570184D+00
        ws( 33) = 0.9191530163956370D+00
        ws( 34) = 0.8565036358725008D+00
        ws( 35) = 0.7250115596438506D+00
        ws( 36) = 0.1082197316918213D+01
        ws( 37) = 0.1273836965942260D+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 =  39
        err = 0.5945401748066135D-10
        xs(  1) = 0.7772353677031704D+00
        xs(  2) = 0.1771968361421636D+01
        xs(  3) = 0.2774339454809418D+01
        xs(  4) = 0.3778308492369912D+01
        xs(  5) = 0.4781991070200265D+01
        xs(  6) = 0.5783121443459643D+01
        xs(  7) = 0.6784440177746324D+01
        xs(  8) = 0.7782603062485602D+01
        xs(  9) = 0.8779321555874306D+01
        xs( 10) = 0.9773762066051425D+01
        xs( 11) = 0.1076633066969388D+02
        xs( 12) = 0.1175621104998781D+02
        xs( 13) = 0.1274323878497644D+02
        xs( 14) = 0.1372795380669098D+02
        xs( 15) = 0.1470981063628325D+02
        xs( 16) = 0.1568839922355367D+02
        xs( 17) = 0.1666466322531988D+02
        xs( 18) = 0.1763870134218128D+02
        xs( 19) = 0.1860917232792365D+02
        xs( 20) = 0.1957597973648987D+02
        xs( 21) = 0.2054060024925785D+02
        xs( 22) = 0.2150267870961118D+02
        xs( 23) = 0.2246014709874680D+02
        xs( 24) = 0.2341756136969950D+02
        xs( 25) = 0.2437058513537796D+02
        xs( 26) = 0.2532027929505853D+02
        xs( 27) = 0.2626827037741719D+02
        xs( 28) = 0.2721343257993321D+02
        xs( 29) = 0.2815730703912623D+02
        xs( 30) = 0.2909630338930888D+02
        xs( 31) = 0.3003687195586488D+02
        xs( 32) = 0.3098080041931341D+02
        xs( 33) = 0.3190495884824916D+02
        xs( 34) = 0.3285296555128790D+02
        xs( 35) = 0.3378769833148691D+02
        xs( 36) = 0.3474382111905035D+02
        xs( 37) = 0.3557036999338891D+02
        xs( 38) = 0.3662985282118954D+02
        xs( 39) = 0.3767877877995842D+02
        ws(  1) = 0.9902587127019687D+00
        ws(  2) = 0.9974202061347541D+00
        ws(  3) = 0.1006006823478177D+01
        ws(  4) = 0.1003752996456671D+01
        ws(  5) = 0.1001706982281872D+01
        ws(  6) = 0.1001511422973032D+01
        ws(  7) = 0.9992316644496750D+00
        ws(  8) = 0.9976087390933767D+00
        ws(  9) = 0.9967463268092258D+00
        ws( 10) = 0.9937449941990105D+00
        ws( 11) = 0.9900064563778112D+00
        ws( 12) = 0.9878034023281510D+00
        ws( 13) = 0.9868557411145646D+00
        ws( 14) = 0.9829043769876868D+00
        ws( 15) = 0.9818559034280236D+00
        ws( 16) = 0.9771804644201322D+00
        ws( 17) = 0.9736965304647216D+00
        ws( 18) = 0.9707057501280590D+00
        ws( 19) = 0.9698784721872955D+00
        ws( 20) = 0.9674508942484928D+00
        ws( 21) = 0.9629136920321506D+00
        ws( 22) = 0.9608774426286435D+00
        ws( 23) = 0.9557883366262451D+00
        ws( 24) = 0.9506191747689526D+00
        ws( 25) = 0.9515233119708550D+00
        ws( 26) = 0.9546249364954371D+00
        ws( 27) = 0.9493243958258551D+00
        ws( 28) = 0.9353274393615472D+00
        ws( 29) = 0.9380517886419170D+00
        ws( 30) = 0.9369490119432810D+00
        ws( 31) = 0.9262996292356653D+00
        ws( 32) = 0.9499073200812611D+00
        ws( 33) = 0.9237898671082652D+00
        ws( 34) = 0.9009024696751271D+00
        ws( 35) = 0.8464446354293074D+00
        ws( 36) = 0.9024365074808977D+00
        ws( 37) = 0.7334442472730223D+00
        ws( 38) = 0.8262565286790041D+00
        ws( 39) = 0.9322388772346591D+00
        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 =  41
        err = 0.8103183700950637D-10
        xs(  1) = 0.7874647676888347D+00
        xs(  2) = 0.1779594848025729D+01
        xs(  3) = 0.2788107305891513D+01
        xs(  4) = 0.3795401165831430D+01
        xs(  5) = 0.4803633163214258D+01
        xs(  6) = 0.5808788563170399D+01
        xs(  7) = 0.6815139494694758D+01
        xs(  8) = 0.7817531509304596D+01
        xs(  9) = 0.8818719350095302D+01
        xs( 10) = 0.9817999914628571D+01
        xs( 11) = 0.1081578380796135D+02
        xs( 12) = 0.1181037280091332D+02
        xs( 13) = 0.1280225745302329D+02
        xs( 14) = 0.1379241156088701D+02
        xs( 15) = 0.1477965465084399D+02
        xs( 16) = 0.1576336469071909D+02
        xs( 17) = 0.1674508169460847D+02
        xs( 18) = 0.1772454066464055D+02
        xs( 19) = 0.1870069198734499D+02
        xs( 20) = 0.1967338900274880D+02
        xs( 21) = 0.2064362223648941D+02
        xs( 22) = 0.2161077886753816D+02
        xs( 23) = 0.2257497261897364D+02
        xs( 24) = 0.2353690238157895D+02
        xs( 25) = 0.2449666760251171D+02
        xs( 26) = 0.2545154736884997D+02
        xs( 27) = 0.2640431019599731D+02
        xs( 28) = 0.2735277742908180D+02
        xs( 29) = 0.2830380420690739D+02
        xs( 30) = 0.2924768071653381D+02
        xs( 31) = 0.3018875255115057D+02
        xs( 32) = 0.3113468908228663D+02
        xs( 33) = 0.3206283376854102D+02
        xs( 34) = 0.3300743893369024D+02
        xs( 35) = 0.3395816026948694D+02
        xs( 36) = 0.3486328246750883D+02
        xs( 37) = 0.3580779093186684D+02
        xs( 38) = 0.3666940103899914D+02
        xs( 39) = 0.3779855533241054D+02
        xs( 40) = 0.3865855666344062D+02
        xs( 41) = 0.4026858603956539D+02
        ws(  1) = 0.9864798284197454D+00
        ws(  2) = 0.1003197921054658D+01
        ws(  3) = 0.1010131517421852D+01
        ws(  4) = 0.1009001939495765D+01
        ws(  5) = 0.1004240789928643D+01
        ws(  6) = 0.1006467083205785D+01
        ws(  7) = 0.1004420336312705D+01
        ws(  8) = 0.1001120139674246D+01
        ws(  9) = 0.1002125841251118D+01
        ws( 10) = 0.9981807549211970D+00
        ws( 11) = 0.9953488489841275D+00
        ws( 12) = 0.9930318248334161D+00
        ws( 13) = 0.9911200240734556D+00
        ws( 14) = 0.9890023831072871D+00
        ws( 15) = 0.9858795279721432D+00
        ws( 16) = 0.9824636587065200D+00
        ws( 17) = 0.9801940207477206D+00
        ws( 18) = 0.9770292617691267D+00
        ws( 19) = 0.9754262455884444D+00
        ws( 20) = 0.9721917592719859D+00
        ws( 21) = 0.9681209562781804D+00
        ws( 22) = 0.9653142719224141D+00
        ws( 23) = 0.9623247449459336D+00
        ws( 24) = 0.9584042986313478D+00
        ws( 25) = 0.9579663897251299D+00
        ws( 26) = 0.9551041095987970D+00
        ws( 27) = 0.9536813212055324D+00
        ws( 28) = 0.9420106608247643D+00
        ws( 29) = 0.9447595925919523D+00
        ws( 30) = 0.9392547746910822D+00
        ws( 31) = 0.9353145630128308D+00
        ws( 32) = 0.9511964403556232D+00
        ws( 33) = 0.9229173126025914D+00
        ws( 34) = 0.9296339927485768D+00
        ws( 35) = 0.8743721716957602D+00
        ws( 36) = 0.9496761302450089D+00
        ws( 37) = 0.8691175517766359D+00
        ws( 38) = 0.9425689598430383D+00
        ws( 39) = 0.8281839416356777D+00
        ws( 40) = 0.8811018295314913D+00
        ws( 41) = 0.1607114194967123D+01
        endif
        if( idomain .eq.  300 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.1884955592153876D+02
        rk1r = 0.2000000000000000D-01
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  13
        err = 0.9243536163725256D-10
        xs(  1) = 0.1256238563797381D+01
        xs(  2) = 0.2235130748305020D+01
        xs(  3) = 0.3235532721623609D+01
        xs(  4) = 0.4233785676495733D+01
        xs(  5) = 0.5236716438360500D+01
        xs(  6) = 0.6243869125953702D+01
        xs(  7) = 0.7253960991581662D+01
        xs(  8) = 0.8271874562731387D+01
        xs(  9) = 0.9292329706212165D+01
        xs( 10) = 0.1032322569765399D+02
        xs( 11) = 0.1135602130577861D+02
        xs( 12) = 0.1240445535812483D+02
        xs( 13) = 0.1341105039256905D+02
        ws(  1) = 0.1045402643864704D+01
        ws(  2) = 0.1027006738427336D+01
        ws(  3) = 0.1007574529963492D+01
        ws(  4) = 0.1015203266355532D+01
        ws(  5) = 0.1010816754649423D+01
        ws(  6) = 0.1020711066771419D+01
        ws(  7) = 0.1022877587289093D+01
        ws(  8) = 0.1033801997771913D+01
        ws(  9) = 0.1044399727246645D+01
        ws( 10) = 0.1060368418294289D+01
        ws( 11) = 0.1088680239881743D+01
        ws( 12) = 0.1167156498104967D+01
        ws( 13) = 0.1354282911093218D+01
        endif
        if( idomain .eq.  301 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.1884955592153876D+02
        rk1r = 0.4000000000000000D-01
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  13
        err = 0.9242355479309685D-10
        xs(  1) = 0.1256235364544383D+01
        xs(  2) = 0.2235146027561556D+01
        xs(  3) = 0.3235546560202374D+01
        xs(  4) = 0.4233804926666103D+01
        xs(  5) = 0.5236740025688646D+01
        xs(  6) = 0.6243895286810748D+01
        xs(  7) = 0.7253992583037152D+01
        xs(  8) = 0.8271907094644011D+01
        xs(  9) = 0.9292367167038377D+01
        xs( 10) = 0.1032326339193107D+02
        xs( 11) = 0.1135606058276983D+02
        xs( 12) = 0.1240448631661395D+02
        xs( 13) = 0.1341108674988428D+02
        ws(  1) = 0.1045392669485854D+01
        ws(  2) = 0.1026998860449017D+01
        ws(  3) = 0.1007589458822712D+01
        ws(  4) = 0.1015205486106817D+01
        ws(  5) = 0.1010827974536788D+01
        ws(  6) = 0.1020715479267457D+01
        ws(  7) = 0.1022885592690994D+01
        ws(  8) = 0.1033809743259692D+01
        ws(  9) = 0.1044404534272380D+01
        ws( 10) = 0.1060381185253965D+01
        ws( 11) = 0.1088687187731790D+01
        ws( 12) = 0.1167136592404172D+01
        ws( 13) = 0.1354233166160026D+01
        endif
        if( idomain .eq.  302 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.1884955592153876D+02
        rk1r = 0.1000000000000000D+00
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  13
        err = 0.9232197875584729D-10
        xs(  1) = 0.1256183717158719D+01
        xs(  2) = 0.2235254873303848D+01
        xs(  3) = 0.3235641996989634D+01
        xs(  4) = 0.4233941889230968D+01
        xs(  5) = 0.5236909310392077D+01
        xs(  6) = 0.6244082720322278D+01
        xs(  7) = 0.7254222786010752D+01
        xs(  8) = 0.8272143206550917D+01
        xs(  9) = 0.9292643267531801D+01
        xs( 10) = 0.1032354079517519D+02
        xs( 11) = 0.1135635179791420D+02
        xs( 12) = 0.1240471508368087D+02
        xs( 13) = 0.1341136013858597D+02
        ws(  1) = 0.1045354182364105D+01
        ws(  2) = 0.1026905462092326D+01
        ws(  3) = 0.1007702761086839D+01
        ws(  4) = 0.1015216443491009D+01
        ws(  5) = 0.1010918356176132D+01
        ws(  6) = 0.1020749369843055D+01
        ws(  7) = 0.1022951647798133D+01
        ws(  8) = 0.1033873964700710D+01
        ws(  9) = 0.1044446642305657D+01
        ws( 10) = 0.1060487348842559D+01
        ws( 11) = 0.1088738461650547D+01
        ws( 12) = 0.1166909080477893D+01
        ws( 13) = 0.1353882314874373D+01
        endif
        if( idomain .eq.  303 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.1884955592153876D+02
        rk1r = 0.2000000000000000D+00
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  13
        err = 0.9201001455799520D-10
        xs(  1) = 0.1256059661088724D+01
        xs(  2) = 0.2235634559889387D+01
        xs(  3) = 0.3235990006227509D+01
        xs(  4) = 0.4234432107665386D+01
        xs(  5) = 0.5237511957901096D+01
        xs(  6) = 0.6244752737668906D+01
        xs(  7) = 0.7255035327022537D+01
        xs(  8) = 0.8272981337725948D+01
        xs(  9) = 0.9293612841409262D+01
        xs( 10) = 0.1032451731581812D+02
        xs( 11) = 0.1135737628140128D+02
        xs( 12) = 0.1240553890495754D+02
        xs( 13) = 0.1341232040608277D+02
        ws(  1) = 0.1045206508562803D+01
        ws(  2) = 0.1026653464595932D+01
        ws(  3) = 0.1008077316434631D+01
        ws(  4) = 0.1015266921789406D+01
        ws(  5) = 0.1011212500855272D+01
        ws(  6) = 0.1020864832868653D+01
        ws(  7) = 0.1023166241693810D+01
        ws(  8) = 0.1034079579604721D+01
        ws(  9) = 0.1044581689068343D+01
        ws( 10) = 0.1060822936889027D+01
        ws( 11) = 0.1088904545989854D+01
        ws( 12) = 0.1166286704531144D+01
        ws( 13) = 0.1352716611194480D+01
        endif
        if( idomain .eq.  304 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.1884955592153876D+02
        rk1r = 0.4000000000000000D+00
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  13
        err = 0.9068856641798201D-10
        xs(  1) = 0.1255451239037158D+01
        xs(  2) = 0.2237232582064701D+01
        xs(  3) = 0.3237444767521050D+01
        xs(  4) = 0.4236507749158044D+01
        xs(  5) = 0.5240058911189600D+01
        xs(  6) = 0.6247598292245737D+01
        xs(  7) = 0.7258491452533232D+01
        xs(  8) = 0.8276554982768074D+01
        xs(  9) = 0.9297769932347203D+01
        xs( 10) = 0.1032869635170923D+02
        xs( 11) = 0.1136183108558696D+02
        xs( 12) = 0.1240911638055558D+02
        xs( 13) = 0.1341658545842988D+02
        ws(  1) = 0.1044729861409228D+01
        ws(  2) = 0.1025516284145317D+01
        ws(  3) = 0.1009655555280620D+01
        ws(  4) = 0.1015465889158360D+01
        ws(  5) = 0.1012482153081860D+01
        ws(  6) = 0.1021345085973827D+01
        ws(  7) = 0.1024118146021780D+01
        ws(  8) = 0.1034938081877449D+01
        ws(  9) = 0.1045213479489687D+01
        ws( 10) = 0.1062223975189219D+01
        ws( 11) = 0.1089629573952544D+01
        ws( 12) = 0.1163614296732393D+01
        ws( 13) = 0.1347759562191198D+01
        endif
        if( idomain .eq.  305 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.1884955592153876D+02
        rk1r = 0.1000000000000000D+01
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  12
        err = 0.9036133954648621D-10
        xs(  1) = 0.1250053418954374D+01
        xs(  2) = 0.2255377556588334D+01
        xs(  3) = 0.3254722443853779D+01
        xs(  4) = 0.4261865335032656D+01
        xs(  5) = 0.5271329547482944D+01
        xs(  6) = 0.6283181310396836D+01
        xs(  7) = 0.7302228738494288D+01
        xs(  8) = 0.8322442425808555D+01
        xs(  9) = 0.9351807362531304D+01
        xs( 10) = 0.1038269122019554D+02
        xs( 11) = 0.1141544759429184D+02
        xs( 12) = 0.1242607458324962D+02
        ws(  1) = 0.1061912943896328D+01
        ws(  2) = 0.1015833007115369D+01
        ws(  3) = 0.1032022270435873D+01
        ws(  4) = 0.1021147559553133D+01
        ws(  5) = 0.1032398077765276D+01
        ws(  6) = 0.1032264689876200D+01
        ws(  7) = 0.1042843412161017D+01
        ws(  8) = 0.1054760838979149D+01
        ws(  9) = 0.1065003348200110D+01
        ws( 10) = 0.1105883213888462D+01
        ws( 11) = 0.1112637907778179D+01
        ws( 12) = 0.1318876192783347D+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 =  14
        err = 0.9524947377698721D-10
        xs(  1) = 0.1175401146498158D+01
        xs(  2) = 0.2201281038016947D+01
        xs(  3) = 0.3158045298817347D+01
        xs(  4) = 0.4143275417645712D+01
        xs(  5) = 0.5125509965307789D+01
        xs(  6) = 0.6108836892346970D+01
        xs(  7) = 0.7105025339666700D+01
        xs(  8) = 0.8095575689381176D+01
        xs(  9) = 0.9103975259774090D+01
        xs( 10) = 0.1010676703636306D+02
        xs( 11) = 0.1112319364937483D+02
        xs( 12) = 0.1214606157315697D+02
        xs( 13) = 0.1314795448900535D+02
        xs( 14) = 0.1417954153711438D+02
        ws(  1) = 0.1054283104340637D+01
        ws(  2) = 0.9444338387075861D+00
        ws(  3) = 0.1007130263332752D+01
        ws(  4) = 0.9834347636966172D+00
        ws(  5) = 0.1008658025780491D+01
        ws(  6) = 0.9987625982674510D+00
        ws(  7) = 0.1013666413457675D+01
        ws(  8) = 0.1020357360358487D+01
        ws(  9) = 0.1020304258821025D+01
        ws( 10) = 0.1055700807577856D+01
        ws( 11) = 0.1028083859727032D+01
        ws( 12) = 0.1122481075283940D+01
        ws( 13) = 0.9984478689069698D+00
        ws( 14) = 0.1302404349442699D+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 =  16
        err = 0.6658430811157632D-11
        xs(  1) = 0.7608619033496573D+00
        xs(  2) = 0.1726312777712420D+01
        xs(  3) = 0.2706227957411434D+01
        xs(  4) = 0.3689251936468480D+01
        xs(  5) = 0.4674400942078309D+01
        xs(  6) = 0.5664193737843534D+01
        xs(  7) = 0.6656370564949181D+01
        xs(  8) = 0.7653700894803944D+01
        xs(  9) = 0.8654928903675813D+01
        xs( 10) = 0.9661286507918353D+01
        xs( 11) = 0.1067580656862480D+02
        xs( 12) = 0.1169343344536296D+02
        xs( 13) = 0.1272586297301174D+02
        xs( 14) = 0.1378944186833992D+02
        xs( 15) = 0.1490365262763530D+02
        xs( 16) = 0.1590185343405183D+02
        ws(  1) = 0.9525110099025839D+00
        ws(  2) = 0.9806323259254562D+00
        ws(  3) = 0.9781882285208747D+00
        ws(  4) = 0.9854544774229184D+00
        ws(  5) = 0.9869867556282852D+00
        ws(  6) = 0.9907434349095559D+00
        ws(  7) = 0.9955503323616716D+00
        ws(  8) = 0.9979046671763682D+00
        ws(  9) = 0.1006022227776473D+01
        ws( 10) = 0.1007201280587894D+01
        ws( 11) = 0.1021837159919314D+01
        ws( 12) = 0.1034550069794905D+01
        ws( 13) = 0.1024162154737867D+01
        ws( 14) = 0.1019654289388436D+01
        ws( 15) = 0.1374350085081251D+01
        ws( 16) = 0.1687545078964001D+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 =  16
        err = 0.5504094531915361D-10
        xs(  1) = 0.8552371290610746D+00
        xs(  2) = 0.1795574338311703D+01
        xs(  3) = 0.2763863520605724D+01
        xs(  4) = 0.3742012310501045D+01
        xs(  5) = 0.4729706814005370D+01
        xs(  6) = 0.5725317540874512D+01
        xs(  7) = 0.6723516716978723D+01
        xs(  8) = 0.7722576232668978D+01
        xs(  9) = 0.8727088152497366D+01
        xs( 10) = 0.9739460839419237D+01
        xs( 11) = 0.1074891726444932D+02
        xs( 12) = 0.1174672056532531D+02
        xs( 13) = 0.1276317096176583D+02
        xs( 14) = 0.1379385202501456D+02
        xs( 15) = 0.1472325558940383D+02
        xs( 16) = 0.1578620397515602D+02
        ws(  1) = 0.8296960719512100D+00
        ws(  2) = 0.9717770503867526D+00
        ws(  3) = 0.1002091750881478D+01
        ws(  4) = 0.1008794041586009D+01
        ws(  5) = 0.1003246401153867D+01
        ws(  6) = 0.9921590261068403D+00
        ws(  7) = 0.9819987687163051D+00
        ws(  8) = 0.9811438933602445D+00
        ws(  9) = 0.9970140512947194D+00
        ws( 10) = 0.1016359131839136D+01
        ws( 11) = 0.1027061430795402D+01
        ws( 12) = 0.1047733423420762D+01
        ws( 13) = 0.1107821717753621D+01
        ws( 14) = 0.1083158013153148D+01
        ws( 15) = 0.9437497639600771D+00
        ws( 16) = 0.1324563743325266D+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 =  17
        err = 0.6960862223995942D-11
        xs(  1) = 0.7439416796591534D+00
        xs(  2) = 0.1699746011997804D+01
        xs(  3) = 0.2662152095019595D+01
        xs(  4) = 0.3627036906399575D+01
        xs(  5) = 0.4594069540967313D+01
        xs(  6) = 0.5563352139265379D+01
        xs(  7) = 0.6535085132239582D+01
        xs(  8) = 0.7508766591711887D+01
        xs(  9) = 0.8486537509969995D+01
        xs( 10) = 0.9469990195326734D+01
        xs( 11) = 0.1045642930872340D+02
        xs( 12) = 0.1144633542953653D+02
        xs( 13) = 0.1245207260406380D+02
        xs( 14) = 0.1345980144582204D+02
        xs( 15) = 0.1444625589753627D+02
        xs( 16) = 0.1560735134250712D+02
        xs( 17) = 0.1649444959986245D+02
        ws(  1) = 0.9393951641121864D+00
        ws(  2) = 0.9610788938808117D+00
        ws(  3) = 0.9657607830527750D+00
        ws(  4) = 0.9668059584964738D+00
        ws(  5) = 0.9684645868621798D+00
        ws(  6) = 0.9695089876692680D+00
        ws(  7) = 0.9709992705273794D+00
        ws(  8) = 0.9735185158733578D+00
        ws(  9) = 0.9785865718210930D+00
        ws( 10) = 0.9863986419300377D+00
        ws( 11) = 0.9874873523158111D+00
        ws( 12) = 0.9989937203321121D+00
        ws( 13) = 0.1025108499657592D+01
        ws( 14) = 0.9846823963860017D+00
        ws( 15) = 0.1102862381915110D+01
        ws( 16) = 0.9153252518655818D+00
        ws( 17) = 0.1744397932014863D+01
        endif
        if( idomain .eq.  310 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.1884955592153876D+02
        rk1r = 0.1256637061435917D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =  18
        err = 0.8918918365173784D-11
        xs(  1) = 0.7514864846812195D+00
        xs(  2) = 0.1712542313959772D+01
        xs(  3) = 0.2680803850290918D+01
        xs(  4) = 0.3651764462060420D+01
        xs(  5) = 0.4624689305295227D+01
        xs(  6) = 0.5598844120366847D+01
        xs(  7) = 0.6574253959372852D+01
        xs(  8) = 0.7551974548641455D+01
        xs(  9) = 0.8532684837019421D+01
        xs( 10) = 0.9515628522180792D+01
        xs( 11) = 0.1050271058070651D+02
        xs( 12) = 0.1149645920624141D+02
        xs( 13) = 0.1249361428634754D+02
        xs( 14) = 0.1350174256438328D+02
        xs( 15) = 0.1453284431071281D+02
        xs( 16) = 0.1554562687170882D+02
        xs( 17) = 0.1672575217459358D+02
        xs( 18) = 0.1783153175610457D+02
        ws(  1) = 0.9417792667747862D+00
        ws(  2) = 0.9681436609048004D+00
        ws(  3) = 0.9721103037385098D+00
        ws(  4) = 0.9734991091352323D+00
        ws(  5) = 0.9739383361099527D+00
        ws(  6) = 0.9736927674849720D+00
        ws(  7) = 0.9754202854364029D+00
        ws(  8) = 0.9786560857897680D+00
        ws(  9) = 0.9810741462090636D+00
        ws( 10) = 0.9838468865615418D+00
        ws( 11) = 0.9886577928590468D+00
        ws( 12) = 0.9958641307989984D+00
        ws( 13) = 0.9982547237517296D+00
        ws( 14) = 0.1015888268979382D+01
        ws( 15) = 0.1032268121741948D+01
        ws( 16) = 0.1112266292003426D+01
        ws( 17) = 0.7411501751279720D+00
        ws( 18) = 0.2567264673652707D+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 =  20
        err = 0.7741025212531787D-11
        xs(  1) = 0.7143901114305918D+00
        xs(  2) = 0.1646139774755560D+01
        xs(  3) = 0.2584367560641622D+01
        xs(  4) = 0.3526083777461518D+01
        xs(  5) = 0.4470531817290813D+01
        xs(  6) = 0.5417619468184779D+01
        xs(  7) = 0.6368009871910557D+01
        xs(  8) = 0.7321770878210155D+01
        xs(  9) = 0.8278489528030434D+01
        xs( 10) = 0.9238835378964247D+01
        xs( 11) = 0.1020376445845388D+02
        xs( 12) = 0.1117179060027483D+02
        xs( 13) = 0.1214536929752342D+02
        xs( 14) = 0.1312275935846859D+02
        xs( 15) = 0.1409560689547427D+02
        xs( 16) = 0.1508204412940260D+02
        xs( 17) = 0.1603325054581401D+02
        xs( 18) = 0.1703918329218583D+02
        xs( 19) = 0.1808591999339858D+02
        xs( 20) = 0.1942768801101772D+02
        ws(  1) = 0.9273723371617600D+00
        ws(  2) = 0.9347409073557909D+00
        ws(  3) = 0.9383949843999418D+00
        ws(  4) = 0.9423461829778873D+00
        ws(  5) = 0.9461273341753966D+00
        ws(  6) = 0.9495528645294397D+00
        ws(  7) = 0.9529379107963400D+00
        ws(  8) = 0.9554932318648544D+00
        ws(  9) = 0.9576407728141221D+00
        ws( 10) = 0.9614693379991935D+00
        ws( 11) = 0.9651105933382343D+00
        ws( 12) = 0.9683628064994705D+00
        ws( 13) = 0.9744096893123007D+00
        ws( 14) = 0.9750978680749069D+00
        ws( 15) = 0.9756725692558076D+00
        ws( 16) = 0.9511164590071221D+00
        ws( 17) = 0.1053594715804290D+01
        ws( 18) = 0.8080510930278760D+00
        ws( 19) = 0.1328193006055835D+01
        ws( 20) = 0.1984890817945434D+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 =  20
        err = 0.9929129895004870D-11
        xs(  1) = 0.7209034907129103D+00
        xs(  2) = 0.1658121948330876D+01
        xs(  3) = 0.2602484355094400D+01
        xs(  4) = 0.3549934256475477D+01
        xs(  5) = 0.4499126305041217D+01
        xs(  6) = 0.5450208068522253D+01
        xs(  7) = 0.6402896465152920D+01
        xs(  8) = 0.7357335470644871D+01
        xs(  9) = 0.8313116597026159D+01
        xs( 10) = 0.9270280989003615D+01
        xs( 11) = 0.1022968942353061D+02
        xs( 12) = 0.1119040962989088D+02
        xs( 13) = 0.1215297827510184D+02
        xs( 14) = 0.1311762576914674D+02
        xs( 15) = 0.1407970540040749D+02
        xs( 16) = 0.1506364132816713D+02
        xs( 17) = 0.1596610621934086D+02
        xs( 18) = 0.1711897663117497D+02
        xs( 19) = 0.1795422077624520D+02
        xs( 20) = 0.1997274045214659D+02
        ws(  1) = 0.9311112990968951D+00
        ws(  2) = 0.9415789143848060D+00
        ws(  3) = 0.9442173692315039D+00
        ws(  4) = 0.9478625587667826D+00
        ws(  5) = 0.9509034323063115D+00
        ws(  6) = 0.9533394353851857D+00
        ws(  7) = 0.9545939816211061D+00
        ws(  8) = 0.9556737771868902D+00
        ws(  9) = 0.9554824115860433D+00
        ws( 10) = 0.9557183516920856D+00
        ws( 11) = 0.9584038324066135D+00
        ws( 12) = 0.9565815804559250D+00
        ws( 13) = 0.9618825955187875D+00
        ws( 14) = 0.9668977525741029D+00
        ws( 15) = 0.9335329098704755D+00
        ws( 16) = 0.1023145249756194D+01
        ws( 17) = 0.9250883421668857D+00
        ws( 18) = 0.9138857814147243D+00
        ws( 19) = 0.1498697791138765D+01
        ws( 20) = 0.1916713913509446D+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 =  18
        err = 0.9948494354552344D-10
        xs(  1) = 0.1286839569319409D+01
        xs(  2) = 0.2246605930722934D+01
        xs(  3) = 0.3232274944087210D+01
        xs(  4) = 0.4229807205161311D+01
        xs(  5) = 0.5225319653466365D+01
        xs(  6) = 0.6212605351728083D+01
        xs(  7) = 0.7195670368865340D+01
        xs(  8) = 0.8178204963778434D+01
        xs(  9) = 0.9158827401297900D+01
        xs( 10) = 0.1013916614831930D+02
        xs( 11) = 0.1112346599929014D+02
        xs( 12) = 0.1210657099820919D+02
        xs( 13) = 0.1309174406937778D+02
        xs( 14) = 0.1406931027992636D+02
        xs( 15) = 0.1507488598067500D+02
        xs( 16) = 0.1602893968045276D+02
        xs( 17) = 0.1698649159388783D+02
        xs( 18) = 0.1789572643250049D+02
        ws(  1) = 0.1023475848432457D+01
        ws(  2) = 0.1093498344338901D+01
        ws(  3) = 0.1023487479381855D+01
        ws(  4) = 0.9703323380824476D+00
        ws(  5) = 0.9655932137935656D+00
        ws(  6) = 0.9832425072730151D+00
        ws(  7) = 0.9939556513067590D+00
        ws(  8) = 0.9904863797382053D+00
        ws(  9) = 0.9776261372523650D+00
        ws( 10) = 0.9696469736514325D+00
        ws( 11) = 0.9641844407165505D+00
        ws( 12) = 0.9525826577426901D+00
        ws( 13) = 0.9844978778404806D+00
        ws( 14) = 0.9305338968039585D+00
        ws( 15) = 0.9518414459799035D+00
        ws( 16) = 0.1039850664709607D+01
        ws( 17) = 0.1105287121561545D+01
        ws( 18) = 0.1168599497272636D+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 =  19
        err = 0.9218054234603049D-10
        xs(  1) = 0.1287739551892897D+01
        xs(  2) = 0.2248938285901076D+01
        xs(  3) = 0.3240780742469513D+01
        xs(  4) = 0.4244270911088609D+01
        xs(  5) = 0.5242821975431072D+01
        xs(  6) = 0.6229453835226365D+01
        xs(  7) = 0.7211482968748494D+01
        xs(  8) = 0.8193040903924731D+01
        xs(  9) = 0.9173776075031618D+01
        xs( 10) = 0.1015332584765278D+02
        xs( 11) = 0.1113181013254374D+02
        xs( 12) = 0.1211475114997942D+02
        xs( 13) = 0.1308904559025165D+02
        xs( 14) = 0.1405499590127518D+02
        xs( 15) = 0.1505135355955074D+02
        xs( 16) = 0.1593259089329711D+02
        xs( 17) = 0.1694724286966648D+02
        xs( 18) = 0.1789398853099877D+02
        xs( 19) = 0.1974968975983651D+02
        ws(  1) = 0.1053716437657536D+01
        ws(  2) = 0.1100152423959131D+01
        ws(  3) = 0.1011978752147234D+01
        ws(  4) = 0.9627248766147313D+00
        ws(  5) = 0.9709018053113252D+00
        ws(  6) = 0.9943894038338518D+00
        ws(  7) = 0.1001918426463979D+01
        ws(  8) = 0.9931998832902245D+00
        ws(  9) = 0.9749777053882535D+00
        ws( 10) = 0.9645068376005339D+00
        ws( 11) = 0.9569922829397050D+00
        ws( 12) = 0.9516213106372007D+00
        ws( 13) = 0.9715731192785293D+00
        ws( 14) = 0.9007126514264587D+00
        ws( 15) = 0.9690470916317444D+00
        ws( 16) = 0.1049830075597050D+01
        ws( 17) = 0.8007445875320548D+00
        ws( 18) = 0.1333187932835883D+01
        ws( 19) = 0.1310230955875773D+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 =  21
        err = 0.8842644865897571D-10
        xs(  1) = 0.1304121823478620D+01
        xs(  2) = 0.2274524250544593D+01
        xs(  3) = 0.3278496177473353D+01
        xs(  4) = 0.4295734209420070D+01
        xs(  5) = 0.5304569272816726D+01
        xs(  6) = 0.6300767229123291D+01
        xs(  7) = 0.7291688411383451D+01
        xs(  8) = 0.8283823033365470D+01
        xs(  9) = 0.9275259482870666D+01
        xs( 10) = 0.1026350469336301D+02
        xs( 11) = 0.1125229015383585D+02
        xs( 12) = 0.1224375506913864D+02
        xs( 13) = 0.1322934069259132D+02
        xs( 14) = 0.1421155726613103D+02
        xs( 15) = 0.1519956375987559D+02
        xs( 16) = 0.1611683455412940D+02
        xs( 17) = 0.1711778054429813D+02
        xs( 18) = 0.1799733511346553D+02
        xs( 19) = 0.1959676228789471D+02
        xs( 20) = 0.2037238275582938D+02
        xs( 21) = 0.2117744251002108D+02
        ws(  1) = 0.1079246350325880D+01
        ws(  2) = 0.1117524292920014D+01
        ws(  3) = 0.1013862588788002D+01
        ws(  4) = 0.9673166478280167D+00
        ws(  5) = 0.9822801951639963D+00
        ws(  6) = 0.1006834203287723D+01
        ws(  7) = 0.1013851034622443D+01
        ws(  8) = 0.1004751951883571D+01
        ws(  9) = 0.9882848119373423D+00
        ws( 10) = 0.9742240490432659D+00
        ws( 11) = 0.9744077663735137D+00
        ws( 12) = 0.9664898920801032D+00
        ws( 13) = 0.9802198277946219D+00
        ws( 14) = 0.9463837214866458D+00
        ws( 15) = 0.9778604625136514D+00
        ws( 16) = 0.9413605933139295D+00
        ws( 17) = 0.1006826214190475D+01
        ws( 18) = 0.1148442449341406D+01
        ws( 19) = 0.5845341653593875D+00
        ws( 20) = 0.6834152526887987D+00
        ws( 21) = 0.1753744689061663D+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 =  20
        err = 0.8142218144979172D-10
        xs(  1) = 0.1249094159260808D+01
        xs(  2) = 0.2223461866242567D+01
        xs(  3) = 0.3234202161572623D+01
        xs(  4) = 0.4260007026800806D+01
        xs(  5) = 0.5276371396477615D+01
        xs(  6) = 0.6275750865346335D+01
        xs(  7) = 0.7265340605890106D+01
        xs(  8) = 0.8259341910414964D+01
        xs(  9) = 0.9260595610237814D+01
        xs( 10) = 0.1026021596926302D+02
        xs( 11) = 0.1124809153608722D+02
        xs( 12) = 0.1223632963655935D+02
        xs( 13) = 0.1323078346104029D+02
        xs( 14) = 0.1418295830251237D+02
        xs( 15) = 0.1518237741957115D+02
        xs( 16) = 0.1612863654172382D+02
        xs( 17) = 0.1720037818869261D+02
        xs( 18) = 0.1806527375786728D+02
        xs( 19) = 0.2015806691735887D+02
        xs( 20) = 0.2117681807776306D+02
        ws(  1) = 0.1147135104786532D+01
        ws(  2) = 0.1095583089390972D+01
        ws(  3) = 0.1002915820224555D+01
        ws(  4) = 0.9777652824408471D+00
        ws(  5) = 0.9978663474525246D+00
        ws(  6) = 0.1016125892350197D+01
        ws(  7) = 0.1019751566741547D+01
        ws(  8) = 0.1012350725843149D+01
        ws(  9) = 0.9998917349572756D+00
        ws( 10) = 0.9713759092083850D+00
        ws( 11) = 0.9584235921082171D+00
        ws( 12) = 0.9613355750976355D+00
        ws( 13) = 0.9640890510161841D+00
        ws( 14) = 0.9225949393152442D+00
        ws( 15) = 0.9765542929158954D+00
        ws( 16) = 0.9465973388850712D+00
        ws( 17) = 0.1263296728624457D+01
        ws( 18) = 0.1039100896449147D+01
        ws( 19) = 0.9006580010146703D+00
        ws( 20) = 0.1692112715532086D+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 =  22
        err = 0.8602769719731665D-10
        xs(  1) = 0.1317821635929078D+01
        xs(  2) = 0.2292965317153279D+01
        xs(  3) = 0.3309814665689702D+01
        xs(  4) = 0.4344193763136658D+01
        xs(  5) = 0.5365177100904004D+01
        xs(  6) = 0.6374005816156921D+01
        xs(  7) = 0.7374007348679698D+01
        xs(  8) = 0.8374973327019818D+01
        xs(  9) = 0.9378096909342057D+01
        xs( 10) = 0.1038406864004790D+02
        xs( 11) = 0.1137992072518346D+02
        xs( 12) = 0.1237391936905438D+02
        xs( 13) = 0.1336361317134009D+02
        xs( 14) = 0.1438412950983854D+02
        xs( 15) = 0.1533767947732275D+02
        xs( 16) = 0.1638317126217063D+02
        xs( 17) = 0.1728777806309053D+02
        xs( 18) = 0.1831079272509966D+02
        xs( 19) = 0.1926686599003889D+02
        xs( 20) = 0.2025814803783201D+02
        xs( 21) = 0.2125329890941980D+02
        xs( 22) = 0.2328652008248840D+02
        ws(  1) = 0.1107926248792500D+01
        ws(  2) = 0.1130212812529649D+01
        ws(  3) = 0.1007099110611212D+01
        ws(  4) = 0.9776193052896822D+00
        ws(  5) = 0.1004964273728114D+01
        ws(  6) = 0.1024879749318875D+01
        ws(  7) = 0.1020394871318375D+01
        ws(  8) = 0.1005557327614791D+01
        ws(  9) = 0.1000159465936942D+01
        ws( 10) = 0.9927988443588642D+00
        ws( 11) = 0.9692136622781258D+00
        ws( 12) = 0.1007201856975728D+01
        ws( 13) = 0.9773999809898710D+00
        ws( 14) = 0.9785909360919672D+00
        ws( 15) = 0.1006899532340113D+01
        ws( 16) = 0.1025196988466170D+01
        ws( 17) = 0.9418186430917348D+00
        ws( 18) = 0.9862500593022646D+00
        ws( 19) = 0.9627687163218681D+00
        ws( 20) = 0.7412592397790209D+00
        ws( 21) = 0.1041822719415017D+01
        ws( 22) = 0.2952443950479326D+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 =  24
        err = 0.9603910535666779D-10
        xs(  1) = 0.1147894730006118D+01
        xs(  2) = 0.2010301641299736D+01
        xs(  3) = 0.2935973125492535D+01
        xs(  4) = 0.3899110945161701D+01
        xs(  5) = 0.4881336278492557D+01
        xs(  6) = 0.5859069948753024D+01
        xs(  7) = 0.6831744061747403D+01
        xs(  8) = 0.7805698210621651D+01
        xs(  9) = 0.8782791291351945D+01
        xs( 10) = 0.9765004761216177D+01
        xs( 11) = 0.1074796498759494D+02
        xs( 12) = 0.1171392742034655D+02
        xs( 13) = 0.1269169163925289D+02
        xs( 14) = 0.1369333008364491D+02
        xs( 15) = 0.1459761780705776D+02
        xs( 16) = 0.1564993359931008D+02
        xs( 17) = 0.1655460290510412D+02
        xs( 18) = 0.1748434312416784D+02
        xs( 19) = 0.1855172171441571D+02
        xs( 20) = 0.1942567100421724D+02
        xs( 21) = 0.2042695106309848D+02
        xs( 22) = 0.2133542569759602D+02
        xs( 23) = 0.2237199054728185D+02
        xs( 24) = 0.2415356275839451D+02
        ws(  1) = 0.9276085146989819D+00
        ws(  2) = 0.1020001061662722D+01
        ws(  3) = 0.9609624891703821D+00
        ws(  4) = 0.9345089882553675D+00
        ws(  5) = 0.9572024899444974D+00
        ws(  6) = 0.9885629097415426D+00
        ws(  7) = 0.9879745772373882D+00
        ws(  8) = 0.9858614050518837D+00
        ws(  9) = 0.9791414406142025D+00
        ws( 10) = 0.9770182818503369D+00
        ws( 11) = 0.9538145492263103D+00
        ws( 12) = 0.9998573731799625D+00
        ws( 13) = 0.9057660518144419D+00
        ws( 14) = 0.1057293794490228D+01
        ws( 15) = 0.9071289325075123D+00
        ws( 16) = 0.9427391484446006D+00
        ws( 17) = 0.1024803146140948D+01
        ws( 18) = 0.9436916654860871D+00
        ws( 19) = 0.1034298634841052D+01
        ws( 20) = 0.9079835121225027D+00
        ws( 21) = 0.9377248463070395D+00
        ws( 22) = 0.2689404510074767D+00
        ws( 23) = 0.1604898355796657D+01
        ws( 24) = 0.2329961829277006D+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 =  25
        err = 0.9698425250696006D-10
        xs(  1) = 0.1320493395203908D+01
        xs(  2) = 0.2309804690910118D+01
        xs(  3) = 0.3350537505773066D+01
        xs(  4) = 0.4388533415907991D+01
        xs(  5) = 0.5414663837919880D+01
        xs(  6) = 0.6426957833820650D+01
        xs(  7) = 0.7444235548218421D+01
        xs(  8) = 0.8452547626677447D+01
        xs(  9) = 0.9468980150529568D+01
        xs( 10) = 0.1047426197763057D+02
        xs( 11) = 0.1148690807169804D+02
        xs( 12) = 0.1248221095291473D+02
        xs( 13) = 0.1349633957904110D+02
        xs( 14) = 0.1447403701727873D+02
        xs( 15) = 0.1548658292654655D+02
        xs( 16) = 0.1647657738253895D+02
        xs( 17) = 0.1748427064222804D+02
        xs( 18) = 0.1842114028732291D+02
        xs( 19) = 0.1945162370824057D+02
        xs( 20) = 0.2042681271022878D+02
        xs( 21) = 0.2145357694343824D+02
        xs( 22) = 0.2230272370301011D+02
        xs( 23) = 0.2352602258074533D+02
        xs( 24) = 0.2439291745577931D+02
        xs( 25) = 0.2527653443689703D+02
        ws(  1) = 0.1175253861141008D+01
        ws(  2) = 0.1104496160166397D+01
        ws(  3) = 0.1003180288249457D+01
        ws(  4) = 0.9956755655161964D+00
        ws(  5) = 0.1032655260803025D+01
        ws(  6) = 0.1034900986788889D+01
        ws(  7) = 0.1011845379572595D+01
        ws(  8) = 0.1010413453198758D+01
        ws(  9) = 0.9839415069431876D+00
        ws( 10) = 0.1044555374296589D+01
        ws( 11) = 0.9457867559920169D+00
        ws( 12) = 0.1054557206560412D+01
        ws( 13) = 0.9491159106825915D+00
        ws( 14) = 0.1095027229879178D+01
        ws( 15) = 0.8992582332134166D+00
        ws( 16) = 0.9813243315978980D+00
        ws( 17) = 0.1129605663878769D+01
        ws( 18) = 0.9465906645877761D+00
        ws( 19) = 0.9232448541653338D+00
        ws( 20) = 0.9719168266224372D+00
        ws( 21) = 0.8913618536204114D+00
        ws( 22) = 0.1186541060498715D+01
        ws( 23) = 0.3128014784003641D+00
        ws( 24) = 0.9908304678319699D+00
        ws( 25) = 0.2150443368366944D+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 =  27
        err = 0.9662456150163912D-10
        xs(  1) = 0.1100725067009553D+01
        xs(  2) = 0.2011169620357824D+01
        xs(  3) = 0.2995413771615450D+01
        xs(  4) = 0.3995674045803398D+01
        xs(  5) = 0.5000963550949751D+01
        xs(  6) = 0.6007534846561584D+01
        xs(  7) = 0.7003594707361440D+01
        xs(  8) = 0.8016893075704377D+01
        xs(  9) = 0.8998368483236572D+01
        xs( 10) = 0.1003308079352314D+02
        xs( 11) = 0.1100343549314727D+02
        xs( 12) = 0.1202215743187229D+02
        xs( 13) = 0.1299143221719920D+02
        xs( 14) = 0.1402010878875409D+02
        xs( 15) = 0.1497675700789540D+02
        xs( 16) = 0.1597008826646233D+02
        xs( 17) = 0.1693888052115020D+02
        xs( 18) = 0.1793272820449613D+02
        xs( 19) = 0.1887701294481619D+02
        xs( 20) = 0.1982295649957927D+02
        xs( 21) = 0.2075071666553541D+02
        xs( 22) = 0.2176128682748267D+02
        xs( 23) = 0.2255062289498298D+02
        xs( 24) = 0.2365577309775012D+02
        xs( 25) = 0.2444426040473315D+02
        xs( 26) = 0.2522209581334682D+02
        xs( 27) = 0.2702504550157472D+02
        ws(  1) = 0.1038254505818329D+01
        ws(  2) = 0.1015187111227423D+01
        ws(  3) = 0.9761651435794646D+00
        ws(  4) = 0.9872928118474193D+00
        ws(  5) = 0.9971434577358274D+00
        ws(  6) = 0.1017212236380130D+01
        ws(  7) = 0.9981743913620215D+00
        ws(  8) = 0.1013342651138188D+01
        ws(  9) = 0.9952984171770909D+00
        ws( 10) = 0.9776475128115075D+00
        ws( 11) = 0.1011319200965818D+01
        ws( 12) = 0.1004376885444471D+01
        ws( 13) = 0.9408966594669173D+00
        ws( 14) = 0.1034486035178095D+01
        ws( 15) = 0.9904022612166306D+00
        ws( 16) = 0.9949321666487345D+00
        ws( 17) = 0.9496224648230164D+00
        ws( 18) = 0.8790015021709453D+00
        ws( 19) = 0.1179840335386100D+01
        ws( 20) = 0.9601670344750860D+00
        ws( 21) = 0.7706814799790422D+00
        ws( 22) = 0.7969524245698838D+00
        ws( 23) = 0.8635003638765729D+00
        ws( 24) = 0.5537589764748954D+00
        ws( 25) = 0.1444025223676066D+01
        ws( 26) = 0.9906444416245381D+00
        ws( 27) = 0.1274964077207765D+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 =  28
        err = 0.8747369915699830D-10
        xs(  1) = 0.1109952930141801D+01
        xs(  2) = 0.1980597867139999D+01
        xs(  3) = 0.2943617189031426D+01
        xs(  4) = 0.3934523993668084D+01
        xs(  5) = 0.4922157998809960D+01
        xs(  6) = 0.5916257308459272D+01
        xs(  7) = 0.6898523891732918D+01
        xs(  8) = 0.7912729482958069D+01
        xs(  9) = 0.8877860558767161D+01
        xs( 10) = 0.9907449564330276D+01
        xs( 11) = 0.1087666257859967D+02
        xs( 12) = 0.1188159639715471D+02
        xs( 13) = 0.1287259573453912D+02
        xs( 14) = 0.1385828855693162D+02
        xs( 15) = 0.1484587712491828D+02
        xs( 16) = 0.1581906104895580D+02
        xs( 17) = 0.1682131714786071D+02
        xs( 18) = 0.1781090959174136D+02
        xs( 19) = 0.1877427369493044D+02
        xs( 20) = 0.1972700139696998D+02
        xs( 21) = 0.2070485337975990D+02
        xs( 22) = 0.2170083380259379D+02
        xs( 23) = 0.2267515599587536D+02
        xs( 24) = 0.2357240942669077D+02
        xs( 25) = 0.2466122629812498D+02
        xs( 26) = 0.2549983150512184D+02
        xs( 27) = 0.2752250954513475D+02
        xs( 28) = 0.2946520955975815D+02
        ws(  1) = 0.9464278087778814D+00
        ws(  2) = 0.1037127510143452D+01
        ws(  3) = 0.9408497971677995D+00
        ws(  4) = 0.9819496129000745D+00
        ws(  5) = 0.9614485780510180D+00
        ws(  6) = 0.1044478205901240D+01
        ws(  7) = 0.9343147672068343D+00
        ws(  8) = 0.1063355963743361D+01
        ws(  9) = 0.9389396099788632D+00
        ws( 10) = 0.1030184985907017D+01
        ws( 11) = 0.9437127280302627D+00
        ws( 12) = 0.1033115682080967D+01
        ws( 13) = 0.9248911850550819D+00
        ws( 14) = 0.1084961699990471D+01
        ws( 15) = 0.9544540902883639D+00
        ws( 16) = 0.9704744736140996D+00
        ws( 17) = 0.9999382043454176D+00
        ws( 18) = 0.8823785188992993D+00
        ws( 19) = 0.1147140443889808D+01
        ws( 20) = 0.1000012146692642D+01
        ws( 21) = 0.8944329099246234D+00
        ws( 22) = 0.7876821043997537D+00
        ws( 23) = 0.1163442932491784D+01
        ws( 24) = 0.6073553731259598D+00
        ws( 25) = 0.1363204098035072D+01
        ws( 26) = 0.1368059811674484D+01
        ws( 27) = 0.1265863272823801D+01
        ws( 28) = 0.1880861477444551D+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 =  30
        err = 0.7409300688416255D-10
        xs(  1) = 0.1316616504055122D+01
        xs(  2) = 0.2309020267820470D+01
        xs(  3) = 0.3343552465025235D+01
        xs(  4) = 0.4389931065075220D+01
        xs(  5) = 0.5408652067195453D+01
        xs(  6) = 0.6439946032368762D+01
        xs(  7) = 0.7450612644879363D+01
        xs(  8) = 0.8464493208186170D+01
        xs(  9) = 0.9504721220671685D+01
        xs( 10) = 0.1051019946368596D+02
        xs( 11) = 0.1151776877264203D+02
        xs( 12) = 0.1252877064603999D+02
        xs( 13) = 0.1353484536699276D+02
        xs( 14) = 0.1456116428607070D+02
        xs( 15) = 0.1554993199639028D+02
        xs( 16) = 0.1654582742489478D+02
        xs( 17) = 0.1754912812635055D+02
        xs( 18) = 0.1856066218367434D+02
        xs( 19) = 0.1953550932466379D+02
        xs( 20) = 0.2052519918756700D+02
        xs( 21) = 0.2152007308207234D+02
        xs( 22) = 0.2249621781419834D+02
        xs( 23) = 0.2348722122665039D+02
        xs( 24) = 0.2448742866283989D+02
        xs( 25) = 0.2542427103843075D+02
        xs( 26) = 0.2644571987310894D+02
        xs( 27) = 0.2734445550926048D+02
        xs( 28) = 0.2819057903206450D+02
        xs( 29) = 0.3046470981361632D+02
        xs( 30) = 0.3136941250509839D+02
        ws(  1) = 0.1148137938913401D+01
        ws(  2) = 0.1102730356944690D+01
        ws(  3) = 0.1015602754190429D+01
        ws(  4) = 0.9833031283087965D+00
        ws(  5) = 0.1057103546707665D+01
        ws(  6) = 0.1004551499729197D+01
        ws(  7) = 0.1064562214402400D+01
        ws(  8) = 0.9901575093351122D+00
        ws(  9) = 0.9649064905845951D+00
        ws( 10) = 0.1065341300605147D+01
        ws( 11) = 0.1042181640041885D+01
        ws( 12) = 0.9783956167648549D+00
        ws( 13) = 0.9820577435882311D+00
        ws( 14) = 0.1007107746374255D+01
        ws( 15) = 0.1023204411719415D+01
        ws( 16) = 0.1013079620709426D+01
        ws( 17) = 0.9755707446629955D+00
        ws( 18) = 0.1001286990586897D+01
        ws( 19) = 0.9954762820434238D+00
        ws( 20) = 0.9895148878992541D+00
        ws( 21) = 0.1005609357560005D+01
        ws( 22) = 0.8971173173118290D+00
        ws( 23) = 0.9752768321461011D+00
        ws( 24) = 0.9920917337473949D+00
        ws( 25) = 0.9708295053237843D+00
        ws( 26) = 0.8213198960099367D+00
        ws( 27) = 0.1299225928528422D+01
        ws( 28) = 0.8340145288639722D+00
        ws( 29) = 0.9766177784649528D+00
        ws( 30) = 0.1960777418127208D+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 =   4
        err = 0.9844539880260957D-10
        xs(  1) = 0.4634070141109860D+01
        xs(  2) = 0.5427331870978129D+01
        xs(  3) = 0.6225284362754650D+01
        xs(  4) = 0.7005433971002363D+01
        ws(  1) = 0.1326107074886923D+01
        ws(  2) = 0.2622754856202597D+01
        ws(  3) = 0.2803836966102836D+01
        ws(  4) = 0.1562335108433290D+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 =   4
        err = 0.9844241915452759D-10
        xs(  1) = 0.4634015491980326D+01
        xs(  2) = 0.5427318866784416D+01
        xs(  3) = 0.6225351507314090D+01
        xs(  4) = 0.7005535488209245D+01
        ws(  1) = 0.1326424178138347D+01
        ws(  2) = 0.2622452346698054D+01
        ws(  3) = 0.2803594787022233D+01
        ws(  4) = 0.1562769508136784D+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 =   4
        err = 0.9841220635374784D-10
        xs(  1) = 0.4633404041761276D+01
        xs(  2) = 0.5427060348429779D+01
        xs(  3) = 0.6225852322796159D+01
        xs(  4) = 0.7006361692909487D+01
        ws(  1) = 0.1329746206430839D+01
        ws(  2) = 0.2619745169849039D+01
        ws(  3) = 0.2800853528865624D+01
        ws(  4) = 0.1566275040139934D+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 =   4
        err = 0.9831793105506057D-10
        xs(  1) = 0.4631649287847948D+01
        xs(  2) = 0.5426446910822716D+01
        xs(  3) = 0.6227636398854151D+01
        xs(  4) = 0.7009128015147103D+01
        ws(  1) = 0.1339633483990115D+01
        ws(  2) = 0.2610856796060829D+01
        ws(  3) = 0.2792897092163498D+01
        ws(  4) = 0.1578294446055325D+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 =   4
        err = 0.9776707286188557D-10
        xs(  1) = 0.4621628617905016D+01
        xs(  2) = 0.5421848280072422D+01
        xs(  3) = 0.6236226432084109D+01
        xs(  4) = 0.7022493613659295D+01
        ws(  1) = 0.1395558344310415D+01
        ws(  2) = 0.2561914944800290D+01
        ws(  3) = 0.2745699558406157D+01
        ws(  4) = 0.1640649359250557D+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 =   4
        err = 0.8800280102349537D-10
        xs(  1) = 0.4483420926532288D+01
        xs(  2) = 0.5179812242958808D+01
        xs(  3) = 0.6381124943937919D+01
        xs(  4) = 0.7070246112464712D+01
        ws(  1) = 0.2413615635811053D+01
        ws(  2) = 0.1649197305343385D+01
        ws(  3) = 0.2107399741270593D+01
        ws(  4) = 0.2331927372164625D+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 =   3
        err = 0.9827906612639661D-10
        xs(  1) = 0.4954988792175711D+01
        xs(  2) = 0.5955262149987108D+01
        xs(  3) = 0.6708878252084293D+01
        ws(  1) = 0.3847588229444392D+01
        ws(  2) = 0.6976357480761936D+00
        ws(  3) = 0.4060392954774872D+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 =   2
        err = 0.9292604774807135D-10
        xs(  1) = 0.4842752462558727D+01
        xs(  2) = 0.5683393546207890D+01
        ws(  1) = 0.3697220423434882D+01
        ws(  2) = 0.3303670752850871D+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 =   4
        err = 0.6910903207429226D-10
        xs(  1) = 0.4091609791699485D+01
        xs(  2) = 0.5202910039444367D+01
        xs(  3) = 0.6883574833565868D+01
        xs(  4) = 0.8034330378022201D+01
        ws(  1) = 0.2158181407098926D+01
        ws(  2) = 0.1681395247086902D+01
        ws(  3) = 0.1951269155761170D+01
        ws(  4) = 0.3658287025560874D+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 =   4
        err = 0.6406677036020255D-10
        xs(  1) = 0.4135168145780306D+01
        xs(  2) = 0.5199478989829457D+01
        xs(  3) = 0.6904328438372093D+01
        xs(  4) = 0.8037868638712387D+01
        ws(  1) = 0.2425217206607154D+01
        ws(  2) = 0.1782713313741287D+01
        ws(  3) = 0.1762080145594603D+01
        ws(  4) = 0.3201000379370140D+01
        endif
        if( idomain .eq.  333 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.2199114857512855D+02
        rk1r = 0.1256637061435917D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =   2
        err = 0.6922060455364859D-10
        xs(  1) = 0.4595037128951467D+01
        xs(  2) = 0.7414946749596225D+01
        ws(  1) = 0.3992733441116814D+01
        ws(  2) = 0.4806280995142570D+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 =   6
        err = 0.8057731128227753D-10
        xs(  1) = 0.4504106332360884D+01
        xs(  2) = 0.5458490981279889D+01
        xs(  3) = 0.6385039668529358D+01
        xs(  4) = 0.7230043137042493D+01
        xs(  5) = 0.8182378687882419D+01
        xs(  6) = 0.9392448373776590D+01
        ws(  1) = 0.1198448226138446D+01
        ws(  2) = 0.2106692862429177D+01
        ws(  3) = 0.1972765198036099D+01
        ws(  4) = 0.1586776619699963D+01
        ws(  5) = 0.1245933894310136D+01
        ws(  6) = 0.6641219512437828D+00
        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 =   3
        err = 0.6043028286915220D-10
        xs(  1) = 0.4902177690245047D+01
        xs(  2) = 0.7732703568059360D+01
        xs(  3) = 0.9164866330472272D+01
        ws(  1) = 0.4390857789424926D+01
        ws(  2) = 0.3233494957125771D+01
        ws(  3) = 0.1400121709934066D+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 =   3
        err = 0.6952409031799837D-10
        xs(  1) = 0.5043377654423432D+01
        xs(  2) = 0.7853620751819302D+01
        xs(  3) = 0.9098706915781728D+01
        ws(  1) = 0.4488226968868809D+01
        ws(  2) = 0.2966206449689583D+01
        ws(  3) = 0.1557836092544327D+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 =   3
        err = 0.9308506487864057D-10
        xs(  1) = 0.6875328877030855D+01
        xs(  2) = 0.7586204030651203D+01
        xs(  3) = 0.8310449886403227D+01
        ws(  1) = 0.2496060499103250D+01
        ws(  2) = 0.3293884438241140D+01
        ws(  3) = 0.2395933963950299D+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 =   3
        err = 0.9564159237214761D-10
        xs(  1) = 0.7320090248987364D+01
        xs(  2) = 0.8048396924397013D+01
        xs(  3) = 0.8774175832882307D+01
        ws(  1) = 0.2523422314063470D+01
        ws(  2) = 0.3280891418493736D+01
        ws(  3) = 0.2338023248518555D+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 =   2
        err = 0.9135597059009018D-10
        xs(  1) = 0.4006290753004224D+01
        xs(  2) = 0.1245739542335712D+02
        ws(  1) = 0.7587372651486856D+01
        ws(  2) = 0.7737128120287531D+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 =   8
        err = 0.9488964316991425D-10
        xs(  1) = 0.5100526308496766D+01
        xs(  2) = 0.7533077956205980D+01
        xs(  3) = 0.8351839880503514D+01
        xs(  4) = 0.9165486137606068D+01
        xs(  5) = 0.1004145949159327D+02
        xs(  6) = 0.1108438468142692D+02
        xs(  7) = 0.1332910666810304D+02
        xs(  8) = 0.1445504908367578D+02
        ws(  1) = 0.7220783909524960D+00
        ws(  2) = 0.1301478932729707D+01
        ws(  3) = 0.2187294119352953D+01
        ws(  4) = 0.2182639552436798D+01
        ws(  5) = 0.1473423077637379D+01
        ws(  6) = 0.6661349465287844D+00
        ws(  7) = -.8901926311408199D+00
        ws(  8) = 0.1666662061773563D+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 =   9
        err = 0.8528478044134181D-10
        xs(  1) = 0.5067848474045136D+01
        xs(  2) = 0.7474053063222175D+01
        xs(  3) = 0.8300566586944086D+01
        xs(  4) = 0.9127129177619183D+01
        xs(  5) = 0.1001127718030491D+02
        xs(  6) = 0.1099563851011853D+02
        xs(  7) = 0.1422897935520372D+02
        xs(  8) = 0.1690972265828900D+02
        xs(  9) = 0.1764544296888439D+02
        ws(  1) = 0.5580723492673092D+00
        ws(  2) = 0.1369403681228049D+01
        ws(  3) = 0.2342908810492449D+01
        ws(  4) = 0.2224131375935402D+01
        ws(  5) = 0.1536743637300725D+01
        ws(  6) = 0.6918952275824267D+00
        ws(  7) = 0.5438616574248460D+00
        ws(  8) = 0.1235824175787364D+01
        ws(  9) = 0.1420687105464210D+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 =  11
        err = 0.7293252826578151D-10
        xs(  1) = 0.5104084931140952D+01
        xs(  2) = 0.7599450752217209D+01
        xs(  3) = 0.8415952318138453D+01
        xs(  4) = 0.9213412279279085D+01
        xs(  5) = 0.1015975472812814D+02
        xs(  6) = 0.1121877425541875D+02
        xs(  7) = 0.1306068891891474D+02
        xs(  8) = 0.1573176233632354D+02
        xs(  9) = 0.1621954573289780D+02
        xs( 10) = 0.1746663573371695D+02
        xs( 11) = 0.1956716772984796D+02
        ws(  1) = 0.9748429438607841D+00
        ws(  2) = 0.1619817628469758D+01
        ws(  3) = 0.2208653898662428D+01
        ws(  4) = 0.1899328262616987D+01
        ws(  5) = 0.1398936437890945D+01
        ws(  6) = 0.5169199672547071D+00
        ws(  7) = 0.6653109260553156D+00
        ws(  8) = 0.1203346860658673D+01
        ws(  9) = 0.1770416795928196D+01
        ws( 10) = -.9342480185063629D+00
        ws( 11) = 0.2417093835051156D+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 =  10
        err = 0.8395610098586344D-10
        xs(  1) = 0.7295811950973252D+01
        xs(  2) = 0.8115393317263763D+01
        xs(  3) = 0.8935549403762826D+01
        xs(  4) = 0.9787464027188868D+01
        xs(  5) = 0.1067745933970808D+02
        xs(  6) = 0.1144935090783147D+02
        xs(  7) = 0.1292171848400549D+02
        xs(  8) = 0.1412270949887631D+02
        xs(  9) = 0.1597647828023179D+02
        xs( 10) = 0.1800238619286925D+02
        ws(  1) = 0.1083594000228021D+01
        ws(  2) = 0.2277707082597227D+01
        ws(  3) = 0.2336937362960958D+01
        ws(  4) = 0.1638006410709418D+01
        ws(  5) = 0.7772548405825352D+00
        ws(  6) = 0.1928107215417589D+00
        ws(  7) = 0.1977002985286758D+00
        ws(  8) = 0.4046232046769796D+00
        ws(  9) = 0.1420601740954536D+01
        ws( 10) = 0.1955808779195327D+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 =  11
        err = 0.9800303252150861D-10
        xs(  1) = 0.7931533791376836D+01
        xs(  2) = 0.8773538941331521D+01
        xs(  3) = 0.9600568120628685D+01
        xs(  4) = 0.1043410030145212D+02
        xs(  5) = 0.1135689255161671D+02
        xs(  6) = 0.1308222523314779D+02
        xs(  7) = 0.1460633918839828D+02
        xs(  8) = 0.1682047321852746D+02
        xs(  9) = 0.1767176750658334D+02
        xs( 10) = 0.1856837110584001D+02
        xs( 11) = 0.1979904520184492D+02
        ws(  1) = 0.1155469047303834D+01
        ws(  2) = 0.2480733681787435D+01
        ws(  3) = 0.2501782018014006D+01
        ws(  4) = 0.1688138377673089D+01
        ws(  5) = 0.7550064421225056D+00
        ws(  6) = -.1741030730434771D+00
        ws(  7) = 0.2500787931759572D+00
        ws(  8) = 0.9159884413403981D+00
        ws(  9) = 0.1140222520676250D+01
        ws( 10) = 0.1507023158536943D+01
        ws( 11) = -.7014293107871524D+00
        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 =  12
        err = 0.8358006470452468D-10
        xs(  1) = 0.5827984867027981D+01
        xs(  2) = 0.8363177902212726D+01
        xs(  3) = 0.9247744818343762D+01
        xs(  4) = 0.1003426037085451D+02
        xs(  5) = 0.1085375281755128D+02
        xs(  6) = 0.1212704294273745D+02
        xs(  7) = 0.1474091307996738D+02
        xs(  8) = 0.1643263665320824D+02
        xs(  9) = 0.1842510268043220D+02
        xs( 10) = 0.1974054837194270D+02
        xs( 11) = 0.2058124386828571D+02
        xs( 12) = 0.2299271753819797D+02
        ws(  1) = 0.1294441976118861D+01
        ws(  2) = 0.2054192622175495D+01
        ws(  3) = 0.2504999986917024D+01
        ws(  4) = 0.1651109357108055D+01
        ws(  5) = 0.1172655561979224D+01
        ws(  6) = 0.4966768775625592D+00
        ws(  7) = 0.5728730768542493D+00
        ws(  8) = 0.1126624058242020D+01
        ws(  9) = 0.9596814004563027D+00
        ws( 10) = 0.1343492104979714D+01
        ws( 11) = 0.1580455259678064D+01
        ws( 12) = -.2032040254428367D+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
