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 =   9
        err = 0.5151951361409985D-03
        xs(  1) = 0.1026300270392040D-02
        xs(  2) = 0.4905699755795444D-02
        xs(  3) = 0.1080103163097508D-01
        xs(  4) = 0.1801277521160688D-01
        xs(  5) = 0.2612059580235220D-01
        xs(  6) = 0.3488215404799671D-01
        xs(  7) = 0.4416036368897074D-01
        xs(  8) = 0.5387384055801983D-01
        xs(  9) = 0.6399646266702204D-01
        ws(  1) = 0.2555147219217362D-02
        ws(  2) = 0.5035354292051868D-02
        ws(  3) = 0.6643039140390833D-02
        ws(  4) = 0.7711678886138621D-02
        ws(  5) = 0.8467107803186840D-02
        ws(  6) = 0.9050555211375806D-02
        ws(  7) = 0.9559976806539069D-02
        ws(  8) = 0.1013262497768790D-01
        ws(  9) = 0.1186129428927207D-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 =   9
        err = 0.4974480394138704D-03
        xs(  1) = 0.1020207234031924D-02
        xs(  2) = 0.4893298320170236D-02
        xs(  3) = 0.1078667642196817D-01
        xs(  4) = 0.1799803107489456D-01
        xs(  5) = 0.2610601738769944D-01
        xs(  6) = 0.3486818055161599D-01
        xs(  7) = 0.4414724383039405D-01
        xs(  8) = 0.5386175647263899D-01
        xs(  9) = 0.6398393622727770D-01
        ws(  1) = 0.2544259248613924D-02
        ws(  2) = 0.5031559510886497D-02
        ws(  3) = 0.6642678171611788D-02
        ws(  4) = 0.7712245036251680D-02
        ws(  5) = 0.8468543851293350D-02
        ws(  6) = 0.9052952752782060D-02
        ws(  7) = 0.9564036044602629D-02
        ws(  8) = 0.1013983204629754D-01
        ws(  9) = 0.1187778783364184D-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 =   9
        err = 0.4483050700129657D-03
        xs(  1) = 0.1003847308073161D-02
        xs(  2) = 0.4861356099331763D-02
        xs(  3) = 0.1075251511623217D-01
        xs(  4) = 0.1796452979335402D-01
        xs(  5) = 0.2607433325082891D-01
        xs(  6) = 0.3483917474764235D-01
        xs(  7) = 0.4412215608791184D-01
        xs(  8) = 0.5384017758254174D-01
        xs(  9) = 0.6396032297375669D-01
        ws(  1) = 0.2515361463960541D-02
        ws(  2) = 0.5024026992407329D-02
        ws(  3) = 0.6643861833118708D-02
        ws(  4) = 0.7715260838759455D-02
        ws(  5) = 0.8473642724828806D-02
        ws(  6) = 0.9060887071947807D-02
        ws(  7) = 0.9576851581249084D-02
        ws(  8) = 0.1015917905468168D-01
        ws(  9) = 0.1192266348294502D-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 =   8
        err = 0.9807145508846221D-03
        xs(  1) = 0.1092039483364275D-02
        xs(  2) = 0.5294024563550920D-02
        xs(  3) = 0.1164821002930877D-01
        xs(  4) = 0.1931146399642873D-01
        xs(  5) = 0.2782263134487907D-01
        xs(  6) = 0.3691413289685968D-01
        xs(  7) = 0.4642026176617168D-01
        xs(  8) = 0.5627072691033630D-01
        ws(  1) = 0.2738138746365711D-02
        ws(  2) = 0.5458625655687827D-02
        ws(  3) = 0.7117271959919530D-02
        ws(  4) = 0.8152636810166557D-02
        ws(  5) = 0.8863981095204025D-02
        ws(  6) = 0.9400739814554152D-02
        ws(  7) = 0.9952435344125196D-02
        ws(  8) = 0.1172865145180492D-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 =   9
        err = 0.6227472932622394D-03
        xs(  1) = 0.9498242205442391D-03
        xs(  2) = 0.4777866857302283D-02
        xs(  3) = 0.1072383229698959D-01
        xs(  4) = 0.1797948723278609D-01
        xs(  5) = 0.2611724527341877D-01
        xs(  6) = 0.3489797475615555D-01
        xs(  7) = 0.4420055205088536D-01
        xs(  8) = 0.5390985960163593D-01
        xs(  9) = 0.6401130825916743D-01
        ws(  1) = 0.2421813681616233D-02
        ws(  2) = 0.5055164252679479D-02
        ws(  3) = 0.6696481124081191D-02
        ws(  4) = 0.7757281136745181D-02
        ws(  5) = 0.8497718106851827D-02
        ws(  6) = 0.9092314825243050D-02
        ws(  7) = 0.9615416950116683D-02
        ws(  8) = 0.1019369764861314D-01
        ws(  9) = 0.1204173893484353D-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 =  10
        err = 0.4920830937985292D-03
        xs(  1) = 0.5015206241045744D-03
        xs(  2) = 0.2856573417960971D-02
        xs(  3) = 0.7441322853302443D-02
        xs(  4) = 0.1385710932809260D-01
        xs(  5) = 0.2148196033074067D-01
        xs(  6) = 0.2991497684523927D-01
        xs(  7) = 0.3893635748488045D-01
        xs(  8) = 0.4843930437461008D-01
        xs(  9) = 0.5830921982683603D-01
        xs( 10) = 0.6846811801142280D-01
        ws(  1) = 0.1317112401310693D-02
        ws(  2) = 0.3470197921073698D-02
        ws(  3) = 0.5612977066749050D-02
        ws(  4) = 0.7108205165945493D-02
        ws(  5) = 0.8081102598998928D-02
        ws(  6) = 0.8760005923103886D-02
        ws(  7) = 0.9304680427998285D-02
        ws(  8) = 0.9797500306806156D-02
        ws(  9) = 0.1029781594752996D-01
        ws( 10) = 0.1184039891881878D-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 =  10
        err = 0.8268763624746718D-03
        xs(  1) = 0.3225292530973220D-03
        xs(  2) = 0.1874981323384106D-02
        xs(  3) = 0.5412477517679073D-02
        xs(  4) = 0.1140117452179141D-01
        xs(  5) = 0.1908544728668228D-01
        xs(  6) = 0.2771312281908934D-01
        xs(  7) = 0.3692390472664022D-01
        xs(  8) = 0.4654194927623807D-01
        xs(  9) = 0.5642954628821296D-01
        xs( 10) = 0.6629485468841809D-01
        ws(  1) = 0.8469352356158832D-03
        ws(  2) = 0.2384505776647979D-02
        ws(  3) = 0.4804953821272750D-02
        ws(  4) = 0.7003532960310600D-02
        ws(  5) = 0.8241041359482415D-02
        ws(  6) = 0.8965982459382800D-02
        ws(  7) = 0.9462160997115249D-02
        ws(  8) = 0.9871386161869758D-02
        ws(  9) = 0.1023688769999007D-01
        ws( 10) = 0.1106879886372868D-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 =  12
        err = 0.6349143241331210D-03
        xs(  1) = 0.1260828383628984D-03
        xs(  2) = 0.6902248760941684D-03
        xs(  3) = 0.1835411050560005D-02
        xs(  4) = 0.3912364770342165D-02
        xs(  5) = 0.7682599671255562D-02
        xs(  6) = 0.1381141129934266D-01
        xs(  7) = 0.2177241272421712D-01
        xs(  8) = 0.3072490264819894D-01
        xs(  9) = 0.4023783654351294D-01
        xs( 10) = 0.5012507997846062D-01
        xs( 11) = 0.6032776912539070D-01
        xs( 12) = 0.7037446500918169D-01
        ws(  1) = 0.3264855411353746D-03
        ws(  2) = 0.8207467719133669D-03
        ws(  3) = 0.1523357336146828D-02
        ws(  4) = 0.2761422332968692D-02
        ws(  5) = 0.4926228910497516D-02
        ws(  6) = 0.7212320773336700D-02
        ws(  7) = 0.8560801571860314D-02
        ws(  8) = 0.9280028307372429D-02
        ws(  9) = 0.9747825039046329D-02
        ws( 10) = 0.1016643774078254D-01
        ws( 11) = 0.1062031936322688D-01
        ws( 12) = 0.1067026195317561D-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 =  16
        err = 0.7636292768785818D-03
        xs(  1) = 0.4261752583550531D-04
        xs(  2) = 0.2268155147654679D-03
        xs(  3) = 0.5679217879387941D-03
        xs(  4) = 0.1089428933348115D-02
        xs(  5) = 0.1836042486395584D-02
        xs(  6) = 0.2887188271244603D-02
        xs(  7) = 0.4391850360158313D-02
        xs(  8) = 0.6656115606415309D-02
        xs(  9) = 0.1038841722594038D-01
        xs( 10) = 0.1654577475987830D-01
        xs( 11) = 0.2505871073465497D-01
        xs( 12) = 0.3483593201642682D-01
        xs( 13) = 0.4514349321483942D-01
        xs( 14) = 0.5569809207761967D-01
        xs( 15) = 0.6634989666199149D-01
        xs( 16) = 0.7650326125872078D-01
        ws(  1) = 0.1097358266869361D-03
        ws(  2) = 0.2602247445941513D-03
        ws(  3) = 0.4257863633325147D-03
        ws(  4) = 0.6244465840031808D-03
        ws(  5) = 0.8814039225965031D-03
        ws(  6) = 0.1245002473783440D-02
        ws(  7) = 0.1810306440079250D-02
        ws(  8) = 0.2834850056779280D-02
        ws(  9) = 0.4818117606591511D-02
        ws( 10) = 0.7488657798723308D-02
        ws( 11) = 0.9321824246645139D-02
        ws( 12) = 0.1012001239360037D-01
        ws( 13) = 0.1049406287254457D-01
        ws( 14) = 0.1069722099182790D-01
        ws( 15) = 0.1086014057691278D-01
        ws( 16) = 0.9339209968845600D-02
        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 =  19
        err = 0.5449323949620843D-03
        xs(  1) = 0.2221410187427125D-04
        xs(  2) = 0.1173644007280001D-03
        xs(  3) = 0.2900775602936281D-03
        xs(  4) = 0.5442927239887632D-03
        xs(  5) = 0.8883452308634015D-03
        xs(  6) = 0.1335457107436759D-02
        xs(  7) = 0.1906856190977679D-02
        xs(  8) = 0.2634776135913148D-02
        xs(  9) = 0.3566148748930731D-02
        xs( 10) = 0.4786835278379883D-02
        xs( 11) = 0.6453532241969923D-02
        xs( 12) = 0.8901040088930825D-02
        xs( 13) = 0.1277192244136465D-01
        xs( 14) = 0.1935260755046881D-01
        xs( 15) = 0.2946890035322542D-01
        xs( 16) = 0.4161401190744996D-01
        xs( 17) = 0.5423415789151524D-01
        xs( 18) = 0.6674567780649295D-01
        xs( 19) = 0.7850650502779997D-01
        ws(  1) = 0.5704052400115519D-04
        ws(  2) = 0.1335495014397718D-03
        ws(  3) = 0.2124733589544895D-03
        ws(  4) = 0.2973859059426058D-03
        ws(  5) = 0.3928664948531338D-03
        ws(  6) = 0.5046941076537390D-03
        ws(  7) = 0.6435557746111399D-03
        ws(  8) = 0.8194367862607722D-03
        ws(  9) = 0.1057636577563049D-02
        ws( 10) = 0.1407395604897208D-02
        ws( 11) = 0.1981220695364866D-02
        ws( 12) = 0.3011423519975807D-02
        ws( 13) = 0.4954540341547561D-02
        ws( 14) = 0.8412975530977827D-02
        ws( 15) = 0.1148973966845305D-01
        ws( 16) = 0.1253759646745645D-01
        ws( 17) = 0.1260888850386397D-01
        ws( 18) = 0.1238543598093413D-01
        ws( 19) = 0.9800287037201996D-02
        endif
        if( idomain .eq.   11 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.0000000000000000D+00
        rk1r = 0.1256637061435917D+02
        rk1i = 0.2000000000000000D-01
        iquadtype =  2
        n =  23
        err = 0.3703849646157365D-03
        xs(  1) = 0.1336559208148214D-04
        xs(  2) = 0.7045885459963079D-04
        xs(  3) = 0.1735957440570979D-03
        xs(  4) = 0.3238626860474102D-03
        xs(  5) = 0.5235003237095295D-03
        xs(  6) = 0.7761837279490609D-03
        xs(  7) = 0.1087350164581321D-02
        xs(  8) = 0.1465045260642251D-02
        xs(  9) = 0.1920045402566169D-02
        xs( 10) = 0.2467318065707274D-02
        xs( 11) = 0.3129227826350948D-02
        xs( 12) = 0.3938003040589112D-02
        xs( 13) = 0.4940357025266863D-02
        xs( 14) = 0.6203319111453619D-02
        xs( 15) = 0.7860590405792532D-02
        xs( 16) = 0.1017994184627189D-01
        xs( 17) = 0.1364538499326427D-01
        xs( 18) = 0.1926461370231863D-01
        xs( 19) = 0.2865464760343612D-01
        xs( 20) = 0.4172457234420196D-01
        xs( 21) = 0.5614478665250163D-01
        xs( 22) = 0.7041530284420371D-01
        xs( 23) = 0.8368955184867781D-01
        ws(  1) = 0.3427884458412586D-04
        ws(  2) = 0.7999535116472091D-04
        ws(  3) = 0.1264461434976906D-03
        ws(  4) = 0.1744877288036731D-03
        ws(  5) = 0.2254108603068261D-03
        ws(  6) = 0.2808212429156504D-03
        ws(  7) = 0.3428327177462928D-03
        ws(  8) = 0.4143060780752828D-03
        ws(  9) = 0.4981127689539934D-03
        ws( 10) = 0.6001757202600555D-03
        ws( 11) = 0.7288792215963518D-03
        ws( 12) = 0.8965434956549379D-03
        ws( 13) = 0.1118692080278918D-02
        ws( 14) = 0.1428254889050011D-02
        ws( 15) = 0.1930561670504806D-02
        ws( 16) = 0.2784060043370552D-02
        ws( 17) = 0.4305483312026929D-02
        ws( 18) = 0.7247383658643841D-02
        ws( 19) = 0.1155083695614114D-01
        ws( 20) = 0.1411223946090443D-01
        ws( 21) = 0.1447816515842413D-01
        ws( 22) = 0.1376476083581234D-01
        ws( 23) = 0.1006736856281086D-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 =  26
        err = 0.8057315026232216D-03
        xs(  1) = 0.9188373325865121D-05
        xs(  2) = 0.4840473159371168D-04
        xs(  3) = 0.1189630218860181D-03
        xs(  4) = 0.2210784975895192D-03
        xs(  5) = 0.3555001395147685D-03
        xs(  6) = 0.5235969015620021D-03
        xs(  7) = 0.7272861751994964D-03
        xs(  8) = 0.9693558314410974D-03
        xs(  9) = 0.1253851675566588D-02
        xs( 10) = 0.1585590630507604D-02
        xs( 11) = 0.1971535590884197D-02
        xs( 12) = 0.2420712743318558D-02
        xs( 13) = 0.2944596517658809D-02
        xs( 14) = 0.3561450653383080D-02
        xs( 15) = 0.4292174331734790D-02
        xs( 16) = 0.5165592946041296D-02
        xs( 17) = 0.6229263777204632D-02
        xs( 18) = 0.7551618067513124D-02
        xs( 19) = 0.9261021443640546D-02
        xs( 20) = 0.1166806570737096D-01
        xs( 21) = 0.1533201911412752D-01
        xs( 22) = 0.2141297979565677D-01
        xs( 23) = 0.3203752950632481D-01
        xs( 24) = 0.4738632402779855D-01
        xs( 25) = 0.6417282793378287D-01
        xs( 26) = 0.8007392503353344D-01
        ws(  1) = 0.2361229699546927D-04
        ws(  2) = 0.5486740258336395D-04
        ws(  3) = 0.8626333207618153D-04
        ws(  4) = 0.1180702656829363D-03
        ws(  5) = 0.1509799034532497D-03
        ws(  6) = 0.1855307242116223D-03
        ws(  7) = 0.2223301954979903D-03
        ws(  8) = 0.2625664021231887D-03
        ws(  9) = 0.3071782280533668D-03
        ws( 10) = 0.3574182281504741D-03
        ws( 11) = 0.4160099179226608D-03
        ws( 12) = 0.4840413614640620D-03
        ws( 13) = 0.5669401180688193D-03
        ws( 14) = 0.6700817647948054D-03
        ws( 15) = 0.7960537156156893D-03
        ws( 16) = 0.9583096170196320D-03
        ws( 17) = 0.1180665266842110D-02
        ws( 18) = 0.1481310918311672D-02
        ws( 19) = 0.1990677117927528D-02
        ws( 20) = 0.2910084711575282D-02
        ws( 21) = 0.4597669283302072D-02
        ws( 22) = 0.7961826860353948D-02
        ws( 23) = 0.1340087567735647D-01
        ws( 24) = 0.1661236920747707D-01
        ws( 25) = 0.1647227275605757D-01
        ws( 26) = 0.1217895781355353D-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 =  30
        err = 0.6630477841814239D-03
        xs(  1) = 0.6617903275583913D-05
        xs(  2) = 0.3487293343261423D-04
        xs(  3) = 0.8566022008372341D-04
        xs(  4) = 0.1589744215873974D-03
        xs(  5) = 0.2550545939937077D-03
        xs(  6) = 0.3744190430038451D-03
        xs(  7) = 0.5178853670551679D-03
        xs(  8) = 0.6865625037621178D-03
        xs(  9) = 0.8822314283746730D-03
        xs( 10) = 0.1107053699686706D-02
        xs( 11) = 0.1363506747782649D-02
        xs( 12) = 0.1655054777436096D-02
        xs( 13) = 0.1985846175578731D-02
        xs( 14) = 0.2361819849059234D-02
        xs( 15) = 0.2790549340686472D-02
        xs( 16) = 0.3279310095263458D-02
        xs( 17) = 0.3840369157849895D-02
        xs( 18) = 0.4488945380899794D-02
        xs( 19) = 0.5246294411936483D-02
        xs( 20) = 0.6134815040253849D-02
        xs( 21) = 0.7194362201752043D-02
        xs( 22) = 0.8497533894694797D-02
        xs( 23) = 0.1018193575706409D-01
        xs( 24) = 0.1248058080859191D-01
        xs( 25) = 0.1578672719871851D-01
        xs( 26) = 0.2099302634897137D-01
        xs( 27) = 0.3015369221600898D-01
        xs( 28) = 0.4519821596230313D-01
        xs( 29) = 0.6357339400813870D-01
        xs( 30) = 0.8151808938827579D-01
        ws(  1) = 0.1698470189270390D-04
        ws(  2) = 0.3952842092582497D-04
        ws(  3) = 0.6203856933579295D-04
        ws(  4) = 0.8463537479732298D-04
        ws(  5) = 0.1076116281656660D-03
        ws(  6) = 0.1312475796020522D-03
        ws(  7) = 0.1558160565322938D-03
        ws(  8) = 0.1818239526236909D-03
        ws(  9) = 0.2098808051713610D-03
        ws( 10) = 0.2401479503259926D-03
        ws( 11) = 0.2732950114272389D-03
        ws( 12) = 0.3104011243995523D-03
        ws( 13) = 0.3521001676407280D-03
        ws( 14) = 0.4011481826069140D-03
        ws( 15) = 0.4572917321309573D-03
        ws( 16) = 0.5224211489834006D-03
        ws( 17) = 0.6019775381024334D-03
        ws( 18) = 0.6989172487695605D-03
        ws( 19) = 0.8190764492676243D-03
        ws( 20) = 0.9646304959397457D-03
        ws( 21) = 0.1165794329436502D-02
        ws( 22) = 0.1463417690243499D-02
        ws( 23) = 0.1943188431616944D-02
        ws( 24) = 0.2715779800865247D-02
        ws( 25) = 0.4029786539312981D-02
        ws( 26) = 0.6728039747286442D-02
        ws( 27) = 0.1205273311138696D-01
        ws( 28) = 0.1747545306077780D-01
        ws( 29) = 0.1852383152279037D-01
        ws( 30) = 0.1428585510621099D-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 =  34
        err = 0.8130478147862324D-03
        xs(  1) = 0.5007646323081338D-05
        xs(  2) = 0.2635341914098796D-04
        xs(  3) = 0.6471488065889393D-04
        xs(  4) = 0.1200596641351138D-03
        xs(  5) = 0.1924413807816743D-03
        xs(  6) = 0.2820467152051884D-03
        xs(  7) = 0.3892427578768158D-03
        xs(  8) = 0.5145472626281984D-03
        xs(  9) = 0.6587572695456997D-03
        xs( 10) = 0.8229575081563341D-03
        xs( 11) = 0.1008342935171357D-02
        xs( 12) = 0.1216493446717551D-02
        xs( 13) = 0.1449550291549921D-02
        xs( 14) = 0.1709741265096899D-02
        xs( 15) = 0.2000056213135609D-02
        xs( 16) = 0.2324152308570025D-02
        xs( 17) = 0.2686365393453619D-02
        xs( 18) = 0.3092613464831224D-02
        xs( 19) = 0.3548633057675998D-02
        xs( 20) = 0.4063047515970906D-02
        xs( 21) = 0.4647528313860899D-02
        xs( 22) = 0.5314401712386940D-02
        xs( 23) = 0.6083793599317804D-02
        xs( 24) = 0.6980404449073437D-02
        xs( 25) = 0.8033221867751510D-02
        xs( 26) = 0.9320211356995817D-02
        xs( 27) = 0.1099766693721042D-01
        xs( 28) = 0.1325942649836832D-01
        xs( 29) = 0.1642868090664787D-01
        xs( 30) = 0.2125645276105489D-01
        xs( 31) = 0.2952792507580579D-01
        xs( 32) = 0.4387057014800121D-01
        xs( 33) = 0.6335730219206606D-01
        xs( 34) = 0.8322988188401079D-01
        ws(  1) = 0.1283847574687557D-04
        ws(  2) = 0.2985738235958228D-04
        ws(  3) = 0.4685013396552439D-04
        ws(  4) = 0.6384857692363594D-04
        ws(  5) = 0.8096100575161365D-04
        ws(  6) = 0.9832059048660680D-04
        ws(  7) = 0.1161471229620363D-03
        ws(  8) = 0.1346056618130225D-03
        ws(  9) = 0.1540180756429608D-03
        ws( 10) = 0.1745647189893994D-03
        ws( 11) = 0.1964186595784658D-03
        ws( 12) = 0.2202260928461816D-03
        ws( 13) = 0.2462293325549325D-03
        ws( 14) = 0.2746651361181128D-03
        ws( 15) = 0.3065761710321955D-03
        ws( 16) = 0.3422573009405859D-03
        ws( 17) = 0.3831861648534625D-03
        ws( 18) = 0.4300746316949527D-03
        ws( 19) = 0.4833084546235618D-03
        ws( 20) = 0.5475222073565854D-03
        ws( 21) = 0.6233405233009620D-03
        ws( 22) = 0.7136513401459141D-03
        ws( 23) = 0.8296286703436268D-03
        ws( 24) = 0.9670849051397353D-03
        ws( 25) = 0.1150842619390968D-02
        ws( 26) = 0.1450589055568640D-02
        ws( 27) = 0.1934407472396907D-02
        ws( 28) = 0.2640238006768053D-02
        ws( 29) = 0.3808530728636958D-02
        ws( 30) = 0.6142370384565451D-02
        ws( 31) = 0.1091415392129522D-01
        ws( 32) = 0.1765728555175157D-01
        ws( 33) = 0.2025469221679723D-01
        ws( 34) = 0.1619160029647359D-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 =  38
        err = 0.7209993749869344D-03
        xs(  1) = 0.3941495676197990D-05
        xs(  2) = 0.2074596324007263D-04
        xs(  3) = 0.5093135651518026D-04
        xs(  4) = 0.9443753604069529D-04
        xs(  5) = 0.1512339576348416D-03
        xs(  6) = 0.2214028498664014D-03
        xs(  7) = 0.3051190019797840D-03
        xs(  8) = 0.4026086002391463D-03
        xs(  9) = 0.5142218363801272D-03
        xs( 10) = 0.6405617803528475D-03
        xs( 11) = 0.7822950471919737D-03
        xs( 12) = 0.9402141613163910D-03
        xs( 13) = 0.1115397217583137D-02
        xs( 14) = 0.1309082346406763D-02
        xs( 15) = 0.1522597823700433D-02
        xs( 16) = 0.1758004784060515D-02
        xs( 17) = 0.2017462063751019D-02
        xs( 18) = 0.2303068681254747D-02
        xs( 19) = 0.2617906075374465D-02
        xs( 20) = 0.2965650861735841D-02
        xs( 21) = 0.3350824177270345D-02
        xs( 22) = 0.3778387434212728D-02
        xs( 23) = 0.4254294776939087D-02
        xs( 24) = 0.4786202420063186D-02
        xs( 25) = 0.5387617932196492D-02
        xs( 26) = 0.6069037250132769D-02
        xs( 27) = 0.6849414872204945D-02
        xs( 28) = 0.7748192568317376D-02
        xs( 29) = 0.8801565411147771D-02
        xs( 30) = 0.1006941647105078D-01
        xs( 31) = 0.1168795175506518D-01
        xs( 32) = 0.1384707319958939D-01
        xs( 33) = 0.1682891033034041D-01
        xs( 34) = 0.2122889206143521D-01
        xs( 35) = 0.2852277803423366D-01
        xs( 36) = 0.4155048283657099D-01
        xs( 37) = 0.6156730679634614D-01
        xs( 38) = 0.8353330461674377D-01
        ws(  1) = 0.1011537692225227D-04
        ws(  2) = 0.2350837345662925D-04
        ws(  3) = 0.3686252723372412D-04
        ws(  4) = 0.5014036705969812D-04
        ws(  5) = 0.6347756378514500D-04
        ws(  6) = 0.7688862775586036D-04
        ws(  7) = 0.9052768081676293D-04
        ws(  8) = 0.1045223399683692D-03
        ws(  9) = 0.1188837481772098D-03
        ws( 10) = 0.1338863451369694D-03
        ws( 11) = 0.1496802224915406D-03
        ws( 12) = 0.1663560171116190D-03
        ws( 13) = 0.1842309815749792D-03
        ws( 14) = 0.2033115775796183D-03
        ws( 15) = 0.2240670761785433D-03
        ws( 16) = 0.2471160504223751D-03
        ws( 17) = 0.2721105819681962D-03
        ws( 18) = 0.2996423510180370D-03
        ws( 19) = 0.3305793126522004D-03
        ws( 20) = 0.3656671717001946D-03
        ws( 21) = 0.4054315371800541D-03
        ws( 22) = 0.4507040367941473D-03
        ws( 23) = 0.5020577881895760D-03
        ws( 24) = 0.5644150195189370D-03
        ws( 25) = 0.6394650468602292D-03
        ws( 26) = 0.7271027133627315D-03
        ws( 27) = 0.8359875280199880D-03
        ws( 28) = 0.9682044366618700D-03
        ws( 29) = 0.1146670491215145D-02
        ws( 30) = 0.1412718722154383D-02
        ws( 31) = 0.1855852160899205D-02
        ws( 32) = 0.2505599979550530D-02
        ws( 33) = 0.3547386315331653D-02
        ws( 34) = 0.5488377905799317D-02
        ws( 35) = 0.9585605927373626D-02
        ws( 36) = 0.1689054219033401D-01
        ws( 37) = 0.2204270820506389D-01
        ws( 38) = 0.1921475681837190D-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 =  42
        err = 0.7426540236916330D-03
        xs(  1) = 0.3174512777600971D-05
        xs(  2) = 0.1674382201882901D-04
        xs(  3) = 0.4110321977445643D-04
        xs(  4) = 0.7623110441656930D-04
        xs(  5) = 0.1220507152258616D-03
        xs(  6) = 0.1785956981858112D-03
        xs(  7) = 0.2459548227366333D-03
        xs(  8) = 0.3242066237392403D-03
        xs(  9) = 0.4135744644390969D-03
        xs( 10) = 0.5143480884428043D-03
        xs( 11) = 0.6269383887457913D-03
        xs( 12) = 0.7517618672785906D-03
        xs( 13) = 0.8893733170383167D-03
        xs( 14) = 0.1040572755604247D-02
        xs( 15) = 0.1206124142638185D-02
        xs( 16) = 0.1386917235405803D-02
        xs( 17) = 0.1584314934099631D-02
        xs( 18) = 0.1799626500393659D-02
        xs( 19) = 0.2034255701140184D-02
        xs( 20) = 0.2290192910404694D-02
        xs( 21) = 0.2569388574802206D-02
        xs( 22) = 0.2874439197493930D-02
        xs( 23) = 0.3208282806695279D-02
        xs( 24) = 0.3574440079610861D-02
        xs( 25) = 0.3976255423285489D-02
        xs( 26) = 0.4420634083486905D-02
        xs( 27) = 0.4912899321535143D-02
        xs( 28) = 0.5459893234192634D-02
        xs( 29) = 0.6074824617435574D-02
        xs( 30) = 0.6769798048542241D-02
        xs( 31) = 0.7557932471247505D-02
        xs( 32) = 0.8453896190365471D-02
        xs( 33) = 0.9506989111998489D-02
        xs( 34) = 0.1078369670973997D-01
        xs( 35) = 0.1238631052585151D-01
        xs( 36) = 0.1445570664452986D-01
        xs( 37) = 0.1722584463311136D-01
        xs( 38) = 0.2122752950949768D-01
        xs( 39) = 0.2772307895505668D-01
        xs( 40) = 0.3923878105713902D-01
        xs( 41) = 0.5855311728593287D-01
        xs( 42) = 0.8205464250941762D-01
        ws(  1) = 0.8152426132563121D-05
        ws(  2) = 0.1897226216928189D-04
        ws(  3) = 0.2976273537304738D-04
        ws(  4) = 0.4045067587210455D-04
        ws(  5) = 0.5121078305666942D-04
        ws(  6) = 0.6192598729108435D-04
        ws(  7) = 0.7276782994680589D-04
        ws(  8) = 0.8379552547759512D-04
        ws(  9) = 0.9497690063244950D-04
        ws( 10) = 0.1066287818139127D-03
        ws( 11) = 0.1186442542910786D-03
        ws( 12) = 0.1310975808633131D-03
        ws( 13) = 0.1442469548396731D-03
        ws( 14) = 0.1582725842152457D-03
        ws( 15) = 0.1729688373802949D-03
        ws( 16) = 0.1888459734785277D-03
        ws( 17) = 0.2061645876837046D-03
        ws( 18) = 0.2246657734226704D-03
        ws( 19) = 0.2449439930357981D-03
        ws( 20) = 0.2671886487259363D-03
        ws( 21) = 0.2916705940719835D-03
        ws( 22) = 0.3189322329007127D-03
        ws( 23) = 0.3494259776121119D-03
        ws( 24) = 0.3833301406184913D-03
        ws( 25) = 0.4216709274070048D-03
        ws( 26) = 0.4680135157309214D-03
        ws( 27) = 0.5174879675831903D-03
        ws( 28) = 0.5790590616577506D-03
        ws( 29) = 0.6526404270279890D-03
        ws( 30) = 0.7398629365844825D-03
        ws( 31) = 0.8378430595717352D-03
        ws( 32) = 0.9633136497691388D-03
        ws( 33) = 0.1153002765170951D-02
        ws( 34) = 0.1418304352784116D-02
        ws( 35) = 0.1809134479933144D-02
        ws( 36) = 0.2365528047407628D-02
        ws( 37) = 0.3256929458509322D-02
        ws( 38) = 0.4943842904334339D-02
        ws( 39) = 0.8464432910352851D-02
        ws( 40) = 0.1520173895453094D-01
        ws( 41) = 0.2264719977637308D-01
        ws( 42) = 0.2106912383157446D-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 =  46
        err = 0.8082089986532437D-03
        xs(  1) = 0.2623324890651950D-05
        xs(  2) = 0.1385093792879293D-04
        xs(  3) = 0.3397838362444881D-04
        xs(  4) = 0.6298498211792611D-04
        xs(  5) = 0.1008007151446471D-03
        xs(  6) = 0.1474262945061044D-03
        xs(  7) = 0.2028659336500727D-03
        xs(  8) = 0.2671803368044771D-03
        xs(  9) = 0.3404871558987227D-03
        xs( 10) = 0.4229064891789236D-03
        xs( 11) = 0.5147086794185007D-03
        xs( 12) = 0.6161579625173280D-03
        xs( 13) = 0.7275756554303805D-03
        xs( 14) = 0.8493915595408912D-03
        xs( 15) = 0.9820959508289378D-03
        xs( 16) = 0.1126179920021223D-02
        xs( 17) = 0.1282429726248849D-02
        xs( 18) = 0.1451699572685059D-02
        xs( 19) = 0.1634820554754552D-02
        xs( 20) = 0.1832763361988461D-02
        xs( 21) = 0.2046633727364293D-02
        xs( 22) = 0.2278034120473858D-02
        xs( 23) = 0.2528510157672108D-02
        xs( 24) = 0.2799677942525940D-02
        xs( 25) = 0.3093936439801804D-02
        xs( 26) = 0.3412730242410308D-02
        xs( 27) = 0.3759848793500129D-02
        xs( 28) = 0.4138681537959632D-02
        xs( 29) = 0.4553353909894359D-02
        xs( 30) = 0.5009073547069811D-02
        xs( 31) = 0.5512457341001004D-02
        xs( 32) = 0.6069984202782105D-02
        xs( 33) = 0.6689171214491145D-02
        xs( 34) = 0.7381004404380475D-02
        xs( 35) = 0.8164883438442176D-02
        xs( 36) = 0.9046750400086933D-02
        xs( 37) = 0.1007343044767796D-01
        xs( 38) = 0.1133177541701440D-01
        xs( 39) = 0.1291734490783345D-01
        xs( 40) = 0.1495479922188703D-01
        xs( 41) = 0.1766095299917311D-01
        xs( 42) = 0.2150150226314123D-01
        xs( 43) = 0.2753232074829031D-01
        xs( 44) = 0.3806179838603539D-01
        xs( 45) = 0.5682325173977774D-01
        xs( 46) = 0.8210373340923005D-01
        ws(  1) = 0.6746989806553340D-05
        ws(  2) = 0.1566583399328662D-04
        ws(  3) = 0.2461692197942553D-04
        ws(  4) = 0.3340480646493112D-04
        ws(  5) = 0.4221248216516628D-04
        ws(  6) = 0.5099781660378734D-04
        ws(  7) = 0.5988393044061302D-04
        ws(  8) = 0.6880064046450107D-04
        ws(  9) = 0.7783836444634011D-04
        ws( 10) = 0.8706651942287252D-04
        ws( 11) = 0.9655271669290541D-04
        ws( 12) = 0.1063832909072747D-03
        ws( 13) = 0.1165403683671732D-03
        ws( 14) = 0.1271980792190883D-03
        ws( 15) = 0.1383048806633097D-03
        ws( 16) = 0.1499863668700395D-03
        ws( 17) = 0.1626508484385870D-03
        ws( 18) = 0.1760743671493049D-03
        ws( 19) = 0.1903266197291296D-03
        ws( 20) = 0.2056972611514650D-03
        ws( 21) = 0.2223142379692860D-03
        ws( 22) = 0.2407473587025280D-03
        ws( 23) = 0.2604278159950056D-03
        ws( 24) = 0.2823917673365856D-03
        ws( 25) = 0.3061868243429814D-03
        ws( 26) = 0.3321456177289337D-03
        ws( 27) = 0.3625610146753953D-03
        ws( 28) = 0.3957965969700227D-03
        ws( 29) = 0.4342803616112884D-03
        ws( 30) = 0.4783902881060843D-03
        ws( 31) = 0.5291840632887829D-03
        ws( 32) = 0.5873747401116014D-03
        ws( 33) = 0.6520505448200382D-03
        ws( 34) = 0.7360854640386425D-03
        ws( 35) = 0.8310072958122008D-03
        ws( 36) = 0.9404054830419308D-03
        ws( 37) = 0.1128805159048307D-02
        ws( 38) = 0.1402928888889045D-02
        ws( 39) = 0.1787877477436655D-02
        ws( 40) = 0.2321925641754827D-02
        ws( 41) = 0.3161329980044171D-02
        ws( 42) = 0.4683678324510531D-02
        ws( 43) = 0.7752147602817557D-02
        ws( 44) = 0.1401871613960305D-01
        ws( 45) = 0.2328454002570003D-01
        ws( 46) = 0.2374054775954107D-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 =  50
        err = 0.9917712179160379D-03
        xs(  1) = 0.2210546573348721D-05
        xs(  2) = 0.1163727181761131D-04
        xs(  3) = 0.2855512591878167D-04
        xs(  4) = 0.5294739158697309D-04
        xs(  5) = 0.8473791337883517D-04
        xs(  6) = 0.1238925792270058D-03
        xs(  7) = 0.1704387036179370D-03
        xs(  8) = 0.2243699448098027D-03
        xs(  9) = 0.2857415977186437D-03
        xs( 10) = 0.3546462078587026D-03
        xs( 11) = 0.4312221126735395D-03
        xs( 12) = 0.5156305761260000D-03
        xs( 13) = 0.6080808095414740D-03
        xs( 14) = 0.7088322653649977D-03
        xs( 15) = 0.8181896570754516D-03
        xs( 16) = 0.9364957715768809D-03
        xs( 17) = 0.1064127723963306D-02
        xs( 18) = 0.1201682777214174D-02
        xs( 19) = 0.1349726672039024D-02
        xs( 20) = 0.1508830963647164D-02
        xs( 21) = 0.1679720476750974D-02
        xs( 22) = 0.1863108549688060D-02
        xs( 23) = 0.2060061403446327D-02
        xs( 24) = 0.2271694310944961D-02
        xs( 25) = 0.2499196869396444D-02
        xs( 26) = 0.2743921311350517D-02
        xs( 27) = 0.3006982495579408D-02
        xs( 28) = 0.3290167564737334D-02
        xs( 29) = 0.3595863339186230D-02
        xs( 30) = 0.3926611958558623D-02
        xs( 31) = 0.4285220555256074D-02
        xs( 32) = 0.4675995342028739D-02
        xs( 33) = 0.5102377005437009D-02
        xs( 34) = 0.5568541914134301D-02
        xs( 35) = 0.6076092647562253D-02
        xs( 36) = 0.6639003244015702D-02
        xs( 37) = 0.7266864382174561D-02
        xs( 38) = 0.7961427742851320D-02
        xs( 39) = 0.8743816321427240D-02
        xs( 40) = 0.9643485869389179D-02
        xs( 41) = 0.1069831544296592D-01
        xs( 42) = 0.1196547780501480D-01
        xs( 43) = 0.1353825131418748D-01
        xs( 44) = 0.1552900577326810D-01
        xs( 45) = 0.1813009672604476D-01
        xs( 46) = 0.2174587813113237D-01
        xs( 47) = 0.2729189047466659D-01
        xs( 48) = 0.3684539203985354D-01
        xs( 49) = 0.5434140012650560D-01
        xs( 50) = 0.8050929640363912D-01
        ws(  1) = 0.5643048025993736D-05
        ws(  2) = 0.1321841299892088D-04
        ws(  3) = 0.2065447665129706D-04
        ws(  4) = 0.2807674823098323D-04
        ws(  5) = 0.3549868976143960D-04
        ws(  6) = 0.4286824661889966D-04
        ws(  7) = 0.5018346777009828D-04
        ws(  8) = 0.5766556066108411D-04
        ws(  9) = 0.6510988999787806D-04
        ws( 10) = 0.7271156731921057D-04
        ws( 11) = 0.8045113750118320D-04
        ws( 12) = 0.8841849234356336D-04
        ws( 13) = 0.9652317509839018D-04
        ws( 14) = 0.1050001477898271D-03
        ws( 15) = 0.1137815689077589D-03
        ws( 16) = 0.1228873747470843D-03
        ws( 17) = 0.1325043258941734D-03
        ws( 18) = 0.1426835837157869D-03
        ws( 19) = 0.1534828475782979D-03
        ws( 20) = 0.1648689861792140D-03
        ws( 21) = 0.1769903841267206D-03
        ws( 22) = 0.1899939711316445D-03
        ws( 23) = 0.2041145420573459D-03
        ws( 24) = 0.2193378362616150D-03
        ws( 25) = 0.2358947149105309D-03
        ws( 26) = 0.2536724148031536D-03
        ws( 27) = 0.2727697405097247D-03
        ws( 28) = 0.2940084593657336D-03
        ws( 29) = 0.3178311380687438D-03
        ws( 30) = 0.3440312084368589D-03
        ws( 31) = 0.3740382736835897D-03
        ws( 32) = 0.4078954935142156D-03
        ws( 33) = 0.4458913136435092D-03
        ws( 34) = 0.4861391841246299D-03
        ws( 35) = 0.5318292729453530D-03
        ws( 36) = 0.5958204894829830D-03
        ws( 37) = 0.6592581299923024D-03
        ws( 38) = 0.7342151982375614D-03
        ws( 39) = 0.8351067916053853D-03
        ws( 40) = 0.9707000604618331D-03
        ws( 41) = 0.1148231505848674D-02
        ws( 42) = 0.1401767852999954D-02
        ws( 43) = 0.1762482740768439D-02
        ws( 44) = 0.2248223296976330D-02
        ws( 45) = 0.3017057197792664D-02
        ws( 46) = 0.4355870125574560D-02
        ws( 47) = 0.7072009543407005D-02
        ws( 48) = 0.1269675764197072D-01
        ws( 49) = 0.2279109288072392D-01
        ws( 50) = 0.2623847783402279D-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 =  55
        err = 0.5188534242613320D-03
        xs(  1) = 0.1850588092266810D-05
        xs(  2) = 0.9766498600601601D-05
        xs(  3) = 0.2397471365947691D-04
        xs(  4) = 0.4445965569491547D-04
        xs(  5) = 0.7118743023220341D-04
        xs(  6) = 0.1041322503216828D-03
        xs(  7) = 0.1432759974550337D-03
        xs(  8) = 0.1886338764325978D-03
        xs(  9) = 0.2402202661376334D-03
        xs( 10) = 0.2980901142753539D-03
        xs( 11) = 0.3623201564819320D-03
        xs( 12) = 0.4330255098327975D-03
        xs( 13) = 0.5103220689411616D-03
        xs( 14) = 0.5943568828284587D-03
        xs( 15) = 0.6853607950870132D-03
        xs( 16) = 0.7835792728814049D-03
        xs( 17) = 0.8892095023112018D-03
        xs( 18) = 0.1002565831756333D-02
        xs( 19) = 0.1124062345042219D-02
        xs( 20) = 0.1254096374295385D-02
        xs( 21) = 0.1393088756001033D-02
        xs( 22) = 0.1541559724090023D-02
        xs( 23) = 0.1699990474136015D-02
        xs( 24) = 0.1869101874499817D-02
        xs( 25) = 0.2049711473184511D-02
        xs( 26) = 0.2242470749138067D-02
        xs( 27) = 0.2448312444275204D-02
        xs( 28) = 0.2668215116922544D-02
        xs( 29) = 0.2903545971007454D-02
        xs( 30) = 0.3155486000506723D-02
        xs( 31) = 0.3425293183815899D-02
        xs( 32) = 0.3714916467346618D-02
        xs( 33) = 0.4026173685009613D-02
        xs( 34) = 0.4362035696214843D-02
        xs( 35) = 0.4724348268412900D-02
        xs( 36) = 0.5115660219479298D-02
        xs( 37) = 0.5540986645582833D-02
        xs( 38) = 0.6003792109757837D-02
        xs( 39) = 0.6508009444838542D-02
        xs( 40) = 0.7062034647663374D-02
        xs( 41) = 0.7674341737913684D-02
        xs( 42) = 0.8351642873606390D-02
        xs( 43) = 0.9103613944105015D-02
        xs( 44) = 0.9944062611963823D-02
        xs( 45) = 0.1090731359892202D-01
        xs( 46) = 0.1205112207583700D-01
        xs( 47) = 0.1343812866292149D-01
        xs( 48) = 0.1514448778243899D-01
        xs( 49) = 0.1728634400768676D-01
        xs( 50) = 0.2008536568744725D-01
        xs( 51) = 0.2402551050233183D-01
        xs( 52) = 0.3000697736266599D-01
        xs( 53) = 0.4000956813021663D-01
        xs( 54) = 0.5792715977562867D-01
        xs( 55) = 0.8483316174918759D-01
        ws(  1) = 0.4773899668972866D-05
        ws(  2) = 0.1104295428266730D-04
        ws(  3) = 0.1736877228670481D-04
        ws(  4) = 0.2360554846833292D-04
        ws(  5) = 0.2982495494111292D-04
        ws(  6) = 0.3604961569635161D-04
        ws(  7) = 0.4226012427933937D-04
        ws(  8) = 0.4845904631812586D-04
        ws(  9) = 0.5472470998959133D-04
        ws( 10) = 0.6102383682740372D-04
        ws( 11) = 0.6746583645660966D-04
        ws( 12) = 0.7397220709640401D-04
        ws( 13) = 0.8063937758344206D-04
        ws( 14) = 0.8747991550501744D-04
        ws( 15) = 0.9456603714526071D-04
        ws( 16) = 0.1018957637558002D-03
        ws( 17) = 0.1094338104299300D-03
        ws( 18) = 0.1173460124374673D-03
        ws( 19) = 0.1257061878537158D-03
        ws( 20) = 0.1344379052329013D-03
        ws( 21) = 0.1436431084497807D-03
        ws( 22) = 0.1533687116258020D-03
        ws( 23) = 0.1636187550510578D-03
        ws( 24) = 0.1747486223263556D-03
        ws( 25) = 0.1865642538552154D-03
        ws( 26) = 0.1991194680640803D-03
        ws( 27) = 0.2127012628175460D-03
        ws( 28) = 0.2273477130237185D-03
        ws( 29) = 0.2435078487264761D-03
        ws( 30) = 0.2605501333223029D-03
        ws( 31) = 0.2794392650755003D-03
        ws( 32) = 0.2999970802628858D-03
        ws( 33) = 0.3230913821456096D-03
        ws( 34) = 0.3488750831365714D-03
        ws( 35) = 0.3761684369946569D-03
        ws( 36) = 0.4073899022035019D-03
        ws( 37) = 0.4437960063622648D-03
        ws( 38) = 0.4822997763995293D-03
        ws( 39) = 0.5275977316709460D-03
        ws( 40) = 0.5819800679214672D-03
        ws( 41) = 0.6434630650432436D-03
        ws( 42) = 0.7129709429885039D-03
        ws( 43) = 0.7929003590457495D-03
        ws( 44) = 0.8933402417700616D-03
        ws( 45) = 0.1043832165782218D-02
        ws( 46) = 0.1253622550437907D-02
        ws( 47) = 0.1532675254946698D-02
        ws( 48) = 0.1899487080896927D-02
        ws( 49) = 0.2416702277595179D-02
        ws( 50) = 0.3261878040451112D-02
        ws( 51) = 0.4757757351370222D-02
        ws( 52) = 0.7518377711780431D-02
        ws( 53) = 0.1314586038506749D-01
        ws( 54) = 0.2323029484168012D-01
        ws( 55) = 0.2745171162084229D-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 =  59
        err = 0.7277424163818180D-03
        xs(  1) = 0.1596015357386733D-05
        xs(  2) = 0.8446819585427505D-05
        xs(  3) = 0.2074590884924139D-04
        xs(  4) = 0.3848229768061264D-04
        xs(  5) = 0.6160820452246854D-04
        xs(  6) = 0.9009616619569321D-04
        xs(  7) = 0.1239309056928537D-03
        xs(  8) = 0.1631144728177664D-03
        xs(  9) = 0.2076407371669081D-03
        xs( 10) = 0.2575317409324612D-03
        xs( 11) = 0.3128489481214356D-03
        xs( 12) = 0.3736448047315047D-03
        xs( 13) = 0.4400160898268312D-03
        xs( 14) = 0.5120448175869220D-03
        xs( 15) = 0.5898722800048494D-03
        xs( 16) = 0.6736809932577717D-03
        xs( 17) = 0.7636292079087151D-03
        xs( 18) = 0.8598744349505615D-03
        xs( 19) = 0.9626861150157148D-03
        xs( 20) = 0.1072386923402327D-02
        xs( 21) = 0.1189261606081003D-02
        xs( 22) = 0.1313609918731657D-02
        xs( 23) = 0.1445769706146397D-02
        xs( 24) = 0.1586202135116251D-02
        xs( 25) = 0.1735501028513225D-02
        xs( 26) = 0.1894015254843862D-02
        xs( 27) = 0.2062357342663150D-02
        xs( 28) = 0.2241265791103389D-02
        xs( 29) = 0.2431192904307384D-02
        xs( 30) = 0.2633398966752165D-02
        xs( 31) = 0.2848519453402575D-02
        xs( 32) = 0.3077415330170219D-02
        xs( 33) = 0.3321565291070672D-02
        xs( 34) = 0.3582159835578830D-02
        xs( 35) = 0.3860597028790630D-02
        xs( 36) = 0.4158517177239212D-02
        xs( 37) = 0.4477580515754957D-02
        xs( 38) = 0.4820015993429944D-02
        xs( 39) = 0.5189359404186118D-02
        xs( 40) = 0.5587340998708831D-02
        xs( 41) = 0.6018307552930830D-02
        xs( 42) = 0.6486321127653828D-02
        xs( 43) = 0.6995083425148132D-02
        xs( 44) = 0.7551449386059179D-02
        xs( 45) = 0.8160194990644158D-02
        xs( 46) = 0.8832626702703060D-02
        xs( 47) = 0.9582063669857714D-02
        xs( 48) = 0.1041920154469288D-01
        xs( 49) = 0.1137650349332801D-01
        xs( 50) = 0.1250500332371356D-01
        xs( 51) = 0.1388043297407887D-01
        xs( 52) = 0.1557913836477521D-01
        xs( 53) = 0.1770550530410289D-01
        xs( 54) = 0.2045801087777353D-01
        xs( 55) = 0.2424420980263708D-01
        xs( 56) = 0.2995000190272014D-01
        xs( 57) = 0.3957640200086969D-01
        xs( 58) = 0.5724619978281286D-01
        xs( 59) = 0.8597986032086397D-01
        ws(  1) = 0.4111345690229425D-05
        ws(  2) = 0.9594188752803511D-05
        ws(  3) = 0.1502511046010311D-04
        ws(  4) = 0.2042418394984698D-04
        ws(  5) = 0.2577823667375726D-04
        ws(  6) = 0.3119787925892142D-04
        ws(  7) = 0.3649602366388575D-04
        ws(  8) = 0.4186383721103394D-04
        ws(  9) = 0.4721450628256233D-04
        ws( 10) = 0.5258398476050975D-04
        ws( 11) = 0.5803333077655457D-04
        ws( 12) = 0.6357030489047061D-04
        ws( 13) = 0.6919465044090267D-04
        ws( 14) = 0.7490304635388474D-04
        ws( 15) = 0.8077315453648138D-04
        ws( 16) = 0.8686655291563165D-04
        ws( 17) = 0.9306247751040770D-04
        ws( 18) = 0.9947900482592170D-04
        ws( 19) = 0.1062082145602331D-03
        ws( 20) = 0.1132483039156535D-03
        ws( 21) = 0.1205471605656583D-03
        ws( 22) = 0.1282026298148136D-03
        ws( 23) = 0.1361933017143809D-03
        ws( 24) = 0.1447940492935126D-03
        ws( 25) = 0.1538475124238705D-03
        ws( 26) = 0.1632719534791332D-03
        ws( 27) = 0.1735551925388081D-03
        ws( 28) = 0.1842703821067367D-03
        ws( 29) = 0.1958520730841802D-03
        ws( 30) = 0.2086397815641951D-03
        ws( 31) = 0.2217151164482209D-03
        ws( 32) = 0.2363233615030799D-03
        ws( 33) = 0.2520773891486025D-03
        ws( 34) = 0.2693144607813402D-03
        ws( 35) = 0.2877810511077481D-03
        ws( 36) = 0.3083751542803586D-03
        ws( 37) = 0.3299828601548283D-03
        ws( 38) = 0.3556075554547196D-03
        ws( 39) = 0.3831199073602148D-03
        ws( 40) = 0.4137187784707494D-03
        ws( 41) = 0.4489531387034325D-03
        ws( 42) = 0.4875124185804257D-03
        ws( 43) = 0.5315047837984335D-03
        ws( 44) = 0.5816450129275472D-03
        ws( 45) = 0.6377594118737738D-03
        ws( 46) = 0.7097449870532501D-03
        ws( 47) = 0.7897696036085853D-03
        ws( 48) = 0.8904386137605775D-03
        ws( 49) = 0.1032338248121358D-02
        ws( 50) = 0.1237521554281256D-02
        ws( 51) = 0.1525750268008482D-02
        ws( 52) = 0.1888540737844641D-02
        ws( 53) = 0.2393977810297881D-02
        ws( 54) = 0.3176616175267882D-02
        ws( 55) = 0.4533628205869689D-02
        ws( 56) = 0.7196458827760536D-02
        ws( 57) = 0.1270277283186845D-01
        ws( 58) = 0.2368199969310804D-01
        ws( 59) = 0.3129749592300568D-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 =  63
        err = 0.7428312188329348D-03
        xs(  1) = 0.1374659926262957D-05
        xs(  2) = 0.7346952759100525D-05
        xs(  3) = 0.1808160341987916D-04
        xs(  4) = 0.3355206660944265D-04
        xs(  5) = 0.5371337949586093D-04
        xs(  6) = 0.7856240549857674D-04
        xs(  7) = 0.1080571970452632D-03
        xs(  8) = 0.1422068766100026D-03
        xs(  9) = 0.1809988144447011D-03
        xs( 10) = 0.2244365246961423D-03
        xs( 11) = 0.2725571751278714D-03
        xs( 12) = 0.3253905310186842D-03
        xs( 13) = 0.3830009485636444D-03
        xs( 14) = 0.4454427671142511D-03
        xs( 15) = 0.5128143088361023D-03
        xs( 16) = 0.5852325516986420D-03
        xs( 17) = 0.6628233455283369D-03
        xs( 18) = 0.7456831897201038D-03
        xs( 19) = 0.8339865724903767D-03
        xs( 20) = 0.9279370564439372D-03
        xs( 21) = 0.1027776310970623D-02
        xs( 22) = 0.1133720348438399D-02
        xs( 23) = 0.1246002048435219D-02
        xs( 24) = 0.1364859984780253D-02
        xs( 25) = 0.1490710360561138D-02
        xs( 26) = 0.1623917517613264D-02
        xs( 27) = 0.1764798779613767D-02
        xs( 28) = 0.1913827034939681D-02
        xs( 29) = 0.2071354716969113D-02
        xs( 30) = 0.2237950809328800D-02
        xs( 31) = 0.2414500836835764D-02
        xs( 32) = 0.2601372213231723D-02
        xs( 33) = 0.2799189598975745D-02
        xs( 34) = 0.3008824889410967D-02
        xs( 35) = 0.3231430643306233D-02
        xs( 36) = 0.3467798514700890D-02
        xs( 37) = 0.3719251385299314D-02
        xs( 38) = 0.3986909006315587D-02
        xs( 39) = 0.4271604124615369D-02
        xs( 40) = 0.4575528232112309D-02
        xs( 41) = 0.4900204397922898D-02
        xs( 42) = 0.5248450629482052D-02
        xs( 43) = 0.5622709283194003D-02
        xs( 44) = 0.6025813877102081D-02
        xs( 45) = 0.6461597205285408D-02
        xs( 46) = 0.6931698978087805D-02
        xs( 47) = 0.7441996262686595D-02
        xs( 48) = 0.7998338688780551D-02
        xs( 49) = 0.8601333243080052D-02
        xs( 50) = 0.9263637155222824D-02
        xs( 51) = 0.9995879144105041D-02
        xs( 52) = 0.1082586718878976D-01
        xs( 53) = 0.1179314277483874D-01
        xs( 54) = 0.1294027198598733D-01
        xs( 55) = 0.1433017471546495D-01
        xs( 56) = 0.1602635696598379D-01
        xs( 57) = 0.1812456854008830D-01
        xs( 58) = 0.2082286762231571D-01
        xs( 59) = 0.2452294897747295D-01
        xs( 60) = 0.3004512023378112D-01
        xs( 61) = 0.3916616538529678D-01
        xs( 62) = 0.5557222197028853D-01
        xs( 63) = 0.8382602701349211D-01
        ws(  1) = 0.3581917081317330D-05
        ws(  2) = 0.8369783984397394D-05
        ws(  3) = 0.1308480892555910D-04
        ws(  4) = 0.1778456626372227D-04
        ws(  5) = 0.2255623342933210D-04
        ws(  6) = 0.2714586452778384D-04
        ws(  7) = 0.3183469195460734D-04
        ws(  8) = 0.3645628635137048D-04
        ws(  9) = 0.4110671522810022D-04
        ws( 10) = 0.4579385364004417D-04
        ws( 11) = 0.5045453211133731D-04
        ws( 12) = 0.5521041384531088D-04
        ws( 13) = 0.6000575104630690D-04
        ws( 14) = 0.6488901185767715D-04
        ws( 15) = 0.6986257778364461D-04
        ws( 16) = 0.7498576681832986D-04
        ws( 17) = 0.8020045975175900D-04
        ws( 18) = 0.8555030858304947D-04
        ws( 19) = 0.9107397769309920D-04
        ws( 20) = 0.9686662717094307D-04
        ws( 21) = 0.1028584120870360D-03
        ws( 22) = 0.1090666266022528D-03
        ws( 23) = 0.1155216410212681D-03
        ws( 24) = 0.1222807678147993D-03
        ws( 25) = 0.1294915840013000D-03
        ws( 26) = 0.1369907065272223D-03
        ws( 27) = 0.1448857544307872D-03
        ws( 28) = 0.1532690186926984D-03
        ws( 29) = 0.1619066264066255D-03
        ws( 30) = 0.1714791063320098D-03
        ws( 31) = 0.1816993840415015D-03
        ws( 32) = 0.1922123905616984D-03
        ws( 33) = 0.2035914073054619D-03
        ws( 34) = 0.2159149736694549D-03
        ws( 35) = 0.2294020797115099D-03
        ws( 36) = 0.2435693812453387D-03
        ws( 37) = 0.2595662134697693D-03
        ws( 38) = 0.2757799981187468D-03
        ws( 39) = 0.2940626745506892D-03
        ws( 40) = 0.3138941519920075D-03
        ws( 41) = 0.3360548092202551D-03
        ws( 42) = 0.3608347683442225D-03
        ws( 43) = 0.3881567676805653D-03
        ws( 44) = 0.4188408283825132D-03
        ws( 45) = 0.4527795568380144D-03
        ws( 46) = 0.4884600690060238D-03
        ws( 47) = 0.5334505550957568D-03
        ws( 48) = 0.5785770724178614D-03
        ws( 49) = 0.6304238254027508D-03
        ws( 50) = 0.6952047160233363D-03
        ws( 51) = 0.7741117613517670D-03
        ws( 52) = 0.8932886887901868D-03
        ws( 53) = 0.1047084262038586D-02
        ws( 54) = 0.1259137803116274D-02
        ws( 55) = 0.1530084749361949D-02
        ws( 56) = 0.1877538649211152D-02
        ws( 57) = 0.2349242105052739D-02
        ws( 58) = 0.3112948431326176D-02
        ws( 59) = 0.4414176405839904D-02
        ws( 60) = 0.6908898910879776D-02
        ws( 61) = 0.1191052949879566D-01
        ws( 62) = 0.2205622218940937D-01
        ws( 63) = 0.3226232041697366D-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 =  67
        err = 0.7774725734281853D-03
        xs(  1) = 0.1235555684147901D-05
        xs(  2) = 0.6515958891166783D-05
        xs(  3) = 0.1596820932564245D-04
        xs(  4) = 0.2961685109259175D-04
        xs(  5) = 0.4740079027538907D-04
        xs(  6) = 0.6930360444940144D-04
        xs(  7) = 0.9532516630599306D-04
        xs(  8) = 0.1254238258928062D-03
        xs(  9) = 0.1595912800488962D-03
        xs( 10) = 0.1978531675732175D-03
        xs( 11) = 0.2402078046270088D-03
        xs( 12) = 0.2866748478626913D-03
        xs( 13) = 0.3372889925805299D-03
        xs( 14) = 0.3920983873327401D-03
        xs( 15) = 0.4511573359526168D-03
        xs( 16) = 0.5145494642990500D-03
        xs( 17) = 0.5823834395176805D-03
        xs( 18) = 0.6547273982506548D-03
        xs( 19) = 0.7316710236892950D-03
        xs( 20) = 0.8133555093473602D-03
        xs( 21) = 0.8999753338186891D-03
        xs( 22) = 0.9917029721729204D-03
        xs( 23) = 0.1088689395297328D-02
        xs( 24) = 0.1191114382873251D-02
        xs( 25) = 0.1299202830700917D-02
        xs( 26) = 0.1413238567137957D-02
        xs( 27) = 0.1533533831717279D-02
        xs( 28) = 0.1660389345218305D-02
        xs( 29) = 0.1794034015078194D-02
        xs( 30) = 0.1934770770120955D-02
        xs( 31) = 0.2083127006468337D-02
        xs( 32) = 0.2239600776667256D-02
        xs( 33) = 0.2404616946589603D-02
        xs( 34) = 0.2578621527687421D-02
        xs( 35) = 0.2762243085852319D-02
        xs( 36) = 0.2956145485052331D-02
        xs( 37) = 0.3160976879593635D-02
        xs( 38) = 0.3377872673647817D-02
        xs( 39) = 0.3607451227744917D-02
        xs( 40) = 0.3850452696367563D-02
        xs( 41) = 0.4108124418343768D-02
        xs( 42) = 0.4382022589839210D-02
        xs( 43) = 0.4672877159998380D-02
        xs( 44) = 0.4983091500144296D-02
        xs( 45) = 0.5314068678671011D-02
        xs( 46) = 0.5668298209992557D-02
        xs( 47) = 0.6048050255412284D-02
        xs( 48) = 0.6456185729202818D-02
        xs( 49) = 0.6895467647345690D-02
        xs( 50) = 0.7368880035539654D-02
        xs( 51) = 0.7882894873019986D-02
        xs( 52) = 0.8440413901407939D-02
        xs( 53) = 0.9042936904060057D-02
        xs( 54) = 0.9705830618146298D-02
        xs( 55) = 0.1044389057326896D-01
        xs( 56) = 0.1128027805634286D-01
        xs( 57) = 0.1224467942477308D-01
        xs( 58) = 0.1337515980486212D-01
        xs( 59) = 0.1472916498479218D-01
        xs( 60) = 0.1636862747340533D-01
        xs( 61) = 0.1837990204534154D-01
        xs( 62) = 0.2095548993850001D-01
        xs( 63) = 0.2446872226126549D-01
        xs( 64) = 0.2960757199968048D-01
        xs( 65) = 0.3779610371427789D-01
        xs( 66) = 0.5219965041910159D-01
        xs( 67) = 0.7900373821015445D-01
        ws(  1) = 0.3189590521327776D-05
        ws(  2) = 0.7350858611435759D-05
        ws(  3) = 0.1154033782844709D-04
        ws(  4) = 0.1574269241793500D-04
        ws(  5) = 0.1987930269300822D-04
        ws(  6) = 0.2393905747644346D-04
        ws(  7) = 0.2803449164551248D-04
        ws(  8) = 0.3214640138283042D-04
        ws(  9) = 0.3623393445308780D-04
        ws( 10) = 0.4029335357779602D-04
        ws( 11) = 0.4440365123207059D-04
        ws( 12) = 0.4853991295860915D-04
        ws( 13) = 0.5270261896483583D-04
        ws( 14) = 0.5692104531189519D-04
        ws( 15) = 0.6121117737322375D-04
        ws( 16) = 0.6559415519258529D-04
        ws( 17) = 0.7008019512579618D-04
        ws( 18) = 0.7461989702541017D-04
        ws( 19) = 0.7928499462272248D-04
        ws( 20) = 0.8412692971939320D-04
        ws( 21) = 0.8914122460868599D-04
        ws( 22) = 0.9432407905695900D-04
        ws( 23) = 0.9967527437590447D-04
        ws( 24) = 0.1052104652564700D-03
        ws( 25) = 0.1110126050067874D-03
        ws( 26) = 0.1171236188217713D-03
        ws( 27) = 0.1235430387780488D-03
        ws( 28) = 0.1301994401155566D-03
        ws( 29) = 0.1371217541053799D-03
        ws( 30) = 0.1444600443474918D-03
        ws( 31) = 0.1523299817700965D-03
        ws( 32) = 0.1606819538395425D-03
        ws( 33) = 0.1694459795090965D-03
        ws( 34) = 0.1786881437498982D-03
        ws( 35) = 0.1886922092167461D-03
        ws( 36) = 0.1992102820121865D-03
        ws( 37) = 0.2106815724331907D-03
        ws( 38) = 0.2231634417925863D-03
        ws( 39) = 0.2360982675750162D-03
        ws( 40) = 0.2500577375627009D-03
        ws( 41) = 0.2656086006121915D-03
        ws( 42) = 0.2821926622229316D-03
        ws( 43) = 0.3000920483811000D-03
        ws( 44) = 0.3204229765866298D-03
        ws( 45) = 0.3420462462384162D-03
        ws( 46) = 0.3666323943870813D-03
        ws( 47) = 0.3934400891059412D-03
        ws( 48) = 0.4232299966599791D-03
        ws( 49) = 0.4557530043148344D-03
        ws( 50) = 0.4923653436711383D-03
        ws( 51) = 0.5361148305169833D-03
        ws( 52) = 0.5787542304474589D-03
        ws( 53) = 0.6293410145375189D-03
        ws( 54) = 0.6983978696183215D-03
        ws( 55) = 0.7818715171497736D-03
        ws( 56) = 0.8957432746606311D-03
        ws( 57) = 0.1038865590467217D-02
        ws( 58) = 0.1232249165598603D-02
        ws( 59) = 0.1486077258108211D-02
        ws( 60) = 0.1804263639404872D-02
        ws( 61) = 0.2250626454896286D-02
        ws( 62) = 0.2961050765609714D-02
        ws( 63) = 0.4172106239639763D-02
        ws( 64) = 0.6322037375990018D-02
        ws( 65) = 0.1056151285017404D-01
        ws( 66) = 0.1942132051842612D-01
        ws( 67) = 0.3248002740322525D-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 =  71
        err = 0.9917750221612597D-03
        xs(  1) = 0.1111998189813997D-05
        xs(  2) = 0.5814783325388980D-05
        xs(  3) = 0.1425278926855778D-04
        xs(  4) = 0.2640461179605612D-04
        xs(  5) = 0.4225642177157425D-04
        xs(  6) = 0.6177920521970362D-04
        xs(  7) = 0.8493673767681188D-04
        xs(  8) = 0.1117369915446269D-03
        xs(  9) = 0.1421388193860528D-03
        xs( 10) = 0.1761633998318797D-03
        xs( 11) = 0.2137975472804074D-03
        xs( 12) = 0.2550468845765740D-03
        xs( 13) = 0.2999747761125007D-03
        xs( 14) = 0.3485559362409472D-03
        xs( 15) = 0.4008553582991072D-03
        xs( 16) = 0.4569164044704887D-03
        xs( 17) = 0.5168269811353780D-03
        xs( 18) = 0.5806536772385895D-03
        xs( 19) = 0.6484584767724558D-03
        xs( 20) = 0.7202992415420618D-03
        xs( 21) = 0.7963294411550468D-03
        xs( 22) = 0.8766983229020506D-03
        xs( 23) = 0.9615293252972091D-03
        xs( 24) = 0.1050942599699954D-02
        xs( 25) = 0.1145085418157391D-02
        xs( 26) = 0.1244125499025863D-02
        xs( 27) = 0.1348318235465321D-02
        xs( 28) = 0.1457901873983314D-02
        xs( 29) = 0.1573101608736081D-02
        xs( 30) = 0.1694115357180036D-02
        xs( 31) = 0.1821122383309459D-02
        xs( 32) = 0.1954541048942113D-02
        xs( 33) = 0.2094855065628557D-02
        xs( 34) = 0.2242244859225652D-02
        xs( 35) = 0.2397165332825387D-02
        xs( 36) = 0.2560066237007714D-02
        xs( 37) = 0.2731339694983136D-02
        xs( 38) = 0.2911526715501312D-02
        xs( 39) = 0.3101430375168333D-02
        xs( 40) = 0.3301755794742046D-02
        xs( 41) = 0.3512691833063358D-02
        xs( 42) = 0.3735369525557574D-02
        xs( 43) = 0.3970707318206450D-02
        xs( 44) = 0.4219263955737900D-02
        xs( 45) = 0.4482345408578126D-02
        xs( 46) = 0.4761273221208117D-02
        xs( 47) = 0.5057612830328096D-02
        xs( 48) = 0.5373459057472798D-02
        xs( 49) = 0.5709752934046034D-02
        xs( 50) = 0.6069158731116031D-02
        xs( 51) = 0.6451923639563768D-02
        xs( 52) = 0.6861862858661986D-02
        xs( 53) = 0.7303563881663331D-02
        xs( 54) = 0.7778888229008322D-02
        xs( 55) = 0.8294937268800867D-02
        xs( 56) = 0.8854833937971072D-02
        xs( 57) = 0.9463088095412193D-02
        xs( 58) = 0.1013168577312984D-01
        xs( 59) = 0.1086722624839070D-01
        xs( 60) = 0.1169765088642391D-01
        xs( 61) = 0.1264836513578324D-01
        xs( 62) = 0.1375563382604906D-01
        xs( 63) = 0.1508283426385365D-01
        xs( 64) = 0.1669642200811281D-01
        xs( 65) = 0.1868164049726131D-01
        xs( 66) = 0.2120200813416573D-01
        xs( 67) = 0.2463985270991853D-01
        xs( 68) = 0.2961368631455081D-01
        xs( 69) = 0.3743508653831669D-01
        xs( 70) = 0.5115048119603440D-01
        xs( 71) = 0.7764940466563049D-01
        ws(  1) = 0.2816689215503970D-05
        ws(  2) = 0.6563293631305205D-05
        ws(  3) = 0.1031524711666739D-04
        ws(  4) = 0.1402058303445227D-04
        ws(  5) = 0.1771887233324505D-04
        ws(  6) = 0.2132884923028069D-04
        ws(  7) = 0.2496240498828412D-04
        ws(  8) = 0.2860013584959137D-04
        ws(  9) = 0.3220802846123523D-04
        ws( 10) = 0.3583528376267155D-04
        ws( 11) = 0.3948731378563512D-04
        ws( 12) = 0.4305800318734948D-04
        ws( 13) = 0.4671370741809469D-04
        ws( 14) = 0.5046281747772771D-04
        ws( 15) = 0.5417813978754984D-04
        ws( 16) = 0.5795655721421131D-04
        ws( 17) = 0.6186221586840299D-04
        ws( 18) = 0.6580610169905487D-04
        ws( 19) = 0.6980368752939624D-04
        ws( 20) = 0.7391937748101394D-04
        ws( 21) = 0.7816857679786421D-04
        ws( 22) = 0.8258402887790198D-04
        ws( 23) = 0.8708723177778987D-04
        ws( 24) = 0.9175857079682536D-04
        ws( 25) = 0.9655923016438454D-04
        ws( 26) = 0.1015694919238795D-03
        ws( 27) = 0.1068352953268014D-03
        ws( 28) = 0.1123824279001768D-03
        ws( 29) = 0.1180867593492785D-03
        ws( 30) = 0.1239642761925201D-03
        ws( 31) = 0.1301265506282568D-03
        ws( 32) = 0.1368084061466286D-03
        ws( 33) = 0.1438035666092805D-03
        ws( 34) = 0.1510711299694593D-03
        ws( 35) = 0.1588670764665082D-03
        ws( 36) = 0.1670177907834361D-03
        ws( 37) = 0.1756411349094107D-03
        ws( 38) = 0.1848654265843900D-03
        ws( 39) = 0.1950667454879692D-03
        ws( 40) = 0.2055330393709350D-03
        ws( 41) = 0.2165581468679424D-03
        ws( 42) = 0.2289296986563762D-03
        ws( 43) = 0.2418337811352814D-03
        ws( 44) = 0.2555042674516003D-03
        ws( 45) = 0.2708744776676297D-03
        ws( 46) = 0.2871457573087425D-03
        ws( 47) = 0.3060202964651516D-03
        ws( 48) = 0.3256246422375482D-03
        ws( 49) = 0.3476897553733316D-03
        ws( 50) = 0.3708702694963977D-03
        ws( 51) = 0.3953844832466344D-03
        ws( 52) = 0.4253498852009377D-03
        ws( 53) = 0.4579673923088425D-03
        ws( 54) = 0.4942273954355906D-03
        ws( 55) = 0.5382196903925215D-03
        ws( 56) = 0.5819402623765626D-03
        ws( 57) = 0.6375275388800383D-03
        ws( 58) = 0.6994175278792666D-03
        ws( 59) = 0.7775487702993630D-03
        ws( 60) = 0.8871754356806243D-03
        ws( 61) = 0.1019397561181539D-02
        ws( 62) = 0.1206969541895503D-02
        ws( 63) = 0.1457657089537198D-02
        ws( 64) = 0.1783698824573538D-02
        ws( 65) = 0.2208929289836511D-02
        ws( 66) = 0.2900322190634709D-02
        ws( 67) = 0.4067790285930375D-02
        ws( 68) = 0.6077930407639944D-02
        ws( 69) = 0.1005088254074363D-01
        ws( 70) = 0.1858262571134374D-01
        ws( 71) = 0.3348466326066918D-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 =   9
        err = 0.5170951806660880D-03
        xs(  1) = 0.1031327268989894D-02
        xs(  2) = 0.4913685285980031D-02
        xs(  3) = 0.1080934715654573D-01
        xs(  4) = 0.1802022119170460D-01
        xs(  5) = 0.2612481887039264D-01
        xs(  6) = 0.3487959114426978D-01
        xs(  7) = 0.4414818443681432D-01
        xs(  8) = 0.5385275594829615D-01
        xs(  9) = 0.6397490640136171D-01
        ws(  1) = 0.2563362464270474D-02
        ws(  2) = 0.5035998748347534D-02
        ws(  3) = 0.6642482001668982D-02
        ws(  4) = 0.7709539937170322D-02
        ws(  5) = 0.8461649449563020D-02
        ws(  6) = 0.9040999044286194D-02
        ws(  7) = 0.9547914933925403D-02
        ws(  8) = 0.1012140012368603D-01
        ws(  9) = 0.1185490585833452D-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 =   9
        err = 0.4975277458605228D-03
        xs(  1) = 0.1023145178016292D-02
        xs(  2) = 0.4896137211279015D-02
        xs(  3) = 0.1078848958015085D-01
        xs(  4) = 0.1799846054672508D-01
        xs(  5) = 0.2610302371233089D-01
        xs(  6) = 0.3485844147867088D-01
        xs(  7) = 0.4412810323895768D-01
        xs(  8) = 0.5383412670194635D-01
        xs(  9) = 0.6395603192432300D-01
        ws(  1) = 0.2548337432518140D-02
        ws(  2) = 0.5030227261241221D-02
        ws(  3) = 0.6641378939160794D-02
        ws(  4) = 0.7709857577636836D-02
        ws(  5) = 0.8463131974021761D-02
        ws(  6) = 0.9043733696240543D-02
        ws(  7) = 0.9552663832342004D-02
        ws(  8) = 0.1012991292870661D-01
        ws(  9) = 0.1187365763264841D-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 =   9
        err = 0.4454195566928566D-03
        xs(  1) = 0.1002061589816783D-02
        xs(  2) = 0.4852788863734558D-02
        xs(  3) = 0.1074016498027615D-01
        xs(  4) = 0.1794990109577922D-01
        xs(  5) = 0.2605592208361886D-01
        xs(  6) = 0.3481407096088143D-01
        xs(  7) = 0.4408788686065493D-01
        xs(  8) = 0.5379835328060034D-01
        xs(  9) = 0.6391879603563964D-01
        ws(  1) = 0.2510159023595031D-02
        ws(  2) = 0.5018555749920167D-02
        ws(  3) = 0.6641242799839026D-02
        ws(  4) = 0.7712421789926215D-02
        ws(  5) = 0.8468340580255980D-02
        ws(  6) = 0.9052139675996747D-02
        ws(  7) = 0.9566625791861958D-02
        ws(  8) = 0.1015196816200482D-01
        ws(  9) = 0.1192247099338823D-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 =   8
        err = 0.9623363200536304D-03
        xs(  1) = 0.1094258265432194D-02
        xs(  2) = 0.5295896989606968D-02
        xs(  3) = 0.1165049956207197D-01
        xs(  4) = 0.1931906492419556D-01
        xs(  5) = 0.2784026394037798D-01
        xs(  6) = 0.3694969115502100D-01
        xs(  7) = 0.4647577337772129D-01
        xs(  8) = 0.5633903221696177D-01
        ws(  1) = 0.2740729439858949D-02
        ws(  2) = 0.5458167973794214D-02
        ws(  3) = 0.7120007403821565D-02
        ws(  4) = 0.8159095935651312D-02
        ws(  5) = 0.8877085483937786D-02
        ws(  6) = 0.9419398372267679D-02
        ws(  7) = 0.9966714561947422D-02
        ws(  8) = 0.1172370957746057D-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 =   9
        err = 0.5586983111334701D-03
        xs(  1) = 0.9488974621278692D-03
        xs(  2) = 0.4780014155982754D-02
        xs(  3) = 0.1073727511155651D-01
        xs(  4) = 0.1800342729056332D-01
        xs(  5) = 0.2614613851902797D-01
        xs(  6) = 0.3492419015330671D-01
        xs(  7) = 0.4421932791040918D-01
        xs(  8) = 0.5392224944123558D-01
        xs(  9) = 0.6402528853100702D-01
        ws(  1) = 0.2420368397659470D-02
        ws(  2) = 0.5063703588422683D-02
        ws(  3) = 0.6709651166883459D-02
        ws(  4) = 0.7764905142191704D-02
        ws(  5) = 0.8498948894972134D-02
        ws(  6) = 0.9085250433884622D-02
        ws(  7) = 0.9606342098878543D-02
        ws(  8) = 0.1018421769336812D-01
        ws(  9) = 0.1204336506181718D-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 =  10
        err = 0.4827064706641642D-03
        xs(  1) = 0.5024943196600550D-03
        xs(  2) = 0.2866348521361895D-02
        xs(  3) = 0.7471497697289471D-02
        xs(  4) = 0.1389971393662836D-01
        xs(  5) = 0.2152518575491846D-01
        xs(  6) = 0.2995196739287841D-01
        xs(  7) = 0.3896400800012908D-01
        xs(  8) = 0.4845963766221354D-01
        xs(  9) = 0.5832954224675186D-01
        xs( 10) = 0.6850358491148274D-01
        ws(  1) = 0.1320063010454497D-02
        ws(  2) = 0.3486708810228664D-02
        ws(  3) = 0.5632335276597833D-02
        ws(  4) = 0.7113823512732195D-02
        ws(  5) = 0.8077565992748658D-02
        ws(  6) = 0.8751559191176511D-02
        ws(  7) = 0.9294879391547719D-02
        ws(  8) = 0.9792243141122354D-02
        ws(  9) = 0.1030127534164578D-01
        ws( 10) = 0.1187257977334923D-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 =  10
        err = 0.7672896169183549D-03
        xs(  1) = 0.3228356576617087D-03
        xs(  2) = 0.1875616382940468D-02
        xs(  3) = 0.5413332776627389D-02
        xs(  4) = 0.1140386203134497D-01
        xs(  5) = 0.1909042284241132D-01
        xs(  6) = 0.2772188774505368D-01
        xs(  7) = 0.3694002595136347D-01
        xs(  8) = 0.4657290692690891D-01
        xs(  9) = 0.5648223649182059D-01
        xs( 10) = 0.6637192870679653D-01
        ws(  1) = 0.8475814427714759D-03
        ws(  2) = 0.2384403481155724D-02
        ws(  3) = 0.4806087846054450D-02
        ws(  4) = 0.7005688831384164D-02
        ws(  5) = 0.8243487150713177D-02
        ws(  6) = 0.8971353795896654D-02
        ws(  7) = 0.9472042900314902D-02
        ws(  8) = 0.9889157378426045D-02
        ws(  9) = 0.1025656111999034D-01
        ws( 10) = 0.1111784199522588D-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 =  12
        err = 0.5908742074786111D-03
        xs(  1) = 0.1261001084814533D-03
        xs(  2) = 0.6902006414923531D-03
        xs(  3) = 0.1834769299211330D-02
        xs(  4) = 0.3907936753260503D-02
        xs(  5) = 0.7671062958353746D-02
        xs(  6) = 0.1379506127493307D-01
        xs(  7) = 0.2175496927722972D-01
        xs(  8) = 0.3070946084097390D-01
        xs(  9) = 0.4022638426999590D-01
        xs( 10) = 0.5012013507783967D-01
        xs( 11) = 0.6033192500323918D-01
        xs( 12) = 0.7039993096882104D-01
        ws(  1) = 0.3264991493320460D-03
        ws(  2) = 0.8206310094364403D-03
        ws(  3) = 0.1521733640145227D-02
        ws(  4) = 0.2755309161938244D-02
        ws(  5) = 0.4919415693998968D-02
        ws(  6) = 0.7209600226697611D-02
        ws(  7) = 0.8561222068800882D-02
        ws(  8) = 0.9283290383174292D-02
        ws(  9) = 0.9752488774682301D-02
        ws( 10) = 0.1017359063149171D-01
        ws( 11) = 0.1063381065722326D-01
        ws( 12) = 0.1073871874072306D-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 =  16
        err = 0.7008812021767697D-03
        xs(  1) = 0.4264136777238033D-04
        xs(  2) = 0.2269306493450881D-03
        xs(  3) = 0.5681698552553331D-03
        xs(  4) = 0.1089779197786778D-02
        xs(  5) = 0.1836376072352011D-02
        xs(  6) = 0.2887040079014485D-02
        xs(  7) = 0.4389984094426038D-02
        xs(  8) = 0.6647999613451035D-02
        xs(  9) = 0.1036511185673575D-01
        xs( 10) = 0.1650525009937910D-01
        xs( 11) = 0.2501194888981625D-01
        xs( 12) = 0.3479071631030082D-01
        xs( 13) = 0.4510263536868030D-01
        xs( 14) = 0.5566382632001645D-01
        xs( 15) = 0.6632750858769276D-01
        xs( 16) = 0.7649444111009097D-01
        ws(  1) = 0.1097850295006110D-03
        ws(  2) = 0.2603472861880395D-03
        ws(  3) = 0.4259201198402834D-03
        ws(  4) = 0.6245126518804405D-03
        ws(  5) = 0.8812401343433549D-03
        ws(  6) = 0.1244108429467620D-02
        ws(  7) = 0.1807255934172517D-02
        ws(  8) = 0.2824364802654137D-02
        ws(  9) = 0.4799301285256007D-02
        ws( 10) = 0.7476050750071792D-02
        ws( 11) = 0.9320776141335965D-02
        ws( 12) = 0.1012326154471775D-01
        ws( 13) = 0.1049959060837456D-01
        ws( 14) = 0.1070471555207032D-01
        ws( 15) = 0.1087810095389358D-01
        ws( 16) = 0.9403464108705384D-02
        endif
        if( idomain .eq.   33 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.2000000000000000D-01
        rk1r = 0.9424777960769379D+01
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  19
        err = 0.5059201147614671D-03
        xs(  1) = 0.2221042019132744D-04
        xs(  2) = 0.1173545200112667D-03
        xs(  3) = 0.2900751567423639D-03
        xs(  4) = 0.5443074014835223D-03
        xs(  5) = 0.8883446428926533D-03
        xs(  6) = 0.1335395260570867D-02
        xs(  7) = 0.1906689098338906D-02
        xs(  8) = 0.2634393506630468D-02
        xs(  9) = 0.3565126451088343D-02
        xs( 10) = 0.4784026203304616D-02
        xs( 11) = 0.6447504156843846D-02
        xs( 12) = 0.8887464012086954D-02
        xs( 13) = 0.1274321272064836D-01
        xs( 14) = 0.1929610416722920D-01
        xs( 15) = 0.2938760141775955D-01
        xs( 16) = 0.4152667442374908D-01
        xs( 17) = 0.5415102281133335D-01
        xs( 18) = 0.6667437757136427D-01
        xs( 19) = 0.7844743852223032D-01
        ws(  1) = 0.5703347400689527D-04
        ws(  2) = 0.1335463984514050D-03
        ws(  3) = 0.2124921373404886D-03
        ws(  4) = 0.2973921611107540D-03
        ws(  5) = 0.3928231374053121D-03
        ws(  6) = 0.5046198741588312D-03
        ws(  7) = 0.6434095722036014D-03
        ws(  8) = 0.8191223589762565D-03
        ws(  9) = 0.1056491531303847D-02
        ws( 10) = 0.1405039336234591D-02
        ws( 11) = 0.1976538292024810D-02
        ws( 12) = 0.3000631854340104D-02
        ws( 13) = 0.4933679930677715D-02
        ws( 14) = 0.8381153957204644D-02
        ws( 15) = 0.1147525510374641D-01
        ws( 16) = 0.1253809543330334D-01
        ws( 17) = 0.1261823456065920D-01
        ws( 18) = 0.1242804024056026D-01
        ws( 19) = 0.9913296334895235D-02
        endif
        if( idomain .eq.   34 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.2000000000000000D-01
        rk1r = 0.1256637061435917D+02
        rk1i = 0.4000000000000000D-01
        iquadtype =  2
        n =  23
        err = 0.3544557105807027D-03
        xs(  1) = 0.1336939688566256D-04
        xs(  2) = 0.7047858773615354D-04
        xs(  3) = 0.1736475129278825D-03
        xs(  4) = 0.3239612857118989D-03
        xs(  5) = 0.5236547512582443D-03
        xs(  6) = 0.7763963273638626D-03
        xs(  7) = 0.1087617916635480D-02
        xs(  8) = 0.1465356507557750D-02
        xs(  9) = 0.1920369776786714D-02
        xs( 10) = 0.2467583322759041D-02
        xs( 11) = 0.3129303726435735D-02
        xs( 12) = 0.3937768701292451D-02
        xs( 13) = 0.4939382516784253D-02
        xs( 14) = 0.6200865370695852D-02
        xs( 15) = 0.7854867215264634D-02
        xs( 16) = 0.1016627131849275D-01
        xs( 17) = 0.1361773736737626D-01
        xs( 18) = 0.1921363050171442D-01
        xs( 19) = 0.2856858245276813D-01
        xs( 20) = 0.4162070151135357D-01
        xs( 21) = 0.5604210959122848D-01
        xs( 22) = 0.7032194043521071D-01
        xs( 23) = 0.8360773805890961D-01
        ws(  1) = 0.3428795389676221D-04
        ws(  2) = 0.8001962211014754D-04
        ws(  3) = 0.1264870919754589D-03
        ws(  4) = 0.1745402700945257D-03
        ws(  5) = 0.2254671402900888D-03
        ws(  6) = 0.2808794222802605D-03
        ws(  7) = 0.3428847427717552D-03
        ws(  8) = 0.4143378937657309D-03
        ws(  9) = 0.4981054904950166D-03
        ws( 10) = 0.6000519943681525D-03
        ws( 11) = 0.7286348367863545D-03
        ws( 12) = 0.8960998386641933D-03
        ws( 13) = 0.1117609289057298D-02
        ws( 14) = 0.1426244758716516D-02
        ws( 15) = 0.1925474625671750D-02
        ws( 16) = 0.2772983891870364D-02
        ws( 17) = 0.4288446123221257D-02
        ws( 18) = 0.7215754030742720D-02
        ws( 19) = 0.1151977302865521D-01
        ws( 20) = 0.1410675346123701D-01
        ws( 21) = 0.1448498942122241D-01
        ws( 22) = 0.1378532419088165D-01
        ws( 23) = 0.1012800324588000D-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 =  26
        err = 0.7652800404868119D-03
        xs(  1) = 0.9188243136369391D-05
        xs(  2) = 0.4840461904430853D-04
        xs(  3) = 0.1189670681597750D-03
        xs(  4) = 0.2210896330687314D-03
        xs(  5) = 0.3555187525537820D-03
        xs(  6) = 0.5236168402394227D-03
        xs(  7) = 0.7273113620716665D-03
        xs(  8) = 0.9693840816238694D-03
        xs(  9) = 0.1253862176883656D-02
        xs( 10) = 0.1585565065203111D-02
        xs( 11) = 0.1971432396972556D-02
        xs( 12) = 0.2420496055870417D-02
        xs( 13) = 0.2944156768290431D-02
        xs( 14) = 0.3560552744379161D-02
        xs( 15) = 0.4290847656148836D-02
        xs( 16) = 0.5163332691834198D-02
        xs( 17) = 0.6225077544667568D-02
        xs( 18) = 0.7545037318623298D-02
        xs( 19) = 0.9247621488418746D-02
        xs( 20) = 0.1164081146164215D-01
        xs( 21) = 0.1528732325396636D-01
        xs( 22) = 0.2133877273141881D-01
        xs( 23) = 0.3190903661405508D-01
        xs( 24) = 0.4722421089355602D-01
        xs( 25) = 0.6401654467430465D-01
        xs( 26) = 0.7994414366531173D-01
        ws(  1) = 0.2361311555520390D-04
        ws(  2) = 0.5486726683655845D-04
        ws(  3) = 0.8626829215071182D-04
        ws(  4) = 0.1180761134498055D-03
        ws(  5) = 0.1509841350681708D-03
        ws(  6) = 0.1855349527417583D-03
        ws(  7) = 0.2223385216756414D-03
        ws(  8) = 0.2625593260718989D-03
        ws(  9) = 0.3071487145719679D-03
        ws( 10) = 0.3573675449970517D-03
        ws( 11) = 0.4159097457526054D-03
        ws( 12) = 0.4839085377763783D-03
        ws( 13) = 0.5665814448164687D-03
        ws( 14) = 0.6696101408705554D-03
        ws( 15) = 0.7955749084392080D-03
        ws( 16) = 0.9567953640331670D-03
        ws( 17) = 0.1178573282926396D-02
        ws( 18) = 0.1477878054173396D-02
        ws( 19) = 0.1979791742097278D-02
        ws( 20) = 0.2894342033636296D-02
        ws( 21) = 0.4577171747837313D-02
        ws( 22) = 0.7919131644112018D-02
        ws( 23) = 0.1334553657287321D-01
        ws( 24) = 0.1660217386237034D-01
        ws( 25) = 0.1649992997478215D-01
        ws( 26) = 0.1225605366544147D-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 =  30
        err = 0.6355574351300005D-03
        xs(  1) = 0.6619282179879982D-05
        xs(  2) = 0.3487939508146476D-04
        xs(  3) = 0.8567621425010550D-04
        xs(  4) = 0.1590031966717949D-03
        xs(  5) = 0.2550982004245820D-03
        xs(  6) = 0.3744779895072822D-03
        xs(  7) = 0.5179573986224746D-03
        xs(  8) = 0.6866471587937876D-03
        xs(  9) = 0.8823239971062222D-03
        xs( 10) = 0.1107145798095258D-02
        xs( 11) = 0.1363602781382083D-02
        xs( 12) = 0.1655150678035186D-02
        xs( 13) = 0.1985900759594159D-02
        xs( 14) = 0.2361789547489432D-02
        xs( 15) = 0.2790415128648573D-02
        xs( 16) = 0.3279027832114071D-02
        xs( 17) = 0.3839800725255229D-02
        xs( 18) = 0.4487974925971712D-02
        xs( 19) = 0.5244932025322834D-02
        xs( 20) = 0.6132453338286601D-02
        xs( 21) = 0.7190087201273553D-02
        xs( 22) = 0.8490392659108335D-02
        xs( 23) = 0.1016750254046569D-01
        xs( 24) = 0.1245212262859984D-01
        xs( 25) = 0.1574103783850580D-01
        xs( 26) = 0.2092549788637900D-01
        xs( 27) = 0.3003401329284540D-01
        xs( 28) = 0.4501076936731659D-01
        xs( 29) = 0.6337568119780385D-01
        xs( 30) = 0.8134759069233527D-01
        ws(  1) = 0.1698851101118859D-04
        ws(  2) = 0.3953603423459746D-04
        ws(  3) = 0.6205041006555153D-04
        ws(  4) = 0.8464842986395129D-04
        ws(  5) = 0.1076255375564477D-03
        ws(  6) = 0.1312606423543842D-03
        ws(  7) = 0.1558296475194973D-03
        ws(  8) = 0.1818366575861666D-03
        ws(  9) = 0.2098829500647757D-03
        ws( 10) = 0.2401468619265432D-03
        ws( 11) = 0.2733027189264113D-03
        ws( 12) = 0.3103879102795800D-03
        ws( 13) = 0.3520342244550084D-03
        ws( 14) = 0.4010524719771838D-03
        ws( 15) = 0.4571780413505921D-03
        ws( 16) = 0.5222248235099083D-03
        ws( 17) = 0.6016030731894743D-03
        ws( 18) = 0.6985363903524322D-03
        ws( 19) = 0.8185513947330005D-03
        ws( 20) = 0.9630764464431985D-03
        ws( 21) = 0.1163634738019448D-02
        ws( 22) = 0.1459166346173646D-02
        ws( 23) = 0.1932300077794200D-02
        ws( 24) = 0.2699472112119763D-02
        ws( 25) = 0.4011738141097882D-02
        ws( 26) = 0.6697742132597979D-02
        ws( 27) = 0.1197783557688237D-01
        ws( 28) = 0.1743387114538003D-01
        ws( 29) = 0.1854552997458666D-01
        ws( 30) = 0.1438527770717683D-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 =  34
        err = 0.7913830983115636D-03
        xs(  1) = 0.5008344551462908D-05
        xs(  2) = 0.2635635019244074D-04
        xs(  3) = 0.6472310326480769D-04
        xs(  4) = 0.1200776029398171D-03
        xs(  5) = 0.1924728946708455D-03
        xs(  6) = 0.2820946764243299D-03
        xs(  7) = 0.3893091267223839D-03
        xs(  8) = 0.5146328090326881D-03
        xs(  9) = 0.6588625417868582D-03
        xs( 10) = 0.8230849696591375D-03
        xs( 11) = 0.1008492590623396D-02
        xs( 12) = 0.1216661167585717D-02
        xs( 13) = 0.1449735119854712D-02
        xs( 14) = 0.1709938425543194D-02
        xs( 15) = 0.2000255665672486D-02
        xs( 16) = 0.2324354938163202D-02
        xs( 17) = 0.2686520555282869D-02
        xs( 18) = 0.3092704668540372D-02
        xs( 19) = 0.3548681879714709D-02
        xs( 20) = 0.4062953373350739D-02
        xs( 21) = 0.4647261262170417D-02
        xs( 22) = 0.5313777399759972D-02
        xs( 23) = 0.6082702058203303D-02
        xs( 24) = 0.6978637831838923D-02
        xs( 25) = 0.8029855835656316D-02
        xs( 26) = 0.9313636472469277D-02
        xs( 27) = 0.1098371461245558D-01
        xs( 28) = 0.1323197444682259D-01
        xs( 29) = 0.1637957420232026D-01
        xs( 30) = 0.2117033499873353D-01
        xs( 31) = 0.2937380780123931D-01
        xs( 32) = 0.4361253818422518D-01
        xs( 33) = 0.6306376532743618D-01
        xs( 34) = 0.8296315536406441D-01
        ws(  1) = 0.1283856526874710D-04
        ws(  2) = 0.2986046376113345D-04
        ws(  3) = 0.4685809295642258D-04
        ws(  4) = 0.6386076131729365D-04
        ws(  5) = 0.8097615185737527D-04
        ws(  6) = 0.9833889884561838D-04
        ws(  7) = 0.1161650024547327D-03
        ws(  8) = 0.1346222655311561D-03
        ws(  9) = 0.1540398223594096D-03
        ws( 10) = 0.1745896153478041D-03
        ws( 11) = 0.1964397046033977D-03
        ws( 12) = 0.2202395326730381D-03
        ws( 13) = 0.2462438375232220D-03
        ws( 14) = 0.2746711198105618D-03
        ws( 15) = 0.3065818123127316D-03
        ws( 16) = 0.3422491584863837D-03
        ws( 17) = 0.3831125836513690D-03
        ws( 18) = 0.4300440137976237D-03
        ws( 19) = 0.4832219814679301D-03
        ws( 20) = 0.5473623215603467D-03
        ws( 21) = 0.6231171733684569D-03
        ws( 22) = 0.7131836497946334D-03
        ws( 23) = 0.8291766015615611D-03
        ws( 24) = 0.9660013120769240D-03
        ws( 25) = 0.1148737590846703D-02
        ws( 26) = 0.1445691251252010D-02
        ws( 27) = 0.1924306354008676D-02
        ws( 28) = 0.2623095875290724D-02
        ws( 29) = 0.3781053951066679D-02
        ws( 30) = 0.6094071764644403D-02
        ws( 31) = 0.1082044472180110D-01
        ws( 32) = 0.1757255900338926D-01
        ws( 33) = 0.2028173380988542D-01
        ws( 34) = 0.1634018492290210D-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 =  38
        err = 0.6963100409846687D-03
        xs(  1) = 0.3942142125053273D-05
        xs(  2) = 0.2075104127973483D-04
        xs(  3) = 0.5094431690711584D-04
        xs(  4) = 0.9446314815104482D-04
        xs(  5) = 0.1512770829260628D-03
        xs(  6) = 0.2214656809529484D-03
        xs(  7) = 0.3052038808388209D-03
        xs(  8) = 0.4027215488283960D-03
        xs(  9) = 0.5143663359891135D-03
        xs( 10) = 0.6407373461566175D-03
        xs( 11) = 0.7825029050059828D-03
        xs( 12) = 0.9404567283006499D-03
        xs( 13) = 0.1115675719806639D-02
        xs( 14) = 0.1309400771687687D-02
        xs( 15) = 0.1522951042549354D-02
        xs( 16) = 0.1758380214010671D-02
        xs( 17) = 0.2017875743268303D-02
        xs( 18) = 0.2303523204025699D-02
        xs( 19) = 0.2618379835868443D-02
        xs( 20) = 0.2966148011610098D-02
        xs( 21) = 0.3351296623725248D-02
        xs( 22) = 0.3778854793130269D-02
        xs( 23) = 0.4254767450384630D-02
        xs( 24) = 0.4786527269812203D-02
        xs( 25) = 0.5387715661067225D-02
        xs( 26) = 0.6068826893525601D-02
        xs( 27) = 0.6848866311526567D-02
        xs( 28) = 0.7746976229950525D-02
        xs( 29) = 0.8798648252144879D-02
        xs( 30) = 0.1006313294833713D-01
        xs( 31) = 0.1167400282840910D-01
        xs( 32) = 0.1382125507948945D-01
        xs( 33) = 0.1678605891713480D-01
        xs( 34) = 0.2116043882044482D-01
        xs( 35) = 0.2841412219415341D-01
        xs( 36) = 0.4135852309787092D-01
        xs( 37) = 0.6130054188115878D-01
        xs( 38) = 0.8325972355119685D-01
        ws(  1) = 0.1011793879723407D-04
        ws(  2) = 0.2351344461966424D-04
        ws(  3) = 0.3687286658626469D-04
        ws(  4) = 0.5015461268488845D-04
        ws(  5) = 0.6349566700105347D-04
        ws(  6) = 0.7691211903187631D-04
        ws(  7) = 0.9055223566944115D-04
        ws(  8) = 0.1045492640241637D-03
        ws(  9) = 0.1189167600832628D-03
        ws( 10) = 0.1339183146299436D-03
        ws( 11) = 0.1497119560876692D-03
        ws( 12) = 0.1663912712521012D-03
        ws( 13) = 0.1842715200075404D-03
        ws( 14) = 0.2033514559596909D-03
        ws( 15) = 0.2240924020187192D-03
        ws( 16) = 0.2471406332618289D-03
        ws( 17) = 0.2721596693314245D-03
        ws( 18) = 0.2996696916980852D-03
        ws( 19) = 0.3306038765327600D-03
        ws( 20) = 0.3656765215604331D-03
        ws( 21) = 0.4053942441211022D-03
        ws( 22) = 0.4507323464258319D-03
        ws( 23) = 0.5020030806678615D-03
        ws( 24) = 0.5641918595259644D-03
        ws( 25) = 0.6392338745014290D-03
        ws( 26) = 0.7267060294332898D-03
        ws( 27) = 0.8357034238808480D-03
        ws( 28) = 0.9669398123892999D-03
        ws( 29) = 0.1144585185398595D-02
        ws( 30) = 0.1407421958396128D-02
        ws( 31) = 0.1845961469905279D-02
        ws( 32) = 0.2491678847642978D-02
        ws( 33) = 0.3526419611214926D-02
        ws( 34) = 0.5457844518327519D-02
        ws( 35) = 0.9529210947551782D-02
        ws( 36) = 0.1678808700860923D-01
        ws( 37) = 0.2200672189137526D-01
        ws( 38) = 0.1926219385250107D-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 =  42
        err = 0.7148777536162945D-03
        xs(  1) = 0.3174878528194215D-05
        xs(  2) = 0.1674448138914893D-04
        xs(  3) = 0.4110570050747223D-04
        xs(  4) = 0.7623479127666385D-04
        xs(  5) = 0.1220606220932359D-03
        xs(  6) = 0.1786122983513609D-03
        xs(  7) = 0.2459793631600326D-03
        xs(  8) = 0.3242405520149773D-03
        xs(  9) = 0.4136186954113225D-03
        xs( 10) = 0.5144043698613621D-03
        xs( 11) = 0.6270071272194037D-03
        xs( 12) = 0.7518441019954337D-03
        xs( 13) = 0.8894705248871343D-03
        xs( 14) = 0.1040680716932894D-02
        xs( 15) = 0.1206242086930133D-02
        xs( 16) = 0.1387045570925699D-02
        xs( 17) = 0.1584447635541364D-02
        xs( 18) = 0.1799764281426532D-02
        xs( 19) = 0.2034393922389063D-02
        xs( 20) = 0.2290326281596055D-02
        xs( 21) = 0.2569520507157265D-02
        xs( 22) = 0.2874544542467575D-02
        xs( 23) = 0.3208358189626682D-02
        xs( 24) = 0.3574509583073212D-02
        xs( 25) = 0.3976240728891823D-02
        xs( 26) = 0.4420433140565899D-02
        xs( 27) = 0.4912614033486388D-02
        xs( 28) = 0.5459338033990098D-02
        xs( 29) = 0.6073862216843826D-02
        xs( 30) = 0.6768462741814090D-02
        xs( 31) = 0.7555986774257305D-02
        xs( 32) = 0.8450570748837294D-02
        xs( 33) = 0.9501134669322783D-02
        xs( 34) = 0.1077316156318176D-01
        xs( 35) = 0.1236576191143760D-01
        xs( 36) = 0.1442018283487665D-01
        xs( 37) = 0.1717248279860865D-01
        xs( 38) = 0.2115360618979621D-01
        xs( 39) = 0.2761304318942970D-01
        xs( 40) = 0.3904460149031647D-01
        xs( 41) = 0.5825238649687225D-01
        xs( 42) = 0.8173405016337526D-01
        ws(  1) = 0.8154168897348473D-05
        ws(  2) = 0.1897190034291330D-04
        ws(  3) = 0.2976579653063131D-04
        ws(  4) = 0.4045495510842328D-04
        ws(  5) = 0.5121359668119046D-04
        ws(  6) = 0.6193545127192899D-04
        ws(  7) = 0.7277478816673864D-04
        ws(  8) = 0.8380626301287070D-04
        ws(  9) = 0.9498948728511414D-04
        ws( 10) = 0.1066390664551200D-03
        ws( 11) = 0.1186558241622301D-03
        ws( 12) = 0.1311131976497942D-03
        ws( 13) = 0.1442588645417241D-03
        ws( 14) = 0.1582820011739156D-03
        ws( 15) = 0.1729802428278386D-03
        ws( 16) = 0.1888524286074939D-03
        ws( 17) = 0.2061653559498279D-03
        ws( 18) = 0.2246706870069018D-03
        ws( 19) = 0.2449416518815466D-03
        ws( 20) = 0.2671862854956374D-03
        ws( 21) = 0.2916620389934133D-03
        ws( 22) = 0.3188926821265660D-03
        ws( 23) = 0.3494119616585125D-03
        ws( 24) = 0.3833103711027826D-03
        ws( 25) = 0.4215070392440197D-03
        ws( 26) = 0.4678673366392507D-03
        ws( 27) = 0.5173893682028665D-03
        ws( 28) = 0.5786256129823951D-03
        ws( 29) = 0.6523073630495095D-03
        ws( 30) = 0.7393752601373265D-03
        ws( 31) = 0.8370541302004347D-03
        ws( 32) = 0.9612280386468374D-03
        ws( 33) = 0.1150013155680411D-02
        ws( 34) = 0.1411184446862845D-02
        ws( 35) = 0.1796387011302053D-02
        ws( 36) = 0.2348748688496577D-02
        ws( 37) = 0.3238132959260558D-02
        ws( 38) = 0.4919706977003672D-02
        ws( 39) = 0.8410481586849212D-02
        ws( 40) = 0.1508627938861947D-01
        ws( 41) = 0.2258128776626991D-01
        ws( 42) = 0.2109756313095335D-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 =  46
        err = 0.7837492489248410D-03
        xs(  1) = 0.2626779756085655D-05
        xs(  2) = 0.1385832590727786D-04
        xs(  3) = 0.3399587643245206D-04
        xs(  4) = 0.6301542248986610D-04
        xs(  5) = 0.1008481190683473D-03
        xs(  6) = 0.1474923494904792D-03
        xs(  7) = 0.2029542873815923D-03
        xs(  8) = 0.2672935941814160D-03
        xs(  9) = 0.3406281437623296D-03
        xs( 10) = 0.4230764633551916D-03
        xs( 11) = 0.5149093120688434D-03
        xs( 12) = 0.6163917831218321D-03
        xs( 13) = 0.7278435508738766D-03
        xs( 14) = 0.8496954145380286D-03
        xs( 15) = 0.9824398678883056D-03
        xs( 16) = 0.1126561449250214D-02
        xs( 17) = 0.1282844717553352D-02
        xs( 18) = 0.1452149220225840D-02
        xs( 19) = 0.1635312431451836D-02
        xs( 20) = 0.1833302937043083D-02
        xs( 21) = 0.2047214722685835D-02
        xs( 22) = 0.2278647824617096D-02
        xs( 23) = 0.2529158301147409D-02
        xs( 24) = 0.2800362631861784D-02
        xs( 25) = 0.3094690510082059D-02
        xs( 26) = 0.3413517833212274D-02
        xs( 27) = 0.3760669152221708D-02
        xs( 28) = 0.4139513503434656D-02
        xs( 29) = 0.4554106884553449D-02
        xs( 30) = 0.5009733840240661D-02
        xs( 31) = 0.5513130480691726D-02
        xs( 32) = 0.6070495016990113D-02
        xs( 33) = 0.6689524244920030D-02
        xs( 34) = 0.7381161494485202D-02
        xs( 35) = 0.8164784670430658D-02
        xs( 36) = 0.9045477419091778D-02
        xs( 37) = 0.1007026281511330D-01
        xs( 38) = 0.1132535001305380D-01
        xs( 39) = 0.1290363340533130D-01
        xs( 40) = 0.1493098496788315D-01
        xs( 41) = 0.1762694090861160D-01
        xs( 42) = 0.2145943066858320D-01
        xs( 43) = 0.2747653968328989D-01
        xs( 44) = 0.3796019001217380D-01
        xs( 45) = 0.5663988734529576D-01
        xs( 46) = 0.8191622128147269D-01
        ws(  1) = 0.6752003831048436D-05
        ws(  2) = 0.1567277434602675D-04
        ws(  3) = 0.2462745766121495D-04
        ws(  4) = 0.3342096552983676D-04
        ws(  5) = 0.4223087748734723D-04
        ws(  6) = 0.5101881996933632D-04
        ws(  7) = 0.5990697457030877D-04
        ws(  8) = 0.6882754743505156D-04
        ws(  9) = 0.7786661205702783D-04
        ws( 10) = 0.8709725226354353D-04
        ws( 11) = 0.9658483666395502D-04
        ws( 12) = 0.1064164560780485D-03
        ws( 13) = 0.1165770190163305D-03
        ws( 14) = 0.1272361924770525D-03
        ws( 15) = 0.1383463643171708D-03
        ws( 16) = 0.1500195823013611D-03
        ws( 17) = 0.1626832227681048D-03
        ws( 18) = 0.1761137974373807D-03
        ws( 19) = 0.1903708283109334D-03
        ws( 20) = 0.2057450310201758D-03
        ws( 21) = 0.2223497399752975D-03
        ws( 22) = 0.2407814829432310D-03
        ws( 23) = 0.2604601837329934D-03
        ws( 24) = 0.2824455932548975D-03
        ws( 25) = 0.3062516368854681D-03
        ws( 26) = 0.3321590449642110D-03
        ws( 27) = 0.3626156324933358D-03
        ws( 28) = 0.3957508800896968D-03
        ws( 29) = 0.4341799733298687D-03
        ws( 30) = 0.4783419163084267D-03
        ws( 31) = 0.5291786082725594D-03
        ws( 32) = 0.5871222862648121D-03
        ws( 33) = 0.6519418917086381D-03
        ws( 34) = 0.7358577468871482D-03
        ws( 35) = 0.8305023151314186D-03
        ws( 36) = 0.9386269546188832D-03
        ws( 37) = 0.1126789433422695D-02
        ws( 38) = 0.1397721294345088D-02
        ws( 39) = 0.1778906059142844D-02
        ws( 40) = 0.2311109688086187D-02
        ws( 41) = 0.3152245366035123D-02
        ws( 42) = 0.4675730874883456D-02
        ws( 43) = 0.7728150259624480D-02
        ws( 44) = 0.1394531829840911D-01
        ws( 45) = 0.2322990382058120D-01
        ws( 46) = 0.2383589169664945D-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 =  50
        err = 0.9573682786100466D-03
        xs(  1) = 0.2211841165759079D-05
        xs(  2) = 0.1163960354514712D-04
        xs(  3) = 0.2856333160009864D-04
        xs(  4) = 0.5296145142020820D-04
        xs(  5) = 0.8476023402877277D-04
        xs(  6) = 0.1239255910797427D-03
        xs(  7) = 0.1704847227573872D-03
        xs(  8) = 0.2244305606604341D-03
        xs(  9) = 0.2858172002945634D-03
        xs( 10) = 0.3547391742000316D-03
        xs( 11) = 0.4313327221329406D-03
        xs( 12) = 0.5157605903553476D-03
        xs( 13) = 0.6082319517176603D-03
        xs( 14) = 0.7090076308320906D-03
        xs( 15) = 0.8183878968899336D-03
        xs( 16) = 0.9367190824695632D-03
        xs( 17) = 0.1064374609079519D-02
        xs( 18) = 0.1201950103735400D-02
        xs( 19) = 0.1350017101672074D-02
        xs( 20) = 0.1509147411427076D-02
        xs( 21) = 0.1680063329418029D-02
        xs( 22) = 0.1863478136864676D-02
        xs( 23) = 0.2060460235197084D-02
        xs( 24) = 0.2272103668670917D-02
        xs( 25) = 0.2499612782710560D-02
        xs( 26) = 0.2744376074195416D-02
        xs( 27) = 0.3007472270654090D-02
        xs( 28) = 0.3290691857739208D-02
        xs( 29) = 0.3596435729876592D-02
        xs( 30) = 0.3927152274822481D-02
        xs( 31) = 0.4285666553373819D-02
        xs( 32) = 0.4676406160139842D-02
        xs( 33) = 0.5102690001079929D-02
        xs( 34) = 0.5568748570934443D-02
        xs( 35) = 0.6076347595729107D-02
        xs( 36) = 0.6639098827694230D-02
        xs( 37) = 0.7266796231436975D-02
        xs( 38) = 0.7960881328670982D-02
        xs( 39) = 0.8742446815387796D-02
        xs( 40) = 0.9639337592242985D-02
        xs( 41) = 0.1069033789525017D-01
        xs( 42) = 0.1195322983315734D-01
        xs( 43) = 0.1351800464014628D-01
        xs( 44) = 0.1549594941402716D-01
        xs( 45) = 0.1807901614739481D-01
        xs( 46) = 0.2167588170434880D-01
        xs( 47) = 0.2719746596547558D-01
        xs( 48) = 0.3668418363322942D-01
        xs( 49) = 0.5405241398382742D-01
        xs( 50) = 0.8020096984669529D-01
        ws(  1) = 0.5647956147592080D-05
        ws(  2) = 0.1321866975619095D-04
        ws(  3) = 0.2066156367923502D-04
        ws(  4) = 0.2808369821662416D-04
        ws(  5) = 0.3551078612434819D-04
        ws(  6) = 0.4287510902826598D-04
        ws(  7) = 0.5019681896587762D-04
        ws(  8) = 0.5768396654387321D-04
        ws(  9) = 0.6512813672503034D-04
        ws( 10) = 0.7272988842625487D-04
        ws( 11) = 0.8046801212832611D-04
        ws( 12) = 0.8844108967484480D-04
        ws( 13) = 0.9654612904872327D-04
        ws( 14) = 0.1050248804362511D-03
        ws( 15) = 0.1138083531226679D-03
        ws( 16) = 0.1229119432584742D-03
        ws( 17) = 0.1325261742532717D-03
        ws( 18) = 0.1427043953318355D-03
        ws( 19) = 0.1535090312672153D-03
        ws( 20) = 0.1648972233206504D-03
        ws( 21) = 0.1770145675044026D-03
        ws( 22) = 0.1900247525535523D-03
        ws( 23) = 0.2041361920292602D-03
        ws( 24) = 0.2193378599326568D-03
        ws( 25) = 0.2359178274661713D-03
        ws( 26) = 0.2537168564675952D-03
        ws( 27) = 0.2727964561822475D-03
        ws( 28) = 0.2940594408896680D-03
        ws( 29) = 0.3178575921242083D-03
        ws( 30) = 0.3439432508751219D-03
        ws( 31) = 0.3739714432065608D-03
        ws( 32) = 0.4078602333548699D-03
        ws( 33) = 0.4457405266095641D-03
        ws( 34) = 0.4861337464307972D-03
        ws( 35) = 0.5318165635117576D-03
        ws( 36) = 0.5956084376156604D-03
        ws( 37) = 0.6590137580152618D-03
        ws( 38) = 0.7336362124627338D-03
        ws( 39) = 0.8335843044902499D-03
        ws( 40) = 0.9669397973016807D-03
        ws( 41) = 0.1144568388463113D-02
        ws( 42) = 0.1396058265659126D-02
        ws( 43) = 0.1752292626335853D-02
        ws( 44) = 0.2232444935932362D-02
        ws( 45) = 0.2997646758338789D-02
        ws( 46) = 0.4337677013348265D-02
        ws( 47) = 0.7034117585576247D-02
        ws( 48) = 0.1259302332698451D-01
        ws( 49) = 0.2268223430884464D-01
        ws( 50) = 0.2634848080485412D-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 =  55
        err = 0.4872862425852954D-03
        xs(  1) = 0.1852056782862216D-05
        xs(  2) = 0.9770391798749849D-05
        xs(  3) = 0.2398102686933825D-04
        xs(  4) = 0.4447099942385279D-04
        xs(  5) = 0.7120505809701742D-04
        xs(  6) = 0.1041585519362203D-03
        xs(  7) = 0.1433110042592914D-03
        xs(  8) = 0.1886791636156009D-03
        xs(  9) = 0.2402766666769265D-03
        xs( 10) = 0.2981575551554694D-03
        xs( 11) = 0.3624010106349087D-03
        xs( 12) = 0.4331193483444426D-03
        xs( 13) = 0.5104303961169017D-03
        xs( 14) = 0.5944787260399699D-03
        xs( 15) = 0.6854955401200822D-03
        xs( 16) = 0.7837281960817095D-03
        xs( 17) = 0.8893745630795631D-03
        xs( 18) = 0.1002745599490375D-02
        xs( 19) = 0.1124253255180126D-02
        xs( 20) = 0.1254299724503526D-02
        xs( 21) = 0.1393306298573383D-02
        xs( 22) = 0.1541790173022927D-02
        xs( 23) = 0.1700230365194944D-02
        xs( 24) = 0.1869348385980611D-02
        xs( 25) = 0.2049967729129266D-02
        xs( 26) = 0.2242738332464450D-02
        xs( 27) = 0.2448585910401139D-02
        xs( 28) = 0.2668487130620389D-02
        xs( 29) = 0.2903802487442593D-02
        xs( 30) = 0.3155734991351025D-02
        xs( 31) = 0.3425532908071830D-02
        xs( 32) = 0.3715155829160784D-02
        xs( 33) = 0.4026400621874714D-02
        xs( 34) = 0.4362215240031508D-02
        xs( 35) = 0.4724468879859374D-02
        xs( 36) = 0.5115649205145938D-02
        xs( 37) = 0.5540824327531801D-02
        xs( 38) = 0.6003555847122834D-02
        xs( 39) = 0.6507616926430315D-02
        xs( 40) = 0.7061433100657890D-02
        xs( 41) = 0.7673388299559901D-02
        xs( 42) = 0.8350159681822613D-02
        xs( 43) = 0.9101444662866902D-02
        xs( 44) = 0.9940594938504813D-02
        xs( 45) = 0.1090072844892856D-01
        xs( 46) = 0.1203954296011460D-01
        xs( 47) = 0.1341937114088083D-01
        xs( 48) = 0.1511518123874110D-01
        xs( 49) = 0.1724217750436465D-01
        xs( 50) = 0.2002214512046068D-01
        xs( 51) = 0.2393194881541491D-01
        xs( 52) = 0.2986001999516299D-01
        xs( 53) = 0.3975943466785154D-01
        xs( 54) = 0.5751777174151019D-01
        xs( 55) = 0.8442912808148145D-01
        ws(  1) = 0.4776121368667072D-05
        ws(  2) = 0.1104386865482476D-04
        ws(  3) = 0.1737510716761205D-04
        ws(  4) = 0.2361146297677627D-04
        ws(  5) = 0.2982950429842572D-04
        ws(  6) = 0.3605927817146868D-04
        ws(  7) = 0.4226948065502340D-04
        ws(  8) = 0.4846910932949043D-04
        ws(  9) = 0.5473716512855121D-04
        ws( 10) = 0.6103534000298931D-04
        ws( 11) = 0.6747833184705304D-04
        ws( 12) = 0.7398534282589453D-04
        ws( 13) = 0.8065273644777071D-04
        ws( 14) = 0.8749355391597493D-04
        ws( 15) = 0.9457942222160888D-04
        ws( 16) = 0.1019108820127439D-03
        ws( 17) = 0.1094487746046019D-03
        ws( 18) = 0.1173596712194025D-03
        ws( 19) = 0.1257171952692847D-03
        ws( 20) = 0.1344520381228464D-03
        ws( 21) = 0.1436566737576614D-03
        ws( 22) = 0.1533805387714773D-03
        ws( 23) = 0.1636264649196733D-03
        ws( 24) = 0.1747552883403253D-03
        ws( 25) = 0.1865776442688783D-03
        ws( 26) = 0.1991277374542366D-03
        ws( 27) = 0.2127050478547289D-03
        ws( 28) = 0.2273383407705932D-03
        ws( 29) = 0.2434932290062753D-03
        ws( 30) = 0.2605461116202906D-03
        ws( 31) = 0.2794284080920778D-03
        ws( 32) = 0.3000032626988421D-03
        ws( 33) = 0.3230516031694158D-03
        ws( 34) = 0.3488283224497935D-03
        ws( 35) = 0.3760825493139829D-03
        ws( 36) = 0.4072218907012896D-03
        ws( 37) = 0.4436948936557304D-03
        ws( 38) = 0.4822014866088940D-03
        ws( 39) = 0.5274113573731252D-03
        ws( 40) = 0.5817122370285533D-03
        ws( 41) = 0.6430282904943009D-03
        ws( 42) = 0.7123586629542983D-03
        ws( 43) = 0.7920732271157617D-03
        ws( 44) = 0.8913315629818587D-03
        ws( 45) = 0.1039636490614462D-02
        ws( 46) = 0.1247788272094570D-02
        ws( 47) = 0.1523953957400715D-02
        ws( 48) = 0.1886927583639876D-02
        ws( 49) = 0.2399733315318293D-02
        ws( 50) = 0.3239469749989042D-02
        ws( 51) = 0.4717882365984849D-02
        ws( 52) = 0.7446760079649184D-02
        ws( 53) = 0.1300417808860918D-01
        ws( 54) = 0.2310837274582544D-01
        ws( 55) = 0.2765380157774225D-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 =  59
        err = 0.6974538632251275D-03
        xs(  1) = 0.1595990668069794D-05
        xs(  2) = 0.8449299966488191D-05
        xs(  3) = 0.2074957505859949D-04
        xs(  4) = 0.3849043166718448D-04
        xs(  5) = 0.6162187124497731D-04
        xs(  6) = 0.9011774402342255D-04
        xs(  7) = 0.1239608462474089D-03
        xs(  8) = 0.1631546780196200D-03
        xs(  9) = 0.2076921364808649D-03
        xs( 10) = 0.2575952067957290D-03
        xs( 11) = 0.3129271401392294D-03
        xs( 12) = 0.3737379250071131D-03
        xs( 13) = 0.4401260407041310D-03
        xs( 14) = 0.5121711879415909D-03
        xs( 15) = 0.5900156587751415D-03
        xs( 16) = 0.6738438182900749D-03
        xs( 17) = 0.7638139632163928D-03
        xs( 18) = 0.8600803734559431D-03
        xs( 19) = 0.9629110073806889D-03
        xs( 20) = 0.1072633214065720D-02
        xs( 21) = 0.1189532063970779D-02
        xs( 22) = 0.1313903503428692D-02
        xs( 23) = 0.1446088472585760D-02
        xs( 24) = 0.1586546151251739D-02
        xs( 25) = 0.1735866768607560D-02
        xs( 26) = 0.1894408910397445D-02
        xs( 27) = 0.2062780776603018D-02
        xs( 28) = 0.2241718180777223D-02
        xs( 29) = 0.2431672317130980D-02
        xs( 30) = 0.2633906003810571D-02
        xs( 31) = 0.2849053394882024D-02
        xs( 32) = 0.3077974719746893D-02
        xs( 33) = 0.3322158603282123D-02
        xs( 34) = 0.3582761567799508D-02
        xs( 35) = 0.3861226458556842D-02
        xs( 36) = 0.4159197139420047D-02
        xs( 37) = 0.4478283103349985D-02
        xs( 38) = 0.4820704145270655D-02
        xs( 39) = 0.5190084837403717D-02
        xs( 40) = 0.5587987747116456D-02
        xs( 41) = 0.6018912946967917D-02
        xs( 42) = 0.6486922338335516D-02
        xs( 43) = 0.6995643910337119D-02
        xs( 44) = 0.7552031165201436D-02
        xs( 45) = 0.8160885682709717D-02
        xs( 46) = 0.8832968827986544D-02
        xs( 47) = 0.9581182969917987D-02
        xs( 48) = 0.1041676188626776D-01
        xs( 49) = 0.1137178935242707D-01
        xs( 50) = 0.1249777643482308D-01
        xs( 51) = 0.1386926033768756D-01
        xs( 52) = 0.1556132055282016D-01
        xs( 53) = 0.1767855876545311D-01
        xs( 54) = 0.2041883674694198D-01
        xs( 55) = 0.2419068250651152D-01
        xs( 56) = 0.2987678104105340D-01
        xs( 57) = 0.3944877336575102D-01
        xs( 58) = 0.5700055044373053D-01
        xs( 59) = 0.8569252897968621D-01
        ws(  1) = 0.4110651632218094D-05
        ws(  2) = 0.9597569537926272D-05
        ws(  3) = 0.1503058593478332D-04
        ws(  4) = 0.2042782898143678D-04
        ws(  5) = 0.2578365677080290D-04
        ws(  6) = 0.3120680527956483D-04
        ws(  7) = 0.3650410982988153D-04
        ws(  8) = 0.4187593597990193D-04
        ws(  9) = 0.4722526915323521D-04
        ws( 10) = 0.5259736595573752D-04
        ws( 11) = 0.5804772041104680D-04
        ws( 12) = 0.6358692573725343D-04
        ws( 13) = 0.6921121409901580D-04
        ws( 14) = 0.7491966318060325D-04
        ws( 15) = 0.8079075313328446D-04
        ws( 16) = 0.8688763135314780D-04
        ws( 17) = 0.9308454758213935D-04
        ws( 18) = 0.9949912318294678D-04
        ws( 19) = 0.1062269649222052D-03
        ws( 20) = 0.1132715848732969D-03
        ws( 21) = 0.1205705583017033D-03
        ws( 22) = 0.1282272170373122D-03
        ws( 23) = 0.1362187771926615D-03
        ws( 24) = 0.1448175321588200D-03
        ws( 25) = 0.1538710049100320D-03
        ws( 26) = 0.1633031081520990D-03
        ws( 27) = 0.1735854437893745D-03
        ws( 28) = 0.1842986140557291D-03
        ws( 29) = 0.1958790614352476D-03
        ws( 30) = 0.2086690609009850D-03
        ws( 31) = 0.2217383968605383D-03
        ws( 32) = 0.2363575907152729D-03
        ws( 33) = 0.2521011425252436D-03
        ws( 34) = 0.2693207588369449D-03
        ws( 35) = 0.2878299070298548D-03
        ws( 36) = 0.3084215233377183D-03
        ws( 37) = 0.3299740676492579D-03
        ws( 38) = 0.3556203469766872D-03
        ws( 39) = 0.3831283979909718D-03
        ws( 40) = 0.4136014594884447D-03
        ws( 41) = 0.4489815687920753D-03
        ws( 42) = 0.4874591301449647D-03
        ws( 43) = 0.5315016328151054D-03
        ws( 44) = 0.5816980897124920D-03
        ws( 45) = 0.6378329580523892D-03
        ws( 46) = 0.7088511073782928D-03
        ws( 47) = 0.7883868700297143D-03
        ws( 48) = 0.8885533588858370D-03
        ws( 49) = 0.1029831126668892D-02
        ws( 50) = 0.1234756326358927D-02
        ws( 51) = 0.1520340955540381D-02
        ws( 52) = 0.1880810673072161D-02
        ws( 53) = 0.2383217251142418D-02
        ws( 54) = 0.3163096448464678D-02
        ws( 55) = 0.4518712313705407D-02
        ws( 56) = 0.7166063811515610D-02
        ws( 57) = 0.1261757144705359D-01
        ws( 58) = 0.2355620592601863D-01
        ws( 59) = 0.3138938602847330D-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 =  63
        err = 0.7271355149534142D-03
        xs(  1) = 0.1373817397843365D-05
        xs(  2) = 0.7349566933682540D-05
        xs(  3) = 0.1808567192969813D-04
        xs(  4) = 0.3356043783631686D-04
        xs(  5) = 0.5373004212627357D-04
        xs(  6) = 0.7858576051930735D-04
        xs(  7) = 0.1080896222885845D-03
        xs(  8) = 0.1422505292701484D-03
        xs(  9) = 0.1810540328930242D-03
        xs( 10) = 0.2245050745543096D-03
        xs( 11) = 0.2726395092876136D-03
        xs( 12) = 0.3254890701107935D-03
        xs( 13) = 0.3831170664192320D-03
        xs( 14) = 0.4455768126727181D-03
        xs( 15) = 0.5129661906903321D-03
        xs( 16) = 0.5854030486296367D-03
        xs( 17) = 0.6630152795037859D-03
        xs( 18) = 0.7458994341871280D-03
        xs( 19) = 0.8342249655139822D-03
        xs( 20) = 0.9281960940100136D-03
        xs( 21) = 0.1028059876021429D-02
        xs( 22) = 0.1134031720678404D-02
        xs( 23) = 0.1246340484639395D-02
        xs( 24) = 0.1365222962890296D-02
        xs( 25) = 0.1491099706787315D-02
        xs( 26) = 0.1624335919051986D-02
        xs( 27) = 0.1765248389401054D-02
        xs( 28) = 0.1914312682023254D-02
        xs( 29) = 0.2071876878817456D-02
        xs( 30) = 0.2238504535551538D-02
        xs( 31) = 0.2415088648512666D-02
        xs( 32) = 0.2601999647443625D-02
        xs( 33) = 0.2799855564846072D-02
        xs( 34) = 0.3009523653304032D-02
        xs( 35) = 0.3232175965561738D-02
        xs( 36) = 0.3468570519187704D-02
        xs( 37) = 0.3720051830403945D-02
        xs( 38) = 0.3987782392929333D-02
        xs( 39) = 0.4272532628625789D-02
        xs( 40) = 0.4576510474147536D-02
        xs( 41) = 0.4901251452014734D-02
        xs( 42) = 0.5249489839727546D-02
        xs( 43) = 0.5623717049894956D-02
        xs( 44) = 0.6026756691021993D-02
        xs( 45) = 0.6462609037583117D-02
        xs( 46) = 0.6932827678916475D-02
        xs( 47) = 0.7443364613692979D-02
        xs( 48) = 0.7999945157570383D-02
        xs( 49) = 0.8602738203409139D-02
        xs( 50) = 0.9264665711535251D-02
        xs( 51) = 0.9996385258917056D-02
        xs( 52) = 0.1082469771208791D-01
        xs( 53) = 0.1179003691840362D-01
        xs( 54) = 0.1293437166764065D-01
        xs( 55) = 0.1431847079110306D-01
        xs( 56) = 0.1600518168909629D-01
        xs( 57) = 0.1809130907380118D-01
        xs( 58) = 0.2077392627431797D-01
        xs( 59) = 0.2445392318942674D-01
        xs( 60) = 0.2993846847986753D-01
        xs( 61) = 0.3895458049448735D-01
        xs( 62) = 0.5508644530884850D-01
        xs( 63) = 0.8307916700605621D-01
        ws(  1) = 0.3578187504840290D-05
        ws(  2) = 0.8374554861510482D-05
        ws(  3) = 0.1309218735003584D-04
        ws(  4) = 0.1778839307946675D-04
        ws(  5) = 0.2256236211330856D-04
        ws(  6) = 0.2715613995114566D-04
        ws(  7) = 0.3184457322482349D-04
        ws(  8) = 0.3646623881768019D-04
        ws(  9) = 0.4111921613294686D-04
        ws( 10) = 0.4580843053848784D-04
        ws( 11) = 0.5046973752926707D-04
        ws( 12) = 0.5522820585989440D-04
        ws( 13) = 0.6002268691165836D-04
        ws( 14) = 0.6490741631775090D-04
        ws( 15) = 0.6988044605978701D-04
        ws( 16) = 0.7500645325959860D-04
        ws( 17) = 0.8022295609956401D-04
        ws( 18) = 0.8557348484219751D-04
        ws( 19) = 0.9109486845349048D-04
        ws( 20) = 0.9688882533137631D-04
        ws( 21) = 0.1028847101563491D-03
        ws( 22) = 0.1090942040856212D-03
        ws( 23) = 0.1155469503109516D-03
        ws( 24) = 0.1223052933777186D-03
        ws( 25) = 0.1295184520498130D-03
        ws( 26) = 0.1370200485069039D-03
        ws( 27) = 0.1449174570415539D-03
        ws( 28) = 0.1533070709265267D-03
        ws( 29) = 0.1619385103898801D-03
        ws( 30) = 0.1715085210596089D-03
        ws( 31) = 0.1817363679186904D-03
        ws( 32) = 0.1922524013345766D-03
        ws( 33) = 0.2036245857362324D-03
        ws( 34) = 0.2159532195332776D-03
        ws( 35) = 0.2294479493879882D-03
        ws( 36) = 0.2435799745291972D-03
        ws( 37) = 0.2596261648436308D-03
        ws( 38) = 0.2758495823695628D-03
        ws( 39) = 0.2941089935248472D-03
        ws( 40) = 0.3139588181380929D-03
        ws( 41) = 0.3360979802002328D-03
        ws( 42) = 0.3607973467556140D-03
        ws( 43) = 0.3881135376649349D-03
        ws( 44) = 0.4188087201665794D-03
        ws( 45) = 0.4529035104027303D-03
        ws( 46) = 0.4886071858323401D-03
        ws( 47) = 0.5337499197148128D-03
        ws( 48) = 0.5786549659154176D-03
        ws( 49) = 0.6300161414856550D-03
        ws( 50) = 0.6948894195582991D-03
        ws( 51) = 0.7731095560300531D-03
        ws( 52) = 0.8912511422365235D-03
        ws( 53) = 0.1045038596060473D-02
        ws( 54) = 0.1255283303915579D-02
        ws( 55) = 0.1522141728768059D-02
        ws( 56) = 0.1866798661663312D-02
        ws( 57) = 0.2335565869396381D-02
        ws( 58) = 0.3095429714609530D-02
        ws( 59) = 0.4389503313549564D-02
        ws( 60) = 0.6849998713378012D-02
        ws( 61) = 0.1174274778969366D-01
        ws( 62) = 0.2168117524827555D-01
        ws( 63) = 0.3215217877990810D-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 =  67
        err = 0.7403071193171718D-03
        xs(  1) = 0.1237905444142265D-05
        xs(  2) = 0.6519904869643484D-05
        xs(  3) = 0.1597285857968530D-04
        xs(  4) = 0.2962308861369725D-04
        xs(  5) = 0.4740995873616535D-04
        xs(  6) = 0.6931833178234243D-04
        xs(  7) = 0.9534284858814310D-04
        xs(  8) = 0.1254485365273588D-03
        xs(  9) = 0.1596196889713995D-03
        xs( 10) = 0.1978883319113530D-03
        xs( 11) = 0.2402498210344921D-03
        xs( 12) = 0.2867238669643205D-03
        xs( 13) = 0.3373447421448492D-03
        xs( 14) = 0.3921624250442060D-03
        xs( 15) = 0.4512287111421379D-03
        xs( 16) = 0.5146286548912621D-03
        xs( 17) = 0.5824699471395566D-03
        xs( 18) = 0.6548223721737022D-03
        xs( 19) = 0.7317746591829978D-03
        xs( 20) = 0.8134674211564737D-03
        xs( 21) = 0.9000933581356644D-03
        xs( 22) = 0.9918283747904816D-03
        xs( 23) = 0.1088824166629652D-02
        xs( 24) = 0.1191256514778970D-02
        xs( 25) = 0.1299349210640585D-02
        xs( 26) = 0.1413391998088550D-02
        xs( 27) = 0.1533693451453847D-02
        xs( 28) = 0.1660549655219102D-02
        xs( 29) = 0.1794204757957028D-02
        xs( 30) = 0.1934951165641299D-02
        xs( 31) = 0.2083304173242559D-02
        xs( 32) = 0.2239773318412158D-02
        xs( 33) = 0.2404791793827151D-02
        xs( 34) = 0.2578805367638166D-02
        xs( 35) = 0.2762414036207030D-02
        xs( 36) = 0.2956316092710636D-02
        xs( 37) = 0.3161148767704764D-02
        xs( 38) = 0.3378020429327622D-02
        xs( 39) = 0.3607584935338876D-02
        xs( 40) = 0.3850546979372487D-02
        xs( 41) = 0.4108217921207042D-02
        xs( 42) = 0.4382126846975168D-02
        xs( 43) = 0.4672941746120418D-02
        xs( 44) = 0.4983064992940246D-02
        xs( 45) = 0.5313964631859284D-02
        xs( 46) = 0.5668017935549041D-02
        xs( 47) = 0.6047584979367757D-02
        xs( 48) = 0.6455611939771169D-02
        xs( 49) = 0.6894835980524482D-02
        xs( 50) = 0.7367934169135182D-02
        xs( 51) = 0.7881606257033167D-02
        xs( 52) = 0.8439185272746995D-02
        xs( 53) = 0.9041300709351130D-02
        xs( 54) = 0.9703385637114339D-02
        xs( 55) = 0.1044018830083921D-01
        xs( 56) = 0.1127322088984294D-01
        xs( 57) = 0.1223374464806895D-01
        xs( 58) = 0.1335898471045704D-01
        xs( 59) = 0.1470329609420959D-01
        xs( 60) = 0.1632830941189450D-01
        xs( 61) = 0.1832441977519064D-01
        xs( 62) = 0.2088456600767105D-01
        xs( 63) = 0.2437719071704024D-01
        xs( 64) = 0.2947058886039152D-01
        xs( 65) = 0.3755607685769196D-01
        xs( 66) = 0.5175845535957101D-01
        xs( 67) = 0.7836657753794866D-01
        ws(  1) = 0.3186513742038737D-05
        ws(  2) = 0.7352685240099618D-05
        ws(  3) = 0.1154586227680593D-04
        ws(  4) = 0.1575141659300816D-04
        ws(  5) = 0.1987948682809825D-04
        ws(  6) = 0.2394290235468128D-04
        ws(  7) = 0.2803707569804199D-04
        ws(  8) = 0.3215212627280927D-04
        ws(  9) = 0.3624204652537286D-04
        ws( 10) = 0.4029781285732761D-04
        ws( 11) = 0.4441040603131849D-04
        ws( 12) = 0.4854852602688495D-04
        ws( 13) = 0.5271086245974143D-04
        ws( 14) = 0.5692826605894957D-04
        ws( 15) = 0.6121809774387964D-04
        ws( 16) = 0.6560170975997917D-04
        ws( 17) = 0.7008803607875294D-04
        ws( 18) = 0.7462909229193970D-04
        ws( 19) = 0.7929392499338518D-04
        ws( 20) = 0.8413342649982041D-04
        ws( 21) = 0.8914857213251516D-04
        ws( 22) = 0.9433324947094993D-04
        ws( 23) = 0.9968420511988046D-04
        ws( 24) = 0.1052140220759215D-03
        ws( 25) = 0.1110153170469294D-03
        ws( 26) = 0.1171317531251356D-03
        ws( 27) = 0.1235449307032046D-03
        ws( 28) = 0.1302028130122196D-03
        ws( 29) = 0.1371347889822413D-03
        ws( 30) = 0.1444626284311024D-03
        ws( 31) = 0.1523209774032453D-03
        ws( 32) = 0.1606765808741360D-03
        ws( 33) = 0.1694548232669533D-03
        ws( 34) = 0.1786874922733979D-03
        ws( 35) = 0.1886758876686975D-03
        ws( 36) = 0.1992273856781838D-03
        ws( 37) = 0.2106622402203181D-03
        ws( 38) = 0.2231509609526881D-03
        ws( 39) = 0.2360694733761211D-03
        ws( 40) = 0.2500282912749932D-03
        ws( 41) = 0.2656228451770556D-03
        ws( 42) = 0.2821914479990186D-03
        ws( 43) = 0.3000063936562470D-03
        ws( 44) = 0.3203552367170678D-03
        ws( 45) = 0.3419194737993794D-03
        ws( 46) = 0.3664348787890900D-03
        ws( 47) = 0.3932727462384018D-03
        ws( 48) = 0.4231918372947514D-03
        ws( 49) = 0.4556013484683610D-03
        ws( 50) = 0.4919296806874365D-03
        ws( 51) = 0.5359905161810248D-03
        ws( 52) = 0.5788055493797244D-03
        ws( 53) = 0.6284896106467146D-03
        ws( 54) = 0.6977213057762699D-03
        ws( 55) = 0.7795698059035627D-03
        ws( 56) = 0.8917790613928409D-03
        ws( 57) = 0.1034939425171482D-02
        ws( 58) = 0.1225088143540291D-02
        ws( 59) = 0.1473704816752592D-02
        ws( 60) = 0.1788731859951521D-02
        ws( 61) = 0.2235650346041661D-02
        ws( 62) = 0.2944825178016430D-02
        ws( 63) = 0.4143558356464925D-02
        ws( 64) = 0.6254332883370356D-02
        ws( 65) = 0.1041561732601679D-01
        ws( 66) = 0.1917181620538962D-01
        ws( 67) = 0.3239982065234877D-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 =  71
        err = 0.9465179722503455D-03
        xs(  1) = 0.1112817976702349D-05
        xs(  2) = 0.5816825262565247D-05
        xs(  3) = 0.1425659936629777D-04
        xs(  4) = 0.2641087142194600D-04
        xs(  5) = 0.4226655810633106D-04
        xs(  6) = 0.6179553512095321D-04
        xs(  7) = 0.8495870161297464D-04
        xs(  8) = 0.1117650474042082D-03
        xs(  9) = 0.1421738683342998D-03
        xs( 10) = 0.1762072932373098D-03
        xs( 11) = 0.2138515570771326D-03
        xs( 12) = 0.2551086923611306D-03
        xs( 13) = 0.3000481804083282D-03
        xs( 14) = 0.3486395521208040D-03
        xs( 15) = 0.4009498510323131D-03
        xs( 16) = 0.4570224115049088D-03
        xs( 17) = 0.5169453792180712D-03
        xs( 18) = 0.5807841808739578D-03
        xs( 19) = 0.6486019361877129D-03
        xs( 20) = 0.7204560011980800D-03
        xs( 21) = 0.7964990345312188D-03
        xs( 22) = 0.8768797076949231D-03
        xs( 23) = 0.9617237044978792D-03
        xs( 24) = 0.1051151469650633D-02
        xs( 25) = 0.1145307070926153D-02
        xs( 26) = 0.1244361411446879D-02
        xs( 27) = 0.1348571448766322D-02
        xs( 28) = 0.1458167542954043D-02
        xs( 29) = 0.1573376446989622D-02
        xs( 30) = 0.1694407126402326D-02
        xs( 31) = 0.1821432089333449D-02
        xs( 32) = 0.1954862472800018D-02
        xs( 33) = 0.2095187300865150D-02
        xs( 34) = 0.2242588043491167D-02
        xs( 35) = 0.2397526614121801D-02
        xs( 36) = 0.2560441112665687D-02
        xs( 37) = 0.2731722778354246D-02
        xs( 38) = 0.2911925079369870D-02
        xs( 39) = 0.3101828766638534D-02
        xs( 40) = 0.3302165208258798D-02
        xs( 41) = 0.3513115383363631D-02
        xs( 42) = 0.3735786619487022D-02
        xs( 43) = 0.3971125850124831D-02
        xs( 44) = 0.4219684100525234D-02
        xs( 45) = 0.4482801320682717D-02
        xs( 46) = 0.4761771316466193D-02
        xs( 47) = 0.5058059593489251D-02
        xs( 48) = 0.5373779818608249D-02
        xs( 49) = 0.5709967356499071D-02
        xs( 50) = 0.6069276806774380D-02
        xs( 51) = 0.6451869466916809D-02
        xs( 52) = 0.6861775852749951D-02
        xs( 53) = 0.7303505211399076D-02
        xs( 54) = 0.7778759049485624D-02
        xs( 55) = 0.8294441005345423D-02
        xs( 56) = 0.8853979538860550D-02
        xs( 57) = 0.9461487097612192D-02
        xs( 58) = 0.1012908229715309D-01
        xs( 59) = 0.1086342365970695D-01
        xs( 60) = 0.1169058157109568D-01
        xs( 61) = 0.1263645153706192D-01
        xs( 62) = 0.1373783119803525D-01
        xs( 63) = 0.1505789712650378D-01
        xs( 64) = 0.1666398357071100D-01
        xs( 65) = 0.1863961944176064D-01
        xs( 66) = 0.2114941576260786D-01
        xs( 67) = 0.2457447360470521D-01
        xs( 68) = 0.2952500486186568D-01
        xs( 69) = 0.3729434728161695D-01
        xs( 70) = 0.5089408936256917D-01
        xs( 71) = 0.7721178558219417D-01
        ws(  1) = 0.2813871293755151D-05
        ws(  2) = 0.6565282822038511D-05
        ws(  3) = 0.1032174119498799D-04
        ws(  4) = 0.1402561076459673D-04
        ws(  5) = 0.1772055652035043D-04
        ws(  6) = 0.2133299228440329D-04
        ws(  7) = 0.2497010477697458D-04
        ws(  8) = 0.2860807494684137D-04
        ws(  9) = 0.3221602346761353D-04
        ws( 10) = 0.3584039167560772D-04
        ws( 11) = 0.3950081328947366D-04
        ws( 12) = 0.4306782030172121D-04
        ws( 13) = 0.4672131907484775D-04
        ws( 14) = 0.5047422343312982D-04
        ws( 15) = 0.5418955173447090D-04
        ws( 16) = 0.5796935744275784D-04
        ws( 17) = 0.6187387593626900D-04
        ws( 18) = 0.6581800491034933D-04
        ws( 19) = 0.6981651444834605D-04
        ws( 20) = 0.7393415095884381D-04
        ws( 21) = 0.7818137511522827D-04
        ws( 22) = 0.8259574199595002D-04
        ws( 23) = 0.8709987479655812D-04
        ws( 24) = 0.9177343447022586D-04
        ws( 25) = 0.9657142452235804D-04
        ws( 26) = 0.1015863468312816D-03
        ws( 27) = 0.1068504274576251D-03
        ws( 28) = 0.1123914214470957D-03
        ws( 29) = 0.1180982781419930D-03
        ws( 30) = 0.1239844338384599D-03
        ws( 31) = 0.1301406593795006D-03
        ws( 32) = 0.1368189262151504D-03
        ws( 33) = 0.1438127547436540D-03
        ws( 34) = 0.1510857601207305D-03
        ws( 35) = 0.1588852198912729D-03
        ws( 36) = 0.1670231628790023D-03
        ws( 37) = 0.1756541724619688D-03
        ws( 38) = 0.1848768661036218D-03
        ws( 39) = 0.1950657644494404D-03
        ws( 40) = 0.2055551168726537D-03
        ws( 41) = 0.2165584906652096D-03
        ws( 42) = 0.2289253047109439D-03
        ws( 43) = 0.2418357340857293D-03
        ws( 44) = 0.2555166106846734D-03
        ws( 45) = 0.2709291403293350D-03
        ws( 46) = 0.2871556357511445D-03
        ws( 47) = 0.3059126485990344D-03
        ws( 48) = 0.3255001907593736D-03
        ws( 49) = 0.3476039586715139D-03
        ws( 50) = 0.3707364773681660D-03
        ws( 51) = 0.3952395544095770D-03
        ws( 52) = 0.4253939551669913D-03
        ws( 53) = 0.4579759745060522D-03
        ws( 54) = 0.4939943577462912D-03
        ws( 55) = 0.5378266263927198D-03
        ws( 56) = 0.5814984986464558D-03
        ws( 57) = 0.6364738787003610D-03
        ws( 58) = 0.6985946715154637D-03
        ws( 59) = 0.7754568735127727D-03
        ws( 60) = 0.8829253052798233D-03
        ws( 61) = 0.1014067152620295D-02
        ws( 62) = 0.1200355228469092D-02
        ws( 63) = 0.1450329221290676D-02
        ws( 64) = 0.1775559760666423D-02
        ws( 65) = 0.2198240111648189D-02
        ws( 66) = 0.2889713952485423D-02
        ws( 67) = 0.4051587064477906D-02
        ws( 68) = 0.6044642938185252D-02
        ws( 69) = 0.9975392425010629D-02
        ws( 70) = 0.1841303829836203D-01
        ws( 71) = 0.3339011253200438D-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 =   9
        err = 0.5314383176542448D-03
        xs(  1) = 0.1047574252333353D-02
        xs(  2) = 0.4950827039278650D-02
        xs(  3) = 0.1085653366454264D-01
        xs(  4) = 0.1807132393867929D-01
        xs(  5) = 0.2617402683894036D-01
        xs(  6) = 0.3491946415397644D-01
        xs(  7) = 0.4417193565771727D-01
        xs(  8) = 0.5385725049145040D-01
        xs(  9) = 0.6396913454702630D-01
        ws(  1) = 0.2594257032797308D-02
        ws(  2) = 0.5049501483697106D-02
        ws(  3) = 0.6648435079567655D-02
        ws(  4) = 0.7709872930512068D-02
        ws(  5) = 0.8454866918617718D-02
        ws(  6) = 0.9025560787578484D-02
        ws(  7) = 0.9525868929835701D-02
        ws(  8) = 0.1009627843749485D-01
        ws(  9) = 0.1182954960478157D-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 =   9
        err = 0.5142625722284202D-03
        xs(  1) = 0.1039052928408152D-02
        xs(  2) = 0.4931772581003567D-02
        xs(  3) = 0.1083320408607079D-01
        xs(  4) = 0.1804637334907591D-01
        xs(  5) = 0.2614843842733498D-01
        xs(  6) = 0.3489403482733861D-01
        xs(  7) = 0.4414714772657461D-01
        xs(  8) = 0.5383408909669407D-01
        xs(  9) = 0.6394624965507899D-01
        ws(  1) = 0.2578209302377689D-02
        ws(  2) = 0.5042872447413157D-02
        ws(  3) = 0.6646424217416148D-02
        ws(  4) = 0.7709477638594338D-02
        ws(  5) = 0.8455741668247708D-02
        ws(  6) = 0.9027690519775863D-02
        ws(  7) = 0.9530098752237643D-02
        ws(  8) = 0.1010464498656359D-01
        ws(  9) = 0.1184654580905342D-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 =   9
        err = 0.4585183249617528D-03
        xs(  1) = 0.1011179167797406D-02
        xs(  2) = 0.4870855432437508D-02
        xs(  3) = 0.1076117568414734D-01
        xs(  4) = 0.1797092742440111D-01
        xs(  5) = 0.2607238317700107D-01
        xs(  6) = 0.3481957391249984D-01
        xs(  7) = 0.4407593436542276D-01
        xs(  8) = 0.5376895608956083D-01
        xs(  9) = 0.6388139171642289D-01
        ws(  1) = 0.2526160839186945D-02
        ws(  2) = 0.5023648727649352D-02
        ws(  3) = 0.6642214235002027D-02
        ws(  4) = 0.7709708307349043D-02
        ws(  5) = 0.8459943124380049D-02
        ws(  6) = 0.9035687152652853D-02
        ws(  7) = 0.9545058815310399D-02
        ws(  8) = 0.1013167509707197D-01
        ws(  9) = 0.1190045872869494D-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 =   8
        err = 0.9655321648929005D-03
        xs(  1) = 0.1117029857190708D-02
        xs(  2) = 0.5350443892577220D-02
        xs(  3) = 0.1171322571049793D-01
        xs(  4) = 0.1938578046277416D-01
        xs(  5) = 0.2791459759154597D-01
        xs(  6) = 0.3704710503297744D-01
        xs(  7) = 0.4660455704587603D-01
        xs(  8) = 0.5649417848516955D-01
        ws(  1) = 0.2784756174657311D-02
        ws(  2) = 0.5476856890267905D-02
        ws(  3) = 0.7122816323767474D-02
        ws(  4) = 0.8161721764135387D-02
        ws(  5) = 0.8889470943290538D-02
        ws(  6) = 0.9445816575866068D-02
        ws(  7) = 0.9990080012712572D-02
        ws(  8) = 0.1171801895948983D-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 =   9
        err = 0.5811262209105355D-03
        xs(  1) = 0.9472460568911999D-03
        xs(  2) = 0.4784134516236272D-02
        xs(  3) = 0.1076663305789281D-01
        xs(  4) = 0.1806104395970134D-01
        xs(  5) = 0.2622288576463711D-01
        xs(  6) = 0.3500551339564772D-01
        xs(  7) = 0.4429289036436013D-01
        xs(  8) = 0.5398472197241875D-01
        xs(  9) = 0.6408192055372512D-01
        ws(  1) = 0.2417214046010653D-02
        ws(  2) = 0.5081586174045240D-02
        ws(  3) = 0.6741217651267184D-02
        ws(  4) = 0.7788555122117486D-02
        ws(  5) = 0.8511375095689779D-02
        ws(  6) = 0.9080175077266035D-02
        ws(  7) = 0.9593477057843119D-02
        ws(  8) = 0.1016351297542747D-01
        ws(  9) = 0.1202657836355851D-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 =  10
        err = 0.4867810288807480D-03
        xs(  1) = 0.5058760477506300D-03
        xs(  2) = 0.2896121754245403D-02
        xs(  3) = 0.7566515618242070D-02
        xs(  4) = 0.1405106054310690D-01
        xs(  5) = 0.2170397417495395D-01
        xs(  6) = 0.3013682028250409D-01
        xs(  7) = 0.3914243985498734D-01
        xs(  8) = 0.4863086584910354D-01
        xs(  9) = 0.5850451116117907D-01
        xs( 10) = 0.6871119944904790D-01
        ws(  1) = 0.1329796386061717D-02
        ws(  2) = 0.3535546242450037D-02
        ws(  3) = 0.5702157956203946D-02
        ws(  4) = 0.7154978980070537D-02
        ws(  5) = 0.8092694821587778D-02
        ws(  6) = 0.8749719478149936D-02
        ws(  7) = 0.9284663789952914D-02
        ws(  8) = 0.9787537954998536D-02
        ws(  9) = 0.1031156220331447D-01
        ws( 10) = 0.1193956209158501D-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 =  10
        err = 0.7170400607693354D-03
        xs(  1) = 0.3236978142202733D-03
        xs(  2) = 0.1879097230772928D-02
        xs(  3) = 0.5422025697291562D-02
        xs(  4) = 0.1141462559120820D-01
        xs(  5) = 0.1909625564438449D-01
        xs(  6) = 0.2772445952001462D-01
        xs(  7) = 0.3694802242658581D-01
        xs(  8) = 0.4660448189809325D-01
        xs(  9) = 0.5655270980231743D-01
        xs( 10) = 0.6649999721701765D-01
        ws(  1) = 0.8495562435498652D-03
        ws(  2) = 0.2387970887350742D-02
        ws(  3) = 0.4812179349429578D-02
        ws(  4) = 0.7003320396286663D-02
        ws(  5) = 0.8237215113645776D-02
        ws(  6) = 0.8971476813419156D-02
        ws(  7) = 0.9483362019185157D-02
        ws(  8) = 0.9917037616994626D-02
        ws(  9) = 0.1028847459374145D-01
        ws( 10) = 0.1124375161412085D-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 =  11
        err = 0.9592358361702107D-03
        xs(  1) = 0.1355761210602528D-03
        xs(  2) = 0.7416942467219964D-03
        xs(  3) = 0.1974564343282144D-02
        xs(  4) = 0.4296088547430309D-02
        xs(  5) = 0.8640645396424992D-02
        xs(  6) = 0.1547894597628905D-01
        xs(  7) = 0.2394621174457543D-01
        xs(  8) = 0.3322927567688267D-01
        xs(  9) = 0.4297399849327581D-01
        xs( 10) = 0.5304108789000313D-01
        xs( 11) = 0.6295448492383866D-01
        ws(  1) = 0.3512710988383743D-03
        ws(  2) = 0.8806322510255029D-03
        ws(  3) = 0.1656415390561903D-02
        ws(  4) = 0.3156017922716437D-02
        ws(  5) = 0.5646899730134072D-02
        ws(  6) = 0.7843951258067024D-02
        ws(  7) = 0.8963920586917308D-02
        ws(  8) = 0.9570397323420850D-02
        ws(  9) = 0.1005084939961094D-01
        ws( 10) = 0.1038746334314395D-01
        ws( 11) = 0.1062534656286525D-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 =  16
        err = 0.6135425557771759D-03
        xs(  1) = 0.4264017114041076D-04
        xs(  2) = 0.2269334912159803D-03
        xs(  3) = 0.5682407414735389D-03
        xs(  4) = 0.1089868750112110D-02
        xs(  5) = 0.1836245494761418D-02
        xs(  6) = 0.2886059418685861D-02
        xs(  7) = 0.4385931929532236D-02
        xs(  8) = 0.6631473541885808D-02
        xs(  9) = 0.1031019256490959D-01
        xs( 10) = 0.1639587285096151D-01
        xs( 11) = 0.2487518956105768D-01
        xs( 12) = 0.3465170547649888D-01
        xs( 13) = 0.4497314239853141D-01
        xs( 14) = 0.5555280653526330D-01
        xs( 15) = 0.6625012355672807D-01
        xs( 16) = 0.7646408152719705D-01
        ws(  1) = 0.1097603688794140D-03
        ws(  2) = 0.2603689562908134D-03
        ws(  3) = 0.4260174081983906D-03
        ws(  4) = 0.6244421747971809D-03
        ws(  5) = 0.8808138719106904D-03
        ws(  6) = 0.1242590684187037D-02
        ws(  7) = 0.1801672897613624D-02
        ws(  8) = 0.2801550763100081D-02
        ws(  9) = 0.4746044015887258D-02
        ws( 10) = 0.7430512278870383D-02
        ws( 11) = 0.9309168509427023D-02
        ws( 12) = 0.1012746311003858D-01
        ws( 13) = 0.1051401979297802D-01
        ws( 14) = 0.1072657750358461D-01
        ws( 15) = 0.1092664763111924D-01
        ws( 16) = 0.9595993197417708D-02
        endif
        if( idomain .eq.   56 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.4000000000000000D-01
        rk1r = 0.9424777960769379D+01
        rk1i = 0.1000000000000000D+00
        iquadtype =  2
        n =  19
        err = 0.4542483193479027D-03
        xs(  1) = 0.2220706677760660D-04
        xs(  2) = 0.1173560884850601D-03
        xs(  3) = 0.2901243271547253D-03
        xs(  4) = 0.5444664486370622D-03
        xs(  5) = 0.8886032841273411D-03
        xs(  6) = 0.1335713554615582D-02
        xs(  7) = 0.1907001209726551D-02
        xs(  8) = 0.2634526847022427D-02
        xs(  9) = 0.3564380526110632D-02
        xs( 10) = 0.4779874214942784D-02
        xs( 11) = 0.6436133489409758D-02
        xs( 12) = 0.8856351442953728D-02
        xs( 13) = 0.1266492451177327D-01
        xs( 14) = 0.1911327280629452D-01
        xs( 15) = 0.2910824013941603D-01
        xs( 16) = 0.4122867992056224D-01
        xs( 17) = 0.5387726622778383D-01
        xs( 18) = 0.6645900720096407D-01
        xs( 19) = 0.7830510824978275D-01
        ws(  1) = 0.5702988526636324D-04
        ws(  2) = 0.1335585580608740D-03
        ws(  3) = 0.2125854372348767D-03
        ws(  4) = 0.2975087767564188D-03
        ws(  5) = 0.3928863604886751D-03
        ws(  6) = 0.5046729546731038D-03
        ws(  7) = 0.6433283169585712D-03
        ws(  8) = 0.8188469920891810D-03
        ws(  9) = 0.1054564184015079D-02
        ws( 10) = 0.1400291778483333D-02
        ws( 11) = 0.1965031428171290D-02
        ws( 12) = 0.2971116400505058D-02
        ws( 13) = 0.4860959624172524D-02
        ws( 14) = 0.8257170920719035D-02
        ws( 15) = 0.1142079895120007D-01
        ws( 16) = 0.1254744336795599D-01
        ws( 17) = 0.1265932242695158D-01
        ws( 18) = 0.1257895739069098D-01
        ws( 19) = 0.1026704381655352D-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 =  22
        err = 0.9834856946803387D-03
        xs(  1) = 0.1386163972930769D-04
        xs(  2) = 0.7307687942916776D-04
        xs(  3) = 0.1797917353556165D-03
        xs(  4) = 0.3348051165779630D-03
        xs(  5) = 0.5403511949342277D-03
        xs(  6) = 0.8002420072232017D-03
        xs(  7) = 0.1120044863668632D-02
        xs(  8) = 0.1508374070954890D-02
        xs(  9) = 0.1976293321829402D-02
        xs( 10) = 0.2540072134501576D-02
        xs( 11) = 0.3224324349596113D-02
        xs( 12) = 0.4061159869365869D-02
        xs( 13) = 0.5107968421485911D-02
        xs( 14) = 0.6442329860563472D-02
        xs( 15) = 0.8238986823312602D-02
        xs( 16) = 0.1089207664139718D-01
        xs( 17) = 0.1513509716846550D-01
        xs( 18) = 0.2250731717946259D-01
        xs( 19) = 0.3447212212266003D-01
        xs( 20) = 0.4908821180011356D-01
        xs( 21) = 0.6396101627575917D-01
        xs( 22) = 0.7788939463662961D-01
        ws(  1) = 0.3559732999344183D-04
        ws(  2) = 0.8289815462508359D-04
        ws(  3) = 0.1305876539066449D-03
        ws(  4) = 0.1797293578877236D-03
        ws(  5) = 0.2319959432161375D-03
        ws(  6) = 0.2887533513295788D-03
        ws(  7) = 0.3523955346358488D-03
        ws(  8) = 0.4260944153329030D-03
        ws(  9) = 0.5122002483130406D-03
        ws( 10) = 0.6196126649612982D-03
        ws( 11) = 0.7533781967742058D-03
        ws( 12) = 0.9305195964789290D-03
        ws( 13) = 0.1174379048195981D-02
        ws( 14) = 0.1521656955725629D-02
        ws( 15) = 0.2135899626248115D-02
        ws( 16) = 0.3285613126939881D-02
        ws( 17) = 0.5449106296441636D-02
        ws( 18) = 0.9657068972787666D-02
        ws( 19) = 0.1382792408068773D-01
        ws( 20) = 0.1498396125816052D-01
        ws( 21) = 0.1457318585072362D-01
        ws( 22) = 0.1117837402069307D-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 =  26
        err = 0.7381881388276283D-03
        xs(  1) = 0.9186199163256999D-05
        xs(  2) = 0.4839605827534814D-04
        xs(  3) = 0.1189539047456084D-03
        xs(  4) = 0.2210719646786178D-03
        xs(  5) = 0.3554918710643784D-03
        xs(  6) = 0.5235531129445482D-03
        xs(  7) = 0.7272059842809073D-03
        xs(  8) = 0.9692135605718264D-03
        xs(  9) = 0.1253549380620706D-02
        xs( 10) = 0.1585031769456169D-02
        xs( 11) = 0.1970564171183192D-02
        xs( 12) = 0.2419152613989062D-02
        xs( 13) = 0.2942075101895817D-02
        xs( 14) = 0.3557118757762488D-02
        xs( 15) = 0.4285923094342573D-02
        xs( 16) = 0.5155914809728439D-02
        xs( 17) = 0.6212757683303830D-02
        xs( 18) = 0.7526191036342168D-02
        xs( 19) = 0.9214119546643732D-02
        xs( 20) = 0.1157791751709560D-01
        xs( 21) = 0.1518251073596020D-01
        xs( 22) = 0.2114678923873394D-01
        xs( 23) = 0.3154688694555674D-01
        xs( 24) = 0.4675288936247163D-01
        xs( 25) = 0.6355536314778611D-01
        xs( 26) = 0.7954738052166388D-01
        ws(  1) = 0.2361021453798901D-04
        ws(  2) = 0.5485685064990045D-04
        ws(  3) = 0.8626323650564113D-04
        ws(  4) = 0.1180643453001408D-03
        ws(  5) = 0.1509659812204041D-03
        ws(  6) = 0.1854961008915058D-03
        ws(  7) = 0.2222970249485586D-03
        ws(  8) = 0.2624566236648150D-03
        ws(  9) = 0.3069595588665472D-03
        ws( 10) = 0.3571118490462791D-03
        ws( 11) = 0.4154973588779269D-03
        ws( 12) = 0.4833643737917747D-03
        ws( 13) = 0.5655382695111474D-03
        ws( 14) = 0.6680948128462436D-03
        ws( 15) = 0.7939754977095896D-03
        ws( 16) = 0.9530621596052399D-03
        ws( 17) = 0.1172862975807996D-02
        ws( 18) = 0.1469416653731965D-02
        ws( 19) = 0.1957248395762391D-02
        ws( 20) = 0.2859659978894558D-02
        ws( 21) = 0.4522696398396639D-02
        ws( 22) = 0.7786831166109890D-02
        ws( 23) = 0.1317013604299610D-01
        ws( 24) = 0.1656381122727560D-01
        ws( 25) = 0.1655866346747198D-01
        ws( 26) = 0.1239005970595666D-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 =  30
        err = 0.6142803046717629D-03
        xs(  1) = 0.6619636903628381D-05
        xs(  2) = 0.3487915260125081D-04
        xs(  3) = 0.8567410229811916D-04
        xs(  4) = 0.1589971235367825D-03
        xs(  5) = 0.2550826520805143D-03
        xs(  6) = 0.3744431407176423D-03
        xs(  7) = 0.5178857721177512D-03
        xs(  8) = 0.6865258182393258D-03
        xs(  9) = 0.8821253029149696D-03
        xs( 10) = 0.1106834851050792D-02
        xs( 11) = 0.1363168471030652D-02
        xs( 12) = 0.1654575791665085D-02
        xs( 13) = 0.1985092814874083D-02
        xs( 14) = 0.2360619518224357D-02
        xs( 15) = 0.2788795638384365D-02
        xs( 16) = 0.3276848411682474D-02
        xs( 17) = 0.3836758800771922D-02
        xs( 18) = 0.4483712872481198D-02
        xs( 19) = 0.5239347548243512D-02
        xs( 20) = 0.6124516536952562D-02
        xs( 21) = 0.7177741701949845D-02
        xs( 22) = 0.8472011596030407D-02
        xs( 23) = 0.1013403560630603D-01
        xs( 24) = 0.1238697231180319D-01
        xs( 25) = 0.1563302041892721D-01
        xs( 26) = 0.2075379999646729D-01
        xs( 27) = 0.2970185195143823D-01
        xs( 28) = 0.4447047288484503D-01
        xs( 29) = 0.6279547169872982D-01
        xs( 30) = 0.8083634899836425D-01
        ws(  1) = 0.1698903605030221D-04
        ws(  2) = 0.3953604062780835D-04
        ws(  3) = 0.6204885121776733D-04
        ws(  4) = 0.8463961322205937D-04
        ws(  5) = 0.1076111612145255D-03
        ws(  6) = 0.1312295674799286D-03
        ws(  7) = 0.1557894578413475D-03
        ws(  8) = 0.1817822750885103D-03
        ws(  9) = 0.2097838190134274D-03
        ws( 10) = 0.2400205100573435D-03
        ws( 11) = 0.2731867645214107D-03
        ws( 12) = 0.3102207258234470D-03
        ws( 13) = 0.3517439484380628D-03
        ws( 14) = 0.4006492952089456D-03
        ws( 15) = 0.4566984699810408D-03
        ws( 16) = 0.5215622801985914D-03
        ws( 17) = 0.6005421834469973D-03
        ws( 18) = 0.6972457124614827D-03
        ws( 19) = 0.8170784582306974D-03
        ws( 20) = 0.9595390854723374D-03
        ws( 21) = 0.1158767919422189D-02
        ws( 22) = 0.1450516452188106D-02
        ws( 23) = 0.1909164358238067D-02
        ws( 24) = 0.2660648706263030D-02
        ws( 25) = 0.3964473581358364D-02
        ws( 26) = 0.6603328882347733D-02
        ws( 27) = 0.1175058078520157D-01
        ws( 28) = 0.1730189217977598D-01
        ws( 29) = 0.1860113572216291D-01
        ws( 30) = 0.1465087288929027D-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 =  34
        err = 0.7480164792551874D-03
        xs(  1) = 0.5005794081400942D-05
        xs(  2) = 0.2634064791916601D-04
        xs(  3) = 0.6468798931147845D-04
        xs(  4) = 0.1200193312224294D-03
        xs(  5) = 0.1923901743476422D-03
        xs(  6) = 0.2819841982344786D-03
        xs(  7) = 0.3891658985027778D-03
        xs(  8) = 0.5144495904324832D-03
        xs(  9) = 0.6586306575776612D-03
        xs( 10) = 0.8227985534144451D-03
        xs( 11) = 0.1008148750828428D-02
        xs( 12) = 0.1216244747930937D-02
        xs( 13) = 0.1449230993324710D-02
        xs( 14) = 0.1709327201930214D-02
        xs( 15) = 0.1999491409228842D-02
        xs( 16) = 0.2323442334535964D-02
        xs( 17) = 0.2685364727304248D-02
        xs( 18) = 0.3091198378792293D-02
        xs( 19) = 0.3546888420809016D-02
        xs( 20) = 0.4060609533472993D-02
        xs( 21) = 0.4644289025332211D-02
        xs( 22) = 0.5310012983715342D-02
        xs( 23) = 0.6077876315028427D-02
        xs( 24) = 0.6971853034376693D-02
        xs( 25) = 0.8019415828090666D-02
        xs( 26) = 0.9297310508409084D-02
        xs( 27) = 0.1095246974016210D-01
        xs( 28) = 0.1317126315143602D-01
        xs( 29) = 0.1627063680070119D-01
        xs( 30) = 0.2097098915086718D-01
        xs( 31) = 0.2898510949048449D-01
        xs( 32) = 0.4293516716554465D-01
        xs( 33) = 0.6227837364006411D-01
        xs( 34) = 0.8224618663734495D-01
        ws(  1) = 0.1282832883566750D-04
        ws(  2) = 0.2984232894112040D-04
        ws(  3) = 0.4683763883271252D-04
        ws(  4) = 0.6383859169734524D-04
        ws(  5) = 0.8094910237771317D-04
        ws(  6) = 0.9831036597781266D-04
        ws(  7) = 0.1161267940124433D-03
        ws(  8) = 0.1345724725384480D-03
        ws(  9) = 0.1539911787769216D-03
        ws( 10) = 0.1745367574680466D-03
        ws( 11) = 0.1963777210342328D-03
        ws( 12) = 0.2201512903749635D-03
        ws( 13) = 0.2461449810667514D-03
        ws( 14) = 0.2745439284703430D-03
        ws( 15) = 0.3064280741178985D-03
        ws( 16) = 0.3420954393156685D-03
        ws( 17) = 0.3827774437412801D-03
        ws( 18) = 0.4297547511818553D-03
        ws( 19) = 0.4828494535967181D-03
        ws( 20) = 0.5467211884332236D-03
        ws( 21) = 0.6224716250181787D-03
        ws( 22) = 0.7122477807775467D-03
        ws( 23) = 0.8278932567674812D-03
        ws( 24) = 0.9631254411613272D-03
        ws( 25) = 0.1144543831175644D-02
        ws( 26) = 0.1436544288497579D-02
        ws( 27) = 0.1902961523939500D-02
        ws( 28) = 0.2584869833886676D-02
        ws( 29) = 0.3719580053433716D-02
        ws( 30) = 0.5965342319404817D-02
        ws( 31) = 0.1055925379151208D-01
        ws( 32) = 0.1733170706357009D-01
        ws( 33) = 0.2033195554986836D-01
        ws( 34) = 0.1670875394888188D-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 =  38
        err = 0.6499478202670745D-03
        xs(  1) = 0.3940480939040031D-05
        xs(  2) = 0.2074513263952252D-04
        xs(  3) = 0.5093078033455376D-04
        xs(  4) = 0.9444508960323678D-04
        xs(  5) = 0.1512589255061345D-03
        xs(  6) = 0.2214481085860540D-03
        xs(  7) = 0.3051878370521731D-03
        xs(  8) = 0.4027162293217951D-03
        xs(  9) = 0.5143763577511159D-03
        xs( 10) = 0.6407616430092920D-03
        xs( 11) = 0.7825417302424895D-03
        xs( 12) = 0.9405163838125937D-03
        xs( 13) = 0.1115755838834166D-02
        xs( 14) = 0.1309508490480351D-02
        xs( 15) = 0.1523085469658190D-02
        xs( 16) = 0.1758509761927827D-02
        xs( 17) = 0.2018030436086498D-02
        xs( 18) = 0.2303716434011552D-02
        xs( 19) = 0.2618564289370841D-02
        xs( 20) = 0.2966353183485662D-02
        xs( 21) = 0.3351431528892024D-02
        xs( 22) = 0.3778953553184434D-02
        xs( 23) = 0.4254874131734158D-02
        xs( 24) = 0.4786410958365910D-02
        xs( 25) = 0.5387182447993066D-02
        xs( 26) = 0.6067809103112687D-02
        xs( 27) = 0.6847199026928129D-02
        xs( 28) = 0.7743909284200330D-02
        xs( 29) = 0.8792074570715094D-02
        xs( 30) = 0.1005193303280420D-01
        xs( 31) = 0.1165120904333927D-01
        xs( 32) = 0.1377744353350559D-01
        xs( 33) = 0.1670788899279436D-01
        xs( 34) = 0.2102502761158438D-01
        xs( 35) = 0.2817203053503528D-01
        xs( 36) = 0.4088596627754713D-01
        xs( 37) = 0.6061891240396258D-01
        xs( 38) = 0.8255142229575214D-01
        ws(  1) = 0.1011467684015276D-04
        ws(  2) = 0.2350475013624636D-04
        ws(  3) = 0.3686831733724855D-04
        ws(  4) = 0.5014993949068653D-04
        ws(  5) = 0.6349475793406615D-04
        ws(  6) = 0.7691683301655680D-04
        ws(  7) = 0.9055754916611394D-04
        ws(  8) = 0.1045575474602760D-03
        ws(  9) = 0.1189347477162328D-03
        ws( 10) = 0.1339306415447959D-03
        ws( 11) = 0.1497283345812435D-03
        ws( 12) = 0.1664122853117372D-03
        ws( 13) = 0.1842987415047387D-03
        ws( 14) = 0.2033816353360414D-03
        ws( 15) = 0.2241008083898597D-03
        ws( 16) = 0.2471360295902739D-03
        ws( 17) = 0.2722086492936903D-03
        ws( 18) = 0.2996780951433914D-03
        ws( 19) = 0.3306138932392931D-03
        ws( 20) = 0.3656741151902780D-03
        ws( 21) = 0.4052897158112924D-03
        ws( 22) = 0.4507587931625678D-03
        ws( 23) = 0.5019336605866861D-03
        ws( 24) = 0.5637995863332976D-03
        ws( 25) = 0.6388404651998188D-03
        ws( 26) = 0.7260279094252365D-03
        ws( 27) = 0.8351292453984617D-03
        ws( 28) = 0.9641994537607109D-03
        ws( 29) = 0.1140944555218022D-02
        ws( 30) = 0.1400402390264650D-02
        ws( 31) = 0.1829553961873454D-02
        ws( 32) = 0.2465584435346357D-02
        ws( 33) = 0.3482026517124513D-02
        ws( 34) = 0.5384456392598910D-02
        ws( 35) = 0.9372523666666428D-02
        ws( 36) = 0.1650534742963544D-01
        ws( 37) = 0.2189602950898549D-01
        ws( 38) = 0.1932804677889909D-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 =  42
        err = 0.6841305781411831D-03
        xs(  1) = 0.3173674325946635D-05
        xs(  2) = 0.1673723490736885D-04
        xs(  3) = 0.4108988485902677D-04
        xs(  4) = 0.7620575149419725D-04
        xs(  5) = 0.1220261577348297D-03
        xs(  6) = 0.1785721536849147D-03
        xs(  7) = 0.2459341788328825D-03
        xs(  8) = 0.3241927986172913D-03
        xs(  9) = 0.4135710382666243D-03
        xs( 10) = 0.5143601949420848D-03
        xs( 11) = 0.6269650371460116D-03
        xs( 12) = 0.7518075763312494D-03
        xs( 13) = 0.8894447051547601D-03
        xs( 14) = 0.1040660056458971D-02
        xs( 15) = 0.1206228232145871D-02
        xs( 16) = 0.1387045263786512D-02
        xs( 17) = 0.1584444835564390D-02
        xs( 18) = 0.1799765499514937D-02
        xs( 19) = 0.2034399019883579D-02
        xs( 20) = 0.2290319561799458D-02
        xs( 21) = 0.2569518375121081D-02
        xs( 22) = 0.2874515392651753D-02
        xs( 23) = 0.3208290498086056D-02
        xs( 24) = 0.3574455318435845D-02
        xs( 25) = 0.3976117791094312D-02
        xs( 26) = 0.4419971772279191D-02
        xs( 27) = 0.4912025842616074D-02
        xs( 28) = 0.5458408326872061D-02
        xs( 29) = 0.6072301832430701D-02
        xs( 30) = 0.6766325311677975D-02
        xs( 31) = 0.7552774981188718D-02
        xs( 32) = 0.8445291371160993D-02
        xs( 33) = 0.9491263188378330D-02
        xs( 34) = 0.1075623148137244D-01
        xs( 35) = 0.1233340892104605D-01
        xs( 36) = 0.1436213307795255D-01
        xs( 37) = 0.1707941545629123D-01
        xs( 38) = 0.2101594286655396D-01
        xs( 39) = 0.2737744318074473D-01
        xs( 40) = 0.3857043916124857D-01
        xs( 41) = 0.5748723026786275D-01
        xs( 42) = 0.8094405945012469D-01
        ws(  1) = 0.8152392009293598D-05
        ws(  2) = 0.1896173970031611D-04
        ws(  3) = 0.2975698177351066D-04
        ws(  4) = 0.4044740836123918D-04
        ws(  5) = 0.5120196666836390D-04
        ws(  6) = 0.6193332812991257D-04
        ws(  7) = 0.7276639992354673D-04
        ws(  8) = 0.8380620185416460D-04
        ws(  9) = 0.9499397776970733D-04
        ws( 10) = 0.1066391207369530D-03
        ws( 11) = 0.1186549512965268D-03
        ws( 12) = 0.1311233918031452D-03
        ws( 13) = 0.1442642454163982D-03
        ws( 14) = 0.1582844504333086D-03
        ws( 15) = 0.1729929920195497D-03
        ws( 16) = 0.1888576084216973D-03
        ws( 17) = 0.2061592361750245D-03
        ws( 18) = 0.2246795710373042D-03
        ws( 19) = 0.2449405054109950D-03
        ws( 20) = 0.2671812519794463D-03
        ws( 21) = 0.2916604839472341D-03
        ws( 22) = 0.3188440434117513D-03
        ws( 23) = 0.3494008870816587D-03
        ws( 24) = 0.3833385642334468D-03
        ws( 25) = 0.4212763502971504D-03
        ws( 26) = 0.4675557626478729D-03
        ws( 27) = 0.5173312805314845D-03
        ws( 28) = 0.5779664607059048D-03
        ws( 29) = 0.6518265570816690D-03
        ws( 30) = 0.7385011821892368D-03
        ws( 31) = 0.8358822928072995D-03
        ws( 32) = 0.9577127730351400D-03
        ws( 33) = 0.1144861662853713D-02
        ws( 34) = 0.1400755157157148D-02
        ws( 35) = 0.1775864278148531D-02
        ws( 36) = 0.2318037354934236D-02
        ws( 37) = 0.3199416033852689D-02
        ws( 38) = 0.4862286334990573D-02
        ws( 39) = 0.8256324909161549D-02
        ws( 40) = 0.1476302032212266D-01
        ws( 41) = 0.2241746799290959D-01
        ws( 42) = 0.2123176688510533D-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 =  46
        err = 0.7509182151808679D-03
        xs(  1) = 0.2633307718180594D-05
        xs(  2) = 0.1386943780088000D-04
        xs(  3) = 0.3402037926482805D-04
        xs(  4) = 0.6305826370856894D-04
        xs(  5) = 0.1009134942738759D-03
        xs(  6) = 0.1475827298899493D-03
        xs(  7) = 0.2030753131776086D-03
        xs(  8) = 0.2674502572366515D-03
        xs(  9) = 0.3408267696043894D-03
        xs( 10) = 0.4233178498178273D-03
        xs( 11) = 0.5151967157916602D-03
        xs( 12) = 0.6167303957564744D-03
        xs( 13) = 0.7282364586523217D-03
        xs( 14) = 0.8501458935930415D-03
        xs( 15) = 0.9829581672203035D-03
        xs( 16) = 0.1127146040317124D-02
        xs( 17) = 0.1283493613082262D-02
        xs( 18) = 0.1452862759429900D-02
        xs( 19) = 0.1636100880454113D-02
        xs( 20) = 0.1834184814919778D-02
        xs( 21) = 0.2048186251827774D-02
        xs( 22) = 0.2279685667014474D-02
        xs( 23) = 0.2530276347066346D-02
        xs( 24) = 0.2801555920348290D-02
        xs( 25) = 0.3096036497909829D-02
        xs( 26) = 0.3414969435889486D-02
        xs( 27) = 0.3762199304088529D-02
        xs( 28) = 0.4141127340050598D-02
        xs( 29) = 0.4555674298129792D-02
        xs( 30) = 0.5011108340163807D-02
        xs( 31) = 0.5514622391664748D-02
        xs( 32) = 0.6071833321203912D-02
        xs( 33) = 0.6690682333443194D-02
        xs( 34) = 0.7382227614666271D-02
        xs( 35) = 0.8165707526651075D-02
        xs( 36) = 0.9044691080509343D-02
        xs( 37) = 0.1006603851895233D-01
        xs( 38) = 0.1131581141025294D-01
        xs( 39) = 0.1287969495664075D-01
        xs( 40) = 0.1488464490434871D-01
        xs( 41) = 0.1755705749359042D-01
        xs( 42) = 0.2136430625568569D-01
        xs( 43) = 0.2732140329537752D-01
        xs( 44) = 0.3763792666096033D-01
        xs( 45) = 0.5604804562387770D-01
        xs( 46) = 0.8130828657001182D-01
        ws(  1) = 0.6761316118081681D-05
        ws(  2) = 0.1568097507389614D-04
        ws(  3) = 0.2464020730338985D-04
        ws(  4) = 0.3344317196211309D-04
        ws(  5) = 0.4225617673042297D-04
        ws(  6) = 0.5104966806567647D-04
        ws(  7) = 0.5993963770179008D-04
        ws(  8) = 0.6886445971071868D-04
        ws(  9) = 0.7790716030353211D-04
        ws( 10) = 0.8714448513680987D-04
        ws( 11) = 0.9663665970321868D-04
        ws( 12) = 0.1064671697172126D-03
        ws( 13) = 0.1166332483807982D-03
        ws( 14) = 0.1272985442622689D-03
        ws( 15) = 0.1384208144203006D-03
        ws( 16) = 0.1500786617045981D-03
        ws( 17) = 0.1627423670284561D-03
        ws( 18) = 0.1761878063434293D-03
        ws( 19) = 0.1904501632231679D-03
        ws( 20) = 0.2058472487429922D-03
        ws( 21) = 0.2224253116405704D-03
        ws( 22) = 0.2408521597768004D-03
        ws( 23) = 0.2605382763112741D-03
        ws( 24) = 0.2825531413077725D-03
        ws( 25) = 0.3064216864084488D-03
        ws( 26) = 0.3322082783426728D-03
        ws( 27) = 0.3627486501238116D-03
        ws( 28) = 0.3957624407350280D-03
        ws( 29) = 0.4340599599690463D-03
        ws( 30) = 0.4781997126572830D-03
        ws( 31) = 0.5294081837309664D-03
        ws( 32) = 0.5866764263624389D-03
        ws( 33) = 0.6520218093841895D-03
        ws( 34) = 0.7356540398986419D-03
        ws( 35) = 0.8300939400948118D-03
        ws( 36) = 0.9355430656187374D-03
        ws( 37) = 0.1123392104146568D-02
        ws( 38) = 0.1388579200214159D-02
        ws( 39) = 0.1759879718948608D-02
        ws( 40) = 0.2286470757363316D-02
        ws( 41) = 0.3130223874500361D-02
        ws( 42) = 0.4642143952244696D-02
        ws( 43) = 0.7629700495337855D-02
        ws( 44) = 0.1369544276528151D-01
        ws( 45) = 0.2304936396607320D-01
        ws( 46) = 0.2413753634555501D-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 =  50
        err = 0.8741189018058685D-03
        xs(  1) = 0.2212931370580828D-05
        xs(  2) = 0.1164231010469824D-04
        xs(  3) = 0.2857602292776642D-04
        xs(  4) = 0.5298277704584819D-04
        xs(  5) = 0.8479454118845817D-04
        xs(  6) = 0.1239765863886637D-03
        xs(  7) = 0.1705592427618498D-03
        xs(  8) = 0.2245325683140161D-03
        xs(  9) = 0.2859482526930466D-03
        xs( 10) = 0.3549049434298092D-03
        xs( 11) = 0.4315349190140784D-03
        xs( 12) = 0.5160050501313508D-03
        xs( 13) = 0.6085249645624266D-03
        xs( 14) = 0.7093568178019889D-03
        xs( 15) = 0.8187901923142673D-03
        xs( 16) = 0.9371859249054393D-03
        xs( 17) = 0.1064907620493130D-02
        xs( 18) = 0.1202545364228591D-02
        xs( 19) = 0.1350680757392042D-02
        xs( 20) = 0.1509885579549418D-02
        xs( 21) = 0.1680890068697802D-02
        xs( 22) = 0.1864404329073602D-02
        xs( 23) = 0.2061486579374706D-02
        xs( 24) = 0.2273209414679335D-02
        xs( 25) = 0.2500785042895485D-02
        xs( 26) = 0.2745680987013328D-02
        xs( 27) = 0.3008924514628863D-02
        xs( 28) = 0.3292292367111984D-02
        xs( 29) = 0.3598264392872254D-02
        xs( 30) = 0.3929045427811934D-02
        xs( 31) = 0.4287509144493016D-02
        xs( 32) = 0.4678311725366181D-02
        xs( 33) = 0.5104539510361656D-02
        xs( 34) = 0.5570513975693200D-02
        xs( 35) = 0.6078541218800423D-02
        xs( 36) = 0.6641401274804471D-02
        xs( 37) = 0.7269140493529019D-02
        xs( 38) = 0.7962751384366336D-02
        xs( 39) = 0.8743233308309190D-02
        xs( 40) = 0.9635722261874117D-02
        xs( 41) = 0.1068033863743626D-01
        xs( 42) = 0.1193749325019311D-01
        xs( 43) = 0.1348953287131881D-01
        xs( 44) = 0.1544440621205138D-01
        xs( 45) = 0.1799328865238211D-01
        xs( 46) = 0.2155637955644416D-01
        xs( 47) = 0.2702630360650094D-01
        xs( 48) = 0.3634861822057721D-01
        xs( 49) = 0.5338873463346825D-01
        xs( 50) = 0.7943242269160458D-01
        ws(  1) = 0.5655598440779892D-05
        ws(  2) = 0.1321851503623626D-04
        ws(  3) = 0.2067083711144484D-04
        ws(  4) = 0.2809818378358111D-04
        ws(  5) = 0.3553037531608964D-04
        ws(  6) = 0.4288349238979825D-04
        ws(  7) = 0.5022109876794682D-04
        ws(  8) = 0.5771837966740347D-04
        ws(  9) = 0.6516809789132699D-04
        ws( 10) = 0.7276478440408181D-04
        ws( 11) = 0.8050329425092518D-04
        ws( 12) = 0.8849125458303533D-04
        ws( 13) = 0.9659901419712082D-04
        ws( 14) = 0.1050812580348932D-03
        ws( 15) = 0.1138733751922426D-03
        ws( 16) = 0.1229744925096145D-03
        ws( 17) = 0.1325906497264448D-03
        ws( 18) = 0.1427683704418023D-03
        ws( 19) = 0.1535826813225817D-03
        ws( 20) = 0.1649780596953096D-03
        ws( 21) = 0.1771094832737563D-03
        ws( 22) = 0.1901278944925725D-03
        ws( 23) = 0.2042237016419220D-03
        ws( 24) = 0.2194004017916744D-03
        ws( 25) = 0.2360109528419095D-03
        ws( 26) = 0.2538786302535730D-03
        ws( 27) = 0.2729193522822831D-03
        ws( 28) = 0.2942659665699895D-03
        ws( 29) = 0.3180532802488780D-03
        ws( 30) = 0.3438930506394566D-03
        ws( 31) = 0.3739799098061856D-03
        ws( 32) = 0.4079181300208154D-03
        ws( 33) = 0.4455742527739897D-03
        ws( 34) = 0.4862911541338833D-03
        ws( 35) = 0.5322757985017717D-03
        ws( 36) = 0.5954831076722550D-03
        ws( 37) = 0.6590586579646641D-03
        ws( 38) = 0.7328049692928531D-03
        ws( 39) = 0.8315438095384703D-03
        ws( 40) = 0.9605011858505871D-03
        ws( 41) = 0.1139068377581038D-02
        ws( 42) = 0.1388199708066147D-02
        ws( 43) = 0.1734659367209992D-02
        ws( 44) = 0.2203124843951781D-02
        ws( 45) = 0.2961181629067974D-02
        ws( 46) = 0.4305646759918409D-02
        ws( 47) = 0.6944090513628533D-02
        ws( 48) = 0.1233565085801173D-01
        ws( 49) = 0.2237581648570465D-01
        ws( 50) = 0.2650691187837759D-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 =  54
        err = 0.8683264000600853D-03
        xs(  1) = 0.1875601120956839D-05
        xs(  2) = 0.9938221737667439D-05
        xs(  3) = 0.2441195444426496D-04
        xs(  4) = 0.4522111004903139D-04
        xs(  5) = 0.7240414876937646D-04
        xs(  6) = 0.1058399276338279D-03
        xs(  7) = 0.1455742258204866D-03
        xs(  8) = 0.1915824085393290D-03
        xs(  9) = 0.2438727898456521D-03
        xs( 10) = 0.3025321964744792D-03
        xs( 11) = 0.3675712581535341D-03
        xs( 12) = 0.4391595722776844D-03
        xs( 13) = 0.5174016182669643D-03
        xs( 14) = 0.6024696442196713D-03
        xs( 15) = 0.6945398776334172D-03
        xs( 16) = 0.7938913634526667D-03
        xs( 17) = 0.9007160433003618D-03
        xs( 18) = 0.1015357490447733D-02
        xs( 19) = 0.1138210453481159D-02
        xs( 20) = 0.1269704096507212D-02
        xs( 21) = 0.1410284392373092D-02
        xs( 22) = 0.1560508984384595D-02
        xs( 23) = 0.1720817109721102D-02
        xs( 24) = 0.1891915013804012D-02
        xs( 25) = 0.2074681784128435D-02
        xs( 26) = 0.2269806426566455D-02
        xs( 27) = 0.2478370391875435D-02
        xs( 28) = 0.2701210768098565D-02
        xs( 29) = 0.2939599848172563D-02
        xs( 30) = 0.3195126286797969D-02
        xs( 31) = 0.3468530570686273D-02
        xs( 32) = 0.3761792955317533D-02
        xs( 33) = 0.4077355953584780D-02
        xs( 34) = 0.4418179538505523D-02
        xs( 35) = 0.4787027337207094D-02
        xs( 36) = 0.5186422219703822D-02
        xs( 37) = 0.5619380094532782D-02
        xs( 38) = 0.6093052580073761D-02
        xs( 39) = 0.6609624587581384D-02
        xs( 40) = 0.7175422025604483D-02
        xs( 41) = 0.7800519630750814D-02
        xs( 42) = 0.8495931639254091D-02
        xs( 43) = 0.9281768963642068D-02
        xs( 44) = 0.1017339679756878D-01
        xs( 45) = 0.1121373971547923D-01
        xs( 46) = 0.1246490425462781D-01
        xs( 47) = 0.1400230562140412D-01
        xs( 48) = 0.1594025996986674D-01
        xs( 49) = 0.1846023619160329D-01
        xs( 50) = 0.2195043522436767D-01
        xs( 51) = 0.2725620589159776D-01
        xs( 52) = 0.3614169319530943D-01
        xs( 53) = 0.5232739401163830D-01
        xs( 54) = 0.7901217978596026D-01
        ws(  1) = 0.4834552015022173D-05
        ws(  2) = 0.1123281832633642D-04
        ws(  3) = 0.1767710118305561D-04
        ws(  4) = 0.2402031605966086D-04
        ws(  5) = 0.3031221855498763D-04
        ws(  6) = 0.3658494400690105D-04
        ws(  7) = 0.4287208638666651D-04
        ws(  8) = 0.4913620524063706D-04
        ws(  9) = 0.5548233046389312D-04
        ws( 10) = 0.6180187686516442D-04
        ws( 11) = 0.6829104404936303D-04
        ws( 12) = 0.7490361956853364D-04
        ws( 13) = 0.8162269210492689D-04
        ws( 14) = 0.8852796220687768D-04
        ws( 15) = 0.9566317651817704D-04
        ws( 16) = 0.1030461106962735D-03
        ws( 17) = 0.1106620407367217D-03
        ws( 18) = 0.1186798281462077D-03
        ws( 19) = 0.1271075356908285D-03
        ws( 20) = 0.1359320180889216D-03
        ws( 21) = 0.1453262992068487D-03
        ws( 22) = 0.1552008276577242D-03
        ws( 23) = 0.1655472281493331D-03
        ws( 24) = 0.1768072440829915D-03
        ws( 25) = 0.1888018750520122D-03
        ws( 26) = 0.2016744420072446D-03
        ws( 27) = 0.2155949096617711D-03
        ws( 28) = 0.2302743360393020D-03
        ws( 29) = 0.2468345851911888D-03
        ws( 30) = 0.2642781432664176D-03
        ws( 31) = 0.2828892274262888D-03
        ws( 32) = 0.3040136353084730D-03
        ws( 33) = 0.3276659065884945D-03
        ws( 34) = 0.3544465787954218D-03
        ws( 35) = 0.3837014226136184D-03
        ws( 36) = 0.4153881409483179D-03
        ws( 37) = 0.4519951173892707D-03
        ws( 38) = 0.4954284730590482D-03
        ws( 39) = 0.5387096204777576D-03
        ws( 40) = 0.5947635946531406D-03
        ws( 41) = 0.6566583054235730D-03
        ws( 42) = 0.7381845535690813D-03
        ws( 43) = 0.8349146058105510D-03
        ws( 44) = 0.9557721668435793D-03
        ws( 45) = 0.1135492605861649D-02
        ws( 46) = 0.1378290756917254D-02
        ws( 47) = 0.1716317542695959D-02
        ws( 48) = 0.2186248212361445D-02
        ws( 49) = 0.2915438226776447D-02
        ws( 50) = 0.4199741687885761D-02
        ws( 51) = 0.6687026270984516D-02
        ws( 52) = 0.1167440278020202D-01
        ws( 53) = 0.2166349673641493D-01
        ws( 54) = 0.2888078085731719D-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 =  59
        err = 0.6534386648064091D-03
        xs(  1) = 0.1596237279344938D-05
        xs(  2) = 0.8463054166613872D-05
        xs(  3) = 0.2077917654522819D-04
        xs(  4) = 0.3854732583345682D-04
        xs(  5) = 0.6171445458677384D-04
        xs(  6) = 0.9025362011369055D-04
        xs(  7) = 0.1241451560039085D-03
        xs(  8) = 0.1633945488624860D-03
        xs(  9) = 0.2079910894092296D-03
        xs( 10) = 0.2579590424940586D-03
        xs( 11) = 0.3133623176404018D-03
        xs( 12) = 0.3742484949091127D-03
        xs( 13) = 0.4407182958585719D-03
        xs( 14) = 0.5128462713725687D-03
        xs( 15) = 0.5907769831735524D-03
        xs( 16) = 0.6746996863356200D-03
        xs( 17) = 0.7647732896878892D-03
        xs( 18) = 0.8611435948747203D-03
        xs( 19) = 0.9640734980300980D-03
        xs( 20) = 0.1073904081245086D-02
        xs( 21) = 0.1190923626147453D-02
        xs( 22) = 0.1315418681085200D-02
        xs( 23) = 0.1447737020973426D-02
        xs( 24) = 0.1588327929857928D-02
        xs( 25) = 0.1737775454411397D-02
        xs( 26) = 0.1896469235938133D-02
        xs( 27) = 0.2065003724948652D-02
        xs( 28) = 0.2244108093344574D-02
        xs( 29) = 0.2434235330494413D-02
        xs( 30) = 0.2636648945755389D-02
        xs( 31) = 0.2851985322480068D-02
        xs( 32) = 0.3081094139868920D-02
        xs( 33) = 0.3325497075391035D-02
        xs( 34) = 0.3586279187232235D-02
        xs( 35) = 0.3864980840008664D-02
        xs( 36) = 0.4163262185685420D-02
        xs( 37) = 0.4482623301882815D-02
        xs( 38) = 0.4825228697353611D-02
        xs( 39) = 0.5194967560801858D-02
        xs( 40) = 0.5593025394365178D-02
        xs( 41) = 0.6024151537234986D-02
        xs( 42) = 0.6492569905691198D-02
        xs( 43) = 0.7001635189812192D-02
        xs( 44) = 0.7558588857566296D-02
        xs( 45) = 0.8168556219840379D-02
        xs( 46) = 0.8840689812981280D-02
        xs( 47) = 0.9587145881228269D-02
        xs( 48) = 0.1042161756543830D-01
        xs( 49) = 0.1137441369281607D-01
        xs( 50) = 0.1249753586637508D-01
        xs( 51) = 0.1386430696410811D-01
        xs( 52) = 0.1554686265493489D-01
        xs( 53) = 0.1765015356344712D-01
        xs( 54) = 0.2037015575139811D-01
        xs( 55) = 0.2411855408804038D-01
        xs( 56) = 0.2975851105628665D-01
        xs( 57) = 0.3918371062399102D-01
        xs( 58) = 0.5641848094323082D-01
        xs( 59) = 0.8496495119564633D-01
        ws(  1) = 0.4113952745959728D-05
        ws(  2) = 0.9613917704610875D-05
        ws(  3) = 0.1505780085963935D-04
        ws(  4) = 0.2045563444423622D-04
        ws(  5) = 0.2582105420551911D-04
        ws(  6) = 0.3125391083544297D-04
        ws(  7) = 0.3655565752488825D-04
        ws(  8) = 0.4193437913313475D-04
        ws(  9) = 0.4728654496218290D-04
        ws( 10) = 0.5266449664455381D-04
        ws( 11) = 0.5812082423237780D-04
        ws( 12) = 0.6366670513023336D-04
        ws( 13) = 0.6929294609511956D-04
        ws( 14) = 0.7500488264103555D-04
        ws( 15) = 0.8087884326632461D-04
        ws( 16) = 0.8698713957858918D-04
        ws( 17) = 0.9318916699989180D-04
        ws( 18) = 0.9960059131774331D-04
        ws( 19) = 0.1063265965736913D-03
        ws( 20) = 0.1133866237267581D-03
        ws( 21) = 0.1206926904941776D-03
        ws( 22) = 0.1283565606241153D-03
        ws( 23) = 0.1363537142213676D-03
        ws( 24) = 0.1449467785279894D-03
        ws( 25) = 0.1540059913569634D-03
        ws( 26) = 0.1634676175607555D-03
        ws( 27) = 0.1737489807267337D-03
        ws( 28) = 0.1844691712481136D-03
        ws( 29) = 0.1960570843964616D-03
        ws( 30) = 0.2088579925437640D-03
        ws( 31) = 0.2219219948817548D-03
        ws( 32) = 0.2365654959728680D-03
        ws( 33) = 0.2523074018559187D-03
        ws( 34) = 0.2695000862427367D-03
        ws( 35) = 0.2881269199980491D-03
        ws( 36) = 0.3087327256650663D-03
        ws( 37) = 0.3301793561873458D-03
        ws( 38) = 0.3558636401283866D-03
        ws( 39) = 0.3834845412144001D-03
        ws( 40) = 0.4136322149957097D-03
        ws( 41) = 0.4493873647831797D-03
        ws( 42) = 0.4878026296819522D-03
        ws( 43) = 0.5319089566363568D-03
        ws( 44) = 0.5825147767570096D-03
        ws( 45) = 0.6389464139859442D-03
        ws( 46) = 0.7075635876067924D-03
        ws( 47) = 0.7868533723313505D-03
        ws( 48) = 0.8873125261701348D-03
        ws( 49) = 0.1026795244270011D-02
        ws( 50) = 0.1231875561995187D-02
        ws( 51) = 0.1513059247911565D-02
        ws( 52) = 0.1869451662015040D-02
        ws( 53) = 0.2365833869866431D-02
        ws( 54) = 0.3141134818651788D-02
        ws( 55) = 0.4491664082078049D-02
        ws( 56) = 0.7085250296319888D-02
        ws( 57) = 0.1239006463063265D-01
        ws( 58) = 0.2320207182845656D-01
        ws( 59) = 0.3155267347466258D-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 =  63
        err = 0.7184111049399430D-03
        xs(  1) = 0.1370748230095645D-05
        xs(  2) = 0.7357051163314692D-05
        xs(  3) = 0.1810003193726433D-04
        xs(  4) = 0.3358942464176011D-04
        xs(  5) = 0.5378446312130540D-04
        xs(  6) = 0.7866314380272062D-04
        xs(  7) = 0.1081963219504633D-03
        xs(  8) = 0.1423934566204631D-03
        xs(  9) = 0.1812339526247339D-03
        xs( 10) = 0.2247277920507845D-03
        xs( 11) = 0.2729052388043979D-03
        xs( 12) = 0.3258065970956596D-03
        xs( 13) = 0.3834893122701316D-03
        xs( 14) = 0.4460067049829300D-03
        xs( 15) = 0.5134537053403090D-03
        xs( 16) = 0.5859505421342541D-03
        xs( 17) = 0.6636309668542086D-03
        xs( 18) = 0.7465900181841259D-03
        xs( 19) = 0.8349878118626543D-03
        xs( 20) = 0.9290280343346689D-03
        xs( 21) = 0.1028968987682646D-02
        xs( 22) = 0.1135027366991866D-02
        xs( 23) = 0.1247427541170020D-02
        xs( 24) = 0.1366398371815995D-02
        xs( 25) = 0.1492361406979182D-02
        xs( 26) = 0.1625693270197734D-02
        xs( 27) = 0.1766710697230848D-02
        xs( 28) = 0.1915889532857342D-02
        xs( 29) = 0.2073576025028685D-02
        xs( 30) = 0.2240313399577640D-02
        xs( 31) = 0.2417017607816527D-02
        xs( 32) = 0.2604068691410717D-02
        xs( 33) = 0.2802057836856271D-02
        xs( 34) = 0.3011853010331806D-02
        xs( 35) = 0.3234661150374131D-02
        xs( 36) = 0.3471187597542840D-02
        xs( 37) = 0.3722804029234482D-02
        xs( 38) = 0.3990759351066166D-02
        xs( 39) = 0.4275716263857561D-02
        xs( 40) = 0.4579904722056675D-02
        xs( 41) = 0.4904889019037583D-02
        xs( 42) = 0.5253242799076472D-02
        xs( 43) = 0.5627564918949128D-02
        xs( 44) = 0.6030631550287434D-02
        xs( 45) = 0.6466674173641136D-02
        xs( 46) = 0.6937370709042711D-02
        xs( 47) = 0.7448669150691272D-02
        xs( 48) = 0.8006030306216638D-02
        xs( 49) = 0.8608825802147401D-02
        xs( 50) = 0.9270138179688660D-02
        xs( 51) = 0.1000095890019008D-01
        xs( 52) = 0.1082725642248529D-01
        xs( 53) = 0.1179024677748449D-01
        xs( 54) = 0.1293057306917534D-01
        xs( 55) = 0.1430572168779712D-01
        xs( 56) = 0.1597673932572300D-01
        xs( 57) = 0.1804165131650474D-01
        xs( 58) = 0.2069286313818644D-01
        xs( 59) = 0.2432686217164050D-01
        xs( 60) = 0.2971579792054608D-01
        xs( 61) = 0.3846984913672734D-01
        xs( 62) = 0.5397838038664438D-01
        xs( 63) = 0.8143487685155842D-01
        ws(  1) = 0.3569734442040386D-05
        ws(  2) = 0.8389191561269265D-05
        ws(  3) = 0.1311269101786309D-04
        ws(  4) = 0.1780344397171982D-04
        ws(  5) = 0.2258227561984205D-04
        ws(  6) = 0.2718859676403777D-04
        ws(  7) = 0.3187822103936030D-04
        ws(  8) = 0.3649773605272767D-04
        ws(  9) = 0.4115837327311078D-04
        ws( 10) = 0.4585440776084577D-04
        ws( 11) = 0.5051799871026395D-04
        ws( 12) = 0.5528303482798791D-04
        ws( 13) = 0.6007686058844082D-04
        ws( 14) = 0.6496699471474682D-04
        ws( 15) = 0.6993727617228036D-04
        ws( 16) = 0.7507144261592139D-04
        ws( 17) = 0.8029386456246934D-04
        ws( 18) = 0.8564625984716253D-04
        ws( 19) = 0.9116452055471470D-04
        ws( 20) = 0.9696080987697006D-04
        ws( 21) = 0.1029659245614303D-03
        ws( 22) = 0.1091823929914941D-03
        ws( 23) = 0.1156379629554472D-03
        ws( 24) = 0.1223886152886146D-03
        ws( 25) = 0.1296069921742720D-03
        ws( 26) = 0.1371205565689704D-03
        ws( 27) = 0.1450224280213024D-03
        ws( 28) = 0.1534280900868922D-03
        ws( 29) = 0.1620523461668721D-03
        ws( 30) = 0.1716145714910534D-03
        ws( 31) = 0.1818704401737953D-03
        ws( 32) = 0.1923891868060042D-03
        ws( 33) = 0.2037495818640419D-03
        ws( 34) = 0.2160909256706295D-03
        ws( 35) = 0.2296102599149503D-03
        ws( 36) = 0.2436828336473970D-03
        ws( 37) = 0.2598171579227300D-03
        ws( 38) = 0.2760728857437316D-03
        ws( 39) = 0.2943074562624539D-03
        ws( 40) = 0.3141896520754134D-03
        ws( 41) = 0.3363238056274222D-03
        ws( 42) = 0.3608427743102545D-03
        ws( 43) = 0.3882371733558938D-03
        ws( 44) = 0.4188038873733253D-03
        ws( 45) = 0.4532962127733537D-03
        ws( 46) = 0.4891941470722224D-03
        ws( 47) = 0.5346283210857398D-03
        ws( 48) = 0.5791684306192897D-03
        ws( 49) = 0.6295694523219254D-03
        ws( 50) = 0.6941685149609091D-03
        ws( 51) = 0.7718114256114580D-03
        ws( 52) = 0.8888469338604396D-03
        ws( 53) = 0.1042307853463988D-02
        ws( 54) = 0.1249618412821215D-02
        ws( 55) = 0.1509390691094967D-02
        ws( 56) = 0.1848516531452370D-02
        ws( 57) = 0.2310510063763999D-02
        ws( 58) = 0.3057539779855410D-02
        ws( 59) = 0.4330082285554381D-02
        ws( 60) = 0.6697956779433600D-02
        ws( 61) = 0.1133811174862268D-01
        ws( 62) = 0.2086343779619840D-01
        ws( 63) = 0.3200334753325617D-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 =  67
        err = 0.7325896578047486D-03
        xs(  1) = 0.1241444418830338D-05
        xs(  2) = 0.6530805027268829D-05
        xs(  3) = 0.1599500046312558D-04
        xs(  4) = 0.2966097846003482D-04
        xs(  5) = 0.4747072277310285D-04
        xs(  6) = 0.6940961341972273D-04
        xs(  7) = 0.9546109572700761D-04
        xs(  8) = 0.1256075830309568D-03
        xs(  9) = 0.1598141754328914D-03
        xs( 10) = 0.1981256515293163D-03
        xs( 11) = 0.2405328501871163D-03
        xs( 12) = 0.2870543842509477D-03
        xs( 13) = 0.3377256136146230D-03
        xs( 14) = 0.3925975814990680D-03
        xs( 15) = 0.4517183195434232D-03
        xs( 16) = 0.5151741706345796D-03
        xs( 17) = 0.5830731334213165D-03
        xs( 18) = 0.6554890980859051D-03
        xs( 19) = 0.7325070443762880D-03
        xs( 20) = 0.8142648904013155D-03
        xs( 21) = 0.9009519316134844D-03
        xs( 22) = 0.9927537761017147D-03
        xs( 23) = 0.1089825419356456D-02
        xs( 24) = 0.1192334757455665D-02
        xs( 25) = 0.1300498385653858D-02
        xs( 26) = 0.1414617922422333D-02
        xs( 27) = 0.1534999494067428D-02
        xs( 28) = 0.1661927413416831D-02
        xs( 29) = 0.1795679162733961D-02
        xs( 30) = 0.1936527562712207D-02
        xs( 31) = 0.2084953013503610D-02
        xs( 32) = 0.2241496701583589D-02
        xs( 33) = 0.2406614437929523D-02
        xs( 34) = 0.2580744604545410D-02
        xs( 35) = 0.2764429060391427D-02
        xs( 36) = 0.2958436511913557D-02
        xs( 37) = 0.3163392757534058D-02
        xs( 38) = 0.3380337850931650D-02
        xs( 39) = 0.3610026220569731D-02
        xs( 40) = 0.3853074112802742D-02
        xs( 41) = 0.4110866081970076D-02
        xs( 42) = 0.4384973006815341D-02
        xs( 43) = 0.4675889849304903D-02
        xs( 44) = 0.4986015443022596D-02
        xs( 45) = 0.5317037885823196D-02
        xs( 46) = 0.5671041443645633D-02
        xs( 47) = 0.6050521754509074D-02
        xs( 48) = 0.6458539158204434D-02
        xs( 49) = 0.6897826701235211D-02
        xs( 50) = 0.7370595598203786D-02
        xs( 51) = 0.7883849115808712D-02
        xs( 52) = 0.8442080199636950D-02
        xs( 53) = 0.9044379350489167D-02
        xs( 54) = 0.9705508033376964D-02
        xs( 55) = 0.1044066722934095D-01
        xs( 56) = 0.1126813208868185D-01
        xs( 57) = 0.1222212616608406D-01
        xs( 58) = 0.1333987221367341D-01
        xs( 59) = 0.1466974026163161D-01
        xs( 60) = 0.1627156895070779D-01
        xs( 61) = 0.1824480048236201D-01
        xs( 62) = 0.2078226851700510D-01
        xs( 63) = 0.2424790635580492D-01
        xs( 64) = 0.2926188729728668D-01
        xs( 65) = 0.3714203296996047D-01
        xs( 66) = 0.5094815722740375D-01
        xs( 67) = 0.7714836315188367D-01
        ws(  1) = 0.3181486110583357D-05
        ws(  2) = 0.7368365877625504D-05
        ws(  3) = 0.1156201821465696D-04
        ws(  4) = 0.1578167757759579D-04
        ws(  5) = 0.1989540508780872D-04
        ws(  6) = 0.2397689803966880D-04
        ws(  7) = 0.2806535645067984D-04
        ws(  8) = 0.3218914915336082D-04
        ws(  9) = 0.3628713698992933D-04
        ws( 10) = 0.4034055398213227D-04
        ws( 11) = 0.4445475164714671D-04
        ws( 12) = 0.4859979123688566D-04
        ws( 13) = 0.5276370266443837D-04
        ws( 14) = 0.5698358755144418D-04
        ws( 15) = 0.6127282691164367D-04
        ws( 16) = 0.6565773181823409D-04
        ws( 17) = 0.7014783805359752D-04
        ws( 18) = 0.7469607973637018D-04
        ws( 19) = 0.7936073193361571D-04
        ws( 20) = 0.8419516140132928D-04
        ws( 21) = 0.8921350507047942D-04
        ws( 22) = 0.9440537461930308D-04
        ws( 23) = 0.9976396013185038D-04
        ws( 24) = 0.1052856501157941D-03
        ws( 25) = 0.1110834685711826D-03
        ws( 26) = 0.1172138588210762D-03
        ws( 27) = 0.1236190301072289D-03
        ws( 28) = 0.1302811753422468D-03
        ws( 29) = 0.1372421091227684D-03
        ws( 30) = 0.1445506700138763D-03
        ws( 31) = 0.1523832755083490D-03
        ws( 32) = 0.1607596970945026D-03
        ws( 33) = 0.1695695947603516D-03
        ws( 34) = 0.1787871014341545D-03
        ws( 35) = 0.1887464539049828D-03
        ws( 36) = 0.1993757928908517D-03
        ws( 37) = 0.2107437499493580D-03
        ws( 38) = 0.2232522267758642D-03
        ws( 39) = 0.2361864299097929D-03
        ws( 40) = 0.2501085136798548D-03
        ws( 41) = 0.2657843543086171D-03
        ws( 42) = 0.2823934523895636D-03
        ws( 43) = 0.2999868122742186D-03
        ws( 44) = 0.3204549156750647D-03
        ws( 45) = 0.3419611921005992D-03
        ws( 46) = 0.3663419137984573D-03
        ws( 47) = 0.3931961382464775D-03
        ws( 48) = 0.4232727116838324D-03
        ws( 49) = 0.4555508625468294D-03
        ws( 50) = 0.4913435964703808D-03
        ws( 51) = 0.5360492231566694D-03
        ws( 52) = 0.5797542533449274D-03
        ws( 53) = 0.6276868624910861D-03
        ws( 54) = 0.6969731544692468D-03
        ws( 55) = 0.7760825180916907D-03
        ws( 56) = 0.8849044780550073D-03
        ws( 57) = 0.1028873155675323D-02
        ws( 58) = 0.1215004373913411D-02
        ws( 59) = 0.1454219359554506D-02
        ws( 60) = 0.1764300581784060D-02
        ws( 61) = 0.2213391537397731D-02
        ws( 62) = 0.2922622220800919D-02
        ws( 63) = 0.4102742738425431D-02
        ws( 64) = 0.6124041630553135D-02
        ws( 65) = 0.1012468779916584D-01
        ws( 66) = 0.1867485433302981D-01
        ws( 67) = 0.3225877015038537D-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 =  71
        err = 0.9054379809682682D-03
        xs(  1) = 0.1115196135730508D-05
        xs(  2) = 0.5825013815342649D-05
        xs(  3) = 0.1427246645522208D-04
        xs(  4) = 0.2644101280980158D-04
        xs(  5) = 0.4231403503312588D-04
        xs(  6) = 0.6186723870817834D-04
        xs(  7) = 0.8505415996185002D-04
        xs(  8) = 0.1118896174590939D-03
        xs(  9) = 0.1423290334933423D-03
        xs( 10) = 0.1763993254307686D-03
        xs( 11) = 0.2140833674000607D-03
        xs( 12) = 0.2553791408450479D-03
        xs( 13) = 0.3003643032363759D-03
        xs( 14) = 0.3490008307331526D-03
        xs( 15) = 0.4013589433156986D-03
        xs( 16) = 0.4574810092759060D-03
        xs( 17) = 0.5174574760986172D-03
        xs( 18) = 0.5813517161823994D-03
        xs( 19) = 0.6492293830903155D-03
        xs( 20) = 0.7211433992779875D-03
        xs( 21) = 0.7972449547296206D-03
        xs( 22) = 0.8776834984432272D-03
        xs( 23) = 0.9625918337563636D-03
        xs( 24) = 0.1052091224088754D-02
        xs( 25) = 0.1146316245116725D-02
        xs( 26) = 0.1245440845608485D-02
        xs( 27) = 0.1349728656610414D-02
        xs( 28) = 0.1459399141090436D-02
        xs( 29) = 0.1574684360588207D-02
        xs( 30) = 0.1695807512196319D-02
        xs( 31) = 0.1822919803270005D-02
        xs( 32) = 0.1956429049027078D-02
        xs( 33) = 0.2096836318453263D-02
        xs( 34) = 0.2244322147065497D-02
        xs( 35) = 0.2399373489479449D-02
        xs( 36) = 0.2562392076212920D-02
        xs( 37) = 0.2733772281283043D-02
        xs( 38) = 0.2914086639894024D-02
        xs( 39) = 0.3104057025778317D-02
        xs( 40) = 0.3304505910678397D-02
        xs( 41) = 0.3515586123872127D-02
        xs( 42) = 0.3738363690052645D-02
        xs( 43) = 0.3973849291720164D-02
        xs( 44) = 0.4222578948061788D-02
        xs( 45) = 0.4485877589548432D-02
        xs( 46) = 0.4765004801438573D-02
        xs( 47) = 0.5061327860093577D-02
        xs( 48) = 0.5377014487286424D-02
        xs( 49) = 0.5713241692524195D-02
        xs( 50) = 0.6072625031669615D-02
        xs( 51) = 0.6455126553326895D-02
        xs( 52) = 0.6865089321734318D-02
        xs( 53) = 0.7307072585638572D-02
        xs( 54) = 0.7782586480110623D-02
        xs( 55) = 0.8297800729125688D-02
        xs( 56) = 0.8856607016745153D-02
        xs( 57) = 0.9463154842267046D-02
        xs( 58) = 0.1012964384247089D-01
        xs( 59) = 0.1086373830730055D-01
        xs( 60) = 0.1168731268024373D-01
        xs( 61) = 0.1262624364864935D-01
        xs( 62) = 0.1372048074281806D-01
        xs( 63) = 0.1503127098122854D-01
        xs( 64) = 0.1662476649222649D-01
        xs( 65) = 0.1858372112274267D-01
        xs( 66) = 0.2107591307308787D-01
        xs( 67) = 0.2448179401014279D-01
        xs( 68) = 0.2938215864551926D-01
        xs( 69) = 0.3703258839951738D-01
        xs( 70) = 0.5037802458839757D-01
        xs( 71) = 0.7627967653369652D-01
        ws(  1) = 0.2814666689106846D-05
        ws(  2) = 0.6572709218721960D-05
        ws(  3) = 0.1033723241328603D-04
        ws(  4) = 0.1404162344991143D-04
        ws(  5) = 0.1773466214192195D-04
        ws(  6) = 0.2135820495286619D-04
        ws(  7) = 0.2499993110561708D-04
        ws(  8) = 0.2864071733641064D-04
        ws(  9) = 0.3224625604542226D-04
        ws( 10) = 0.3587184784247314D-04
        ws( 11) = 0.3954735869958852D-04
        ws( 12) = 0.4311182401496284D-04
        ws( 13) = 0.4676127239944268D-04
        ws( 14) = 0.5052139566610402D-04
        ws( 15) = 0.5423733863227787D-04
        ws( 16) = 0.5802170522844597D-04
        ws( 17) = 0.6192680416241392D-04
        ws( 18) = 0.6587532798376209D-04
        ws( 19) = 0.6987563092888628D-04
        ws( 20) = 0.7399726822193092D-04
        ws( 21) = 0.7823771947788928D-04
        ws( 22) = 0.8265655867151976D-04
        ws( 23) = 0.8716584626794103D-04
        ws( 24) = 0.9184632957890707D-04
        ws( 25) = 0.9663872807520325D-04
        ws( 26) = 0.1016624134917050D-03
        ws( 27) = 0.1069269101989156D-03
        ws( 28) = 0.1124650740360143D-03
        ws( 29) = 0.1181812286027002D-03
        ws( 30) = 0.1240781486476040D-03
        ws( 31) = 0.1302210025191107D-03
        ws( 32) = 0.1368989871461718D-03
        ws( 33) = 0.1438954259448796D-03
        ws( 34) = 0.1511841901475876D-03
        ws( 35) = 0.1589983570943063D-03
        ws( 36) = 0.1671100480062644D-03
        ws( 37) = 0.1757651111149675D-03
        ws( 38) = 0.1849675093277047D-03
        ws( 39) = 0.1951397672107828D-03
        ws( 40) = 0.2056990483620011D-03
        ws( 41) = 0.2166642212470387D-03
        ws( 42) = 0.2290504536763425D-03
        ws( 43) = 0.2419972080674174D-03
        ws( 44) = 0.2556954450950101D-03
        ws( 45) = 0.2711040958151961D-03
        ws( 46) = 0.2872790351782394D-03
        ws( 47) = 0.3058754283756148D-03
        ws( 48) = 0.3255101807581616D-03
        ws( 49) = 0.3476709496701943D-03
        ws( 50) = 0.3707626074704022D-03
        ws( 51) = 0.3951208187218214D-03
        ws( 52) = 0.4256101753069608D-03
        ws( 53) = 0.4582861852377146D-03
        ws( 54) = 0.4939901358272905D-03
        ws( 55) = 0.5370470397569363D-03
        ws( 56) = 0.5808322410016711D-03
        ws( 57) = 0.6350772829146418D-03
        ws( 58) = 0.6982999961975604D-03
        ws( 59) = 0.7741507472607927D-03
        ws( 60) = 0.8771164526146266D-03
        ws( 61) = 0.1006855707018049D-02
        ws( 62) = 0.1192581074129873D-02
        ws( 63) = 0.1439478477174949D-02
        ws( 64) = 0.1761190843165187D-02
        ws( 65) = 0.2179540479495567D-02
        ws( 66) = 0.2874161850155551D-02
        ws( 67) = 0.4023088031764006D-02
        ws( 68) = 0.5967437875037085D-02
        ws( 69) = 0.9806283758566237D-02
        ws( 70) = 0.1804017713751102D-01
        ws( 71) = 0.3317811419540540D-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 =   9
        err = 0.6613712374044375D-03
        xs(  1) = 0.1170486408137207D-02
        xs(  2) = 0.5317164518558453D-02
        xs(  3) = 0.1138490601383928D-01
        xs(  4) = 0.1870345536843876D-01
        xs(  5) = 0.2687643165268353D-01
        xs(  6) = 0.3566110066933706D-01
        xs(  7) = 0.4491237716258901D-01
        xs(  8) = 0.5454768900125847D-01
        xs(  9) = 0.6458231553256460D-01
        ws(  1) = 0.2856609573762875D-02
        ws(  2) = 0.5251241861415789D-02
        ws(  3) = 0.6772455189742111D-02
        ws(  4) = 0.7790846474722236D-02
        ws(  5) = 0.8504559904307861D-02
        ws(  6) = 0.9035703777259603D-02
        ws(  7) = 0.9482532991922938D-02
        ws(  8) = 0.9984649663965194D-02
        ws(  9) = 0.1164232228240285D-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 =   9
        err = 0.6247086432263474D-03
        xs(  1) = 0.1162393610413144D-02
        xs(  2) = 0.5297594512149824D-02
        xs(  3) = 0.1136007985911896D-01
        xs(  4) = 0.1867627319763073D-01
        xs(  5) = 0.2684765822759011D-01
        xs(  6) = 0.3563117296096594D-01
        xs(  7) = 0.4488063006242481D-01
        xs(  8) = 0.5451576628426106D-01
        xs(  9) = 0.6455239375961921D-01
        ws(  1) = 0.2840509264963575D-02
        ws(  2) = 0.5243885147192194D-02
        ws(  3) = 0.6769460734821682D-02
        ws(  4) = 0.7789637149154595D-02
        ws(  5) = 0.8504273790340692D-02
        ws(  6) = 0.9035959868274069D-02
        ws(  7) = 0.9483584977228229D-02
        ws(  8) = 0.9992219265190908D-02
        ws(  9) = 0.1166084927360084D-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 =   9
        err = 0.5462446833180519D-03
        xs(  1) = 0.1123310459991054D-02
        xs(  2) = 0.5202735689980121D-02
        xs(  3) = 0.1124039489488464D-01
        xs(  4) = 0.1854544237938693D-01
        xs(  5) = 0.2670918558243757D-01
        xs(  6) = 0.3548754073674922D-01
        xs(  7) = 0.4472844268417401D-01
        xs(  8) = 0.5436474977047143D-01
        xs(  9) = 0.6441262730509852D-01
        ws(  1) = 0.2762851606074019D-02
        ws(  2) = 0.5208187369130819D-02
        ws(  3) = 0.6755573461195154D-02
        ws(  4) = 0.7783368101899580D-02
        ws(  5) = 0.8503148887520079D-02
        ws(  6) = 0.9036894129472103D-02
        ws(  7) = 0.9488274362855573D-02
        ws(  8) = 0.1002923948376684D-01
        ws(  9) = 0.1174399814731001D-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 =   8
        err = 0.9288608833254504D-03
        xs(  1) = 0.1205252114773928D-02
        xs(  2) = 0.5610663409911315D-02
        xs(  3) = 0.1204624817959441D-01
        xs(  4) = 0.1972622540478478D-01
        xs(  5) = 0.2823682131915654D-01
        xs(  6) = 0.3737137663930009D-01
        xs(  7) = 0.4696654865206837D-01
        xs(  8) = 0.5692917679717012D-01
        ws(  1) = 0.2974438688526802D-02
        ws(  2) = 0.5603225934687171D-02
        ws(  3) = 0.7149437039532267D-02
        ws(  4) = 0.8148284579161376D-02
        ws(  5) = 0.8869248902386011D-02
        ws(  6) = 0.9459364335844317D-02
        ws(  7) = 0.1002454177622352D-01
        ws(  8) = 0.1176725994382521D-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 =   8
        err = 0.9531775174309546D-03
        xs(  1) = 0.1052542838076701D-02
        xs(  2) = 0.5243843857856199D-02
        xs(  3) = 0.1165892345796074D-01
        xs(  4) = 0.1937632797035403D-01
        xs(  5) = 0.2793134563889712D-01
        xs(  6) = 0.3709289437720483D-01
        xs(  7) = 0.4672159978188933D-01
        xs(  8) = 0.5670391048570693D-01
        ws(  1) = 0.2671282636881566D-02
        ws(  2) = 0.5499517222412444D-02
        ws(  3) = 0.7183508658925778D-02
        ws(  4) = 0.8198344463435226D-02
        ws(  5) = 0.8918426426570487D-02
        ws(  6) = 0.9502296493698305D-02
        ws(  7) = 0.1012095938480152D-01
        ws(  8) = 0.1185268293386595D-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 =   9
        err = 0.8337913113667854D-03
        xs(  1) = 0.5613835993072319D-03
        xs(  2) = 0.3227512486275342D-02
        xs(  3) = 0.8380683021395899D-02
        xs(  4) = 0.1540369526959851D-01
        xs(  5) = 0.2355133246522985D-01
        xs(  6) = 0.3242490477099781D-01
        xs(  7) = 0.4183785859015372D-01
        xs(  8) = 0.5166153459813108D-01
        xs(  9) = 0.6175168841511489D-01
        ws(  1) = 0.1480576874018175D-02
        ws(  2) = 0.3934620599851532D-02
        ws(  3) = 0.6239121436556319D-02
        ws(  4) = 0.7680060368772964D-02
        ws(  5) = 0.8561980332357760D-02
        ws(  6) = 0.9192360665994308D-02
        ws(  7) = 0.9729773405686022D-02
        ws(  8) = 0.1024963200398790D-01
        ws(  9) = 0.1177592059517496D-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 =   9
        err = 0.8779967643229086D-03
        xs(  1) = 0.3481218887217427D-03
        xs(  2) = 0.2035387985397769D-02
        xs(  3) = 0.5904252983223813D-02
        xs(  4) = 0.1236675194810894D-01
        xs(  5) = 0.2045042268411482D-01
        xs(  6) = 0.2937860266645370D-01
        xs(  7) = 0.3883056670940780D-01
        xs(  8) = 0.4868500419990907D-01
        xs(  9) = 0.5865782789326074D-01
        ws(  1) = 0.9173734636881982D-03
        ws(  2) = 0.2597232171603353D-02
        ws(  3) = 0.5251367033226847D-02
        ws(  4) = 0.7460518086017134D-02
        ws(  5) = 0.8592549837186074D-02
        ws(  6) = 0.9242749663372601D-02
        ws(  7) = 0.9762157166588474D-02
        ws(  8) = 0.1025246300621704D-01
        ws(  9) = 0.1126763929766070D-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 =  11
        err = 0.8403884843727422D-03
        xs(  1) = 0.1354955436206402D-03
        xs(  2) = 0.7409313551880939D-03
        xs(  3) = 0.1968884830030715D-02
        xs(  4) = 0.4258702986982916D-02
        xs(  5) = 0.8524828267798623D-02
        xs(  6) = 0.1530072605519554D-01
        xs(  7) = 0.2375326126101084D-01
        xs(  8) = 0.3304284024074190D-01
        xs(  9) = 0.4279328497945283D-01
        xs( 10) = 0.5288099839226673D-01
        xs( 11) = 0.6283122065348769D-01
        ws(  1) = 0.3509318808114106D-03
        ws(  2) = 0.8793622593297903D-03
        ws(  3) = 0.1644007408451949D-02
        ws(  4) = 0.3099015363266709D-02
        ws(  5) = 0.5560863207564926D-02
        ws(  6) = 0.7809973311743123D-02
        ws(  7) = 0.8962072364711951D-02
        ws(  8) = 0.9575423049704986D-02
        ws(  9) = 0.1005368506171472D-01
        ws( 10) = 0.1040446543418774D-01
        ws( 11) = 0.1094055671152150D-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 =  15
        err = 0.8423835477346872D-03
        xs(  1) = 0.4420448453151831D-04
        xs(  2) = 0.2356526305586019D-03
        xs(  3) = 0.5901790699594847D-03
        xs(  4) = 0.1132963510829421D-02
        xs(  5) = 0.1913580627257551D-02
        xs(  6) = 0.3020501051346282D-02
        xs(  7) = 0.4634688302169277D-02
        xs(  8) = 0.7142581328263117D-02
        xs(  9) = 0.1144408741121228D-01
        xs( 10) = 0.1855303892825353D-01
        xs( 11) = 0.2788705463021296D-01
        xs( 12) = 0.3818608659031210D-01
        xs( 13) = 0.4886478239480110D-01
        xs( 14) = 0.5972379511779098D-01
        xs( 15) = 0.7019864322932413D-01
        ws(  1) = 0.1138902671693661D-03
        ws(  2) = 0.2705664712805755D-03
        ws(  3) = 0.4425464964500160D-03
        ws(  4) = 0.6513978564887057D-03
        ws(  5) = 0.9235842977294463D-03
        ws(  6) = 0.1319595127222105D-02
        ws(  7) = 0.1966681005242938D-02
        ws(  8) = 0.3199476422881742D-02
        ws(  9) = 0.5622718207599252D-02
        ws( 10) = 0.8468624464003514D-02
        ws( 11) = 0.9971931606899825D-02
        ws( 12) = 0.1056158096767522D-01
        ws( 13) = 0.1088746634298608D-01
        ws( 14) = 0.1138302190536177D-01
        ws( 15) = 0.1013925054547912D-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 =  18
        err = 0.9913028251562789D-03
        xs(  1) = 0.2316776828376042D-04
        xs(  2) = 0.1219982923395770D-03
        xs(  3) = 0.3009680277141480D-03
        xs(  4) = 0.5635273671219499D-03
        xs(  5) = 0.9182057053496502D-03
        xs(  6) = 0.1379957751900568D-02
        xs(  7) = 0.1971885572048294D-02
        xs(  8) = 0.2727151402140962D-02
        xs(  9) = 0.3693295387622228D-02
        xs( 10) = 0.4967030724609440D-02
        xs( 11) = 0.6756325445370214D-02
        xs( 12) = 0.9531404109788403D-02
        xs( 13) = 0.1420630611574206D-01
        xs( 14) = 0.2231336453382757D-01
        xs( 15) = 0.3377685751704822D-01
        xs( 16) = 0.4647007738233919D-01
        xs( 17) = 0.5916197928340891D-01
        xs( 18) = 0.7112679509137176D-01
        ws(  1) = 0.5930259783653613D-04
        ws(  2) = 0.1386025023231088D-03
        ws(  3) = 0.2197953785675619D-03
        ws(  4) = 0.3067600533749429D-03
        ws(  5) = 0.4052465592244088D-03
        ws(  6) = 0.5220399583116482D-03
        ws(  7) = 0.6673989909950690D-03
        ws(  8) = 0.8500857858753927D-03
        ws(  9) = 0.1098152051615630D-02
        ws( 10) = 0.1480082432755384D-02
        ws( 11) = 0.2176561585936640D-02
        ws( 12) = 0.3513113028802562D-02
        ws( 13) = 0.6134782671647403D-02
        ws( 14) = 0.1009757830343387D-01
        ws( 15) = 0.1238780714965577D-01
        ws( 16) = 0.1281918375578421D-01
        ws( 17) = 0.1261272157557265D-01
        ws( 18) = 0.9970641870790173D-02
        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 =  22
        err = 0.8356840259756365D-03
        xs(  1) = 0.1390087532241613D-04
        xs(  2) = 0.7325941248955766D-04
        xs(  3) = 0.1802693829611996D-03
        xs(  4) = 0.3357003353567479D-03
        xs(  5) = 0.5417189151769567D-03
        xs(  6) = 0.8021467898390080D-03
        xs(  7) = 0.1122591279749187D-02
        xs(  8) = 0.1511581813407897D-02
        xs(  9) = 0.1980082599000073D-02
        xs( 10) = 0.2544189350826327D-02
        xs( 11) = 0.3228700614195812D-02
        xs( 12) = 0.4064697652311879D-02
        xs( 13) = 0.5108075322588883D-02
        xs( 14) = 0.6437697493054857D-02
        xs( 15) = 0.8213834950741038D-02
        xs( 16) = 0.1081744659772439D-01
        xs( 17) = 0.1498021052046210D-01
        xs( 18) = 0.2212644393193169D-01
        xs( 19) = 0.3377956987965127D-01
        xs( 20) = 0.4828035969058274D-01
        xs( 21) = 0.6321049749524785D-01
        xs( 22) = 0.7727532194550371D-01
        ws(  1) = 0.3568428581520935D-04
        ws(  2) = 0.8310157866569705D-04
        ws(  3) = 0.1309475929668196D-03
        ws(  4) = 0.1802021475886397D-03
        ws(  5) = 0.2324786404796481D-03
        ws(  6) = 0.2893515553750016D-03
        ws(  7) = 0.3530522742797690D-03
        ws(  8) = 0.4267091755820635D-03
        ws(  9) = 0.5126914073307262D-03
        ws( 10) = 0.6198229823199030D-03
        ws( 11) = 0.7535434082196279D-03
        ws( 12) = 0.9282208204512113D-03
        ws( 13) = 0.1170563542792950D-02
        ws( 14) = 0.1513486400283975D-02
        ws( 15) = 0.2099587500246730D-02
        ws( 16) = 0.3226924370854937D-02
        ws( 17) = 0.5323657105960287D-02
        ws( 18) = 0.9332043604219815D-02
        ws( 19) = 0.1359974229818595D-01
        ws( 20) = 0.1496924907950698D-01
        ws( 21) = 0.1480655448916588D-01
        ws( 22) = 0.1188652007201846D-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 =  26
        err = 0.6365374253888462D-03
        xs(  1) = 0.9194015206225411D-05
        xs(  2) = 0.4842022684495055D-04
        xs(  3) = 0.1190286499820581D-03
        xs(  4) = 0.2212302218880782D-03
        xs(  5) = 0.3557562526810194D-03
        xs(  6) = 0.5239042321106224D-03
        xs(  7) = 0.7276758540392823D-03
        xs(  8) = 0.9698230578916055D-03
        xs(  9) = 0.1254219219164039D-02
        xs( 10) = 0.1585682743150854D-02
        xs( 11) = 0.1971102250234531D-02
        xs( 12) = 0.2419442535728910D-02
        xs( 13) = 0.2941794075931348D-02
        xs( 14) = 0.3555477439517004D-02
        xs( 15) = 0.4283191925419238D-02
        xs( 16) = 0.5150972321424125D-02
        xs( 17) = 0.6201992378958771D-02
        xs( 18) = 0.7509190574587529D-02
        xs( 19) = 0.9181455626568167D-02
        xs( 20) = 0.1150520756527059D-01
        xs( 21) = 0.1505600875983291D-01
        xs( 22) = 0.2090845548578250D-01
        xs( 23) = 0.3102595695767286D-01
        xs( 24) = 0.4600727722220491D-01
        xs( 25) = 0.6281329309521214D-01
        xs( 26) = 0.7892728591950933D-01
        ws(  1) = 0.2362290870664837D-04
        ws(  2) = 0.5488011074525267D-04
        ws(  3) = 0.8633098131896151D-04
        ws(  4) = 0.1181545174313494D-03
        ws(  5) = 0.1510716679928180D-03
        ws(  6) = 0.1855923156591767D-03
        ws(  7) = 0.2224400122238416D-03
        ws(  8) = 0.2625637773203540D-03
        ws(  9) = 0.3069641567801472D-03
        ws( 10) = 0.3570735358602599D-03
        ws( 11) = 0.4153132256102928D-03
        ws( 12) = 0.4830534039020091D-03
        ws( 13) = 0.5645492184006138D-03
        ws( 14) = 0.6666631943690649D-03
        ws( 15) = 0.7930241136006767D-03
        ws( 16) = 0.9489595007934124D-03
        ws( 17) = 0.1166210682900991D-02
        ws( 18) = 0.1462378636828084D-02
        ws( 19) = 0.1928905339294252D-02
        ws( 20) = 0.2811785324813863D-02
        ws( 21) = 0.4457305126145415D-02
        ws( 22) = 0.7598299750132649D-02
        ws( 23) = 0.1284176135901969D-01
        ws( 24) = 0.1646513574349780D-01
        ws( 25) = 0.1666460402934517D-01
        ws( 26) = 0.1274735897117168D-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 =  30
        err = 0.5642736999906802D-03
        xs(  1) = 0.6624808611858467D-05
        xs(  2) = 0.3489456916625602D-04
        xs(  3) = 0.8570794554281260D-04
        xs(  4) = 0.1590571908782425D-03
        xs(  5) = 0.2551675490445141D-03
        xs(  6) = 0.3745480773173170D-03
        xs(  7) = 0.5179911364985380D-03
        xs(  8) = 0.6866262082386535D-03
        xs(  9) = 0.8821927125017952D-03
        xs( 10) = 0.1106819881395224D-02
        xs( 11) = 0.1363065647542963D-02
        xs( 12) = 0.1654384660062776D-02
        xs( 13) = 0.1984702012702190D-02
        xs( 14) = 0.2359781833548585D-02
        xs( 15) = 0.2787384061414228D-02
        xs( 16) = 0.3274789145348058D-02
        xs( 17) = 0.3833514586837043D-02
        xs( 18) = 0.4478693686235008D-02
        xs( 19) = 0.5232360766723998D-02
        xs( 20) = 0.6114481505532560D-02
        xs( 21) = 0.7160184158887997D-02
        xs( 22) = 0.8443585379199894D-02
        xs( 23) = 0.1008029283758746D-01
        xs( 24) = 0.1227949069862237D-01
        xs( 25) = 0.1545918455355724D-01
        xs( 26) = 0.2047333335607183D-01
        xs( 27) = 0.2911616424095712D-01
        xs( 28) = 0.4345375417065005D-01
        xs( 29) = 0.6167781526771855D-01
        xs( 30) = 0.7984034623910330D-01
        ws(  1) = 0.1699865641285677D-04
        ws(  2) = 0.3954999048810767D-04
        ws(  3) = 0.6207411592552079D-04
        ws(  4) = 0.8466059015253053D-04
        ws(  5) = 0.1076333623962383D-03
        ws(  6) = 0.1312384926698055D-03
        ws(  7) = 0.1557950343972541D-03
        ws(  8) = 0.1817759406975625D-03
        ws(  9) = 0.2097175201061846D-03
        ws( 10) = 0.2399247885805013D-03
        ws( 11) = 0.2731211881938619D-03
        ws( 12) = 0.3101144054977278D-03
        ws( 13) = 0.3514436794710272D-03
        ws( 14) = 0.4001069511390709D-03
        ws( 15) = 0.4561388633083752D-03
        ws( 16) = 0.5207322535202119D-03
        ws( 17) = 0.5990329766638026D-03
        ws( 18) = 0.6952716841033599D-03
        ws( 19) = 0.8151426571775455D-03
        ws( 20) = 0.9543685754792085D-03
        ws( 21) = 0.1149727029196056D-02
        ws( 22) = 0.1435626839903065D-02
        ws( 23) = 0.1870245252016108D-02
        ws( 24) = 0.2596037148058617D-02
        ws( 25) = 0.3893945828064357D-02
        ws( 26) = 0.6431513835442802D-02
        ws( 27) = 0.1130410594120550D-01
        ws( 28) = 0.1700995413804240D-01
        ws( 29) = 0.1871095295525660D-01
        ws( 30) = 0.1525589822731519D-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 =  34
        err = 0.5935114684531416D-03
        xs(  1) = 0.5005941815751767D-05
        xs(  2) = 0.2633888522404660D-04
        xs(  3) = 0.6468742100655758D-04
        xs(  4) = 0.1200314161775982D-03
        xs(  5) = 0.1924272844306311D-03
        xs(  6) = 0.2820568941677065D-03
        xs(  7) = 0.3892806897268636D-03
        xs(  8) = 0.5146085232754728D-03
        xs(  9) = 0.6588378608225589D-03
        xs( 10) = 0.8230557927764147D-03
        xs( 11) = 0.1008467367837284D-02
        xs( 12) = 0.1216622651974646D-02
        xs( 13) = 0.1449657050085017D-02
        xs( 14) = 0.1709796156358262D-02
        xs( 15) = 0.1999945917438854D-02
        xs( 16) = 0.2323908394125330D-02
        xs( 17) = 0.2685777492647470D-02
        xs( 18) = 0.3091354371448397D-02
        xs( 19) = 0.3546911687818314D-02
        xs( 20) = 0.4060133621705219D-02
        xs( 21) = 0.4643331908693551D-02
        xs( 22) = 0.5308343120976231D-02
        xs( 23) = 0.6074760342846169D-02
        xs( 24) = 0.6966558346389936D-02
        xs( 25) = 0.8008137653103965D-02
        xs( 26) = 0.9276792552783714D-02
        xs( 27) = 0.1091175791317559D-01
        xs( 28) = 0.1308319187740947D-01
        xs( 29) = 0.1609663981068300D-01
        xs( 30) = 0.2065227228857268D-01
        xs( 31) = 0.2835148353317968D-01
        xs( 32) = 0.4175895215755889D-01
        xs( 33) = 0.6083419423180283D-01
        xs( 34) = 0.8088900921109871D-01
        ws(  1) = 0.1282497891366220D-04
        ws(  2) = 0.2984101898437704D-04
        ws(  3) = 0.4684746733451006D-04
        ws(  4) = 0.6385836469382931D-04
        ws(  5) = 0.8097756136135439D-04
        ws(  6) = 0.9834906502885555D-04
        ws(  7) = 0.1161685709032218D-03
        ws(  8) = 0.1346114958949282D-03
        ws(  9) = 0.1540463896506140D-03
        ws( 10) = 0.1745966156940506D-03
        ws( 11) = 0.1964479878047213D-03
        ws( 12) = 0.2202007687566208D-03
        ws( 13) = 0.2461876508703529D-03
        ws( 14) = 0.2745742209431303D-03
        ws( 15) = 0.3064089606227073D-03
        ws( 16) = 0.3421413005840226D-03
        ws( 17) = 0.3825997266646141D-03
        ws( 18) = 0.4295682077560021D-03
        ws( 19) = 0.4826385669919200D-03
        ws( 20) = 0.5460743784515338D-03
        ws( 21) = 0.6221240014777647D-03
        ws( 22) = 0.7110284969646527D-03
        ws( 23) = 0.8263915624917005D-03
        ws( 24) = 0.9594852354932396D-03
        ws( 25) = 0.1136786355930164D-02
        ws( 26) = 0.1424285965020563D-02
        ws( 27) = 0.1872405041464958D-02
        ws( 28) = 0.2517898171477221D-02
        ws( 29) = 0.3614614957368647D-02
        ws( 30) = 0.5761254915258030D-02
        ws( 31) = 0.1010521572003552D-01
        ws( 32) = 0.1682730131577710D-01
        ws( 33) = 0.2034354428064845D-01
        ws( 34) = 0.1729754963772852D-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 =  38
        err = 0.5043863874506811D-03
        xs(  1) = 0.3944640591506164D-05
        xs(  2) = 0.2076328285900672D-04
        xs(  3) = 0.5097406181582052D-04
        xs(  4) = 0.9453411933563642D-04
        xs(  5) = 0.1514145520417319D-03
        xs(  6) = 0.2216853272789782D-03
        xs(  7) = 0.3055180375595988D-03
        xs(  8) = 0.4031651142207315D-03
        xs(  9) = 0.5149645690729392D-03
        xs( 10) = 0.6414955155626699D-03
        xs( 11) = 0.7834296928400547D-03
        xs( 12) = 0.9415827462715666D-03
        xs( 13) = 0.1117015227702246D-02
        xs( 14) = 0.1310979382272638D-02
        xs( 15) = 0.1524783380543264D-02
        xs( 16) = 0.1760386221021226D-02
        xs( 17) = 0.2020153473475807D-02
        xs( 18) = 0.2306167527490875D-02
        xs( 19) = 0.2621233922967606D-02
        xs( 20) = 0.2969312759363734D-02
        xs( 21) = 0.3354635732633737D-02
        xs( 22) = 0.3782394898177579D-02
        xs( 23) = 0.4258668100487209D-02
        xs( 24) = 0.4790387859783914D-02
        xs( 25) = 0.5391024253379703D-02
        xs( 26) = 0.6071331968247278D-02
        xs( 27) = 0.6850196965968810D-02
        xs( 28) = 0.7746355206590803D-02
        xs( 29) = 0.8789208272540358D-02
        xs( 30) = 0.1004367805477710D-01
        xs( 31) = 0.1162866888522595D-01
        xs( 32) = 0.1371968738213897D-01
        xs( 33) = 0.1658956100245043D-01
        xs( 34) = 0.2081665251165233D-01
        xs( 35) = 0.2776541167915331D-01
        xs( 36) = 0.4001042285132995D-01
        xs( 37) = 0.5927987675120164D-01
        xs( 38) = 0.8114777439986744D-01
        ws(  1) = 0.1012219244688187D-04
        ws(  2) = 0.2352057557287472D-04
        ws(  3) = 0.3690315302014078D-04
        ws(  4) = 0.5020545876587275D-04
        ws(  5) = 0.6356758525399575D-04
        ws(  6) = 0.7700877064480771D-04
        ws(  7) = 0.9066547931170079D-04
        ws(  8) = 0.1046787049382867D-03
        ws(  9) = 0.1190796294757684D-03
        ws( 10) = 0.1340779534751024D-03
        ws( 11) = 0.1498928190391420D-03
        ws( 12) = 0.1665985586234127D-03
        ws( 13) = 0.1845041600739825D-03
        ws( 14) = 0.2036081623300689D-03
        ws( 15) = 0.2243070090648990D-03
        ws( 16) = 0.2473132437672694D-03
        ws( 17) = 0.2725309032749858D-03
        ws( 18) = 0.2999611373249212D-03
        ws( 19) = 0.3308382073714829D-03
        ws( 20) = 0.3659989959722861D-03
        ws( 21) = 0.4054700116019221D-03
        ws( 22) = 0.4510689501824550D-03
        ws( 23) = 0.5022785776461968D-03
        ws( 24) = 0.5637360345721088D-03
        ws( 25) = 0.6387442503508747D-03
        ws( 26) = 0.7252436092673979D-03
        ws( 27) = 0.8354021958530461D-03
        ws( 28) = 0.9611970515393432D-03
        ws( 29) = 0.1135154095071835D-02
        ws( 30) = 0.1393417400332878D-02
        ws( 31) = 0.1805852176142546D-02
        ws( 32) = 0.2418201902990338D-02
        ws( 33) = 0.3409181970175986D-02
        ws( 34) = 0.5264188596244018D-02
        ws( 35) = 0.9062852330589103D-02
        ws( 36) = 0.1591144655424059D-01
        ws( 37) = 0.2162399074338834D-01
        ws( 38) = 0.1943005653876040D-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 =  42
        err = 0.6146383115588330D-03
        xs(  1) = 0.3175381086974733D-05
        xs(  2) = 0.1673786527289370D-04
        xs(  3) = 0.4109459074976146D-04
        xs(  4) = 0.7621540209014067D-04
        xs(  5) = 0.1220616915509789D-03
        xs(  6) = 0.1786435269238915D-03
        xs(  7) = 0.2460454347004417D-03
        xs(  8) = 0.3243553387959738D-03
        xs(  9) = 0.4137974869430303D-03
        xs( 10) = 0.5146618905944165D-03
        xs( 11) = 0.6273439550007857D-03
        xs( 12) = 0.7522755747528972D-03
        xs( 13) = 0.8900205532833429D-03
        xs( 14) = 0.1041338585688220D-02
        xs( 15) = 0.1207014060676956D-02
        xs( 16) = 0.1387961090279746D-02
        xs( 17) = 0.1585459681573481D-02
        xs( 18) = 0.1800899699786701D-02
        xs( 19) = 0.2035675118842097D-02
        xs( 20) = 0.2291695888814670D-02
        xs( 21) = 0.2571052998220698D-02
        xs( 22) = 0.2876194940975988D-02
        xs( 23) = 0.3210055464432788D-02
        xs( 24) = 0.3576382196543585D-02
        xs( 25) = 0.3978212863050322D-02
        xs( 26) = 0.4421682770852448D-02
        xs( 27) = 0.4913710855505881D-02
        xs( 28) = 0.5459925757813809D-02
        xs( 29) = 0.6072989304584570D-02
        xs( 30) = 0.6766025220437748D-02
        xs( 31) = 0.7551359068034901D-02
        xs( 32) = 0.8441685345497900D-02
        xs( 33) = 0.9479706636395725D-02
        xs( 34) = 0.1073526754126016D-01
        xs( 35) = 0.1229064838581306D-01
        xs( 36) = 0.1427743752084152D-01
        xs( 37) = 0.1694001656177839D-01
        xs( 38) = 0.2080924751785992D-01
        xs( 39) = 0.2700689842403974D-01
        xs( 40) = 0.3777506996003976D-01
        xs( 41) = 0.5613374724458503D-01
        xs( 42) = 0.7956335762093206D-01
        ws(  1) = 0.8154914444083960D-05
        ws(  2) = 0.1896057728932002D-04
        ws(  3) = 0.2976066140471698D-04
        ws(  4) = 0.4046782782968031D-04
        ws(  5) = 0.5122397863077497D-04
        ws(  6) = 0.6197539038464548D-04
        ws(  7) = 0.7280592993868303D-04
        ws(  8) = 0.8386210578215836D-04
        ws(  9) = 0.9507262578087409D-04
        ws( 10) = 0.1067132564193443D-03
        ws( 11) = 0.1187243532729019D-03
        ws( 12) = 0.1312284211498034D-03
        ws( 13) = 0.1443694978438379D-03
        ws( 14) = 0.1583822568273803D-03
        ws( 15) = 0.1731149530274854D-03
        ws( 16) = 0.1889777220938737D-03
        ws( 17) = 0.2062537205360204D-03
        ws( 18) = 0.2248239036421896D-03
        ws( 19) = 0.2450701925861918D-03
        ws( 20) = 0.2672889749826159D-03
        ws( 21) = 0.2918411365922357D-03
        ws( 22) = 0.3189452891521844D-03
        ws( 23) = 0.3495016813990975D-03
        ws( 24) = 0.3835836829510462D-03
        ws( 25) = 0.4211797685166083D-03
        ws( 26) = 0.4671122254740693D-03
        ws( 27) = 0.5175810086062491D-03
        ws( 28) = 0.5772365888806571D-03
        ws( 29) = 0.6510716190184884D-03
        ws( 30) = 0.7371444410597100D-03
        ws( 31) = 0.8352573180043401D-03
        ws( 32) = 0.9523230371176859D-03
        ws( 33) = 0.1136381685813610D-02
        ws( 34) = 0.1387578301009732D-02
        ws( 35) = 0.1744338645761648D-02
        ws( 36) = 0.2267157659675530D-02
        ws( 37) = 0.3142128787842469D-02
        ws( 38) = 0.4771468590778772D-02
        ws( 39) = 0.7990991257765302D-02
        ws( 40) = 0.1416803026194014D-01
        ws( 41) = 0.2210177342355983D-01
        ws( 42) = 0.2161092332683316D-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 =  46
        err = 0.6255329977674314D-03
        xs(  1) = 0.2644188783595346D-05
        xs(  2) = 0.1389518241473551D-04
        xs(  3) = 0.3407986389224397D-04
        xs(  4) = 0.6316766186837086D-04
        xs(  5) = 0.1010856864081764D-03
        xs(  6) = 0.1478276915595388D-03
        xs(  7) = 0.2034058941384366D-03
        xs(  8) = 0.2678795532703853D-03
        xs(  9) = 0.3413734326093766D-03
        xs( 10) = 0.4239881154475308D-03
        xs( 11) = 0.5159986878611788D-03
        xs( 12) = 0.6176742017318246D-03
        xs( 13) = 0.7293343254315686D-03
        xs( 14) = 0.8514064993060456D-03
        xs( 15) = 0.9844084842362062D-03
        xs( 16) = 0.1128786882578212D-02
        xs( 17) = 0.1285315756501131D-02
        xs( 18) = 0.1454865230858551D-02
        xs( 19) = 0.1638324248842023D-02
        xs( 20) = 0.1836658626617860D-02
        xs( 21) = 0.2050913483870287D-02
        xs( 22) = 0.2282634789114219D-02
        xs( 23) = 0.2533484694598697D-02
        xs( 24) = 0.2805022385349837D-02
        xs( 25) = 0.3099854894081106D-02
        xs( 26) = 0.3419184379576339D-02
        xs( 27) = 0.3766688062722496D-02
        xs( 28) = 0.4145921324839496D-02
        xs( 29) = 0.4560641520530175D-02
        xs( 30) = 0.5015863558243068D-02
        xs( 31) = 0.5519587507284805D-02
        xs( 32) = 0.6077212074343627D-02
        xs( 33) = 0.6696230784842278D-02
        xs( 34) = 0.7387698093633178D-02
        xs( 35) = 0.8171578890881949D-02
        xs( 36) = 0.9048508155376903D-02
        xs( 37) = 0.1006363124961875D-01
        xs( 38) = 0.1130709190711174D-01
        xs( 39) = 0.1284928447178274D-01
        xs( 40) = 0.1481689803009409D-01
        xs( 41) = 0.1745069490513024D-01
        xs( 42) = 0.2121614868893579D-01
        xs( 43) = 0.2704127799434108D-01
        xs( 44) = 0.3697008331643289D-01
        xs( 45) = 0.5470400003778251D-01
        xs( 46) = 0.7981399197441003D-01
        ws(  1) = 0.6777120019032332D-05
        ws(  2) = 0.1570455696180867D-04
        ws(  3) = 0.2467523493959003D-04
        ws(  4) = 0.3350321794960979D-04
        ws(  5) = 0.4232689401376004D-04
        ws(  6) = 0.5113894609603885D-04
        ws(  7) = 0.6003255850851759D-04
        ws(  8) = 0.6896228863908232D-04
        ws(  9) = 0.7801860551986211D-04
        ws( 10) = 0.8728066103359299D-04
        ws( 11) = 0.9678371563250128D-04
        ws( 12) = 0.1066050833209609D-03
        ws( 13) = 0.1167898246767142D-03
        ws( 14) = 0.1274686640555126D-03
        ws( 15) = 0.1386269670971384D-03
        ws( 16) = 0.1502589153262391D-03
        ws( 17) = 0.1629022180584121D-03
        ws( 18) = 0.1763962614822693D-03
        ws( 19) = 0.1906830129923460D-03
        ws( 20) = 0.2061136823455002D-03
        ws( 21) = 0.2226625409425647D-03
        ws( 22) = 0.2410843543050970D-03
        ws( 23) = 0.2608170382434918D-03
        ws( 24) = 0.2828298541269874D-03
        ws( 25) = 0.3068571447622313D-03
        ws( 26) = 0.3325169363071683D-03
        ws( 27) = 0.3630661107657611D-03
        ws( 28) = 0.3960347236314349D-03
        ws( 29) = 0.4340797623752484D-03
        ws( 30) = 0.4779157306823081D-03
        ws( 31) = 0.5301053686809483D-03
        ws( 32) = 0.5867004246354164D-03
        ws( 33) = 0.6523501472475994D-03
        ws( 34) = 0.7354106115090831D-03
        ws( 35) = 0.8306603433094856D-03
        ws( 36) = 0.9301435152259143D-03
        ws( 37) = 0.1118225863668239D-02
        ws( 38) = 0.1376978282742290D-02
        ws( 39) = 0.1728966895081803D-02
        ws( 40) = 0.2244806100809671D-02
        ws( 41) = 0.3096201107246174D-02
        ws( 42) = 0.4578200741604988D-02
        ws( 43) = 0.7401781441032022D-02
        ws( 44) = 0.1311271446703245D-01
        ws( 45) = 0.2251321266047331D-01
        ws( 46) = 0.2464573274302107D-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 =  50
        err = 0.7126099398991865D-03
        xs(  1) = 0.2214885834835243D-05
        xs(  2) = 0.1165227792654148D-04
        xs(  3) = 0.2860826456222193D-04
        xs(  4) = 0.5304406125585234D-04
        xs(  5) = 0.8489146633788135D-04
        xs(  6) = 0.1241211525268613D-03
        xs(  7) = 0.1707645656033619D-03
        xs(  8) = 0.2248086035000127D-03
        xs(  9) = 0.2863012268251337D-03
        xs( 10) = 0.3553460471314081D-03
        xs( 11) = 0.4320670468592943D-03
        xs( 12) = 0.5166428244598468D-03
        xs( 13) = 0.6092738298732105D-03
        xs( 14) = 0.7102386191179922D-03
        xs( 15) = 0.8197968616339663D-03
        xs( 16) = 0.9383456003717933D-03
        xs( 17) = 0.1066218915873411D-02
        xs( 18) = 0.1203990798349987D-02
        xs( 19) = 0.1352276060611184D-02
        xs( 20) = 0.1511653710552936D-02
        xs( 21) = 0.1682851869096584D-02
        xs( 22) = 0.1866573470178795D-02
        xs( 23) = 0.2063861714608796D-02
        xs( 24) = 0.2275766763461345D-02
        xs( 25) = 0.2503494998617584D-02
        xs( 26) = 0.2748662742251274D-02
        xs( 27) = 0.3012214043437090D-02
        xs( 28) = 0.3295864620338391D-02
        xs( 29) = 0.3602307560059982D-02
        xs( 30) = 0.3933258820227223D-02
        xs( 31) = 0.4291597445530945D-02
        xs( 32) = 0.4682489613151123D-02
        xs( 33) = 0.5108847358299652D-02
        xs( 34) = 0.5574677746711356D-02
        xs( 35) = 0.6083459434923890D-02
        xs( 36) = 0.6646845889048225D-02
        xs( 37) = 0.7274387948231204D-02
        xs( 38) = 0.7966577495906173D-02
        xs( 39) = 0.8745234497814482D-02
        xs( 40) = 0.9630158268083748D-02
        xs( 41) = 0.1066401829134366D-01
        xs( 42) = 0.1191648697041592D-01
        xs( 43) = 0.1345052626248389D-01
        xs( 44) = 0.1536384982075172D-01
        xs( 45) = 0.1785176930527289D-01
        xs( 46) = 0.2136628583756512D-01
        xs( 47) = 0.2673878549491856D-01
        xs( 48) = 0.3572664250605151D-01
        xs( 49) = 0.5205847467639159D-01
        xs( 50) = 0.7770360437109534D-01
        ws(  1) = 0.5671526183939246D-05
        ws(  2) = 0.1322106636253918D-04
        ws(  3) = 0.2069451451581942D-04
        ws(  4) = 0.2813729325088388D-04
        ws(  5) = 0.3558192254440403D-04
        ws(  6) = 0.4291832421458170D-04
        ws(  7) = 0.5028359084652571D-04
        ws(  8) = 0.5779951461775165D-04
        ws(  9) = 0.6526231141712329D-04
        ws( 10) = 0.7286004703958490D-04
        ws( 11) = 0.8058666874679118D-04
        ws( 12) = 0.8860609040205952D-04
        ws( 13) = 0.9672163131827961D-04
        ws( 14) = 0.1052102537327539D-03
        ws( 15) = 0.1140233535182010D-03
        ws( 16) = 0.1231173867272982D-03
        ws( 17) = 0.1327353561441893D-03
        ws( 18) = 0.1429049335186391D-03
        ws( 19) = 0.1537447766697832D-03
        ws( 20) = 0.1651658664743135D-03
        ws( 21) = 0.1773100754717529D-03
        ws( 22) = 0.1903377865287841D-03
        ws( 23) = 0.2044195347934454D-03
        ws( 24) = 0.2195571474824329D-03
        ws( 25) = 0.2362092845594737D-03
        ws( 26) = 0.2542202522761753D-03
        ws( 27) = 0.2731687449191824D-03
        ws( 28) = 0.2946715602876374D-03
        ws( 29) = 0.3184767392111816D-03
        ws( 30) = 0.3438254831910593D-03
        ws( 31) = 0.3739135039306841D-03
        ws( 32) = 0.4081405600301005D-03
        ws( 33) = 0.4454801061838517D-03
        ws( 34) = 0.4864232889932688D-03
        ws( 35) = 0.5333415279424665D-03
        ws( 36) = 0.5954158449800617D-03
        ws( 37) = 0.6585736212491663D-03
        ws( 38) = 0.7308828259361465D-03
        ws( 39) = 0.8285849719708600D-03
        ws( 40) = 0.9486514060156677D-03
        ws( 41) = 0.1132125874865821D-02
        ws( 42) = 0.1381175483621350D-02
        ws( 43) = 0.1704877682508642D-02
        ws( 44) = 0.2148661757715945D-02
        ws( 45) = 0.2902640210457582D-02
        ws( 46) = 0.4257689820069252D-02
        ws( 47) = 0.6761035700191084D-02
        ws( 48) = 0.1181449310726472D-01
        ws( 49) = 0.2160975669928509D-01
        ws( 50) = 0.2653402320657840D-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 =  54
        err = 0.7620488917983775D-03
        xs(  1) = 0.1874512025364926D-05
        xs(  2) = 0.9950950068006087D-05
        xs(  3) = 0.2445523054188742D-04
        xs(  4) = 0.4530722777003582D-04
        xs(  5) = 0.7254152620808270D-04
        xs(  6) = 0.1060384390516446D-03
        xs(  7) = 0.1458516354245027D-03
        xs(  8) = 0.1919431363188897D-03
        xs(  9) = 0.2443301669059803D-03
        xs( 10) = 0.3030956803209476D-03
        xs( 11) = 0.3682477789489371D-03
        xs( 12) = 0.4399533161383399D-03
        xs( 13) = 0.5183214390206493D-03
        xs( 14) = 0.6035332055992613D-03
        xs( 15) = 0.6957518871077044D-03
        xs( 16) = 0.7952580721999893D-03
        xs( 17) = 0.9022545360512101D-03
        xs( 18) = 0.1017074499010441D-02
        xs( 19) = 0.1140092877460129D-02
        xs( 20) = 0.1271768070483442D-02
        xs( 21) = 0.1412569307878426D-02
        xs( 22) = 0.1563002718675922D-02
        xs( 23) = 0.1723529358006147D-02
        xs( 24) = 0.1894917019730616D-02
        xs( 25) = 0.2077925611342281D-02
        xs( 26) = 0.2273271887388707D-02
        xs( 27) = 0.2482146489650001D-02
        xs( 28) = 0.2705315623118941D-02
        xs( 29) = 0.2944030639028414D-02
        xs( 30) = 0.3199949018859589D-02
        xs( 31) = 0.3473824054332399D-02
        xs( 32) = 0.3767381419267301D-02
        xs( 33) = 0.4083451171910482D-02
        xs( 34) = 0.4424434600730412D-02
        xs( 35) = 0.4793462123982343D-02
        xs( 36) = 0.5193555677283672D-02
        xs( 37) = 0.5626871820737477D-02
        xs( 38) = 0.6100743402042557D-02
        xs( 39) = 0.6618566463872955D-02
        xs( 40) = 0.7184898768272074D-02
        xs( 41) = 0.7810214501370525D-02
        xs( 42) = 0.8504314015338073D-02
        xs( 43) = 0.9287426121590102D-02
        xs( 44) = 0.1017431867970601D-01
        xs( 45) = 0.1121277954269808D-01
        xs( 46) = 0.1246076876741955D-01
        xs( 47) = 0.1397722332430053D-01
        xs( 48) = 0.1588515043324702D-01
        xs( 49) = 0.1836868537624082D-01
        xs( 50) = 0.2182625203194445D-01
        xs( 51) = 0.2702010594745049D-01
        xs( 52) = 0.3548938625352447D-01
        xs( 53) = 0.5064184959239072D-01
        xs( 54) = 0.7645453551650666D-01
        ws(  1) = 0.4840023418574021D-05
        ws(  2) = 0.1126242760630384D-04
        ws(  3) = 0.1770405636407635D-04
        ws(  4) = 0.2406462476759940D-04
        ws(  5) = 0.3039311398713151D-04
        ws(  6) = 0.3663219030899552D-04
        ws(  7) = 0.4295633429948884D-04
        ws(  8) = 0.4922614589503540D-04
        ws(  9) = 0.5559511221205636D-04
        ws( 10) = 0.6190938872023656D-04
        ws( 11) = 0.6840293238265330D-04
        ws( 12) = 0.7503519811050789D-04
        ws( 13) = 0.8175901566238502D-04
        ws( 14) = 0.8867167332361261D-04
        ws( 15) = 0.9581825364733584D-04
        ws( 16) = 0.1032081482031852D-03
        ws( 17) = 0.1108440039421707D-03
        ws( 18) = 0.1188564788362874D-03
        ws( 19) = 0.1272738654231063D-03
        ws( 20) = 0.1361354473828493D-03
        ws( 21) = 0.1455525260056585D-03
        ws( 22) = 0.1553901380414592D-03
        ws( 23) = 0.1658089316857126D-03
        ws( 24) = 0.1770948219898905D-03
        ws( 25) = 0.1890014855291540D-03
        ws( 26) = 0.2019547378338839D-03
        ws( 27) = 0.2159145367865646D-03
        ws( 28) = 0.2306003313244322D-03
        ws( 29) = 0.2471744635669390D-03
        ws( 30) = 0.2647641077554705D-03
        ws( 31) = 0.2832617177942073D-03
        ws( 32) = 0.3043862810043769D-03
        ws( 33) = 0.3281393893408405D-03
        ws( 34) = 0.3543950982358479D-03
        ws( 35) = 0.3841940852037291D-03
        ws( 36) = 0.4161332794366182D-03
        ws( 37) = 0.4518639131012536D-03
        ws( 38) = 0.4964153678774377D-03
        ws( 39) = 0.5395766271826351D-03
        ws( 40) = 0.5953153687542340D-03
        ws( 41) = 0.6561237067598980D-03
        ws( 42) = 0.7361665756337901D-03
        ws( 43) = 0.8312782741556006D-03
        ws( 44) = 0.9509579250282916D-03
        ws( 45) = 0.1135978096887742D-02
        ws( 46) = 0.1367713180084465D-02
        ws( 47) = 0.1687521776788729D-02
        ws( 48) = 0.2153656089604074D-02
        ws( 49) = 0.2880987763297019D-02
        ws( 50) = 0.4154135568930117D-02
        ws( 51) = 0.6468262146871052D-02
        ws( 52) = 0.1100768778041861D-01
        ws( 53) = 0.2033095310329425D-01
        ws( 54) = 0.2856527184614625D-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 =  58
        err = 0.8246061021478579D-03
        xs(  1) = 0.1614155362179372D-05
        xs(  2) = 0.8617230704510640D-05
        xs(  3) = 0.2114294822172871D-04
        xs(  4) = 0.3920847471615957D-04
        xs(  5) = 0.6275693478623267D-04
        xs(  6) = 0.9174412835855414D-04
        xs(  7) = 0.1261495953137942D-03
        xs(  8) = 0.1659845920779400D-03
        xs(  9) = 0.2111893732768987D-03
        xs( 10) = 0.2618686436870796D-03
        xs( 11) = 0.3179758997913283D-03
        xs( 12) = 0.3796440173840142D-03
        xs( 13) = 0.4469663053423025D-03
        xs( 14) = 0.5199945862410308D-03
        xs( 15) = 0.5988656760415125D-03
        xs( 16) = 0.6837636862606573D-03
        xs( 17) = 0.7749024038480308D-03
        xs( 18) = 0.8724119052661451D-03
        xs( 19) = 0.9765222602057251D-03
        xs( 20) = 0.1087563253385261D-02
        xs( 21) = 0.1205877723542190D-02
        xs( 22) = 0.1331841828999804D-02
        xs( 23) = 0.1465799878810331D-02
        xs( 24) = 0.1608060795332012D-02
        xs( 25) = 0.1759137068456036D-02
        xs( 26) = 0.1919660723287174D-02
        xs( 27) = 0.2090362686904268D-02
        xs( 28) = 0.2271874027077599D-02
        xs( 29) = 0.2464554232597337D-02
        xs( 30) = 0.2669602026706754D-02
        xs( 31) = 0.2887979204657528D-02
        xs( 32) = 0.3120391761558721D-02
        xs( 33) = 0.3367833666230241D-02
        xs( 34) = 0.3631736697443961D-02
        xs( 35) = 0.3914268169840826D-02
        xs( 36) = 0.4217409483810544D-02
        xs( 37) = 0.4542650098642026D-02
        xs( 38) = 0.4891091037521769D-02
        xs( 39) = 0.5268151888446817D-02
        xs( 40) = 0.5675795488895516D-02
        xs( 41) = 0.6113730452535822D-02
        xs( 42) = 0.6591176020641420D-02
        xs( 43) = 0.7113195459279116D-02
        xs( 44) = 0.7684139422656413D-02
        xs( 45) = 0.8317389623434424D-02
        xs( 46) = 0.9019870147098702D-02
        xs( 47) = 0.9797151724404506D-02
        xs( 48) = 0.1068102123943198D-01
        xs( 49) = 0.1173267506994624D-01
        xs( 50) = 0.1298486662075636D-01
        xs( 51) = 0.1448664526834952D-01
        xs( 52) = 0.1634279874613827D-01
        xs( 53) = 0.1874061403792367D-01
        xs( 54) = 0.2205065784289832D-01
        xs( 55) = 0.2691902388737416D-01
        xs( 56) = 0.3474856298546193D-01
        xs( 57) = 0.4881998910143678D-01
        xs( 58) = 0.7476987114330896D-01
        ws(  1) = 0.4173465355810182D-05
        ws(  2) = 0.9767600740489140D-05
        ws(  3) = 0.1531344244082794D-04
        ws(  4) = 0.2079614655068825D-04
        ws(  5) = 0.2632065473892617D-04
        ws(  6) = 0.3164548993609603D-04
        ws(  7) = 0.3715431571656581D-04
        ws(  8) = 0.4248620727172354D-04
        ws(  9) = 0.4795954049489269D-04
        ws( 10) = 0.5337487961640696D-04
        ws( 11) = 0.5886722327968086D-04
        ws( 12) = 0.6451125696269683D-04
        ws( 13) = 0.7011799819532195D-04
        ws( 14) = 0.7594036190707586D-04
        ws( 15) = 0.8183332323828947D-04
        ws( 16) = 0.8799952315845767D-04
        ws( 17) = 0.9428883311561339D-04
        ws( 18) = 0.1007580368272709D-03
        ws( 19) = 0.1075151768926476D-03
        ws( 20) = 0.1146260320772941D-03
        ws( 21) = 0.1220917825198164D-03
        ws( 22) = 0.1298915194243649D-03
        ws( 23) = 0.1380542274507640D-03
        ws( 24) = 0.1465746666681976D-03
        ws( 25) = 0.1557075076273134D-03
        ws( 26) = 0.1654777747710299D-03
        ws( 27) = 0.1760557165597455D-03
        ws( 28) = 0.1869879551105819D-03
        ws( 29) = 0.1985980393866502D-03
        ws( 30) = 0.2116517239534847D-03
        ws( 31) = 0.2252309861360848D-03
        ws( 32) = 0.2397789286268376D-03
        ws( 33) = 0.2552842913173775D-03
        ws( 34) = 0.2729574915370893D-03
        ws( 35) = 0.2924010074007163D-03
        ws( 36) = 0.3141756429581807D-03
        ws( 37) = 0.3361892906455187D-03
        ws( 38) = 0.3618825602593036D-03
        ws( 39) = 0.3925704878789000D-03
        ws( 40) = 0.4224041421863967D-03
        ws( 41) = 0.4554136313519425D-03
        ws( 42) = 0.5002154921518751D-03
        ws( 43) = 0.5443222112472559D-03
        ws( 44) = 0.6001806049126498D-03
        ws( 45) = 0.6676382863276095D-03
        ws( 46) = 0.7378012285067329D-03
        ws( 47) = 0.8214416091543048D-03
        ws( 48) = 0.9590409207512156D-03
        ws( 49) = 0.1147652264168869D-02
        ws( 50) = 0.1364550361669745D-02
        ws( 51) = 0.1657328417654357D-02
        ws( 52) = 0.2081184096555052D-02
        ws( 53) = 0.2778396043481484D-02
        ws( 54) = 0.3941108670211108D-02
        ws( 55) = 0.6002325307042491D-02
        ws( 56) = 0.1017441950817716D-01
        ws( 57) = 0.1916256816255850D-01
        ws( 58) = 0.3070313352460054D-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 =  63
        err = 0.6252115123078798D-03
        xs(  1) = 0.1369177447757989D-05
        xs(  2) = 0.7373085398082219D-05
        xs(  3) = 0.1812928120051829D-04
        xs(  4) = 0.3364393673320263D-04
        xs(  5) = 0.5388235897415287D-04
        xs(  6) = 0.7880889557472355D-04
        xs(  7) = 0.1083947633544190D-03
        xs(  8) = 0.1426594477106984D-03
        xs(  9) = 0.1815712401359895D-03
        xs( 10) = 0.2251435802488945D-03
        xs( 11) = 0.2734018960488410D-03
        xs( 12) = 0.3264003311523212D-03
        xs( 13) = 0.3841859397717975D-03
        xs( 14) = 0.4468124609242820D-03
        xs( 15) = 0.5143665717107065D-03
        xs( 16) = 0.5869756661243043D-03
        xs( 17) = 0.6647847326423473D-03
        xs( 18) = 0.7478860437515511D-03
        xs( 19) = 0.8364208510845524D-03
        xs( 20) = 0.9305908645363939D-03
        xs( 21) = 0.1030673939303976D-02
        xs( 22) = 0.1136891829009173D-02
        xs( 23) = 0.1249464693046282D-02
        xs( 24) = 0.1368606866254113D-02
        xs( 25) = 0.1494734134108398D-02
        xs( 26) = 0.1628241310163493D-02
        xs( 27) = 0.1769454703331024D-02
        xs( 28) = 0.1918845798296794D-02
        xs( 29) = 0.2076760176813793D-02
        xs( 30) = 0.2243705215361775D-02
        xs( 31) = 0.2420643931118848D-02
        xs( 32) = 0.2607961474973739D-02
        xs( 33) = 0.2806193916430145D-02
        xs( 34) = 0.3016251814498892D-02
        xs( 35) = 0.3239365050893314D-02
        xs( 36) = 0.3476130169898320D-02
        xs( 37) = 0.3727979343403269D-02
        xs( 38) = 0.3996360350881193D-02
        xs( 39) = 0.4281715737187946D-02
        xs( 40) = 0.4586276950436855D-02
        xs( 41) = 0.4911717071775728D-02
        xs( 42) = 0.5260391519498780D-02
        xs( 43) = 0.5634921082018989D-02
        xs( 44) = 0.6037975413251787D-02
        xs( 45) = 0.6474193314230199D-02
        xs( 46) = 0.6945672564763337D-02
        xs( 47) = 0.7457718971929167D-02
        xs( 48) = 0.8016747615440497D-02
        xs( 49) = 0.8620939531764620D-02
        xs( 50) = 0.9281741831646786D-02
        xs( 51) = 0.1001165877287523D-01
        xs( 52) = 0.1083481139612524D-01
        xs( 53) = 0.1179197710904013D-01
        xs( 54) = 0.1292303825556690D-01
        xs( 55) = 0.1428144772740403D-01
        xs( 56) = 0.1591924606982303D-01
        xs( 57) = 0.1794069396550860D-01
        xs( 58) = 0.2052894719601172D-01
        xs( 59) = 0.2407158855022327D-01
        xs( 60) = 0.2925273437331467D-01
        xs( 61) = 0.3745415186086451D-01
        xs( 62) = 0.5183808406652708D-01
        xs( 63) = 0.7838404612623728D-01
        ws(  1) = 0.3551409510860615D-05
        ws(  2) = 0.8417908394019456D-05
        ws(  3) = 0.1315129717387153D-04
        ws(  4) = 0.1783806706869262D-04
        ws(  5) = 0.2261135044357629D-04
        ws(  6) = 0.2725181950969464D-04
        ws(  7) = 0.3194119810734079D-04
        ws(  8) = 0.3655914247547000D-04
        ws(  9) = 0.4123019389596900D-04
        ws( 10) = 0.4593852404622520D-04
        ws( 11) = 0.5060949506176699D-04
        ws( 12) = 0.5538555145521753D-04
        ws( 13) = 0.6017880967316305D-04
        ws( 14) = 0.6507963429475443D-04
        ws( 15) = 0.7004334053746214D-04
        ws( 16) = 0.7519174988751536D-04
        ws( 17) = 0.8042871294919343D-04
        ws( 18) = 0.8578660114920681D-04
        ws( 19) = 0.9129769996003456D-04
        ws( 20) = 0.9709188612587061D-04
        ws( 21) = 0.1031146733107394D-03
        ws( 22) = 0.1093466417536390D-03
        ws( 23) = 0.1158138793263035D-03
        ws( 24) = 0.1225499912457916D-03
        ws( 25) = 0.1297713894355071D-03
        ws( 26) = 0.1373055225446151D-03
        ws( 27) = 0.1452187569733284D-03
        ws( 28) = 0.1536519033193299D-03
        ws( 29) = 0.1622651477832960D-03
        ws( 30) = 0.1718172939917530D-03
        ws( 31) = 0.1821320805478542D-03
        ws( 32) = 0.1926347891267844D-03
        ws( 33) = 0.2039878325401611D-03
        ws( 34) = 0.2163756789068717D-03
        ws( 35) = 0.2299057457655226D-03
        ws( 36) = 0.2438601885124080D-03
        ws( 37) = 0.2601565752868193D-03
        ws( 38) = 0.2765131686857395D-03
        ws( 39) = 0.2946760059068703D-03
        ws( 40) = 0.3145856568121472D-03
        ws( 41) = 0.3368231494608028D-03
        ws( 42) = 0.3609997403064412D-03
        ws( 43) = 0.3885079615365312D-03
        ws( 44) = 0.4185710689162087D-03
        ws( 45) = 0.4540399503103574D-03
        ws( 46) = 0.4898120330664066D-03
        ws( 47) = 0.5357637780918674D-03
        ws( 48) = 0.5811631549707684D-03
        ws( 49) = 0.6299296049653840D-03
        ws( 50) = 0.6932520925313014D-03
        ws( 51) = 0.7704346608061164D-03
        ws( 52) = 0.8840393496859722D-03
        ws( 53) = 0.1035044002092537D-02
        ws( 54) = 0.1238269163711810D-02
        ws( 55) = 0.1484715581053595D-02
        ws( 56) = 0.1808711978069503D-02
        ws( 57) = 0.2261200121997165D-02
        ws( 58) = 0.2981164838740132D-02
        ws( 59) = 0.4209693399333416D-02
        ws( 60) = 0.6361064409434647D-02
        ws( 61) = 0.1053329379859037D-01
        ws( 62) = 0.1947027702848783D-01
        ws( 63) = 0.3181488357531380D-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 =  67
        err = 0.6933170999193200D-03
        xs(  1) = 0.1250242656229893D-05
        xs(  2) = 0.6553378089587459D-05
        xs(  3) = 0.1604027397250855D-04
        xs(  4) = 0.2974058479047506D-04
        xs(  5) = 0.4759955558419498D-04
        xs(  6) = 0.6959707653617246D-04
        xs(  7) = 0.9570679290501262D-04
        xs(  8) = 0.1259365207950338D-03
        xs(  9) = 0.1602183415327355D-03
        xs( 10) = 0.1986160155856413D-03
        xs( 11) = 0.2411195381061504D-03
        xs( 12) = 0.2877405249524135D-03
        xs( 13) = 0.3385190782538275D-03
        xs( 14) = 0.3935044113579189D-03
        xs( 15) = 0.4527414513726052D-03
        xs( 16) = 0.5163145830148414D-03
        xs( 17) = 0.5843363821290989D-03
        xs( 18) = 0.6568891044067279D-03
        xs( 19) = 0.7340515228244144D-03
        xs( 20) = 0.8159497159466394D-03
        xs( 21) = 0.9027687819032979D-03
        xs( 22) = 0.9947152809918461D-03
        xs( 23) = 0.1091953154090258D-02
        xs( 24) = 0.1194634003797511D-02
        xs( 25) = 0.1302960962790693D-02
        xs( 26) = 0.1417249526290446D-02
        xs( 27) = 0.1537810647364382D-02
        xs( 28) = 0.1664915072740714D-02
        xs( 29) = 0.1798878209315482D-02
        xs( 30) = 0.1939955505996708D-02
        xs( 31) = 0.2088576044497929D-02
        xs( 32) = 0.2245309272282848D-02
        xs( 33) = 0.2410661685122892D-02
        xs( 34) = 0.2585064878336373D-02
        xs( 35) = 0.2768971834753068D-02
        xs( 36) = 0.2963228042050637D-02
        xs( 37) = 0.3168471790377332D-02
        xs( 38) = 0.3385650205897202D-02
        xs( 39) = 0.3615668772780094D-02
        xs( 40) = 0.3859021854596783D-02
        xs( 41) = 0.4117073249662107D-02
        xs( 42) = 0.4391637749885983D-02
        xs( 43) = 0.4682934577728293D-02
        xs( 44) = 0.4993210035123590D-02
        xs( 45) = 0.5324681925302391D-02
        xs( 46) = 0.5678903384914630D-02
        xs( 47) = 0.6058353302493726D-02
        xs( 48) = 0.6466524329021748D-02
        xs( 49) = 0.6906461545246449D-02
        xs( 50) = 0.7379514804027464D-02
        xs( 51) = 0.7892649096603569D-02
        xs( 52) = 0.8452271104858121D-02
        xs( 53) = 0.9055241279920988D-02
        xs( 54) = 0.9714389790712277D-02
        xs( 55) = 0.1044834903228276D-01
        xs( 56) = 0.1127011949708864D-01
        xs( 57) = 0.1221717093002804D-01
        xs( 58) = 0.1333128022645064D-01
        xs( 59) = 0.1464819507678229D-01
        xs( 60) = 0.1621801917730113D-01
        xs( 61) = 0.1816222184083586D-01
        xs( 62) = 0.2068108233346239D-01
        xs( 63) = 0.2412975984020466D-01
        xs( 64) = 0.2904170426645821D-01
        xs( 65) = 0.3662572991235700D-01
        xs( 66) = 0.4982955896634558D-01
        xs( 67) = 0.7521910065741368D-01
        ws(  1) = 0.3182154109543569D-05
        ws(  2) = 0.7398936365904556D-05
        ws(  3) = 0.1158874008241306D-04
        ws(  4) = 0.1583705793580156D-04
        ws(  5) = 0.1993214515061388D-04
        ws(  6) = 0.2404924258269083D-04
        ws(  7) = 0.2812614027596593D-04
        ws(  8) = 0.3225963396381926D-04
        ws(  9) = 0.3638329118701610D-04
        ws( 10) = 0.4043341334631730D-04
        ws( 11) = 0.4454500449215373D-04
        ws( 12) = 0.4870701141046427D-04
        ws( 13) = 0.5287401450709051D-04
        ws( 14) = 0.5709970204981662D-04
        ws( 15) = 0.6139034697950214D-04
        ws( 16) = 0.6577756129422574D-04
        ws( 17) = 0.7027477634583283D-04
        ws( 18) = 0.7484112965848605D-04
        ws( 19) = 0.7950772903017698D-04
        ws( 20) = 0.8432810622604182D-04
        ws( 21) = 0.8935052687352214D-04
        ws( 22) = 0.9456255034265511D-04
        ws( 23) = 0.9993834962378742D-04
        ws( 24) = 0.1054511848271472D-03
        ws( 25) = 0.1112441881687809D-03
        ws( 26) = 0.1173918045883854D-03
        ws( 27) = 0.1237967687785234D-03
        ws( 28) = 0.1304672611292823D-03
        ws( 29) = 0.1374721577914868D-03
        ws( 30) = 0.1447692666396099D-03
        ws( 31) = 0.1525618404380141D-03
        ws( 32) = 0.1609685364860549D-03
        ws( 33) = 0.1698365356637981D-03
        ws( 34) = 0.1790397659579191D-03
        ws( 35) = 0.1889578266954304D-03
        ws( 36) = 0.1996800195418896D-03
        ws( 37) = 0.2109863193808090D-03
        ws( 38) = 0.2235182768176437D-03
        ws( 39) = 0.2365412432612007D-03
        ws( 40) = 0.2503496769997628D-03
        ws( 41) = 0.2661062119783954D-03
        ws( 42) = 0.2829267902933280D-03
        ws( 43) = 0.3001376433918924D-03
        ws( 44) = 0.3207584392703977D-03
        ws( 45) = 0.3423844385572153D-03
        ws( 46) = 0.3663725947290192D-03
        ws( 47) = 0.3931777890230837D-03
        ws( 48) = 0.4237036151791257D-03
        ws( 49) = 0.4562287451574346D-03
        ws( 50) = 0.4911670017311821D-03
        ws( 51) = 0.5364281274574347D-03
        ws( 52) = 0.5818437139954960D-03
        ws( 53) = 0.6262074431359484D-03
        ws( 54) = 0.6957157623041518D-03
        ws( 55) = 0.7733984552577825D-03
        ws( 56) = 0.8769032412495136D-03
        ws( 57) = 0.1024257989956615D-02
        ws( 58) = 0.1210161645921811D-02
        ws( 59) = 0.1430073087952322D-02
        ws( 60) = 0.1730364400699506D-02
        ws( 61) = 0.2189070031844176D-02
        ws( 62) = 0.2910871368850381D-02
        ws( 63) = 0.4063601615914385D-02
        ws( 64) = 0.5942077305308338D-02
        ws( 65) = 0.9701452239535491D-02
        ws( 66) = 0.1785159022928303D-01
        ws( 67) = 0.3188792765662267D-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 =  71
        err = 0.8484004056208632D-03
        xs(  1) = 0.1116158855584313D-05
        xs(  2) = 0.5835596533898871D-05
        xs(  3) = 0.1430128343614298D-04
        xs(  4) = 0.2650244475396382D-04
        xs(  5) = 0.4240928943000736D-04
        xs(  6) = 0.6201314675292510D-04
        xs(  7) = 0.8524878767135763D-04
        xs(  8) = 0.1121428635367189D-03
        xs(  9) = 0.1426473944960231D-03
        xs( 10) = 0.1767906214962461D-03
        xs( 11) = 0.2145581400358324D-03
        xs( 12) = 0.2559332143630057D-03
        xs( 13) = 0.3010111104665559D-03
        xs( 14) = 0.3497405215270993D-03
        xs( 15) = 0.4021974326650338D-03
        xs( 16) = 0.4584205951682807D-03
        xs( 17) = 0.5185082164884338D-03
        xs( 18) = 0.5825184346694163D-03
        xs( 19) = 0.6505212832052838D-03
        xs( 20) = 0.7225599479541151D-03
        xs( 21) = 0.7987861067026807D-03
        xs( 22) = 0.8793450837078115D-03
        xs( 23) = 0.9643893741285723D-03
        xs( 24) = 0.1054040218794432D-02
        xs( 25) = 0.1148416713053213D-02
        xs( 26) = 0.1247688978329305D-02
        xs( 27) = 0.1352139096062965D-02
        xs( 28) = 0.1461976909022655D-02
        xs( 29) = 0.1577436394781416D-02
        xs( 30) = 0.1698750144238516D-02
        xs( 31) = 0.1826052520391400D-02
        xs( 32) = 0.1959752550580981D-02
        xs( 33) = 0.2100348055548803D-02
        xs( 34) = 0.2248038479863929D-02
        xs( 35) = 0.2403346209822265D-02
        xs( 36) = 0.2566599497384871D-02
        xs( 37) = 0.2738223505472698D-02
        xs( 38) = 0.2918804906107692D-02
        xs( 39) = 0.3108982568055664D-02
        xs( 40) = 0.3309686210422014D-02
        xs( 41) = 0.3521097893255361D-02
        xs( 42) = 0.3744168208485278D-02
        xs( 43) = 0.3979975896472990D-02
        xs( 44) = 0.4229093757507010D-02
        xs( 45) = 0.4492754378272690D-02
        xs( 46) = 0.4772332054743267D-02
        xs( 47) = 0.5068970617751019D-02
        xs( 48) = 0.5384790328309317D-02
        xs( 49) = 0.5721299038701028D-02
        xs( 50) = 0.6081082983486383D-02
        xs( 51) = 0.6463737028769011D-02
        xs( 52) = 0.6874168569527251D-02
        xs( 53) = 0.7317145451395932D-02
        xs( 54) = 0.7793713938233538D-02
        xs( 55) = 0.8308883389327105D-02
        xs( 56) = 0.8867551136612268D-02
        xs( 57) = 0.9472709202985177D-02
        xs( 58) = 0.1013671917007135D-01
        xs( 59) = 0.1087187628680384D-01
        xs( 60) = 0.1169331484004309D-01
        xs( 61) = 0.1262723289791323D-01
        xs( 62) = 0.1372047556246305D-01
        xs( 63) = 0.1502201310291787D-01
        xs( 64) = 0.1659098210193766D-01
        xs( 65) = 0.1851906671597359D-01
        xs( 66) = 0.2098598051086712D-01
        xs( 67) = 0.2436994751033498D-01
        xs( 68) = 0.2919230612441541D-01
        xs( 69) = 0.3662583101987276D-01
        xs( 70) = 0.4946448998170108D-01
        xs( 71) = 0.7440632372556706D-01
        ws(  1) = 0.2823149585325522D-05
        ws(  2) = 0.6588583763417488D-05
        ws(  3) = 0.1036210561083340D-04
        ws(  4) = 0.1406688976959973D-04
        ws(  5) = 0.1776977061188493D-04
        ws(  6) = 0.2141356123881911D-04
        ws(  7) = 0.2506020266818249D-04
        ws(  8) = 0.2870700936812357D-04
        ws(  9) = 0.3230851546650269D-04
        ws( 10) = 0.3593862598616227D-04
        ws( 11) = 0.3963506388356856D-04
        ws( 12) = 0.4320913098264553D-04
        ws( 13) = 0.4684296428857627D-04
        ws( 14) = 0.5061552892945572D-04
        ws( 15) = 0.5433820420693736D-04
        ws( 16) = 0.5812986488526483D-04
        ws( 17) = 0.6203869515639414D-04
        ws( 18) = 0.6599427346104193D-04
        ws( 19) = 0.7000324524941228D-04
        ws( 20) = 0.7412658738573561D-04
        ws( 21) = 0.7835542904830518D-04
        ws( 22) = 0.8278345270384690D-04
        ws( 23) = 0.8730806303268635D-04
        ws( 24) = 0.9200468726813441D-04
        ws( 25) = 0.9678483105991968D-04
        ws( 26) = 0.1018186288101148D-03
        ws( 27) = 0.1070908694977152D-03
        ws( 28) = 0.1126380563696219D-03
        ws( 29) = 0.1183591541775630D-03
        ws( 30) = 0.1242676823114684D-03
        ws( 31) = 0.1304097821770908D-03
        ws( 32) = 0.1370844226682635D-03
        ws( 33) = 0.1440878589901602D-03
        ws( 34) = 0.1514240388091580D-03
        ws( 35) = 0.1592419427815761D-03
        ws( 36) = 0.1673238906369844D-03
        ws( 37) = 0.1760298411244089D-03
        ws( 38) = 0.1852121781597918D-03
        ws( 39) = 0.1953519341533472D-03
        ws( 40) = 0.2060040476371571D-03
        ws( 41) = 0.2169880962670347D-03
        ws( 42) = 0.2293303027286085D-03
        ws( 43) = 0.2423857403105285D-03
        ws( 44) = 0.2560590493267881D-03
        ws( 45) = 0.2715012354385718D-03
        ws( 46) = 0.2877257246908163D-03
        ws( 47) = 0.3060516422909497D-03
        ws( 48) = 0.3256920785725241D-03
        ws( 49) = 0.3480480137522240D-03
        ws( 50) = 0.3710881280352266D-03
        ws( 51) = 0.3952387145149525D-03
        ws( 52) = 0.4264545688339532D-03
        ws( 53) = 0.4594139598958884D-03
        ws( 54) = 0.4946391660672003D-03
        ws( 55) = 0.5366566587936833D-03
        ws( 56) = 0.5807182984307538D-03
        ws( 57) = 0.6321134755741312D-03
        ws( 58) = 0.6978405971689826D-03
        ws( 59) = 0.7748846927782143D-03
        ws( 60) = 0.8721124910904806D-03
        ws( 61) = 0.1003950053781502D-02
        ws( 62) = 0.1190449468976569D-02
        ws( 63) = 0.1421715889567656D-02
        ws( 64) = 0.1732142930454146D-02
        ws( 65) = 0.2148664102295398D-02
        ws( 66) = 0.2855453693741587D-02
        ws( 67) = 0.3987065933602597D-02
        ws( 68) = 0.5836055478663138D-02
        ws( 69) = 0.9485227471295446D-02
        ws( 70) = 0.1724944130909628D-01
        ws( 71) = 0.3267566879194269D-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 =   9
        err = 0.9693617870599681D-03
        xs(  1) = 0.1225331614377033D-02
        xs(  2) = 0.5590222310346103D-02
        xs(  3) = 0.1187150080109330D-01
        xs(  4) = 0.1934564004349891D-01
        xs(  5) = 0.2763953790827897D-01
        xs(  6) = 0.3654145310500291D-01
        xs(  7) = 0.4592421923455556D-01
        xs(  8) = 0.5569698094710655D-01
        xs(  9) = 0.6580945944705006D-01
        ws(  1) = 0.3005579432356565D-02
        ws(  2) = 0.5487886682393224D-02
        ws(  3) = 0.6957122154474852D-02
        ws(  4) = 0.7926033688991054D-02
        ws(  5) = 0.8622442080833036D-02
        ws(  6) = 0.9164440244239163D-02
        ws(  7) = 0.9634408172187244D-02
        ws(  8) = 0.1013995434690400D-01
        ws(  9) = 0.1171377109599969D-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 =   9
        err = 0.9439912367153085D-03
        xs(  1) = 0.1220778221723634D-02
        xs(  2) = 0.5578300807173814D-02
        xs(  3) = 0.1185650266153878D-01
        xs(  4) = 0.1933003498991274D-01
        xs(  5) = 0.2762425859566373D-01
        xs(  6) = 0.3652755932791915D-01
        xs(  7) = 0.4591132756449416D-01
        xs(  8) = 0.5568389346550226D-01
        xs(  9) = 0.6579748363340744D-01
        ws(  1) = 0.2996169236547704D-02
        ws(  2) = 0.5483033151798829D-02
        ws(  3) = 0.6955715028010499D-02
        ws(  4) = 0.7926340371078569D-02
        ws(  5) = 0.8623724974069732D-02
        ws(  6) = 0.9166973984365261D-02
        ws(  7) = 0.9635843214232257D-02
        ws(  8) = 0.1014344267813282D-01
        ws(  9) = 0.1172405483572505D-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 =   9
        err = 0.8309904479968353D-03
        xs(  1) = 0.1196259889231132D-02
        xs(  2) = 0.5513630805654242D-02
        xs(  3) = 0.1177529127753618D-01
        xs(  4) = 0.1924610480750306D-01
        xs(  5) = 0.2754234199633328D-01
        xs(  6) = 0.3645423142843360D-01
        xs(  7) = 0.4584305765036302D-01
        xs(  8) = 0.5561258504912886D-01
        xs(  9) = 0.6573281972792094D-01
        ws(  1) = 0.2945387352526104D-02
        ws(  2) = 0.5456546464392851D-02
        ws(  3) = 0.6948493724846864D-02
        ws(  4) = 0.7928161896622215D-02
        ws(  5) = 0.8631188673219896D-02
        ws(  6) = 0.9181283161702193D-02
        ws(  7) = 0.9640669240875453D-02
        ws(  8) = 0.1015988953187676D-01
        ws(  9) = 0.1177563300255707D-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 =   9
        err = 0.5215169803103261D-03
        xs(  1) = 0.1119400459833187D-02
        xs(  2) = 0.5311617987709349D-02
        xs(  3) = 0.1152427155090806D-01
        xs(  4) = 0.1898389611697206D-01
        xs(  5) = 0.2728165348377226D-01
        xs(  6) = 0.3620222935184278D-01
        xs(  7) = 0.4559214241047973D-01
        xs(  8) = 0.5535213502115658D-01
        xs(  9) = 0.6546405138760089D-01
        ws(  1) = 0.2786973241042124D-02
        ws(  2) = 0.5375991451135990D-02
        ws(  3) = 0.6926231057949475D-02
        ws(  4) = 0.7928818639783284D-02
        ws(  5) = 0.8642971401563036D-02
        ws(  6) = 0.9199498393389962D-02
        ws(  7) = 0.9651207717694354D-02
        ws(  8) = 0.1018983959036558D-01
        ws(  9) = 0.1187425465500454D-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 =   9
        err = 0.5968916308622137D-03
        xs(  1) = 0.9885733403469307D-03
        xs(  2) = 0.4953768393232213D-02
        xs(  3) = 0.1108277131711583D-01
        xs(  4) = 0.1852082746094353D-01
        xs(  5) = 0.2681407798913913D-01
        xs(  6) = 0.3572159812795376D-01
        xs(  7) = 0.4509471646725123D-01
        xs(  8) = 0.5483135341969400D-01
        xs(  9) = 0.6488233692724625D-01
        ws(  1) = 0.2514370938304605D-02
        ws(  2) = 0.5229395029442582D-02
        ws(  3) = 0.6888710665812243D-02
        ws(  4) = 0.7921041418700109D-02
        ws(  5) = 0.8640442202606520D-02
        ws(  6) = 0.9185495930308079D-02
        ws(  7) = 0.9651655070168273D-02
        ws(  8) = 0.1016709966903164D-01
        ws(  9) = 0.1187250403009252D-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 =   9
        err = 0.7564704498867473D-03
        xs(  1) = 0.5635843046340890D-03
        xs(  2) = 0.3209413789956907D-02
        xs(  3) = 0.8265941966242049D-02
        xs(  4) = 0.1516932700075639D-01
        xs(  5) = 0.2321820700916709D-01
        xs(  6) = 0.3201042976470360D-01
        xs(  7) = 0.4137081670371387D-01
        xs(  8) = 0.5118976646716333D-01
        xs(  9) = 0.6136740831079467D-01
        ws(  1) = 0.1481640381136971D-02
        ws(  2) = 0.3880567983719402D-02
        ws(  3) = 0.6114853449736533D-02
        ws(  4) = 0.7569939038196812D-02
        ws(  5) = 0.8472461881355742D-02
        ws(  6) = 0.9119785260161111D-02
        ws(  7) = 0.9690501657021637D-02
        ws(  8) = 0.1026201838985210D-01
        ws(  9) = 0.1194978151611797D-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 =   9
        err = 0.8279445541539470D-03
        xs(  1) = 0.3488487090938378D-03
        xs(  2) = 0.2029557853618395D-02
        xs(  3) = 0.5805555437314765D-02
        xs(  4) = 0.1215783272055132D-01
        xs(  5) = 0.2020371967267763D-01
        xs(  6) = 0.2913873893246277D-01
        xs(  7) = 0.3862542225867164D-01
        xs(  8) = 0.4853026100831670D-01
        xs(  9) = 0.5858737107909825D-01
        ws(  1) = 0.9211655281755406D-03
        ws(  2) = 0.2560083996095843D-02
        ws(  3) = 0.5117210733261632D-02
        ws(  4) = 0.7390805153721742D-02
        ws(  5) = 0.8582253658243956D-02
        ws(  6) = 0.9268960434311878D-02
        ws(  7) = 0.9801159915201287D-02
        ws(  8) = 0.1031130748492329D-01
        ws(  9) = 0.1152914514406190D-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 =  11
        err = 0.7896280778016374D-03
        xs(  1) = 0.1340981824427869D-03
        xs(  2) = 0.7346645977271201D-03
        xs(  3) = 0.1947730405780073D-02
        xs(  4) = 0.4163090490059418D-02
        xs(  5) = 0.8240654855437020D-02
        xs(  6) = 0.1484467448116050D-01
        xs(  7) = 0.2325505794550787D-01
        xs(  8) = 0.3259472753655090D-01
        xs(  9) = 0.4242098294290956D-01
        xs( 10) = 0.5258406347561093D-01
        xs( 11) = 0.6268276895950162D-01
        ws(  1) = 0.3477081706943100D-03
        ws(  2) = 0.8718812904052100D-03
        ws(  3) = 0.1614029147995451D-02
        ws(  4) = 0.2965743109293618D-02
        ws(  5) = 0.5342828125457981D-02
        ws(  6) = 0.7702621232068759D-02
        ws(  7) = 0.8976704941161292D-02
        ws(  8) = 0.9650327693694142D-02
        ws(  9) = 0.1011269266596030D-01
        ws( 10) = 0.1050000341421034D-01
        ws( 11) = 0.1153275816382404D-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 =  14
        err = 0.9603141686949863D-03
        xs(  1) = 0.4604270069262559D-04
        xs(  2) = 0.2448386099528451D-03
        xs(  3) = 0.6143732443284741D-03
        xs(  4) = 0.1180468028621525D-02
        xs(  5) = 0.1995860526514334D-02
        xs(  6) = 0.3163993617883888D-02
        xs(  7) = 0.4913638384039844D-02
        xs(  8) = 0.7747398223799846D-02
        xs(  9) = 0.1272384421328617D-01
        xs( 10) = 0.2071663730586145D-01
        xs( 11) = 0.3064299241962204D-01
        xs( 12) = 0.4130331927025556D-01
        xs( 13) = 0.5224071725797680D-01
        xs( 14) = 0.6269579760642310D-01
        ws(  1) = 0.1182387519160306D-03
        ws(  2) = 0.2814296843261488D-03
        ws(  3) = 0.4616472761230829D-03
        ws(  4) = 0.6789663806009532D-03
        ws(  5) = 0.9679897773671605D-03
        ws(  6) = 0.1405207170670894D-02
        ws(  7) = 0.2171283341736447D-02
        ws(  8) = 0.3673333566533021D-02
        ws(  9) = 0.6488726019435421D-02
        ws( 10) = 0.9250806370095749D-02
        ws( 11) = 0.1041599669417692D-01
        ws( 12) = 0.1085253205533579D-01
        ws( 13) = 0.1133306907810123D-01
        ws( 14) = 0.1074784162309063D-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 =  18
        err = 0.9341047041493886D-03
        xs(  1) = 0.2333331132247395D-04
        xs(  2) = 0.1227444144677781D-03
        xs(  3) = 0.3030396013123630D-03
        xs(  4) = 0.5675342909280465D-03
        xs(  5) = 0.9242981634532961D-03
        xs(  6) = 0.1388724347544666D-02
        xs(  7) = 0.1984756285226205D-02
        xs(  8) = 0.2745075516470232D-02
        xs(  9) = 0.3715064239053819D-02
        xs( 10) = 0.4987441508070712D-02
        xs( 11) = 0.6763056379747361D-02
        xs( 12) = 0.9497388569944115D-02
        xs( 13) = 0.1405392333535126D-01
        xs( 14) = 0.2181456862217957D-01
        xs( 15) = 0.3294917298893590D-01
        xs( 16) = 0.4551273442719500D-01
        xs( 17) = 0.5822918155643600D-01
        xs( 18) = 0.7030045814383114D-01
        ws(  1) = 0.5969667531037872D-04
        ws(  2) = 0.1395030824689306D-03
        ws(  3) = 0.2214832821271629D-03
        ws(  4) = 0.3088544677118361D-03
        ws(  5) = 0.4073739814516005D-03
        ws(  6) = 0.5254056189219052D-03
        ws(  7) = 0.6720498362777457D-03
        ws(  8) = 0.8554291828414175D-03
        ws(  9) = 0.1099692407395415D-02
        ws( 10) = 0.1475323659148066D-02
        ws( 11) = 0.2150269719822677D-02
        ws( 12) = 0.3455245834966012D-02
        ws( 13) = 0.5914157278131907D-02
        ws( 14) = 0.9683071172675931D-02
        ws( 15) = 0.1216487405331903D-01
        ws( 16) = 0.1275888928852450D-01
        ws( 17) = 0.1279437136543366D-01
        ws( 18) = 0.1071643264932639D-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 =  22
        err = 0.5066882102297039D-03
        xs(  1) = 0.1394080970350705D-04
        xs(  2) = 0.7343399460020633D-04
        xs(  3) = 0.1807892156730806D-03
        xs(  4) = 0.3367874460574906D-03
        xs(  5) = 0.5434820780782507D-03
        xs(  6) = 0.8046118552132232D-03
        xs(  7) = 0.1125903897925267D-02
        xs(  8) = 0.1515739336217415D-02
        xs(  9) = 0.1984770555748005D-02
        xs( 10) = 0.2548600919140719D-02
        xs( 11) = 0.3231965509629144D-02
        xs( 12) = 0.4065559523611346D-02
        xs( 13) = 0.5100032104311897D-02
        xs( 14) = 0.6414523020403387D-02
        xs( 15) = 0.8151235046948915D-02
        xs( 16) = 0.1064754975755963D-01
        xs( 17) = 0.1458541945867379D-01
        xs( 18) = 0.2115917564647366D-01
        xs( 19) = 0.3190467151886877D-01
        xs( 20) = 0.4601335141117918D-01
        xs( 21) = 0.6103716942087559D-01
        xs( 22) = 0.7541481403426088D-01
        ws(  1) = 0.3574798382539652D-04
        ws(  2) = 0.8331991903917494D-04
        ws(  3) = 0.1314158365260238D-03
        ws(  4) = 0.1809026425628632D-03
        ws(  5) = 0.2331032497085839D-03
        ws(  6) = 0.2901368792124733D-03
        ws(  7) = 0.3539130659097685D-03
        ws(  8) = 0.4274112178851398D-03
        ws(  9) = 0.5130364681336775D-03
        ws( 10) = 0.6189021516396978D-03
        ws( 11) = 0.7523849609435907D-03
        ws( 12) = 0.9232733324354872D-03
        ws( 13) = 0.1158555516338992D-02
        ws( 14) = 0.1492440321865502D-02
        ws( 15) = 0.2033535290707468D-02
        ws( 16) = 0.3073174828551262D-02
        ws( 17) = 0.4992210854047216D-02
        ws( 18) = 0.8478128913758020D-02
        ws( 19) = 0.1286238851908971D-01
        ws( 20) = 0.1488190849250800D-01
        ws( 21) = 0.1512450486838864D-01
        ws( 22) = 0.1278504853435998D-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 =  25
        err = 0.8501065662043612D-03
        xs(  1) = 0.9571217905195366D-05
        xs(  2) = 0.5033526878404403D-04
        xs(  3) = 0.1236642312416807D-03
        xs(  4) = 0.2295715361574079D-03
        xs(  5) = 0.3687916543083657D-03
        xs(  6) = 0.5426087835937903D-03
        xs(  7) = 0.7530023724833904D-03
        xs(  8) = 0.1002543977056797D-02
        xs(  9) = 0.1295763744267879D-02
        xs( 10) = 0.1637789801815513D-02
        xs( 11) = 0.2035606714097816D-02
        xs( 12) = 0.2497837425798540D-02
        xs( 13) = 0.3035617206617965D-02
        xs( 14) = 0.3673874757805244D-02
        xs( 15) = 0.4433263496511194D-02
        xs( 16) = 0.5331289420436837D-02
        xs( 17) = 0.6441211733634188D-02
        xs( 18) = 0.7869812449563245D-02
        xs( 19) = 0.9742579848323560D-02
        xs( 20) = 0.1245585008517429D-01
        xs( 21) = 0.1680923600222593D-01
        xs( 22) = 0.2433186321495559D-01
        xs( 23) = 0.3708774914180060D-01
        xs( 24) = 0.5389173741901000D-01
        xs( 25) = 0.7099291357177880D-01
        ws(  1) = 0.2451344019994440D-04
        ws(  2) = 0.5707087479470753D-04
        ws(  3) = 0.8963920448445125D-04
        ws(  4) = 0.1224175559627514D-03
        ws(  5) = 0.1562136477050815D-03
        ws(  6) = 0.1917418100812440D-03
        ws(  7) = 0.2293634570625230D-03
        ws(  8) = 0.2706148492197024D-03
        ws(  9) = 0.3166996538394094D-03
        ws( 10) = 0.3685469529392789D-03
        ws( 11) = 0.4286232391686643D-03
        ws( 12) = 0.4972314036464000D-03
        ws( 13) = 0.5830434808378102D-03
        ws( 14) = 0.6971566599893772D-03
        ws( 15) = 0.8229136973484198D-03
        ws( 16) = 0.9851180797129308D-03
        ws( 17) = 0.1254887615750049D-02
        ws( 18) = 0.1615251913283348D-02
        ws( 19) = 0.2198150540976476D-02
        ws( 20) = 0.3353359372065327D-02
        ws( 21) = 0.5603568029587587D-02
        ws( 22) = 0.9868501626030143D-02
        ws( 23) = 0.1544408993878529D-01
        ws( 24) = 0.1755781325858404D-01
        ws( 25) = 0.1523845504617745D-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 =  29
        err = 0.9781556878873309D-03
        xs(  1) = 0.6844251525452524D-05
        xs(  2) = 0.3591343177344083D-04
        xs(  3) = 0.8813023645872512D-04
        xs(  4) = 0.1635093124409888D-03
        xs(  5) = 0.2621731395484327D-03
        xs(  6) = 0.3845895628040649D-03
        xs(  7) = 0.5316075634718323D-03
        xs(  8) = 0.7043926065251155D-03
        xs(  9) = 0.9046712304884380D-03
        xs( 10) = 0.1134746862308598D-02
        xs( 11) = 0.1396923373357113D-02
        xs( 12) = 0.1694540772999600D-02
        xs( 13) = 0.2032276820551526D-02
        xs( 14) = 0.2415955473841334D-02
        xs( 15) = 0.2853308663378509D-02
        xs( 16) = 0.3354154320441873D-02
        xs( 17) = 0.3928918530409481D-02
        xs( 18) = 0.4598234019042778D-02
        xs( 19) = 0.5384631808572021D-02
        xs( 20) = 0.6295169638078670D-02
        xs( 21) = 0.7392549736004998D-02
        xs( 22) = 0.8776397070507621D-02
        xs( 23) = 0.1059149776213625D-01
        xs( 24) = 0.1316302433681384D-01
        xs( 25) = 0.1712388242641719D-01
        xs( 26) = 0.2367701914698235D-01
        xs( 27) = 0.3514693094005992D-01
        xs( 28) = 0.5246648782866995D-01
        xs( 29) = 0.7128906382115523D-01
        ws(  1) = 0.1749787542608307D-04
        ws(  2) = 0.4063373953251633D-04
        ws(  3) = 0.6380801251990481D-04
        ws(  4) = 0.8699090029731849D-04
        ws(  5) = 0.1104705663181534D-03
        ws(  6) = 0.1345191440288005D-03
        ws(  7) = 0.1596673871436374D-03
        ws(  8) = 0.1861363130860201D-03
        ws(  9) = 0.2148802180000952D-03
        ws( 10) = 0.2456556857186723D-03
        ws( 11) = 0.2792393261061521D-03
        ws( 12) = 0.3168274475920566D-03
        ws( 13) = 0.3595306393999384D-03
        ws( 14) = 0.4091363451403140D-03
        ws( 15) = 0.4674884626641724D-03
        ws( 16) = 0.5358012596687112D-03
        ws( 17) = 0.6169736184790569D-03
        ws( 18) = 0.7268640244533956D-03
        ws( 19) = 0.8446576698419027D-03
        ws( 20) = 0.9890181135025853D-03
        ws( 21) = 0.1221478492963124D-02
        ws( 22) = 0.1569367654284606D-02
        ws( 23) = 0.2112086814682154D-02
        ws( 24) = 0.3134147568845672D-02
        ws( 25) = 0.4976925083542701D-02
        ws( 26) = 0.8525833121290290D-02
        ws( 27) = 0.1475991916672309D-01
        ws( 28) = 0.1894523933426371D-01
        ws( 29) = 0.1625156853576865D-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 =  33
        err = 0.8705468346216176D-03
        xs(  1) = 0.5190238284870800D-05
        xs(  2) = 0.2722249136177882D-04
        xs(  3) = 0.6675775575173794D-04
        xs(  4) = 0.1237340547788021D-03
        xs(  5) = 0.1980803883756975D-03
        xs(  6) = 0.2899661048540953D-03
        xs(  7) = 0.3996892470202853D-03
        xs(  8) = 0.5279042654698076D-03
        xs(  9) = 0.6752989031216430D-03
        xs( 10) = 0.8429431685002460D-03
        xs( 11) = 0.1032105451010141D-02
        xs( 12) = 0.1244510863007234D-02
        xs( 13) = 0.1482263543819064D-02
        xs( 14) = 0.1747430313615761D-02
        xs( 15) = 0.2042632554578699D-02
        xs( 16) = 0.2372449592843010D-02
        xs( 17) = 0.2742957351911151D-02
        xs( 18) = 0.3157087164131729D-02
        xs( 19) = 0.3621183098605944D-02
        xs( 20) = 0.4149687784859308D-02
        xs( 21) = 0.4749144090260369D-02
        xs( 22) = 0.5433758679056931D-02
        xs( 23) = 0.6224227211062758D-02
        xs( 24) = 0.7130549617282892D-02
        xs( 25) = 0.8219161625225705D-02
        xs( 26) = 0.9602114242557148D-02
        xs( 27) = 0.1140324086822371D-01
        xs( 28) = 0.1387652720482992D-01
        xs( 29) = 0.1759122301890557D-01
        xs( 30) = 0.2359916861768708D-01
        xs( 31) = 0.3408800748115964D-01
        xs( 32) = 0.5156500563178568D-01
        xs( 33) = 0.7217433567924939D-01
        ws(  1) = 0.1330209815432594D-04
        ws(  2) = 0.3078561309274923D-04
        ws(  3) = 0.4828197106645860D-04
        ws(  4) = 0.6563043809361411D-04
        ws(  5) = 0.8308079417353280D-04
        ws(  6) = 0.1007328656338992D-03
        ws(  7) = 0.1188771067958868D-03
        ws(  8) = 0.1376733875389561D-03
        ws(  9) = 0.1573156056451910D-03
        ws( 10) = 0.1781382083927337D-03
        ws( 11) = 0.2004499331521082D-03
        ws( 12) = 0.2247522022780856D-03
        ws( 13) = 0.2511713626080532D-03
        ws( 14) = 0.2795687402879189D-03
        ws( 15) = 0.3114748533967093D-03
        ws( 16) = 0.3492846619920095D-03
        ws( 17) = 0.3919636372325714D-03
        ws( 18) = 0.4368195564069866D-03
        ws( 19) = 0.4942625957701676D-03
        ws( 20) = 0.5632224492870858D-03
        ws( 21) = 0.6378806607083999D-03
        ws( 22) = 0.7355335942867185D-03
        ws( 23) = 0.8449569216555848D-03
        ws( 24) = 0.9792429746801744D-03
        ws( 25) = 0.1216756222066618D-02
        ws( 26) = 0.1568866181136835D-02
        ws( 27) = 0.2069039834632164D-02
        ws( 28) = 0.2973502257092754D-02
        ws( 29) = 0.4618390556137248D-02
        ws( 30) = 0.7735471993484911D-02
        ws( 31) = 0.1387419839936929D-01
        ws( 32) = 0.2011666659810121D-01
        ws( 33) = 0.1774408793876680D-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 =  38
        err = 0.4221404135083078D-03
        xs(  1) = 0.3961035360713352D-05
        xs(  2) = 0.2082760469352104D-04
        xs(  3) = 0.5112077601421634D-04
        xs(  4) = 0.9481580856375219D-04
        xs(  5) = 0.1518808081600445D-03
        xs(  6) = 0.2223827551585431D-03
        xs(  7) = 0.3064784955111729D-03
        xs(  8) = 0.4044414062744375D-03
        xs(  9) = 0.5166078787988169D-03
        xs( 10) = 0.6435407014821586D-03
        xs( 11) = 0.7858926896399603D-03
        xs( 12) = 0.9445265845455066D-03
        xs( 13) = 0.1120521605860165D-02
        xs( 14) = 0.1315079601718577D-02
        xs( 15) = 0.1529524494298661D-02
        xs( 16) = 0.1765734200859446D-02
        xs( 17) = 0.2026219778976213D-02
        xs( 18) = 0.2313235095898434D-02
        xs( 19) = 0.2629143911539741D-02
        xs( 20) = 0.2978077109893152D-02
        xs( 21) = 0.3364566324894326D-02
        xs( 22) = 0.3793526126040912D-02
        xs( 23) = 0.4270886626622130D-02
        xs( 24) = 0.4804271674076246D-02
        xs( 25) = 0.5406307518139730D-02
        xs( 26) = 0.6087521823950968D-02
        xs( 27) = 0.6866927204576958D-02
        xs( 28) = 0.7766318499725172D-02
        xs( 29) = 0.8801887511767095D-02
        xs( 30) = 0.1005201447319764D-01
        xs( 31) = 0.1163330615889382D-01
        xs( 32) = 0.1368103113083508D-01
        xs( 33) = 0.1645708250332263D-01
        xs( 34) = 0.2055470759415799D-01
        xs( 35) = 0.2714252823696215D-01
        xs( 36) = 0.3842795149393938D-01
        xs( 37) = 0.5660193139550321D-01
        xs( 38) = 0.7836517554173829D-01
        ws(  1) = 0.1015494881281882D-04
        ws(  2) = 0.2357801493808437D-04
        ws(  3) = 0.3700710043983391D-04
        ws(  4) = 0.5036762759993553D-04
        ws(  5) = 0.6377651148828193D-04
        ws(  6) = 0.7725997918492383D-04
        ws(  7) = 0.9096402077636486D-04
        ws(  8) = 0.1050110048429862D-03
        ws(  9) = 0.1194669685356928D-03
        ws( 10) = 0.1344867914684284D-03
        ws( 11) = 0.1503410109811891D-03
        ws( 12) = 0.1671191687699306D-03
        ws( 13) = 0.1850972156218249D-03
        ws( 14) = 0.2042282250267646D-03
        ws( 15) = 0.2249510311529714D-03
        ws( 16) = 0.2479235258825642D-03
        ws( 17) = 0.2734114940328482D-03
        ws( 18) = 0.3009745444388549D-03
        ws( 19) = 0.3315755430091358D-03
        ws( 20) = 0.3670418365002292D-03
        ws( 21) = 0.4066930264503404D-03
        ws( 22) = 0.4521713431667354D-03
        ws( 23) = 0.5035411909258398D-03
        ws( 24) = 0.5655206010406638D-03
        ws( 25) = 0.6398608368855931D-03
        ws( 26) = 0.7254690591084070D-03
        ws( 27) = 0.8379830667224078D-03
        ws( 28) = 0.9609718192099851D-03
        ws( 29) = 0.1124864516706232D-02
        ws( 30) = 0.1394686386907544D-02
        ws( 31) = 0.1789293769643055D-02
        ws( 32) = 0.2345927440526869D-02
        ws( 33) = 0.3302289682577482D-02
        ws( 34) = 0.5078577065178693D-02
        ws( 35) = 0.8457925987274909D-02
        ws( 36) = 0.1463020855540136D-01
        ws( 37) = 0.2096728862840558D-01
        ws( 38) = 0.2002064063662437D-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 =  41
        err = 0.8458536256490767D-03
        xs(  1) = 0.3273393066636611D-05
        xs(  2) = 0.1715277349560291D-04
        xs(  3) = 0.4205370644385489D-04
        xs(  4) = 0.7796821962849154D-04
        xs(  5) = 0.1247359762483287D-03
        xs(  6) = 0.1823982406706538D-03
        xs(  7) = 0.2509843350237504D-03
        xs(  8) = 0.3306318723656800D-03
        xs(  9) = 0.4215078402984072D-03
        xs( 10) = 0.5238778670314541D-03
        xs( 11) = 0.6382079910820793D-03
        xs( 12) = 0.7649024331318308D-03
        xs( 13) = 0.9044808315101020D-03
        xs( 14) = 0.1057873266801233D-02
        xs( 15) = 0.1225910698038375D-02
        xs( 16) = 0.1409221741309835D-02
        xs( 17) = 0.1609077381186611D-02
        xs( 18) = 0.1827243130005463D-02
        xs( 19) = 0.2065500358597157D-02
        xs( 20) = 0.2325285711928012D-02
        xs( 21) = 0.2607952609910454D-02
        xs( 22) = 0.2917163781087682D-02
        xs( 23) = 0.3256457366582924D-02
        xs( 24) = 0.3627923465462569D-02
        xs( 25) = 0.4036052233917502D-02
        xs( 26) = 0.4488370268392138D-02
        xs( 27) = 0.4989500527306779D-02
        xs( 28) = 0.5547070503086317D-02
        xs( 29) = 0.6174432436780308D-02
        xs( 30) = 0.6884752232714399D-02
        xs( 31) = 0.7689373524249623D-02
        xs( 32) = 0.8601505211519112D-02
        xs( 33) = 0.9713195144826079D-02
        xs( 34) = 0.1109747969067365D-01
        xs( 35) = 0.1282490795679280D-01
        xs( 36) = 0.1507129031226293D-01
        xs( 37) = 0.1828178140062752D-01
        xs( 38) = 0.2314271468621915D-01
        xs( 39) = 0.3118144486544066D-01
        xs( 40) = 0.4570087906724699D-01
        xs( 41) = 0.6854925326110481D-01
        ws(  1) = 0.8365330577850488D-05
        ws(  2) = 0.1939578988918328D-04
        ws(  3) = 0.3041931038359044D-04
        ws(  4) = 0.4136914609164371D-04
        ws(  5) = 0.5221193441577915D-04
        ws(  6) = 0.6307737469869641D-04
        ws(  7) = 0.7412265826285795D-04
        ws(  8) = 0.8522850827142291D-04
        ws(  9) = 0.9656247791032675D-04
        ws( 10) = 0.1082590224235287D-03
        ws( 11) = 0.1204069277689122D-03
        ws( 12) = 0.1330659033232844D-03
        ws( 13) = 0.1463445687749241D-03
        ws( 14) = 0.1605671084366143D-03
        ws( 15) = 0.1755693286814246D-03
        ws( 16) = 0.1913072513500554D-03
        ws( 17) = 0.2086862266299154D-03
        ws( 18) = 0.2279088137356660D-03
        ws( 19) = 0.2488257251611879D-03
        ws( 20) = 0.2709320947569956D-03
        ws( 21) = 0.2951695359959563D-03
        ws( 22) = 0.3238295835028301D-03
        ws( 23) = 0.3548658964122543D-03
        ws( 24) = 0.3888087859041087D-03
        ws( 25) = 0.4290322851334823D-03
        ws( 26) = 0.4762190679053995D-03
        ws( 27) = 0.5270479670815331D-03
        ws( 28) = 0.5906740906668803D-03
        ws( 29) = 0.6659093718166218D-03
        ws( 30) = 0.7575765071369224D-03
        ws( 31) = 0.8502113481526692D-03
        ws( 32) = 0.9935106832552588D-03
        ws( 33) = 0.1239464339023302D-02
        ws( 34) = 0.1541212779373620D-02
        ws( 35) = 0.1936174278670545D-02
        ws( 36) = 0.2636785868976165D-02
        ws( 37) = 0.3886557358710262D-02
        ws( 38) = 0.6076277097839920D-02
        ws( 39) = 0.1053459574879933D-01
        ws( 40) = 0.1918784038854699D-01
        ws( 41) = 0.2347305030591639D-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 =  45
        err = 0.8695336802828670D-03
        xs(  1) = 0.2668288832213383D-05
        xs(  2) = 0.1408479601271631D-04
        xs(  3) = 0.3457506842872940D-04
        xs(  4) = 0.6408852954006618D-04
        xs(  5) = 0.1025845494920382D-03
        xs(  6) = 0.1500465769723180D-03
        xs(  7) = 0.2064423786795050D-03
        xs(  8) = 0.2718391367769944D-03
        xs(  9) = 0.3462978703547364D-03
        xs( 10) = 0.4300378536554700D-03
        xs( 11) = 0.5232770552301543D-03
        xs( 12) = 0.6262734158017317D-03
        xs( 13) = 0.7392619221356176D-03
        xs( 14) = 0.8628346862217984D-03
        xs( 15) = 0.9975535354137383D-03
        xs( 16) = 0.1143817799457452D-02
        xs( 17) = 0.1302136573247068D-02
        xs( 18) = 0.1473588812188499D-02
        xs( 19) = 0.1659335527128754D-02
        xs( 20) = 0.1860343713716295D-02
        xs( 21) = 0.2077564095308149D-02
        xs( 22) = 0.2312083374953260D-02
        xs( 23) = 0.2566368364981770D-02
        xs( 24) = 0.2842546721804275D-02
        xs( 25) = 0.3140585931517422D-02
        xs( 26) = 0.3464052554846229D-02
        xs( 27) = 0.3818656848158480D-02
        xs( 28) = 0.4204119466511819D-02
        xs( 29) = 0.4626103057240165D-02
        xs( 30) = 0.5090768026629029D-02
        xs( 31) = 0.5605280010333498D-02
        xs( 32) = 0.6177671782273794D-02
        xs( 33) = 0.6814380757734450D-02
        xs( 34) = 0.7529061519943828D-02
        xs( 35) = 0.8334816724396506D-02
        xs( 36) = 0.9261876317341034D-02
        xs( 37) = 0.1038966249778098D-01
        xs( 38) = 0.1176107536272608D-01
        xs( 39) = 0.1345492833398370D-01
        xs( 40) = 0.1565876753931273D-01
        xs( 41) = 0.1879021800027772D-01
        xs( 42) = 0.2353310088277486D-01
        xs( 43) = 0.3129818727182058D-01
        xs( 44) = 0.4530808406973588D-01
        xs( 45) = 0.6872939334523741D-01
        ws(  1) = 0.6832465884964939D-05
        ws(  2) = 0.1599333631171684D-04
        ws(  3) = 0.2499379543624056D-04
        ws(  4) = 0.3400885396758828D-04
        ws(  5) = 0.4296499926331788D-04
        ws(  6) = 0.5192373623568240D-04
        ws(  7) = 0.6094009754527632D-04
        ws(  8) = 0.6989505811935251D-04
        ws(  9) = 0.7902381045475694D-04
        ws( 10) = 0.8842083180096626D-04
        ws( 11) = 0.9812409489542297D-04
        ws( 12) = 0.1079474656174333D-03
        ws( 13) = 0.1181490193596191D-03
        ws( 14) = 0.1289902452028479D-03
        ws( 15) = 0.1404605244416046D-03
        ws( 16) = 0.1522130536149837D-03
        ws( 17) = 0.1646252650954633D-03
        ws( 18) = 0.1783839061932012D-03
        ws( 19) = 0.1932803738394385D-03
        ws( 20) = 0.2089845679005908D-03
        ws( 21) = 0.2254829965750674D-03
        ws( 22) = 0.2440035608328739D-03
        ws( 23) = 0.2650786032442855D-03
        ws( 24) = 0.2870632991398552D-03
        ws( 25) = 0.3095556752081808D-03
        ws( 26) = 0.3387195385803645D-03
        ws( 27) = 0.3699395760579748D-03
        ws( 28) = 0.4022337984406472D-03
        ws( 29) = 0.4426771971907094D-03
        ws( 30) = 0.4879814152373141D-03
        ws( 31) = 0.5422933189380093D-03
        ws( 32) = 0.6034353455858658D-03
        ws( 33) = 0.6720994516079912D-03
        ws( 34) = 0.7599562465968801D-03
        ws( 35) = 0.8541232039037127D-03
        ws( 36) = 0.1016821659466964D-02
        ws( 37) = 0.1243090015894405D-02
        ws( 38) = 0.1513279219346091D-02
        ws( 39) = 0.1901107432783107D-02
        ws( 40) = 0.2578601934063270D-02
        ws( 41) = 0.3789812124432907D-02
        ws( 42) = 0.5909648251972998D-02
        ws( 43) = 0.1012902138641325D-01
        ws( 44) = 0.1876937237054837D-01
        ws( 45) = 0.2514726965164692D-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 =  49
        err = 0.9401458577481533D-03
        xs(  1) = 0.2283564113293056D-05
        xs(  2) = 0.1193425225043158D-04
        xs(  3) = 0.2917684518350241D-04
        xs(  4) = 0.5408564709817481D-04
        xs(  5) = 0.8649287795678315D-04
        xs(  6) = 0.1263678432668245D-03
        xs(  7) = 0.1737536707830884D-03
        xs(  8) = 0.2285479862079465D-03
        xs(  9) = 0.2909660357339247D-03
        xs( 10) = 0.3608753261164590D-03
        xs( 11) = 0.4386630075735826D-03
        xs( 12) = 0.5243650161480100D-03
        xs( 13) = 0.6181414931552752D-03
        xs( 14) = 0.7201369770879014D-03
        xs( 15) = 0.8310166352269229D-03
        xs( 16) = 0.9510658895848783D-03
        xs( 17) = 0.1080396049904546D-02
        xs( 18) = 0.1219549357032602D-02
        xs( 19) = 0.1369409072142560D-02
        xs( 20) = 0.1530697631284807D-02
        xs( 21) = 0.1703962794217379D-02
        xs( 22) = 0.1889814842774239D-02
        xs( 23) = 0.2088994039169523D-02
        xs( 24) = 0.2303462977240008D-02
        xs( 25) = 0.2534520487822466D-02
        xs( 26) = 0.2782547354697989D-02
        xs( 27) = 0.3049038215548168D-02
        xs( 28) = 0.3337079029828006D-02
        xs( 29) = 0.3646874970017629D-02
        xs( 30) = 0.3981254076844093D-02
        xs( 31) = 0.4346176230296012D-02
        xs( 32) = 0.4742105062741015D-02
        xs( 33) = 0.5176462006271939D-02
        xs( 34) = 0.5654718000490143D-02
        xs( 35) = 0.6175087556844261D-02
        xs( 36) = 0.6746832550663265D-02
        xs( 37) = 0.7383378362298691D-02
        xs( 38) = 0.8096225965035831D-02
        xs( 39) = 0.8888896638522397D-02
        xs( 40) = 0.9829125913029840D-02
        xs( 41) = 0.1096633570999927D-01
        xs( 42) = 0.1232307803664699D-01
        xs( 43) = 0.1400415527599475D-01
        xs( 44) = 0.1619902389145398D-01
        xs( 45) = 0.1924351145687021D-01
        xs( 46) = 0.2373864301812024D-01
        xs( 47) = 0.3089319839596456D-01
        xs( 48) = 0.4361009649992218D-01
        xs( 49) = 0.6672639922764267D-01
        ws(  1) = 0.5800524237483166D-05
        ws(  2) = 0.1346982409728045D-04
        ws(  3) = 0.2108685054437665D-04
        ws(  4) = 0.2862749282530642D-04
        ws(  5) = 0.3614885052345984D-04
        ws(  6) = 0.4373901942110195D-04
        ws(  7) = 0.5103484726657321D-04
        ws(  8) = 0.5856898630385314D-04
        ws(  9) = 0.6610673592097826D-04
        ws( 10) = 0.7385864168892665D-04
        ws( 11) = 0.8171026856442520D-04
        ws( 12) = 0.8966953996902424D-04
        ws( 13) = 0.9789103659610224D-04
        ws( 14) = 0.1062872980094009D-03
        ws( 15) = 0.1153910071672996D-03
        ws( 16) = 0.1247094846716606D-03
        ws( 17) = 0.1340915883204512D-03
        ws( 18) = 0.1443390762650299D-03
        ws( 19) = 0.1555220306986859D-03
        ws( 20) = 0.1670830274702692D-03
        ws( 21) = 0.1795821521049522D-03
        ws( 22) = 0.1922337069358677D-03
        ws( 23) = 0.2064819383206265D-03
        ws( 24) = 0.2227483694401166D-03
        ws( 25) = 0.2394086973057803D-03
        ws( 26) = 0.2568705392395987D-03
        ws( 27) = 0.2768286814005600D-03
        ws( 28) = 0.2991806715439704D-03
        ws( 29) = 0.3207666253044153D-03
        ws( 30) = 0.3494839970988300D-03
        ws( 31) = 0.3798844614592639D-03
        ws( 32) = 0.4136660052471501D-03
        ws( 33) = 0.4559555367844107D-03
        ws( 34) = 0.4999915443589649D-03
        ws( 35) = 0.5425550541649342D-03
        ws( 36) = 0.6032744315334325D-03
        ws( 37) = 0.6724856591921165D-03
        ws( 38) = 0.7506211395680432D-03
        ws( 39) = 0.8490333783323460D-03
        ws( 40) = 0.1038821232181394D-02
        ws( 41) = 0.1236744784343821D-02
        ws( 42) = 0.1495030676967339D-02
        ws( 43) = 0.1896108910448478D-02
        ws( 44) = 0.2548842992307808D-02
        ws( 45) = 0.3637546715056010D-02
        ws( 46) = 0.5530274077299473D-02
        ws( 47) = 0.9242225845251681D-02
        ws( 48) = 0.1721267083072566D-01
        ws( 49) = 0.2712575628619051D-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 =  54
        err = 0.6322279691507252D-03
        xs(  1) = 0.1854196020457624D-05
        xs(  2) = 0.9953865589324658D-05
        xs(  3) = 0.2453373531695742D-04
        xs(  4) = 0.4545483763726452D-04
        xs(  5) = 0.7279673064927588D-04
        xs(  6) = 0.1064088394432499D-03
        xs(  7) = 0.1463802875129320D-03
        xs(  8) = 0.1926440494257352D-03
        xs(  9) = 0.2452243339846388D-03
        xs( 10) = 0.3042133525716986D-03
        xs( 11) = 0.3695985688473755D-03
        xs( 12) = 0.4415514521265227D-03
        xs( 13) = 0.5201741982590919D-03
        xs( 14) = 0.6056762202876867D-03
        xs( 15) = 0.6982135086827814D-03
        xs( 16) = 0.7980500522430477D-03
        xs( 17) = 0.9054139948702171D-03
        xs( 18) = 0.1020600320077100D-02
        xs( 19) = 0.1143977142964311D-02
        xs( 20) = 0.1276044401610569D-02
        xs( 21) = 0.1417297044721761D-02
        xs( 22) = 0.1568197275787848D-02
        xs( 23) = 0.1729212494217810D-02
        xs( 24) = 0.1901171731718226D-02
        xs( 25) = 0.2084791281061912D-02
        xs( 26) = 0.2280698463128663D-02
        xs( 27) = 0.2490174378170664D-02
        xs( 28) = 0.2714062971236144D-02
        xs( 29) = 0.2953556561870082D-02
        xs( 30) = 0.3210330692872028D-02
        xs( 31) = 0.3485347515940770D-02
        xs( 32) = 0.3779628071355663D-02
        xs( 33) = 0.4096624825460761D-02
        xs( 34) = 0.4438555739120748D-02
        xs( 35) = 0.4808026997218403D-02
        xs( 36) = 0.5208916528292604D-02
        xs( 37) = 0.5644200031582472D-02
        xs( 38) = 0.6118882929451077D-02
        xs( 39) = 0.6639118638154511D-02
        xs( 40) = 0.7208514124157463D-02
        xs( 41) = 0.7834576025947946D-02
        xs( 42) = 0.8525396233248215D-02
        xs( 43) = 0.9305885963427666D-02
        xs( 44) = 0.1019252108643082D-01
        xs( 45) = 0.1122754608161036D-01
        xs( 46) = 0.1248419700278655D-01
        xs( 47) = 0.1399202827060804D-01
        xs( 48) = 0.1585330605426117D-01
        xs( 49) = 0.1825296433470281D-01
        xs( 50) = 0.2158908349824841D-01
        xs( 51) = 0.2649294462638980D-01
        xs( 52) = 0.3410217398785854D-01
        xs( 53) = 0.4737410782289836D-01
        xs( 54) = 0.7139170475187652D-01
        ws(  1) = 0.4849341186170639D-05
        ws(  2) = 0.1130475031504638D-04
        ws(  3) = 0.1773576822077584D-04
        ws(  4) = 0.2416452748610023D-04
        ws(  5) = 0.3056522850576287D-04
        ws(  6) = 0.3673298965355056D-04
        ws(  7) = 0.4309787165309675D-04
        ws(  8) = 0.4942941617739226D-04
        ws(  9) = 0.5578285882864755D-04
        ws( 10) = 0.6218158511511681D-04
        ws( 11) = 0.6861062899174066D-04
        ws( 12) = 0.7531490130847397D-04
        ws( 13) = 0.8201658689678873D-04
        ws( 14) = 0.8896929501640420D-04
        ws( 15) = 0.9614367407938444D-04
        ws( 16) = 0.1035697191051757D-03
        ws( 17) = 0.1112138057360930D-03
        ws( 18) = 0.1192161922721085D-03
        ws( 19) = 0.1276345473128799D-03
        ws( 20) = 0.1365511635437418D-03
        ws( 21) = 0.1460327527578065D-03
        ws( 22) = 0.1558330521938788D-03
        ws( 23) = 0.1663511103122293D-03
        ws( 24) = 0.1777097783663751D-03
        ws( 25) = 0.1895681172727441D-03
        ws( 26) = 0.2025504642814454D-03
        ws( 27) = 0.2165459025116107D-03
        ws( 28) = 0.2313956214740568D-03
        ws( 29) = 0.2479574808028020D-03
        ws( 30) = 0.2658054510453625D-03
        ws( 31) = 0.2843095280908193D-03
        ws( 32) = 0.3049851711165972D-03
        ws( 33) = 0.3293327428738875D-03
        ws( 34) = 0.3549282118827168D-03
        ws( 35) = 0.3846270243258591D-03
        ws( 36) = 0.4176066630110184D-03
        ws( 37) = 0.4535156981965848D-03
        ws( 38) = 0.4972833902155526D-03
        ws( 39) = 0.5430457968481226D-03
        ws( 40) = 0.5977449410398023D-03
        ws( 41) = 0.6545028471682432D-03
        ws( 42) = 0.7322093472304476D-03
        ws( 43) = 0.8309476518096626D-03
        ws( 44) = 0.9479330980656691D-03
        ws( 45) = 0.1137314178077619D-02
        ws( 46) = 0.1377073215030434D-02
        ws( 47) = 0.1656120561546869D-02
        ws( 48) = 0.2092431036328511D-02
        ws( 49) = 0.2777386934503635D-02
        ws( 50) = 0.3993495559784803D-02
        ws( 51) = 0.5976809400027243D-02
        ws( 52) = 0.9710474346558777D-02
        ws( 53) = 0.1791370233252040D-01
        ws( 54) = 0.2793216856615001D-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 =  58
        err = 0.5365747124867846D-03
        xs(  1) = 0.1657598789559571D-05
        xs(  2) = 0.8669770789196154D-05
        xs(  3) = 0.2129348789018915D-04
        xs(  4) = 0.3944284819704844D-04
        xs(  5) = 0.6313101397468309D-04
        xs(  6) = 0.9224973327131333D-04
        xs(  7) = 0.1268437953926759D-03
        xs(  8) = 0.1668477078324348D-03
        xs(  9) = 0.2122664781149290D-03
        xs( 10) = 0.2631670729524438D-03
        xs( 11) = 0.3195133682450676D-03
        xs( 12) = 0.3814311051510513D-03
        xs( 13) = 0.4490103300967517D-03
        xs( 14) = 0.5223121926985062D-03
        xs( 15) = 0.6015015770967161D-03
        xs( 16) = 0.6867155522199455D-03
        xs( 17) = 0.7781811091034542D-03
        xs( 18) = 0.8760343179903123D-03
        xs( 19) = 0.9805432700196106D-03
        xs( 20) = 0.1091956717092328D-02
        xs( 21) = 0.1210626181273341D-02
        xs( 22) = 0.1337009089931625D-02
        xs( 23) = 0.1471439947934021D-02
        xs( 24) = 0.1614156855420341D-02
        xs( 25) = 0.1765764246105119D-02
        xs( 26) = 0.1926833205117616D-02
        xs( 27) = 0.2098045462539694D-02
        xs( 28) = 0.2280110434491377D-02
        xs( 29) = 0.2473508240183197D-02
        xs( 30) = 0.2679267468410069D-02
        xs( 31) = 0.2898251331661616D-02
        xs( 32) = 0.3131602758969951D-02
        xs( 33) = 0.3379908414752519D-02
        xs( 34) = 0.3644706684483078D-02
        xs( 35) = 0.3928189889237520D-02
        xs( 36) = 0.4231853594328108D-02
        xs( 37) = 0.4558429055574898D-02
        xs( 38) = 0.4908676428087954D-02
        xs( 39) = 0.5285295823657949D-02
        xs( 40) = 0.5693850967656790D-02
        xs( 41) = 0.6135472990472403D-02
        xs( 42) = 0.6613369613271969D-02
        xs( 43) = 0.7137934267724432D-02
        xs( 44) = 0.7712157131979265D-02
        xs( 45) = 0.8343009282907911D-02
        xs( 46) = 0.9041054922965034D-02
        xs( 47) = 0.9821611473660724D-02
        xs( 48) = 0.1069890301006148D-01
        xs( 49) = 0.1173337703747237D-01
        xs( 50) = 0.1298625704297193D-01
        xs( 51) = 0.1446606412921667D-01
        xs( 52) = 0.1626127986749705D-01
        xs( 53) = 0.1857366795553948D-01
        xs( 54) = 0.2175992247804657D-01
        xs( 55) = 0.2637453857693155D-01
        xs( 56) = 0.3350646157543221D-01
        xs( 57) = 0.4592061270877227D-01
        xs( 58) = 0.6956824121451809D-01
        ws(  1) = 0.4236173773709442D-05
        ws(  2) = 0.9803343373412836D-05
        ws(  3) = 0.1537965798670645D-04
        ws(  4) = 0.2092848616563338D-04
        ws(  5) = 0.2647329363042609D-04
        ws(  6) = 0.3180710182818495D-04
        ws(  7) = 0.3732634218806759D-04
        ws(  8) = 0.4267145197800267D-04
        ws(  9) = 0.4817305280409524D-04
        ws( 10) = 0.5361771912012336D-04
        ws( 11) = 0.5912200305663668D-04
        ws( 12) = 0.6474831412533430D-04
        ws( 13) = 0.7038913377527613D-04
        ws( 14) = 0.7623320114467920D-04
        ws( 15) = 0.8216343559683794D-04
        ws( 16) = 0.8832468889100581D-04
        ws( 17) = 0.9461403350461960D-04
        ws( 18) = 0.1011308062234938D-03
        ws( 19) = 0.1079245577424591D-03
        ws( 20) = 0.1149645161552675D-03
        ws( 21) = 0.1224564057529010D-03
        ws( 22) = 0.1303547956213378D-03
        ws( 23) = 0.1385189654630768D-03
        ws( 24) = 0.1470477207486111D-03
        ws( 25) = 0.1562550429354074D-03
        ws( 26) = 0.1659861995349061D-03
        ws( 27) = 0.1765536932414948D-03
        ws( 28) = 0.1876169458770543D-03
        ws( 29) = 0.1993637893340908D-03
        ws( 30) = 0.2122699491225585D-03
        ws( 31) = 0.2259550350064232D-03
        ws( 32) = 0.2408061593580557D-03
        ws( 33) = 0.2560201900451132D-03
        ws( 34) = 0.2740419195044057D-03
        ws( 35) = 0.2930503530654273D-03
        ws( 36) = 0.3149005454586355D-03
        ws( 37) = 0.3381359023084369D-03
        ws( 38) = 0.3627855475417205D-03
        ws( 39) = 0.3915393084393937D-03
        ws( 40) = 0.4257381099310310D-03
        ws( 41) = 0.4576694718812709D-03
        ws( 42) = 0.5004703440078959D-03
        ws( 43) = 0.5486894320110873D-03
        ws( 44) = 0.6011917184927298D-03
        ws( 45) = 0.6621305536446347D-03
        ws( 46) = 0.7373134103414463D-03
        ws( 47) = 0.8246438242952008D-03
        ws( 48) = 0.9412368953298765D-03
        ws( 49) = 0.1139784873517205D-02
        ws( 50) = 0.1363785271767632D-02
        ws( 51) = 0.1611194755140754D-02
        ws( 52) = 0.2010766858332778D-02
        ws( 53) = 0.2675971083681755D-02
        ws( 54) = 0.3780790740734738D-02
        ws( 55) = 0.5609756294820574D-02
        ws( 56) = 0.9098853807750471D-02
        ws( 57) = 0.1677914886915699D-01
        ws( 58) = 0.2959022117084474D-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 =  62
        err = 0.8604219035423037D-03
        xs(  1) = 0.1475455822560989D-05
        xs(  2) = 0.7573715335132128D-05
        xs(  3) = 0.1855897699916524D-04
        xs(  4) = 0.3435146841677227D-04
        xs(  5) = 0.5492675451369163D-04
        xs(  6) = 0.8032106596076690D-04
        xs(  7) = 0.1103837392540082D-03
        xs(  8) = 0.1451785020955438D-03
        xs(  9) = 0.1846786780251826D-03
        xs( 10) = 0.2288934028241023D-03
        xs( 11) = 0.2778261431656945D-03
        xs( 12) = 0.3315465106448430D-03
        xs( 13) = 0.3900883388036524D-03
        xs( 14) = 0.4535561761193612D-03
        xs( 15) = 0.5219720442969673D-03
        xs( 16) = 0.5954667938535342D-03
        xs( 17) = 0.6742324756571833D-03
        xs( 18) = 0.7583626807965464D-03
        xs( 19) = 0.8479911942448213D-03
        xs( 20) = 0.9432669050640444D-03
        xs( 21) = 0.1044462992050103D-02
        xs( 22) = 0.1151903707198616D-02
        xs( 23) = 0.1265827506782110D-02
        xs( 24) = 0.1386491411876317D-02
        xs( 25) = 0.1514086899233955D-02
        xs( 26) = 0.1649081736131193D-02
        xs( 27) = 0.1791997300022010D-02
        xs( 28) = 0.1943271756959028D-02
        xs( 29) = 0.2103321096840316D-02
        xs( 30) = 0.2272424280885171D-02
        xs( 31) = 0.2451476183842551D-02
        xs( 32) = 0.2641308527870363D-02
        xs( 33) = 0.2842457036728428D-02
        xs( 34) = 0.3055469324490242D-02
        xs( 35) = 0.3281260330881197D-02
        xs( 36) = 0.3521303671894272D-02
        xs( 37) = 0.3776880147869912D-02
        xs( 38) = 0.4049360383138529D-02
        xs( 39) = 0.4339044231122264D-02
        xs( 40) = 0.4648242291109350D-02
        xs( 41) = 0.4980043030785420D-02
        xs( 42) = 0.5334596382106292D-02
        xs( 43) = 0.5713988315638751D-02
        xs( 44) = 0.6127498988813051D-02
        xs( 45) = 0.6572225731361309D-02
        xs( 46) = 0.7053466198205312D-02
        xs( 47) = 0.7582166169981595D-02
        xs( 48) = 0.8155338875394297D-02
        xs( 49) = 0.8769119167149120D-02
        xs( 50) = 0.9453261468790223D-02
        xs( 51) = 0.1021515606790660D-01
        xs( 52) = 0.1106999056337817D-01
        xs( 53) = 0.1209577787192305D-01
        xs( 54) = 0.1333329424776160D-01
        xs( 55) = 0.1476208920162911D-01
        xs( 56) = 0.1650699353393311D-01
        xs( 57) = 0.1878280836105843D-01
        xs( 58) = 0.2190648328096360D-01
        xs( 59) = 0.2634604870067874D-01
        xs( 60) = 0.3303272929247476D-01
        xs( 61) = 0.4442906309156135D-01
        xs( 62) = 0.6683338759554738D-01
        ws(  1) = 0.3712645858316154D-05
        ws(  2) = 0.8500775350528324D-05
        ws(  3) = 0.1343229758760266D-04
        ws(  4) = 0.1826711085648344D-04
        ws(  5) = 0.2290530493701286D-04
        ws(  6) = 0.2770214162203052D-04
        ws(  7) = 0.3245679047257495D-04
        ws(  8) = 0.3717399412245942D-04
        ws(  9) = 0.4184217156350509D-04
        ws( 10) = 0.4659097590061953D-04
        ws( 11) = 0.5128234282626035D-04
        ws( 12) = 0.5612823577356852D-04
        ws( 13) = 0.6096417912137579D-04
        ws( 14) = 0.6596156791340016D-04
        ws( 15) = 0.7091277533526221D-04
        ws( 16) = 0.7609422159134770D-04
        ws( 17) = 0.8144106866494266D-04
        ws( 18) = 0.8686225660621244D-04
        ws( 19) = 0.9241511059763271D-04
        ws( 20) = 0.9816075201147509D-04
        ws( 21) = 0.1042741579398948D-03
        ws( 22) = 0.1106370268033685D-03
        ws( 23) = 0.1172872068031580D-03
        ws( 24) = 0.1240330819555018D-03
        ws( 25) = 0.1312580946119322D-03
        ws( 26) = 0.1388555006336991D-03
        ws( 27) = 0.1470196000711462D-03
        ws( 28) = 0.1556300371382064D-03
        ws( 29) = 0.1644673286225096D-03
        ws( 30) = 0.1738909649576577D-03
        ws( 31) = 0.1843408116554115D-03
        ws( 32) = 0.1953834340409539D-03
        ws( 33) = 0.2069885433810862D-03
        ws( 34) = 0.2190772426130041D-03
        ws( 35) = 0.2327257545899692D-03
        ws( 36) = 0.2475562780081074D-03
        ws( 37) = 0.2638185695061119D-03
        ws( 38) = 0.2809315825756687D-03
        ws( 39) = 0.2988676846146143D-03
        ws( 40) = 0.3201501256886825D-03
        ws( 41) = 0.3435876307075296D-03
        ws( 42) = 0.3654981592330338D-03
        ws( 43) = 0.3956995396936016D-03
        ws( 44) = 0.4301338173384036D-03
        ws( 45) = 0.4606332399139159D-03
        ws( 46) = 0.5043578667718086D-03
        ws( 47) = 0.5526850713195205D-03
        ws( 48) = 0.5919840991119790D-03
        ws( 49) = 0.6425096147098425D-03
        ws( 50) = 0.7260049175013322D-03
        ws( 51) = 0.7993477780537591D-03
        ws( 52) = 0.9250772112698113D-03
        ws( 53) = 0.1135361339449848D-02
        ws( 54) = 0.1330030624477611D-02
        ws( 55) = 0.1550277279276966D-02
        ws( 56) = 0.1975093181455646D-02
        ws( 57) = 0.2629011532315650D-02
        ws( 58) = 0.3688689494093309D-02
        ws( 59) = 0.5329076683330909D-02
        ws( 60) = 0.8443444567365087D-02
        ws( 61) = 0.1527015958935257D-01
        ws( 62) = 0.3003875074623479D-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 =  66
        err = 0.9391648310574390D-03
        xs(  1) = 0.1321578670284460D-05
        xs(  2) = 0.6653795850059960D-05
        xs(  3) = 0.1630369753116541D-04
        xs(  4) = 0.3014577877153633D-04
        xs(  5) = 0.4828219595766410D-04
        xs(  6) = 0.7052460079033081D-04
        xs(  7) = 0.9694565471685335D-04
        xs(  8) = 0.1275780138657814D-03
        xs(  9) = 0.1622610454564099D-03
        xs( 10) = 0.2011108223024720D-03
        xs( 11) = 0.2440835453634082D-03
        xs( 12) = 0.2912127805664193D-03
        xs( 13) = 0.3425372908981494D-03
        xs( 14) = 0.3981111684563539D-03
        xs( 15) = 0.4580086973438699D-03
        xs( 16) = 0.5222238574100946D-03
        xs( 17) = 0.5908987046139529D-03
        xs( 18) = 0.6641708039486243D-03
        xs( 19) = 0.7421556930020015D-03
        xs( 20) = 0.8248898376467547D-03
        xs( 21) = 0.9125082722896057D-03
        xs( 22) = 0.1005284525307566D-02
        xs( 23) = 0.1103454934153545D-02
        xs( 24) = 0.1207201811467779D-02
        xs( 25) = 0.1316610832416007D-02
        xs( 26) = 0.1432005578228260D-02
        xs( 27) = 0.1553689089089291D-02
        xs( 28) = 0.1682030358675432D-02
        xs( 29) = 0.1817287046557670D-02
        xs( 30) = 0.1959941640939498D-02
        xs( 31) = 0.2110233734823723D-02
        xs( 32) = 0.2268415139264192D-02
        xs( 33) = 0.2435607291287358D-02
        xs( 34) = 0.2612191275896808D-02
        xs( 35) = 0.2797840893895938D-02
        xs( 36) = 0.2994100631144348D-02
        xs( 37) = 0.3202078949326385D-02
        xs( 38) = 0.3421632730296627D-02
        xs( 39) = 0.3653828572705052D-02
        xs( 40) = 0.3900546284632712D-02
        xs( 41) = 0.4161739200612159D-02
        xs( 42) = 0.4439711339589455D-02
        xs( 43) = 0.4735190373416949D-02
        xs( 44) = 0.5049137630203213D-02
        xs( 45) = 0.5385777640343661D-02
        xs( 46) = 0.5744807713496433D-02
        xs( 47) = 0.6129843857414468D-02
        xs( 48) = 0.6547045723044765D-02
        xs( 49) = 0.6993108724349577D-02
        xs( 50) = 0.7479269313032342D-02
        xs( 51) = 0.8006733152628525D-02
        xs( 52) = 0.8570382407144816D-02
        xs( 53) = 0.9181209820533930D-02
        xs( 54) = 0.9855992874935719D-02
        xs( 55) = 0.1061939253315216D-01
        xs( 56) = 0.1150040642305422D-01
        xs( 57) = 0.1254988195171134D-01
        xs( 58) = 0.1378357888559634D-01
        xs( 59) = 0.1520571475132000D-01
        xs( 60) = 0.1697653187655463D-01
        xs( 61) = 0.1924144546357148D-01
        xs( 62) = 0.2230615725662484D-01
        xs( 63) = 0.2657701495333876D-01
        xs( 64) = 0.3295436961376191D-01
        xs( 65) = 0.4394507929711542D-01
        xs( 66) = 0.6618884091793625D-01
        ws(  1) = 0.3274893039994405D-05
        ws(  2) = 0.7507357729115231D-05
        ws(  3) = 0.1172885809968006D-04
        ws(  4) = 0.1601718005207491D-04
        ws(  5) = 0.2014649533919833D-04
        ws(  6) = 0.2440107105995825D-04
        ws(  7) = 0.2851866334637997D-04
        ws(  8) = 0.3256484765385987D-04
        ws(  9) = 0.3689503799567263D-04
        ws( 10) = 0.4090990982344947D-04
        ws( 11) = 0.4497455883252785D-04
        ws( 12) = 0.4922477222646000D-04
        ws( 13) = 0.5342693438525668D-04
        ws( 14) = 0.5774624083144191D-04
        ws( 15) = 0.6205885070703849D-04
        ws( 16) = 0.6644154094963981D-04
        ws( 17) = 0.7092559025568178D-04
        ws( 18) = 0.7561284095872314D-04
        ws( 19) = 0.8037752712695841D-04
        ws( 20) = 0.8513911877500746D-04
        ws( 21) = 0.9011950911522312D-04
        ws( 22) = 0.9544929542756272D-04
        ws( 23) = 0.1009539933938421D-03
        ws( 24) = 0.1065740781882973D-03
        ws( 25) = 0.1123437076916397D-03
        ws( 26) = 0.1185008654906739D-03
        ws( 27) = 0.1249919206380127D-03
        ws( 28) = 0.1317081720994800D-03
        ws( 29) = 0.1389147407893498D-03
        ws( 30) = 0.1464619369982071D-03
        ws( 31) = 0.1541505268242406D-03
        ws( 32) = 0.1625137456274999D-03
        ws( 33) = 0.1719674681618603D-03
        ws( 34) = 0.1810475845381124D-03
        ws( 35) = 0.1905995163534692D-03
        ws( 36) = 0.2021283700771595D-03
        ws( 37) = 0.2137381203445537D-03
        ws( 38) = 0.2254314960767412D-03
        ws( 39) = 0.2392698839436946D-03
        ws( 40) = 0.2540020987238722D-03
        ws( 41) = 0.2689735327209513D-03
        ws( 42) = 0.2870726384804236D-03
        ws( 43) = 0.3037976445495104D-03
        ws( 44) = 0.3249195154036013D-03
        ws( 45) = 0.3479318158475481D-03
        ws( 46) = 0.3706254966527550D-03
        ws( 47) = 0.4011704126201357D-03
        ws( 48) = 0.4314499554150533D-03
        ws( 49) = 0.4634637502199428D-03
        ws( 50) = 0.5086232267375456D-03
        ws( 51) = 0.5446924683681507D-03
        ws( 52) = 0.5849561240399525D-03
        ws( 53) = 0.6390057317577046D-03
        ws( 54) = 0.7148665785073548D-03
        ws( 55) = 0.8161556609655522D-03
        ws( 56) = 0.9544326837493941D-03
        ws( 57) = 0.1148287946564430D-02
        ws( 58) = 0.1313520137646827D-02
        ws( 59) = 0.1565990347498285D-02
        ws( 60) = 0.1994049127158470D-02
        ws( 61) = 0.2594538115544800D-02
        ws( 62) = 0.3593410020054921D-02
        ws( 63) = 0.5080233235976431D-02
        ws( 64) = 0.8094208441962712D-02
        ws( 65) = 0.1480369665694679D-01
        ws( 66) = 0.3099760691511207D-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 =  71
        err = 0.6047887828274755D-03
        xs(  1) = 0.1104239266035119D-05
        xs(  2) = 0.5836527170782056D-05
        xs(  3) = 0.1435643663765123D-04
        xs(  4) = 0.2663792817156013D-04
        xs(  5) = 0.4261276790330266D-04
        xs(  6) = 0.6233036299654586D-04
        xs(  7) = 0.8568708900069066D-04
        xs(  8) = 0.1127068613846619D-03
        xs(  9) = 0.1433750046560813D-03
        xs( 10) = 0.1776752814873941D-03
        xs( 11) = 0.2156281389994032D-03
        xs( 12) = 0.2571957542525142D-03
        xs( 13) = 0.3024789200685446D-03
        xs( 14) = 0.3514284821191454D-03
        xs( 15) = 0.4041244817895348D-03
        xs( 16) = 0.4605745618659322D-03
        xs( 17) = 0.5209131085003467D-03
        xs( 18) = 0.5852010575117073D-03
        xs( 19) = 0.6535127259122950D-03
        xs( 20) = 0.7258537015147223D-03
        xs( 21) = 0.8023780473659433D-03
        xs( 22) = 0.8832192454325677D-03
        xs( 23) = 0.9685909643742203D-03
        xs( 24) = 0.1058610118295106D-02
        xs( 25) = 0.1153377663996349D-02
        xs( 26) = 0.1253008876974678D-02
        xs( 27) = 0.1357845647362262D-02
        xs( 28) = 0.1468096481099171D-02
        xs( 29) = 0.1584006122009371D-02
        xs( 30) = 0.1705819335637822D-02
        xs( 31) = 0.1833603808955988D-02
        xs( 32) = 0.1967768550810248D-02
        xs( 33) = 0.2108873366166025D-02
        xs( 34) = 0.2257135425057833D-02
        xs( 35) = 0.2413081792129618D-02
        xs( 36) = 0.2576934980790883D-02
        xs( 37) = 0.2749293920231391D-02
        xs( 38) = 0.2930613671818038D-02
        xs( 39) = 0.3121391905598942D-02
        xs( 40) = 0.3322826642906469D-02
        xs( 41) = 0.3535048902915407D-02
        xs( 42) = 0.3758925457178454D-02
        xs( 43) = 0.3995651561675602D-02
        xs( 44) = 0.4245932610858293D-02
        xs( 45) = 0.4510452795059157D-02
        xs( 46) = 0.4791515675667795D-02
        xs( 47) = 0.5089434889438923D-02
        xs( 48) = 0.5406093682745229D-02
        xs( 49) = 0.5743258234825520D-02
        xs( 50) = 0.6104279899576377D-02
        xs( 51) = 0.6488276053539675D-02
        xs( 52) = 0.6900157913908815D-02
        xs( 53) = 0.7346674857831819D-02
        xs( 54) = 0.7827842896501938D-02
        xs( 55) = 0.8344676875732130D-02
        xs( 56) = 0.8905559391772448D-02
        xs( 57) = 0.9508073370312908D-02
        xs( 58) = 0.1016550623931208D-01
        xs( 59) = 0.1090389627930964D-01
        xs( 60) = 0.1173275192001259D-01
        xs( 61) = 0.1267328242809277D-01
        xs( 62) = 0.1378428184034969D-01
        xs( 63) = 0.1509835305077247D-01
        xs( 64) = 0.1663412280034404D-01
        xs( 65) = 0.1852028136470610D-01
        xs( 66) = 0.2095690833140459D-01
        xs( 67) = 0.2429530930370704D-01
        xs( 68) = 0.2894097792487961D-01
        xs( 69) = 0.3589731125984434D-01
        xs( 70) = 0.4762133067182136D-01
        xs( 71) = 0.7042546070186390D-01
        ws(  1) = 0.2849951707210913D-05
        ws(  2) = 0.6624163259182215D-05
        ws(  3) = 0.1040063718451379D-04
        ws(  4) = 0.1410834957130719D-04
        ws(  5) = 0.1786189513206052D-04
        ws(  6) = 0.2156247240551791D-04
        ws(  7) = 0.2518258134150322D-04
        ws(  8) = 0.2885723346395890D-04
        ws(  9) = 0.3245959992476746D-04
        ws( 10) = 0.3610732489877565D-04
        ws( 11) = 0.3979738791160538D-04
        ws( 12) = 0.4344939297829419D-04
        ws( 13) = 0.4705036873045505D-04
        ws( 14) = 0.5083082000367946D-04
        ws( 15) = 0.5456682220542349D-04
        ws( 16) = 0.5837368566116790D-04
        ws( 17) = 0.6230484288913493D-04
        ws( 18) = 0.6628377889057902D-04
        ws( 19) = 0.7031927264161019D-04
        ws( 20) = 0.7443265342387803D-04
        ws( 21) = 0.7863015048314291D-04
        ws( 22) = 0.8308414629379085D-04
        ws( 23) = 0.8765327951666191D-04
        ws( 24) = 0.9239628054381328D-04
        ws( 25) = 0.9715892043812305D-04
        ws( 26) = 0.1021870830766373D-03
        ws( 27) = 0.1074837788230081D-03
        ws( 28) = 0.1130743667673661D-03
        ws( 29) = 0.1188200217352084D-03
        ws( 30) = 0.1247588797206897D-03
        ws( 31) = 0.1308728468415592D-03
        ws( 32) = 0.1375440575207330D-03
        ws( 33) = 0.1446482839090584D-03
        ws( 34) = 0.1520497944564405D-03
        ws( 35) = 0.1598226616940474D-03
        ws( 36) = 0.1679504155587075D-03
        ws( 37) = 0.1768272653389719D-03
        ws( 38) = 0.1858493218442165D-03
        ws( 39) = 0.1960091340169425D-03
        ws( 40) = 0.2067630701870725D-03
        ws( 41) = 0.2178298196605841D-03
        ws( 42) = 0.2301029202423188D-03
        ws( 43) = 0.2435708402419918D-03
        ws( 44) = 0.2570066557439393D-03
        ws( 45) = 0.2725971859787354D-03
        ws( 46) = 0.2893008879357983D-03
        ws( 47) = 0.3070816528407303D-03
        ws( 48) = 0.3263578559350112D-03
        ws( 49) = 0.3489149669989925D-03
        ws( 50) = 0.3725220448309461D-03
        ws( 51) = 0.3964280539440455D-03
        ws( 52) = 0.4286481568187099D-03
        ws( 53) = 0.4642485023729714D-03
        ws( 54) = 0.4979746914593455D-03
        ws( 55) = 0.5379086247805293D-03
        ws( 56) = 0.5826619891110059D-03
        ws( 57) = 0.6246940673796337D-03
        ws( 58) = 0.6957389980459653D-03
        ws( 59) = 0.7817161072875219D-03
        ws( 60) = 0.8789241860521745D-03
        ws( 61) = 0.1013442220120499D-02
        ws( 62) = 0.1214002203144231D-02
        ws( 63) = 0.1412741584307972D-02
        ws( 64) = 0.1685336590521969D-02
        ws( 65) = 0.2114277849724968D-02
        ws( 66) = 0.2825381363938167D-02
        ws( 67) = 0.3906588012671908D-02
        ws( 68) = 0.5541658820145321D-02
        ws( 69) = 0.8773745324276178D-02
        ws( 70) = 0.1551309821895815D-01
        ws( 71) = 0.3164410706759190D-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 =   8
        err = 0.8080366407677123D-03
        xs(  1) = 0.1152619351531499D-02
        xs(  2) = 0.5502425532489115D-02
        xs(  3) = 0.1197049288818623D-01
        xs(  4) = 0.1971043608713207D-01
        xs(  5) = 0.2828379897329422D-01
        xs(  6) = 0.3744820337279687D-01
        xs(  7) = 0.4703503426264334D-01
        xs(  8) = 0.5693568578957156D-01
        ws(  1) = 0.2877778147780006D-02
        ws(  2) = 0.5594822687452409D-02
        ws(  3) = 0.7205043833633363D-02
        ws(  4) = 0.8214450883805086D-02
        ws(  5) = 0.8923958986736804D-02
        ws(  6) = 0.9484727968835583D-02
        ws(  7) = 0.1004747637404797D-01
        ws(  8) = 0.1169582174968338D-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 =   8
        err = 0.7442436833138654D-03
        xs(  1) = 0.1141430700703734D-02
        xs(  2) = 0.5464701715461294D-02
        xs(  3) = 0.1191483637858514D-01
        xs(  4) = 0.1964353923714737D-01
        xs(  5) = 0.2820812225564628D-01
        xs(  6) = 0.3736244055116143D-01
        xs(  7) = 0.4693705854668540D-01
        xs(  8) = 0.5682306965682144D-01
        ws(  1) = 0.2852191646069266D-02
        ws(  2) = 0.5572314405320693D-02
        ws(  3) = 0.7191154183940498D-02
        ws(  4) = 0.8205555543989478D-02
        ws(  5) = 0.8915271293913857D-02
        ws(  6) = 0.9474460007167474D-02
        ws(  7) = 0.1003478377872612D-01
        ws(  8) = 0.1168544244014640D-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 =   8
        err = 0.6647753107804980D-03
        xs(  1) = 0.1094219821019698D-02
        xs(  2) = 0.5307175657490579D-02
        xs(  3) = 0.1168242337406200D-01
        xs(  4) = 0.1936302504209094D-01
        xs(  5) = 0.2788778541184544D-01
        xs(  6) = 0.3699718802334146D-01
        xs(  7) = 0.4652275282238273D-01
        xs(  8) = 0.5636032247489559D-01
        ws(  1) = 0.2745116494706272D-02
        ws(  2) = 0.5478610458753307D-02
        ws(  3) = 0.7132681696230403D-02
        ws(  4) = 0.8166071781218118D-02
        ws(  5) = 0.8875070329082139D-02
        ws(  6) = 0.9429778643712838D-02
        ws(  7) = 0.9987215993438050D-02
        ws(  8) = 0.1165959308674320D-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 =   9
        err = 0.3199652310735150D-03
        xs(  1) = 0.8864708610074544D-03
        xs(  2) = 0.4469888506164727D-02
        xs(  3) = 0.1019356724302818D-01
        xs(  4) = 0.1733431229244444D-01
        xs(  5) = 0.2542313000868008D-01
        xs(  6) = 0.3419543608467515D-01
        xs(  7) = 0.4349657892228689D-01
        xs(  8) = 0.5321875023251033D-01
        xs(  9) = 0.6330242594399935D-01
        ws(  1) = 0.2252143938985759D-02
        ws(  2) = 0.4791368561243978D-02
        ws(  3) = 0.6532773764556848D-02
        ws(  4) = 0.7675298528939722D-02
        ws(  5) = 0.8469994100274146D-02
        ws(  6) = 0.9081955721271139D-02
        ws(  7) = 0.9609394923863123D-02
        ws(  8) = 0.1018663132100461D-01
        ws(  9) = 0.1184629934993333D-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 =   9
        err = 0.5164225989007165D-03
        xs(  1) = 0.8364738307558104D-03
        xs(  2) = 0.4302298108969708D-02
        xs(  3) = 0.9963692087685961D-02
        xs(  4) = 0.1709322695771382D-01
        xs(  5) = 0.2519200343214339D-01
        xs(  6) = 0.3397922385436562D-01
        xs(  7) = 0.4329591474244729D-01
        xs(  8) = 0.5303032835000906D-01
        xs(  9) = 0.6310139471562130D-01
        ws(  1) = 0.2140359519703691D-02
        ws(  2) = 0.4692631160698687D-02
        ws(  3) = 0.6502288752893366D-02
        ws(  4) = 0.7677835422542042D-02
        ws(  5) = 0.8484200595873155D-02
        ws(  6) = 0.9096850131986687D-02
        ws(  7) = 0.9625617599084863D-02
        ws(  8) = 0.1018975090545552D-01
        ws(  9) = 0.1182052717363968D-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 =   9
        err = 0.5299736630871165D-03
        xs(  1) = 0.5507867044483765D-03
        xs(  2) = 0.3058971298962286D-02
        xs(  3) = 0.7797392436256848D-02
        xs(  4) = 0.1437908334786716D-01
        xs(  5) = 0.2218485815377189D-01
        xs(  6) = 0.3077130207904372D-01
        xs(  7) = 0.3991570994351854D-01
        xs(  8) = 0.4952079840828051D-01
        xs(  9) = 0.5953523479244750D-01
        ws(  1) = 0.1436210198648240D-02
        ws(  2) = 0.3633085951630011D-02
        ws(  3) = 0.5766195287402500D-02
        ws(  4) = 0.7290552516696827D-02
        ws(  5) = 0.8259169964435514D-02
        ws(  6) = 0.8915768868168354D-02
        ws(  7) = 0.9472998463115036D-02
        ws(  8) = 0.1008612159363730D-01
        ws(  9) = 0.1186468403263906D-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 =   9
        err = 0.9638809148414459D-03
        xs(  1) = 0.3719128796423824D-03
        xs(  2) = 0.2116294595207529D-02
        xs(  3) = 0.5847898504663493D-02
        xs(  4) = 0.1181641898837033D-01
        xs(  5) = 0.1945549241135371D-01
        xs(  6) = 0.2811228748219992D-01
        xs(  7) = 0.3745638108514927D-01
        xs(  8) = 0.4726752909346255D-01
        xs(  9) = 0.5735454208326677D-01
        ws(  1) = 0.9688457625549872D-03
        ws(  2) = 0.2630724872900203D-02
        ws(  3) = 0.4889433199795086D-02
        ws(  4) = 0.6933751959899315D-02
        ws(  5) = 0.8236803259136208D-02
        ws(  6) = 0.9062884533086860D-02
        ws(  7) = 0.9706038622455417D-02
        ws(  8) = 0.1026473381221259D-01
        ws(  9) = 0.1188524801102424D-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 =  12
        err = 0.2656023468342858D-03
        xs(  1) = 0.1285383827634125D-03
        xs(  2) = 0.7011111256949882D-03
        xs(  3) = 0.1851071958109214D-02
        xs(  4) = 0.3867430705693932D-02
        xs(  5) = 0.7309512575704375D-02
        xs(  6) = 0.1273428599041552D-01
        xs(  7) = 0.1997674331768402D-01
        xs(  8) = 0.2840007924138182D-01
        xs(  9) = 0.3757142069949510D-01
        xs( 10) = 0.4724722717392714D-01
        xs( 11) = 0.5736028277200412D-01
        xs( 12) = 0.6766415028233286D-01
        ws(  1) = 0.3324216664955645D-03
        ws(  2) = 0.8306072962212306D-03
        ws(  3) = 0.1515098696751676D-02
        ws(  4) = 0.2613583042647250D-02
        ws(  5) = 0.4382497680604704D-02
        ws(  6) = 0.6429983236741748D-02
        ws(  7) = 0.7932917169863810D-02
        ws(  8) = 0.8862532674934443D-02
        ws(  9) = 0.9471622104061966D-02
        ws( 10) = 0.9992592702949317D-02
        ws( 11) = 0.1053023600640448D-01
        ws( 12) = 0.1207500562560552D-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 =  14
        err = 0.8709736611969773D-03
        xs(  1) = 0.4815320806506465D-04
        xs(  2) = 0.2534766762246474D-03
        xs(  3) = 0.6350604190606318D-03
        xs(  4) = 0.1217631523342850D-02
        xs(  5) = 0.2055163304410920D-02
        xs(  6) = 0.3263034855414853D-02
        xs(  7) = 0.5068238482237328D-02
        xs(  8) = 0.7917996411920942D-02
        xs(  9) = 0.1257251080626055D-01
        xs( 10) = 0.1972311394898773D-01
        xs( 11) = 0.2889737178146724D-01
        xs( 12) = 0.3909460342205262D-01
        xs( 13) = 0.4973300231773868D-01
        xs( 14) = 0.6017101024586716D-01
        ws(  1) = 0.1227267961416176D-03
        ws(  2) = 0.2910919740085782D-03
        ws(  3) = 0.4753828916295293D-03
        ws(  4) = 0.6971915652798758D-03
        ws(  5) = 0.9967593084958012D-03
        ws(  6) = 0.1455958981660549D-02
        ws(  7) = 0.2225678030581434D-02
        ws(  8) = 0.3598718331502613D-02
        ws(  9) = 0.5852294497901510D-02
        ws( 10) = 0.8345189647329169D-02
        ws( 11) = 0.9825310955629253D-02
        ws( 12) = 0.1049128683744146D-01
        ws( 13) = 0.1107446756552482D-01
        ws( 14) = 0.1183245644347220D-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 =  18
        err = 0.8483465658358253D-03
        xs(  1) = 0.2344937066321353D-04
        xs(  2) = 0.1248606118042324D-03
        xs(  3) = 0.3088635251839647D-03
        xs(  4) = 0.5800887832077326D-03
        xs(  5) = 0.9465750060504842D-03
        xs(  6) = 0.1423740627005692D-02
        xs(  7) = 0.2036856272378430D-02
        xs(  8) = 0.2820519897812658D-02
        xs(  9) = 0.3822069437184985D-02
        xs( 10) = 0.5124431667475388D-02
        xs( 11) = 0.6898165945390577D-02
        xs( 12) = 0.9491683374032243D-02
        xs( 13) = 0.1351792775600445D-01
        xs( 14) = 0.1984954401392128D-01
        xs( 15) = 0.2902552495698851D-01
        xs( 16) = 0.4054545870667189D-01
        xs( 17) = 0.5310852387391849D-01
        xs( 18) = 0.6556436409631540D-01
        ws(  1) = 0.6040300946339260D-04
        ws(  2) = 0.1424800166949920D-03
        ws(  3) = 0.2265166409352487D-03
        ws(  4) = 0.3171035341127623D-03
        ws(  5) = 0.4185713660150304D-03
        ws(  6) = 0.5399382583396488D-03
        ws(  7) = 0.6919142577222285D-03
        ws(  8) = 0.8831781741839959D-03
        ws(  9) = 0.1133113170562257D-02
        ws( 10) = 0.1498827257337689D-02
        ws( 11) = 0.2104376312329599D-02
        ws( 12) = 0.3184459288797183D-02
        ws( 13) = 0.5021575915335542D-02
        ws( 14) = 0.7746291592717544D-02
        ws( 15) = 0.1050523834490640D-01
        ws( 16) = 0.1223707421501356D-01
        ws( 17) = 0.1308877669857302D-01
        ws( 18) = 0.1322666800257375D-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 =  22
        err = 0.7474901725906674D-03
        xs(  1) = 0.1435764576319430D-04
        xs(  2) = 0.7575657881178391D-04
        xs(  3) = 0.1865254413154537D-03
        xs(  4) = 0.3475972377745956D-03
        xs(  5) = 0.5609333379922596D-03
        xs(  6) = 0.8303147177351042D-03
        xs(  7) = 0.1161352296837698D-02
        xs(  8) = 0.1562858658725284D-02
        xs(  9) = 0.2046154037508062D-02
        xs( 10) = 0.2628007334862486D-02
        xs( 11) = 0.3331466963512902D-02
        xs( 12) = 0.4183896112374600D-02
        xs( 13) = 0.5233607141816591D-02
        xs( 14) = 0.6574784580740701D-02
        xs( 15) = 0.8356837484618879D-02
        xs( 16) = 0.1086245387019817D-01
        xs( 17) = 0.1462885293436586D-01
        xs( 18) = 0.2051689444995548D-01
        xs( 19) = 0.2945057020219104D-01
        xs( 20) = 0.4152680815799898D-01
        xs( 21) = 0.5530203000385048D-01
        xs( 22) = 0.6908910453530763D-01
        ws(  1) = 0.3681473950634365D-04
        ws(  2) = 0.8602479013462129D-04
        ws(  3) = 0.1356628925540909D-03
        ws(  4) = 0.1867884402906327D-03
        ws(  5) = 0.2405360056732930D-03
        ws(  6) = 0.2990817108533901D-03
        ws(  7) = 0.3645435265533796D-03
        ws(  8) = 0.4402431417554930D-03
        ws(  9) = 0.5291271471369167D-03
        ws( 10) = 0.6384748703091460D-03
        ws( 11) = 0.7724497854117983D-03
        ws( 12) = 0.9400701867251742D-03
        ws( 13) = 0.1175355026621866D-02
        ws( 14) = 0.1530847050324740D-02
        ws( 15) = 0.2077378311661298D-02
        ws( 16) = 0.3023211010290842D-02
        ws( 17) = 0.4657521102803176D-02
        ws( 18) = 0.7284350494148913D-02
        ws( 19) = 0.1062055118394323D-01
        ws( 20) = 0.1321000282341943D-01
        ws( 21) = 0.1431896162818861D-01
        ws( 22) = 0.1394006112791563D-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 =  26
        err = 0.3784484545820187D-03
        xs(  1) = 0.9351707801086844D-05
        xs(  2) = 0.4913186731433966D-04
        xs(  3) = 0.1208291541578340D-03
        xs(  4) = 0.2246780503913197D-03
        xs(  5) = 0.3613756085000468D-03
        xs(  6) = 0.5320715480354578D-03
        xs(  7) = 0.7387034176330055D-03
        xs(  8) = 0.9839585220545826D-03
        xs(  9) = 0.1271790279041356D-02
        xs( 10) = 0.1606777178634056D-02
        xs( 11) = 0.1995502232010271D-02
        xs( 12) = 0.2446476863204656D-02
        xs( 13) = 0.2970750542370633D-02
        xs( 14) = 0.3585962516105075D-02
        xs( 15) = 0.4316115954281395D-02
        xs( 16) = 0.5187966008211176D-02
        xs( 17) = 0.6235870753168496D-02
        xs( 18) = 0.7528641054186395D-02
        xs( 19) = 0.9193971125771321D-02
        xs( 20) = 0.1143786487422858D-01
        xs( 21) = 0.1463350491783568D-01
        xs( 22) = 0.1945375798751433D-01
        xs( 23) = 0.2695689200618345D-01
        xs( 24) = 0.3822750174663272D-01
        xs( 25) = 0.5314875753163196D-01
        xs( 26) = 0.6963724091576676D-01
        ws(  1) = 0.2397149863747181D-04
        ws(  2) = 0.5566028189039775D-04
        ws(  3) = 0.8774384425818210D-04
        ws(  4) = 0.1200731182961062D-03
        ws(  5) = 0.1534998507043158D-03
        ws(  6) = 0.1882498426252912D-03
        ws(  7) = 0.2254221861564660D-03
        ws(  8) = 0.2657930552967767D-03
        ws(  9) = 0.3105323337305075D-03
        ws( 10) = 0.3606143267992492D-03
        ws( 11) = 0.4182425571666725D-03
        ws( 12) = 0.4854309762818629D-03
        ws( 13) = 0.5660467362764843D-03
        ws( 14) = 0.6684097572661866D-03
        ws( 15) = 0.7962822292817021D-03
        ws( 16) = 0.9526569851242726D-03
        ws( 17) = 0.1154072342372533D-02
        ws( 18) = 0.1452374819980931D-02
        ws( 19) = 0.1911118660123866D-02
        ws( 20) = 0.2636905613684213D-02
        ws( 21) = 0.3864962953369624D-02
        ws( 22) = 0.5954571111584821D-02
        ws( 23) = 0.9247945767230823D-02
        ws( 24) = 0.1329063886364872D-01
        ws( 25) = 0.1622808625642633D-01
        ws( 26) = 0.1616859182370081D-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 =  30
        err = 0.2806866969464602D-03
        xs(  1) = 0.6682471639655452D-05
        xs(  2) = 0.3521543314348985D-04
        xs(  3) = 0.8652279883815023D-04
        xs(  4) = 0.1606306106570765D-03
        xs(  5) = 0.2577642943007522D-03
        xs(  6) = 0.3784080635903689D-03
        xs(  7) = 0.5233570318786551D-03
        xs(  8) = 0.6937511261960079D-03
        xs(  9) = 0.8913347856872081D-03
        xs( 10) = 0.1118433415556751D-02
        xs( 11) = 0.1377438606937550D-02
        xs( 12) = 0.1671784988352591D-02
        xs( 13) = 0.2005695521366493D-02
        xs( 14) = 0.2384622265382822D-02
        xs( 15) = 0.2815942629515273D-02
        xs( 16) = 0.3307917481667011D-02
        xs( 17) = 0.3871763072591672D-02
        xs( 18) = 0.4524919553985129D-02
        xs( 19) = 0.5286172356265049D-02
        xs( 20) = 0.6179476133997422D-02
        xs( 21) = 0.7232416258092717D-02
        xs( 22) = 0.8504269576351552D-02
        xs( 23) = 0.1013766802002959D-01
        xs( 24) = 0.1231611663304405D-01
        xs( 25) = 0.1530051382901284D-01
        xs( 26) = 0.1965443005989997D-01
        xs( 27) = 0.2647043743851957D-01
        xs( 28) = 0.3723353936800698D-01
        xs( 29) = 0.5272623609351359D-01
        xs( 30) = 0.7102719684373159D-01
        ws(  1) = 0.1713924930562364D-04
        ws(  2) = 0.3993057162587769D-04
        ws(  3) = 0.6268318357377721D-04
        ws(  4) = 0.8557112652309442D-04
        ws(  5) = 0.1087775607765802D-03
        ws(  6) = 0.1326439436104555D-03
        ws(  7) = 0.1574346913414904D-03
        ws(  8) = 0.1836361466904668D-03
        ws(  9) = 0.2119464067532927D-03
        ws( 10) = 0.2425868273844042D-03
        ws( 11) = 0.2760303019734437D-03
        ws( 12) = 0.3133364989920011D-03
        ws( 13) = 0.3553724929374021D-03
        ws( 14) = 0.4037817552352204D-03
        ws( 15) = 0.4602749166280767D-03
        ws( 16) = 0.5254324688329610D-03
        ws( 17) = 0.6053683796813835D-03
        ws( 18) = 0.7040515155566402D-03
        ws( 19) = 0.8225760475366864D-03
        ws( 20) = 0.9684759763274051D-03
        ws( 21) = 0.1145542677667492D-02
        ws( 22) = 0.1423252922542206D-02
        ws( 23) = 0.1874006696423594D-02
        ws( 24) = 0.2522061638901779D-02
        ws( 25) = 0.3534757786602894D-02
        ws( 26) = 0.5356198897681774D-02
        ws( 27) = 0.8542306928890062D-02
        ws( 28) = 0.1317083345690926D-01
        ws( 29) = 0.1757381192953316D-01
        ws( 30) = 0.1869312179765807D-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 =  34
        err = 0.4833941322894478D-03
        xs(  1) = 0.5050296464163284D-05
        xs(  2) = 0.2659586120645751D-04
        xs(  3) = 0.6533786008482377D-04
        xs(  4) = 0.1212941619568878D-03
        xs(  5) = 0.1945371116199997D-03
        xs(  6) = 0.2852335241172238D-03
        xs(  7) = 0.3937191969777202D-03
        xs(  8) = 0.5205221799068672D-03
        xs(  9) = 0.6664909097015834D-03
        xs( 10) = 0.8327229349850801D-03
        xs( 11) = 0.1020434175403912D-02
        xs( 12) = 0.1231280878558174D-02
        xs( 13) = 0.1467479488100799D-02
        xs( 14) = 0.1731227164680392D-02
        xs( 15) = 0.2025012470584367D-02
        xs( 16) = 0.2352779930107609D-02
        xs( 17) = 0.2719749515632043D-02
        xs( 18) = 0.3131048241264459D-02
        xs( 19) = 0.3592082249886210D-02
        xs( 20) = 0.4111081114172047D-02
        xs( 21) = 0.4702400039150766D-02
        xs( 22) = 0.5380246008838073D-02
        xs( 23) = 0.6158723011536973D-02
        xs( 24) = 0.7059524063770589D-02
        xs( 25) = 0.8102412530928922D-02
        xs( 26) = 0.9367938012234178D-02
        xs( 27) = 0.1101003377259166D-01
        xs( 28) = 0.1315278918400260D-01
        xs( 29) = 0.1600974169768183D-01
        xs( 30) = 0.2013507038253085D-01
        xs( 31) = 0.2655549239263787D-01
        xs( 32) = 0.3672482780609140D-01
        xs( 33) = 0.5209584444043269D-01
        xs( 34) = 0.7147232831352365D-01
        ws(  1) = 0.1294694977571704D-04
        ws(  2) = 0.3015181418135773D-04
        ws(  3) = 0.4734105000163334D-04
        ws(  4) = 0.6459581270016286D-04
        ws(  5) = 0.8191587040529822D-04
        ws(  6) = 0.9952856743759885D-04
        ws(  7) = 0.1175112183719733D-03
        ws(  8) = 0.1362257246284380D-03
        ws(  9) = 0.1559141435979345D-03
        ws( 10) = 0.1767388394662042D-03
        ws( 11) = 0.1989288699995947D-03
        ws( 12) = 0.2231431112474508D-03
        ws( 13) = 0.2495959319705175D-03
        ws( 14) = 0.2782708634337693D-03
        ws( 15) = 0.3099653870497582D-03
        ws( 16) = 0.3464678632038704D-03
        ws( 17) = 0.3882683756506803D-03
        ws( 18) = 0.4351920259124504D-03
        ws( 19) = 0.4881772689118813D-03
        ws( 20) = 0.5524026318295329D-03
        ws( 21) = 0.6327285855371789D-03
        ws( 22) = 0.7248819179182861D-03
        ws( 23) = 0.8363502435355808D-03
        ws( 24) = 0.9673783885921435D-03
        ws( 25) = 0.1130585156924368D-02
        ws( 26) = 0.1429696558570232D-02
        ws( 27) = 0.1872401753906420D-02
        ws( 28) = 0.2443872417093461D-02
        ws( 29) = 0.3360367252460794D-02
        ws( 30) = 0.5065295082395689D-02
        ws( 31) = 0.8028885882811579D-02
        ws( 32) = 0.1257347465844128D-01
        ws( 33) = 0.1812682437868491D-01
        ws( 34) = 0.1950945215667633D-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 =  37
        err = 0.7188501383904042D-03
        xs(  1) = 0.4103005162624701D-05
        xs(  2) = 0.2154487827440592D-04
        xs(  3) = 0.5287532402512490D-04
        xs(  4) = 0.9805697571276227D-04
        xs(  5) = 0.1570131211351827D-03
        xs(  6) = 0.2297626261533973D-03
        xs(  7) = 0.3164525123234225D-03
        xs(  8) = 0.4172177727904461D-03
        xs(  9) = 0.5324421394601346D-03
        xs( 10) = 0.6625798671900374D-03
        xs( 11) = 0.8086000188603713D-03
        xs( 12) = 0.9713087294931469D-03
        xs( 13) = 0.1151580206166983D-02
        xs( 14) = 0.1350609963401019D-02
        xs( 15) = 0.1570104615988115D-02
        xs( 16) = 0.1811642576712006D-02
        xs( 17) = 0.2077204602693245D-02
        xs( 18) = 0.2369741641452124D-02
        xs( 19) = 0.2693075988009971D-02
        xs( 20) = 0.3051259013322481D-02
        xs( 21) = 0.3446546896855612D-02
        xs( 22) = 0.3884576536151226D-02
        xs( 23) = 0.4376882944184069D-02
        xs( 24) = 0.4932070812263026D-02
        xs( 25) = 0.5557930235631791D-02
        xs( 26) = 0.6265759125285279D-02
        xs( 27) = 0.7061222956981286D-02
        xs( 28) = 0.7970822906868244D-02
        xs( 29) = 0.9096443837560539D-02
        xs( 30) = 0.1053694058852416D-01
        xs( 31) = 0.1233839883979680D-01
        xs( 32) = 0.1467156823067367D-01
        xs( 33) = 0.1794382792480704D-01
        xs( 34) = 0.2280170651784796D-01
        xs( 35) = 0.3033135510867958D-01
        xs( 36) = 0.4222176892732474D-01
        xs( 37) = 0.6117256936687356D-01
        ws(  1) = 0.1048976883856602D-04
        ws(  2) = 0.2440542922950764D-04
        ws(  3) = 0.3827134327709088D-04
        ws(  4) = 0.5209771828131657D-04
        ws(  5) = 0.6582971779057692D-04
        ws(  6) = 0.7970534705595214D-04
        ws(  7) = 0.9368786464269596D-04
        ws(  8) = 0.1079479689069145D-03
        ws(  9) = 0.1225442921074712D-03
        ws( 10) = 0.1379995155106412D-03
        ws( 11) = 0.1542558216871296D-03
        ws( 12) = 0.1712952350889406D-03
        ws( 13) = 0.1894259992882042D-03
        ws( 14) = 0.2090668303218049D-03
        ws( 15) = 0.2302192405005649D-03
        ws( 16) = 0.2531781996522196D-03
        ws( 17) = 0.2785013819965040D-03
        ws( 18) = 0.3072200519404273D-03
        ws( 19) = 0.3401424278224702D-03
        ws( 20) = 0.3764651132941295D-03
        ws( 21) = 0.4149274365449316D-03
        ws( 22) = 0.4633187875574844D-03
        ws( 23) = 0.5222035222349020D-03
        ws( 24) = 0.5894213178100990D-03
        ws( 25) = 0.6645857161727924D-03
        ws( 26) = 0.7520105778259927D-03
        ws( 27) = 0.8417491587821507D-03
        ws( 28) = 0.9964394815201827D-03
        ws( 29) = 0.1274496918601368D-02
        ws( 30) = 0.1608587678433096D-02
        ws( 31) = 0.2021011700611990D-02
        ws( 32) = 0.2715013503837286D-02
        ws( 33) = 0.3928967886430375D-02
        ws( 34) = 0.5978592333839302D-02
        ws( 35) = 0.9361763749478938D-02
        ws( 36) = 0.1501279892892694D-01
        ws( 37) = 0.2162409655198497D-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 =  41
        err = 0.8030378766530432D-03
        xs(  1) = 0.3373281220385042D-05
        xs(  2) = 0.1761867865477427D-04
        xs(  3) = 0.4320098137998209D-04
        xs(  4) = 0.8002852852743430D-04
        xs(  5) = 0.1280175005943342D-03
        xs(  6) = 0.1871031987373397D-03
        xs(  7) = 0.2572730180262599D-03
        xs(  8) = 0.3387430749297753D-03
        xs(  9) = 0.4315386297331207D-03
        xs( 10) = 0.5359627971880676D-03
        xs( 11) = 0.6523832787161128D-03
        xs( 12) = 0.7814149951143815D-03
        xs( 13) = 0.9234957555071301D-03
        xs( 14) = 0.1079506836155867D-02
        xs( 15) = 0.1250307031273056D-02
        xs( 16) = 0.1436688720730777D-02
        xs( 17) = 0.1639391250947821D-02
        xs( 18) = 0.1860173708810516D-02
        xs( 19) = 0.2101542265256049D-02
        xs( 20) = 0.2364949098406299D-02
        xs( 21) = 0.2651816856224107D-02
        xs( 22) = 0.2964856008021997D-02
        xs( 23) = 0.3307880594561823D-02
        xs( 24) = 0.3685172244806370D-02
        xs( 25) = 0.4098713526096756D-02
        xs( 26) = 0.4557181853155056D-02
        xs( 27) = 0.5069880117640033D-02
        xs( 28) = 0.5639374879721142D-02
        xs( 29) = 0.6274114149954714D-02
        xs( 30) = 0.6989467918205438D-02
        xs( 31) = 0.7802148101553693D-02
        xs( 32) = 0.8750493904866647D-02
        xs( 33) = 0.9907997571509813D-02
        xs( 34) = 0.1135334294470506D-01
        xs( 35) = 0.1314650843665387D-01
        xs( 36) = 0.1545104571552475D-01
        xs( 37) = 0.1859820031649959D-01
        xs( 38) = 0.2314547342068437D-01
        xs( 39) = 0.3004775337538941D-01
        xs( 40) = 0.4100399591654196D-01
        xs( 41) = 0.5904887475417047D-01
        ws(  1) = 0.8555376291819195D-05
        ws(  2) = 0.1994575690051191D-04
        ws(  3) = 0.3125275248780444D-04
        ws(  4) = 0.4243399549714818D-04
        ws(  5) = 0.5352388612585549D-04
        ws(  6) = 0.6457267362378013D-04
        ws(  7) = 0.7582885523543837D-04
        ws(  8) = 0.8710764849874970D-04
        ws(  9) = 0.9862363227672868D-04
        ws( 10) = 0.1102380806793425D-03
        ws( 11) = 0.1225590797523864D-03
        ws( 12) = 0.1355857308669008D-03
        ws( 13) = 0.1488503491671275D-03
        ws( 14) = 0.1631800992843117D-03
        ws( 15) = 0.1785869539556473D-03
        ws( 16) = 0.1943047117169382D-03
        ws( 17) = 0.2113220647503949D-03
        ws( 18) = 0.2307077553416148D-03
        ws( 19) = 0.2521626584328678D-03
        ws( 20) = 0.2748589959599173D-03
        ws( 21) = 0.2994736217977877D-03
        ws( 22) = 0.3270620145047234D-03
        ws( 23) = 0.3597412494410396D-03
        ws( 24) = 0.3950120796390851D-03
        ws( 25) = 0.4336955522173364D-03
        ws( 26) = 0.4846701648626514D-03
        ws( 27) = 0.5408673119170763D-03
        ws( 28) = 0.5994609983227909D-03
        ws( 29) = 0.6725713115129613D-03
        ws( 30) = 0.7603344311830569D-03
        ws( 31) = 0.8710558570438999D-03
        ws( 32) = 0.1038574307436227D-02
        ws( 33) = 0.1290284665569074D-02
        ws( 34) = 0.1605606719143798D-02
        ws( 35) = 0.2008125453782718D-02
        ws( 36) = 0.2654757890945376D-02
        ws( 37) = 0.3728049961880995D-02
        ws( 38) = 0.5529223661165904D-02
        ws( 39) = 0.8543756552632205D-02
        ws( 40) = 0.1379933634314028D-01
        ws( 41) = 0.2153779637898250D-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 =  46
        err = 0.4703554642163476D-03
        xs(  1) = 0.2669091145469256D-05
        xs(  2) = 0.1401017206799622D-04
        xs(  3) = 0.3435644673688157D-04
        xs(  4) = 0.6372659064460916D-04
        xs(  5) = 0.1020335127430607D-03
        xs(  6) = 0.1492856806244559D-03
        xs(  7) = 0.2055135321867163D-03
        xs(  8) = 0.2707344781975608D-03
        xs(  9) = 0.3451140662212599D-03
        xs( 10) = 0.4287374571655989D-03
        xs( 11) = 0.5218752493641704D-03
        xs( 12) = 0.6248553581605263D-03
        xs( 13) = 0.7379278229500572D-03
        xs( 14) = 0.8616019185889259D-03
        xs( 15) = 0.9964160062568832D-03
        xs( 16) = 0.1142804169372728D-02
        xs( 17) = 0.1301380821914505D-02
        xs( 18) = 0.1473056798396165D-02
        xs( 19) = 0.1659084271170239D-02
        xs( 20) = 0.1860195814052147D-02
        xs( 21) = 0.2077459819234143D-02
        xs( 22) = 0.2312384492333174D-02
        xs( 23) = 0.2566850508640137D-02
        xs( 24) = 0.2842392282047566D-02
        xs( 25) = 0.3140827899798202D-02
        xs( 26) = 0.3465480617071134D-02
        xs( 27) = 0.3819631878775815D-02
        xs( 28) = 0.4204161068561262D-02
        xs( 29) = 0.4623641004303012D-02
        xs( 30) = 0.5086153731029095D-02
        xs( 31) = 0.5595066212910043D-02
        xs( 32) = 0.6160952307787963D-02
        xs( 33) = 0.6797414331269528D-02
        xs( 34) = 0.7505248321107150D-02
        xs( 35) = 0.8288626240960814D-02
        xs( 36) = 0.9178986598341056D-02
        xs( 37) = 0.1021065206729685D-01
        xs( 38) = 0.1145209202396965D-01
        xs( 39) = 0.1301234967804959D-01
        xs( 40) = 0.1495364276989793D-01
        xs( 41) = 0.1739864160383536D-01
        xs( 42) = 0.2068258279257129D-01
        xs( 43) = 0.2541612146071434D-01
        xs( 44) = 0.3259972035565569D-01
        xs( 45) = 0.4389132428327899D-01
        xs( 46) = 0.6262446579079219D-01
        ws(  1) = 0.6833048309713876D-05
        ws(  2) = 0.1584035696522817D-04
        ws(  3) = 0.2487428823284230D-04
        ws(  4) = 0.3384355135525896D-04
        ws(  5) = 0.4277024192287833D-04
        ws(  6) = 0.5173858050949687D-04
        ws(  7) = 0.6075733514721371D-04
        ws(  8) = 0.6975405685941153D-04
        ws(  9) = 0.7892213916887471D-04
        ws( 10) = 0.8834574340777194D-04
        ws( 11) = 0.9806728291020056D-04
        ws( 12) = 0.1079382307381682D-03
        ws( 13) = 0.1182794258185127D-03
        ws( 14) = 0.1290894762837430D-03
        ws( 15) = 0.1406685922671585D-03
        ws( 16) = 0.1522438165998260D-03
        ws( 17) = 0.1649360801729611D-03
        ws( 18) = 0.1787347726811954D-03
        ws( 19) = 0.1933691239351826D-03
        ws( 20) = 0.2089890976289513D-03
        ws( 21) = 0.2257956280442906D-03
        ws( 22) = 0.2443560224367999D-03
        ws( 23) = 0.2647960505028513D-03
        ws( 24) = 0.2865780454384206D-03
        ws( 25) = 0.3108553522469125D-03
        ws( 26) = 0.3390845596576475D-03
        ws( 27) = 0.3692928755607882D-03
        ws( 28) = 0.4004813120463569D-03
        ws( 29) = 0.4402587689388363D-03
        ws( 30) = 0.4849921431510340D-03
        ws( 31) = 0.5347779568886809D-03
        ws( 32) = 0.5996728281301609D-03
        ws( 33) = 0.6732712986111682D-03
        ws( 34) = 0.7423294220837381D-03
        ws( 35) = 0.8309047714328285D-03
        ws( 36) = 0.9548424173002119D-03
        ws( 37) = 0.1119374056529990D-02
        ws( 38) = 0.1384579839749432D-02
        ws( 39) = 0.1743196893894085D-02
        ws( 40) = 0.2156655005493547D-02
        ws( 41) = 0.2788378321178270D-02
        ws( 42) = 0.3874899334949294D-02
        ws( 43) = 0.5759920434157116D-02
        ws( 44) = 0.8872206366719875D-02
        ws( 45) = 0.1416487137356110D-01
        ws( 46) = 0.2318481522547850D-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 =  50
        err = 0.6325401582507365D-03
        xs(  1) = 0.2244575601020889D-05
        xs(  2) = 0.1180899990972715D-04
        xs(  3) = 0.2899675153788405D-04
        xs(  4) = 0.5376154164680428D-04
        xs(  5) = 0.8605446908229284D-04
        xs(  6) = 0.1258262882212206D-03
        xs(  7) = 0.1731474047134852D-03
        xs(  8) = 0.2279391841905962D-03
        xs(  9) = 0.2902574560614599D-03
        xs( 10) = 0.3602156896675589D-03
        xs( 11) = 0.4380925416861573D-03
        xs( 12) = 0.5238263122465674D-03
        xs( 13) = 0.6177441124568719D-03
        xs( 14) = 0.7200071728671275D-03
        xs( 15) = 0.8310439286276183D-03
        xs( 16) = 0.9513236645222305D-03
        xs( 17) = 0.1081053211211512D-02
        xs( 18) = 0.1220723586971988D-02
        xs( 19) = 0.1370997600569159D-02
        xs( 20) = 0.1532500859344310D-02
        xs( 21) = 0.1706118998072279D-02
        xs( 22) = 0.1892570568879761D-02
        xs( 23) = 0.2092690348092205D-02
        xs( 24) = 0.2307472958058323D-02
        xs( 25) = 0.2538543053611350D-02
        xs( 26) = 0.2787476151514828D-02
        xs( 27) = 0.3055142055373240D-02
        xs( 28) = 0.3343328318068462D-02
        xs( 29) = 0.3654179914953018D-02
        xs( 30) = 0.3991075138941099D-02
        xs( 31) = 0.4355592339153435D-02
        xs( 32) = 0.4750208120859145D-02
        xs( 33) = 0.5182507291485864D-02
        xs( 34) = 0.5658036561049669D-02
        xs( 35) = 0.6176133160325351D-02
        xs( 36) = 0.6751019328020581D-02
        xs( 37) = 0.7392476094339674D-02
        xs( 38) = 0.8095947492130206D-02
        xs( 39) = 0.8878894376234001D-02
        xs( 40) = 0.9777745840442531D-02
        xs( 41) = 0.1081429512435340D-01
        xs( 42) = 0.1206550681399624D-01
        xs( 43) = 0.1362415826417322D-01
        xs( 44) = 0.1551726080897079D-01
        xs( 45) = 0.1785814217191480D-01
        xs( 46) = 0.2100393143346684D-01
        xs( 47) = 0.2551061020668274D-01
        xs( 48) = 0.3227107926810457D-01
        xs( 49) = 0.4276985735824667D-01
        xs( 50) = 0.6027013032931875D-01
        ws(  1) = 0.5746499987484204D-05
        ws(  2) = 0.1340335695539499D-04
        ws(  3) = 0.2095263884271858D-04
        ws(  4) = 0.2852916554959807D-04
        ws(  5) = 0.3610587425099259D-04
        ws(  6) = 0.4354244712362846D-04
        ws(  7) = 0.5092545709347252D-04
        ws(  8) = 0.5861693896405920D-04
        ws(  9) = 0.6621211144596836D-04
        ws( 10) = 0.7377413559479497D-04
        ws( 11) = 0.8175878931163242D-04
        ws( 12) = 0.8989528649253832D-04
        ws( 13) = 0.9799146911864853D-04
        ws( 14) = 0.1065665033271733D-03
        ws( 15) = 0.1155930770304329D-03
        ws( 16) = 0.1249386608158791D-03
        ws( 17) = 0.1346987300046381D-03
        ws( 18) = 0.1447310265133940D-03
        ws( 19) = 0.1558582195090248D-03
        ws( 20) = 0.1673787141011289D-03
        ws( 21) = 0.1799103564832503D-03
        ws( 22) = 0.1931725295945588D-03
        ws( 23) = 0.2072221677608470D-03
        ws( 24) = 0.2226669521808701D-03
        ws( 25) = 0.2397961647897221D-03
        ws( 26) = 0.2581766991922742D-03
        ws( 27) = 0.2775717828151422D-03
        ws( 28) = 0.2991728740534511D-03
        ws( 29) = 0.3233504391457461D-03
        ws( 30) = 0.3507356544228450D-03
        ws( 31) = 0.3787517937811129D-03
        ws( 32) = 0.4119586837682163D-03
        ws( 33) = 0.4540090474868975D-03
        ws( 34) = 0.4963763043248263D-03
        ws( 35) = 0.5431202796365532D-03
        ws( 36) = 0.6083371599090818D-03
        ws( 37) = 0.6731118638966994D-03
        ws( 38) = 0.7368831357917628D-03
        ws( 39) = 0.8367742708363168D-03
        ws( 40) = 0.9631302264358138D-03
        ws( 41) = 0.1124456697094753D-02
        ws( 42) = 0.1395922011762947D-02
        ws( 43) = 0.1724852252477991D-02
        ws( 44) = 0.2077657015365171D-02
        ws( 45) = 0.2666531321143303D-02
        ws( 46) = 0.3718522350661541D-02
        ws( 47) = 0.5449067634830285D-02
        ws( 48) = 0.8330332619963453D-02
        ws( 49) = 0.1306138420137437D-01
        ws( 50) = 0.2215159114233654D-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 =  54
        err = 0.7981770426277953D-03
        xs(  1) = 0.1879129414892171D-05
        xs(  2) = 0.1011420135848604D-04
        xs(  3) = 0.2484178177290308D-04
        xs(  4) = 0.4599533194352267D-04
        xs(  5) = 0.7369176274899614D-04
        xs(  6) = 0.1077277742712695D-03
        xs(  7) = 0.1480880335551978D-03
        xs(  8) = 0.1949178470068197D-03
        xs(  9) = 0.2480177775694481D-03
        xs( 10) = 0.3076901184868825D-03
        xs( 11) = 0.3737883672895495D-03
        xs( 12) = 0.4465712294997373D-03
        xs( 13) = 0.5260228144505831D-03
        xs( 14) = 0.6123032857700887D-03
        xs( 15) = 0.7057074343852555D-03
        xs( 16) = 0.8066321018946947D-03
        xs( 17) = 0.9152238010915502D-03
        xs( 18) = 0.1031609338936133D-02
        xs( 19) = 0.1156142713203131D-02
        xs( 20) = 0.1289462524014672D-02
        xs( 21) = 0.1432132379612915D-02
        xs( 22) = 0.1584711822868718D-02
        xs( 23) = 0.1747435793851004D-02
        xs( 24) = 0.1920955667510385D-02
        xs( 25) = 0.2106555198309755D-02
        xs( 26) = 0.2305015170721685D-02
        xs( 27) = 0.2516975191623961D-02
        xs( 28) = 0.2742675640640133D-02
        xs( 29) = 0.2984683718417646D-02
        xs( 30) = 0.3245080767401578D-02
        xs( 31) = 0.3523778903081578D-02
        xs( 32) = 0.3821659162111377D-02
        xs( 33) = 0.4142308920349468D-02
        xs( 34) = 0.4488965991543344D-02
        xs( 35) = 0.4862387793250123D-02
        xs( 36) = 0.5265919300661220D-02
        xs( 37) = 0.5708400729572297D-02
        xs( 38) = 0.6191926978638664D-02
        xs( 39) = 0.6719675017970205D-02
        xs( 40) = 0.7303874965371050D-02
        xs( 41) = 0.7943767671023238D-02
        xs( 42) = 0.8636058643230887D-02
        xs( 43) = 0.9418821824901684D-02
        xs( 44) = 0.1032300983573089D-01
        xs( 45) = 0.1137250253234841D-01
        xs( 46) = 0.1264086967435498D-01
        xs( 47) = 0.1419644494795888D-01
        xs( 48) = 0.1606401648008729D-01
        xs( 49) = 0.1837719224188035D-01
        xs( 50) = 0.2147089912053629D-01
        xs( 51) = 0.2583926391357200D-01
        xs( 52) = 0.3227943011056213D-01
        xs( 53) = 0.4217981668438776D-01
        xs( 54) = 0.5908928507173326D-01
        ws(  1) = 0.4933245224847849D-05
        ws(  2) = 0.1138024425638209D-04
        ws(  3) = 0.1806216467548623D-04
        ws(  4) = 0.2448294178248704D-04
        ws(  5) = 0.3076473540087199D-04
        ws(  6) = 0.3718495859716573D-04
        ws(  7) = 0.4368329363721519D-04
        ws(  8) = 0.4985715972631770D-04
        ws(  9) = 0.5646024180276110D-04
        ws( 10) = 0.6282169800447262D-04
        ws( 11) = 0.6946535296597099D-04
        ws( 12) = 0.7608729361256848D-04
        ws( 13) = 0.8280568083705556D-04
        ws( 14) = 0.8980910981043964D-04
        ws( 15) = 0.9710753352187763D-04
        ws( 16) = 0.1047515936894039D-03
        ws( 17) = 0.1124395523182252D-03
        ws( 18) = 0.1204002475496804D-03
        ws( 19) = 0.1288193539579666D-03
        ws( 20) = 0.1378683555925246D-03
        ws( 21) = 0.1475915406685486D-03
        ws( 22) = 0.1575796399643179D-03
        ws( 23) = 0.1680443727293687D-03
        ws( 24) = 0.1793349615959411D-03
        ws( 25) = 0.1917937897193073D-03
        ws( 26) = 0.2053457830526448D-03
        ws( 27) = 0.2185991762453878D-03
        ws( 28) = 0.2333058944787581D-03
        ws( 29) = 0.2512053144873862D-03
        ws( 30) = 0.2694257210119383D-03
        ws( 31) = 0.2881419322724729D-03
        ws( 32) = 0.3084634003274017D-03
        ws( 33) = 0.3334986063405252D-03
        ws( 34) = 0.3598170523890490D-03
        ws( 35) = 0.3875210200934574D-03
        ws( 36) = 0.4215197751053546D-03
        ws( 37) = 0.4636069978464197D-03
        ws( 38) = 0.5038975722975350D-03
        ws( 39) = 0.5540422635056158D-03
        ws( 40) = 0.6143621418115139D-03
        ws( 41) = 0.6632595033320048D-03
        ws( 42) = 0.7293868983082565D-03
        ws( 43) = 0.8412225988542988D-03
        ws( 44) = 0.9703182667462036D-03
        ws( 45) = 0.1141761305747470D-02
        ws( 46) = 0.1408860597641011D-02
        ws( 47) = 0.1705148153682986D-02
        ws( 48) = 0.2051231272279084D-02
        ws( 49) = 0.2636379082818097D-02
        ws( 50) = 0.3638533024201481D-02
        ws( 51) = 0.5231319163251919D-02
        ws( 52) = 0.7887995961995024D-02
        ws( 53) = 0.1225055879177781D-01
        ws( 54) = 0.2236977240607074D-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 =  58
        err = 0.7256506887531158D-03
        xs(  1) = 0.1742654344053418D-05
        xs(  2) = 0.8836652573097512D-05
        xs(  3) = 0.2166657110727345D-04
        xs(  4) = 0.4015906621971499D-04
        xs(  5) = 0.6419276011720044D-04
        xs(  6) = 0.9384645811621031D-04
        xs(  7) = 0.1289373377385272D-03
        xs(  8) = 0.1695136331439513D-03
        xs(  9) = 0.2155782039578375D-03
        xs( 10) = 0.2671319066457558D-03
        xs( 11) = 0.3242427049316398D-03
        xs( 12) = 0.3869371640715480D-03
        xs( 13) = 0.4552974439299826D-03
        xs( 14) = 0.5294418274036799D-03
        xs( 15) = 0.6095387162545906D-03
        xs( 16) = 0.6957291761894646D-03
        xs( 17) = 0.7882155499866208D-03
        xs( 18) = 0.8871324080797319D-03
        xs( 19) = 0.9927811285133402D-03
        xs( 20) = 0.1105323729739366D-02
        xs( 21) = 0.1225184017299849D-02
        xs( 22) = 0.1352857232333916D-02
        xs( 23) = 0.1488662419735772D-02
        xs( 24) = 0.1632938303666028D-02
        xs( 25) = 0.1786151087938554D-02
        xs( 26) = 0.1948981419555217D-02
        xs( 27) = 0.2122043046575177D-02
        xs( 28) = 0.2305835458137175D-02
        xs( 29) = 0.2501323354238032D-02
        xs( 30) = 0.2709670018591373D-02
        xs( 31) = 0.2931183227469295D-02
        xs( 32) = 0.3167003249449762D-02
        xs( 33) = 0.3418588213675947D-02
        xs( 34) = 0.3687438988977827D-02
        xs( 35) = 0.3974093297254526D-02
        xs( 36) = 0.4280609364886616D-02
        xs( 37) = 0.4610563563107646D-02
        xs( 38) = 0.4966375113378624D-02
        xs( 39) = 0.5347712426714555D-02
        xs( 40) = 0.5762015850186445D-02
        xs( 41) = 0.6215171346058226D-02
        xs( 42) = 0.6704668605306416D-02
        xs( 43) = 0.7236004975468216D-02
        xs( 44) = 0.7818140371673870D-02
        xs( 45) = 0.8445986505651884D-02
        xs( 46) = 0.9143393175475346D-02
        xs( 47) = 0.9950620795196556D-02
        xs( 48) = 0.1088069338293310D-01
        xs( 49) = 0.1196392654113912D-01
        xs( 50) = 0.1327373307802957D-01
        xs( 51) = 0.1485395207126856D-01
        xs( 52) = 0.1672720020296728D-01
        xs( 53) = 0.1904861986016990D-01
        xs( 54) = 0.2214795539540154D-01
        xs( 55) = 0.2650171680566514D-01
        xs( 56) = 0.3290314768849957D-01
        xs( 57) = 0.4260389974484737D-01
        xs( 58) = 0.5999469305437791D-01
        ws(  1) = 0.4213297448943683D-05
        ws(  2) = 0.1017332545096032D-04
        ws(  3) = 0.1557947041347007D-04
        ws(  4) = 0.2132943511110102D-04
        ws(  5) = 0.2676160960851355D-04
        ws(  6) = 0.3242287808098846D-04
        ws(  7) = 0.3779344853829576D-04
        ws(  8) = 0.4338576738930869D-04
        ws(  9) = 0.4877560784148392D-04
        ws( 10) = 0.5435381036885561D-04
        ws( 11) = 0.5985865547824677D-04
        ws( 12) = 0.6549877700753760D-04
        ws( 13) = 0.7127770749779105D-04
        ws( 14) = 0.7701565601185886D-04
        ws( 15) = 0.8316800259805238D-04
        ws( 16) = 0.8929415531269526D-04
        ws( 17) = 0.9567130658322101D-04
        ws( 18) = 0.1022371012401794D-03
        ws( 19) = 0.1090299943239640D-03
        ws( 20) = 0.1162105996943719D-03
        ws( 21) = 0.1235821069269436D-03
        ws( 22) = 0.1317896443631216D-03
        ws( 23) = 0.1399407885709708D-03
        ws( 24) = 0.1486472897963153D-03
        ws( 25) = 0.1579433731530067D-03
        ws( 26) = 0.1677862140646734D-03
        ws( 27) = 0.1785255374445871D-03
        ws( 28) = 0.1893569107117687D-03
        ws( 29) = 0.2017421697618624D-03
        ws( 30) = 0.2149839149328838D-03
        ws( 31) = 0.2284000386008067D-03
        ws( 32) = 0.2435422778978942D-03
        ws( 33) = 0.2600097663508856D-03
        ws( 34) = 0.2776405138463263D-03
        ws( 35) = 0.2960054518466047D-03
        ws( 36) = 0.3177577086061538D-03
        ws( 37) = 0.3428122012480209D-03
        ws( 38) = 0.3684032703563923D-03
        ws( 39) = 0.3959948477957545D-03
        ws( 40) = 0.4335110313217451D-03
        ws( 41) = 0.4721879651996475D-03
        ws( 42) = 0.5077580067919095D-03
        ws( 43) = 0.5572129084559642D-03
        ws( 44) = 0.6049445383683768D-03
        ws( 45) = 0.6546012309910519D-03
        ws( 46) = 0.7485175553565964D-03
        ws( 47) = 0.8673400989732330D-03
        ws( 48) = 0.9963713896084783D-03
        ws( 49) = 0.1184881934385122D-02
        ws( 50) = 0.1443612179607478D-02
        ws( 51) = 0.1718910251305037D-02
        ws( 52) = 0.2054851716528614D-02
        ws( 53) = 0.2648150894155194D-02
        ws( 54) = 0.3630766823460396D-02
        ws( 55) = 0.5216078437540826D-02
        ws( 56) = 0.7759483091890999D-02
        ws( 57) = 0.1215477517663659D-01
        ws( 58) = 0.2394357773308510D-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 =  63
        err = 0.7045072898193887D-03
        xs(  1) = 0.1465567245510450D-05
        xs(  2) = 0.7549992580588019D-05
        xs(  3) = 0.1852868447338127D-04
        xs(  4) = 0.3432704294951597D-04
        xs(  5) = 0.5491994911350010D-04
        xs(  6) = 0.8035450447285487D-04
        xs(  7) = 0.1105014650265625D-03
        xs(  8) = 0.1454281260052608D-03
        xs(  9) = 0.1850871874528386D-03
        xs( 10) = 0.2294998102224772D-03
        xs( 11) = 0.2786945854261254D-03
        xs( 12) = 0.3326914906800917D-03
        xs( 13) = 0.3915860678637137D-03
        xs( 14) = 0.4554056320410094D-03
        xs( 15) = 0.5242528159186226D-03
        xs( 16) = 0.5982244350262366D-03
        xs( 17) = 0.6774807065062256D-03
        xs( 18) = 0.7621709625639807D-03
        xs( 19) = 0.8524323029277184D-03
        xs( 20) = 0.9484152520473841D-03
        xs( 21) = 0.1050283864205809D-02
        xs( 22) = 0.1158402879003681D-02
        xs( 23) = 0.1273103595091369D-02
        xs( 24) = 0.1394632810605824D-02
        xs( 25) = 0.1523155158409383D-02
        xs( 26) = 0.1659083766059619D-02
        xs( 27) = 0.1803022776060485D-02
        xs( 28) = 0.1955419617734761D-02
        xs( 29) = 0.2116560415850706D-02
        xs( 30) = 0.2286859625957665D-02
        xs( 31) = 0.2467261288672739D-02
        xs( 32) = 0.2658658675353807D-02
        xs( 33) = 0.2861527013313213D-02
        xs( 34) = 0.3075866656867922D-02
        xs( 35) = 0.3303323485281278D-02
        xs( 36) = 0.3545466750262865D-02
        xs( 37) = 0.3802372268643631D-02
        xs( 38) = 0.4075527999921146D-02
        xs( 39) = 0.4368214516459221D-02
        xs( 40) = 0.4681239544697525D-02
        xs( 41) = 0.5014137944081668D-02
        xs( 42) = 0.5370935355637834D-02
        xs( 43) = 0.5755163147675575D-02
        xs( 44) = 0.6167453765135745D-02
        xs( 45) = 0.6612983996352227D-02
        xs( 46) = 0.7102355227598640D-02
        xs( 47) = 0.7635402321691910D-02
        xs( 48) = 0.8212873997109479D-02
        xs( 49) = 0.8845982643343355D-02
        xs( 50) = 0.9529445198596505D-02
        xs( 51) = 0.1027576719446511D-01
        xs( 52) = 0.1113250888153555D-01
        xs( 53) = 0.1211929684423617D-01
        xs( 54) = 0.1327138511415220D-01
        xs( 55) = 0.1466160767910278D-01
        xs( 56) = 0.1633789006615669D-01
        xs( 57) = 0.1833126635478508D-01
        xs( 58) = 0.2081745487676498D-01
        xs( 59) = 0.2414050461826700D-01
        xs( 60) = 0.2877676734294347D-01
        xs( 61) = 0.3550502565346318D-01
        xs( 62) = 0.4565387512726316D-01
        xs( 63) = 0.6344122624191510D-01
        ws(  1) = 0.3727154399802774D-05
        ws(  2) = 0.8491802694129110D-05
        ws(  3) = 0.1337979388480383D-04
        ws(  4) = 0.1825794570674060D-04
        ws(  5) = 0.2300095712795676D-04
        ws(  6) = 0.2774703534337767D-04
        ws(  7) = 0.3254926262448317D-04
        ws(  8) = 0.3733495911057636D-04
        ws(  9) = 0.4201462908227955D-04
        ws( 10) = 0.4681059581234895D-04
        ws( 11) = 0.5155406126571965D-04
        ws( 12) = 0.5644897784884487D-04
        ws( 13) = 0.6133770284410080D-04
        ws( 14) = 0.6632606887409215D-04
        ws( 15) = 0.7138577148365166D-04
        ws( 16) = 0.7657573999697881D-04
        ws( 17) = 0.8197861798676500D-04
        ws( 18) = 0.8744232639162588D-04
        ws( 19) = 0.9310562088752994D-04
        ws( 20) = 0.9883363272801825D-04
        ws( 21) = 0.1049573649763266D-03
        ws( 22) = 0.1113572907197772D-03
        ws( 23) = 0.1181176972988746D-03
        ws( 24) = 0.1249001207991487D-03
        ws( 25) = 0.1322335316907180D-03
        ws( 26) = 0.1397785453559283D-03
        ws( 27) = 0.1480902017506638D-03
        ws( 28) = 0.1567910700314117D-03
        ws( 29) = 0.1655460258634603D-03
        ws( 30) = 0.1751836978603330D-03
        ws( 31) = 0.1857775319824655D-03
        ws( 32) = 0.1971346886149868D-03
        ws( 33) = 0.2085178913767855D-03
        ws( 34) = 0.2204124441907199D-03
        ws( 35) = 0.2347976810754026D-03
        ws( 36) = 0.2494448170202358D-03
        ws( 37) = 0.2645817465077897D-03
        ws( 38) = 0.2823188486861795D-03
        ws( 39) = 0.3031535976669170D-03
        ws( 40) = 0.3226170323737565D-03
        ws( 41) = 0.3440712363334554D-03
        ws( 42) = 0.3701739940993558D-03
        ws( 43) = 0.3982194246851398D-03
        ws( 44) = 0.4269875192968153D-03
        ws( 45) = 0.4664222349317047D-03
        ws( 46) = 0.5120329426644356D-03
        ws( 47) = 0.5536201592148561D-03
        ws( 48) = 0.6038563664504996D-03
        ws( 49) = 0.6602091385329995D-03
        ws( 50) = 0.7081709643881428D-03
        ws( 51) = 0.7945265987581403D-03
        ws( 52) = 0.9203145397718564D-03
        ws( 53) = 0.1059062928397449D-02
        ws( 54) = 0.1258209562853105D-02
        ws( 55) = 0.1530797328746446D-02
        ws( 56) = 0.1824510890068117D-02
        ws( 57) = 0.2188663692351181D-02
        ws( 58) = 0.2843809916306454D-02
        ws( 59) = 0.3875840231397345D-02
        ws( 60) = 0.5527029792641311D-02
        ws( 61) = 0.8105269478606011D-02
        ws( 62) = 0.1266311760294849D-01
        ws( 63) = 0.2389204558805596D-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 =  67
        err = 0.6401851072142539D-03
        xs(  1) = 0.1334723330174282D-05
        xs(  2) = 0.6715803799456871D-05
        xs(  3) = 0.1645487311719107D-04
        xs(  4) = 0.3050761707461022D-04
        xs(  5) = 0.4874414052958809D-04
        xs(  6) = 0.7130107004429141D-04
        xs(  7) = 0.9799010354008687D-04
        xs(  8) = 0.1288614592668722D-03
        xs(  9) = 0.1639259810035123D-03
        xs( 10) = 0.2031167785852020D-03
        xs( 11) = 0.2465076651727523D-03
        xs( 12) = 0.2940481711749438D-03
        xs( 13) = 0.3458457337201519D-03
        xs( 14) = 0.4019151324971424D-03
        xs( 15) = 0.4623345384574206D-03
        xs( 16) = 0.5270845728394110D-03
        xs( 17) = 0.5963444559794859D-03
        xs( 18) = 0.6702031576424239D-03
        xs( 19) = 0.7488358491451550D-03
        xs( 20) = 0.8323040641247641D-03
        xs( 21) = 0.9206895258987071D-03
        xs( 22) = 0.1014190642293600D-02
        xs( 23) = 0.1113135664096796D-02
        xs( 24) = 0.1217754036073823D-02
        xs( 25) = 0.1328144994967982D-02
        xs( 26) = 0.1444451328225387D-02
        xs( 27) = 0.1567047846561644D-02
        xs( 28) = 0.1696401955621398D-02
        xs( 29) = 0.1832864372083519D-02
        xs( 30) = 0.1976705019874901D-02
        xs( 31) = 0.2128333401428347D-02
        xs( 32) = 0.2288020581314652D-02
        xs( 33) = 0.2456458604097721D-02
        xs( 34) = 0.2634394643613877D-02
        xs( 35) = 0.2822023422620800D-02
        xs( 36) = 0.3020235087433182D-02
        xs( 37) = 0.3229773654275015D-02
        xs( 38) = 0.3451102336359532D-02
        xs( 39) = 0.3685619962294458D-02
        xs( 40) = 0.3934810948045114D-02
        xs( 41) = 0.4198481779589260D-02
        xs( 42) = 0.4478290241855295D-02
        xs( 43) = 0.4777289804730754D-02
        xs( 44) = 0.5095095720928740D-02
        xs( 45) = 0.5432468728331224D-02
        xs( 46) = 0.5795324771907305D-02
        xs( 47) = 0.6184783499442939D-02
        xs( 48) = 0.6602364096381499D-02
        xs( 49) = 0.7055492982837452D-02
        xs( 50) = 0.7549382553537721D-02
        xs( 51) = 0.8077604781737750D-02
        xs( 52) = 0.8648261531335260D-02
        xs( 53) = 0.9274838388923073D-02
        xs( 54) = 0.9949670168241080D-02
        xs( 55) = 0.1070508523622153D-01
        xs( 56) = 0.1157768889519569D-01
        xs( 57) = 0.1256433852006668D-01
        xs( 58) = 0.1371281751910342D-01
        xs( 59) = 0.1509604313683020D-01
        xs( 60) = 0.1674010643009193D-01
        xs( 61) = 0.1867356563808917D-01
        xs( 62) = 0.2111203516988853D-01
        xs( 63) = 0.2437946336910765D-01
        xs( 64) = 0.2889707213711099D-01
        xs( 65) = 0.3536166576469907D-01
        xs( 66) = 0.4493363726176983D-01
        xs( 67) = 0.6167935105734176D-01
        ws(  1) = 0.3309512773468981D-05
        ws(  2) = 0.7540186741545746D-05
        ws(  3) = 0.1193341195874994D-04
        ws(  4) = 0.1609399201651671D-04
        ws(  5) = 0.2048483770544657D-04
        ws(  6) = 0.2456507138127017D-04
        ws(  7) = 0.2878864707691592D-04
        ws(  8) = 0.3297516701770303D-04
        ws(  9) = 0.3712094417306195D-04
        ws( 10) = 0.4129190138246729D-04
        ws( 11) = 0.4546009625910783D-04
        ws( 12) = 0.4968569025912718D-04
        ws( 13) = 0.5390371834955832D-04
        ws( 14) = 0.5823039627479070D-04
        ws( 15) = 0.6257052896708371D-04
        ws( 16) = 0.6698775735260766D-04
        ws( 17) = 0.7151554070193869D-04
        ws( 18) = 0.7621855867616897D-04
        ws( 19) = 0.8106936263681356D-04
        ws( 20) = 0.8587831341358180D-04
        ws( 21) = 0.9091301545296219D-04
        ws( 22) = 0.9614012521797967D-04
        ws( 23) = 0.1017776178744324D-03
        ws( 24) = 0.1074787995805807D-03
        ws( 25) = 0.1132888584851965D-03
        ws( 26) = 0.1193671186278496D-03
        ws( 27) = 0.1259431604514691D-03
        ws( 28) = 0.1327852432710598D-03
        ws( 29) = 0.1401441853520860D-03
        ws( 30) = 0.1476188493664030D-03
        ws( 31) = 0.1555733475110848D-03
        ws( 32) = 0.1639327305087478D-03
        ws( 33) = 0.1730848478749457D-03
        ws( 34) = 0.1827057575746480D-03
        ws( 35) = 0.1926865100099781D-03
        ws( 36) = 0.2038734414187826D-03
        ws( 37) = 0.2151923442970085D-03
        ws( 38) = 0.2276701452848343D-03
        ws( 39) = 0.2417247869460377D-03
        ws( 40) = 0.2565437347370949D-03
        ws( 41) = 0.2710999968871551D-03
        ws( 42) = 0.2892311432014145D-03
        ws( 43) = 0.3086933690074555D-03
        ws( 44) = 0.3269349553726014D-03
        ws( 45) = 0.3492370451772097D-03
        ws( 46) = 0.3763896621984050D-03
        ws( 47) = 0.4029921678342731D-03
        ws( 48) = 0.4333765543021780D-03
        ws( 49) = 0.4740880261104756D-03
        ws( 50) = 0.5117892549976522D-03
        ws( 51) = 0.5457800835463404D-03
        ws( 52) = 0.5994211556916329D-03
        ws( 53) = 0.6498544902638822D-03
        ws( 54) = 0.7058808519615060D-03
        ws( 55) = 0.8133739276104479D-03
        ws( 56) = 0.9275850917795673D-03
        ws( 57) = 0.1054819949476243D-02
        ws( 58) = 0.1256008396274297D-02
        ws( 59) = 0.1512548623310116D-02
        ws( 60) = 0.1774591550195267D-02
        ws( 61) = 0.2128637636067719D-02
        ws( 62) = 0.2802526367790951D-02
        ws( 63) = 0.3796428518076460D-02
        ws( 64) = 0.5345682201951474D-02
        ws( 65) = 0.7709821953293543D-02
        ws( 66) = 0.1190676285096421D-01
        ws( 67) = 0.2366644141932591D-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 =  72
        err = 0.5780299611390131D-03
        xs(  1) = 0.1116431546736648D-05
        xs(  2) = 0.5878052081381375D-05
        xs(  3) = 0.1446893659716745D-04
        xs(  4) = 0.2685339441658520D-04
        xs(  5) = 0.4294724030509143D-04
        xs(  6) = 0.6279859598206125D-04
        xs(  7) = 0.8638784477139965D-04
        xs(  8) = 0.1135813564565247D-03
        xs(  9) = 0.1445462176993559D-03
        xs( 10) = 0.1790919718271302D-03
        xs( 11) = 0.2173502171802243D-03
        xs( 12) = 0.2592755311824591D-03
        xs( 13) = 0.3049019485743699D-03
        xs( 14) = 0.3542484165514971D-03
        xs( 15) = 0.4073898779750431D-03
        xs( 16) = 0.4643093256720724D-03
        xs( 17) = 0.5251325457184511D-03
        xs( 18) = 0.5899347764316153D-03
        xs( 19) = 0.6588210056484208D-03
        xs( 20) = 0.7317814538963041D-03
        xs( 21) = 0.8089564425872944D-03
        xs( 22) = 0.8904509808580850D-03
        xs( 23) = 0.9764894832018312D-03
        xs( 24) = 0.1067198706207912D-02
        xs( 25) = 0.1162765851835488D-02
        xs( 26) = 0.1263246087216686D-02
        xs( 27) = 0.1368932706815629D-02
        xs( 28) = 0.1480049285278866D-02
        xs( 29) = 0.1596890079119687D-02
        xs( 30) = 0.1719659053184018D-02
        xs( 31) = 0.1848498513412691D-02
        xs( 32) = 0.1983796277556048D-02
        xs( 33) = 0.2126050644430916D-02
        xs( 34) = 0.2275589441165477D-02
        xs( 35) = 0.2432699825611233D-02
        xs( 36) = 0.2597837218694354D-02
        xs( 37) = 0.2771678285309954D-02
        xs( 38) = 0.2954572396847630D-02
        xs( 39) = 0.3146845456967303D-02
        xs( 40) = 0.3349750036077430D-02
        xs( 41) = 0.3563943814347758D-02
        xs( 42) = 0.3789695049327567D-02
        xs( 43) = 0.4027657668405997D-02
        xs( 44) = 0.4280054303241746D-02
        xs( 45) = 0.4547669365568350D-02
        xs( 46) = 0.4830694922837714D-02
        xs( 47) = 0.5130713362345647D-02
        xs( 48) = 0.5451239941611646D-02
        xs( 49) = 0.5791486959511205D-02
        xs( 50) = 0.6152585965651075D-02
        xs( 51) = 0.6539705822962634D-02
        xs( 52) = 0.6955065782852083D-02
        xs( 53) = 0.7400583226449129D-02
        xs( 54) = 0.7886099885560136D-02
        xs( 55) = 0.8413222088903476D-02
        xs( 56) = 0.8976896227470429D-02
        xs( 57) = 0.9585064090630691D-02
        xs( 58) = 0.1024628581415256D-01
        xs( 59) = 0.1096129641124458D-01
        xs( 60) = 0.1177093446468363D-01
        xs( 61) = 0.1270358840994107D-01
        xs( 62) = 0.1376655593113969D-01
        xs( 63) = 0.1501438282884325D-01
        xs( 64) = 0.1650706731216633D-01
        xs( 65) = 0.1827605021353498D-01
        xs( 66) = 0.2039401935251113D-01
        xs( 67) = 0.2308490303996155D-01
        xs( 68) = 0.2666696386929401D-01
        xs( 69) = 0.3161554881389841D-01
        xs( 70) = 0.3868050236807372D-01
        xs( 71) = 0.4934531875672283D-01
        xs( 72) = 0.6814120292162398D-01
        ws(  1) = 0.2871597568247921D-05
        ws(  2) = 0.6674056607881816D-05
        ws(  3) = 0.1049332663408245D-04
        ws(  4) = 0.1422653832919276D-04
        ws(  5) = 0.1798170374776035D-04
        ws(  6) = 0.2175338675449518D-04
        ws(  7) = 0.2537545941096658D-04
        ws(  8) = 0.2907462899028476D-04
        ws(  9) = 0.3274320604680250D-04
        ws( 10) = 0.3643660767163929D-04
        ws( 11) = 0.4005111904869329D-04
        ws( 12) = 0.4380651944287535D-04
        ws( 13) = 0.4745976956656884D-04
        ws( 14) = 0.5124067998789591D-04
        ws( 15) = 0.5501306561590351D-04
        ws( 16) = 0.5886239182679609D-04
        ws( 17) = 0.6281663559215617D-04
        ws( 18) = 0.6680379418853044D-04
        ws( 19) = 0.7091062609785363D-04
        ws( 20) = 0.7506214996416590D-04
        ws( 21) = 0.7928747020582493D-04
        ws( 22) = 0.8375202771138052D-04
        ws( 23) = 0.8832508901933665D-04
        ws( 24) = 0.9313118061776681D-04
        ws( 25) = 0.9800588970250769D-04
        ws( 26) = 0.1030237034490829D-03
        ws( 27) = 0.1083148043671771D-03
        ws( 28) = 0.1139980340280910D-03
        ws( 29) = 0.1197273922475717D-03
        ws( 30) = 0.1257921975674048D-03
        ws( 31) = 0.1319878072044564D-03
        ws( 32) = 0.1386679289855235D-03
        ws( 33) = 0.1458962699230772D-03
        ws( 34) = 0.1532796455882303D-03
        ws( 35) = 0.1609822442367823D-03
        ws( 36) = 0.1693964325352498D-03
        ws( 37) = 0.1783944982076042D-03
        ws( 38) = 0.1874559395833393D-03
        ws( 39) = 0.1973549094846633D-03
        ws( 40) = 0.2084668846058005D-03
        ws( 41) = 0.2200506438947575D-03
        ws( 42) = 0.2315945215313765D-03
        ws( 43) = 0.2447786853007209D-03
        ws( 44) = 0.2600874184160431D-03
        ws( 45) = 0.2751974807458634D-03
        ws( 46) = 0.2910170121790626D-03
        ws( 47) = 0.3098952704762224D-03
        ws( 48) = 0.3308644847071336D-03
        ws( 49) = 0.3497446485023659D-03
        ws( 50) = 0.3735144113356029D-03
        ws( 51) = 0.4011520186432781D-03
        ws( 52) = 0.4296122953079049D-03
        ws( 53) = 0.4637249621575504D-03
        ws( 54) = 0.5073878202878419D-03
        ws( 55) = 0.5457048175836711D-03
        ws( 56) = 0.5831384733594185D-03
        ws( 57) = 0.6352936365822174D-03
        ws( 58) = 0.6854934326753568D-03
        ws( 59) = 0.7528827847840901D-03
        ws( 60) = 0.8713703966823402D-03
        ws( 61) = 0.9931318868390908D-03
        ws( 62) = 0.1144037030889310D-02
        ws( 63) = 0.1361850244177869D-02
        ws( 64) = 0.1627720035290979D-02
        ws( 65) = 0.1917501803196718D-02
        ws( 66) = 0.2356063290669644D-02
        ws( 67) = 0.3073064932409551D-02
        ws( 68) = 0.4166360880250204D-02
        ws( 69) = 0.5842789823289806D-02
        ws( 70) = 0.8479543327248949D-02
        ws( 71) = 0.1337229175902418D-01
        ws( 72) = 0.2621848446413977D-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 =   8
        err = 0.4907661114041636D-03
        xs(  1) = 0.9722411718789053D-03
        xs(  2) = 0.4787071876514723D-02
        xs(  3) = 0.1071620920439522D-01
        xs(  4) = 0.1801363853781096D-01
        xs(  5) = 0.2621870902216063D-01
        xs(  6) = 0.3508087551504680D-01
        xs(  7) = 0.4446051263494896D-01
        xs(  8) = 0.5428677243917758D-01
        ws(  1) = 0.2451021372661931D-02
        ws(  2) = 0.5022345381378103D-02
        ws(  3) = 0.6715158127153617D-02
        ws(  4) = 0.7815876485566442D-02
        ws(  5) = 0.8588485196891777D-02
        ws(  6) = 0.9225799148347888D-02
        ws(  7) = 0.9892882028015771D-02
        ws(  8) = 0.1167256405389051D-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 =   8
        err = 0.4635557551308441D-03
        xs(  1) = 0.9154159600757208D-03
        xs(  2) = 0.4559709294042800D-02
        xs(  3) = 0.1033239618094736D-01
        xs(  4) = 0.1752747509975991D-01
        xs(  5) = 0.2567995512224331D-01
        xs(  6) = 0.3453049863377919D-01
        xs(  7) = 0.4392388990970288D-01
        xs(  8) = 0.5376243888014686D-01
        ws(  1) = 0.2315492152622030D-02
        ws(  2) = 0.4843619337181683D-02
        ws(  3) = 0.6585573626397450D-02
        ws(  4) = 0.7739601190568859D-02
        ws(  5) = 0.8558185037505240D-02
        ws(  6) = 0.9230145819486640D-02
        ws(  7) = 0.9913870942024167D-02
        ws(  8) = 0.1167460886993982D-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 =   8
        err = 0.6216669053852844D-03
        xs(  1) = 0.8396386827809422D-03
        xs(  2) = 0.4277921953450923D-02
        xs(  3) = 0.9894843031094497D-02
        xs(  4) = 0.1701308569110537D-01
        xs(  5) = 0.2514373135100077D-01
        xs(  6) = 0.3400413838849681D-01
        xs(  7) = 0.4341364985484689D-01
        xs(  8) = 0.5324311989680723D-01
        ws(  1) = 0.2138897761410060D-02
        ws(  2) = 0.4645764635859019D-02
        ws(  3) = 0.6472891657228705D-02
        ws(  4) = 0.7694176656756048D-02
        ws(  5) = 0.8556232815919764D-02
        ws(  6) = 0.9247933041035975D-02
        ws(  7) = 0.9927203765316039D-02
        ws(  8) = 0.1164429313271546D-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 =   8
        err = 0.7874596446828565D-03
        xs(  1) = 0.8103748590432452D-03
        xs(  2) = 0.4167996580495024D-02
        xs(  3) = 0.9722386635781516D-02
        xs(  4) = 0.1680965526762504D-01
        xs(  5) = 0.2493174162955030D-01
        xs(  6) = 0.3379496797646515D-01
        xs(  7) = 0.4320346717838314D-01
        xs(  8) = 0.5301492523239168D-01
        ws(  1) = 0.2070416375479654D-02
        ws(  2) = 0.4567298551230984D-02
        ws(  3) = 0.6427339135253521D-02
        ws(  4) = 0.7676163299989319D-02
        ws(  5) = 0.8555841728529648D-02
        ws(  6) = 0.9252201303566620D-02
        ws(  7) = 0.9921483710973204D-02
        ws(  8) = 0.1162026961786257D-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 =   9
        err = 0.6074897110181535D-03
        xs(  1) = 0.7392930980494599D-03
        xs(  2) = 0.3811845819697240D-02
        xs(  3) = 0.8971983172928672D-02
        xs(  4) = 0.1567247873557672D-01
        xs(  5) = 0.2343483299830934D-01
        xs(  6) = 0.3193127230589023D-01
        xs(  7) = 0.4095523484927723D-01
        xs(  8) = 0.5041314221835020D-01
        xs(  9) = 0.6024986916884853D-01
        ws(  1) = 0.1888457185160062D-02
        ws(  2) = 0.4199491230232025D-02
        ws(  3) = 0.6025012411844258D-02
        ws(  4) = 0.7299459688396410D-02
        ws(  5) = 0.8182703449123030D-02
        ws(  6) = 0.8808924628448834D-02
        ws(  7) = 0.9335822580565700D-02
        ws(  8) = 0.9927027596947824D-02
        ws(  9) = 0.1162231112186671D-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 =   8
        err = 0.8483486467955508D-03
        xs(  1) = 0.5134314583357706D-03
        xs(  2) = 0.2813755135443239D-02
        xs(  3) = 0.7134334556280884D-02
        xs(  4) = 0.1328158838283830D-01
        xs(  5) = 0.2077309805608400D-01
        xs(  6) = 0.2922576373927105D-01
        xs(  7) = 0.3836076388549731D-01
        xs(  8) = 0.4798386934461998D-01
        ws(  1) = 0.1332594117018556D-02
        ws(  2) = 0.3302990739851589D-02
        ws(  3) = 0.5313409558456969D-02
        ws(  4) = 0.6908462374756932D-02
        ws(  5) = 0.8054556931700034D-02
        ws(  6) = 0.8925720629088401D-02
        ws(  7) = 0.9715384593787088D-02
        ws(  8) = 0.1156547697635881D-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 =   9
        err = 0.8269999492844152D-03
        xs(  1) = 0.3619389858489236D-03
        xs(  2) = 0.2002284409285638D-02
        xs(  3) = 0.5313784068809404D-02
        xs(  4) = 0.1052294903537708D-01
        xs(  5) = 0.1735573499333794D-01
        xs(  6) = 0.2534623848778119D-01
        xs(  7) = 0.3416482048396917D-01
        xs(  8) = 0.4359630211816844D-01
        xs(  9) = 0.5337263823919250D-01
        ws(  1) = 0.9374561955617453D-03
        ws(  2) = 0.2404533326890864D-02
        ws(  3) = 0.4272191552963889D-02
        ws(  4) = 0.6096759452156429D-02
        ws(  5) = 0.7495005357803298D-02
        ws(  6) = 0.8459876903414484D-02
        ws(  7) = 0.9253488972207222D-02
        ws(  8) = 0.9960444664285780D-02
        ws(  9) = 0.1157721582585603D-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 =  11
        err = 0.8412747508075518D-03
        xs(  1) = 0.1532344329986390D-03
        xs(  2) = 0.8297682873547591D-03
        xs(  3) = 0.2193406240469710D-02
        xs(  4) = 0.4559017354404056D-02
        xs(  5) = 0.8373557947609739D-02
        xs(  6) = 0.1390395779086895D-01
        xs(  7) = 0.2095755642801352D-01
        xs(  8) = 0.2912115965912775D-01
        xs(  9) = 0.3808686133090410D-01
        xs( 10) = 0.4772358986534486D-01
        xs( 11) = 0.5773236247972915D-01
        ws(  1) = 0.3938049552922626D-03
        ws(  2) = 0.9843504677076933D-03
        ws(  3) = 0.1793563138050734D-02
        ws(  4) = 0.3017080356631930D-02
        ws(  5) = 0.4663917475298450D-02
        ws(  6) = 0.6359722122399047D-02
        ws(  7) = 0.7684624928530257D-02
        ws(  8) = 0.8614965109344312D-02
        ws(  9) = 0.9402168049458049D-02
        ws( 10) = 0.1021219977504958D-01
        ws( 11) = 0.1192912788191465D-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 =  15
        err = 0.5817497112823584D-03
        xs(  1) = 0.4853604209781447D-04
        xs(  2) = 0.2545347822513378D-03
        xs(  3) = 0.6381377171323505D-03
        xs(  4) = 0.1225447455821052D-02
        xs(  5) = 0.2065303518718062D-02
        xs(  6) = 0.3250363263881317D-02
        xs(  7) = 0.4948283067457029D-02
        xs(  8) = 0.7454603115549624D-02
        xs(  9) = 0.1121431709481415D-01
        xs( 10) = 0.1670250079157595D-01
        xs( 11) = 0.2402073939907985D-01
        xs( 12) = 0.3278296075186895D-01
        xs( 13) = 0.4244637049035301D-01
        xs( 14) = 0.5273231135337286D-01
        xs( 15) = 0.6336500641605557D-01
        ws(  1) = 0.1233393930073564D-03
        ws(  2) = 0.2927848273077388D-03
        ws(  3) = 0.4776791201997729D-03
        ws(  4) = 0.7039160996695754D-03
        ws(  5) = 0.9916238441008164D-03
        ws(  6) = 0.1403769238970296D-02
        ws(  7) = 0.2042299280990723D-02
        ws(  8) = 0.3045367882222327D-02
        ws(  9) = 0.4558671430318361D-02
        ws( 10) = 0.6427691621228060D-02
        ws( 11) = 0.8135140424726286D-02
        ws( 12) = 0.9312065819716796D-02
        ws( 13) = 0.1012713220772832D-01
        ws( 14) = 0.1071563129120697D-01
        ws( 15) = 0.1214703551519589D-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 =  18
        err = 0.7367062962379528D-03
        xs(  1) = 0.2376982798200522D-04
        xs(  2) = 0.1272294239035010D-03
        xs(  3) = 0.3164604958740491D-03
        xs(  4) = 0.5994026370041185D-03
        xs(  5) = 0.9872774253647442D-03
        xs(  6) = 0.1496128291100943D-02
        xs(  7) = 0.2147811453997835D-02
        xs(  8) = 0.2977889706404132D-02
        xs(  9) = 0.4053923060644460D-02
        xs( 10) = 0.5498577935249679D-02
        xs( 11) = 0.7512787540962559D-02
        xs( 12) = 0.1041954961588739D-01
        xs( 13) = 0.1471738182361364D-01
        xs( 14) = 0.2097922623099098D-01
        xs( 15) = 0.2940172337720506D-01
        xs( 16) = 0.3948712546528583D-01
        xs( 17) = 0.5048792011570426D-01
        xs( 18) = 0.6159594529663503D-01
        ws(  1) = 0.6131706517059570D-04
        ws(  2) = 0.1456996082536429D-03
        ws(  3) = 0.2345468102561005D-03
        ws(  4) = 0.3331631902312836D-03
        ws(  5) = 0.4454282354419423D-03
        ws(  6) = 0.5757791117150776D-03
        ws(  7) = 0.7330174892366624D-03
        ws(  8) = 0.9383640788411822D-03
        ws(  9) = 0.1233804376811628D-02
        ws( 10) = 0.1688582344287284D-02
        ws( 11) = 0.2392758997257401D-02
        ws( 12) = 0.3503198530473940D-02
        ws( 13) = 0.5192935908424560D-02
        ws( 14) = 0.7359636344745430D-02
        ws( 15) = 0.9370244750392104D-02
        ws( 16) = 0.1067183776244895D-01
        ws( 17) = 0.1157800924484256D-01
        ws( 18) = 0.1169767293762614D-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 =  21
        err = 0.9450626151638148D-03
        xs(  1) = 0.1496949541481644D-04
        xs(  2) = 0.7834069947354281D-04
        xs(  3) = 0.1935108193667082D-03
        xs(  4) = 0.3617799782864525D-03
        xs(  5) = 0.5865281583283227D-03
        xs(  6) = 0.8718953810039818D-03
        xs(  7) = 0.1223660779294712D-02
        xs(  8) = 0.1653235889625638D-02
        xs(  9) = 0.2176282307638084D-02
        xs( 10) = 0.2814318433882064D-02
        xs( 11) = 0.3587828286672948D-02
        xs( 12) = 0.4534251630410989D-02
        xs( 13) = 0.5723872563694685D-02
        xs( 14) = 0.7288860494245906D-02
        xs( 15) = 0.9431750997914675D-02
        xs( 16) = 0.1250570744049374D-01
        xs( 17) = 0.1706820379197836D-01
        xs( 18) = 0.2385862107743290D-01
        xs( 19) = 0.3332133464837419D-01
        xs( 20) = 0.4503512554512978D-01
        xs( 21) = 0.5736337812469598D-01
        ws(  1) = 0.3801587888202597D-04
        ws(  2) = 0.8907483279666774D-04
        ws(  3) = 0.1413999178145533D-03
        ws(  4) = 0.1958986935175467D-03
        ws(  5) = 0.2541670225358912D-03
        ws(  6) = 0.3174066024409545D-03
        ws(  7) = 0.3882174185791394D-03
        ws(  8) = 0.4735535724091864D-03
        ws(  9) = 0.5763835734310590D-03
        ws( 10) = 0.7021354206475213D-03
        ws( 11) = 0.8514249946162846D-03
        ws( 12) = 0.1052170946038990D-02
        ws( 13) = 0.1351122884186290D-02
        ws( 14) = 0.1810037028460972D-02
        ws( 15) = 0.2534998066928330D-02
        ws( 16) = 0.3704113269360962D-02
        ws( 17) = 0.5547117933052019D-02
        ws( 18) = 0.8073691032639361D-02
        ws( 19) = 0.1072468467574090D-01
        ws( 20) = 0.1256153897415056D-01
        ws( 21) = 0.1193738957914203D-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 =  26
        err = 0.4875126852521867D-03
        xs(  1) = 0.9968974404089522D-05
        xs(  2) = 0.5231882512604900D-04
        xs(  3) = 0.1287404105723434D-03
        xs(  4) = 0.2397430746140393D-03
        xs(  5) = 0.3861480050165220D-03
        xs(  6) = 0.5691969206948406D-03
        xs(  7) = 0.7903938505126789D-03
        xs(  8) = 0.1052371504951972D-02
        xs(  9) = 0.1359326902431876D-02
        xs( 10) = 0.1716539520583534D-02
        xs( 11) = 0.2131280793421075D-02
        xs( 12) = 0.2613223783131755D-02
        xs( 13) = 0.3174543272376129D-02
        xs( 14) = 0.3829050327524656D-02
        xs( 15) = 0.4598010129690854D-02
        xs( 16) = 0.5514902115136094D-02
        xs( 17) = 0.6623276142962628D-02
        xs( 18) = 0.8007634475763732D-02
        xs( 19) = 0.9820172474361162D-02
        xs( 20) = 0.1226139746466677D-01
        xs( 21) = 0.1564816789043131D-01
        xs( 22) = 0.2055673245173489D-01
        xs( 23) = 0.2778648472257290D-01
        xs( 24) = 0.3791640316166971D-01
        xs( 25) = 0.5063242553809159D-01
        xs( 26) = 0.6453917277294811D-01
        ws(  1) = 0.2548606946341475D-04
        ws(  2) = 0.5929843800405596D-04
        ws(  3) = 0.9366287204084809D-04
        ws(  4) = 0.1285045364681361D-03
        ws(  5) = 0.1645160487204313D-03
        ws(  6) = 0.2018033304329626D-03
        ws(  7) = 0.2410117026198620D-03
        ws(  8) = 0.2837062040473059D-03
        ws(  9) = 0.3310033494560631D-03
        ws( 10) = 0.3845642117539294D-03
        ws( 11) = 0.4464302497906889D-03
        ws( 12) = 0.5196223412251049D-03
        ws( 13) = 0.6052385611015335D-03
        ws( 14) = 0.7071822443809939D-03
        ws( 15) = 0.8363574758549456D-03
        ws( 16) = 0.1004004762772643D-02
        ws( 17) = 0.1226496816640059D-02
        ws( 18) = 0.1568949802708928D-02
        ws( 19) = 0.2088851806562459D-02
        ws( 20) = 0.2844549197252472D-02
        ws( 21) = 0.4028113339663173D-02
        ws( 22) = 0.5926164889611614D-02
        ws( 23) = 0.8621300176612192D-02
        ws( 24) = 0.1154754751982691D-01
        ws( 25) = 0.1372047746170693D-01
        ws( 26) = 0.1347542284018859D-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 =  29
        err = 0.7857150136002120D-03
        xs(  1) = 0.7355260017699557D-05
        xs(  2) = 0.3840362531741193D-04
        xs(  3) = 0.9435834728415603D-04
        xs(  4) = 0.1754683840041919D-03
        xs(  5) = 0.2820187023505149D-03
        xs(  6) = 0.4144711078795446D-03
        xs(  7) = 0.5733757970171803D-03
        xs(  8) = 0.7593604116702471D-03
        xs(  9) = 0.9737235068506926D-03
        xs( 10) = 0.1219147121644287D-02
        xs( 11) = 0.1499637910683876D-02
        xs( 12) = 0.1819000702943420D-02
        xs( 13) = 0.2182053383581441D-02
        xs( 14) = 0.2594395454505708D-02
        xs( 15) = 0.3064266715564996D-02
        xs( 16) = 0.3601576220832809D-02
        xs( 17) = 0.4221895207066405D-02
        xs( 18) = 0.4940904711259232D-02
        xs( 19) = 0.5771049306403031D-02
        xs( 20) = 0.6748755299184818D-02
        xs( 21) = 0.7974568428028694D-02
        xs( 22) = 0.9565289259694135D-02
        xs( 23) = 0.1165004813699338D-01
        xs( 24) = 0.1445879257522702D-01
        xs( 25) = 0.1842729471487401D-01
        xs( 26) = 0.2425025680482914D-01
        xs( 27) = 0.3282114230954233D-01
        xs( 28) = 0.4473337164797375D-01
        xs( 29) = 0.5913906689795091D-01
        ws(  1) = 0.1864653568083240D-04
        ws(  2) = 0.4349806158753658D-04
        ws(  3) = 0.6855088560457231D-04
        ws(  4) = 0.9378634456363043D-04
        ws(  5) = 0.1193977339062138D-03
        ws(  6) = 0.1456108844206319D-03
        ws(  7) = 0.1723243975543086D-03
        ws(  8) = 0.1999125464989831D-03
        ws(  9) = 0.2292326965758723D-03
        ws( 10) = 0.2623329324167055D-03
        ws( 11) = 0.2992945878328149D-03
        ws( 12) = 0.3404921130499788D-03
        ws( 13) = 0.3865791378836903D-03
        ws( 14) = 0.4395243655447861D-03
        ws( 15) = 0.5016489956056836D-03
        ws( 16) = 0.5759062601008780D-03
        ws( 17) = 0.6675227750192786D-03
        ws( 18) = 0.7721446828823333D-03
        ws( 19) = 0.8922115051356565D-03
        ws( 20) = 0.1081072294321879D-02
        ws( 21) = 0.1389634607845948D-02
        ws( 22) = 0.1811206853925718D-02
        ws( 23) = 0.2394334916376849D-02
        ws( 24) = 0.3298847124013995D-02
        ws( 25) = 0.4762218698479310D-02
        ws( 26) = 0.7043506933601774D-02
        ws( 27) = 0.1019830595684315D-01
        ws( 28) = 0.1358829748104175D-01
        ws( 29) = 0.1469123346002563D-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 =  34
        err = 0.5691425442180818D-03
        xs(  1) = 0.5455452092795768D-05
        xs(  2) = 0.2842308541105367D-04
        xs(  3) = 0.6974852887512726D-04
        xs(  4) = 0.1295309659640221D-03
        xs(  5) = 0.2078089360134316D-03
        xs(  6) = 0.3048764323307496D-03
        xs(  7) = 0.4209492841546926D-03
        xs(  8) = 0.5564644217715607D-03
        xs(  9) = 0.7120354790809075D-03
        xs( 10) = 0.8888279639227678D-03
        xs( 11) = 0.1088159437337135D-02
        xs( 12) = 0.1311743922851991D-02
        xs( 13) = 0.1561829281919670D-02
        xs( 14) = 0.1841234703150329D-02
        xs( 15) = 0.2152030518884416D-02
        xs( 16) = 0.2496667034032395D-02
        xs( 17) = 0.2878579125038078D-02
        xs( 18) = 0.3305134867307528D-02
        xs( 19) = 0.3785114660145906D-02
        xs( 20) = 0.4329514040946770D-02
        xs( 21) = 0.4954021128336614D-02
        xs( 22) = 0.5675244626183230D-02
        xs( 23) = 0.6503348653171817D-02
        xs( 24) = 0.7460450010016136D-02
        xs( 25) = 0.8595096899837945D-02
        xs( 26) = 0.9992091066261016D-02
        xs( 27) = 0.1178414915695471D-01
        xs( 28) = 0.1413368442501819D-01
        xs( 29) = 0.1726937886912201D-01
        xs( 30) = 0.2162556556440045D-01
        xs( 31) = 0.2797123907191448D-01
        xs( 32) = 0.3725702544303949D-01
        xs( 33) = 0.4997697621833173D-01
        xs( 34) = 0.6488137270154271D-01
        ws(  1) = 0.1385295180275559D-04
        ws(  2) = 0.3211570280938146D-04
        ws(  3) = 0.5062128118886310D-04
        ws(  4) = 0.6898552822019323D-04
        ws(  5) = 0.8761409947051831D-04
        ws(  6) = 0.1064821722135760D-03
        ws(  7) = 0.1257130401600088D-03
        ws(  8) = 0.1454024706531175D-03
        ws(  9) = 0.1659634482921961D-03
        ws( 10) = 0.1877930013751139D-03
        ws( 11) = 0.2111224390557696D-03
        ws( 12) = 0.2363876373032614D-03
        ws( 13) = 0.2643240838184333D-03
        ws( 14) = 0.2947114886125603D-03
        ws( 15) = 0.3272519525896325D-03
        ws( 16) = 0.3624279759539766D-03
        ws( 17) = 0.4028030735596731D-03
        ws( 18) = 0.4517817624567417D-03
        ws( 19) = 0.5100979659600162D-03
        ws( 20) = 0.5812409800893985D-03
        ws( 21) = 0.6711315771064044D-03
        ws( 22) = 0.7729466979116439D-03
        ws( 23) = 0.8873077199998438D-03
        ws( 24) = 0.1035216738371702D-02
        ws( 25) = 0.1248030462776057D-02
        ws( 26) = 0.1570593565170815D-02
        ws( 27) = 0.2042907570023900D-02
        ws( 28) = 0.2694041358162539D-02
        ws( 29) = 0.3653499269180538D-02
        ws( 30) = 0.5207733759659471D-02
        ws( 31) = 0.7653448374274584D-02
        ws( 32) = 0.1096545403135458D-01
        ws( 33) = 0.1440511106292576D-01
        ws( 34) = 0.1447647208629648D-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 =  38
        err = 0.7499446621180261D-03
        xs(  1) = 0.4355842791577949D-05
        xs(  2) = 0.2249581625594000D-04
        xs(  3) = 0.5504872532964330D-04
        xs(  4) = 0.1022527602590275D-03
        xs(  5) = 0.1638281456449993D-03
        xs(  6) = 0.2400947333986406D-03
        xs(  7) = 0.3309741062175688D-03
        xs(  8) = 0.4365761506441326D-03
        xs(  9) = 0.5571791611770455D-03
        xs( 10) = 0.6931906531081160D-03
        xs( 11) = 0.8456075723117880D-03
        xs( 12) = 0.1015325301603788D-02
        xs( 13) = 0.1203635850648556D-02
        xs( 14) = 0.1411928800494131D-02
        xs( 15) = 0.1642044314132237D-02
        xs( 16) = 0.1895029483646121D-02
        xs( 17) = 0.2172056806166418D-02
        xs( 18) = 0.2474587764194821D-02
        xs( 19) = 0.2808186047844871D-02
        xs( 20) = 0.3178421009365674D-02
        xs( 21) = 0.3587810068582478D-02
        xs( 22) = 0.4037956001251135D-02
        xs( 23) = 0.4542066288333263D-02
        xs( 24) = 0.5115699303891625D-02
        xs( 25) = 0.5772531993643600D-02
        xs( 26) = 0.6519690331678440D-02
        xs( 27) = 0.7353647175157175D-02
        xs( 28) = 0.8286248015197586D-02
        xs( 29) = 0.9417133476966476D-02
        xs( 30) = 0.1085984802281447D-01
        xs( 31) = 0.1270000992127413D-01
        xs( 32) = 0.1507695188372908D-01
        xs( 33) = 0.1823013673671190D-01
        xs( 34) = 0.2254908864279646D-01
        xs( 35) = 0.2865473560765182D-01
        xs( 36) = 0.3741760251643321D-01
        xs( 37) = 0.4953322816848494D-01
        xs( 38) = 0.6450346768420460D-01
        ws(  1) = 0.1102504369165626D-04
        ws(  2) = 0.2527592744760122D-04
        ws(  3) = 0.3996009378573388D-04
        ws(  4) = 0.5439735630828830D-04
        ws(  5) = 0.6884790785282751D-04
        ws(  6) = 0.8361412227344129D-04
        ws(  7) = 0.9816405236327653D-04
        ws(  8) = 0.1131173552648060D-03
        ws(  9) = 0.1281700374019724D-03
        ws( 10) = 0.1440771980437180D-03
        ws( 11) = 0.1608514594728444D-03
        ws( 12) = 0.1788342081475809D-03
        ws( 13) = 0.1980113430493398D-03
        ws( 14) = 0.2189611958451058D-03
        ws( 15) = 0.2413134767126531D-03
        ws( 16) = 0.2648808792946048D-03
        ws( 17) = 0.2894059154490092D-03
        ws( 18) = 0.3167955496648844D-03
        ws( 19) = 0.3511072302752846D-03
        ws( 20) = 0.3898028103786865D-03
        ws( 21) = 0.4289110642187341D-03
        ws( 22) = 0.4741080007212459D-03
        ws( 23) = 0.5362432197305482D-03
        ws( 24) = 0.6136804924992187D-03
        ws( 25) = 0.7013428678237055D-03
        ws( 26) = 0.7930019535242750D-03
        ws( 27) = 0.8741772773873467D-03
        ws( 28) = 0.1009988543935676D-02
        ws( 29) = 0.1271971800759210D-02
        ws( 30) = 0.1626098548224850D-02
        ws( 31) = 0.2076986440039578D-02
        ws( 32) = 0.2717297742966652D-02
        ws( 33) = 0.3658057495972796D-02
        ws( 34) = 0.5095007446217913D-02
        ws( 35) = 0.7267063585507148D-02
        ws( 36) = 0.1035083602272538D-01
        ws( 37) = 0.1357963101267392D-01
        ws( 38) = 0.1460387620890734D-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 =  42
        err = 0.8963778615458253D-03
        xs(  1) = 0.3445385916434045D-05
        xs(  2) = 0.1802168095834558D-04
        xs(  3) = 0.4428183272580249D-04
        xs(  4) = 0.8218575087803415D-04
        xs(  5) = 0.1317864170325583D-03
        xs(  6) = 0.1930634746457285D-03
        xs(  7) = 0.2660342285534036D-03
        xs(  8) = 0.3507222073643979D-03
        xs(  9) = 0.4470944261914294D-03
        xs( 10) = 0.5553594113001684D-03
        xs( 11) = 0.6759285408115351D-03
        xs( 12) = 0.8094069466501748D-03
        xs( 13) = 0.9565445879221997D-03
        xs( 14) = 0.1118103855492399D-02
        xs( 15) = 0.1295060191134733D-02
        xs( 16) = 0.1488708078945868D-02
        xs( 17) = 0.1700004117160483D-02
        xs( 18) = 0.1929559878943188D-02
        xs( 19) = 0.2177565959271458D-02
        xs( 20) = 0.2446744252563419D-02
        xs( 21) = 0.2741814918298271D-02
        xs( 22) = 0.3066191799711888D-02
        xs( 23) = 0.3419858815156666D-02
        xs( 24) = 0.3805237263203228D-02
        xs( 25) = 0.4228267276980963D-02
        xs( 26) = 0.4696729267941419D-02
        xs( 27) = 0.5222111465764677D-02
        xs( 28) = 0.5819151602169812D-02
        xs( 29) = 0.6488589073493510D-02
        xs( 30) = 0.7217381902875184D-02
        xs( 31) = 0.8024432028078369D-02
        xs( 32) = 0.8977435856682118D-02
        xs( 33) = 0.1013948169699364D-01
        xs( 34) = 0.1157908283334495D-01
        xs( 35) = 0.1337634303314747D-01
        xs( 36) = 0.1562895625788479D-01
        xs( 37) = 0.1851659933890731D-01
        xs( 38) = 0.2241185805231569D-01
        xs( 39) = 0.2792237623570535D-01
        xs( 40) = 0.3589743196381703D-01
        xs( 41) = 0.4723357185383711D-01
        xs( 42) = 0.6204991156862545D-01
        ws(  1) = 0.8725223447889591D-05
        ws(  2) = 0.2045133370765660D-04
        ws(  3) = 0.3212378189704049D-04
        ws(  4) = 0.4374547064481385D-04
        ws(  5) = 0.5540087700487959D-04
        ws(  6) = 0.6708721757442994D-04
        ws(  7) = 0.7885894153618282D-04
        ws(  8) = 0.9058795764630734D-04
        ws(  9) = 0.1022925366399791D-03
        ws( 10) = 0.1142355862245406D-03
        ws( 11) = 0.1268925922728979D-03
        ws( 12) = 0.1402294804152521D-03
        ws( 13) = 0.1541776688059496D-03
        ws( 14) = 0.1690505937228454D-03
        ws( 15) = 0.1852250419671257D-03
        ws( 16) = 0.2022823846572194D-03
        ws( 17) = 0.2202966541441042D-03
        ws( 18) = 0.2387310489697785D-03
        ws( 19) = 0.2578444383592864D-03
        ws( 20) = 0.2813534406148346D-03
        ws( 21) = 0.3093608128687459D-03
        ws( 22) = 0.3391020256017612D-03
        ws( 23) = 0.3686168367656496D-03
        ws( 24) = 0.4031620466287239D-03
        ws( 25) = 0.4440637641022444D-03
        ws( 26) = 0.4942693193712983D-03
        ws( 27) = 0.5591347356230014D-03
        ws( 28) = 0.6350851223247811D-03
        ws( 29) = 0.7005661346249675D-03
        ws( 30) = 0.7589714262780220D-03
        ws( 31) = 0.8679153727054693D-03
        ws( 32) = 0.1047375533825449D-02
        ws( 33) = 0.1287661021624898D-02
        ws( 34) = 0.1604594535769893D-02
        ws( 35) = 0.2005627153859043D-02
        ws( 36) = 0.2528180634686564D-02
        ws( 37) = 0.3317691102581773D-02
        ws( 38) = 0.4595184688349185D-02
        ws( 39) = 0.6576900211176148D-02
        ws( 40) = 0.9437125182362295D-02
        ws( 41) = 0.1278744926212048D-01
        ws( 42) = 0.1308662151595517D-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 =  47
        err = 0.3190053360629971D-03
        xs(  1) = 0.2744068884238541D-05
        xs(  2) = 0.1433845580466292D-04
        xs(  3) = 0.3516162134863271D-04
        xs(  4) = 0.6526923287128758D-04
        xs(  5) = 0.1045460826893329D-03
        xs(  6) = 0.1530145343787132D-03
        xs(  7) = 0.2106258215950466D-03
        xs(  8) = 0.2774021253980242D-03
        xs(  9) = 0.3534301226049014D-03
        xs( 10) = 0.4387554666418360D-03
        xs( 11) = 0.5336733425310832D-03
        xs( 12) = 0.6384833835226200D-03
        xs( 13) = 0.7535460549698974D-03
        xs( 14) = 0.8793910349567040D-03
        xs( 15) = 0.1016460437782142D-02
        xs( 16) = 0.1165308045721661D-02
        xs( 17) = 0.1326582688481480D-02
        xs( 18) = 0.1500817592303064D-02
        xs( 19) = 0.1689079404815412D-02
        xs( 20) = 0.1892716846693684D-02
        xs( 21) = 0.2113377980584386D-02
        xs( 22) = 0.2352081367070372D-02
        xs( 23) = 0.2609866472417694D-02
        xs( 24) = 0.2888457488820424D-02
        xs( 25) = 0.3190785581578429D-02
        xs( 26) = 0.3519795270370390D-02
        xs( 27) = 0.3878896678577077D-02
        xs( 28) = 0.4270933133748862D-02
        xs( 29) = 0.4697501292882821D-02
        xs( 30) = 0.5161683874617146D-02
        xs( 31) = 0.5673712491669742D-02
        xs( 32) = 0.6247755450959356D-02
        xs( 33) = 0.6894705196279056D-02
        xs( 34) = 0.7619948801804811D-02
        xs( 35) = 0.8422386691141155D-02
        xs( 36) = 0.9309751418775521D-02
        xs( 37) = 0.1033286986831592D-01
        xs( 38) = 0.1156694572163331D-01
        xs( 39) = 0.1308240849429752D-01
        xs( 40) = 0.1496563937807541D-01
        xs( 41) = 0.1733364390579610D-01
        xs( 42) = 0.2037257533287983D-01
        xs( 43) = 0.2441103260366494D-01
        xs( 44) = 0.3001112509832047D-01
        xs( 45) = 0.3801605429282549D-01
        xs( 46) = 0.4941079236339490D-01
        xs( 47) = 0.6440203213427845D-01
        ws(  1) = 0.6993494848855998D-05
        ws(  2) = 0.1620977748030661D-04
        ws(  3) = 0.2549920372830539D-04
        ws(  4) = 0.3468243617032366D-04
        ws(  5) = 0.4384254717016479D-04
        ws(  6) = 0.5307769289415583D-04
        ws(  7) = 0.6223956100215315D-04
        ws(  8) = 0.7135388856020279D-04
        ws(  9) = 0.8059359952201309D-04
        ws( 10) = 0.9007427456978250D-04
        ws( 11) = 0.9982017034398336D-04
        ws( 12) = 0.1099133768127348D-03
        ws( 13) = 0.1203728523192630D-03
        ws( 14) = 0.1312335395105796D-03
        ws( 15) = 0.1429776414957412D-03
        ws( 16) = 0.1549506777366386D-03
        ws( 17) = 0.1675740515192635D-03
        ws( 18) = 0.1811171126607361D-03
        ws( 19) = 0.1956197651986407D-03
        ws( 20) = 0.2118405272543598D-03
        ws( 21) = 0.2295418390964542D-03
        ws( 22) = 0.2481181305469452D-03
        ws( 23) = 0.2678072365245362D-03
        ws( 24) = 0.2899013472423922D-03
        ws( 25) = 0.3150768219227293D-03
        ws( 26) = 0.3435304300201005D-03
        ws( 27) = 0.3753108573835221D-03
        ws( 28) = 0.4092179141219090D-03
        ws( 29) = 0.4442904070521120D-03
        ws( 30) = 0.4857814882206890D-03
        ws( 31) = 0.5408048588973112D-03
        ws( 32) = 0.6092195584501982D-03
        ws( 33) = 0.6854253004844930D-03
        ws( 34) = 0.7644733286049572D-03
        ws( 35) = 0.8403668223620356D-03
        ws( 36) = 0.9422596510209576D-03
        ws( 37) = 0.1115966389234303D-02
        ws( 38) = 0.1361492770185130D-02
        ws( 39) = 0.1681474302286976D-02
        ws( 40) = 0.2100510219164704D-02
        ws( 41) = 0.2661492582725631D-02
        ws( 42) = 0.3464379994918775D-02
        ws( 43) = 0.4703256197967466D-02
        ws( 44) = 0.6607018636690832D-02
        ws( 45) = 0.9390931563271282D-02
        ws( 46) = 0.1284432500237830D-01
        ws( 47) = 0.1427821781608544D-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 =  51
        err = 0.3624883160412336D-03
        xs(  1) = 0.2274076281083183D-05
        xs(  2) = 0.1203696258437355D-04
        xs(  3) = 0.2962724738004818D-04
        xs(  4) = 0.5498031279308141D-04
        xs(  5) = 0.8811970649993354D-04
        xs(  6) = 0.1289418644994424D-03
        xs(  7) = 0.1775430741108096D-03
        xs(  8) = 0.2338420904058547D-03
        xs(  9) = 0.2978283625472828D-03
        xs( 10) = 0.3695422773054981D-03
        xs( 11) = 0.4490785787048693D-03
        xs( 12) = 0.5365850981451500D-03
        xs( 13) = 0.6323647512328063D-03
        xs( 14) = 0.7367022032680019D-03
        xs( 15) = 0.8498881019894288D-03
        xs( 16) = 0.9723058641680020D-03
        xs( 17) = 0.1104390903567839D-02
        xs( 18) = 0.1246511367214664D-02
        xs( 19) = 0.1399083412182788D-02
        xs( 20) = 0.1562728503931786D-02
        xs( 21) = 0.1738367460351937D-02
        xs( 22) = 0.1927357198424745D-02
        xs( 23) = 0.2130670240432521D-02
        xs( 24) = 0.2349066244668915D-02
        xs( 25) = 0.2583199623598598D-02
        xs( 26) = 0.2834700202820041D-02
        xs( 27) = 0.3105606359066328D-02
        xs( 28) = 0.3398204080160751D-02
        xs( 29) = 0.3714812291911246D-02
        xs( 30) = 0.4057774679976441D-02
        xs( 31) = 0.4428346182273960D-02
        xs( 32) = 0.4827758471869094D-02
        xs( 33) = 0.5261051141417611D-02
        xs( 34) = 0.5738373047946338D-02
        xs( 35) = 0.6269024154776112D-02
        xs( 36) = 0.6859844053370090D-02
        xs( 37) = 0.7514131012992803D-02
        xs( 38) = 0.8231329896328991D-02
        xs( 39) = 0.9016774164436440D-02
        xs( 40) = 0.9908226186721995D-02
        xs( 41) = 0.1096002715111459D-01
        xs( 42) = 0.1222374939101299D-01
        xs( 43) = 0.1375730617298482D-01
        xs( 44) = 0.1563758645883982D-01
        xs( 45) = 0.1797073302237126D-01
        xs( 46) = 0.2093848316261927D-01
        xs( 47) = 0.2485633842727231D-01
        xs( 48) = 0.3023559696788692D-01
        xs( 49) = 0.3784662055504979D-01
        xs( 50) = 0.4868619375851314D-01
        xs( 51) = 0.6312269609986572D-01
        ws(  1) = 0.5854947743233079D-05
        ws(  2) = 0.1370297235188501D-04
        ws(  3) = 0.2141136084013246D-04
        ws(  4) = 0.2923179500218141D-04
        ws(  5) = 0.3708484689626243D-04
        ws(  6) = 0.4470505035167383D-04
        ws(  7) = 0.5240908451792864D-04
        ws(  8) = 0.6010867853816140D-04
        ws(  9) = 0.6788709142549042D-04
        ws( 10) = 0.7557082227737675D-04
        ws( 11) = 0.8350231854330061D-04
        ws( 12) = 0.9165945000820278D-04
        ws( 13) = 0.9991810302769109D-04
        ws( 14) = 0.1087013976641277D-03
        ws( 15) = 0.1177613445612619D-03
        ws( 16) = 0.1272341281478314D-03
        ws( 17) = 0.1370203595404339D-03
        ws( 18) = 0.1472163981778227D-03
        ws( 19) = 0.1579859207380477D-03
        ws( 20) = 0.1694497689071916D-03
        ws( 21) = 0.1821248586103654D-03
        ws( 22) = 0.1960220971069732D-03
        ws( 23) = 0.2107331605628993D-03
        ws( 24) = 0.2261291898376384D-03
        ws( 25) = 0.2424108014851302D-03
        ws( 26) = 0.2609066020627290D-03
        ws( 27) = 0.2813147426008654D-03
        ws( 28) = 0.3043133589138815D-03
        ws( 29) = 0.3293547098691973D-03
        ws( 30) = 0.3567966359196733D-03
        ws( 31) = 0.3844821816377373D-03
        ws( 32) = 0.4151387754040230D-03
        ws( 33) = 0.4533353768176383D-03
        ws( 34) = 0.5029381278198639D-03
        ws( 35) = 0.5596480961208599D-03
        ws( 36) = 0.6223881535548224D-03
        ws( 37) = 0.6860415768151452D-03
        ws( 38) = 0.7484673926948228D-03
        ws( 39) = 0.8293725824728905D-03
        ws( 40) = 0.9630580106143864D-03
        ws( 41) = 0.1150206392147486D-02
        ws( 42) = 0.1387528194470565D-02
        ws( 43) = 0.1693695560528378D-02
        ws( 44) = 0.2085342197644063D-02
        ws( 45) = 0.2613479035068897D-02
        ws( 46) = 0.3376470337662083D-02
        ws( 47) = 0.4550235364012610D-02
        ws( 48) = 0.6337538139142038D-02
        ws( 49) = 0.8979805203345724D-02
        ws( 50) = 0.1234767050768262D-01
        ws( 51) = 0.1394148445306084D-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 =  55
        err = 0.9299197833518855D-03
        xs(  1) = 0.1961914711068599D-05
        xs(  2) = 0.1041038834712783D-04
        xs(  3) = 0.2553206495422446D-04
        xs(  4) = 0.4739996376692282D-04
        xs(  5) = 0.7586795825823165D-04
        xs(  6) = 0.1110177044527097D-03
        xs(  7) = 0.1528025667126589D-03
        xs(  8) = 0.2011288823523430D-03
        xs(  9) = 0.2560424139824197D-03
        xs( 10) = 0.3174608802107494D-03
        xs( 11) = 0.3855007989181015D-03
        xs( 12) = 0.4602599064874709D-03
        xs( 13) = 0.5418788079600647D-03
        xs( 14) = 0.6305282531189482D-03
        xs( 15) = 0.7262524194861086D-03
        xs( 16) = 0.8293039176854142D-03
        xs( 17) = 0.9400486976335885D-03
        xs( 18) = 0.1058977437015655D-02
        xs( 19) = 0.1186507830848347D-02
        xs( 20) = 0.1322648335692619D-02
        xs( 21) = 0.1467472852951269D-02
        xs( 22) = 0.1621640381301059D-02
        xs( 23) = 0.1786601945994098D-02
        xs( 24) = 0.1963331780140568D-02
        xs( 25) = 0.2152128885160450D-02
        xs( 26) = 0.2353251628882850D-02
        xs( 27) = 0.2568386447264191D-02
        xs( 28) = 0.2798832292506296D-02
        xs( 29) = 0.3044349849114264D-02
        xs( 30) = 0.3305960756676802D-02
        xs( 31) = 0.3587980473773175D-02
        xs( 32) = 0.3893782316602660D-02
        xs( 33) = 0.4222210183284235D-02
        xs( 34) = 0.4573476042357116D-02
        xs( 35) = 0.4951591063914460D-02
        xs( 36) = 0.5358980357483566D-02
        xs( 37) = 0.5800662493005508D-02
        xs( 38) = 0.6290389266939972D-02
        xs( 39) = 0.6836325702078595D-02
        xs( 40) = 0.7436880380520736D-02
        xs( 41) = 0.8094267051209990D-02
        xs( 42) = 0.8809823077891320D-02
        xs( 43) = 0.9587646221698685D-02
        xs( 44) = 0.1047708707500772D-01
        xs( 45) = 0.1153595049099364D-01
        xs( 46) = 0.1279374508147185D-01
        xs( 47) = 0.1430272863779058D-01
        xs( 48) = 0.1614351266350630D-01
        xs( 49) = 0.1840633813532045D-01
        xs( 50) = 0.2123058018711236D-01
        xs( 51) = 0.2491218059128934D-01
        xs( 52) = 0.2995022202549508D-01
        xs( 53) = 0.3710073833883464D-01
        xs( 54) = 0.4738159413854230D-01
        xs( 55) = 0.6149886870889146D-01
        ws(  1) = 0.5169213873257041D-05
        ws(  2) = 0.1163898143723904D-04
        ws(  3) = 0.1845858447539095D-04
        ws(  4) = 0.2525609063687579D-04
        ws(  5) = 0.3187685996575346D-04
        ws(  6) = 0.3844626936946375D-04
        ws(  7) = 0.4503546406906162D-04
        ws(  8) = 0.5153441633878761D-04
        ws(  9) = 0.5817114147705431D-04
        ws( 10) = 0.6477403171927221D-04
        ws( 11) = 0.7141353456653268D-04
        ws( 12) = 0.7813205156248122D-04
        ws( 13) = 0.8505401499874705D-04
        ws( 14) = 0.9214877108710537D-04
        ws( 15) = 0.9935169283852251D-04
        ws( 16) = 0.1069116558055344D-03
        ws( 17) = 0.1147673425719389D-03
        ws( 18) = 0.1230918025823755D-03
        ws( 19) = 0.1317676133809623D-03
        ws( 20) = 0.1404572881885664D-03
        ws( 21) = 0.1493457706060494D-03
        ws( 22) = 0.1594268092906954D-03
        ws( 23) = 0.1707925504668620D-03
        ws( 24) = 0.1826450736410647D-03
        ws( 25) = 0.1947345734409151D-03
        ws( 26) = 0.2078881168450604D-03
        ws( 27) = 0.2227610294869065D-03
        ws( 28) = 0.2380639081840335D-03
        ws( 29) = 0.2531628149992261D-03
        ws( 30) = 0.2708865748009868D-03
        ws( 31) = 0.2937188414768584D-03
        ws( 32) = 0.3174394495115793D-03
        ws( 33) = 0.3395506658395508D-03
        ws( 34) = 0.3639067321785112D-03
        ws( 35) = 0.3926251214116925D-03
        ws( 36) = 0.4228651626822251D-03
        ws( 37) = 0.4634456476927167D-03
        ws( 38) = 0.5176751087343309D-03
        ws( 39) = 0.5736322428913168D-03
        ws( 40) = 0.6283102522404226D-03
        ws( 41) = 0.6876694525212820D-03
        ws( 42) = 0.7433600515394581D-03
        ws( 43) = 0.8217329983050888D-03
        ws( 44) = 0.9685347207223856D-03
        ws( 45) = 0.1153603572983766D-02
        ws( 46) = 0.1370771695816663D-02
        ws( 47) = 0.1659531328907564D-02
        ws( 48) = 0.2033520169831641D-02
        ws( 49) = 0.2505448706738224D-02
        ws( 50) = 0.3181895781412263D-02
        ws( 51) = 0.4267786099052574D-02
        ws( 52) = 0.5980562844478308D-02
        ws( 53) = 0.8555550018719646D-02
        ws( 54) = 0.1217081307301043D-01
        ws( 55) = 0.1442653316563927D-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 =  60
        err = 0.3915548773345142D-03
        xs(  1) = 0.1632208201364198D-05
        xs(  2) = 0.8703398880506634D-05
        xs(  3) = 0.2145243358959712D-04
        xs(  4) = 0.3977470177863391D-04
        xs(  5) = 0.6377452765058788D-04
        xs(  6) = 0.9333641576235334D-04
        xs(  7) = 0.1284733942135743D-03
        xs(  8) = 0.1691686847978066D-03
        xs(  9) = 0.2153679870235036D-03
        xs( 10) = 0.2670906179673488D-03
        xs( 11) = 0.3243783453060701D-03
        xs( 12) = 0.3872829448770774D-03
        xs( 13) = 0.4559550786719793D-03
        xs( 14) = 0.5304911075874282D-03
        xs( 15) = 0.6110096039662673D-03
        xs( 16) = 0.6976796761253159D-03
        xs( 17) = 0.7906660189031952D-03
        xs( 18) = 0.8902019039897397D-03
        xs( 19) = 0.9965469310771740D-03
        xs( 20) = 0.1109910222019798D-02
        xs( 21) = 0.1230531987273812D-02
        xs( 22) = 0.1358721313124867D-02
        xs( 23) = 0.1495004702728295D-02
        xs( 24) = 0.1639945322415071D-02
        xs( 25) = 0.1794066303302937D-02
        xs( 26) = 0.1957706627247137D-02
        xs( 27) = 0.2131344312806710D-02
        xs( 28) = 0.2315862566771250D-02
        xs( 29) = 0.2512285888574649D-02
        xs( 30) = 0.2721376937996649D-02
        xs( 31) = 0.2943773836315074D-02
        xs( 32) = 0.3180688871363096D-02
        xs( 33) = 0.3433448853984306D-02
        xs( 34) = 0.3702940480321100D-02
        xs( 35) = 0.3989971308360564D-02
        xs( 36) = 0.4296874130875948D-02
        xs( 37) = 0.4627192625264899D-02
        xs( 38) = 0.4983115960199617D-02
        xs( 39) = 0.5365663002933520D-02
        xs( 40) = 0.5777531889738688D-02
        xs( 41) = 0.6221491671566309D-02
        xs( 42) = 0.6701393684123498D-02
        xs( 43) = 0.7227045393935468D-02
        xs( 44) = 0.7808934972939360D-02
        xs( 45) = 0.8451662978222557D-02
        xs( 46) = 0.9159435644587389D-02
        xs( 47) = 0.9937482687135544D-02
        xs( 48) = 0.1079086243341351D-01
        xs( 49) = 0.1175307693377831D-01
        xs( 50) = 0.1287800595425186D-01
        xs( 51) = 0.1420852758370372D-01
        xs( 52) = 0.1580248901171753D-01
        xs( 53) = 0.1774341587514628D-01
        xs( 54) = 0.2012705542396983D-01
        xs( 55) = 0.2310784775162433D-01
        xs( 56) = 0.2699786496220398D-01
        xs( 57) = 0.3230449324658028D-01
        xs( 58) = 0.3978587602151607D-01
        xs( 59) = 0.5044483623668723D-01
        xs( 60) = 0.6502136322282324D-01
        ws(  1) = 0.4170423893959391D-05
        ws(  2) = 0.9974764230615826D-05
        ws(  3) = 0.1553429896148666D-04
        ws(  4) = 0.2118320663273599D-04
        ws(  5) = 0.2678429961117082D-04
        ws(  6) = 0.3233718888946370D-04
        ws(  7) = 0.3788402584127490D-04
        ws(  8) = 0.4344634538591080D-04
        ws(  9) = 0.4899158749652764D-04
        ws( 10) = 0.5453506531780502D-04
        ws( 11) = 0.6007138493287107D-04
        ws( 12) = 0.6573161565791939D-04
        ws( 13) = 0.7156525803800468D-04
        ws( 14) = 0.7751353235217587D-04
        ws( 15) = 0.8360917395599791D-04
        ws( 16) = 0.8978489312190141D-04
        ws( 17) = 0.9620963113228389D-04
        ws( 18) = 0.1028994383031290D-03
        ws( 19) = 0.1098241903976660D-03
        ws( 20) = 0.1169167697268032D-03
        ws( 21) = 0.1243121808705400D-03
        ws( 22) = 0.1321712582404260D-03
        ws( 23) = 0.1405405073476739D-03
        ws( 24) = 0.1494479033648791D-03
        ws( 25) = 0.1588128198952473D-03
        ws( 26) = 0.1684787860664909D-03
        ws( 27) = 0.1789022024465657D-03
        ws( 28) = 0.1903396769378981D-03
        ws( 29) = 0.2026450798003619D-03
        ws( 30) = 0.2155981465847422D-03
        ws( 31) = 0.2294051495037846D-03
        ws( 32) = 0.2446381225522985D-03
        ws( 33) = 0.2610145603644978D-03
        ws( 34) = 0.2780172915332169D-03
        ws( 35) = 0.2963397342155030D-03
        ws( 36) = 0.3180553928998358D-03
        ws( 37) = 0.3429878656621247D-03
        ws( 38) = 0.3688863882170467D-03
        ws( 39) = 0.3965900575739036D-03
        ws( 40) = 0.4275164702295966D-03
        ws( 41) = 0.4609836419446159D-03
        ws( 42) = 0.5006038404855556D-03
        ws( 43) = 0.5523964910317881D-03
        ws( 44) = 0.6118232454817920D-03
        ws( 45) = 0.6743028861643355D-03
        ws( 46) = 0.7422562672240360D-03
        ws( 47) = 0.8133151173678857D-03
        ws( 48) = 0.8983633231976570D-03
        ws( 49) = 0.1035361711811095D-02
        ws( 50) = 0.1220921852412836D-02
        ws( 51) = 0.1448972428618762D-02
        ws( 52) = 0.1751598372311607D-02
        ws( 53) = 0.2144413753865051D-02
        ws( 54) = 0.2645858566163567D-02
        ws( 55) = 0.3363702267363184D-02
        ws( 56) = 0.4517594836584826D-02
        ws( 57) = 0.6284315531877579D-02
        ws( 58) = 0.8935154838382130D-02
        ws( 59) = 0.1265774885766070D-01
        ws( 60) = 0.1494719999350841D-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 =  64
        err = 0.6736777896872793D-03
        xs(  1) = 0.1399165850187081D-05
        xs(  2) = 0.7619600091354685D-05
        xs(  3) = 0.1870208510855630D-04
        xs(  4) = 0.3475222563438475D-04
        xs(  5) = 0.5573994467883542D-04
        xs(  6) = 0.8157041757570377D-04
        xs(  7) = 0.1122640574201102D-03
        xs(  8) = 0.1478135492693002D-03
        xs(  9) = 0.1881144338885557D-03
        xs( 10) = 0.2332281295120214D-03
        xs( 11) = 0.2831716444409996D-03
        xs( 12) = 0.3379574474597166D-03
        xs( 13) = 0.3976967184428282D-03
        xs( 14) = 0.4623904192256622D-03
        xs( 15) = 0.5321753626276117D-03
        xs( 16) = 0.6071096267093129D-03
        xs( 17) = 0.6873286076890730D-03
        xs( 18) = 0.7729954051331777D-03
        xs( 19) = 0.8643351445369423D-03
        xs( 20) = 0.9615401186371507D-03
        xs( 21) = 0.1064703189405399D-02
        xs( 22) = 0.1173963537374203D-02
        xs( 23) = 0.1289624962434497D-02
        xs( 24) = 0.1412187860185390D-02
        xs( 25) = 0.1542147802841477D-02
        xs( 26) = 0.1679717004946939D-02
        xs( 27) = 0.1825024062487509D-02
        xs( 28) = 0.1978541228804292D-02
        xs( 29) = 0.2141216521004929D-02
        xs( 30) = 0.2313585747479140D-02
        xs( 31) = 0.2495802804145145D-02
        xs( 32) = 0.2688510167574019D-02
        xs( 33) = 0.2893239282367374D-02
        xs( 34) = 0.3111071254311076D-02
        xs( 35) = 0.3341889957290257D-02
        xs( 36) = 0.3585920680249839D-02
        xs( 37) = 0.3844897540288194D-02
        xs( 38) = 0.4120814528072918D-02
        xs( 39) = 0.4414682918575067D-02
        xs( 40) = 0.4729235779365785D-02
        xs( 41) = 0.5067954601625282D-02
        xs( 42) = 0.5431096280353345D-02
        xs( 43) = 0.5817739827213370D-02
        xs( 44) = 0.6231962474408823D-02
        xs( 45) = 0.6678384567744987D-02
        xs( 46) = 0.7163092542408361D-02
        xs( 47) = 0.7697368916039935D-02
        xs( 48) = 0.8288413686349009D-02
        xs( 49) = 0.8933650480614326D-02
        xs( 50) = 0.9634929161098990D-02
        xs( 51) = 0.1039667986735603D-01
        xs( 52) = 0.1122912676463739D-01
        xs( 53) = 0.1218015004468724D-01
        xs( 54) = 0.1330005365327061D-01
        xs( 55) = 0.1461668648864816D-01
        xs( 56) = 0.1618257088243418D-01
        xs( 57) = 0.1807489557761656D-01
        xs( 58) = 0.2036983801834341D-01
        xs( 59) = 0.2320964805519707D-01
        xs( 60) = 0.2688840440677029D-01
        xs( 61) = 0.3187378483303490D-01
        xs( 62) = 0.3880743038772468D-01
        xs( 63) = 0.4867343217736514D-01
        xs( 64) = 0.6196538360240257D-01
        ws(  1) = 0.3429079204776353D-05
        ws(  2) = 0.9002297380322535D-05
        ws(  3) = 0.1355560684431862D-04
        ws(  4) = 0.1844015341859301D-04
        ws(  5) = 0.2345320329176833D-04
        ws(  6) = 0.2819458889522467D-04
        ws(  7) = 0.3308263737680383D-04
        ws(  8) = 0.3798205110367266D-04
        ws(  9) = 0.4278654004645892D-04
        ws( 10) = 0.4756333026806406D-04
        ws( 11) = 0.5226019192612047D-04
        ws( 12) = 0.5716206004714000D-04
        ws( 13) = 0.6219051253046285D-04
        ws( 14) = 0.6732551397609336D-04
        ws( 15) = 0.7240716307622693D-04
        ws( 16) = 0.7751203051729489D-04
        ws( 17) = 0.8286623928216747D-04
        ws( 18) = 0.8846917844740427D-04
        ws( 19) = 0.9426889118128925D-04
        ws( 20) = 0.1001286801739319D-03
        ws( 21) = 0.1061749392762906D-03
        ws( 22) = 0.1123869145421100D-03
        ws( 23) = 0.1190576258731664D-03
        ws( 24) = 0.1262217049241166D-03
        ws( 25) = 0.1336954927433389D-03
        ws( 26) = 0.1413751890769740D-03
        ws( 27) = 0.1493095270522100D-03
        ws( 28) = 0.1579244115597519D-03
        ws( 29) = 0.1674377239064538D-03
        ws( 30) = 0.1773072397651793D-03
        ws( 31) = 0.1872636548379146D-03
        ws( 32) = 0.1984015390048267D-03
        ws( 33) = 0.2112528933977434D-03
        ws( 34) = 0.2243833521921949D-03
        ws( 35) = 0.2372204761678746D-03
        ws( 36) = 0.2511807921173673D-03
        ws( 37) = 0.2673660353242642D-03
        ws( 38) = 0.2847024773572532D-03
        ws( 39) = 0.3034377564413216D-03
        ws( 40) = 0.3263634082920346D-03
        ws( 41) = 0.3514990810000583D-03
        ws( 42) = 0.3746808150100944D-03
        ws( 43) = 0.3992277767374972D-03
        ws( 44) = 0.4299707950063917D-03
        ws( 45) = 0.4644074543779646D-03
        ws( 46) = 0.5072958677794226D-03
        ws( 47) = 0.5626020569796268D-03
        ws( 48) = 0.6191866747783557D-03
        ws( 49) = 0.6727590875440155D-03
        ws( 50) = 0.7315304877517719D-03
        ws( 51) = 0.7941634282651802D-03
        ws( 52) = 0.8811038898875453D-03
        ws( 53) = 0.1031488155947511D-02
        ws( 54) = 0.1213883184166986D-02
        ws( 55) = 0.1429645026727065D-02
        ws( 56) = 0.1712325997049748D-02
        ws( 57) = 0.2075185546817847D-02
        ws( 58) = 0.2523451390629904D-02
        ws( 59) = 0.3173496194186422D-02
        ws( 60) = 0.4219787296305712D-02
        ws( 61) = 0.5816075217041488D-02
        ws( 62) = 0.8061243232969018D-02
        ws( 63) = 0.1114588991355941D-01
        ws( 64) = 0.1276108327940315D-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 =  69
        err = 0.3657461218834734D-03
        xs(  1) = 0.1320403540665261D-05
        xs(  2) = 0.6743354706950833D-05
        xs(  3) = 0.1648568024317529D-04
        xs(  4) = 0.3055801137726027D-04
        xs(  5) = 0.4891013016681371D-04
        xs(  6) = 0.7159910255246118D-04
        xs(  7) = 0.9846035463407784D-04
        xs(  8) = 0.1295728369610272D-03
        xs(  9) = 0.1649146872011079D-03
        xs( 10) = 0.2044065134547433D-03
        xs( 11) = 0.2481034479104209D-03
        xs( 12) = 0.2960051612843621D-03
        xs( 13) = 0.3481662875411510D-03
        xs( 14) = 0.4046361735611734D-03
        xs( 15) = 0.4654797675272684D-03
        xs( 16) = 0.5307369139262877D-03
        xs( 17) = 0.6004941919322487D-03
        xs( 18) = 0.6748586340905599D-03
        xs( 19) = 0.7539921544641098D-03
        xs( 20) = 0.8380360980547715D-03
        xs( 21) = 0.9271075984242715D-03
        xs( 22) = 0.1021317346166567D-02
        xs( 23) = 0.1120806280992718D-02
        xs( 24) = 0.1225846771226055D-02
        xs( 25) = 0.1336810271901286D-02
        xs( 26) = 0.1453967338737948D-02
        xs( 27) = 0.1577456020711430D-02
        xs( 28) = 0.1707441776585037D-02
        xs( 29) = 0.1844379731568787D-02
        xs( 30) = 0.1988889273580284D-02
        xs( 31) = 0.2141325042116545D-02
        xs( 32) = 0.2301819192548774D-02
        xs( 33) = 0.2470776498333903D-02
        xs( 34) = 0.2649121368743508D-02
        xs( 35) = 0.2837649852217771D-02
        xs( 36) = 0.3036694645251797D-02
        xs( 37) = 0.3246775960675639D-02
        xs( 38) = 0.3469184437594346D-02
        xs( 39) = 0.3705048620305862D-02
        xs( 40) = 0.3954671483674018D-02
        xs( 41) = 0.4218703315380491D-02
        xs( 42) = 0.4499082483619209D-02
        xs( 43) = 0.4797340400591179D-02
        xs( 44) = 0.5114773159936254D-02
        xs( 45) = 0.5454149353500640D-02
        xs( 46) = 0.5818550000225177D-02
        xs( 47) = 0.6208415560151070D-02
        xs( 48) = 0.6624782692528145D-02
        xs( 49) = 0.7071231818258772D-02
        xs( 50) = 0.7551765122197256D-02
        xs( 51) = 0.8072307424263223D-02
        xs( 52) = 0.8644016763714041D-02
        xs( 53) = 0.9273021717812998D-02
        xs( 54) = 0.9960329327565062D-02
        xs( 55) = 0.1070984912828956D-01
        xs( 56) = 0.1152507139513899D-01
        xs( 57) = 0.1242206945988325D-01
        xs( 58) = 0.1344753137898738D-01
        xs( 59) = 0.1464473219429826D-01
        xs( 60) = 0.1605035800832095D-01
        xs( 61) = 0.1772491042516908D-01
        xs( 62) = 0.1974283328622565D-01
        xs( 63) = 0.2220037486495219D-01
        xs( 64) = 0.2527894377849456D-01
        xs( 65) = 0.2928568304380065D-01
        xs( 66) = 0.3466890693827136D-01
        xs( 67) = 0.4209625566935538D-01
        xs( 68) = 0.5254918055607869D-01
        xs( 69) = 0.6676060661184428D-01
        ws(  1) = 0.3290555267743774D-05
        ws(  2) = 0.7559321751318952D-05
        ws(  3) = 0.1200268382920176D-04
        ws(  4) = 0.1623229300366353D-04
        ws(  5) = 0.2042321632809173D-04
        ws(  6) = 0.2477626469789513D-04
        ws(  7) = 0.2905855458610494D-04
        ws(  8) = 0.3320257391795688D-04
        ws(  9) = 0.3740567281435986D-04
        ws( 10) = 0.4160940443365230D-04
        ws( 11) = 0.4580853411030956D-04
        ws( 12) = 0.5001892646800365D-04
        ws( 13) = 0.5429721469595664D-04
        ws( 14) = 0.5863957233665636D-04
        ws( 15) = 0.6303306775445759D-04
        ws( 16) = 0.6749869744312785D-04
        ws( 17) = 0.7205330097316919D-04
        ws( 18) = 0.7673464279709816D-04
        ws( 19) = 0.8156172500054780D-04
        ws( 20) = 0.8653053619801418D-04
        ws( 21) = 0.9161290044298212D-04
        ws( 22) = 0.9680882120663140D-04
        ws( 23) = 0.1022201262982769D-03
        ws( 24) = 0.1079521235209499D-03
        ws( 25) = 0.1140266458072506D-03
        ws( 26) = 0.1202992654553220D-03
        ws( 27) = 0.1266933303511499D-03
        ws( 28) = 0.1333631056896527D-03
        ws( 29) = 0.1406216037193518D-03
        ws( 30) = 0.1484471405950300D-03
        ws( 31) = 0.1564503076139885D-03
        ws( 32) = 0.1646163470107171D-03
        ws( 33) = 0.1734823518325323D-03
        ws( 34) = 0.1833352924886717D-03
        ws( 35) = 0.1937863634513286D-03
        ws( 36) = 0.2044574113855577D-03
        ws( 37) = 0.2159339917381259D-03
        ws( 38) = 0.2290150740599345D-03
        ws( 39) = 0.2428270653884603D-03
        ws( 40) = 0.2565943181084992D-03
        ws( 41) = 0.2717569929404360D-03
        ws( 42) = 0.2892430825241720D-03
        ws( 43) = 0.3075930748686369D-03
        ws( 44) = 0.3277501168486283D-03
        ws( 45) = 0.3515377120007999D-03
        ws( 46) = 0.3773305666590602D-03
        ws( 47) = 0.4027357939547567D-03
        ws( 48) = 0.4306144550927150D-03
        ws( 49) = 0.4630439704908728D-03
        ws( 50) = 0.4990056546519897D-03
        ws( 51) = 0.5444228530436381D-03
        ws( 52) = 0.6000915420814974D-03
        ws( 53) = 0.6578174299732030D-03
        ws( 54) = 0.7176416623085417D-03
        ws( 55) = 0.7820592718190414D-03
        ws( 56) = 0.8504621705876740D-03
        ws( 57) = 0.9520898360465155D-03
        ws( 58) = 0.1106245979654984D-02
        ws( 59) = 0.1294573028216320D-02
        ws( 60) = 0.1528912383915099D-02
        ws( 61) = 0.1833442241316332D-02
        ws( 62) = 0.2218932639885238D-02
        ws( 63) = 0.2730502634348572D-02
        ws( 64) = 0.3475369633502166D-02
        ws( 65) = 0.4607218959798001D-02
        ws( 66) = 0.6262302110369354D-02
        ws( 67) = 0.8609127586012608D-02
        ws( 68) = 0.1177002598142126D-01
        ws( 69) = 0.1398834594512386D-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 =  73
        err = 0.6114544192961568D-03
        xs(  1) = 0.1226251902600576D-05
        xs(  2) = 0.6095991491049672D-05
        xs(  3) = 0.1466236165368485D-04
        xs(  4) = 0.2717646839587931D-04
        xs(  5) = 0.4348197235698823D-04
        xs(  6) = 0.6354422281502147D-04
        xs(  7) = 0.8740210293919399D-04
        xs(  8) = 0.1150702800066797D-03
        xs(  9) = 0.1463071399620484D-03
        xs( 10) = 0.1813988687221155D-03
        xs( 11) = 0.2201065190628015D-03
        xs( 12) = 0.2625030769954186D-03
        xs( 13) = 0.3087024165241598D-03
        xs( 14) = 0.3586524690164692D-03
        xs( 15) = 0.4124260926539838D-03
        xs( 16) = 0.4700666982182408D-03
        xs( 17) = 0.5315922039899068D-03
        xs( 18) = 0.5971001304575454D-03
        xs( 19) = 0.6666853106860313D-03
        xs( 20) = 0.7404777646684974D-03
        xs( 21) = 0.8185921560483809D-03
        xs( 22) = 0.9010996826906598D-03
        xs( 23) = 0.9880447859432801D-03
        xs( 24) = 0.1079560216624001D-02
        xs( 25) = 0.1175936907673347D-02
        xs( 26) = 0.1277510196963383D-02
        xs( 27) = 0.1384471252848019D-02
        xs( 28) = 0.1496816616902593D-02
        xs( 29) = 0.1614640796066801D-02
        xs( 30) = 0.1738403097097771D-02
        xs( 31) = 0.1868642517281216D-02
        xs( 32) = 0.2005575007476218D-02
        xs( 33) = 0.2149204472200442D-02
        xs( 34) = 0.2299932387118825D-02
        xs( 35) = 0.2458621802700123D-02
        xs( 36) = 0.2625962145323771D-02
        xs( 37) = 0.2801875526403609D-02
        xs( 38) = 0.2986311967864120D-02
        xs( 39) = 0.3180517120506054D-02
        xs( 40) = 0.3385672535737922D-02
        xs( 41) = 0.3601837554566520D-02
        xs( 42) = 0.3829560324594861D-02
        xs( 43) = 0.4070823824601554D-02
        xs( 44) = 0.4326698818053824D-02
        xs( 45) = 0.4596567636123637D-02
        xs( 46) = 0.4881735391735139D-02
        xs( 47) = 0.5185201582978597D-02
        xs( 48) = 0.5508183726876473D-02
        xs( 49) = 0.5851544773675878D-02
        xs( 50) = 0.6218985342187138D-02
        xs( 51) = 0.6612291215134620D-02
        xs( 52) = 0.7030692102264185D-02
        xs( 53) = 0.7479334022730372D-02
        xs( 54) = 0.7965255689922353D-02
        xs( 55) = 0.8491443762735529D-02
        xs( 56) = 0.9065826513605600D-02
        xs( 57) = 0.9693221166646440D-02
        xs( 58) = 0.1037031373207292D-01
        xs( 59) = 0.1110106768979577D-01
        xs( 60) = 0.1190319506572660D-01
        xs( 61) = 0.1279947837109043D-01
        xs( 62) = 0.1383208296626966D-01
        xs( 63) = 0.1503437599907698D-01
        xs( 64) = 0.1643252242055356D-01
        xs( 65) = 0.1808344945885750D-01
        xs( 66) = 0.2006157822496598D-01
        xs( 67) = 0.2244545009206195D-01
        xs( 68) = 0.2538533406808556D-01
        xs( 69) = 0.2918535761289880D-01
        xs( 70) = 0.3429356796239844D-01
        xs( 71) = 0.4133645349008771D-01
        xs( 72) = 0.5130963943873488D-01
        xs( 73) = 0.6490435881533450D-01
        ws(  1) = 0.2976032891228882D-05
        ws(  2) = 0.6706776547778171D-05
        ws(  3) = 0.1061816608031885D-04
        ws(  4) = 0.1444370877547050D-04
        ws(  5) = 0.1821219981132923D-04
        ws(  6) = 0.2188178314084632D-04
        ws(  7) = 0.2573757390391025D-04
        ws(  8) = 0.2944821434824390D-04
        ws(  9) = 0.3322644979538131D-04
        ws( 10) = 0.3681425978551066D-04
        ws( 11) = 0.4065886887168867D-04
        ws( 12) = 0.4431612100086765D-04
        ws( 13) = 0.4801554673051471D-04
        ws( 14) = 0.5182757617747278D-04
        ws( 15) = 0.5570906298172359D-04
        ws( 16) = 0.5956263299492622D-04
        ws( 17) = 0.6352216501835133D-04
        ws( 18) = 0.6753101984167659D-04
        ws( 19) = 0.7168758336679962D-04
        ws( 20) = 0.7594800605752584D-04
        ws( 21) = 0.8029326076705808D-04
        ws( 22) = 0.8471085876029951D-04
        ws( 23) = 0.8920357869960360D-04
        ws( 24) = 0.9389542497725108D-04
        ws( 25) = 0.9893569965714959D-04
        ws( 26) = 0.1042549835947762D-03
        ws( 27) = 0.1096580128931179D-03
        ws( 28) = 0.1150722565697456D-03
        ws( 29) = 0.1207106416604498D-03
        ws( 30) = 0.1269141305928994D-03
        ws( 31) = 0.1335873448884679D-03
        ws( 32) = 0.1403022116055396D-03
        ws( 33) = 0.1470088971725500D-03
        ws( 34) = 0.1545774887783885D-03
        ws( 35) = 0.1630297035492413D-03
        ws( 36) = 0.1716061089787937D-03
        ws( 37) = 0.1800721339369974D-03
        ws( 38) = 0.1891386701076056D-03
        ws( 39) = 0.1995404563418608D-03
        ws( 40) = 0.2106502586708796D-03
        ws( 41) = 0.2217157656738250D-03
        ws( 42) = 0.2341014334667739D-03
        ws( 43) = 0.2486887677236167D-03
        ws( 44) = 0.2628638975087889D-03
        ws( 45) = 0.2770407250290137D-03
        ws( 46) = 0.2939048767308533D-03
        ws( 47) = 0.3133772114032096D-03
        ws( 48) = 0.3326756838288574D-03
        ws( 49) = 0.3548488874830915D-03
        ws( 50) = 0.3806449589584804D-03
        ws( 51) = 0.4056829655260928D-03
        ws( 52) = 0.4322611611929368D-03
        ws( 53) = 0.4666522311486251D-03
        ws( 54) = 0.5057491081039437D-03
        ws( 55) = 0.5485649339129832D-03
        ws( 56) = 0.6011596879609009D-03
        ws( 57) = 0.6530281127819140D-03
        ws( 58) = 0.7020285343679756D-03
        ws( 59) = 0.7633699169207306D-03
        ws( 60) = 0.8428923624579446D-03
        ws( 61) = 0.9572400370302741D-03
        ws( 62) = 0.1113208977063446D-02
        ws( 63) = 0.1294645620691680D-02
        ws( 64) = 0.1512519757206120D-02
        ws( 65) = 0.1805970011916385D-02
        ws( 66) = 0.2168676651278908D-02
        ws( 67) = 0.2631521062652554D-02
        ws( 68) = 0.3303831304944192D-02
        ws( 69) = 0.4365096227035136D-02
        ws( 70) = 0.5961491339131756D-02
        ws( 71) = 0.8302530026200631D-02
        ws( 72) = 0.1161586082910165D-01
        ws( 73) = 0.1505900821935005D-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 =   9
        err = 0.7215841042719786D-03
        xs(  1) = 0.5582486509234744D+00
        xs(  2) = 0.1302617689158282D+01
        xs(  3) = 0.2092284145397458D+01
        xs(  4) = 0.2929241721856860D+01
        xs(  5) = 0.3809932304676446D+01
        xs(  6) = 0.4728529735791588D+01
        xs(  7) = 0.5680052888600581D+01
        xs(  8) = 0.6661826093792486D+01
        xs(  9) = 0.7671777187393418D+01
        ws(  1) = 0.7222197834047088D+00
        ws(  2) = 0.7663583667505948D+00
        ws(  3) = 0.8137872348448799D+00
        ws(  4) = 0.8601557289143094D+00
        ws(  5) = 0.9015288919174405D+00
        ws(  6) = 0.9385239564842278D+00
        ws(  7) = 0.9736347597174114D+00
        ws(  8) = 0.1023553389418583D+01
        ws(  9) = 0.1186468713346696D+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 =   9
        err = 0.7281966419072166D-03
        xs(  1) = 0.5583423551832840D+00
        xs(  2) = 0.1302796311228884D+01
        xs(  3) = 0.2092496998097444D+01
        xs(  4) = 0.2929454045493182D+01
        xs(  5) = 0.3810132662222782D+01
        xs(  6) = 0.4728726309415394D+01
        xs(  7) = 0.5680266501949258D+01
        xs(  8) = 0.6662087066538079D+01
        xs(  9) = 0.7672111233600089D+01
        ws(  1) = 0.7223293216079048D+00
        ws(  2) = 0.7664164857162100D+00
        ws(  3) = 0.8138000066700394D+00
        ws(  4) = 0.8601454801549104D+00
        ws(  5) = 0.9015178664275834D+00
        ws(  6) = 0.9385282840587573D+00
        ws(  7) = 0.9736636040334828D+00
        ws(  8) = 0.1023614836758733D+01
        ws(  9) = 0.1186545067771371D+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 =   9
        err = 0.7633713683300819D-03
        xs(  1) = 0.5586884299546716D+00
        xs(  2) = 0.1303395842814041D+01
        xs(  3) = 0.2093077386839975D+01
        xs(  4) = 0.2929833648894731D+01
        xs(  5) = 0.3810282105728222D+01
        xs(  6) = 0.4728765189397316D+01
        xs(  7) = 0.5680426222057178D+01
        xs(  8) = 0.6662701066557894D+01
        xs(  9) = 0.7673497324487179D+01
        ws(  1) = 0.7227183198799254D+00
        ws(  2) = 0.7665248053549778D+00
        ws(  3) = 0.8136652071921692D+00
        ws(  4) = 0.8599017643401827D+00
        ws(  5) = 0.9013215458196383D+00
        ws(  6) = 0.9385117349737283D+00
        ws(  7) = 0.9739176870579195D+00
        ws(  8) = 0.1024231911168562D+01
        ws(  9) = 0.1187387692714567D+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 =   9
        err = 0.9028142698504012D-03
        xs(  1) = 0.5603593333535064D+00
        xs(  2) = 0.1306402608640070D+01
        xs(  3) = 0.2096267836569456D+01
        xs(  4) = 0.2932423799599358D+01
        xs(  5) = 0.3812061797845894D+01
        xs(  6) = 0.4730054605564877D+01
        xs(  7) = 0.5681924542300386D+01
        xs(  8) = 0.6665431768551631D+01
        xs(  9) = 0.7678453619718585D+01
        ws(  1) = 0.7246197550158293D+00
        ws(  2) = 0.7672507855888073D+00
        ws(  3) = 0.8133613888152050D+00
        ws(  4) = 0.8590936758464797D+00
        ws(  5) = 0.9005826156169566D+00
        ws(  6) = 0.9383011734574446D+00
        ws(  7) = 0.9745335884128444D+00
        ws(  8) = 0.1025966848768797D+01
        ws(  9) = 0.1189844840408597D+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 =  10
        err = 0.8299999429805008D-03
        xs(  1) = 0.5476944503091657D+00
        xs(  2) = 0.1274350301392098D+01
        xs(  3) = 0.2041133033353139D+01
        xs(  4) = 0.2853408209319622D+01
        xs(  5) = 0.3711604889909677D+01
        xs(  6) = 0.4613045517548689D+01
        xs(  7) = 0.5554092996392010D+01
        xs(  8) = 0.6531401745808192D+01
        xs(  9) = 0.7543270543299830D+01
        xs( 10) = 0.8584992298198800D+01
        ws(  1) = 0.7074470852049937D+00
        ws(  2) = 0.7455932232564532D+00
        ws(  3) = 0.7891048164046200D+00
        ws(  4) = 0.8356519607476554D+00
        ws(  5) = 0.8807025712692039D+00
        ws(  6) = 0.9225321574670958D+00
        ws(  7) = 0.9618560553348943D+00
        ws(  8) = 0.1000701463535111D+01
        ws(  9) = 0.1053204107144547D+01
        ws( 10) = 0.1209674521866656D+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 =   9
        err = 0.9055050979535644D-03
        xs(  1) = 0.5388994724067946D+00
        xs(  2) = 0.1249517622144227D+01
        xs(  3) = 0.1998010101121806D+01
        xs(  4) = 0.2795274162443969D+01
        xs(  5) = 0.3644332263919914D+01
        xs(  6) = 0.4542437809285827D+01
        xs(  7) = 0.5484353727706431D+01
        xs(  8) = 0.6466248210626464D+01
        xs(  9) = 0.7477044954421000D+01
        ws(  1) = 0.6941681064039045D+00
        ws(  2) = 0.7277980492371462D+00
        ws(  3) = 0.7717328220943486D+00
        ws(  4) = 0.8238205808568060D+00
        ws(  5) = 0.8751832522139081D+00
        ws(  6) = 0.9237660018243796D+00
        ws(  7) = 0.9689028000472761D+00
        ws(  8) = 0.1028666072887230D+01
        ws(  9) = 0.1189426669035967D+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 =   9
        err = 0.7966880389513420D-03
        xs(  1) = 0.5410355770206312D+00
        xs(  2) = 0.1243248249772387D+01
        xs(  3) = 0.1968171152415496D+01
        xs(  4) = 0.2738948925976180D+01
        xs(  5) = 0.3560233655275763D+01
        xs(  6) = 0.4431990066811722D+01
        xs(  7) = 0.5348438164504325D+01
        xs(  8) = 0.6305975591052542D+01
        xs(  9) = 0.7294870796628243D+01
        ws(  1) = 0.6920750802652760D+00
        ws(  2) = 0.7105654278686748D+00
        ws(  3) = 0.7461346397667639D+00
        ws(  4) = 0.7958010697659906D+00
        ws(  5) = 0.8487616383138321D+00
        ws(  6) = 0.8978175103720878D+00
        ws(  7) = 0.9444289957524989D+00
        ws(  8) = 0.1009329664749369D+01
        ws(  9) = 0.1175735424318601D+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 =  11
        err = 0.7332507409620417D-03
        xs(  1) = 0.5167749911547989D+00
        xs(  2) = 0.1183930888771967D+01
        xs(  3) = 0.1853341756457797D+01
        xs(  4) = 0.2529280195667491D+01
        xs(  5) = 0.3227781661460140D+01
        xs(  6) = 0.3975585426788747D+01
        xs(  7) = 0.4788420545353499D+01
        xs(  8) = 0.5664930991110415D+01
        xs(  9) = 0.6596391689805638D+01
        xs( 10) = 0.7575914178388663D+01
        xs( 11) = 0.8558967287721440D+01
        ws(  1) = 0.6617412522009093D+00
        ws(  2) = 0.6688756423585211D+00
        ws(  3) = 0.6710705361916754D+00
        ws(  4) = 0.6833507507340203D+00
        ws(  5) = 0.7180301163774686D+00
        ws(  6) = 0.7807265296901328D+00
        ws(  7) = 0.8441612812341727D+00
        ws(  8) = 0.9115182400150424D+00
        ws(  9) = 0.9580221070243004D+00
        ws( 10) = 0.1043470216198148D+01
        ws( 11) = 0.1180275941444754D+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 =  13
        err = 0.8211496096787368D-03
        xs(  1) = 0.5796934502177746D+00
        xs(  2) = 0.1322830049922763D+01
        xs(  3) = 0.2052926770403369D+01
        xs(  4) = 0.2760378908655007D+01
        xs(  5) = 0.3444842460272609D+01
        xs(  6) = 0.4110962820004039D+01
        xs(  7) = 0.4769020259946502D+01
        xs(  8) = 0.5430679827537270D+01
        xs(  9) = 0.6114628620764674D+01
        xs( 10) = 0.6850198267085379D+01
        xs( 11) = 0.7662250333429594D+01
        xs( 12) = 0.8557293198290644D+01
        xs( 13) = 0.9495357904358452D+01
        ws(  1) = 0.7413233556067688D+00
        ws(  2) = 0.7391975020382487D+00
        ws(  3) = 0.7194984871042444D+00
        ws(  4) = 0.6954682943358251D+00
        ws(  5) = 0.6738871713095140D+00
        ws(  6) = 0.6600594012153854D+00
        ws(  7) = 0.6576005132683230D+00
        ws(  8) = 0.6697129481054386D+00
        ws(  9) = 0.7029375683361863D+00
        ws( 10) = 0.7638394744723808D+00
        ws( 11) = 0.8460451169713050D+00
        ws( 12) = 0.9943311898189425D+00
        ws( 13) = 0.1215608512415481D+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 =  15
        err = 0.9544178170331235D-03
        xs(  1) = 0.6655983377613107D+00
        xs(  2) = 0.1508637070000312D+01
        xs(  3) = 0.2342437885703292D+01
        xs(  4) = 0.3151587437131855D+01
        xs(  5) = 0.3934951716805149D+01
        xs(  6) = 0.4687115880187539D+01
        xs(  7) = 0.5405981410484337D+01
        xs(  8) = 0.6098717790674634D+01
        xs(  9) = 0.6770201736769292D+01
        xs( 10) = 0.7423210000131664D+01
        xs( 11) = 0.8069471860356416D+01
        xs( 12) = 0.8723135450592208D+01
        xs( 13) = 0.9405700756548278D+01
        xs( 14) = 0.1018680796281269D+02
        xs( 15) = 0.1108799268644462D+02
        ws(  1) = 0.8372480707715394D+00
        ws(  2) = 0.8445703608725987D+00
        ws(  3) = 0.8223614092141563D+00
        ws(  4) = 0.7963200728879876D+00
        ws(  5) = 0.7689403397818357D+00
        ws(  6) = 0.7341883717093619D+00
        ws(  7) = 0.7057832166069190D+00
        ws(  8) = 0.6800166272848865D+00
        ws(  9) = 0.6622213898466276D+00
        ws( 10) = 0.6486703863680919D+00
        ws( 11) = 0.6421606432959222D+00
        ws( 12) = 0.6662844901661232D+00
        ws( 13) = 0.6883801453938561D+00
        ws( 14) = 0.8776111628756335D+00
        ws( 15) = 0.1102447625900794D+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 =  18
        err = 0.8145111034300070D-03
        xs(  1) = 0.6906698634968635D+00
        xs(  2) = 0.1565506428946375D+01
        xs(  3) = 0.2436596749077815D+01
        xs(  4) = 0.3288589730135940D+01
        xs(  5) = 0.4118412182063012D+01
        xs(  6) = 0.4925805436692019D+01
        xs(  7) = 0.5707919810265339D+01
        xs(  8) = 0.6468205157093146D+01
        xs(  9) = 0.7208615915281570D+01
        xs( 10) = 0.7929794862742294D+01
        xs( 11) = 0.8631666091015093D+01
        xs( 12) = 0.9318976254558393D+01
        xs( 13) = 0.9996648678975831D+01
        xs( 14) = 0.1066750969821378D+02
        xs( 15) = 0.1132638905834183D+02
        xs( 16) = 0.1198398083783542D+02
        xs( 17) = 0.1273812674282101D+02
        xs( 18) = 0.1358307844107015D+02
        ws(  1) = 0.8670458056124183D+00
        ws(  2) = 0.8795130475805752D+00
        ws(  3) = 0.8624219130699523D+00
        ws(  4) = 0.8409967929068440D+00
        ws(  5) = 0.8186135636202053D+00
        ws(  6) = 0.7945481514447108D+00
        ws(  7) = 0.7702116326364655D+00
        ws(  8) = 0.7512770447696754D+00
        ws(  9) = 0.7295752747071063D+00
        ws( 10) = 0.7112043052239198D+00
        ws( 11) = 0.6937922229334694D+00
        ws( 12) = 0.6809457868139872D+00
        ws( 13) = 0.6744977235995090D+00
        ws( 14) = 0.6661952184622926D+00
        ws( 15) = 0.6449450784253833D+00
        ws( 16) = 0.6805654311229496D+00
        ws( 17) = 0.7583122721221685D+00
        ws( 18) = 0.1099148413783003D+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 =  22
        err = 0.4843049963305574D-03
        xs(  1) = 0.6942664796217703D+00
        xs(  2) = 0.1575811183414950D+01
        xs(  3) = 0.2458925366958637D+01
        xs(  4) = 0.3330899533656983D+01
        xs(  5) = 0.4188520033709658D+01
        xs(  6) = 0.5029766084740176D+01
        xs(  7) = 0.5851671255921144D+01
        xs(  8) = 0.6651757941705133D+01
        xs(  9) = 0.7429993166263443D+01
        xs( 10) = 0.8186209005923727D+01
        xs( 11) = 0.8921621788510928D+01
        xs( 12) = 0.9637788644981670D+01
        xs( 13) = 0.1033691774324709D+02
        xs( 14) = 0.1101921867507411D+02
        xs( 15) = 0.1168577094682787D+02
        xs( 16) = 0.1234009215155087D+02
        xs( 17) = 0.1298220259817639D+02
        xs( 18) = 0.1361804936908851D+02
        xs( 19) = 0.1424690201759616D+02
        xs( 20) = 0.1488273727769562D+02
        xs( 21) = 0.1552882134993433D+02
        xs( 22) = 0.1621868675688131D+02
        ws(  1) = 0.8727569861310051D+00
        ws(  2) = 0.8883597971917738D+00
        ws(  3) = 0.8781284269178209D+00
        ws(  4) = 0.8649216560898261D+00
        ws(  5) = 0.8496821699535263D+00
        ws(  6) = 0.8322498195791517D+00
        ws(  7) = 0.8110747577632471D+00
        ws(  8) = 0.7891835455469863D+00
        ws(  9) = 0.7673371946660542D+00
        ws( 10) = 0.7454180162146211D+00
        ws( 11) = 0.7249547038166132D+00
        ws( 12) = 0.7077425687510792D+00
        ws( 13) = 0.6906118052240581D+00
        ws( 14) = 0.6745659835789209D+00
        ws( 15) = 0.6589243626501154D+00
        ws( 16) = 0.6493460688712547D+00
        ws( 17) = 0.6363615612458692D+00
        ws( 18) = 0.6307756480187655D+00
        ws( 19) = 0.6279542394178194D+00
        ws( 20) = 0.6106994441277891D+00
        ws( 21) = 0.6307111320242774D+00
        ws( 22) = 0.7598123197502235D+00
        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 =  26
        err = 0.6115757586269151D-03
        xs(  1) = 0.6909631032152228D+00
        xs(  2) = 0.1578173926775136D+01
        xs(  3) = 0.2465321642707020D+01
        xs(  4) = 0.3342806623194765D+01
        xs(  5) = 0.4206805281556199D+01
        xs(  6) = 0.5055175296441314D+01
        xs(  7) = 0.5885360992327049D+01
        xs(  8) = 0.6697095093231551D+01
        xs(  9) = 0.7490127696169082D+01
        xs( 10) = 0.8264515071043506D+01
        xs( 11) = 0.9021065184919850D+01
        xs( 12) = 0.9760811467742363D+01
        xs( 13) = 0.1048459810539734D+02
        xs( 14) = 0.1119243099839605D+02
        xs( 15) = 0.1188323477131739D+02
        xs( 16) = 0.1255791110067193D+02
        xs( 17) = 0.1321888862824530D+02
        xs( 18) = 0.1386945268073955D+02
        xs( 19) = 0.1451065810548759D+02
        xs( 20) = 0.1514234459963419D+02
        xs( 21) = 0.1577013739616492D+02
        xs( 22) = 0.1639145522982015D+02
        xs( 23) = 0.1701582307635462D+02
        xs( 24) = 0.1762438470411056D+02
        xs( 25) = 0.1827748895068420D+02
        xs( 26) = 0.1905456253455962D+02
        ws(  1) = 0.8807853986019577D+00
        ws(  2) = 0.8904325275910473D+00
        ws(  3) = 0.8826031538291944D+00
        ws(  4) = 0.8715686913177609D+00
        ws(  5) = 0.8564808974807390D+00
        ws(  6) = 0.8392800701631793D+00
        ws(  7) = 0.8213159559138627D+00
        ws(  8) = 0.8023682656294816D+00
        ws(  9) = 0.7836262515957102D+00
        ws( 10) = 0.7656381420953123D+00
        ws( 11) = 0.7480442264898995D+00
        ws( 12) = 0.7314400506109237D+00
        ws( 13) = 0.7157460630089009D+00
        ws( 14) = 0.6996269394716353D+00
        ws( 15) = 0.6828916504172718D+00
        ws( 16) = 0.6669185476940518D+00
        ws( 17) = 0.6554639583169239D+00
        ws( 18) = 0.6451087107705086D+00
        ws( 19) = 0.6377031399736068D+00
        ws( 20) = 0.6264346474366459D+00
        ws( 21) = 0.6264612674054882D+00
        ws( 22) = 0.6135436374040710D+00
        ws( 23) = 0.6182677177502029D+00
        ws( 24) = 0.6008004996836263D+00
        ws( 25) = 0.6268117387585302D+00
        ws( 26) = 0.8975934218555031D+00
        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 =  30
        err = 0.8279016933330225D-03
        xs(  1) = 0.7306457645496306D+00
        xs(  2) = 0.1645915068539442D+01
        xs(  3) = 0.2570046633252442D+01
        xs(  4) = 0.3486527508803748D+01
        xs(  5) = 0.4391464315107945D+01
        xs(  6) = 0.5282583961472581D+01
        xs(  7) = 0.6159366633463334D+01
        xs(  8) = 0.7018010789455526D+01
        xs(  9) = 0.7855856212860287D+01
        xs( 10) = 0.8673644591738691D+01
        xs( 11) = 0.9470495376096713D+01
        xs( 12) = 0.1024617419669387D+02
        xs( 13) = 0.1100046696619245D+02
        xs( 14) = 0.1173663840983588D+02
        xs( 15) = 0.1245634511569370D+02
        xs( 16) = 0.1316286432832361D+02
        xs( 17) = 0.1385617625395947D+02
        xs( 18) = 0.1453779957868177D+02
        xs( 19) = 0.1520727629443960D+02
        xs( 20) = 0.1586696709150831D+02
        xs( 21) = 0.1651579436150997D+02
        xs( 22) = 0.1715434779961018D+02
        xs( 23) = 0.1778210762851543D+02
        xs( 24) = 0.1840178832877825D+02
        xs( 25) = 0.1901775243865019D+02
        xs( 26) = 0.1962850416748442D+02
        xs( 27) = 0.2023323992983001D+02
        xs( 28) = 0.2085195368203871D+02
        xs( 29) = 0.2143919079867314D+02
        xs( 30) = 0.2206304059232398D+02
        ws(  1) = 0.9028486047892178D+00
        ws(  2) = 0.9287536898435313D+00
        ws(  3) = 0.9203322462162173D+00
        ws(  4) = 0.9105428972525429D+00
        ws(  5) = 0.8984046856405429D+00
        ws(  6) = 0.8844243559287607D+00
        ws(  7) = 0.8684370868785437D+00
        ws(  8) = 0.8484231152905685D+00
        ws(  9) = 0.8272925551614346D+00
        ws( 10) = 0.8077561737743453D+00
        ws( 11) = 0.7860039869350131D+00
        ws( 12) = 0.7648232488376374D+00
        ws( 13) = 0.7442908875732436D+00
        ws( 14) = 0.7280797653047514D+00
        ws( 15) = 0.7121159019433633D+00
        ws( 16) = 0.7007242570607150D+00
        ws( 17) = 0.6865098348625488D+00
        ws( 18) = 0.6764624618467648D+00
        ws( 19) = 0.6632723545173383D+00
        ws( 20) = 0.6556420473335846D+00
        ws( 21) = 0.6427483607462151D+00
        ws( 22) = 0.6336593757728028D+00
        ws( 23) = 0.6218850699477877D+00
        ws( 24) = 0.6173490814967934D+00
        ws( 25) = 0.6129289223534607D+00
        ws( 26) = 0.6034265261508498D+00
        ws( 27) = 0.6041683504257411D+00
        ws( 28) = 0.5666953333706126D+00
        ws( 29) = 0.5433458293893909D+00
        ws( 30) = 0.6090526308330528D+00
        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 =  35
        err = 0.5472798853178583D-03
        xs(  1) = 0.7068572328573127D+00
        xs(  2) = 0.1620768355656797D+01
        xs(  3) = 0.2534849795240984D+01
        xs(  4) = 0.3443183315029708D+01
        xs(  5) = 0.4342260217256075D+01
        xs(  6) = 0.5230223883803599D+01
        xs(  7) = 0.6105891287911309D+01
        xs(  8) = 0.6966777463785873D+01
        xs(  9) = 0.7811928899800170D+01
        xs( 10) = 0.8640717937592100D+01
        xs( 11) = 0.9452837418967365D+01
        xs( 12) = 0.1024771430133497D+02
        xs( 13) = 0.1102538922146351D+02
        xs( 14) = 0.1178640978414135D+02
        xs( 15) = 0.1253155868231674D+02
        xs( 16) = 0.1326144169292920D+02
        xs( 17) = 0.1397690925985609D+02
        xs( 18) = 0.1467800797794589D+02
        xs( 19) = 0.1536611987521552D+02
        xs( 20) = 0.1604133230404187D+02
        xs( 21) = 0.1670433383162842D+02
        xs( 22) = 0.1735524015849392D+02
        xs( 23) = 0.1799546099126367D+02
        xs( 24) = 0.1862498541746883D+02
        xs( 25) = 0.1924383223677540D+02
        xs( 26) = 0.1985097117508120D+02
        xs( 27) = 0.2044936439352214D+02
        xs( 28) = 0.2104154185417911D+02
        xs( 29) = 0.2163027744610594D+02
        xs( 30) = 0.2221741293105203D+02
        xs( 31) = 0.2280684709356473D+02
        xs( 32) = 0.2339461947637205D+02
        xs( 33) = 0.2398017790541975D+02
        xs( 34) = 0.2459269200740419D+02
        xs( 35) = 0.2527882717470354D+02
        ws(  1) = 0.9061280410627883D+00
        ws(  2) = 0.9159457567758226D+00
        ws(  3) = 0.9123181724269958D+00
        ws(  4) = 0.9035525693223359D+00
        ws(  5) = 0.8942440369463921D+00
        ws(  6) = 0.8819075829303631D+00
        ws(  7) = 0.8685911091724893D+00
        ws(  8) = 0.8533597818466888D+00
        ws(  9) = 0.8366927914854188D+00
        ws( 10) = 0.8209180445547374D+00
        ws( 11) = 0.8032929191339226D+00
        ws( 12) = 0.7863339460316152D+00
        ws( 13) = 0.7692709181745807D+00
        ws( 14) = 0.7529936100100884D+00
        ws( 15) = 0.7372950497363042D+00
        ws( 16) = 0.7226089508393956D+00
        ws( 17) = 0.7081278837073608D+00
        ws( 18) = 0.6946259701148173D+00
        ws( 19) = 0.6815321038111418D+00
        ws( 20) = 0.6689495477031370D+00
        ws( 21) = 0.6566203157096752D+00
        ws( 22) = 0.6456706151664962D+00
        ws( 23) = 0.6350759095561682D+00
        ws( 24) = 0.6239554779110928D+00
        ws( 25) = 0.6128734639117400D+00
        ws( 26) = 0.6024281190668428D+00
        ws( 27) = 0.5943384007149536D+00
        ws( 28) = 0.5890903973840607D+00
        ws( 29) = 0.5868812331351724D+00
        ws( 30) = 0.5842733528114495D+00
        ws( 31) = 0.5884257554272775D+00
        ws( 32) = 0.5805635534186124D+00
        ws( 33) = 0.5598040605373563D+00
        ws( 34) = 0.6070977328615522D+00
        ws( 35) = 0.6909492893069576D+00
        endif
        if( idomain .eq.  177 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.1570796326794897D+01
        rk1r = 0.2827433388230814D+02
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  37
        err = 0.6826232617893168D-03
        xs(  1) = 0.7519436885530945D+00
        xs(  2) = 0.1681533951898578D+01
        xs(  3) = 0.2626400153479196D+01
        xs(  4) = 0.3565794785448884D+01
        xs(  5) = 0.4496139045735228D+01
        xs(  6) = 0.5416634526642756D+01
        xs(  7) = 0.6324777080901626D+01
        xs(  8) = 0.7221312181005848D+01
        xs(  9) = 0.8100486369366513D+01
        xs( 10) = 0.8962970728898856D+01
        xs( 11) = 0.9807438490353729D+01
        xs( 12) = 0.1063381652128850D+02
        xs( 13) = 0.1144042671219300D+02
        xs( 14) = 0.1222834166866335D+02
        xs( 15) = 0.1299807971531105D+02
        xs( 16) = 0.1375324297606521D+02
        xs( 17) = 0.1449698331794601D+02
        xs( 18) = 0.1523149871016173D+02
        xs( 19) = 0.1595730908056923D+02
        xs( 20) = 0.1667557053936998D+02
        xs( 21) = 0.1738471916358535D+02
        xs( 22) = 0.1808409535243255D+02
        xs( 23) = 0.1877354613267301D+02
        xs( 24) = 0.1945333194635100D+02
        xs( 25) = 0.2012299537882730D+02
        xs( 26) = 0.2078255966894341D+02
        xs( 27) = 0.2143076413988609D+02
        xs( 28) = 0.2206944084784518D+02
        xs( 29) = 0.2270226488462833D+02
        xs( 30) = 0.2333169270763118D+02
        xs( 31) = 0.2395494614046460D+02
        xs( 32) = 0.2457696588158036D+02
        xs( 33) = 0.2518757238426766D+02
        xs( 34) = 0.2581214520138236D+02
        xs( 35) = 0.2642508428553335D+02
        xs( 36) = 0.2703100158049046D+02
        xs( 37) = 0.2771042345868095D+02
        ws(  1) = 0.9178296072127290D+00
        ws(  2) = 0.9490815893904219D+00
        ws(  3) = 0.9402216888034247D+00
        ws(  4) = 0.9361175991324677D+00
        ws(  5) = 0.9249241466660376D+00
        ws(  6) = 0.9152579771027973D+00
        ws(  7) = 0.9026701073842657D+00
        ws(  8) = 0.8883082930153454D+00
        ws(  9) = 0.8710237655876470D+00
        ws( 10) = 0.8531980772706675D+00
        ws( 11) = 0.8359184321162524D+00
        ws( 12) = 0.8164034269624270D+00
        ws( 13) = 0.7973856505659943D+00
        ws( 14) = 0.7776547809622166D+00
        ws( 15) = 0.7636520424635393D+00
        ws( 16) = 0.7471719444138888D+00
        ws( 17) = 0.7391830490012586D+00
        ws( 18) = 0.7307921838976746D+00
        ws( 19) = 0.7217799813838198D+00
        ws( 20) = 0.7134561632503773D+00
        ws( 21) = 0.7043071356451166D+00
        ws( 22) = 0.6952350686366414D+00
        ws( 23) = 0.6834204898661509D+00
        ws( 24) = 0.6753133371246898D+00
        ws( 25) = 0.6644931185191423D+00
        ws( 26) = 0.6533636265779055D+00
        ws( 27) = 0.6419455238225333D+00
        ws( 28) = 0.6353012377826973D+00
        ws( 29) = 0.6279814166429379D+00
        ws( 30) = 0.6241424051303017D+00
        ws( 31) = 0.6197115428959247D+00
        ws( 32) = 0.6072435196923727D+00
        ws( 33) = 0.6060436153305370D+00
        ws( 34) = 0.5955132602967447D+00
        ws( 35) = 0.5867346973611932D+00
        ws( 36) = 0.4992492014531419D+00
        ws( 37) = 0.6453919019377351D+00
        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 =  42
        err = 0.9451218801025953D-03
        xs(  1) = 0.7242594897695221D+00
        xs(  2) = 0.1661459331311980D+01
        xs(  3) = 0.2600402966028799D+01
        xs(  4) = 0.3535279192734823D+01
        xs(  5) = 0.4463698348368769D+01
        xs(  6) = 0.5383083678772934D+01
        xs(  7) = 0.6293588513890053D+01
        xs(  8) = 0.7192075298613579D+01
        xs(  9) = 0.8078980973455272D+01
        xs( 10) = 0.8951234213588215D+01
        xs( 11) = 0.9809802622834829D+01
        xs( 12) = 0.1065285009515852D+02
        xs( 13) = 0.1148064549816614D+02
        xs( 14) = 0.1229221950008641D+02
        xs( 15) = 0.1308891319851656D+02
        xs( 16) = 0.1387067870082225D+02
        xs( 17) = 0.1463903718684662D+02
        xs( 18) = 0.1539451596977306D+02
        xs( 19) = 0.1613732334873875D+02
        xs( 20) = 0.1686644258206113D+02
        xs( 21) = 0.1758251070405949D+02
        xs( 22) = 0.1828534906194389D+02
        xs( 23) = 0.1897724783753379D+02
        xs( 24) = 0.1965999508201863D+02
        xs( 25) = 0.2033555966589489D+02
        xs( 26) = 0.2100529098597103D+02
        xs( 27) = 0.2166889563632722D+02
        xs( 28) = 0.2232545221194079D+02
        xs( 29) = 0.2297459185898836D+02
        xs( 30) = 0.2361570698227998D+02
        xs( 31) = 0.2424738417042162D+02
        xs( 32) = 0.2486874797547569D+02
        xs( 33) = 0.2548192014481967D+02
        xs( 34) = 0.2609002258944337D+02
        xs( 35) = 0.2669528711738526D+02
        xs( 36) = 0.2729717130054432D+02
        xs( 37) = 0.2789751890280108D+02
        xs( 38) = 0.2849072848756342D+02
        xs( 39) = 0.2907836036446511D+02
        xs( 40) = 0.2967014895289371D+02
        xs( 41) = 0.3022694298583346D+02
        xs( 42) = 0.3088214675775972D+02
        ws(  1) = 0.9262066400811924D+00
        ws(  2) = 0.9420069847556141D+00
        ws(  3) = 0.9360005403165210D+00
        ws(  4) = 0.9330201237799657D+00
        ws(  5) = 0.9230882062844649D+00
        ws(  6) = 0.9161160649274673D+00
        ws(  7) = 0.9039802660834054D+00
        ws(  8) = 0.8934600857601059D+00
        ws(  9) = 0.8791131694075281D+00
        ws( 10) = 0.8658359459149146D+00
        ws( 11) = 0.8509015329447346D+00
        ws( 12) = 0.8351498264067894D+00
        ws( 13) = 0.8200066341946765D+00
        ws( 14) = 0.8037662707430331D+00
        ws( 15) = 0.7890290826734163D+00
        ws( 16) = 0.7751057566867759D+00
        ws( 17) = 0.7619415990194214D+00
        ws( 18) = 0.7487587034849356D+00
        ws( 19) = 0.7361173854790395D+00
        ws( 20) = 0.7233425129091776D+00
        ws( 21) = 0.7090051339614609D+00
        ws( 22) = 0.6970486086507606D+00
        ws( 23) = 0.6868133054068107D+00
        ws( 24) = 0.6790816575626436D+00
        ws( 25) = 0.6731482344123066D+00
        ws( 26) = 0.6657976632154391D+00
        ws( 27) = 0.6604334527781149D+00
        ws( 28) = 0.6528624926369063D+00
        ws( 29) = 0.6448521170567680D+00
        ws( 30) = 0.6363528074379671D+00
        ws( 31) = 0.6260442452245553D+00
        ws( 32) = 0.6166092478387212D+00
        ws( 33) = 0.6092915934825733D+00
        ws( 34) = 0.6061736839187482D+00
        ws( 35) = 0.6014990072672529D+00
        ws( 36) = 0.6014713410539966D+00
        ws( 37) = 0.5940013765344297D+00
        ws( 38) = 0.6002191297150368D+00
        ws( 39) = 0.5797304238566859D+00
        ws( 40) = 0.5547344369914181D+00
        ws( 41) = 0.5593760644586442D+00
        ws( 42) = 0.5454477319933537D+00
        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 =  47
        err = 0.7743521538440349D-03
        xs(  1) = 0.7338649878022105D+00
        xs(  2) = 0.1678673657219839D+01
        xs(  3) = 0.2627962731935272D+01
        xs(  4) = 0.3572710410079579D+01
        xs(  5) = 0.4511414089496490D+01
        xs(  6) = 0.5441884802100408D+01
        xs(  7) = 0.6363132432367718D+01
        xs(  8) = 0.7274065593649701D+01
        xs(  9) = 0.8173075648125463D+01
        xs( 10) = 0.9058282081183016D+01
        xs( 11) = 0.9929832590628303D+01
        xs( 12) = 0.1078681860461221D+02
        xs( 13) = 0.1162915779803896D+02
        xs( 14) = 0.1245704890416385D+02
        xs( 15) = 0.1326994153361078D+02
        xs( 16) = 0.1406951905639956D+02
        xs( 17) = 0.1485561686658082D+02
        xs( 18) = 0.1562920854348899D+02
        xs( 19) = 0.1639100592092197D+02
        xs( 20) = 0.1714084121243519D+02
        xs( 21) = 0.1788018947651616D+02
        xs( 22) = 0.1860837219625680D+02
        xs( 23) = 0.1932520051805200D+02
        xs( 24) = 0.2003033734077988D+02
        xs( 25) = 0.2072184877697949D+02
        xs( 26) = 0.2140013944334534D+02
        xs( 27) = 0.2206364278007139D+02
        xs( 28) = 0.2271562644791435D+02
        xs( 29) = 0.2335857448531291D+02
        xs( 30) = 0.2399643536655959D+02
        xs( 31) = 0.2463073385517680D+02
        xs( 32) = 0.2526152079066719D+02
        xs( 33) = 0.2588615382302401D+02
        xs( 34) = 0.2650430067791165D+02
        xs( 35) = 0.2711421855231524D+02
        xs( 36) = 0.2771604158117528D+02
        xs( 37) = 0.2830999473675617D+02
        xs( 38) = 0.2889795483790027D+02
        xs( 39) = 0.2948069146723792D+02
        xs( 40) = 0.3006057574376669D+02
        xs( 41) = 0.3063710273610223D+02
        xs( 42) = 0.3121203718375437D+02
        xs( 43) = 0.3178265422089395D+02
        xs( 44) = 0.3236798039690918D+02
        xs( 45) = 0.3293576098778345D+02
        xs( 46) = 0.3349359471084422D+02
        xs( 47) = 0.3420852723223339D+02
        ws(  1) = 0.9352466562206831D+00
        ws(  2) = 0.9507608478351410D+00
        ws(  3) = 0.9468731949741390D+00
        ws(  4) = 0.9423312941727704D+00
        ws(  5) = 0.9344198106399542D+00
        ws(  6) = 0.9267102109141387D+00
        ws(  7) = 0.9155600293187927D+00
        ws(  8) = 0.9059792716112890D+00
        ws(  9) = 0.8917592706580638D+00
        ws( 10) = 0.8785654986330106D+00
        ws( 11) = 0.8643235645456193D+00
        ws( 12) = 0.8503780938716567D+00
        ws( 13) = 0.8341946341604174D+00
        ws( 14) = 0.8204649815640866D+00
        ws( 15) = 0.8063685264605032D+00
        ws( 16) = 0.7927830282911781D+00
        ws( 17) = 0.7796192983045727D+00
        ws( 18) = 0.7673032893667748D+00
        ws( 19) = 0.7561672718786060D+00
        ws( 20) = 0.7443734319899503D+00
        ws( 21) = 0.7336357680691733D+00
        ws( 22) = 0.7225964559695198D+00
        ws( 23) = 0.7110215649769849D+00
        ws( 24) = 0.6987243568525376D+00
        ws( 25) = 0.6848887932902991D+00
        ws( 26) = 0.6703879891147763D+00
        ws( 27) = 0.6573382517999590D+00
        ws( 28) = 0.6469030731268496D+00
        ws( 29) = 0.6396112118732644D+00
        ws( 30) = 0.6362668469717181D+00
        ws( 31) = 0.6318305652594794D+00
        ws( 32) = 0.6281686298990146D+00
        ws( 33) = 0.6220745253997059D+00
        ws( 34) = 0.6130387331622397D+00
        ws( 35) = 0.6066246829765910D+00
        ws( 36) = 0.5971250788738806D+00
        ws( 37) = 0.5913645728577223D+00
        ws( 38) = 0.5848918046351275D+00
        ws( 39) = 0.5803237082139024D+00
        ws( 40) = 0.5779649227405130D+00
        ws( 41) = 0.5727205581091448D+00
        ws( 42) = 0.5702729164158163D+00
        ws( 43) = 0.5708274183847225D+00
        ws( 44) = 0.5628466511780181D+00
        ws( 45) = 0.5859151528477977D+00
        ws( 46) = 0.5029358467266938D+00
        ws( 47) = 0.9252209739271520D+00
        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 =  49
        err = 0.9444520715415218D-03
        xs(  1) = 0.7629282612735490D+00
        xs(  2) = 0.1704119040594334D+01
        xs(  3) = 0.2659921585265864D+01
        xs(  4) = 0.3615809574351272D+01
        xs(  5) = 0.4563867897350259D+01
        xs(  6) = 0.5506854977363413D+01
        xs(  7) = 0.6440256713513633D+01
        xs(  8) = 0.7365936201749852D+01
        xs(  9) = 0.8280694074372867D+01
        xs( 10) = 0.9183967498695559D+01
        xs( 11) = 0.1007460864061931D+02
        xs( 12) = 0.1095265894004086D+02
        xs( 13) = 0.1181796874369088D+02
        xs( 14) = 0.1266979894457977D+02
        xs( 15) = 0.1350814850181583D+02
        xs( 16) = 0.1433250549622143D+02
        xs( 17) = 0.1514431153111042D+02
        xs( 18) = 0.1594326204953492D+02
        xs( 19) = 0.1673022854155603D+02
        xs( 20) = 0.1750554301422817D+02
        xs( 21) = 0.1826922417504136D+02
        xs( 22) = 0.1902092974126825D+02
        xs( 23) = 0.1976169415760945D+02
        xs( 24) = 0.2049160045655506D+02
        xs( 25) = 0.2121236376631508D+02
        xs( 26) = 0.2192331797857198D+02
        xs( 27) = 0.2262621168517188D+02
        xs( 28) = 0.2331987616400583D+02
        xs( 29) = 0.2400443649828936D+02
        xs( 30) = 0.2468074670860027D+02
        xs( 31) = 0.2534957541054164D+02
        xs( 32) = 0.2601216912763859D+02
        xs( 33) = 0.2666945891253614D+02
        xs( 34) = 0.2732292696580491D+02
        xs( 35) = 0.2797036482147595D+02
        xs( 36) = 0.2861233261169364D+02
        xs( 37) = 0.2924715069279312D+02
        xs( 38) = 0.2987502045921172D+02
        xs( 39) = 0.3049674465255812D+02
        xs( 40) = 0.3111343943270772D+02
        xs( 41) = 0.3172394618809439D+02
        xs( 42) = 0.3233034528576620D+02
        xs( 43) = 0.3292874705327976D+02
        xs( 44) = 0.3352250451208349D+02
        xs( 45) = 0.3411055480780342D+02
        xs( 46) = 0.3470335587179742D+02
        xs( 47) = 0.3529108007946732D+02
        xs( 48) = 0.3585401275743119D+02
        xs( 49) = 0.3648248924699181D+02
        ws(  1) = 0.9441173027996942D+00
        ws(  2) = 0.9491028265178355D+00
        ws(  3) = 0.9591002559563085D+00
        ws(  4) = 0.9510995895745440D+00
        ws(  5) = 0.9465635803432846D+00
        ws(  6) = 0.9380107642333446D+00
        ws(  7) = 0.9297887492383377D+00
        ws(  8) = 0.9201629560101769D+00
        ws(  9) = 0.9099066839518751D+00
        ws( 10) = 0.8960448079408176D+00
        ws( 11) = 0.8856058474951012D+00
        ws( 12) = 0.8714429250608386D+00
        ws( 13) = 0.8587174958216658D+00
        ws( 14) = 0.8436113531927023D+00
        ws( 15) = 0.8323098662317066D+00
        ws( 16) = 0.8180953328546532D+00
        ws( 17) = 0.8060325352336046D+00
        ws( 18) = 0.7921845254016164D+00
        ws( 19) = 0.7816941780668351D+00
        ws( 20) = 0.7684826026153011D+00
        ws( 21) = 0.7572961426453899D+00
        ws( 22) = 0.7473906466149584D+00
        ws( 23) = 0.7345695338020949D+00
        ws( 24) = 0.7255140452420923D+00
        ws( 25) = 0.7155054914473356D+00
        ws( 26) = 0.7070305493507514D+00
        ws( 27) = 0.6978777240240565D+00
        ws( 28) = 0.6889097906370308D+00
        ws( 29) = 0.6819716178953851D+00
        ws( 30) = 0.6710266828453053D+00
        ws( 31) = 0.6659220094739076D+00
        ws( 32) = 0.6596439107147154D+00
        ws( 33) = 0.6564419911983260D+00
        ws( 34) = 0.6495406392302763D+00
        ws( 35) = 0.6456386879783075D+00
        ws( 36) = 0.6376170543296019D+00
        ws( 37) = 0.6320368556220315D+00
        ws( 38) = 0.6234083293692799D+00
        ws( 39) = 0.6188519638377745D+00
        ws( 40) = 0.6138446180043967D+00
        ws( 41) = 0.6082300253167783D+00
        ws( 42) = 0.6030709887721946D+00
        ws( 43) = 0.6018493141673532D+00
        ws( 44) = 0.5943724995434845D+00
        ws( 45) = 0.6084650355819103D+00
        ws( 46) = 0.5896453832700161D+00
        ws( 47) = 0.6067388035696658D+00
        ws( 48) = 0.4731465030358789D+00
        ws( 49) = 0.5880012096967342D+00
        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 =  54
        err = 0.7093523114012448D-03
        xs(  1) = 0.7746823081157980D+00
        xs(  2) = 0.1715755380915062D+01
        xs(  3) = 0.2673939227762526D+01
        xs(  4) = 0.3634682737941159D+01
        xs(  5) = 0.4589554841804761D+01
        xs(  6) = 0.5536859753855402D+01
        xs(  7) = 0.6478285888370151D+01
        xs(  8) = 0.7411152236991671D+01
        xs(  9) = 0.8334873153948772D+01
        xs( 10) = 0.9247235623749781D+01
        xs( 11) = 0.1014859105151016D+02
        xs( 12) = 0.1103850381113181D+02
        xs( 13) = 0.1191629382134202D+02
        xs( 14) = 0.1278090013359339D+02
        xs( 15) = 0.1363297135347055D+02
        xs( 16) = 0.1447107899793445D+02
        xs( 17) = 0.1529635182321465D+02
        xs( 18) = 0.1610837621756553D+02
        xs( 19) = 0.1690808567537386D+02
        xs( 20) = 0.1769718499305533D+02
        xs( 21) = 0.1847627712762501D+02
        xs( 22) = 0.1924459528827815D+02
        xs( 23) = 0.2000345445749587D+02
        xs( 24) = 0.2075137186409814D+02
        xs( 25) = 0.2148880487646454D+02
        xs( 26) = 0.2221746241519799D+02
        xs( 27) = 0.2293654838223443D+02
        xs( 28) = 0.2364708104013020D+02
        xs( 29) = 0.2434838205691412D+02
        xs( 30) = 0.2503902916303823D+02
        xs( 31) = 0.2571841639303594D+02
        xs( 32) = 0.2638637095249615D+02
        xs( 33) = 0.2704416306216059D+02
        xs( 34) = 0.2769384059159579D+02
        xs( 35) = 0.2833955388150505D+02
        xs( 36) = 0.2898150533834613D+02
        xs( 37) = 0.2961976550906895D+02
        xs( 38) = 0.3025415954996551D+02
        xs( 39) = 0.3088455739061900D+02
        xs( 40) = 0.3151029531044682D+02
        xs( 41) = 0.3213067368538665D+02
        xs( 42) = 0.3274632916307212D+02
        xs( 43) = 0.3335382615511244D+02
        xs( 44) = 0.3395750290844472D+02
        xs( 45) = 0.3455554887688481D+02
        xs( 46) = 0.3514727342122969D+02
        xs( 47) = 0.3573572223014438D+02
        xs( 48) = 0.3631201167683861D+02
        xs( 49) = 0.3689342545482225D+02
        xs( 50) = 0.3746085198197123D+02
        xs( 51) = 0.3804061544363513D+02
        xs( 52) = 0.3862283826302444D+02
        xs( 53) = 0.3916128550313852D+02
        xs( 54) = 0.3978562331440698D+02
        ws(  1) = 0.9450717113895394D+00
        ws(  2) = 0.9502636032433079D+00
        ws(  3) = 0.9669678703537471D+00
        ws(  4) = 0.9525416958775486D+00
        ws(  5) = 0.9526684358961282D+00
        ws(  6) = 0.9461367180783579D+00
        ws(  7) = 0.9359913417643148D+00
        ws(  8) = 0.9279821740754032D+00
        ws(  9) = 0.9186799957521371D+00
        ws( 10) = 0.9087018605221896D+00
        ws( 11) = 0.8936850687229400D+00
        ws( 12) = 0.8838002749323284D+00
        ws( 13) = 0.8712889273448358D+00
        ws( 14) = 0.8590966703873617D+00
        ws( 15) = 0.8453077016774769D+00
        ws( 16) = 0.8308465376163248D+00
        ws( 17) = 0.8187000235147642D+00
        ws( 18) = 0.8059783687346703D+00
        ws( 19) = 0.7943452904833262D+00
        ws( 20) = 0.7838211944579633D+00
        ws( 21) = 0.7736547412205436D+00
        ws( 22) = 0.7637192629149863D+00
        ws( 23) = 0.7535764937407352D+00
        ws( 24) = 0.7429220327314586D+00
        ws( 25) = 0.7330105183439841D+00
        ws( 26) = 0.7237338588411446D+00
        ws( 27) = 0.7149487143767201D+00
        ws( 28) = 0.7061660422799346D+00
        ws( 29) = 0.6960043070818079D+00
        ws( 30) = 0.6856255675768045D+00
        ws( 31) = 0.6738257307968047D+00
        ws( 32) = 0.6623229103853508D+00
        ws( 33) = 0.6530122563793544D+00
        ws( 34) = 0.6486200289274623D+00
        ws( 35) = 0.6426196417358105D+00
        ws( 36) = 0.6412641901138035D+00
        ws( 37) = 0.6371122119500163D+00
        ws( 38) = 0.6313479153416709D+00
        ws( 39) = 0.6290871552696284D+00
        ws( 40) = 0.6241808204231667D+00
        ws( 41) = 0.6178504208319821D+00
        ws( 42) = 0.6126151793273024D+00
        ws( 43) = 0.6090611605674889D+00
        ws( 44) = 0.5996822265055795D+00
        ws( 45) = 0.6043779727256914D+00
        ws( 46) = 0.5880339768963972D+00
        ws( 47) = 0.5940037202996900D+00
        ws( 48) = 0.5793050736007337D+00
        ws( 49) = 0.5950689273400959D+00
        ws( 50) = 0.5861498574247282D+00
        ws( 51) = 0.6110699392624594D+00
        ws( 52) = 0.5999232038996067D+00
        ws( 53) = 0.5411068338825477D+00
        ws( 54) = 0.6002845690479692D+00
        endif
        if( idomain .eq.  182 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.1570796326794897D+01
        rk1r = 0.4398229715025710D+02
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  58
        err = 0.7830650918017382D-03
        xs(  1) = 0.8104247038023554D+00
        xs(  2) = 0.1745681715651496D+01
        xs(  3) = 0.2706925872324409D+01
        xs(  4) = 0.3676851508466004D+01
        xs(  5) = 0.4639482620267760D+01
        xs(  6) = 0.5597347252748079D+01
        xs(  7) = 0.6547322684140204D+01
        xs(  8) = 0.7490894889984485D+01
        xs(  9) = 0.8423779545446562D+01
        xs( 10) = 0.9348468558428621D+01
        xs( 11) = 0.1025899116490825D+02
        xs( 12) = 0.1115877437572270D+02
        xs( 13) = 0.1204571294201117D+02
        xs( 14) = 0.1292349452856542D+02
        xs( 15) = 0.1378808696111431D+02
        xs( 16) = 0.1464199510829517D+02
        xs( 17) = 0.1548498738557790D+02
        xs( 18) = 0.1631695051533763D+02
        xs( 19) = 0.1713796359366287D+02
        xs( 20) = 0.1794713501642519D+02
        xs( 21) = 0.1874573122931013D+02
        xs( 22) = 0.1953247573736728D+02
        xs( 23) = 0.2030870562076888D+02
        xs( 24) = 0.2107697500085802D+02
        xs( 25) = 0.2183600417577734D+02
        xs( 26) = 0.2258782995186601D+02
        xs( 27) = 0.2333168518636436D+02
        xs( 28) = 0.2406280600488417D+02
        xs( 29) = 0.2477940851850914D+02
        xs( 30) = 0.2548326184661412D+02
        xs( 31) = 0.2617487086272947D+02
        xs( 32) = 0.2686356981334310D+02
        xs( 33) = 0.2754903355754384D+02
        xs( 34) = 0.2823012991246463D+02
        xs( 35) = 0.2889950069522182D+02
        xs( 36) = 0.2955631588515245D+02
        xs( 37) = 0.3020438437160812D+02
        xs( 38) = 0.3085180695985482D+02
        xs( 39) = 0.3150016375804965D+02
        xs( 40) = 0.3215096118432368D+02
        xs( 41) = 0.3279798684388741D+02
        xs( 42) = 0.3344098174947641D+02
        xs( 43) = 0.3407247301380922D+02
        xs( 44) = 0.3469551531965206D+02
        xs( 45) = 0.3530687707412921D+02
        xs( 46) = 0.3591310207307432D+02
        xs( 47) = 0.3651154249727274D+02
        xs( 48) = 0.3710719237829711D+02
        xs( 49) = 0.3769635597302806D+02
        xs( 50) = 0.3828446533876726D+02
        xs( 51) = 0.3886855480635707D+02
        xs( 52) = 0.3945606071764134D+02
        xs( 53) = 0.4003617408615151D+02
        xs( 54) = 0.4062063169206803D+02
        xs( 55) = 0.4121257297361055D+02
        xs( 56) = 0.4177535515478899D+02
        xs( 57) = 0.4236521923746599D+02
        xs( 58) = 0.4301585197970562D+02
        ws(  1) = 0.9560022713348945D+00
        ws(  2) = 0.9499925224690751D+00
        ws(  3) = 0.9718212106507745D+00
        ws(  4) = 0.9619359233382604D+00
        ws(  5) = 0.9630359762159475D+00
        ws(  6) = 0.9540826568915878D+00
        ws(  7) = 0.9463802230773709D+00
        ws(  8) = 0.9414005087527804D+00
        ws(  9) = 0.9238522027642626D+00
        ws( 10) = 0.9201170864706375D+00
        ws( 11) = 0.9042300367160918D+00
        ws( 12) = 0.8974916353068615D+00
        ws( 13) = 0.8793992042890401D+00
        ws( 14) = 0.8700039265623913D+00
        ws( 15) = 0.8589866987096668D+00
        ws( 16) = 0.8495828482427118D+00
        ws( 17) = 0.8383029881662584D+00
        ws( 18) = 0.8268338462934554D+00
        ws( 19) = 0.8141804308560115D+00
        ws( 20) = 0.8031773590506190D+00
        ws( 21) = 0.7933401798725029D+00
        ws( 22) = 0.7810230879110407D+00
        ws( 23) = 0.7723554984037035D+00
        ws( 24) = 0.7641524258732912D+00
        ws( 25) = 0.7547685548773689D+00
        ws( 26) = 0.7483249942653689D+00
        ws( 27) = 0.7369455873500750D+00
        ws( 28) = 0.7258063342633280D+00
        ws( 29) = 0.7105138173969963D+00
        ws( 30) = 0.6945240438163356D+00
        ws( 31) = 0.6904497671945979D+00
        ws( 32) = 0.6876163438391700D+00
        ws( 33) = 0.6846322695606470D+00
        ws( 34) = 0.6741095391651354D+00
        ws( 35) = 0.6654481208068934D+00
        ws( 36) = 0.6503453212167640D+00
        ws( 37) = 0.6468921694728907D+00
        ws( 38) = 0.6485601697255412D+00
        ws( 39) = 0.6503540352889863D+00
        ws( 40) = 0.6512288602992417D+00
        ws( 41) = 0.6455493993054142D+00
        ws( 42) = 0.6382275222090181D+00
        ws( 43) = 0.6307944580557003D+00
        ws( 44) = 0.6140603138950023D+00
        ws( 45) = 0.6105124575577048D+00
        ws( 46) = 0.6010502934842096D+00
        ws( 47) = 0.5955783511979698D+00
        ws( 48) = 0.5867888264399861D+00
        ws( 49) = 0.5893766841331228D+00
        ws( 50) = 0.5717787947287035D+00
        ws( 51) = 0.5844138436660916D+00
        ws( 52) = 0.5667558603609215D+00
        ws( 53) = 0.5706736119008451D+00
        ws( 54) = 0.5762218079603326D+00
        ws( 55) = 0.5415523870566854D+00
        ws( 56) = 0.5886142178519261D+00
        ws( 57) = 0.4991356902048197D+00
        ws( 58) = 0.7009730871305566D+00
        endif
        if( idomain .eq.  183 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.1570796326794897D+01
        rk1r = 0.4712388980384689D+02
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  64
        err = 0.5548113061679886D-03
        xs(  1) = 0.7463943660716837D+00
        xs(  2) = 0.1702535579841924D+01
        xs(  3) = 0.2663237876211412D+01
        xs(  4) = 0.3624190429571288D+01
        xs(  5) = 0.4580518476333887D+01
        xs(  6) = 0.5531177783149871D+01
        xs(  7) = 0.6476599927541618D+01
        xs(  8) = 0.7413911137987208D+01
        xs(  9) = 0.8344162469696006D+01
        xs( 10) = 0.9264912360901361D+01
        xs( 11) = 0.1017665620246667D+02
        xs( 12) = 0.1107834077898659D+02
        xs( 13) = 0.1196982490192802D+02
        xs( 14) = 0.1285115090811610D+02
        xs( 15) = 0.1372183375716087D+02
        xs( 16) = 0.1458199194945814D+02
        xs( 17) = 0.1543172439955478D+02
        xs( 18) = 0.1627093629152556D+02
        xs( 19) = 0.1710042778860325D+02
        xs( 20) = 0.1792032172452299D+02
        xs( 21) = 0.1873130121542983D+02
        xs( 22) = 0.1953289872182197D+02
        xs( 23) = 0.2032430163381338D+02
        xs( 24) = 0.2110524347337278D+02
        xs( 25) = 0.2187566037209950D+02
        xs( 26) = 0.2263595354793112D+02
        xs( 27) = 0.2338748049917911D+02
        xs( 28) = 0.2413050337559499D+02
        xs( 29) = 0.2486516776735216D+02
        xs( 30) = 0.2559110306958670D+02
        xs( 31) = 0.2630776372714697D+02
        xs( 32) = 0.2701495319424893D+02
        xs( 33) = 0.2771208978603345D+02
        xs( 34) = 0.2839920630973303D+02
        xs( 35) = 0.2907744395096575D+02
        xs( 36) = 0.2974882441709073D+02
        xs( 37) = 0.3041405456740455D+02
        xs( 38) = 0.3107203459973303D+02
        xs( 39) = 0.3172130196415027D+02
        xs( 40) = 0.3236090423416808D+02
        xs( 41) = 0.3299195051547847D+02
        xs( 42) = 0.3361569928153793D+02
        xs( 43) = 0.3423268857542745D+02
        xs( 44) = 0.3484272731267900D+02
        xs( 45) = 0.3544628271137072D+02
        xs( 46) = 0.3604382273630603D+02
        xs( 47) = 0.3663737116569019D+02
        xs( 48) = 0.3722633700747710D+02
        xs( 49) = 0.3781237988180144D+02
        xs( 50) = 0.3839544642676624D+02
        xs( 51) = 0.3897535210043698D+02
        xs( 52) = 0.3955129821897725D+02
        xs( 53) = 0.4012383730114286D+02
        xs( 54) = 0.4069121495257293D+02
        xs( 55) = 0.4125462962818643D+02
        xs( 56) = 0.4181387006613222D+02
        xs( 57) = 0.4236701904150078D+02
        xs( 58) = 0.4291806011539935D+02
        xs( 59) = 0.4346566932523843D+02
        xs( 60) = 0.4401300837468662D+02
        xs( 61) = 0.4456131212034619D+02
        xs( 62) = 0.4510795327628253D+02
        xs( 63) = 0.4565339758086670D+02
        xs( 64) = 0.4622911295642717D+02
        ws(  1) = 0.9534757574483004D+00
        ws(  2) = 0.9580746561609920D+00
        ws(  3) = 0.9618917297295965D+00
        ws(  4) = 0.9587609073408169D+00
        ws(  5) = 0.9532546860310011D+00
        ws(  6) = 0.9484440406361602D+00
        ws(  7) = 0.9415837643401509D+00
        ws(  8) = 0.9340629890315714D+00
        ws(  9) = 0.9258163939590760D+00
        ws( 10) = 0.9158525140637217D+00
        ws( 11) = 0.9066006557707423D+00
        ws( 12) = 0.8966351017899359D+00
        ws( 13) = 0.8870857218725782D+00
        ws( 14) = 0.8760977752305515D+00
        ws( 15) = 0.8651757038709023D+00
        ws( 16) = 0.8545776574645794D+00
        ws( 17) = 0.8442092979244459D+00
        ws( 18) = 0.8345255291492439D+00
        ws( 19) = 0.8247506183539843D+00
        ws( 20) = 0.8157606302414229D+00
        ws( 21) = 0.8062001109363910D+00
        ws( 22) = 0.7962960094935871D+00
        ws( 23) = 0.7864195809788693D+00
        ws( 24) = 0.7757127387742607D+00
        ws( 25) = 0.7650207885222958D+00
        ws( 26) = 0.7559948217826739D+00
        ws( 27) = 0.7473265561897146D+00
        ws( 28) = 0.7389279875836857D+00
        ws( 29) = 0.7301174908392178D+00
        ws( 30) = 0.7215206619676502D+00
        ws( 31) = 0.7122377670653548D+00
        ws( 32) = 0.7019476704387646D+00
        ws( 33) = 0.6920781137235441D+00
        ws( 34) = 0.6824400320469829D+00
        ws( 35) = 0.6745856450321605D+00
        ws( 36) = 0.6681550470357407D+00
        ws( 37) = 0.6616171132995086D+00
        ws( 38) = 0.6540538430819649D+00
        ws( 39) = 0.6442768641954064D+00
        ws( 40) = 0.6349328103870564D+00
        ws( 41) = 0.6269325387389525D+00
        ws( 42) = 0.6202553909521098D+00
        ws( 43) = 0.6135969460951461D+00
        ws( 44) = 0.6061892787181750D+00
        ws( 45) = 0.6005111486387312D+00
        ws( 46) = 0.5948898119302717D+00
        ws( 47) = 0.5912722860361245D+00
        ws( 48) = 0.5874536599507127D+00
        ws( 49) = 0.5843104667342918D+00
        ws( 50) = 0.5818136770804647D+00
        ws( 51) = 0.5784230078730954D+00
        ws( 52) = 0.5746068886413040D+00
        ws( 53) = 0.5705341725693627D+00
        ws( 54) = 0.5657304552862779D+00
        ws( 55) = 0.5624000923570422D+00
        ws( 56) = 0.5553120433034000D+00
        ws( 57) = 0.5521178082453274D+00
        ws( 58) = 0.5469907394950777D+00
        ws( 59) = 0.5468074177772247D+00
        ws( 60) = 0.5465900631424081D+00
        ws( 61) = 0.5619110856377384D+00
        ws( 62) = 0.5416996375847717D+00
        ws( 63) = 0.5279540213083860D+00
        ws( 64) = 0.5582393288766184D+00
        endif
        if( idomain .eq.  184 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.1570796326794897D+01
        rk1r = 0.5026548245743669D+02
        rk1i = 0.3141592653589793D+01
        iquadtype =  1
        n =  68
        err = 0.5383176339534714D-03
        xs(  1) = 0.7690316257584169D+00
        xs(  2) = 0.1725687009254204D+01
        xs(  3) = 0.2676636780958420D+01
        xs(  4) = 0.3647048432583371D+01
        xs(  5) = 0.4604948279331563D+01
        xs(  6) = 0.5561302349202015D+01
        xs(  7) = 0.6511489258389155D+01
        xs(  8) = 0.7455847643105589D+01
        xs(  9) = 0.8391709198459319D+01
        xs( 10) = 0.9321489746650702D+01
        xs( 11) = 0.1024055549366106D+02
        xs( 12) = 0.1115131249022893D+02
        xs( 13) = 0.1205229887521598D+02
        xs( 14) = 0.1294362980193775D+02
        xs( 15) = 0.1382552776385095D+02
        xs( 16) = 0.1469743472312457D+02
        xs( 17) = 0.1556027395037074D+02
        xs( 18) = 0.1641403384937205D+02
        xs( 19) = 0.1725828820462914D+02
        xs( 20) = 0.1809331985779559D+02
        xs( 21) = 0.1891962198520786D+02
        xs( 22) = 0.1973638397510106D+02
        xs( 23) = 0.2054369445453256D+02
        xs( 24) = 0.2134058583167472D+02
        xs( 25) = 0.2212846852442111D+02
        xs( 26) = 0.2290500195313964D+02
        xs( 27) = 0.2367301236602277D+02
        xs( 28) = 0.2443283696789063D+02
        xs( 29) = 0.2518398279292280D+02
        xs( 30) = 0.2592727265648064D+02
        xs( 31) = 0.2666281929378466D+02
        xs( 32) = 0.2738863307224987D+02
        xs( 33) = 0.2810710936461016D+02
        xs( 34) = 0.2881609792430462D+02
        xs( 35) = 0.2951650825472450D+02
        xs( 36) = 0.3020816652237102D+02
        xs( 37) = 0.3089157470084561D+02
        xs( 38) = 0.3156872506897366D+02
        xs( 39) = 0.3223739462294146D+02
        xs( 40) = 0.3289935702962587D+02
        xs( 41) = 0.3355156277029175D+02
        xs( 42) = 0.3419370787050008D+02
        xs( 43) = 0.3482600613035649D+02
        xs( 44) = 0.3545060645539083D+02
        xs( 45) = 0.3606934395520978D+02
        xs( 46) = 0.3668631272773260D+02
        xs( 47) = 0.3730283314728322D+02
        xs( 48) = 0.3791878408677894D+02
        xs( 49) = 0.3852782997580499D+02
        xs( 50) = 0.3913034853396483D+02
        xs( 51) = 0.3972373719118185D+02
        xs( 52) = 0.4031211924149171D+02
        xs( 53) = 0.4089633060927928D+02
        xs( 54) = 0.4147917932822950D+02
        xs( 55) = 0.4205837674869002D+02
        xs( 56) = 0.4263630599034814D+02
        xs( 57) = 0.4321017321482491D+02
        xs( 58) = 0.4378004065468603D+02
        xs( 59) = 0.4434975261595212D+02
        xs( 60) = 0.4491533741942534D+02
        xs( 61) = 0.4548194356383307D+02
        xs( 62) = 0.4604462117447931D+02
        xs( 63) = 0.4660971867876050D+02
        xs( 64) = 0.4715995257420785D+02
        xs( 65) = 0.4771739668619858D+02
        xs( 66) = 0.4827632046858230D+02
        xs( 67) = 0.4876121830582558D+02
        xs( 68) = 0.4946240933610786D+02
        ws(  1) = 0.9674932607821284D+00
        ws(  2) = 0.9432273593274046D+00
        ws(  3) = 0.9676653967034198D+00
        ws(  4) = 0.9676878213979078D+00
        ws(  5) = 0.9511799349324587D+00
        ws(  6) = 0.9551189966910969D+00
        ws(  7) = 0.9492051753244992D+00
        ws(  8) = 0.9395776771362797D+00
        ws(  9) = 0.9326001710178837D+00
        ws( 10) = 0.9242475451547865D+00
        ws( 11) = 0.9150186910496128D+00
        ws( 12) = 0.9056035665460340D+00
        ws( 13) = 0.8972809261797194D+00
        ws( 14) = 0.8855566415018197D+00
        ws( 15) = 0.8782847692493632D+00
        ws( 16) = 0.8659365244800097D+00
        ws( 17) = 0.8589104571015184D+00
        ws( 18) = 0.8486321729272311D+00
        ws( 19) = 0.8395983780209604D+00
        ws( 20) = 0.8312803184470799D+00
        ws( 21) = 0.8208081758261930D+00
        ws( 22) = 0.8133173096273564D+00
        ws( 23) = 0.8007195031165739D+00
        ws( 24) = 0.7935996182243388D+00
        ws( 25) = 0.7812648917070781D+00
        ws( 26) = 0.7727980567825751D+00
        ws( 27) = 0.7634160132656688D+00
        ws( 28) = 0.7557987687149526D+00
        ws( 29) = 0.7467912509508098D+00
        ws( 30) = 0.7402479830637057D+00
        ws( 31) = 0.7299150079373929D+00
        ws( 32) = 0.7224783677316577D+00
        ws( 33) = 0.7140630812067255D+00
        ws( 34) = 0.7042231416626479D+00
        ws( 35) = 0.6962933890316352D+00
        ws( 36) = 0.6878218572914837D+00
        ws( 37) = 0.6789734947373928D+00
        ws( 38) = 0.6737972119911940D+00
        ws( 39) = 0.6663336608325527D+00
        ws( 40) = 0.6558699359765189D+00
        ws( 41) = 0.6477738831942861D+00
        ws( 42) = 0.6371094681628047D+00
        ws( 43) = 0.6287387012858283D+00
        ws( 44) = 0.6194298255854822D+00
        ws( 45) = 0.6188058062903495D+00
        ws( 46) = 0.6155415600784795D+00
        ws( 47) = 0.6174101080938008D+00
        ws( 48) = 0.6113252234713257D+00
        ws( 49) = 0.6081650367156602D+00
        ws( 50) = 0.5939385698840849D+00
        ws( 51) = 0.5929480938278606D+00
        ws( 52) = 0.5823719414088701D+00
        ws( 53) = 0.5849151128237957D+00
        ws( 54) = 0.5774145806785091D+00
        ws( 55) = 0.5796097446279725D+00
        ws( 56) = 0.5724137638738040D+00
        ws( 57) = 0.5700632377062488D+00
        ws( 58) = 0.5672302234478988D+00
        ws( 59) = 0.5610922883474956D+00
        ws( 60) = 0.5632460216638620D+00
        ws( 61) = 0.5532268612523601D+00
        ws( 62) = 0.5583778654028029D+00
        ws( 63) = 0.5443540541053911D+00
        ws( 64) = 0.5399133662741655D+00
        ws( 65) = 0.5644881721279408D+00
        ws( 66) = 0.5201029950795186D+00
        ws( 67) = 0.5322914238069339D+00
        ws( 68) = 0.8126976248108418D+00
        endif
        if( idomain .eq.  185 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.3141592653589793D+01
        rk1r = 0.2000000000000000D-01
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =   7
        err = 0.9781237153088504D-03
        xs(  1) = 0.7577385103314717D+00
        xs(  2) = 0.1589517616083761D+01
        xs(  3) = 0.2477251276037270D+01
        xs(  4) = 0.3398105152571231D+01
        xs(  5) = 0.4340328721757089D+01
        xs(  6) = 0.5309710268033919D+01
        xs(  7) = 0.6282028086496333D+01
        ws(  1) = 0.7886763094207269D+00
        ws(  2) = 0.9020818304663907D+00
        ws(  3) = 0.9204180017123345D+00
        ws(  4) = 0.9477485614732305D+00
        ws(  5) = 0.9833786541665106D+00
        ws(  6) = 0.1035137670899620D+01
        ws(  7) = 0.1194360205752130D+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 =   7
        err = 0.9797097440258755D-03
        xs(  1) = 0.7578599005718629D+00
        xs(  2) = 0.1589635833416871D+01
        xs(  3) = 0.2477394426005320D+01
        xs(  4) = 0.3398271079155003D+01
        xs(  5) = 0.4340519341627019D+01
        xs(  6) = 0.5309925277060793D+01
        xs(  7) = 0.6282249627381048D+01
        ws(  1) = 0.7886817779232522D+00
        ws(  2) = 0.9021065817408712D+00
        ws(  3) = 0.9204507907677408D+00
        ws(  4) = 0.9477906283776930D+00
        ws(  5) = 0.9834095151158325D+00
        ws(  6) = 0.1035170887260744D+01
        ws(  7) = 0.1194373847532318D+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 =   7
        err = 0.9888581232012194D-03
        xs(  1) = 0.7583123399046794D+00
        xs(  2) = 0.1590225942438991D+01
        xs(  3) = 0.2478228764987097D+01
        xs(  4) = 0.3399277367211566D+01
        xs(  5) = 0.4341720029485436D+01
        xs(  6) = 0.5311289244763613D+01
        xs(  7) = 0.6283615929895243D+01
        ws(  1) = 0.7889639727178568D+00
        ws(  2) = 0.9022471738463863D+00
        ws(  3) = 0.9206673562353539D+00
        ws(  4) = 0.9480832234535628D+00
        ws(  5) = 0.9835782802453501D+00
        ws(  6) = 0.1035383401340144D+01
        ws(  7) = 0.1194304371451405D+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 =   8
        err = 0.4699095069486980D-03
        xs(  1) = 0.6693697745433672D+00
        xs(  2) = 0.1527879093228873D+01
        xs(  3) = 0.2410068848776024D+01
        xs(  4) = 0.3314589038631541D+01
        xs(  5) = 0.4241544769700894D+01
        xs(  6) = 0.5192926179137198D+01
        xs(  7) = 0.6170114254733796D+01
        xs(  8) = 0.7154633403461381D+01
        ws(  1) = 0.8400034911215876D+00
        ws(  2) = 0.8758407195321103D+00
        ws(  3) = 0.8956743500579010D+00
        ws(  4) = 0.9192154454012754D+00
        ws(  5) = 0.9473701661711689D+00
        ws(  6) = 0.9755931450638996D+00
        ws(  7) = 0.1039432812972983D+01
        ws(  8) = 0.1172272139757593D+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 =   8
        err = 0.6013465225905804D-03
        xs(  1) = 0.6749749667271498D+00
        xs(  2) = 0.1538155692099649D+01
        xs(  3) = 0.2425003222424690D+01
        xs(  4) = 0.3333294973219207D+01
        xs(  5) = 0.4262969764885540D+01
        xs(  6) = 0.5215550732147395D+01
        xs(  7) = 0.6191889416625147D+01
        xs(  8) = 0.7174157258462125D+01
        ws(  1) = 0.8444846862329149D+00
        ws(  2) = 0.8809141178111649D+00
        ws(  3) = 0.9001332603546437D+00
        ws(  4) = 0.9227402932297722D+00
        ws(  5) = 0.9495051746808256D+00
        ws(  6) = 0.9764217952799242D+00
        ws(  7) = 0.1037392993968623D+01
        ws(  8) = 0.1169762507324027D+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 =   9
        err = 0.1898616519470417D-03
        xs(  1) = 0.6379133114961131D+00
        xs(  2) = 0.1461343136062317D+01
        xs(  3) = 0.2308729451258112D+01
        xs(  4) = 0.3178382726009031D+01
        xs(  5) = 0.4074441358770230D+01
        xs(  6) = 0.4998075515505514D+01
        xs(  7) = 0.5948728444885530D+01
        xs(  8) = 0.6926472380278734D+01
        xs(  9) = 0.7915206686886284D+01
        ws(  1) = 0.8087407469465466D+00
        ws(  2) = 0.8376433943060126D+00
        ws(  3) = 0.8585164652610260D+00
        ws(  4) = 0.8845994933826812D+00
        ws(  5) = 0.9123535207438722D+00
        ws(  6) = 0.9439904592975824D+00
        ws(  7) = 0.9765400034611685D+00
        ws(  8) = 0.1030949556377024D+01
        ws(  9) = 0.1171884077456094D+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 =   9
        err = 0.4457238204401496D-03
        xs(  1) = 0.6593350449921371D+00
        xs(  2) = 0.1473770997258478D+01
        xs(  3) = 0.2333977099654000D+01
        xs(  4) = 0.3215128549184942D+01
        xs(  5) = 0.4125256787191400D+01
        xs(  6) = 0.5064562883646051D+01
        xs(  7) = 0.6025279305121797D+01
        xs(  8) = 0.7017801880660754D+01
        xs(  9) = 0.7994134012096005D+01
        ws(  1) = 0.7938430001829641D+00
        ws(  2) = 0.8506826299917751D+00
        ws(  3) = 0.8703183306222891D+00
        ws(  4) = 0.8991516208529537D+00
        ws(  5) = 0.9209526320665840D+00
        ws(  6) = 0.9618341249687715D+00
        ws(  7) = 0.9842600908991309D+00
        ws(  8) = 0.1036095522357415D+01
        ws(  9) = 0.1174418242980342D+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 =   9
        err = 0.4119471306665687D-03
        xs(  1) = 0.6533104207439669D+00
        xs(  2) = 0.1483471327022937D+01
        xs(  3) = 0.2324592620496233D+01
        xs(  4) = 0.3173820291044867D+01
        xs(  5) = 0.4042747859014324D+01
        xs(  6) = 0.4954437011299190D+01
        xs(  7) = 0.5901880897333032D+01
        xs(  8) = 0.6778253450091963D+01
        xs(  9) = 0.7763534490601475D+01
        ws(  1) = 0.8127213276761058D+00
        ws(  2) = 0.8447392599493829D+00
        ws(  3) = 0.8465719878083598D+00
        ws(  4) = 0.8502557035648951D+00
        ws(  5) = 0.8790950500577598D+00
        ws(  6) = 0.9398599641456983D+00
        ws(  7) = 0.9761076923651305D+00
        ws(  8) = 0.9049829558533239D+00
        ws(  9) = 0.1419888351279934D+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 =  11
        err = 0.4851753475086002D-03
        xs(  1) = 0.6724712156273231D+00
        xs(  2) = 0.1525447419005511D+01
        xs(  3) = 0.2368777892478081D+01
        xs(  4) = 0.3202053764131197D+01
        xs(  5) = 0.4033381085102690D+01
        xs(  6) = 0.4857179599234015D+01
        xs(  7) = 0.5691113111717599D+01
        xs(  8) = 0.6533553046809833D+01
        xs(  9) = 0.7445425124366868D+01
        xs( 10) = 0.8382929139148658D+01
        xs( 11) = 0.9336334963384486D+01
        ws(  1) = 0.8432276985390715D+00
        ws(  2) = 0.8523682205365523D+00
        ws(  3) = 0.8387898959101592D+00
        ws(  4) = 0.8319746348563506D+00
        ws(  5) = 0.8268611857620484D+00
        ws(  6) = 0.8221746362328058D+00
        ws(  7) = 0.8431326668642801D+00
        ws(  8) = 0.8337562773864671D+00
        ws(  9) = 0.9144889895104423D+00
        ws( 10) = 0.1163801224514231D+01
        ws( 11) = 0.1069122674589412D+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 =  13
        err = 0.3302946215071803D-03
        xs(  1) = 0.7124095481922488D+00
        xs(  2) = 0.1597628274598975D+01
        xs(  3) = 0.2482735828227400D+01
        xs(  4) = 0.3350465725455410D+01
        xs(  5) = 0.4204197959616611D+01
        xs(  6) = 0.5052126291225183D+01
        xs(  7) = 0.5884546102998060D+01
        xs(  8) = 0.6714590219344807D+01
        xs(  9) = 0.7519765490962149D+01
        xs( 10) = 0.8339280172228328D+01
        xs( 11) = 0.9171642437045987D+01
        xs( 12) = 0.1001190610633383D+02
        xs( 13) = 0.1097938919287477D+02
        ws(  1) = 0.8599272891696663D+00
        ws(  2) = 0.8973765368521301D+00
        ws(  3) = 0.8814207404266003D+00
        ws(  4) = 0.8578304481642448D+00
        ws(  5) = 0.8508044737162433D+00
        ws(  6) = 0.8401725098586665D+00
        ws(  7) = 0.8205965058438403D+00
        ws(  8) = 0.8304600148377405D+00
        ws(  9) = 0.8109439869390431D+00
        ws( 10) = 0.8011354816975768D+00
        ws( 11) = 0.8108345501024207D+00
        ws( 12) = 0.8159200660925991D+00
        ws( 13) = 0.1381931733974326D+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 =  16
        err = 0.2355034723081905D-03
        xs(  1) = 0.7278708090043554D+00
        xs(  2) = 0.1622943979911408D+01
        xs(  3) = 0.2528250465954232D+01
        xs(  4) = 0.3427001897547321D+01
        xs(  5) = 0.4314557513776227D+01
        xs(  6) = 0.5190315529946427D+01
        xs(  7) = 0.6052533273324532D+01
        xs(  8) = 0.6899709874073382D+01
        xs(  9) = 0.7731003736310302D+01
        xs( 10) = 0.8544657890254024D+01
        xs( 11) = 0.9352746903506159D+01
        xs( 12) = 0.1014260135278401D+02
        xs( 13) = 0.1091798977685210D+02
        xs( 14) = 0.1171861212340260D+02
        xs( 15) = 0.1257255104910139D+02
        xs( 16) = 0.1341332214656751D+02
        ws(  1) = 0.8714183122002434D+00
        ws(  2) = 0.9169614199374968D+00
        ws(  3) = 0.9062423690357529D+00
        ws(  4) = 0.8928156082185424D+00
        ws(  5) = 0.8808719330350721D+00
        ws(  6) = 0.8693403295912642D+00
        ws(  7) = 0.8542290158862063D+00
        ws(  8) = 0.8409002516963855D+00
        ws(  9) = 0.8212476610328331D+00
        ws( 10) = 0.8107419597069468D+00
        ws( 11) = 0.8002428636000734D+00
        ws( 12) = 0.7672361597274678D+00
        ws( 13) = 0.7983311778909523D+00
        ws( 14) = 0.6992981340912040D+00
        ws( 15) = 0.1024809532082783D+01
        ws( 16) = 0.9280392040629524D+00
        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 =  17
        err = 0.9974089850234356D-03
        xs(  1) = 0.1191833272277957D+01
        xs(  2) = 0.2097623375025232D+01
        xs(  3) = 0.3036679174768141D+01
        xs(  4) = 0.3963522646104224D+01
        xs(  5) = 0.4874574878133198D+01
        xs(  6) = 0.5773309759281476D+01
        xs(  7) = 0.6660129511121893D+01
        xs(  8) = 0.7532387387390638D+01
        xs(  9) = 0.8397570057618665D+01
        xs( 10) = 0.9244041453192734D+01
        xs( 11) = 0.1007370863426698D+02
        xs( 12) = 0.1089814565145473D+02
        xs( 13) = 0.1171671903461573D+02
        xs( 14) = 0.1251300244473238D+02
        xs( 15) = 0.1333620224476214D+02
        xs( 16) = 0.1415783321188568D+02
        xs( 17) = 0.1497428245460299D+02
        ws(  1) = 0.1073045160295260D+01
        ws(  2) = 0.9980426052287890D+00
        ws(  3) = 0.9172559766075855D+00
        ws(  4) = 0.9002129214303499D+00
        ws(  5) = 0.9014186728656757D+00
        ws(  6) = 0.8985888645522710D+00
        ws(  7) = 0.8835678456841256D+00
        ws(  8) = 0.8664646010436671D+00
        ws(  9) = 0.8593502574159811D+00
        ws( 10) = 0.8405236497606134D+00
        ws( 11) = 0.8217872902925186D+00
        ws( 12) = 0.8274536791347611D+00
        ws( 13) = 0.7909351942745332D+00
        ws( 14) = 0.8393486023984491D+00
        ws( 15) = 0.7180911909015903D+00
        ws( 16) = 0.8251226524853503D+00
        ws( 17) = 0.8920821522610322D+00
        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 =  20
        err = 0.9197889608683421D-03
        xs(  1) = 0.1213201364222104D+01
        xs(  2) = 0.2140961435960485D+01
        xs(  3) = 0.3107606891519845D+01
        xs(  4) = 0.4055616970315376D+01
        xs(  5) = 0.4985629993492197D+01
        xs(  6) = 0.5904977393079305D+01
        xs(  7) = 0.6819253257384101D+01
        xs(  8) = 0.7720763572376617D+01
        xs(  9) = 0.8607347219908966D+01
        xs( 10) = 0.9482364451289792D+01
        xs( 11) = 0.1034058495369607D+02
        xs( 12) = 0.1119227749711729D+02
        xs( 13) = 0.1202444124898689D+02
        xs( 14) = 0.1283831667572554D+02
        xs( 15) = 0.1367151166854314D+02
        xs( 16) = 0.1447937496662972D+02
        xs( 17) = 0.1527593899559990D+02
        xs( 18) = 0.1613874599876735D+02
        xs( 19) = 0.1688085176643163D+02
        xs( 20) = 0.1793175925967490D+02
        ws(  1) = 0.1123388033988258D+01
        ws(  2) = 0.1005719132085833D+01
        ws(  3) = 0.9258502581343973D+00
        ws(  4) = 0.9189417346922844D+00
        ws(  5) = 0.9251262813066400D+00
        ws(  6) = 0.9245268399816299D+00
        ws(  7) = 0.9124802220155686D+00
        ws(  8) = 0.8944359332493705D+00
        ws(  9) = 0.8843480254342915D+00
        ws( 10) = 0.8585123083145917D+00
        ws( 11) = 0.8568127124009687D+00
        ws( 12) = 0.8488614803615292D+00
        ws( 13) = 0.8276521393416206D+00
        ws( 14) = 0.8302445225246748D+00
        ws( 15) = 0.8147283467459673D+00
        ws( 16) = 0.8412427007234895D+00
        ws( 17) = 0.7820389791652121D+00
        ws( 18) = 0.8744345275303078D+00
        ws( 19) = 0.7282411723645927D+00
        ws( 20) = 0.1257674420158505D+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 =  23
        err = 0.7501213905439009D-03
        xs(  1) = 0.1212918225899351D+01
        xs(  2) = 0.2146364130438819D+01
        xs(  3) = 0.3124981723931864D+01
        xs(  4) = 0.4081940948594656D+01
        xs(  5) = 0.5023660682163413D+01
        xs(  6) = 0.5954565819957473D+01
        xs(  7) = 0.6881363458731400D+01
        xs(  8) = 0.7799176873739968D+01
        xs(  9) = 0.8702890699570226D+01
        xs( 10) = 0.9598005767558929D+01
        xs( 11) = 0.1047857195330352D+02
        xs( 12) = 0.1134501992465194D+02
        xs( 13) = 0.1219922196662695D+02
        xs( 14) = 0.1304624696662194D+02
        xs( 15) = 0.1387834782898757D+02
        xs( 16) = 0.1470031177287694D+02
        xs( 17) = 0.1550288194410281D+02
        xs( 18) = 0.1631644411117420D+02
        xs( 19) = 0.1710557180822706D+02
        xs( 20) = 0.1789843574039840D+02
        xs( 21) = 0.1869013529898503D+02
        xs( 22) = 0.1954241798590912D+02
        xs( 23) = 0.2026651505878112D+02
        ws(  1) = 0.1144514739192918D+01
        ws(  2) = 0.9924226780880462D+00
        ws(  3) = 0.9256649115699787D+00
        ws(  4) = 0.9408081748575123D+00
        ws(  5) = 0.9457739057424054D+00
        ws(  6) = 0.9372028885833170D+00
        ws(  7) = 0.9223596518770114D+00
        ws(  8) = 0.9075886778522079D+00
        ws(  9) = 0.8957636119084637D+00
        ws( 10) = 0.8865285986768116D+00
        ws( 11) = 0.8714883678105769D+00
        ws( 12) = 0.8620721480142485D+00
        ws( 13) = 0.8481497894806194D+00
        ws( 14) = 0.8377325292999178D+00
        ws( 15) = 0.8248918134384194D+00
        ws( 16) = 0.8102885829196966D+00
        ws( 17) = 0.8041568302214936D+00
        ws( 18) = 0.8162222117312915D+00
        ws( 19) = 0.7496757199081613D+00
        ws( 20) = 0.8432757181563112D+00
        ws( 21) = 0.7336951011981167D+00
        ws( 22) = 0.6572085810294600D+00
        ws( 23) = 0.9453211917463873D+00
        endif
        if( idomain .eq.  199 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.3141592653589793D+01
        rk1r = 0.2513274122871834D+02
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  24
        err = 0.8364942129342205D-03
        xs(  1) = 0.1217380175327703D+01
        xs(  2) = 0.2166018666865595D+01
        xs(  3) = 0.3163532930790689D+01
        xs(  4) = 0.4127798787183986D+01
        xs(  5) = 0.5081724850871984D+01
        xs(  6) = 0.6029319096131372D+01
        xs(  7) = 0.6974613639014084D+01
        xs(  8) = 0.7912613340100892D+01
        xs(  9) = 0.8837281317923251D+01
        xs( 10) = 0.9755916613850259D+01
        xs( 11) = 0.1066347028219039D+02
        xs( 12) = 0.1155697486886414D+02
        xs( 13) = 0.1244440043954014D+02
        xs( 14) = 0.1332244739655971D+02
        xs( 15) = 0.1418288060644328D+02
        xs( 16) = 0.1504989006772323D+02
        xs( 17) = 0.1588714972407045D+02
        xs( 18) = 0.1672722321433064D+02
        xs( 19) = 0.1755005790496415D+02
        xs( 20) = 0.1837035728653836D+02
        xs( 21) = 0.1917924955961734D+02
        xs( 22) = 0.1998028998658191D+02
        xs( 23) = 0.2076333826171943D+02
        xs( 24) = 0.2179317047157678D+02
        ws(  1) = 0.1193835557479806D+01
        ws(  2) = 0.9840693919497109D+00
        ws(  3) = 0.9308018431602229D+00
        ws(  4) = 0.9579281548023071D+00
        ws(  5) = 0.9658202186894416D+00
        ws(  6) = 0.9566001598124954D+00
        ws(  7) = 0.9359222038216090D+00
        ws(  8) = 0.9252853128101552D+00
        ws(  9) = 0.9179644172987818D+00
        ws( 10) = 0.9053502779464212D+00
        ws( 11) = 0.9015441829523529D+00
        ws( 12) = 0.9038554433080247D+00
        ws( 13) = 0.8724627912968969D+00
        ws( 14) = 0.8656062802922092D+00
        ws( 15) = 0.8398160311957130D+00
        ws( 16) = 0.8633510033903443D+00
        ws( 17) = 0.8581808715118447D+00
        ws( 18) = 0.7882483743072719D+00
        ws( 19) = 0.8158206599765240D+00
        ws( 20) = 0.8040038953394097D+00
        ws( 21) = 0.7630007364547144D+00
        ws( 22) = 0.7029423294161131D+00
        ws( 23) = 0.6642737887273565D+00
        ws( 24) = 0.8705921527137234D+00
        endif
        if( idomain .eq.  200 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.3141592653589793D+01
        rk1r = 0.2827433388230814D+02
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  27
        err = 0.9185759564018616D-03
        xs(  1) = 0.1262945427850932D+01
        xs(  2) = 0.2216507195452182D+01
        xs(  3) = 0.3235097608278854D+01
        xs(  4) = 0.4235047140997930D+01
        xs(  5) = 0.5211153666427097D+01
        xs(  6) = 0.6182255720634078D+01
        xs(  7) = 0.7140751286996891D+01
        xs(  8) = 0.8098667377379691D+01
        xs(  9) = 0.9055879988009190D+01
        xs( 10) = 0.9997502599380454D+01
        xs( 11) = 0.1092704463135283D+02
        xs( 12) = 0.1185580771852768D+02
        xs( 13) = 0.1276356187129120D+02
        xs( 14) = 0.1366006523778017D+02
        xs( 15) = 0.1456130671913793D+02
        xs( 16) = 0.1543485634713371D+02
        xs( 17) = 0.1631121207500108D+02
        xs( 18) = 0.1716588604426840D+02
        xs( 19) = 0.1802279399763557D+02
        xs( 20) = 0.1886721515318472D+02
        xs( 21) = 0.1969736270030947D+02
        xs( 22) = 0.2050207297424883D+02
        xs( 23) = 0.2133910191997504D+02
        xs( 24) = 0.2217017292834607D+02
        xs( 25) = 0.2289247415177388D+02
        xs( 26) = 0.2378023399877379D+02
        xs( 27) = 0.2471039490464438D+02
        ws(  1) = 0.1181227502810499D+01
        ws(  2) = 0.1032624633674422D+01
        ws(  3) = 0.9434446582513786D+00
        ws(  4) = 0.9916057967085131D+00
        ws(  5) = 0.9951677627536148D+00
        ws(  6) = 0.9660196327163154D+00
        ws(  7) = 0.9575414664211205D+00
        ws(  8) = 0.9510493185122884D+00
        ws(  9) = 0.9538868032443980D+00
        ws( 10) = 0.9263516830136337D+00
        ws( 11) = 0.9379592178069026D+00
        ws( 12) = 0.9076763624646694D+00
        ws( 13) = 0.9155477300545865D+00
        ws( 14) = 0.8887726429099690D+00
        ws( 15) = 0.8920342538397452D+00
        ws( 16) = 0.8581575010204492D+00
        ws( 17) = 0.8684337751794914D+00
        ws( 18) = 0.8744465624814156D+00
        ws( 19) = 0.8222217185704385D+00
        ws( 20) = 0.8267600138209276D+00
        ws( 21) = 0.8185567345828053D+00
        ws( 22) = 0.8117648207971022D+00
        ws( 23) = 0.7890995862492560D+00
        ws( 24) = 0.7187439920970828D+00
        ws( 25) = 0.7545501533577806D+00
        ws( 26) = 0.6218447033111583D+00
        ws( 27) = 0.8226801095497500D+00
        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 =  30
        err = 0.7279020148388752D-03
        xs(  1) = 0.1249361658920564D+01
        xs(  2) = 0.2222215631854514D+01
        xs(  3) = 0.3250278376099325D+01
        xs(  4) = 0.4238502711459310D+01
        xs(  5) = 0.5229862826774077D+01
        xs(  6) = 0.6196287229091075D+01
        xs(  7) = 0.7168834365953279D+01
        xs(  8) = 0.8125783754764223D+01
        xs(  9) = 0.9097120765156060D+01
        xs( 10) = 0.1003913850254151D+02
        xs( 11) = 0.1098705183658306D+02
        xs( 12) = 0.1191775422270354D+02
        xs( 13) = 0.1284641110482593D+02
        xs( 14) = 0.1374475524093929D+02
        xs( 15) = 0.1465828622638879D+02
        xs( 16) = 0.1555183711656479D+02
        xs( 17) = 0.1643545672013583D+02
        xs( 18) = 0.1729915854946836D+02
        xs( 19) = 0.1817966692433684D+02
        xs( 20) = 0.1903182670046171D+02
        xs( 21) = 0.1986145716167876D+02
        xs( 22) = 0.2069992524947403D+02
        xs( 23) = 0.2154809950432776D+02
        xs( 24) = 0.2235085583122257D+02
        xs( 25) = 0.2314597215421079D+02
        xs( 26) = 0.2396246647343140D+02
        xs( 27) = 0.2476954944612100D+02
        xs( 28) = 0.2548119528891696D+02
        xs( 29) = 0.2622096320399204D+02
        xs( 30) = 0.2740812095274506D+02
        ws(  1) = 0.1234662695540386D+01
        ws(  2) = 0.9835796913133938D+00
        ws(  3) = 0.9786673119145792D+00
        ws(  4) = 0.9939189848090191D+00
        ws(  5) = 0.9867484422603139D+00
        ws(  6) = 0.9772483864693854D+00
        ws(  7) = 0.9537101538757680D+00
        ws(  8) = 0.9690306018097299D+00
        ws(  9) = 0.9532754587094759D+00
        ws( 10) = 0.9474018439543556D+00
        ws( 11) = 0.9353624061508109D+00
        ws( 12) = 0.9271480199086469D+00
        ws( 13) = 0.9195327323134234D+00
        ws( 14) = 0.9050388433573378D+00
        ws( 15) = 0.9060016898468471D+00
        ws( 16) = 0.8752452918015593D+00
        ws( 17) = 0.8829975554656555D+00
        ws( 18) = 0.8750926410041774D+00
        ws( 19) = 0.8545916778441941D+00
        ws( 20) = 0.8321612318432156D+00
        ws( 21) = 0.8519160109364735D+00
        ws( 22) = 0.8136490480983055D+00
        ws( 23) = 0.8246696107983343D+00
        ws( 24) = 0.7826049270550981D+00
        ws( 25) = 0.7889619916111253D+00
        ws( 26) = 0.8020028981883462D+00
        ws( 27) = 0.6735414540288264D+00
        ws( 28) = 0.6962646390569031D+00
        ws( 29) = 0.6652632709176018D+00
        ws( 30) = 0.9768418013999123D+00
        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 =  33
        err = 0.9859318874162282D-03
        xs(  1) = 0.1258498710483051D+01
        xs(  2) = 0.2247560512297749D+01
        xs(  3) = 0.3265935567901585D+01
        xs(  4) = 0.4290218721749528D+01
        xs(  5) = 0.5264392887832670D+01
        xs(  6) = 0.6264682073480607D+01
        xs(  7) = 0.7227734026434946D+01
        xs(  8) = 0.8212304866726898D+01
        xs(  9) = 0.9173977403486637D+01
        xs( 10) = 0.1014537697270350D+02
        xs( 11) = 0.1109866846199443D+02
        xs( 12) = 0.1204303453632983D+02
        xs( 13) = 0.1298093715291162D+02
        xs( 14) = 0.1390944758264565D+02
        xs( 15) = 0.1482191593432280D+02
        xs( 16) = 0.1574627441128978D+02
        xs( 17) = 0.1663955991673234D+02
        xs( 18) = 0.1753017680992740D+02
        xs( 19) = 0.1841083176764094D+02
        xs( 20) = 0.1931503825905461D+02
        xs( 21) = 0.2014182933649724D+02
        xs( 22) = 0.2101250884196689D+02
        xs( 23) = 0.2187805238999431D+02
        xs( 24) = 0.2271485084899648D+02
        xs( 25) = 0.2350464687680598D+02
        xs( 26) = 0.2438837983059189D+02
        xs( 27) = 0.2517992214967792D+02
        xs( 28) = 0.2596927583065089D+02
        xs( 29) = 0.2676499690150010D+02
        xs( 30) = 0.2755290262425253D+02
        xs( 31) = 0.2834817726989016D+02
        xs( 32) = 0.2897288157219337D+02
        xs( 33) = 0.3004538003330423D+02
        ws(  1) = 0.1219788217052114D+01
        ws(  2) = 0.1028118243856269D+01
        ws(  3) = 0.9562050604046572D+00
        ws(  4) = 0.1019366197443147D+01
        ws(  5) = 0.9974197000226334D+00
        ws(  6) = 0.9894678258897469D+00
        ws(  7) = 0.9477690481888430D+00
        ws(  8) = 0.9862429812570955D+00
        ws(  9) = 0.9738394608556811D+00
        ws( 10) = 0.9510540482803329D+00
        ws( 11) = 0.9487371696923401D+00
        ws( 12) = 0.9513085327667644D+00
        ws( 13) = 0.9283898866632668D+00
        ws( 14) = 0.9078581057974918D+00
        ws( 15) = 0.9329803296712215D+00
        ws( 16) = 0.9020623102247812D+00
        ws( 17) = 0.8918908160154323D+00
        ws( 18) = 0.9091430743357957D+00
        ws( 19) = 0.8513341071931233D+00
        ws( 20) = 0.8798314366896774D+00
        ws( 21) = 0.8712750735422873D+00
        ws( 22) = 0.8583071037637610D+00
        ws( 23) = 0.8282480920658958D+00
        ws( 24) = 0.8368911495970583D+00
        ws( 25) = 0.8365284706285268D+00
        ws( 26) = 0.8423921140323090D+00
        ws( 27) = 0.7947808904831475D+00
        ws( 28) = 0.7645398802884350D+00
        ws( 29) = 0.8332757260609692D+00
        ws( 30) = 0.6855979497687099D+00
        ws( 31) = 0.6807906227082630D+00
        ws( 32) = 0.5624550081940998D+00
        ws( 33) = 0.7275053245291762D+00
        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 =  37
        err = 0.6684765041410557D-03
        xs(  1) = 0.1235200507139434D+01
        xs(  2) = 0.2234664814783684D+01
        xs(  3) = 0.3267530183722805D+01
        xs(  4) = 0.4266241359350537D+01
        xs(  5) = 0.5261971670348475D+01
        xs(  6) = 0.6255119114669049D+01
        xs(  7) = 0.7231272487075664D+01
        xs(  8) = 0.8206553559057683D+01
        xs(  9) = 0.9189886165233357D+01
        xs( 10) = 0.1014649041567134D+02
        xs( 11) = 0.1111815470813691D+02
        xs( 12) = 0.1205944318670893D+02
        xs( 13) = 0.1300891553213357D+02
        xs( 14) = 0.1394537276982881D+02
        xs( 15) = 0.1486625324356856D+02
        xs( 16) = 0.1578751557433068D+02
        xs( 17) = 0.1670445919881564D+02
        xs( 18) = 0.1759848623662658D+02
        xs( 19) = 0.1849502021707526D+02
        xs( 20) = 0.1937959663747574D+02
        xs( 21) = 0.2025973246478787D+02
        xs( 22) = 0.2112226155418919D+02
        xs( 23) = 0.2198140316482529D+02
        xs( 24) = 0.2284799379401227D+02
        xs( 25) = 0.2367850661320747D+02
        xs( 26) = 0.2451316095630909D+02
        xs( 27) = 0.2533584354926410D+02
        xs( 28) = 0.2618477564663511D+02
        xs( 29) = 0.2696420344863866D+02
        xs( 30) = 0.2778803003823440D+02
        xs( 31) = 0.2856714460537642D+02
        xs( 32) = 0.2936212380036515D+02
        xs( 33) = 0.3017085876453556D+02
        xs( 34) = 0.3086025290127739D+02
        xs( 35) = 0.3166945765795623D+02
        xs( 36) = 0.3238773811718606D+02
        xs( 37) = 0.3341584618552806D+02
        ws(  1) = 0.1262749017665743D+01
        ws(  2) = 0.9954213321799498D+00
        ws(  3) = 0.9692920202347373D+00
        ws(  4) = 0.1037651439089091D+01
        ws(  5) = 0.9728529677870600D+00
        ws(  6) = 0.1004612987808114D+01
        ws(  7) = 0.9662969461946236D+00
        ws(  8) = 0.9732084266748705D+00
        ws(  9) = 0.9687872894440182D+00
        ws( 10) = 0.9762995061889893D+00
        ws( 11) = 0.9432963797508873D+00
        ws( 12) = 0.9599288395572090D+00
        ws( 13) = 0.9353973106884325D+00
        ws( 14) = 0.9211377332289781D+00
        ws( 15) = 0.9362607252348299D+00
        ws( 16) = 0.9136072918991507D+00
        ws( 17) = 0.9067997240238224D+00
        ws( 18) = 0.8856054224206588D+00
        ws( 19) = 0.8994332397736771D+00
        ws( 20) = 0.8835156312672457D+00
        ws( 21) = 0.8772874753412165D+00
        ws( 22) = 0.8475328625130563D+00
        ws( 23) = 0.8651134543866641D+00
        ws( 24) = 0.8586392413625814D+00
        ws( 25) = 0.8227580530328221D+00
        ws( 26) = 0.8321782941032825D+00
        ws( 27) = 0.8352791569025054D+00
        ws( 28) = 0.7828907657036025D+00
        ws( 29) = 0.8581084923946789D+00
        ws( 30) = 0.7192507872906042D+00
        ws( 31) = 0.8062392026717116D+00
        ws( 32) = 0.7727077979616842D+00
        ws( 33) = 0.6875288677311904D+00
        ws( 34) = 0.6268891298294981D+00
        ws( 35) = 0.6385401847662050D+00
        ws( 36) = 0.4766077728309725D+00
        ws( 37) = 0.4869791261650030D+00
        endif
        if( idomain .eq.  204 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.3141592653589793D+01
        rk1r = 0.4084070449666731D+02
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  40
        err = 0.6203574821276105D-03
        xs(  1) = 0.1225202468708220D+01
        xs(  2) = 0.2253330521378801D+01
        xs(  3) = 0.3279679157134016D+01
        xs(  4) = 0.4294114933629377D+01
        xs(  5) = 0.5292508716747875D+01
        xs(  6) = 0.6304223658504455D+01
        xs(  7) = 0.7282189744816032D+01
        xs(  8) = 0.8263853258832775D+01
        xs(  9) = 0.9252196734546605D+01
        xs( 10) = 0.1022560152564364D+02
        xs( 11) = 0.1119750368301073D+02
        xs( 12) = 0.1215870822985509D+02
        xs( 13) = 0.1311000731687151D+02
        xs( 14) = 0.1406659709488321D+02
        xs( 15) = 0.1499974686607004D+02
        xs( 16) = 0.1592880238124024D+02
        xs( 17) = 0.1685732532132700D+02
        xs( 18) = 0.1776922090406439D+02
        xs( 19) = 0.1867804135261572D+02
        xs( 20) = 0.1957506425606136D+02
        xs( 21) = 0.2047019868192327D+02
        xs( 22) = 0.2135542470074548D+02
        xs( 23) = 0.2222405300196566D+02
        xs( 24) = 0.2309829631358759D+02
        xs( 25) = 0.2396604045726431D+02
        xs( 26) = 0.2480287281403076D+02
        xs( 27) = 0.2565169231980336D+02
        xs( 28) = 0.2649798709392125D+02
        xs( 29) = 0.2732723105734064D+02
        xs( 30) = 0.2815864556497355D+02
        xs( 31) = 0.2895614236890857D+02
        xs( 32) = 0.2976908978068754D+02
        xs( 33) = 0.3060826240615970D+02
        xs( 34) = 0.3138891140427045D+02
        xs( 35) = 0.3214342770941743D+02
        xs( 36) = 0.3298625579018879D+02
        xs( 37) = 0.3374924304072465D+02
        xs( 38) = 0.3450255831170691D+02
        xs( 39) = 0.3516494064964201D+02
        xs( 40) = 0.3620945628065191D+02
        ws(  1) = 0.1275349920108850D+01
        ws(  2) = 0.9799887869572182D+00
        ws(  3) = 0.1027358533083022D+01
        ws(  4) = 0.9818067907032177D+00
        ws(  5) = 0.1031198267200825D+01
        ws(  6) = 0.9891785497242062D+00
        ws(  7) = 0.9690861007645833D+00
        ws(  8) = 0.1008606695220326D+01
        ws(  9) = 0.9427910854817071D+00
        ws( 10) = 0.1002839414995968D+01
        ws( 11) = 0.9635307073174613D+00
        ws( 12) = 0.9505143418053836D+00
        ws( 13) = 0.9542049148602368D+00
        ws( 14) = 0.9371238333587451D+00
        ws( 15) = 0.9382138064853534D+00
        ws( 16) = 0.9312018195103793D+00
        ws( 17) = 0.9312435292717053D+00
        ws( 18) = 0.8807925018873759D+00
        ws( 19) = 0.9238132654042199D+00
        ws( 20) = 0.8860559457175414D+00
        ws( 21) = 0.8988959416077581D+00
        ws( 22) = 0.8746824902179118D+00
        ws( 23) = 0.8632356715078152D+00
        ws( 24) = 0.8801334468247134D+00
        ws( 25) = 0.8449433692730028D+00
        ws( 26) = 0.8518260287305948D+00
        ws( 27) = 0.8236818382877337D+00
        ws( 28) = 0.8870559003107031D+00
        ws( 29) = 0.7807431918317885D+00
        ws( 30) = 0.8531172211978629D+00
        ws( 31) = 0.8014660013448780D+00
        ws( 32) = 0.8326003238592045D+00
        ws( 33) = 0.8429014332597911D+00
        ws( 34) = 0.7735796144903233D+00
        ws( 35) = 0.7875981275197781D+00
        ws( 36) = 0.9077060961379878D+00
        ws( 37) = 0.6345778869602067D+00
        ws( 38) = 0.7724600057294299D+00
        ws( 39) = 0.5629507064395325D+00
        ws( 40) = 0.8073675071571070D+00
        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 =  42
        err = 0.9074083829037950D-03
        xs(  1) = 0.1430719038975994D+01
        xs(  2) = 0.2284511460110179D+01
        xs(  3) = 0.3380173918549743D+01
        xs(  4) = 0.4363462867786862D+01
        xs(  5) = 0.5378578361759023D+01
        xs(  6) = 0.6374332550532564D+01
        xs(  7) = 0.7366098268629956D+01
        xs(  8) = 0.8369831578047027D+01
        xs(  9) = 0.9337705651287571D+01
        xs( 10) = 0.1033363854297854D+02
        xs( 11) = 0.1131740032665273D+02
        xs( 12) = 0.1229060769379928D+02
        xs( 13) = 0.1325561878843293D+02
        xs( 14) = 0.1421992988807842D+02
        xs( 15) = 0.1517376227615311D+02
        xs( 16) = 0.1611320934212222D+02
        xs( 17) = 0.1705677213965358D+02
        xs( 18) = 0.1799981544741875D+02
        xs( 19) = 0.1891746989953999D+02
        xs( 20) = 0.1983196216578153D+02
        xs( 21) = 0.2074040262054404D+02
        xs( 22) = 0.2165029572821763D+02
        xs( 23) = 0.2254885885691782D+02
        xs( 24) = 0.2342264049278116D+02
        xs( 25) = 0.2430859249214210D+02
        xs( 26) = 0.2518641026739971D+02
        xs( 27) = 0.2604505394425152D+02
        xs( 28) = 0.2689345203988655D+02
        xs( 29) = 0.2776270037767237D+02
        xs( 30) = 0.2859092058231977D+02
        xs( 31) = 0.2943104364685673D+02
        xs( 32) = 0.3025367635324250D+02
        xs( 33) = 0.3107971980600776D+02
        xs( 34) = 0.3187695745269807D+02
        xs( 35) = 0.3270365918844294D+02
        xs( 36) = 0.3346767355949612D+02
        xs( 37) = 0.3429107107022933D+02
        xs( 38) = 0.3504969327998241D+02
        xs( 39) = 0.3579914810557796D+02
        xs( 40) = 0.3659644017708089D+02
        xs( 41) = 0.3722753385692161D+02
        xs( 42) = 0.3849631990892184D+02
        ws(  1) = 0.1239967652968033D+01
        ws(  2) = 0.1004720526087436D+01
        ws(  3) = 0.9635823474979539D+00
        ws(  4) = 0.1000381655616096D+01
        ws(  5) = 0.1045918077987116D+01
        ws(  6) = 0.9811973502384908D+00
        ws(  7) = 0.9810735585420824D+00
        ws(  8) = 0.9941458643740863D+00
        ws(  9) = 0.9869767277551563D+00
        ws( 10) = 0.1005726155183394D+01
        ws( 11) = 0.9459455706127196D+00
        ws( 12) = 0.9827879388728130D+00
        ws( 13) = 0.9645182906418703D+00
        ws( 14) = 0.9577610275716321D+00
        ws( 15) = 0.9508174291245524D+00
        ws( 16) = 0.9361012194492757D+00
        ws( 17) = 0.9522877238506967D+00
        ws( 18) = 0.9172288349502995D+00
        ws( 19) = 0.9242845013777727D+00
        ws( 20) = 0.9069870094985747D+00
        ws( 21) = 0.9119385643418310D+00
        ws( 22) = 0.9071539712484362D+00
        ws( 23) = 0.8841507219812389D+00
        ws( 24) = 0.8834107952507544D+00
        ws( 25) = 0.8629592233084870D+00
        ws( 26) = 0.8891526627809816D+00
        ws( 27) = 0.8414110603504765D+00
        ws( 28) = 0.8555571924913050D+00
        ws( 29) = 0.8617202108809747D+00
        ws( 30) = 0.8017191074826238D+00
        ws( 31) = 0.8446523404179144D+00
        ws( 32) = 0.8353784753552159D+00
        ws( 33) = 0.7707242627041274D+00
        ws( 34) = 0.8132434702640714D+00
        ws( 35) = 0.8047941571651358D+00
        ws( 36) = 0.7499438794389452D+00
        ws( 37) = 0.7652223794925712D+00
        ws( 38) = 0.7471670552149080D+00
        ws( 39) = 0.6876666446812846D+00
        ws( 40) = 0.5473880539546992D+00
        ws( 41) = 0.7325392819345198D+00
        ws( 42) = 0.7239535522710201D+00
        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 =  45
        err = 0.9447231994274661D-03
        xs(  1) = 0.1173278933138012D+01
        xs(  2) = 0.2322075639338807D+01
        xs(  3) = 0.3297948886662712D+01
        xs(  4) = 0.4317736680746616D+01
        xs(  5) = 0.5357189380526371D+01
        xs(  6) = 0.6367675376062418D+01
        xs(  7) = 0.7356342332028301D+01
        xs(  8) = 0.8370737796651603D+01
        xs(  9) = 0.9354006344886677D+01
        xs( 10) = 0.1035744086813784D+02
        xs( 11) = 0.1133678545842306D+02
        xs( 12) = 0.1233706874010206D+02
        xs( 13) = 0.1330517528440215D+02
        xs( 14) = 0.1427782996469148D+02
        xs( 15) = 0.1524192291415404D+02
        xs( 16) = 0.1620194437454217D+02
        xs( 17) = 0.1715540238531475D+02
        xs( 18) = 0.1811365870839943D+02
        xs( 19) = 0.1904784454604306D+02
        xs( 20) = 0.1997928622540394D+02
        xs( 21) = 0.2090112896042716D+02
        xs( 22) = 0.2183003477624663D+02
        xs( 23) = 0.2274671100693250D+02
        xs( 24) = 0.2365010956468268D+02
        xs( 25) = 0.2454463824150507D+02
        xs( 26) = 0.2542680516393939D+02
        xs( 27) = 0.2633059159186860D+02
        xs( 28) = 0.2719392910395905D+02
        xs( 29) = 0.2805715516075374D+02
        xs( 30) = 0.2892344551526506D+02
        xs( 31) = 0.2977840707055392D+02
        xs( 32) = 0.3061016590565395D+02
        xs( 33) = 0.3145066546445923D+02
        xs( 34) = 0.3228515904186397D+02
        xs( 35) = 0.3309867373356487D+02
        xs( 36) = 0.3390252996514115D+02
        xs( 37) = 0.3470059721494502D+02
        xs( 38) = 0.3554886103462594D+02
        xs( 39) = 0.3626765808627138D+02
        xs( 40) = 0.3705590961039516D+02
        xs( 41) = 0.3790578449576874D+02
        xs( 42) = 0.3858208042056799D+02
        xs( 43) = 0.3931105369841119D+02
        xs( 44) = 0.4010357020920894D+02
        xs( 45) = 0.4117654960362093D+02
        ws(  1) = 0.1302485297047366D+01
        ws(  2) = 0.1044264604620549D+01
        ws(  3) = 0.9736812030169592D+00
        ws(  4) = 0.1046004368452223D+01
        ws(  5) = 0.1019258442369081D+01
        ws(  6) = 0.1000922881146898D+01
        ws(  7) = 0.9859631642734632D+00
        ws(  8) = 0.1016865821217939D+01
        ws(  9) = 0.9960460893735386D+00
        ws( 10) = 0.9867891191937472D+00
        ws( 11) = 0.9865504975582992D+00
        ws( 12) = 0.9702436644379888D+00
        ws( 13) = 0.9736621208797607D+00
        ws( 14) = 0.9945116034910022D+00
        ws( 15) = 0.9569403635925336D+00
        ws( 16) = 0.9469535544168755D+00
        ws( 17) = 0.9505092881587153D+00
        ws( 18) = 0.9390676818970053D+00
        ws( 19) = 0.9540021403162725D+00
        ws( 20) = 0.9293694338352836D+00
        ws( 21) = 0.9126778173918134D+00
        ws( 22) = 0.9291997465497398D+00
        ws( 23) = 0.9085607741658533D+00
        ws( 24) = 0.8925505043497106D+00
        ws( 25) = 0.9103148530120997D+00
        ws( 26) = 0.8819638742310558D+00
        ws( 27) = 0.8888788529452135D+00
        ws( 28) = 0.8510376735338449D+00
        ws( 29) = 0.8911690580142572D+00
        ws( 30) = 0.8501962732757488D+00
        ws( 31) = 0.8533104575960785D+00
        ws( 32) = 0.8427589384183913D+00
        ws( 33) = 0.8477503062748342D+00
        ws( 34) = 0.8349520847525084D+00
        ws( 35) = 0.8116245164087760D+00
        ws( 36) = 0.8501885802629578D+00
        ws( 37) = 0.7904771274306690D+00
        ws( 38) = 0.8390027635739117D+00
        ws( 39) = 0.7688185210674296D+00
        ws( 40) = 0.7440630379006490D+00
        ws( 41) = 0.8642324128198394D+00
        ws( 42) = 0.5124844073499317D+00
        ws( 43) = 0.6173897613758625D+00
        ws( 44) = 0.6159484463079190D+00
        ws( 45) = 0.4245404988119203D+00
        endif
        if( idomain .eq.  207 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.3141592653589793D+01
        rk1r = 0.5026548245743669D+02
        rk1i = 0.6283185307179586D+01
        iquadtype =  1
        n =  50
        err = 0.9963693580392055D-03
        xs(  1) = 0.1489982440509022D+01
        xs(  2) = 0.2351811970564982D+01
        xs(  3) = 0.3175210409668995D+01
        xs(  4) = 0.4169411209650005D+01
        xs(  5) = 0.5079552674650360D+01
        xs(  6) = 0.6019975287401664D+01
        xs(  7) = 0.7020748039370863D+01
        xs(  8) = 0.7962830469024300D+01
        xs(  9) = 0.8930801325185938D+01
        xs( 10) = 0.9907102531865457D+01
        xs( 11) = 0.1087236415703523D+02
        xs( 12) = 0.1183693292531154D+02
        xs( 13) = 0.1279731881199985D+02
        xs( 14) = 0.1375171992328618D+02
        xs( 15) = 0.1470751152550249D+02
        xs( 16) = 0.1564987666169295D+02
        xs( 17) = 0.1659287500502100D+02
        xs( 18) = 0.1752854117835022D+02
        xs( 19) = 0.1845805545571368D+02
        xs( 20) = 0.1938167932479215D+02
        xs( 21) = 0.2029739834816895D+02
        xs( 22) = 0.2120769546490716D+02
        xs( 23) = 0.2211179975114388D+02
        xs( 24) = 0.2300892853961565D+02
        xs( 25) = 0.2389763706828676D+02
        xs( 26) = 0.2478185576218751D+02
        xs( 27) = 0.2565796557659605D+02
        xs( 28) = 0.2652743652848209D+02
        xs( 29) = 0.2738804724692843D+02
        xs( 30) = 0.2824710958895724D+02
        xs( 31) = 0.2910018377280639D+02
        xs( 32) = 0.2994024920065542D+02
        xs( 33) = 0.3078261062943724D+02
        xs( 34) = 0.3161594775766372D+02
        xs( 35) = 0.3243959658168293D+02
        xs( 36) = 0.3326773285562649D+02
        xs( 37) = 0.3407631708655949D+02
        xs( 38) = 0.3489569799856599D+02
        xs( 39) = 0.3568571595445880D+02
        xs( 40) = 0.3650869262546599D+02
        xs( 41) = 0.3726428638056877D+02
        xs( 42) = 0.3805896081921136D+02
        xs( 43) = 0.3888769087969940D+02
        xs( 44) = 0.3955115250919732D+02
        xs( 45) = 0.4035983917918892D+02
        xs( 46) = 0.4118351478222832D+02
        xs( 47) = 0.4177412377751318D+02
        xs( 48) = 0.4250930832990238D+02
        xs( 49) = 0.4347694799489139D+02
        xs( 50) = 0.4469336061513699D+02
        ws(  1) = 0.1352414590750803D+01
        ws(  2) = 0.7786824262506303D+00
        ws(  3) = 0.9044402982889708D+00
        ws(  4) = 0.9589616252902446D+00
        ws(  5) = 0.8695632323157035D+00
        ws(  6) = 0.1000684176023093D+01
        ws(  7) = 0.9759987052034673D+00
        ws(  8) = 0.9658292861520381D+00
        ws(  9) = 0.9689446151857066D+00
        ws( 10) = 0.9671338654947365D+00
        ws( 11) = 0.9575124716537099D+00
        ws( 12) = 0.9634766416306977D+00
        ws( 13) = 0.9606635533191276D+00
        ws( 14) = 0.9616772995677320D+00
        ws( 15) = 0.9441492417165753D+00
        ws( 16) = 0.9425263759521513D+00
        ws( 17) = 0.9366237866776993D+00
        ws( 18) = 0.9304558840670299D+00
        ws( 19) = 0.9276085990661364D+00
        ws( 20) = 0.9231022204014210D+00
        ws( 21) = 0.9105746221492993D+00
        ws( 22) = 0.9102232033719923D+00
        ws( 23) = 0.8967572619195608D+00
        ws( 24) = 0.8963490289020014D+00
        ws( 25) = 0.8776829507587809D+00
        ws( 26) = 0.8853625351959481D+00
        ws( 27) = 0.8784378958631275D+00
        ws( 28) = 0.8560174429510466D+00
        ws( 29) = 0.8647336299268426D+00
        ws( 30) = 0.8487893825729625D+00
        ws( 31) = 0.8552396626268084D+00
        ws( 32) = 0.8294832205207124D+00
        ws( 33) = 0.8401409386597964D+00
        ws( 34) = 0.8440504267231362D+00
        ws( 35) = 0.7939826261784940D+00
        ws( 36) = 0.8468317188307042D+00
        ws( 37) = 0.7999911107670626D+00
        ws( 38) = 0.8065021267480588D+00
        ws( 39) = 0.8380891138570983D+00
        ws( 40) = 0.7316130520536029D+00
        ws( 41) = 0.8497046944192113D+00
        ws( 42) = 0.7802399118751009D+00
        ws( 43) = 0.7340263003785146D+00
        ws( 44) = 0.7499197296213937D+00
        ws( 45) = 0.7292167707053124D+00
        ws( 46) = 0.7066705578040776D+00
        ws( 47) = 0.4335662935930099D+00
        ws( 48) = 0.5793602873747618D+00
        ws( 49) = 0.5159731003831109D+00
        ws( 50) = 0.1908784548756302D+00
        endif
        if( idomain .eq.  208 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.6283185307179586D+01
        rk1r = 0.2000000000000000D-01
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =   1
        err = 0.8236847272239459D-03
        xs(  1) = 0.3650118143686440D+01
        ws(  1) = 0.5230728222700580D+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 =   1
        err = 0.8236793420874969D-03
        xs(  1) = 0.3650126665150366D+01
        ws(  1) = 0.5230685226215451D+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 =   1
        err = 0.8236903936399988D-03
        xs(  1) = 0.3650235044008401D+01
        ws(  1) = 0.5230776869365744D+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 =   1
        err = 0.8236010183980960D-03
        xs(  1) = 0.3650512379997502D+01
        ws(  1) = 0.5230084516382633D+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 =   1
        err = 0.8233620638627987D-03
        xs(  1) = 0.3651789945514970D+01
        ws(  1) = 0.5228320756153922D+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 =   1
        err = 0.7680878632736807D-03
        xs(  1) = 0.3088680833678832D+01
        ws(  1) = 0.4568700359765668D+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 =   1
        err = 0.8039520147818006D-03
        xs(  1) = 0.3681378773307519D+01
        ws(  1) = 0.5097874343466570D+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 =   2
        err = 0.7212246995547051D-03
        xs(  1) = 0.3216243509247290D+01
        xs(  2) = 0.4044083988525210D+01
        ws(  1) = 0.2105648449765895D+01
        ws(  2) = 0.2947293716363951D+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 =   1
        err = 0.7658806838775546D-03
        xs(  1) = 0.3631828357590401D+01
        ws(  1) = 0.4729604253292607D+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 =   1
        err = 0.9178867013411315D-03
        xs(  1) = 0.5299670454593746D+01
        ws(  1) = 0.5704003632562125D+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 =   1
        err = 0.7782237885025182D-03
        xs(  1) = 0.4733826350951981D+01
        ws(  1) = 0.4274961610434986D+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 =   2
        err = 0.9646583368393691D-03
        xs(  1) = 0.5390113841170188D+01
        xs(  2) = 0.5975845565709359D+01
        ws(  1) = 0.2370816188969848D+01
        ws(  2) = 0.1800614272376257D+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 =   2
        err = 0.8463068766105535D-03
        xs(  1) = 0.5321970844356672D+01
        xs(  2) = 0.8151796292872133D+01
        ws(  1) = 0.3482397293196500D+01
        ws(  2) = 0.1512515290708840D+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 =   4
        err = 0.9047488978034072D-03
        xs(  1) = 0.5842424228753464D+01
        xs(  2) = 0.6449810193646626D+01
        xs(  3) = 0.7023961125524575D+01
        xs(  4) = 0.1126265769973118D+02
        ws(  1) = 0.2261135110387472D+01
        ws(  2) = 0.1578367680322827D+01
        ws(  3) = 0.1206866683474620D+01
        ws(  4) = 0.1682823020017482D+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 =   6
        err = 0.8762914090682393D-03
        xs(  1) = 0.6087751187167228D+01
        xs(  2) = 0.6833632778981568D+01
        xs(  3) = 0.7586773245953671D+01
        xs(  4) = 0.8466710279042800D+01
        xs(  5) = 0.1144923632535820D+02
        xs(  6) = 0.1365116137677202D+02
        ws(  1) = 0.1902027851670838D+01
        ws(  2) = 0.2161561837427828D+01
        ws(  3) = 0.1244098010469193D+01
        ws(  4) = 0.3999705729231111D+00
        ws(  5) = 0.1311781760544935D+01
        ws(  6) = 0.1375856415927285D+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 =   8
        err = 0.9611543103033469D-03
        xs(  1) = 0.6825500843732335D+01
        xs(  2) = 0.7665373286210138D+01
        xs(  3) = 0.8542515785946655D+01
        xs(  4) = 0.9591534060804177D+01
        xs(  5) = 0.1147437314111992D+02
        xs(  6) = 0.1332834438509818D+02
        xs(  7) = 0.1576608173388200D+02
        xs(  8) = 0.1650188546585218D+02
        ws(  1) = 0.1893387669566726D+01
        ws(  2) = 0.2257374113504254D+01
        ws(  3) = 0.1408132576357286D+01
        ws(  4) = 0.7143568706690016D+00
        ws(  5) = 0.8681699985153117D+00
        ws(  6) = 0.1583911864947199D+01
        ws(  7) = 0.1647968838842648D+01
        ws(  8) = 0.1065329045863424D+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 =  11
        err = 0.9687034405689462D-03
        xs(  1) = 0.6827408868367792D+01
        xs(  2) = 0.7630390174190156D+01
        xs(  3) = 0.8436119829095389D+01
        xs(  4) = 0.9280940155831770D+01
        xs(  5) = 0.1064957121952129D+02
        xs(  6) = 0.1307624874689438D+02
        xs(  7) = 0.1374970616196190D+02
        xs(  8) = 0.1448440897317302D+02
        xs(  9) = 0.1549673918603210D+02
        xs( 10) = 0.1582755952127168D+02
        xs( 11) = 0.1838452797065492D+02
        ws(  1) = 0.1758211239615359D+01
        ws(  2) = 0.2474343763215664D+01
        ws(  3) = 0.1494021052962414D+01
        ws(  4) = 0.4916734881782613D+00
        ws(  5) = 0.8551378887760802D-01
        ws(  6) = 0.6366581580976839D+00
        ws(  7) = 0.9307712759934278D+00
        ws(  8) = 0.8855319835787352D+00
        ws(  9) = 0.7233472585717842D+00
        ws( 10) = -.4574496982947871D+00
        ws( 11) = 0.9666355255203184D+00
        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 =  12
        err = 0.9447051598196950D-03
        xs(  1) = 0.7229181965010736D+01
        xs(  2) = 0.7980643382083747D+01
        xs(  3) = 0.8752444889533232D+01
        xs(  4) = 0.9777815776386477D+01
        xs(  5) = 0.1132277148948235D+02
        xs(  6) = 0.1203692386253761D+02
        xs(  7) = 0.1309076441767327D+02
        xs(  8) = 0.1491406398848916D+02
        xs(  9) = 0.1557725525901430D+02
        xs( 10) = 0.1669814079841249D+02
        xs( 11) = 0.1864621264781969D+02
        xs( 12) = 0.1977267993157018D+02
        ws(  1) = 0.1639987150800521D+01
        ws(  2) = 0.2344771090908718D+01
        ws(  3) = 0.1733756214428098D+01
        ws(  4) = 0.7018212618545615D+00
        ws(  5) = 0.2254329773772829D+00
        ws(  6) = -.2472745928401703D+00
        ws(  7) = 0.1217093608039872D+01
        ws(  8) = 0.9339830059679356D+00
        ws(  9) = 0.1091302291989244D+01
        ws( 10) = 0.7750816985291715D+00
        ws( 11) = -.2933121545433303D+00
        ws( 12) = 0.1981878584995416D+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 =  12
        err = 0.9171818964842538D-03
        xs(  1) = 0.8138969485473066D+01
        xs(  2) = 0.8911406140665919D+01
        xs(  3) = 0.9516978677492585D+01
        xs(  4) = 0.1027597186602528D+02
        xs(  5) = 0.1219344509145743D+02
        xs(  6) = 0.1255754507757140D+02
        xs(  7) = 0.1296121795044622D+02
        xs(  8) = 0.1527613140567677D+02
        xs(  9) = 0.1775049723517996D+02
        xs( 10) = 0.1991542385501637D+02
        xs( 11) = 0.2043601993783580D+02
        xs( 12) = 0.2108938911418258D+02
        ws(  1) = 0.1514085865720697D+01
        ws(  2) = 0.2126301360450524D+01
        ws(  3) = 0.1483501711619490D+01
        ws(  4) = 0.7434427858007888D+00
        ws(  5) = 0.1208208326099012D+01
        ws(  6) = -.1658522540774093D+01
        ws(  7) = 0.1010731958748594D+01
        ws(  8) = 0.2437993813374533D+01
        ws(  9) = 0.3167564841848607D+01
        ws( 10) = -.2550555938362268D+01
        ws( 11) = 0.1397619821755728D+01
        ws( 12) = 0.5235290046749998D+01
        endif
        if( idomain .eq.  227 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.6283185307179586D+01
        rk1r = 0.4084070449666731D+02
        rk1i = 0.9424777960769379D+01
        iquadtype =  1
        n =  13
        err = 0.9985386823713460D-03
        xs(  1) = 0.6753093875530101D+01
        xs(  2) = 0.7607066766312315D+01
        xs(  3) = 0.8410847133131483D+01
        xs(  4) = 0.9235768546569247D+01
        xs(  5) = 0.1024213884802688D+02
        xs(  6) = 0.1336634097348534D+02
        xs(  7) = 0.1535201889733183D+02
        xs(  8) = 0.1632803464511439D+02
        xs(  9) = 0.1713068519988624D+02
        xs( 10) = 0.1954793564497166D+02
        xs( 11) = 0.2107997014377070D+02
        xs( 12) = 0.2182639464571875D+02
        xs( 13) = 0.2358657216122748D+02
        ws(  1) = 0.1010943903928004D+01
        ws(  2) = 0.2060036351540835D+01
        ws(  3) = 0.2124222041758820D+01
        ws(  4) = 0.1443490173071170D+01
        ws(  5) = 0.5580449923116008D+00
        ws(  6) = 0.7782439347349132D+00
        ws(  7) = 0.1055611266336157D+01
        ws(  8) = 0.1406876945579112D+01
        ws(  9) = 0.1215795658519344D+01
        ws( 10) = -.7356817936610403D+00
        ws( 11) = 0.4799697938825223D+00
        ws( 12) = 0.1709477437364396D+01
        ws( 13) = -.5543812539893893D+00
        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 =  14
        err = 0.9451186014697716D-03
        xs(  1) = 0.7930839778429233D+01
        xs(  2) = 0.8829599323394341D+01
        xs(  3) = 0.9827066361259837D+01
        xs(  4) = 0.1092303730821811D+02
        xs(  5) = 0.1298561830140126D+02
        xs(  6) = 0.1316055400161662D+02
        xs(  7) = 0.1393363185700638D+02
        xs(  8) = 0.1567594123800938D+02
        xs(  9) = 0.1775571554075283D+02
        xs( 10) = 0.2004023158587253D+02
        xs( 11) = 0.2189572198463045D+02
        xs( 12) = 0.2463093965615501D+02
        xs( 13) = 0.2578562557192680D+02
        xs( 14) = 0.2653367250517446D+02
        ws(  1) = 0.1358554203904785D+01
        ws(  2) = 0.2465952271293118D+01
        ws(  3) = 0.2146242135997140D+01
        ws(  4) = 0.1052089857887035D+01
        ws(  5) = 0.2370543511551754D+01
        ws(  6) = -.1917427307542272D+01
        ws(  7) = 0.5722347702141364D+00
        ws(  8) = 0.1520275870456580D+01
        ws(  9) = 0.1900209364970657D+01
        ws( 10) = 0.1260616400103532D+01
        ws( 11) = 0.2541420609455372D+01
        ws( 12) = 0.8513714613985046D+00
        ws( 13) = 0.1308435315450075D+01
        ws( 14) = 0.9703046116787882D+00
        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 =  17
        err = 0.6974605149649850D-03
        xs(  1) = 0.7845288186387183D+01
        xs(  2) = 0.8714248288659107D+01
        xs(  3) = 0.1053020802225630D+02
        xs(  4) = 0.1169298977753169D+02
        xs(  5) = 0.1218890044742489D+02
        xs(  6) = 0.1351941555192555D+02
        xs(  7) = 0.1373121672070225D+02
        xs(  8) = 0.1429902787898849D+02
        xs(  9) = 0.1507061832006785D+02
        xs( 10) = 0.1887101063183021D+02
        xs( 11) = 0.1993585440393995D+02
        xs( 12) = 0.2192256777798733D+02
        xs( 13) = 0.2419011986977748D+02
        xs( 14) = 0.2697256275807969D+02
        xs( 15) = 0.2766559641858550D+02
        xs( 16) = 0.2894596779659204D+02
        xs( 17) = 0.3071576374268410D+02
        ws(  1) = 0.3645397496670786D+01
        ws(  2) = 0.3142892512538314D+01
        ws(  3) = 0.8499857682879193D+00
        ws(  4) = 0.8149665398912925D+00
        ws(  5) = -.5790073128451850D+00
        ws(  6) = 0.1362861271289144D+01
        ws(  7) = -.1794153111033670D+01
        ws(  8) = 0.1709760891195851D+01
        ws(  9) = 0.2057171743543022D+01
        ws( 10) = 0.2668453192270985D+01
        ws( 11) = 0.9301625946502060D+00
        ws( 12) = 0.1395194174716599D+01
        ws( 13) = 0.2937952050409984D+01
        ws( 14) = 0.4937130752169731D+01
        ws( 15) = 0.7719077918692976D+00
        ws( 16) = 0.4997304846776229D+00
        ws( 17) = 0.5122779777572265D+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 =  16
        err = 0.8984993882061085D-03
        xs(  1) = 0.9246689543991195D+01
        xs(  2) = 0.1002878422364847D+02
        xs(  3) = 0.1243900004969291D+02
        xs(  4) = 0.1323560825750475D+02
        xs(  5) = 0.1470756850791678D+02
        xs(  6) = 0.1654987596232403D+02
        xs(  7) = 0.1756033773391439D+02
        xs(  8) = 0.1994183869479899D+02
        xs(  9) = 0.2134266498499728D+02
        xs( 10) = 0.2311803827610609D+02
        xs( 11) = 0.2425313626618379D+02
        xs( 12) = 0.2522322064512908D+02
        xs( 13) = 0.2728002190949288D+02
        xs( 14) = 0.2830754250219043D+02
        xs( 15) = 0.2965607163172278D+02
        xs( 16) = 0.3132509010571681D+02
        ws(  1) = 0.4781328797476227D+01
        ws(  2) = 0.1308258699415107D+01
        ws(  3) = -.8311764717882545D+00
        ws(  4) = 0.2501686009637437D+01
        ws(  5) = 0.9745715537133132D+00
        ws(  6) = 0.1936897545715863D+01
        ws(  7) = 0.1462843553628831D+01
        ws(  8) = 0.1367232225188802D+01
        ws(  9) = 0.1813057069835168D+01
        ws( 10) = 0.2336345969863572D+01
        ws( 11) = 0.2431596162865346D+01
        ws( 12) = 0.1515452574722976D+01
        ws( 13) = -.3432269852024524D+01
        ws( 14) = 0.5456805220018750D+01
        ws( 15) = -.1305525775949741D+01
        ws( 16) = -.2735474743299922D+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 =   1
        err = 0.3677556369133026D-04
        xs(  1) = 0.4773325913839384D+01
        ws(  1) = 0.6835301334199284D+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 =   1
        err = 0.3677529546225137D-04
        xs(  1) = 0.4773341978150821D+01
        ws(  1) = 0.6835260428283315D+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 =   1
        err = 0.3677549005844366D-04
        xs(  1) = 0.4773516122260469D+01
        ws(  1) = 0.6835518793493644D+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 =   1
        err = 0.3677067053128773D-04
        xs(  1) = 0.4774002894640840D+01
        ws(  1) = 0.6835041175746824D+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 =   1
        err = 0.5559689086216162D-04
        xs(  1) = 0.7020674884922620D+01
        ws(  1) = 0.1780558300537996D+02
        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 =   1
        err = 0.3278566159626988D-04
        xs(  1) = 0.3647057884873068D+01
        ws(  1) = 0.5389135443514403D+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 =   1
        err = 0.3562959653984867D-04
        xs(  1) = 0.4816585458548464D+01
        ws(  1) = 0.6646268404265529D+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 =   1
        err = 0.3469452246453437D-04
        xs(  1) = 0.4738880539672992D+01
        ws(  1) = 0.6286597277827389D+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 =   1
        err = 0.4446935485116046D-04
        xs(  1) = 0.5869072043313730D+01
        ws(  1) = 0.9189107120430334D+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 =   1
        err = 0.3175031307032670D-04
        xs(  1) = 0.4743174897151263D+01
        ws(  1) = 0.5645232153708883D+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 =   1
        err = 0.2990219532111025D-04
        xs(  1) = 0.4736647733609391D+01
        ws(  1) = 0.5371378013952029D+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 =   1
        err = 0.4882581367329711D-04
        xs(  1) = 0.7527029332072445D+01
        ws(  1) = 0.7024781908846541D+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 =   1
        err = 0.3919598391010275D-04
        xs(  1) = 0.6398981290189410D+01
        ws(  1) = 0.5142056312225067D+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 =   1
        err = 0.3917282641691781D-04
        xs(  1) = 0.6393132480134584D+01
        ws(  1) = 0.5398328620016547D+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 =   1
        err = 0.5185468196778969D-04
        xs(  1) = 0.8622763553888580D+01
        ws(  1) = 0.4981072540612025D+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 =   1
        err = 0.4920009223635642D-04
        xs(  1) = 0.8060223681924823D+01
        ws(  1) = 0.5065539469881599D+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 =   1
        err = 0.4908442344950782D-04
        xs(  1) = 0.8589998228765367D+01
        ws(  1) = 0.5073325430063569D+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 =   1
        err = 0.5209978607998911D-04
        xs(  1) = 0.9104100879200429D+01
        ws(  1) = 0.5091301552841705D+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 =   1
        err = 0.5585613247421376D-04
        xs(  1) = 0.9600218489347288D+01
        ws(  1) = 0.5119163060739827D+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 =   1
        err = 0.5899780191681106D-04
        xs(  1) = 0.1007577230116363D+02
        ws(  1) = 0.5156904415542795D+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 =   1
        err = 0.6150192619105216D-04
        xs(  1) = 0.1052303366856885D+02
        ws(  1) = 0.5204373137979969D+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 =   1
        err = 0.8547991803424076D-04
        xs(  1) = 0.1957185671834685D+02
        ws(  1) = -.5908209584711156D+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 =   1
        err = 0.8104217655833363D-04
        xs(  1) = 0.2026689872900239D+02
        ws(  1) = -.5702921283769718D+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 =   1
        err = 0.1687210025593529D-05
        xs(  1) = 0.5894191459810311D+01
        ws(  1) = 0.8715198133455797D+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 =   1
        err = 0.1687203380471653D-05
        xs(  1) = 0.5894214145737808D+01
        ws(  1) = 0.8715136898464843D+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 =   1
        err = 0.1687269065630031D-05
        xs(  1) = 0.5894446766633179D+01
        ws(  1) = 0.8715479861216409D+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 =   1
        err = 0.1687222873757918D-05
        xs(  1) = 0.5895117202725417D+01
        ws(  1) = 0.8714765576145242D+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 =   1
        err = 0.1456668543845178D-05
        xs(  1) = 0.4760712535962636D+01
        ws(  1) = 0.6599036533635873D+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 =   1
        err = 0.1386558357159271D-05
        xs(  1) = 0.3631693890200118D+01
        ws(  1) = 0.5951542098578389D+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 =   1
        err = 0.2186185874946155D-05
        xs(  1) = 0.8231229597316684D+01
        ws(  1) = 0.1850308034786747D+02
        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 =   1
        err = 0.1440368557747873D-05
        xs(  1) = 0.5290595044706321D+01
        ws(  1) = 0.6762405325778716D+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 =   1
        err = 0.1634392104124237D-05
        xs(  1) = 0.5867841912151047D+01
        ws(  1) = 0.8266184899579001D+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 =   1
        err = 0.1862024541482979D-05
        xs(  1) = 0.6983214886727896D+01
        ws(  1) = 0.1011538518289640D+02
        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 =   1
        err = 0.1337890349059229D-05
        xs(  1) = 0.5855745157295113D+01
        ws(  1) = 0.6565172695186144D+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 =   1
        err = 0.1362043906098233D-05
        xs(  1) = 0.6408496815515832D+01
        ws(  1) = 0.6374840007686550D+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 =   1
        err = 0.1380595948982270D-05
        xs(  1) = 0.6402235587711432D+01
        ws(  1) = 0.6084469624789964D+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 =   1
        err = 0.1397083061267117D-05
        xs(  1) = 0.6396792791718091D+01
        ws(  1) = 0.6210586167153000D+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 =   1
        err = 0.1595084839060973D-05
        xs(  1) = 0.6950371252861798D+01
        ws(  1) = 0.6195779491632133D+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 =   1
        err = 0.1940479630170274D-05
        xs(  1) = 0.8621328851195662D+01
        ws(  1) = 0.5790147613084741D+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 =   1
        err = 0.1730540016985657D-05
        xs(  1) = 0.7499653561409255D+01
        ws(  1) = 0.6642793113685378D+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 =   1
        err = 0.2023050860574876D-05
        xs(  1) = 0.9022504054037293D+01
        ws(  1) = 0.5860944922155712D+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 =   1
        err = 0.2185058004807036D-05
        xs(  1) = 0.9510513897158292D+01
        ws(  1) = 0.5855074056291286D+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 =   1
        err = 0.2321570057419028D-05
        xs(  1) = 0.9979937682200333D+01
        ws(  1) = 0.5860294731026567D+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 =   1
        err = 0.2433350441587806D-05
        xs(  1) = 0.1043146157045061D+02
        ws(  1) = 0.5873560736299438D+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 =   1
        err = 0.2523185870719394D-05
        xs(  1) = 0.1087458216783505D+02
        ws(  1) = 0.5892477384121465D+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 =   1
        err = 0.2587946176901643D-05
        xs(  1) = 0.1128879423667512D+02
        ws(  1) = 0.5930241707819652D+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 =   1
        err = 0.6046856515801996D-07
        xs(  1) = 0.4745223443237626D+01
        ws(  1) = 0.6784799000811782D+01
        endif
        if( idomain .eq.  278 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.1570796326794897D+02
        rk1r = 0.4000000000000000D-01
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =   1
        err = 0.6046955863051731D-07
        xs(  1) = 0.4745236096309329D+01
        ws(  1) = 0.6784915524772901D+01
        endif
        if( idomain .eq.  279 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.1570796326794897D+02
        rk1r = 0.1000000000000000D+00
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =   1
        err = 0.6047537600792447D-07
        xs(  1) = 0.4745358948908874D+01
        ws(  1) = 0.6785608901799910D+01
        endif
        if( idomain .eq.  280 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.1570796326794897D+02
        rk1r = 0.2000000000000000D+00
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =   1
        err = 0.6049812212791566D-07
        xs(  1) = 0.4745715582280853D+01
        ws(  1) = 0.6788291736577708D+01
        endif
        if( idomain .eq.  281 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.1570796326794897D+02
        rk1r = 0.4000000000000000D+00
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =   1
        err = 0.6058816112112109D-07
        xs(  1) = 0.4747317450432416D+01
        ws(  1) = 0.6798964315077830D+01
        endif
        if( idomain .eq.  282 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.1570796326794897D+02
        rk1r = 0.1000000000000000D+01
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =   1
        err = 0.6117208462406108D-07
        xs(  1) = 0.4766821463099494D+01
        ws(  1) = 0.6871401279641854D+01
        endif
        if( idomain .eq.  283 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.1570796326794897D+02
        rk1r = 0.1570796326794897D+01
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =   1
        err = 0.7046089967717439D-07
        xs(  1) = 0.6509640098385338D+01
        ws(  1) = 0.9180598056190712D+01
        endif
        if( idomain .eq.  284 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.1570796326794897D+02
        rk1r = 0.3141592653589793D+01
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =   1
        err = 0.5628637610513048D-07
        xs(  1) = 0.5285046783029560D+01
        ws(  1) = 0.6530685936046947D+01
        endif
        if( idomain .eq.  285 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.1570796326794897D+02
        rk1r = 0.6283185307179586D+01
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =   1
        err = 0.1053654657402588D-06
        xs(  1) = 0.9230904677484451D+01
        ws(  1) = 0.2401535308144301D+02
        endif
        if( idomain .eq.  286 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.1570796326794897D+02
        rk1r = 0.9424777960769379D+01
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =   1
        err = 0.8024020960769483D-07
        xs(  1) = 0.7542630114793927D+01
        ws(  1) = 0.1114987208824897D+02
        endif
        if( idomain .eq.  287 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.1570796326794897D+02
        rk1r = 0.1256637061435917D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =   1
        err = 0.7303015672814777D-07
        xs(  1) = 0.7536585038836351D+01
        ws(  1) = 0.9594530808017447D+01
        endif
        if( idomain .eq.  288 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.1570796326794897D+02
        rk1r = 0.1570796326794897D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =   1
        err = 0.5679998779595332D-07
        xs(  1) = 0.6409270425625833D+01
        ws(  1) = 0.7095247802734352D+01
        endif
        if( idomain .eq.  289 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.1570796326794897D+02
        rk1r = 0.1884955592153876D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =   1
        err = 0.5349606779709316D-07
        xs(  1) = 0.6403866373554818D+01
        ws(  1) = 0.6874504956880285D+01
        endif
        if( idomain .eq.  290 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.1570796326794897D+02
        rk1r = 0.2199114857512855D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =   1
        err = 0.6494635809933029D-07
        xs(  1) = 0.7517382343276065D+01
        ws(  1) = 0.6877769589483355D+01
        endif
        if( idomain .eq.  291 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.1570796326794897D+02
        rk1r = 0.2513274122871834D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =   1
        err = 0.7647401129758112D-07
        xs(  1) = 0.8632014542831698D+01
        ws(  1) = 0.6986733779329954D+01
        endif
        if( idomain .eq.  292 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.1570796326794897D+02
        rk1r = 0.2827433388230814D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =   1
        err = 0.7496590873566272D-07
        xs(  1) = 0.8625465225824659D+01
        ws(  1) = 0.6651871682129120D+01
        endif
        if( idomain .eq.  293 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.1570796326794897D+02
        rk1r = 0.3141592653589793D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =   1
        err = 0.6743403118421183D-07
        xs(  1) = 0.8061093989710729D+01
        ws(  1) = 0.6826272175283854D+01
        endif
        if( idomain .eq.  294 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.1570796326794897D+02
        rk1r = 0.3455751918948772D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =   1
        err = 0.1833365476322559D-06
        xs(  1) = 0.5274522376930253D+01
        ws(  1) = 0.1382593307584960D+02
        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 =   1
        err = 0.1440278254106310D-06
        xs(  1) = 0.6384391655986994D+01
        ws(  1) = 0.1127792268389093D+02
        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 =   1
        err = 0.2636802650050062D-06
        xs(  1) = 0.5272651208941471D+01
        ws(  1) = 0.1963916749211882D+02
        endif
        if( idomain .eq.  297 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.1570796326794897D+02
        rk1r = 0.4398229715025710D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =   1
        err = 0.9612773884295816D-07
        xs(  1) = 0.1034318338196038D+02
        ws(  1) = 0.6550970627794614D+01
        endif
        if( idomain .eq.  298 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.1570796326794897D+02
        rk1r = 0.4712388980384689D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =   1
        err = 0.1000794643358205D-06
        xs(  1) = 0.1077723990992831D+02
        ws(  1) = 0.6549302793947101D+01
        endif
        if( idomain .eq.  299 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.1570796326794897D+02
        rk1r = 0.5026548245743669D+02
        rk1i = 0.1884955592153876D+02
        iquadtype =  1
        n =   1
        err = 0.1327535519155330D-06
        xs(  1) = 0.2079021961119592D+02
        ws(  1) = -.1086846994520154D+02
        endif
        if( idomain .eq.  300 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.1884955592153876D+02
        rk1r = 0.2000000000000000D-01
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =   1
        err = 0.4998307427009609D-08
        xs(  1) = 0.1201419341275573D+02
        ws(  1) = 0.6645444287379678D+02
        endif
        if( idomain .eq.  301 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.1884955592153876D+02
        rk1r = 0.4000000000000000D-01
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =   1
        err = 0.4998248991821991D-08
        xs(  1) = 0.1201423095798350D+02
        ws(  1) = 0.6645037607079389D+02
        endif
        if( idomain .eq.  302 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.1884955592153876D+02
        rk1r = 0.1000000000000000D+00
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =   1
        err = 0.4998080809497629D-08
        xs(  1) = 0.1201457160598991D+02
        ws(  1) = 0.6643594976516802D+02
        endif
        if( idomain .eq.  303 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.1884955592153876D+02
        rk1r = 0.2000000000000000D+00
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =   1
        err = 0.6266142622513831D-08
        xs(  1) = 0.1423202251903253D+02
        ws(  1) = 0.2143054554157504D+03
        endif
        if( idomain .eq.  304 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.1884955592153876D+02
        rk1r = 0.4000000000000000D+00
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =   1
        err = 0.3560511863087992D-08
        xs(  1) = 0.8134049740122508D+01
        ws(  1) = 0.1367727827768061D+02
        endif
        if( idomain .eq.  305 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.1884955592153876D+02
        rk1r = 0.1000000000000000D+01
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =   1
        err = 0.2598002648871507D-08
        xs(  1) = 0.4181912028715455D+01
        ws(  1) = 0.7221290220802320D+01
        endif
        if( idomain .eq.  306 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.1884955592153876D+02
        rk1r = 0.1570796326794897D+01
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =   1
        err = 0.2694555989345849D-08
        xs(  1) = 0.5351366297121535D+01
        ws(  1) = 0.7768021233278795D+01
        endif
        if( idomain .eq.  307 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.1884955592153876D+02
        rk1r = 0.3141592653589793D+01
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =   1
        err = 0.2623574532847803D-08
        xs(  1) = 0.6397986046385290D+01
        ws(  1) = 0.7960768389367780D+01
        endif
        if( idomain .eq.  308 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.1884955592153876D+02
        rk1r = 0.6283185307179586D+01
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =   1
        err = 0.2872025284885166D-08
        xs(  1) = 0.6422853561239659D+01
        ws(  1) = 0.8790497800844655D+01
        endif
        if( idomain .eq.  309 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.1884955592153876D+02
        rk1r = 0.9424777960769379D+01
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =   1
        err = 0.3165783188844577D-08
        xs(  1) = 0.7540496102828680D+01
        ws(  1) = 0.1048968701252250D+02
        endif
        if( idomain .eq.  310 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.1884955592153876D+02
        rk1r = 0.1256637061435917D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =   1
        err = 0.2946413138983251D-08
        xs(  1) = 0.7535378047182973D+01
        ws(  1) = 0.9538939086640777D+01
        endif
        if( idomain .eq.  311 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.1884955592153876D+02
        rk1r = 0.1570796326794897D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =   1
        err = 0.2901641395950381D-08
        xs(  1) = 0.8091521092907120D+01
        ws(  1) = 0.9587548139636015D+01
        endif
        if( idomain .eq.  312 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.1884955592153876D+02
        rk1r = 0.1884955592153876D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =   1
        err = 0.2805301280816188D-08
        xs(  1) = 0.8085440871654406D+01
        ws(  1) = 0.8580637235754075D+01
        endif
        if( idomain .eq.  313 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.1884955592153876D+02
        rk1r = 0.2199114857512855D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =   1
        err = 0.2421446318235302D-08
        xs(  1) = 0.7518830379031383D+01
        ws(  1) = 0.7600935791299119D+01
        endif
        if( idomain .eq.  314 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.1884955592153876D+02
        rk1r = 0.2513274122871834D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =   1
        err = 0.2904180140549618D-08
        xs(  1) = 0.8634133273377868D+01
        ws(  1) = 0.7777258121205967D+01
        endif
        if( idomain .eq.  315 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.1884955592153876D+02
        rk1r = 0.2827433388230814D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =   1
        err = 0.2584528226273937D-08
        xs(  1) = 0.6951059696399293D+01
        ws(  1) = 0.7882802174468541D+01
        endif
        if( idomain .eq.  316 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.1884955592153876D+02
        rk1r = 0.3141592653589793D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =   1
        err = 0.3242035899836471D-08
        xs(  1) = 0.9182887544376317D+01
        ws(  1) = 0.7338919694770820D+01
        endif
        if( idomain .eq.  317 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.1884955592153876D+02
        rk1r = 0.3455751918948772D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =   1
        err = 0.3822944857136460D-08
        xs(  1) = 0.1029852137480875D+02
        ws(  1) = 0.7430650028101458D+01
        endif
        if( idomain .eq.  318 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.1884955592153876D+02
        rk1r = 0.3769911184307752D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =   1
        err = 0.4242139753449053D-08
        xs(  1) = 0.1197922358151964D+02
        ws(  1) = 0.8328352335567002D+01
        endif
        if( idomain .eq.  319 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.1884955592153876D+02
        rk1r = 0.4084070449666731D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =   1
        err = 0.3807536529431687D-08
        xs(  1) = 0.1028585986120785D+02
        ws(  1) = 0.7117701509795078D+01
        endif
        if( idomain .eq.  320 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.1884955592153876D+02
        rk1r = 0.4398229715025710D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =   1
        err = 0.3800504429969330D-08
        xs(  1) = 0.1028073574932343D+02
        ws(  1) = 0.7207702216397658D+01
        endif
        if( idomain .eq.  321 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.1884955592153876D+02
        rk1r = 0.4712388980384689D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =   1
        err = 0.3796552969703951D-08
        xs(  1) = 0.1027647582799624D+02
        ws(  1) = 0.7421529843173157D+01
        endif
        if( idomain .eq.  322 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.1884955592153876D+02
        rk1r = 0.5026548245743669D+02
        rk1i = 0.2199114857512855D+02
        iquadtype =  1
        n =   1
        err = 0.4101729614048699D-08
        xs(  1) = 0.1110136912301968D+02
        ws(  1) = 0.7184962735813604D+01
        endif
        if( idomain .eq.  323 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.2199114857512855D+02
        rk1r = 0.2000000000000000D-01
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =   1
        err = 0.1105944536150358D-09
        xs(  1) = 0.4727349767818402D+01
        ws(  1) = 0.7666635144127692D+01
        endif
        if( idomain .eq.  324 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.2199114857512855D+02
        rk1r = 0.4000000000000000D-01
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =   1
        err = 0.1105966582606925D-09
        xs(  1) = 0.4727359519623346D+01
        ws(  1) = 0.7666784223523257D+01
        endif
        if( idomain .eq.  325 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.2199114857512855D+02
        rk1r = 0.1000000000000000D+00
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =   1
        err = 0.1106087562412861D-09
        xs(  1) = 0.4727440052311536D+01
        ws(  1) = 0.7667588814535605D+01
        endif
        if( idomain .eq.  326 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.2199114857512855D+02
        rk1r = 0.2000000000000000D+00
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =   1
        err = 0.1106589187871247D-09
        xs(  1) = 0.4727689747710962D+01
        ws(  1) = 0.7670967311785088D+01
        endif
        if( idomain .eq.  327 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.2199114857512855D+02
        rk1r = 0.4000000000000000D+00
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =   1
        err = 0.1108547429415504D-09
        xs(  1) = 0.4728822782741373D+01
        ws(  1) = 0.7684082067051922D+01
        endif
        if( idomain .eq.  328 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.2199114857512855D+02
        rk1r = 0.1000000000000000D+01
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =   1
        err = 0.1123450303562713D-09
        xs(  1) = 0.4174162191140677D+01
        ws(  1) = 0.7875844977388431D+01
        endif
        if( idomain .eq.  329 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.2199114857512855D+02
        rk1r = 0.1570796326794897D+01
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =   1
        err = 0.1147772841777775D-09
        xs(  1) = 0.5341878515190609D+01
        ws(  1) = 0.8138522530704936D+01
        endif
        if( idomain .eq.  330 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.2199114857512855D+02
        rk1r = 0.3141592653589793D+01
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =   1
        err = 0.1004738718262296D-09
        xs(  1) = 0.4715157368012003D+01
        ws(  1) = 0.6969033398221846D+01
        endif
        if( idomain .eq.  331 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.2199114857512855D+02
        rk1r = 0.6283185307179586D+01
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =   1
        err = 0.1127305182187838D-09
        xs(  1) = 0.4178329069443732D+01
        ws(  1) = 0.7915113725932269D+01
        endif
        if( idomain .eq.  332 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.2199114857512855D+02
        rk1r = 0.9424777960769379D+01
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =   1
        err = 0.1735008897136997D-09
        xs(  1) = 0.9783467067663445D+01
        ws(  1) = 0.1830338567912949D+02
        endif
        if( idomain .eq.  333 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.2199114857512855D+02
        rk1r = 0.1256637061435917D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =   1
        err = 0.1112874689303583D-09
        xs(  1) = 0.5292755730339363D+01
        ws(  1) = 0.7978791790606418D+01
        endif
        if( idomain .eq.  334 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.2199114857512855D+02
        rk1r = 0.1570796326794897D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =   1
        err = 0.1210086763641184D-09
        xs(  1) = 0.8090520742758239D+01
        ws(  1) = 0.9761693906610232D+01
        endif
        if( idomain .eq.  335 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.2199114857512855D+02
        rk1r = 0.1884955592153876D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =   1
        err = 0.1124566003231331D-09
        xs(  1) = 0.8085276105297924D+01
        ws(  1) = 0.9032094704350589D+01
        endif
        if( idomain .eq.  336 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.2199114857512855D+02
        rk1r = 0.2199114857512855D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =   1
        err = 0.1007870747153729D-09
        xs(  1) = 0.7519449241930841D+01
        ws(  1) = 0.8212092420773184D+01
        endif
        if( idomain .eq.  337 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.2199114857512855D+02
        rk1r = 0.2513274122871834D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =   1
        err = 0.1135630765322103D-09
        xs(  1) = 0.8635270195106788D+01
        ws(  1) = 0.8442649169601195D+01
        endif
        if( idomain .eq.  338 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.2199114857512855D+02
        rk1r = 0.2827433388230814D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =   1
        err = 0.1152165252639949D-09
        xs(  1) = 0.6952365992580376D+01
        ws(  1) = 0.8453659960174743D+01
        endif
        if( idomain .eq.  339 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.2199114857512855D+02
        rk1r = 0.3141592653589793D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =   1
        err = 0.1519742409979298D-09
        xs(  1) = 0.1030798274182518D+02
        ws(  1) = 0.8725872317407543D+01
        endif
        if( idomain .eq.  340 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.2199114857512855D+02
        rk1r = 0.3455751918948772D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =   1
        err = 0.1254700968583484D-09
        xs(  1) = 0.9179872599409865D+01
        ws(  1) = 0.7927527728636276D+01
        endif
        if( idomain .eq.  341 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.2199114857512855D+02
        rk1r = 0.3769911184307752D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =   1
        err = 0.1724613724274990D-09
        xs(  1) = 0.1198213582691157D+02
        ws(  1) = 0.9202403961219442D+01
        endif
        if( idomain .eq.  342 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.2199114857512855D+02
        rk1r = 0.4084070449666731D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =   1
        err = 0.1608650646254956D-09
        xs(  1) = 0.1084960807689250D+02
        ws(  1) = 0.7833615631330957D+01
        endif
        if( idomain .eq.  343 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.2199114857512855D+02
        rk1r = 0.4398229715025710D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =   1
        err = 0.1512935663446115D-09
        xs(  1) = 0.1028412414313018D+02
        ws(  1) = 0.7823175069238166D+01
        endif
        if( idomain .eq.  344 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.2199114857512855D+02
        rk1r = 0.4712388980384689D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =   1
        err = 0.1512208641868655D-09
        xs(  1) = 0.1027978701313695D+02
        ws(  1) = 0.7977812677216074D+01
        endif
        if( idomain .eq.  345 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.2199114857512855D+02
        rk1r = 0.5026548245743669D+02
        rk1i = 0.2513274122871834D+02
        iquadtype =  1
        n =   1
        err = 0.1511764488221089D-09
        xs(  1) = 0.1027621460169572D+02
        ws(  1) = 0.8239296491144565D+01
        endif
        if( idomain .eq.  346 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.2513274122871834D+02
        rk1r = 0.2000000000000000D-01
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =   1
        err = 0.4776928369951648D-11
        xs(  1) = 0.4721615700978801D+01
        ws(  1) = 0.8217923031925544D+01
        endif
        if( idomain .eq.  347 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.2513274122871834D+02
        rk1r = 0.4000000000000000D-01
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =   1
        err = 0.4777020943486106D-11
        xs(  1) = 0.4721623957950060D+01
        ws(  1) = 0.8218076568378896D+01
        endif
        if( idomain .eq.  348 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.2513274122871834D+02
        rk1r = 0.1000000000000000D+00
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =   1
        err = 0.4777524300251852D-11
        xs(  1) = 0.4721686307990093D+01
        ws(  1) = 0.8218897022519286D+01
        endif
        if( idomain .eq.  349 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.2513274122871834D+02
        rk1r = 0.2000000000000000D+00
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =   1
        err = 0.4779632679973542D-11
        xs(  1) = 0.4721887253499394D+01
        ws(  1) = 0.8222383316989990D+01
        endif
        if( idomain .eq.  350 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.2513274122871834D+02
        rk1r = 0.4000000000000000D+00
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =   1
        err = 0.4787839277767077D-11
        xs(  1) = 0.4722806852923115D+01
        ws(  1) = 0.8235846113904701D+01
        endif
        if( idomain .eq.  351 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.2513274122871834D+02
        rk1r = 0.1000000000000000D+01
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =   1
        err = 0.5813767888648523D-11
        xs(  1) = 0.8728195182264461D+01
        ws(  1) = 0.1325541148424076D+02
        endif
        if( idomain .eq.  352 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.2513274122871834D+02
        rk1r = 0.1570796326794897D+01
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =   1
        err = 0.5080418741760010D-11
        xs(  1) = 0.6476823055714447D+01
        ws(  1) = 0.9110246646022125D+01
        endif
        if( idomain .eq.  353 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.2513274122871834D+02
        rk1r = 0.3141592653589793D+01
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =   1
        err = 0.4386958616364401D-11
        xs(  1) = 0.4713779385342084D+01
        ws(  1) = 0.7553662132481581D+01
        endif
        if( idomain .eq.  354 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.2513274122871834D+02
        rk1r = 0.6283185307179586D+01
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =   1
        err = 0.6476226337774852D-11
        xs(  1) = 0.9222647117070339D+01
        ws(  1) = 0.1480970544734081D+02
        endif
        if( idomain .eq.  355 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.2513274122871834D+02
        rk1r = 0.9424777960769379D+01
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =   1
        err = 0.4770543745188497D-11
        xs(  1) = 0.5293494613621989D+01
        ws(  1) = 0.8377483675203241D+01
        endif
        if( idomain .eq.  356 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.2513274122871834D+02
        rk1r = 0.1256637061435917D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =   1
        err = 0.4811676069782394D-11
        xs(  1) = 0.5291132510034002D+01
        ws(  1) = 0.8488542078931173D+01
        endif
        if( idomain .eq.  357 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.2513274122871834D+02
        rk1r = 0.1570796326794897D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =   1
        err = 0.5125130050766371D-11
        xs(  1) = 0.8089218864263829D+01
        ws(  1) = 0.9935626272138048D+01
        endif
        if( idomain .eq.  358 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.2513274122871834D+02
        rk1r = 0.1884955592153876D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =   1
        err = 0.4592143564462508D-11
        xs(  1) = 0.7523692510068775D+01
        ws(  1) = 0.8952700956582600D+01
        endif
        if( idomain .eq.  359 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.2513274122871834D+02
        rk1r = 0.2199114857512855D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =   1
        err = 0.4389503010508479D-11
        xs(  1) = 0.7519491291632409D+01
        ws(  1) = 0.8738777754715233D+01
        endif
        if( idomain .eq.  360 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.2513274122871834D+02
        rk1r = 0.2513274122871834D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =   1
        err = 0.4560650026536718D-11
        xs(  1) = 0.8635725579407746D+01
        ws(  1) = 0.9006869363245601D+01
        endif
        if( idomain .eq.  361 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.2513274122871834D+02
        rk1r = 0.2827433388230814D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =   1
        err = 0.5065625527025063D-11
        xs(  1) = 0.6953121528117715D+01
        ws(  1) = 0.8989083588498804D+01
        endif
        if( idomain .eq.  362 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.2513274122871834D+02
        rk1r = 0.3141592653589793D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =   1
        err = 0.6026312915345514D-11
        xs(  1) = 0.1030911837392143D+02
        ws(  1) = 0.9388624519849838D+01
        endif
        if( idomain .eq.  363 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.2513274122871834D+02
        rk1r = 0.3455751918948772D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =   1
        err = 0.4887910553282563D-11
        xs(  1) = 0.9181648687977777D+01
        ws(  1) = 0.8549060711257853D+01
        endif
        if( idomain .eq.  364 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.2513274122871834D+02
        rk1r = 0.3769911184307752D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =   1
        err = 0.7025301874993271D-11
        xs(  1) = 0.1198385504768887D+02
        ws(  1) = 0.9959657770758092D+01
        endif
        if( idomain .eq.  365 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.2513274122871834D+02
        rk1r = 0.4084070449666731D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =   1
        err = 0.6991525654288439D-11
        xs(  1) = 0.1197639379677170D+02
        ws(  1) = 0.9209400079837463D+01
        endif
        if( idomain .eq.  366 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.2513274122871834D+02
        rk1r = 0.4398229715025710D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =   1
        err = 0.5393758046384823D-11
        xs(  1) = 0.8611509459455638D+01
        ws(  1) = 0.9505369380059840D+01
        endif
        if( idomain .eq.  367 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.2513274122871834D+02
        rk1r = 0.4712388980384689D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =   1
        err = 0.7067881157987160D-11
        xs(  1) = 0.1308862866637310D+02
        ws(  1) = 0.9118217829962035D+01
        endif
        if( idomain .eq.  368 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.2513274122871834D+02
        rk1r = 0.5026548245743669D+02
        rk1i = 0.2827433388230814D+02
        iquadtype =  1
        n =   1
        err = 0.9687486714221602D-11
        xs(  1) = 0.1477567287650467D+02
        ws(  1) = 0.1087081365348778D+02
        endif
        if( idomain .eq.  369 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.2827433388230814D+02
        rk1r = 0.2000000000000000D-01
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   1
        err = 0.2111982124860662D-12
        xs(  1) = 0.6983746189492754D+01
        ws(  1) = 0.9485978545821242D+01
        endif
        if( idomain .eq.  370 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.2827433388230814D+02
        rk1r = 0.4000000000000000D-01
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   1
        err = 0.2112010691320469D-12
        xs(  1) = 0.6983765674469814D+01
        ws(  1) = 0.9486141328136641D+01
        endif
        if( idomain .eq.  371 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.2827433388230814D+02
        rk1r = 0.1000000000000000D+00
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   1
        err = 0.2112183650923994D-12
        xs(  1) = 0.6983955736210535D+01
        ws(  1) = 0.9487242832518401D+01
        endif
        if( idomain .eq.  372 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.2827433388230814D+02
        rk1r = 0.2000000000000000D+00
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   1
        err = 0.2112779769054026D-12
        xs(  1) = 0.6984515237324496D+01
        ws(  1) = 0.9490883593351166D+01
        endif
        if( idomain .eq.  373 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.2827433388230814D+02
        rk1r = 0.4000000000000000D+00
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   1
        err = 0.2192646626987359D-12
        xs(  1) = 0.7553749604531241D+01
        ws(  1) = 0.1021803237799756D+02
        endif
        if( idomain .eq.  374 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.2827433388230814D+02
        rk1r = 0.1000000000000000D+01
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   1
        err = 0.2130341263182384D-12
        xs(  1) = 0.7013901481635323D+01
        ws(  1) = 0.9621050479635652D+01
        endif
        if( idomain .eq.  375 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.2827433388230814D+02
        rk1r = 0.1570796326794897D+01
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   1
        err = 0.2161640161500585D-12
        xs(  1) = 0.6468076215865791D+01
        ws(  1) = 0.9349144447950197D+01
        endif
        if( idomain .eq.  376 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.2827433388230814D+02
        rk1r = 0.3141592653589793D+01
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   1
        err = 0.1812884491449723D-12
        xs(  1) = 0.5830955347077299D+01
        ws(  1) = 0.7696033414215101D+01
        endif
        if( idomain .eq.  377 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.2827433388230814D+02
        rk1r = 0.6283185307179586D+01
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   1
        err = 0.2197795788747395D-12
        xs(  1) = 0.7536356060910825D+01
        ws(  1) = 0.1026419790261526D+02
        endif
        if( idomain .eq.  378 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.2827433388230814D+02
        rk1r = 0.9424777960769379D+01
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   1
        err = 0.2159377052399556D-12
        xs(  1) = 0.7533443806010839D+01
        ws(  1) = 0.1007727699821787D+02
        endif
        if( idomain .eq.  379 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.2827433388230814D+02
        rk1r = 0.1256637061435917D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   1
        err = 0.2103522982279708D-12
        xs(  1) = 0.7530128161241280D+01
        ws(  1) = 0.9825143672685224D+01
        endif
        if( idomain .eq.  380 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.2827433388230814D+02
        rk1r = 0.1570796326794897D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   1
        err = 0.2179692752232954D-12
        xs(  1) = 0.8087708217664661D+01
        ws(  1) = 0.1011673316421299D+02
        endif
        if( idomain .eq.  381 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.2827433388230814D+02
        rk1r = 0.1884955592153876D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   1
        err = 0.1970452145501338D-12
        xs(  1) = 0.7522838354436268D+01
        ws(  1) = 0.9344398276104174D+01
        endif
        if( idomain .eq.  382 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.2827433388230814D+02
        rk1r = 0.2199114857512855D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   1
        err = 0.1921854758013176D-12
        xs(  1) = 0.7519125999852520D+01
        ws(  1) = 0.9204853625141968D+01
        endif
        if( idomain .eq.  383 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.2827433388230814D+02
        rk1r = 0.2513274122871834D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   1
        err = 0.1954015568258232D-12
        xs(  1) = 0.8635697541048932D+01
        ws(  1) = 0.9492875400700299D+01
        endif
        if( idomain .eq.  384 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.2827433388230814D+02
        rk1r = 0.2827433388230814D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   1
        err = 0.2385530073168498D-12
        xs(  1) = 0.1031521220756208D+02
        ws(  1) = 0.1061788355658291D+02
        endif
        if( idomain .eq.  385 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.2827433388230814D+02
        rk1r = 0.3141592653589793D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   1
        err = 0.2388546012418248D-12
        xs(  1) = 0.1030962165588370D+02
        ws(  1) = 0.9957415143593552D+01
        endif
        if( idomain .eq.  386 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.2827433388230814D+02
        rk1r = 0.3455751918948772D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   1
        err = 0.1905066942026072D-12
        xs(  1) = 0.9182828778945204D+01
        ws(  1) = 0.9118693880218036D+01
        endif
        if( idomain .eq.  387 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.2827433388230814D+02
        rk1r = 0.3769911184307752D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   1
        err = 0.2866194737935742D-12
        xs(  1) = 0.1198476972251645D+02
        ws(  1) = 0.1061222123619647D+02
        endif
        if( idomain .eq.  388 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.2827433388230814D+02
        rk1r = 0.4084070449666731D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   1
        err = 0.2845624953658378D-12
        xs(  1) = 0.1197807868055169D+02
        ws(  1) = 0.9891874064325565D+01
        endif
        if( idomain .eq.  389 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.2827433388230814D+02
        rk1r = 0.4398229715025710D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   1
        err = 0.2244054720350768D-12
        xs(  1) = 0.8613046717428270D+01
        ws(  1) = 0.9945105834899909D+01
        endif
        if( idomain .eq.  390 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.2827433388230814D+02
        rk1r = 0.4712388980384689D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   1
        err = 0.4469246408964272D-12
        xs(  1) = 0.1478591062071714D+02
        ws(  1) = 0.1319021459235484D+02
        endif
        if( idomain .eq.  391 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.2827433388230814D+02
        rk1r = 0.5026548245743669D+02
        rk1i = 0.3141592653589793D+02
        iquadtype =  1
        n =   1
        err = 0.3853904432465340D-12
        xs(  1) = 0.1477774462005239D+02
        ws(  1) = 0.1168919949195757D+02
        endif
        if( idomain .eq.  392 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.3141592653589793D+02
        rk1r = 0.2000000000000000D-01
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.8999863594016968D-14
        xs(  1) = 0.6976806058443427D+01
        ws(  1) = 0.9620316239720664D+01
        endif
        if( idomain .eq.  393 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.3141592653589793D+02
        rk1r = 0.4000000000000000D-01
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.9000076534027736D-14
        xs(  1) = 0.6976818060251658D+01
        ws(  1) = 0.9620564304687681D+01
        endif
        if( idomain .eq.  394 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.3141592653589793D+02
        rk1r = 0.1000000000000000D+00
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.9000920654896554D-14
        xs(  1) = 0.6976991877033875D+01
        ws(  1) = 0.9621720316617683D+01
        endif
        if( idomain .eq.  395 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.3141592653589793D+02
        rk1r = 0.2000000000000000D+00
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.9003944880543439D-14
        xs(  1) = 0.6977495828321378D+01
        ws(  1) = 0.9625697649894864D+01
        endif
        if( idomain .eq.  396 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.3141592653589793D+02
        rk1r = 0.4000000000000000D+00
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.9016325420092320D-14
        xs(  1) = 0.6979725248806859D+01
        ws(  1) = 0.9642229570353278D+01
        endif
        if( idomain .eq.  397 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.3141592653589793D+02
        rk1r = 0.1000000000000000D+01
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.9094225852815353D-14
        xs(  1) = 0.7004693229015541D+01
        ws(  1) = 0.9763044529104825D+01
        endif
        if( idomain .eq.  398 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.3141592653589793D+02
        rk1r = 0.1570796326794897D+01
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.9248396050580889D-14
        xs(  1) = 0.7031631049914096D+01
        ws(  1) = 0.9973211234692638D+01
        endif
        if( idomain .eq.  399 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.3141592653589793D+02
        rk1r = 0.3141592653589793D+01
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.8005529611026528D-14
        xs(  1) = 0.7504267856804541D+01
        ws(  1) = 0.8887058384065380D+01
        endif
        if( idomain .eq.  400 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.3141592653589793D+02
        rk1r = 0.6283185307179586D+01
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.9144531632859091D-14
        xs(  1) = 0.7533519334170216D+01
        ws(  1) = 0.1029299491902723D+02
        endif
        if( idomain .eq.  401 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.3141592653589793D+02
        rk1r = 0.9424777960769379D+01
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.9029327752508832D-14
        xs(  1) = 0.7530997318998930D+01
        ws(  1) = 0.1017322295358834D+02
        endif
        if( idomain .eq.  402 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.3141592653589793D+02
        rk1r = 0.1256637061435917D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.8862109749581143D-14
        xs(  1) = 0.7528121089315783D+01
        ws(  1) = 0.1001177314111711D+02
        endif
        if( idomain .eq.  403 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.3141592653589793D+02
        rk1r = 0.1570796326794897D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.8665418794257290D-14
        xs(  1) = 0.7525002051333587D+01
        ws(  1) = 0.9844565343405950D+01
        endif
        if( idomain .eq.  404 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.3141592653589793D+02
        rk1r = 0.1884955592153876D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.9048486643202440D-14
        xs(  1) = 0.6402123272633788D+01
        ws(  1) = 0.9543812241616052D+01
        endif
        if( idomain .eq.  405 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.3141592653589793D+02
        rk1r = 0.2199114857512855D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.1259383101357382D-13
        xs(  1) = 0.1201060567108334D+02
        ws(  1) = 0.1816018038858171D+02
        endif
        if( idomain .eq.  406 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.3141592653589793D+02
        rk1r = 0.2513274122871834D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.8675573412226455D-14
        xs(  1) = 0.8075199242866713D+01
        ws(  1) = 0.9694663280913588D+01
        endif
        if( idomain .eq.  407 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.3141592653589793D+02
        rk1r = 0.2827433388230814D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.8574930757262308D-14
        xs(  1) = 0.8071634734753307D+01
        ws(  1) = 0.9651919057310256D+01
        endif
        if( idomain .eq.  408 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.3141592653589793D+02
        rk1r = 0.3141592653589793D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.8563266482588801D-14
        xs(  1) = 0.8068212452132643D+01
        ws(  1) = 0.9709901899545949D+01
        endif
        if( idomain .eq.  409 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.3141592653589793D+02
        rk1r = 0.3455751918948772D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.9195453841545547D-14
        xs(  1) = 0.7506384305880967D+01
        ws(  1) = 0.1022894343328627D+02
        endif
        if( idomain .eq.  410 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.3141592653589793D+02
        rk1r = 0.3769911184307752D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.8102605645942179D-14
        xs(  1) = 0.9179588403629651D+01
        ws(  1) = 0.9636082326636467D+01
        endif
        if( idomain .eq.  411 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.3141592653589793D+02
        rk1r = 0.4084070449666731D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.1160074009124247D-13
        xs(  1) = 0.1197911838890316D+02
        ws(  1) = 0.1049893433866964D+02
        endif
        if( idomain .eq.  412 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.3141592653589793D+02
        rk1r = 0.4398229715025710D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.9461604153102973D-14
        xs(  1) = 0.8614246568463304D+01
        ws(  1) = 0.1037891730775895D+02
        endif
        if( idomain .eq.  413 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.3141592653589793D+02
        rk1r = 0.4712388980384689D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.1732567284651658D-13
        xs(  1) = 0.1478607065090202D+02
        ws(  1) = 0.1381178657459834D+02
        endif
        if( idomain .eq.  414 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.3141592653589793D+02
        rk1r = 0.5026548245743669D+02
        rk1i = 0.3455751918948772D+02
        iquadtype =  1
        n =   1
        err = 0.1370390658479321D-13
        xs(  1) = 0.1421396935002738D+02
        ws(  1) = 0.1130363601949674D+02
        endif
        if( idomain .eq.  415 ) then
        rk0r = 0.0000000000000000D+00
        rk0i = 0.3455751918948772D+02
        rk1r = 0.2000000000000000D-01
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3793789921418930D-15
        xs(  1) = 0.7537063482400751D+01
        ws(  1) = 0.1026016886464309D+02
        endif
        if( idomain .eq.  416 ) then
        rk0r = 0.2000000000000000D-01
        rk0i = 0.3455751918948772D+02
        rk1r = 0.4000000000000000D-01
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3794034494203456D-15
        xs(  1) = 0.7537106747804705D+01
        ws(  1) = 0.1026083122585142D+02
        endif
        if( idomain .eq.  417 ) then
        rk0r = 0.4000000000000000D-01
        rk0i = 0.3455751918948772D+02
        rk1r = 0.1000000000000000D+00
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3794187830407155D-15
        xs(  1) = 0.7537134439146585D+01
        ws(  1) = 0.1026124642992753D+02
        endif
        if( idomain .eq.  418 ) then
        rk0r = 0.1000000000000000D+00
        rk0i = 0.3455751918948772D+02
        rk1r = 0.2000000000000000D+00
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3796490463865440D-15
        xs(  1) = 0.7537778184270590D+01
        ws(  1) = 0.1026717208091085D+02
        endif
        if( idomain .eq.  419 ) then
        rk0r = 0.2000000000000000D+00
        rk0i = 0.3455751918948772D+02
        rk1r = 0.4000000000000000D+00
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3864654505456736D-15
        xs(  1) = 0.6973064238369234D+01
        ws(  1) = 0.9853504641625127D+01
        endif
        if( idomain .eq.  420 ) then
        rk0r = 0.4000000000000000D+00
        rk0i = 0.3455751918948772D+02
        rk1r = 0.1000000000000000D+01
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3860186059763106D-15
        xs(  1) = 0.7567392334889823D+01
        ws(  1) = 0.1041619594934339D+02
        endif
        if( idomain .eq.  421 ) then
        rk0r = 0.1000000000000000D+01
        rk0i = 0.3455751918948772D+02
        rk1r = 0.1570796326794897D+01
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.4200477298031452D-15
        xs(  1) = 0.8165810657115193D+01
        ws(  1) = 0.1119968169437377D+02
        endif
        if( idomain .eq.  422 ) then
        rk0r = 0.1570796326794897D+01
        rk0i = 0.3455751918948772D+02
        rk1r = 0.3141592653589793D+01
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3311511268336963D-15
        xs(  1) = 0.7502505283731742D+01
        ws(  1) = 0.8885437298447233D+01
        endif
        if( idomain .eq.  423 ) then
        rk0r = 0.3141592653589793D+01
        rk0i = 0.3455751918948772D+02
        rk1r = 0.6283185307179586D+01
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3837465342311473D-15
        xs(  1) = 0.7530675737461743D+01
        ws(  1) = 0.1040427372219196D+02
        endif
        if( idomain .eq.  424 ) then
        rk0r = 0.6283185307179586D+01
        rk0i = 0.3455751918948772D+02
        rk1r = 0.9424777960769379D+01
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3803064100998587D-15
        xs(  1) = 0.7528661618645076D+01
        ws(  1) = 0.1032822340732729D+02
        endif
        if( idomain .eq.  425 ) then
        rk0r = 0.9424777960769379D+01
        rk0i = 0.3455751918948772D+02
        rk1r = 0.1256637061435917D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3753872191450383D-15
        xs(  1) = 0.7526071069432035D+01
        ws(  1) = 0.1022873019807276D+02
        endif
        if( idomain .eq.  426 ) then
        rk0r = 0.1256637061435917D+02
        rk0i = 0.3455751918948772D+02
        rk1r = 0.1570796326794897D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3884570260205727D-15
        xs(  1) = 0.6403148632585242D+01
        ws(  1) = 0.9857709726506975D+01
        endif
        if( idomain .eq.  427 ) then
        rk0r = 0.1570796326794897D+02
        rk0i = 0.3455751918948772D+02
        rk1r = 0.1884955592153876D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3919953889668921D-15
        xs(  1) = 0.6401085155579945D+01
        ws(  1) = 0.9982867805247034D+01
        endif
        if( idomain .eq.  428 ) then
        rk0r = 0.1884955592153876D+02
        rk0i = 0.3455751918948772D+02
        rk1r = 0.2199114857512855D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3845401134103335D-15
        xs(  1) = 0.8077828717293057D+01
        ws(  1) = 0.1018808510874186D+02
        endif
        if( idomain .eq.  429 ) then
        rk0r = 0.2199114857512855D+02
        rk0i = 0.3455751918948772D+02
        rk1r = 0.2513274122871834D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3800047886369312D-15
        xs(  1) = 0.8074603149032139D+01
        ws(  1) = 0.1010473580693951D+02
        endif
        if( idomain .eq.  430 ) then
        rk0r = 0.2513274122871834D+02
        rk0i = 0.3455751918948772D+02
        rk1r = 0.2827433388230814D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3778486337985216D-15
        xs(  1) = 0.8071410562302447D+01
        ws(  1) = 0.1009420203159147D+02
        endif
        if( idomain .eq.  431 ) then
        rk0r = 0.2827433388230814D+02
        rk0i = 0.3455751918948772D+02
        rk1r = 0.3141592653589793D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3788233479311974D-15
        xs(  1) = 0.8068305786760980D+01
        ws(  1) = 0.1016796660628017D+02
        endif
        if( idomain .eq.  432 ) then
        rk0r = 0.3141592653589793D+02
        rk0i = 0.3455751918948772D+02
        rk1r = 0.3455751918948772D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3951903966822969D-15
        xs(  1) = 0.7506540902536113D+01
        ws(  1) = 0.1066907500303842D+02
        endif
        if( idomain .eq.  433 ) then
        rk0r = 0.3455751918948772D+02
        rk0i = 0.3455751918948772D+02
        rk1r = 0.3769911184307752D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.3602545576547335D-15
        xs(  1) = 0.9180222706352689D+01
        ws(  1) = 0.1011677514842185D+02
        endif
        if( idomain .eq.  434 ) then
        rk0r = 0.3769911184307752D+02
        rk0i = 0.3455751918948772D+02
        rk1r = 0.4084070449666731D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.4143265672915544D-15
        xs(  1) = 0.1085645394100248D+02
        ws(  1) = 0.1024094794108135D+02
        endif
        if( idomain .eq.  435 ) then
        rk0r = 0.4084070449666731D+02
        rk0i = 0.3455751918948772D+02
        rk1r = 0.4398229715025710D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.4138572708966898D-15
        xs(  1) = 0.8615153081446438D+01
        ws(  1) = 0.1080093140831727D+02
        endif
        if( idomain .eq.  436 ) then
        rk0r = 0.4398229715025710D+02
        rk0i = 0.3455751918948772D+02
        rk1r = 0.4712388980384689D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.4959694926710892D-15
        xs(  1) = 0.1309385739341984D+02
        ws(  1) = 0.1110702237674590D+02
        endif
        if( idomain .eq.  437 ) then
        rk0r = 0.4712388980384689D+02
        rk0i = 0.3455751918948772D+02
        rk1r = 0.5026548245743669D+02
        rk1i = 0.3769911184307752D+02
        iquadtype =  1
        n =   1
        err = 0.5578560062280093D-15
        xs(  1) = 0.1421491867192786D+02
        ws(  1) = 0.1193627630793901D+02
        endif
